Fix bugs ...

Including splitting out the project list (so that it can be added to
later in the initialization), a bug found in the `beep` code.

elisp/beep.el

@@ -97,11 +97,12 @@ See `beep--when-finished' for details."
 
 (defun beep--extract-function-name (expr)
   "Extracts the original function from a lambda expression, EXPR."
-  (if (listp expr)
-     (if (equal (car expr) 'lambda)
-         (car (cadr expr))
-       expr)
-    expr))
+  (cond ((listp expr)
+         (if (equal (car expr) 'lambda)
+             (car (cadr expr))
+           (car expr)))
+        ((stringp expr) expr)
+        (t "")))
 
 (provide 'beep)
 ;;; beep.el ends here

ha-aux-apps.org

@@ -99,6 +99,8 @@ Add my org-specific predicates, see this [[http://www.howardism.org/Technical/Em
                (re-search-forward ,reg nil t 1))))
       (error "The `T' predicate takes an org-mode tag value in single quotes.")))
 
+  (defvar eshell-predicate-alist nil
+    "A list of predicates than can be applied to a globbing pattern.")
   (add-to-list 'eshell-predicate-alist '(?T . (eshell-org-file-tags)))
 #+END_SRC
 ** VTerm
@@ -170,14 +172,6 @@ Been working on a project for getting Emacs helping as a /Dungeon Master's Assis
     :commands (rpgdm-mode rpgdm-tables-load)
     :config (ha-leader "t D" '("rpg dm" . rpgdm-mode)))
 #+END_SRC
-
-While it is a minor mode, I don't necessarily want to turn it on for all files.
-Instead, in an Org file, I just need to include something like this:
-#+BEGIN_SRC org
-# Local Variables:
-# eval: (progn (rpgdm-mode 1) (rpgdm-tables-load "ironsworn"))
-# End:
-#+END_SRC
 * Technical Artifacts                                :noexport:
 Let's =provide= a name so we can =require= this file:
 

ha-config.org

@@ -957,12 +957,16 @@ Let's describe a list of startup project workspaces. This way, I don't need the
 Granted, this list is essentially a list of projects that I'm currently developing, so I expect this to change often.
 
 #+BEGIN_SRC emacs-lisp
-(defvar ha-workspace-projects-personal
-  '(("projects" "~/projects" ("breathe.org" "tasks.org"))
-    ("personal" "~/personal" ("general.org"))
-    ("technical" "~/technical" ("ansible.org"))
-    ("hamacs" "~/other/hamacs" ("README.org" "ha-config.org")))
-  "List of default projects with a name.")
+  (defvar ha-workspace-projects-personal nil "List of default projects with a name.")
+
+  (add-to-list 'ha-workspace-projects-personal
+               '("projects" "~/projects" ("breathe.org" "tasks.org")))
+  (add-to-list 'ha-workspace-projects-personal
+               '("personal" "~/personal" ("general.org")))
+  (add-to-list 'ha-workspace-projects-personal
+               '("technical" "~/technical" ("ansible.org")))
+  (add-to-list 'ha-workspace-projects-personal
+               '("hamacs" "~/other/hamacs" ("README.org" "ha-config.org")))
 #+END_SRC
 
 Given a list of information about project-workspaces, can we just create them all?