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

Fix load errors in bootstrap

Browse source 
As well as pull out the unit tests.
This commit is contained in:
Howard Abrams 2024-07-02 11:38:32 -07:00
parent 6a143bf60b
commit 563d2e4e8b
1 changed files with 13 additions and 13 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

22
bootstrap.org
View file

@ -273,11 +273,6 @@ And we can tangle /all/ the files:
(unless (equal file "bootstrap.org") (unless (equal file "bootstrap.org")
(ha-hamacs-tangle file)))) (ha-hamacs-tangle file))))
#+end_src #+end_src
And do it:
#+begin_src emacs-lisp
(ha-hamacs-reload-all)
#+end_src
** Edit my Files ** Edit my Files
Changing my Emacs configuration is as simple as editing an Org file containing the code, and evaluating that block or expression. Or even /re-loading/ the entire file as described above. Calling =find-file= (or more often [[file:ha-config.org::*Projects][project-find-file]]) is sufficient but quicker if I supply a /focused list/ of just the files in my project: Changing my Emacs configuration is as simple as editing an Org file containing the code, and evaluating that block or expression. Or even /re-loading/ the entire file as described above. Calling =find-file= (or more often [[file:ha-config.org::*Projects][project-find-file]]) is sufficient but quicker if I supply a /focused list/ of just the files in my project:
@ -417,7 +412,7 @@ The =seq-map= needs to take each line from the =ripgrep= call and convert it to
Before we dive into the implementation of this function, let’s write a test to validate (and explain) what we expect to return: Before we dive into the implementation of this function, let’s write a test to validate (and explain) what we expect to return:
#+begin_src emacs-lisp #+begin_src emacs-lisp :tangle no
(ert-deftest ha-hamacs-edit--process-entry-test () (ert-deftest ha-hamacs-edit--process-entry-test ()
(setq ha-hamacs-edit-prev-head-list '()) (setq ha-hamacs-edit-prev-head-list '())
(should (equal (should (equal
@ -496,22 +491,22 @@ Essentially, if we get to a top-level headline, we set the list of parents to a
#+end_src #+end_src
The following test should pass some mustard and explain how this function works: The following test should pass some mustard and explain how this function works:
#+begin_src emacs-lisp #+begin_src emacs-lisp :tangle no
(ert-deftest ha-hamacs-edit--new-heading-test () (ert-deftest ha-hamacs-edit--new-heading-test ()
(should (equal (should (equal
(ha-hamacs-edit-new-heading "ha-foobar.org" "Apples" 1) (ha-hamacs-edit--new-heading "ha-foobar.org" "Apples" 1)
"Foobar∷ Apples")) "Foobar∷ Apples"))
(setq ha-hamacs-edit-prev-head-list '("Apples")) (setq ha-hamacs-edit-prev-head-list '("Apples"))
(should (equal (should (equal
(ha-hamacs-edit-new-heading "ha-foobar.org" "Oranges" 2) (ha-hamacs-edit--new-heading "ha-foobar.org" "Oranges" 2)
"Foobar∷ Apples﹥ Oranges")) "Foobar∷ Apples﹥ Oranges"))
(setq ha-hamacs-edit-prev-head-list '("Apples" "Oranges")) (setq ha-hamacs-edit-prev-head-list '("Apples" "Oranges"))
(should (equal (should (equal
(ha-hamacs-edit-new-heading "ha-foobar.org" "Bananas" 3) (ha-hamacs-edit--new-heading "ha-foobar.org" "Bananas" 3)
"Foobar∷ Apples﹥ Oranges﹥ Bananas")) "Foobar∷ Apples﹥ Oranges﹥ Bananas"))
(setq ha-hamacs-edit-prev-head-list '("Apples" "Oranges" "Bananas")) (setq ha-hamacs-edit-prev-head-list '("Apples" "Oranges" "Bananas"))
(should (equal (should (equal
(ha-hamacs-edit-new-heading "ha-foobar.org" "Cantaloupe" 4) (ha-hamacs-edit--new-heading "ha-foobar.org" "Cantaloupe" 4)
"Foobar∷ Apples﹥ Oranges﹥ Bananas﹥ Cantaloupe"))) "Foobar∷ Apples﹥ Oranges﹥ Bananas﹥ Cantaloupe")))
#+end_src #+end_src
@ -549,6 +544,11 @@ So the following tests should pass:
(should (equal (ha-hamacs-edit-file-title "README-apples.org") "Apples")) (should (equal (ha-hamacs-edit-file-title "README-apples.org") "Apples"))
(should (equal (ha-hamacs-edit-file-title "README.org") "Readme"))) (should (equal (ha-hamacs-edit-file-title "README.org") "Readme")))
#+end_src #+end_src
Whew … and do it all:
#+begin_src emacs-lisp
(ha-hamacs-reload-all)
#+end_src
* Technical Artifacts :noexport: * Technical Artifacts :noexport:
Let's provide a name so we can =require= this file: Let's provide a name so we can =require= this file:
#+begin_src emacs-lisp :exports none #+begin_src emacs-lisp :exports none