Publishing my literate initialization with one function

I wanted to have an icon associated with the major mode hydra, but the
display system wasn't available at this time. So, now we can override it.

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
-       (-map 's-trim)
-       (-remove 's-blank-str?)))
+       (seq-map 's-trim)
+       (seq-remove 's-blank-str?)))
 #+end_src
 
 And let’s see the results:
@@ -156,15 +156,19 @@ 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
@@ -228,13 +232,16 @@ 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))))
-    ;; TODO: Replace concat here:
-    (let ((full-file (file-name-concat hamacs-source-dir file)))
+    (let ((full-file (expand-file-name file hamacs-source-dir)))
       (when (file-exists-p full-file)
-        (ignore-errors
-            (org-babel-load-file full-file)))))
+        (message ">>> %s" full-file)
+        (if (called-interactively-p)
+            (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=.
 
@@ -272,8 +279,7 @@ And we can tangle /all/ the files:
     "Tangle all my Org initialization/configuration files."
     (interactive)
     (dolist (file (ha-hamacs-files))
-      (unless (equal file "bootstrap.org")
-        (ha-hamacs-tangle file))))
+      (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,9 +373,7 @@ Since I seldom remember keybindings, or even function names, for major-modes, I
                                    (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")))))
+           (concat "ϻ " 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,10 +37,24 @@ 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,36 +29,28 @@ Using the [[https://github.com/bastibe/org-journal][org-journal]] project to eas
 
 #+begin_src emacs-lisp
   (use-package org-journal
-  :init
+    :after org
+    :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:
 
-#+begin_src emacs-lisp
+    ;; In normal Org file, I like large headers, but in my Journal,
+    ;; 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 than the options available in the project):
-
-#+begin_src emacs-lisp
-  (ha-auto-insert-file (rx "journal/" (zero-or-more any) (= 8 digit)) "journal")
+    ;; But new files could use /my formatting/ (which is different
+    ;; than the options available in the project):
+    (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]]:
@@ -99,10 +91,6 @@ 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.
 
@@ -138,7 +126,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-with-number-test ()
+  (ert-deftest split-string-default-separatorsg-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,9 +30,11 @@ 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:
@@ -41,6 +43,13 @@ 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
@@ -330,6 +339,20 @@ 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,7 +1198,8 @@ Support for [[https://docutils.sourceforge.io/rst.html][reStructuredText]] is [[
 #+begin_src emacs-lisp
   (use-package rst
     :config
-    (set-face-attribute 'rst-literal nil :font ha-fixed-font))
+    (when (and (display-graphic-p) (boundp '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