howard/hamacs
howard/hamacs
1
1
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Better loading of bootstrap files

Browse source
This commit is contained in:
Howard Abrams 2022-05-11 14:35:48 -07:00
parent 241d72bc0e
commit c7911b4a5a
1 changed files with 9 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

14
bootstrap.org
View file

@ -175,7 +175,8 @@ Sure the Emacs application will almost always have the =server-start= going, how
Currently, this is the `emacs-plus@28' app that I have built with Currently, this is the `emacs-plus@28' app that I have built with
the native-comp model, but I reserve the right to change this." the native-comp model, but I reserve the right to change this."
(and (f-dir? "~/work") (and (f-dir? "~/work")
(string-match "emacs-plus@28" exec-directory))) ;; (string-match "emacs-plus@28" exec-directory)
(not (string-match "Emacs.app" exec-directory))))
#+END_SRC #+END_SRC
And now start the server with an appropriate tag name: And now start the server with an appropriate tag name:
@ -234,7 +235,8 @@ And we can now load everything:
"Reload our entire ecosystem of configuration files." "Reload our entire ecosystem of configuration files."
(interactive) (interactive)
(dolist (file ha-hamacs-files) (dolist (file ha-hamacs-files)
(ha-hamacs-load file))) (unless (equal file "bootstrap.org")
(ha-hamacs-load file))))
#+END_SRC #+END_SRC
And do it: And do it:
@ -245,9 +247,11 @@ And do it:
Once we have loaded /my world/, let’s add every other Org file in the project to the list, so that I can easily bring more stuff. Once we have loaded /my world/, let’s add every other Org file in the project to the list, so that I can easily bring more stuff.
#+BEGIN_SRC emacs-lisp #+BEGIN_SRC emacs-lisp
(setq ha-hamacs-files (setq ha-hamacs-files
(-uniq (->> (rx ".org" string-end)
(append ha-hamacs-files (directory-files "~/other/hamacs" nil)
(directory-files "~/other/hamacs" nil (rx ".org" eos))))) (append ha-hamacs-files)
(--filter (not (string-match (rx "README") it)))
(-uniq)))
#+END_SRC #+END_SRC
* Technical Artifacts :noexport: * Technical Artifacts :noexport:
Let's provide a name so that the file can be required: Let's provide a name so that the file can be required: