Add the hl-todo and consult-todo

Along with fixing the cursor color on the form.

ha-config.org

@@ -359,7 +359,7 @@ For this feature, I may want to pull it out into its own file, so as to keep all
 #+end_src
 
 
-** Additional Global Packages
+** Text Expanders and Completion
 The following defines my use of the Emacs completion system. I’ve decided my /rules/ will be:
   - Nothing should automatically appear; that is annoying and distracting.
   - Spelling in org files (abbrev or hippie expander) and code completion are separate, but I’m not sure if I can split them

ha-display.org

@@ -346,18 +346,20 @@ One does get used to a particular collection of colors. After happily using Stev
       (if (eq flexoki-themes-set-theme 'dark)
           (progn
             (set-face-attribute 'default nil   :background "#161514")
-            (set-face-attribute 'region nil :background "#bc5215")
+            (set-face-attribute 'cursor nil :background "#ce5d97")    ; dark-version of magenta
+            (set-face-attribute 'region nil :background "#bc5215")    ; light-version of orange
             (set-face-attribute 'org-block nil :background "#1b1a19")
             (set-face-attribute 'org-block-begin-line nil :background "#1d1c1b")
             (set-face-attribute 'org-block-begin-line nil :background "#1d1c1b"))
 
-        (set-face-attribute 'region nil :background "#da702c")
+        (set-face-attribute 'cursor nil :background "#a02f6f")  ; dark-version of orange
+        (set-face-attribute 'region nil :background "#da702c")  ; dark-version of orange
         (set-face-attribute 'org-block-begin-line nil :foreground "#fffcf0")))
 
     :custom
     (flexoki-themes-set-theme 'dark)
-    (flexoki-themes-use-bold-keywords t)
+    (flexoki-themes-use-bold-keywords nil)
-    (flexoki-themes-use-bold-builtins t)
+    (flexoki-themes-use-bold-builtins nil)
     (flexoki-themes-use-italic-comments t)
 
     :hook (flexoki-themes-after-load-themes . ha-flexoki-themes-update))
@@ -402,6 +404,37 @@ And of course, the default is /inside/ where it is dark and safe:
 #+begin_src emacs-lisp
   (laptop-inside)
 #+end_src
+*** Highlight TODOs
+In code, if you drop a specific /text/ labels, we can highlight them with [[https://github.com/tarsius/hl-todo][hl-todo package]]:
+
+#+begin_src emacs-lisp
+  (use-package hl-todo
+    :straight (:host github :repo "tarsius/hl-todo")
+    :init
+    (setq hl-todo-keyword-faces
+      '(("TODO"   . (face-foreground 'flexoki-themes-orange))
+        ("FIXME"  . (face-foreground 'flexoki-themes-red))
+        ("DEBUG"  . (face-foreground 'flexoki-themes-green))
+        ("NOTE"   . (face-foreground 'flexoki-themes-blue))))
+    (global-hl-todo-mode 1))
+#+end_src
+
+This means that comments like the following visually standout:
+TODO: Attempt to validate that this shows something I need to do.
+
+Suggests to bind some keys to =hl-todo-next= in order to jump from tag to tag, but the [[https://github.com/liuyinz/consult-todo][consult-todo]] implements that in a more visual way:
+
+#+begin_src emacs-lisp
+  (use-package consult-todo
+    :init
+    (defconst consult-todo--narrow
+      '((?t . "TODO")
+        (?f . "FIXME")
+        (?d . "DEBUG")
+        (?n . "NOTE"))
+      "Mapping of narrow and keywords.")
+    :general (:states 'normal "g t" '("jump todos" . consult-todo)))
+#+end_src
 * Full Size Frame
 Taken from [[https://emacsredux.com/blog/2020/12/04/maximize-the-emacs-frame-on-startup/][this essay]], I figured I would start the initial frame automatically in fullscreen, but not any subsequent frames (as this could be part of the capturing system).
 #+begin_src emacs-lisp

initialize

@@ -3,20 +3,24 @@
 #  INITIALIZE the HAMACS SYSTEM
 # ----------------------------------------------------------------------
 
+# shellcheck disable=SC2164
 HAMACS_DIR=$(cd "$(dirname "$0")"; pwd)
 HAMACS_DEST=$HOME/.emacs.d
 
-cd $HAMACS_DIR
+cd "$HAMACS_DIR"
-mkdir -p $HAMACS_DEST
+mkdir -p "$HAMACS_DEST"
 
 for LINK in snippets templates elisp
 do
-    echo Symlinking $HAMACS_DEST/$LINK to $HAMACS_DIR/$LINK ...
+    echo "Symlinking $HAMACS_DEST/$LINK to $HAMACS_DIR/$LINK ..."
-    rm -rf $HAMACS_DEST/$LINK
+    rm -rf "${HAMACS_DEST:-~}/$LINK"
-    ln -s $HAMACS_DIR/$LINK $HAMACS_DEST
+    ln -s "$HAMACS_DIR/$LINK" "$HAMACS_DEST"
 done
 
-cat > $HAMACS_DEST/early-init.el <<EOF
+echo Download the public keys:
+gpg --homedir ~/.emacs.d/elpa/gnupg --receive-keys 066DAFCB81E42C40
+
+cat > "$HAMACS_DEST/early-init.el" <<EOF
 ;;; early-init.el --- Hamacs Early Init -*- lexical-binding: t; -*-
 ;;
 ;;; Commentary:
@@ -43,10 +47,10 @@ EOF
 IFS=":" read -r -a PATH_ARRAY <<< "${PATH}"
 for P in "${PATH_ARRAY[@]}"
 do
-  echo "(add-to-list 'exec-path \"${P}\")" >> $HAMACS_DEST/early-init.el
+  echo "(add-to-list 'exec-path \"${P}\")" >> "$HAMACS_DEST/early-init.el"
 done
 
-cat >> $HAMACS_DEST/early-init.el <<EOF
+cat >> "$HAMACS_DEST/early-init.el" <<EOF
 ;; Local Variables:
 ;; no-byte-compile: t
 ;; no-native-compile: t
@@ -56,10 +60,10 @@ cat >> $HAMACS_DEST/early-init.el <<EOF
 ;;; early-init.el ends here
 EOF
 
-echo Created $HAMACS_DEST/early-init.el
+echo "Created $HAMACS_DEST/early-init.el"
 
 
-cat > $HAMACS_DEST/init.el <<EOF
+cat > "$HAMACS_DEST/init.el" <<EOF
 ;;; init.el --- Hamacs Init -*- lexical-binding: t; -*-
 ;;
 ;;; Commentary:
@@ -75,6 +79,9 @@ cat > $HAMACS_DEST/init.el <<EOF
 ;; Bug fixes for ORG (there always seems to be something):
 (defvar native-comp-deferred-compilation-deny-list nil)
 
+;; Allow the installation of unsigned packages, but verify the signature if possible:
+(setq package-check-signature 'allow-unsigned)
+
 ;; Configure straight https://github.com/raxod502/straight.el#getting-started
 
 (defvar bootstrap-version)
@@ -111,4 +118,4 @@ cat > $HAMACS_DEST/init.el <<EOF
 ;;; init.el ends here
 EOF
 
-echo Created $HAMACS_DEST/init.el
+echo "Created $HAMACS_DEST/init.el"