53 lines
1.6 KiB
EmacsLisp
53 lines
1.6 KiB
EmacsLisp
(require 'cl-lib)
|
|
(require 'fg42/extension)
|
|
|
|
;; Vars -----------------------------------
|
|
(defvar default-theme nil "Default FG42 theme.")
|
|
|
|
;; Macros ---------------------------------
|
|
(defmacro theme (name &optional local)
|
|
"Mark the given theme name as default them.
|
|
local should be 't' if theme is on FG42 it self"
|
|
`(progn
|
|
(setq default-theme ',(intern (symbol-name name)))
|
|
(when (not (null ,local))
|
|
(depends-on default-theme))))
|
|
|
|
;; Functions ------------------------------
|
|
(defun load-default-theme ()
|
|
"Load the given theme name"
|
|
|
|
(require default-theme)
|
|
(eval-after-load "color-theme"
|
|
'(progn
|
|
(color-theme-initialize)
|
|
(funcall (symbol-function default-theme))))
|
|
(require 'color-theme))
|
|
|
|
(defun load--extension (extension)
|
|
"Load a single extension and call its :on-initialize function"
|
|
(let ((lib (concat "extensions/" (symbol-name extension))))
|
|
(require (intern lib))))
|
|
|
|
(defun initialize--extension (extension)
|
|
"Initialize given extension by calling its :on-initialize function."
|
|
(let ((init-func (fg42-extension-on-initialize (symbol-value extension))))
|
|
(funcall (symbol-function init-func))))
|
|
|
|
(defun initialize-extensions ()
|
|
"Call the :on-initialize function on all extensions."
|
|
(mapcar 'initialize--extension activated-extensions))
|
|
|
|
(defun activate-extensions (&rest extensions)
|
|
"Mark given plugins to load on FG42"
|
|
(setq activated-extensions extensions)
|
|
(mapcar 'load--extension extensions))
|
|
|
|
(defun load-user-config (file)
|
|
"Load the given path as user config file"
|
|
(if (file-exists-p file)
|
|
(load-file file)))
|
|
|
|
|
|
(provide 'fg42/base)
|