Minor bug fixes in the display

ha-aux-apps.org

@@ -96,6 +96,7 @@ Yet another encrypted chat/VoIP client-server, but unlike Signal and Telegram, [
 #+begin_src emacs-lisp
   (use-package ement
     :straight (:host github :repo "alphapapa/ement.el")
+    :after major-mode-hydra
     :config
     (major-mode-hydra-define ement-room-mode (:quit-key "q")
       ("Send"
@@ -117,7 +118,6 @@ Yet another encrypted chat/VoIP client-server, but unlike Signal and Telegram, [
         (ement-connect :user-id username
                        :password password
                        :uri-prefix "https://matrix.org"))
-
       (ha-leader
           "a x S" '("send" . ement-send-direct-message)
           "a x s" '("send" . ement-room-send-message)
@@ -186,7 +186,7 @@ In the Telega chat’s, let’s turn on non-fixed-width fonts:
 #+end_src
 * RPG DM
 Been working on my [[https://gitlab.com/howardabrams/emacs-rpgdm][RPG DM project]] for getting Emacs helping as a /Dungeon Master's Assistant/. The idea is to be able to roll dice and whatnot. What I find most useful is the [[https://gitlab.com/howardabrams/emacs-rpgdm/-/blob/main/rpgdm-tables.el][random tables]].
-#+begin_src emacs-lisp
+#+begin_src emacs-lisp :tangle no
   (when (f-directory? "~/src/emacs-rpgdm")
     (use-package rpgdm
       :straight (:local-repo "~/src/emacs-rpgdm")

ha-display.org

@@ -444,10 +444,15 @@ This replaces the /title generator/ for [[file:ha-config.org::*Leader Sequences]
 #+BEGIN_SRC emacs-lisp
   (setq major-mode-hydra-title-generator
         '(lambda (&optional mode)
-           (let ((title (major-mode-hydra-title mode)))
-             (s-concat                  ; (s-repeat 5 " ")
-              (nerd-icons-icon-for-mode (or mode major-mode) :v-adjust 0.05)
-              " " title " Commands"))))
+           (unless mode (setq mode major-mode))
+           (let ((title (major-mode-hydra-title mode))
+                 (default (nerd-icons-mdicon "nf-md-apple_keyboard_command"
+                                           :v-adjust 0.05))
+                 (icon (nerd-icons-icon-for-mode (or mode major-mode)
+                                               :v-adjust 0.05)))
+
+             (concat (if (eq icon mode) default icon)
+                     " " title " Commands"))))
 #+END_SRC
 
 Transition: