diff --git a/ha-aux-apps.org b/ha-aux-apps.org index 435d350..221076f 100644 --- a/ha-aux-apps.org +++ b/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") diff --git a/ha-display.org b/ha-display.org index 1f08fb8..e25dd27 100644 --- a/ha-display.org +++ b/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: