From cc47c443a3f86aa66d2719ee57c0e6e728ee655e Mon Sep 17 00:00:00 2001 From: Dylan Date: Thu, 22 Oct 2026 13:02:16 +1300 Subject: feat: Included the emacs config Some packages are built with nix and some are still built with emacs --- .../emacs/config/lisp/jabber-bookmark-jump.el | 27 ++++++++++++++++++++++ 1 file changed, 27 insertions(+) create mode 100644 modules/home-manager/emacs/config/lisp/jabber-bookmark-jump.el (limited to 'modules/home-manager/emacs/config/lisp/jabber-bookmark-jump.el') diff --git a/modules/home-manager/emacs/config/lisp/jabber-bookmark-jump.el b/modules/home-manager/emacs/config/lisp/jabber-bookmark-jump.el new file mode 100644 index 0000000..686ec47 --- /dev/null +++ b/modules/home-manager/emacs/config/lisp/jabber-bookmark-jump.el @@ -0,0 +1,27 @@ +;;; package --- jabber.el +;;; commentary: +;;; not really sure how i'm supposed to format this + + +;;; CODE: + +(defun jabber-bookmark-jump (bookmark) + "Opens muc bookmark BOOKMARK." + (interactive (list (completing-read "Bookmark: " + (let ((acc (fsm-get-state-data (jabber-read-account))) + (names)) + (dolist (elem + (gethash (plist-get acc :original-jid) jabber-bookmarks)) + (setq names (cons (list (cdr (car (nth 1 elem)))) names))) + names)))) + (let ((acc (fsm-get-state-data (jabber-read-account))) + (nick)) + (dolist (elem + (gethash (plist-get acc :original-jid) jabber-bookmarks)) + (if (equal (cdr (car (nth 1 elem))) bookmark) + (setq nick (nth 2 (nth 2 elem))))) + (jabber-muc-join (jabber-read-account) bookmark nick t))) + +(provide 'jabber-bookmark-jump) + +;;; jabber-bookmark-jump.el ends here -- cgit v1.3.1