ement: fix commandp error — move defuns outside after! block
Functions defined inside (after! ement ...) are not registered as interactive commands by Doom. Move my/ement-maybe-restore and my/ement-open to top level. Also move add-hook from inside after! to top level (after-init-hook fires before lazy packages load — use doom-after-init-hook instead).
This commit is contained in:
15
config.el
15
config.el
@@ -880,22 +880,25 @@ Keeps the status bar and tab bar fully visible at any zoom level.")
|
|||||||
(setq ement-notify-mentions-p t
|
(setq ement-notify-mentions-p t
|
||||||
ement-notify-dingalings-p nil) ; no sound
|
ement-notify-dingalings-p nil) ; no sound
|
||||||
|
|
||||||
;; Auto-connect on startup: restore saved session without prompting for credentials.
|
) ; end after! ement
|
||||||
;; Activates only when session file exists (requires one manual ement-connect first).
|
|
||||||
(defun my/ement-maybe-restore ()
|
;; Defined outside after! so Doom registers them as proper interactive commands.
|
||||||
|
(defun my/ement-maybe-restore ()
|
||||||
"Restore saved ement session silently (no credentials prompt)."
|
"Restore saved ement session silently (no credentials prompt)."
|
||||||
|
(require 'ement)
|
||||||
(when (file-exists-p (expand-file-name ement-sessions-file))
|
(when (file-exists-p (expand-file-name ement-sessions-file))
|
||||||
(ement-connect :user-id "@martin:sukany.cz")))
|
(ement-connect :user-id "@martin:sukany.cz")))
|
||||||
|
|
||||||
;; Open Matrix panel: restore/connect if needed, then show room list.
|
(defun my/ement-open ()
|
||||||
(defun my/ement-open ()
|
|
||||||
"Switch to Matrix: reconnect if needed, then open room list."
|
"Switch to Matrix: reconnect if needed, then open room list."
|
||||||
(interactive)
|
(interactive)
|
||||||
|
(require 'ement)
|
||||||
(if (and (boundp 'ement-sessions) ement-sessions)
|
(if (and (boundp 'ement-sessions) ement-sessions)
|
||||||
(ement-list-rooms)
|
(ement-list-rooms)
|
||||||
(my/ement-maybe-restore)))
|
(my/ement-maybe-restore)))
|
||||||
|
|
||||||
(add-hook 'after-init-hook #'my/ement-maybe-restore))
|
;; Auto-connect on Emacs startup (outside after! — ement may be deferred)
|
||||||
|
(add-hook 'doom-after-init-hook #'my/ement-maybe-restore)
|
||||||
|
|
||||||
;; Keybindings under SPC o M (uppercase M — o m is taken by mu4e)
|
;; Keybindings under SPC o M (uppercase M — o m is taken by mu4e)
|
||||||
(map! :leader
|
(map! :leader
|
||||||
|
|||||||
Reference in New Issue
Block a user