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