;ELC ;;; Compiled ;;; in Emacs version 26.3 ;;; with all optimizations. ;;; This file uses dynamic docstrings, first added in Emacs 19.29. ;;; This file does not contain utf-8 non-ASCII characters, ;;; and so can be loaded in Emacs versions earlier than 23. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\300\301!\210\300\302!\210\303\304\305\306\305\307%\210\303\310\305\311\305\312%\210\303\304\305\313\305\314%\210\303\310\305\315\305\316%\207" [require speedbar eieio-speedbar cl-generic-define-method eieio-speedbar-description nil ((this rudel-user)) #[257 "\300\301\302!\"\207" [format "User %s" object-name-string] 5 "Provide a speedbar description for OBJ.\n\n(fn THIS)"] eieio-speedbar-object-buttonname ((this rudel-user)) #[257 "\300\301\302!\"\207" [format "%s" object-name-string] 5 "Return a string to use as a speedbar button for OBJECT.\n\n(fn THIS)"] ((this rudel-document)) #[257 "\300\301\302!\"\207" [format "Document %s" object-name-string] 5 "Construct a description for from the name of document object THIS.\n\n(fn THIS)"] ((this rudel-document)) #[257 "\300!\207" [rudel-unique-name] 3 "Return a string to use as a speedbar button for OBJECT.\n\n(fn THIS)"]] 6) #@48 Make the generic object based speedbar keymap. (defalias 'rudel-speedbar-make-map #[0 "\300 \207" [speedbar-make-specialized-keymap] 1 (#$ . 1308)]) #@49 A generic object based speedbar display keymap. (defvar rudel-speedbar-key-map (rudel-speedbar-make-map) (#$ . 1463)) #@71 Menu part in easymenu format used in speedbar while browsing objects. (defvar rudel-speedbar-menu '(["Subscribe" #'ignore t]) (#$ . 1587)) #@132 Return a list of objects to display in speedbar. Argument DIR is the directory from which to derive the list of objects. (fn DIR) (defalias 'rudel-speedbar-toplevel-buttons #[257 "\205\301\302\303\"\302\304\"\"\262\207" [rudel-current-session append slot-value users documents] 7 (#$ . 1733)]) (eieio-speedbar-create 'rudel-speedbar-make-map 'rudel-speedbar-key-map 'rudel-speedbar-menu "Collaboration Session" 'rudel-speedbar-toplevel-buttons) #@76 Show connected users and available documents of Rudel session in speedbar. (defalias 'rudel-speedbar #[0 "\300\301!\210\302\303!\210\304 \207" [speedbar-frame-mode 1 speedbar-change-initial-expansion-list "Collaboration Session" speedbar-get-focus] 2 (#$ . 2192) nil]) (provide 'rudel-speedbar)