Add the start function of the default system

This commit is contained in:
Sameer Rahmani 2020-05-26 21:06:31 +01:00
parent 24b9d768b2
commit ba05a3ca4e
3 changed files with 7 additions and 2 deletions

View File

@ -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)

View File

@ -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))

View File

@ -35,6 +35,7 @@
:start (lambda (system)
(fg42/start! system))
:extensions '(fg42-elisp))