blob: 686ec4792c8af2327a85740ba5e595e25df51e0e (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
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
|
