1 files changed, 27 insertions, 0 deletions
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