Minor bug fixes in the display

This commit is contained in:
Howard Abrams 2026-01-06 21:12:22 -08:00
parent a22c1a7ac7
commit ce83073865
2 changed files with 11 additions and 6 deletions

View file

@ -96,6 +96,7 @@ Yet another encrypted chat/VoIP client-server, but unlike Signal and Telegram, [
#+begin_src emacs-lisp #+begin_src emacs-lisp
(use-package ement (use-package ement
:straight (:host github :repo "alphapapa/ement.el") :straight (:host github :repo "alphapapa/ement.el")
:after major-mode-hydra
:config :config
(major-mode-hydra-define ement-room-mode (:quit-key "q") (major-mode-hydra-define ement-room-mode (:quit-key "q")
("Send" ("Send"
@ -117,7 +118,6 @@ Yet another encrypted chat/VoIP client-server, but unlike Signal and Telegram, [
(ement-connect :user-id username (ement-connect :user-id username
:password password :password password
:uri-prefix "https://matrix.org")) :uri-prefix "https://matrix.org"))
(ha-leader (ha-leader
"a x S" '("send" . ement-send-direct-message) "a x S" '("send" . ement-send-direct-message)
"a x s" '("send" . ement-room-send-message) "a x s" '("send" . ement-room-send-message)
@ -186,7 +186,7 @@ In the Telega chats, lets turn on non-fixed-width fonts:
#+end_src #+end_src
* RPG DM * 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]]. 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") (when (f-directory? "~/src/emacs-rpgdm")
(use-package rpgdm (use-package rpgdm
:straight (:local-repo "~/src/emacs-rpgdm") :straight (:local-repo "~/src/emacs-rpgdm")

View file

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