Add the start function of the default system
This commit is contained in:
parent
24b9d768b2
commit
ba05a3ca4e
|
@ -21,6 +21,7 @@
|
|||
;;
|
||||
;;; Commentary:
|
||||
;;; Code:
|
||||
(require 'fg42/extensions)
|
||||
(require 'fg42/system/utils)
|
||||
|
||||
(autoload 'fg42-system/start "fg42/system"
|
||||
|
@ -32,7 +33,9 @@
|
|||
(fg42-system/set-system! system)
|
||||
|
||||
(add-hook 'window-setup-hook
|
||||
(lambda () (fg42-system/start))))
|
||||
(lambda ()
|
||||
(fg42-system/start)
|
||||
(fg42-extensions/setup-extensions system))))
|
||||
|
||||
|
||||
(provide 'fg42)
|
||||
|
|
|
@ -70,6 +70,7 @@ containing the `fg42-extension' instances."
|
|||
|
||||
(defun fg42-extensions/initialize (system ext)
|
||||
"Initialize the given extension EXT aginst the given SYSTEM."
|
||||
;; TODO: Install the dependencies of the extension here
|
||||
(funcall (fg42-extension-on-initialize ext) system))
|
||||
|
||||
|
||||
|
@ -81,7 +82,7 @@ containing the `fg42-extension' instances."
|
|||
system)
|
||||
|
||||
|
||||
(defun fg42-setup-extensions (system)
|
||||
(defun fg42-extensions/setup-extensions (system)
|
||||
"Setup the preloads for the given SYSTEM."
|
||||
(funcall (comp #'fg42-extensions/initialize-extensions
|
||||
#'fg42-extensions/load-system-extensions) system))
|
||||
|
|
Loading…
Reference in New Issue