bootstrap.org

@@ -116,8 +116,8 @@ The [[help:shell-command][shell-command]] function is useful, but having it spli
     (thread-last command
        shell-command-to-string
        s-lines
-       (seq-map 's-trim)
+       (-map 's-trim)
-       (seq-remove 's-blank-str?)))
+       (-remove 's-blank-str?)))
 #+end_src
 
 And let’s see the results:
@@ -156,19 +156,15 @@ I actually run two instances of Emacs on some systems, where one instance has al
 #+end_src
 
 And now start the server with an appropriate tag name:
-
 #+begin_src emacs-lisp
-  (when (display-graphic-p)
   (if (not (ha-emacs-for-work?))
       (setq server-name "personal")
     (setq server-name "work")
     (when (ha-running-on-macos?)
       (set-exec-path-from-shell)))
 
-    (server-start))
+  (server-start)
 #+end_src
-
-*Note:* When starting Emacs as a terminal program (only happens when I am attempting to evaluate code), we don’t start the server.
 * Load the Rest
 The following /defines/ the rest of my org-mode literate files, that I load later with the =ha-hamacs-load= function:
 #+begin_src emacs-lisp
@@ -232,16 +228,13 @@ With this function, we can test/debug/reload any individual file, via:
   Emacs configuration code."
     (interactive (list (completing-read "Org file: "
                              (ha-hamacs-files :all))))
-    (let ((full-file (expand-file-name file hamacs-source-dir)))
+    ;; TODO: Replace concat here:
+    (let ((full-file (file-name-concat hamacs-source-dir file)))
       (when (file-exists-p full-file)
-        (message ">>> %s" full-file)
+        (ignore-errors
-        (if (called-interactively-p)
+            (org-babel-load-file full-file)))))
-            (org-babel-load-file full-file)
-          (ignore-errors (org-babel-load-file full-file))))))
 #+end_src
 
-Notice that when we call this function /non-interactively/ (e.g. from the Lisp function, =ha-hamacs-reload-all=), we suppress any errors. Obviously, I want to see the errors when calling interactively.
-
 ** Tangling the Hamacs
 And this similar function, will /tangle/ one of my files. Notice that in order to increase the speed of the tangling process (and not wanting to pollute a project perspective), I use a /temporary buffer/ instead of =find-file=.
 
@@ -279,7 +272,8 @@ And we can tangle /all/ the files:
     "Tangle all my Org initialization/configuration files."
     (interactive)
     (dolist (file (ha-hamacs-files))
-      (ha-hamacs-tangle file)))
+      (unless (equal file "bootstrap.org")
+        (ha-hamacs-tangle file))))
 #+end_src
 ** 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:

ha-config.org

@@ -373,7 +373,9 @@ Since I seldom remember keybindings, or even function names, for major-modes, I
                                    (string-replace "-" " ")
                                    (string-replace " mode" "")
                                    (s-titleize))))
-           (concat "ϻ " title " Commands")))))
+           (s-concat ; (s-repeat 5 " ")
+                     (all-the-icons-icon-for-mode mode :v-adjust 0.05)
+                     " " title " Commands")))))
 #+end_src
 
 For this feature, I may want to pull it out into its own file, so as to keep all of its features together... however, those feature often /depend/ of the functions they are calling. If so, we would have a series like this:

ha-display.org

@@ -37,24 +37,10 @@ Let's turn off the menu and other settings:
 #+end_src
 
 And let’s make this Emacs look more like a fancy IDE with [[https://github.com/domtronn/all-the-icons.el][all-the-icons]]:
-
 #+begin_src emacs-lisp
   (use-package all-the-icons
-    :if (display-graphic-p)
+    :if (display-graphic-p))
-    :config
-    (setq major-mode-hydra-title-generator
-          '(lambda (mode)
-             (let ((title (thread-last mode
-                                       (symbol-name)
-                                       (string-replace "-" " ")
-                                       (string-replace " mode" "")
-                                       (s-titleize))))
-               (s-concat ; (s-repeat 5 " ")
-                (all-the-icons-icon-for-mode mode :v-adjust 0.05)
-                " " title " Commands")))))
 #+end_src
-
-This also expands the [[file:ha-config.org::*Leader Sequences][Major Mode Hydra]] title sequence with a pretty icon.
 * Mode Line
 Let's install and load some of packages from the [[https://github.com/hlissner/doom-emacs][Doom Emacs]] project, like [[https://github.com/seagle0128/doom-modeline][doom-modeline]] and maybe the themes:
 #+begin_src emacs-lisp

ha-org-journaling.org

@@ -29,28 +29,36 @@ Using the [[https://github.com/bastibe/org-journal][org-journal]] project to eas
 
 #+begin_src emacs-lisp
 (use-package org-journal
-    :after org
+  :init
-    :config
   (setq org-journal-dir "~/journal"
         org-journal-date-format " "
         org-journal-time-format ""
         org-journal-file-type 'daily
         org-journal-file-format "%Y%m%d")
+  :config
+#+end_src
+Notice that the rest of this file's contents is /contained/ in this =config= section!
 
+And let's put a /leader key/ sequence for it (Doom-specific):
+
+#+begin_src emacs-lisp
 (ha-leader "f j" '("journal" . org-journal-new-entry))
+#+end_src
 
+In normal Org file, I like large headers, but in my Journal, where each task is a header, I want them smaller:
 
-    ;; In normal Org file, I like large headers, but in my Journal,
+#+begin_src emacs-lisp
-    ;; where each task is a header, I want them smaller:
 (add-hook 'org-journal-mode-hook
           (lambda ()
             (set-face-attribute 'org-level-1 nil :height 1.2)
             (set-face-attribute 'org-level-2 nil :height 1.1)
             (set-face-attribute 'org-level-3 nil :height 1.0)))
+#+end_src
 
-    ;; But new files could use /my formatting/ (which is different
+But new files could use /my formatting/ (which is different than the options available in the project):
-    ;; than the options available in the project):
+
-    (ha-auto-insert-file (rx "journal/" (zero-or-more any) (= 8 digit)) "journal"))
+#+begin_src emacs-lisp
+  (ha-auto-insert-file (rx "journal/" (zero-or-more any) (= 8 digit)) "journal")
 #+end_src
 
 This depends on the following [[file:~/.doom.d/snippets/org-journal-mode/__journal][snippet/template file]]:
@@ -91,6 +99,10 @@ Using the "date" associated with a file, we can create our standard timestamp:
   (format-time-string "%e %b %Y (%A)" (ha-journal-file-date datename)))
 #+end_src
 
+Close the =use-package= call:
+#+begin_src emacs-lisp
+)
+#+end_src
 * Journal Capture
 Capturing a task (that when uncompleted, would then spillover to following days) could go to the daily journal entry. This requires a special function that opens today's journal, but specifies a non-nil prefix argument in order to inhibit inserting the heading, as =org-capture= will insert the heading.
 
@@ -126,7 +138,7 @@ Sometimes it is obvious what is the /next file/ based on the one I'm currently r
 Which means that the following defines this function:
 
 #+begin_src emacs-lisp :tangle no
-  (ert-deftest split-string-default-separatorsg-with-number-test ()
+(ert-deftest split-string-with-number-test ()
   (should (equal (split-string-with-number "abc42xyz") '("abc" "42" "xyz")))
   (should (equal (split-string-with-number "42xyz")    '("" "42" "xyz")))
   (should (equal (split-string-with-number "abc42")    '("abc" "42" "")))

ha-org-publishing.org

@@ -30,11 +30,9 @@ While the Emacs community have a plethora of options for generating a static web
 While the following packages come with Emacs, they aren't necessarily loaded:
 
 #+begin_src emacs-lisp :results silent
-  (use-package org
-    :config
   (require 'ox-html)
   (require 'ox-rss)
-    (require 'ox-publish))
+  (require 'ox-publish)
 #+end_src
 
 Render my code with my font colors:
@@ -43,13 +41,6 @@ Render my code with my font colors:
   (use-package htmlize)
 #+end_src
 
-Also, we need Jack, and his HTML prowess:
-#+begin_src emacs-lisp
-  (use-package jack
-    :straight (:host github :repo "tonyaldon/jack")
-    :commands (jack-html))
-#+end_src
-
 Variable settings:
 #+begin_src emacs-lisp
   (setq org-publish-project-alist nil ; filled in below
@@ -339,20 +330,6 @@ Using =rsync= to keep published files in sync with my website:
                    (message)
                    (async-shell-command))))
 #+end_src
-** Workflows for Hamacs
-A single function to publish and sync my literate initialization of Emacs.
-
-The idea is that pushing a Git commit to this project, triggers a Forgejo Workflow, that /exports/ the literate text as HTML to [[https://www.howardabrams.com/hamacs][my website]].
-
-#+begin_src emacs-lisp
-  (defun hamacs-publishing-workflow ()
-    "Render and push a new web version of my Emacs initialization."
-    (interactive)
-    (org-publish-project "hamacs")
-    (org-publish-project "hamacs-static")
-    (ha-sync-site "hamacs"))
-#+end_src
-
 * Keybindings
 Make it easy to publish all projects or single project:
 #+begin_src emacs-lisp

ha-programming.org

@@ -1198,8 +1198,7 @@ Support for [[https://docutils.sourceforge.io/rst.html][reStructuredText]] is [[
 #+begin_src emacs-lisp
   (use-package rst
     :config
-    (when (and (display-graphic-p) (boundp 'ha-fixed-font))
+    (set-face-attribute 'rst-literal nil :font ha-fixed-font))
-      (set-face-attribute 'rst-literal nil :font ha-fixed-font)))
 #+end_src
 ** Docker
 Edit =Dockerfiles= with the [[https://github.com/spotify/dockerfile-mode][dockerfile-mode]] project:

templates/journal

@@ -1,3 +1,3 @@
-#+title: Journal Entry- `(ha-journal-file-datestamp)`
+#+TITLE: Journal Entry- `(ha-journal-file-datestamp)`
 
 $0