;ELC ;;; Compiled ;;; in Emacs version 24.5.1 ;;; 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\300\303!\210\300\304!\210\300\305!\210\300\306!\210\300\307!\210\300\310!\210\300\311!\210\312\313\314\315\316\303%\210\317\320\321\322\323DD\324\316\313\325\326&\210\317\327\321\322\330DD\331\316\313\325\332&\210\317\333\321\322\334DD\335\316\313\325\336&\210\337\340\341\342\316\313%\210\337\343\344\342\316\313%\210\337\345\346\347\316\313%\210\337\350\351\352\316\313%\210\337\353\354\355\316\313%\210\337\356\357\355\316\313%\210\337\360\361\362\316\313%\207" [require cl-lib bookmark helm helm-help helm-types helm-utils helm-info helm-adaptive helm-net custom-declare-group helm-bookmark nil "Predefined configurations for `helm.el'." :group custom-declare-variable helm-bookmark-show-location funcall function #[0 "\300\207" [nil] 1 "\n\n(fn)"] "Show location of bookmark on display." :type boolean helm-bookmark-default-filtered-sources #[0 "\300\301\302\303!\205\n\304C\305\306D#\207" [append (helm-source-bookmark-files&dirs helm-source-bookmark-helm-find-files helm-source-bookmark-info helm-source-bookmark-gnus helm-source-bookmark-man helm-source-bookmark-images helm-source-bookmark-w3m) locate-library "addressbook-bookmark" helm-source-bookmark-addressbook helm-source-bookmark-uncategorized helm-source-bookmark-set] 5 "\n\n(fn)"] "List of sources to use in `helm-filtered-bookmarks'." (repeat (choice symbol)) helm-bookmark-addressbook-actions #[0 "\300\207" [(("Show Contact(s)" lambda (candidate) (let* ((contacts (helm-marked-candidates)) (current-prefix-arg helm-current-prefix-arg)) (bookmark-jump (helm-bookmark-get-bookmark-from-name (car contacts))) (helm-aif (cdr contacts) (let ((current-prefix-arg '(4))) (cl-loop for bmk in it do (bookmark-jump (helm-bookmark-get-bookmark-from-name bmk))))))) ("Mail To" . helm-bookmark-addressbook-send-mail-1) ("Mail Cc" lambda (_candidate) (helm-bookmark-addressbook-send-mail-1 nil 'cc)) ("Mail Bcc" lambda (_candidate) (helm-bookmark-addressbook-send-mail-1 nil 'bcc)) ("Edit Bookmark" lambda (candidate) (let ((bmk (helm-bookmark-get-bookmark-from-name candidate))) (addressbook-bookmark-edit (assoc bmk bookmark-alist)))) ("Delete bookmark(s)" . helm-delete-marked-bookmarks) ("Insert Email at point" lambda (candidate) (let* ((bmk (helm-bookmark-get-bookmark-from-name candidate)) (mlist (split-string (assoc-default 'email (assoc bmk bookmark-alist)) ", "))) (insert (if (> (length mlist) 1) (helm-comp-read "Insert Mail Address: " mlist :must-match t) (car mlist))))) ("Show annotation" lambda (candidate) (let ((bmk (helm-bookmark-get-bookmark-from-name candidate))) (bookmark-show-annotation bmk))) ("Edit annotation" lambda (candidate) (let ((bmk (helm-bookmark-get-bookmark-from-name candidate))) (bookmark-edit-annotation bmk))) ("Show Google map" lambda (candidate) (let* ((bmk (helm-bookmark-get-bookmark-from-name candidate)) (full-bmk (assoc bmk bookmark-alist))) (addressbook-google-map full-bmk))))] 1 "\n\n(fn)"] "Actions for addressbook bookmarks." (alist :key-type string :value-type function) custom-declare-face helm-bookmark-info ((t (:foreground "green"))) "Face used for W3m Emacs bookmarks (not w3m bookmarks)." helm-bookmark-w3m ((t (:foreground "yellow"))) helm-bookmark-gnus ((t (:foreground "magenta"))) "Face used for Gnus bookmarks." helm-bookmark-man ((t (:foreground "Orange4"))) "Face used for Woman/man bookmarks." helm-bookmark-file ((t (:foreground "Deepskyblue2"))) "Face used for file bookmarks." helm-bookmark-directory ((t (:inherit helm-ff-directory))) helm-bookmark-addressbook ((t (:foreground "tomato"))) "Face used for addressbook bookmarks."] 8) #@44 Generic Keymap for emacs bookmark sources. (defvar helm-bookmark-map (byte-code "\301 \302\"\210\303\304\305#\210\303\306\307#\210\303\310\311#\210\303\312\313#\210\211\207" [helm-map make-sparse-keymap set-keymap-parent define-key "o" helm-bookmark-run-jump-other-window "" helm-bookmark-run-delete "" helm-bookmark-toggle-filename [134217829] helm-bookmark-run-edit] 5) (#$ . 4017)) (byte-code "\300\301\302\303\304$\207" [eieio-defclass helm-source-basic-bookmarks (helm-source-in-buffer helm-type-bookmark) ((init :initform (lambda nil (bookmark-maybe-load-default-file) (helm-init-candidates-in-buffer 'global (bookmark-all-names)))) (filtered-candidate-transformer :initform 'helm-bookmark-transformer) (search :initform 'helm-bookmark-search-fn)) nil] 5) #@32 See (info "(emacs)Bookmarks"). (defvar helm-source-bookmarks (helm-make-source "Bookmarks" 'helm-source-basic-bookmarks) (#$ . 4794)) (defalias 'helm-bookmark-transformer #[514 "\302\211\211\211\211\211:\203f@\262\303!\262\304!\262V\203,\305\"\202-\262\306\307\\GZ\310\"\262 \203Y<\203L@\202NQBB\262\202^B\262A\262\202\211\237\207" [bookmark-bmenu-file-column helm-bookmark-show-location nil bookmark-location string-width helm-substring make-string 2 32] 12 "\n\n(fn CANDIDATES SOURCE)"]) (defalias 'helm-bookmark-toggle-filename-1 #[257 "\303!\304! V\203\305 \"\202\211\306!\n?\307\n\2033\310!\311\310<\203-@\202.!Q\2024!\207" [helm-buffer bookmark-bmenu-file-column helm-bookmark-show-location helm-get-selection string-width helm-substring bookmark-location helm-force-update regexp-quote " +"] 9 "\n\n(fn CANDIDATE)"]) #@44 Toggle bookmark location visibility. (fn) (defalias 'helm-bookmark-toggle-filename #[0 "\203 \301\302\303\"\210\304\302!\207\305\306!\207" [helm-alive-p helm-attrset toggle-filename (helm-bookmark-toggle-filename-1 . never-split) helm-execute-persistent-action error "Running helm command outside of context"] 3 (#$ . 5691) nil]) #@49 Jump to bookmark from keyboard. (fn CANDIDATE) (defalias 'helm-bookmark-jump #[257 "\303\304!*\207" [helm-current-prefix-arg non-essential current-prefix-arg nil bookmark-jump] 3 (#$ . 6030)]) (defalias 'helm-bookmark-jump-other-window #[257 "\301\302!)\207" [non-essential nil bookmark-jump-other-window] 3 "\n\n(fn CANDIDATE)"]) #@32 See (info "(emacs)Bookmarks"). (defvar helm-source-bookmark-set (helm-make-source "Set Bookmark" 'helm-source-dummy :action 'bookmark-set) (#$ . 6374)) #@83 Search function for bookmark sources using `helm-source-in-buffer'. (fn PATTERN) (defalias 'helm-bookmark-search-fn #[257 "\203\301`\302\"\211\205\211b\207\303\304\305#\207" [helm-bookmark-show-location next-single-property-change location re-search-forward nil t] 5 (#$ . 6532)]) #@89 Match part function for bookmark sources using `helm-source-in-buffer'. (fn CANDIDATE) (defalias 'helm-bookmark-match-part-fn #[257 "\205\301!\211\203\302Q\202\207" [helm-bookmark-show-location bookmark-location " "] 5 (#$ . 6826)]) #@59 Name to use for `filename' entry, for non-file bookmarks. (defconst helm-bookmark--non-file-filename " - no file -" (#$ . 7077)) #@113 Return non-nil if BOOKMARK is a Gnus bookmark. BOOKMARK is a bookmark name or a bookmark record. (fn BOOKMARK) (defalias 'helm-bookmark-gnus-bookmark-p #[257 "\300!\301=\206\300!\302=\206\300!\303=\207" [bookmark-get-handler bmkext-jump-gnus gnus-summary-bookmark-jump bookmarkp-jump-gnus] 3 (#$ . 7215)]) #@112 Return non-nil if BOOKMARK is a W3m bookmark. BOOKMARK is a bookmark name or a bookmark record. (fn BOOKMARK) (defalias 'helm-bookmark-w3m-bookmark-p #[257 "\300!\301=\206\300!\302=\206\300!\303=\207" [bookmark-get-handler bmkext-jump-w3m bookmark-w3m-bookmark-jump bookmarkp-jump-w3m] 3 (#$ . 7536)]) #@114 Return non-nil if BOOKMARK is a Woman bookmark. BOOKMARK is a bookmark name or a bookmark record. (fn BOOKMARK) (defalias 'helm-bookmark-woman-bookmark-p #[257 "\300!\301=\206\300!\302=\206\300!\303=\207" [bookmark-get-handler bmkext-jump-woman woman-bookmark-jump bookmarkp-jump-woman] 3 (#$ . 7853)]) #@112 Return non-nil if BOOKMARK is a Man bookmark. BOOKMARK is a bookmark name or a bookmark record. (fn BOOKMARK) (defalias 'helm-bookmark-man-bookmark-p #[257 "\300!\301=\206\300!\302=\206\300!\303=\207" [bookmark-get-handler bmkext-jump-man Man-bookmark-jump bookmarkp-jump-man] 3 (#$ . 8171)]) #@121 Return non-nil if BOOKMARK is a Man or Woman bookmark. BOOKMARK is a bookmark name or a bookmark record. (fn BOOKMARK) (defalias 'helm-bookmark-woman-man-bookmark-p #[257 "\300!\206 \301!\207" [helm-bookmark-man-bookmark-p helm-bookmark-woman-bookmark-p] 3 (#$ . 8479)]) #@114 Return non-nil if BOOKMARK is an Info bookmark. BOOKMARK is a bookmark name or a bookmark record. (fn BOOKMARK) (defalias 'helm-bookmark-info-bookmark-p #[257 "\300!\301=\207" [bookmark-get-handler Info-bookmark-jump] 3 (#$ . 8761)]) #@68 Return non-nil if BOOKMARK bookmarks an image file. (fn BOOKMARK) (defalias 'helm-bookmark-image-bookmark-p #[257 "\211;\203 \301\302\301\"\"\207\301\302\"\207" [bookmark-alist assoc image-type] 6 (#$ . 9003)]) #@195 Return non-nil if BOOKMARK bookmarks a file or directory. BOOKMARK is a bookmark name or a bookmark record. This excludes bookmarks of a more specific kind (Info, Gnus, and W3m). (fn BOOKMARK) (defalias 'helm-bookmark-file-p #[257 "\301!\211\232\205\211?\205\302!?\207" [helm-bookmark--non-file-filename bookmark-get-filename bookmark-get-handler] 5 (#$ . 9226)]) #@132 Return non-nil if BOOKMARK bookmarks a `helm-find-files' session. BOOKMARK is a bookmark name or a bookmark record. (fn BOOKMARK) (defalias 'helm-bookmark-helm-find-files-p #[257 "\300!\301=\207" [bookmark-get-handler helm-ff-bookmark-jump] 3 (#$ . 9606)]) #@143 Return non--nil if BOOKMARK is a contact recorded with addressbook-bookmark. BOOKMARK is a bookmark name or a bookmark record. (fn BOOKMARK) (defalias 'helm-bookmark-addressbook-p #[257 "\211<\203\f\301\302\"\303\230\207\301\302\304\"\"\303\230\207" [bookmark-alist assoc-default type "addressbook" assoc] 6 (#$ . 9872)]) #@69 Return non--nil if BOOKMARK match no known category. (fn BOOKMARK) (defalias 'helm-bookmark-uncategorized-bookmark-p #[257 "\300\301\302:\203@\262!?\211\262\203A\262\202\211\205\"\302\207" [(helm-bookmark-addressbook-p helm-bookmark-gnus-bookmark-p helm-bookmark-w3m-bookmark-p helm-bookmark-woman-man-bookmark-p helm-bookmark-info-bookmark-p helm-bookmark-image-bookmark-p helm-bookmark-file-p helm-bookmark-helm-find-files-p helm-bookmark-addressbook-p) nil t] 6 (#$ . 10205)]) #@68 Return a filtered `bookmark-alist' sorted alphabetically. (fn FN) (defalias 'helm-bookmark-filter-setup-alist #[257 "\301\211:\203@\262!\203B\262A\262\202\211\237\266\203\211\301\211\211:\203E@\262@\262\302\303\304!#B\262A\262\202&\211\237\207" [bookmark-alist nil propertize location bookmark-location] 11 (#$ . 10707)]) #@154 Jump to W3m bookmark BOOKMARK, setting a new tab. If `browse-url-browser-function' is set to something else than `w3m-browse-url' use it. (fn BOOKMARK) (defalias 'helm-bookmark-jump-w3m #[257 "\302\303!\210\304\305\"\206\304\306\"\307\310!\311\312\232\313\"\210\211\205-\314\315\316B\317!BB!)\207" [browse-url-browser-function w3m-async-exec require helm-net bookmark-prop-get filename url generate-new-buffer-name "*w3m*" nil w3m-browse-url helm-browse-url bookmark-default-handler "" buffer bookmark-get-bookmark-record] 10 (#$ . 11067)]) (byte-code "\300\301\302\"\210\300\303\304\"\210\300\305\306\"\210\300\307\302\"\210\300\310\311\"\210\300\312\311\"\210\300\313\302\"\210\300\314\304\"\210\300\315\306\"\210\316\317\320\321#\207" [defalias bookmark-w3m-bookmark-jump helm-bookmark-jump-w3m bmkext-jump-woman woman-bookmark-jump bmkext-jump-man Man-bookmark-jump bmkext-jump-w3m bmkext-jump-gnus gnus-summary-bookmark-jump bookmarkp-jump-gnus bookmarkp-jump-w3m bookmarkp-jump-woman bookmarkp-jump-man byte-code "\300\301\302\303\304$\207" [eieio-defclass helm-source-filtered-bookmarks (helm-source-in-buffer helm-type-bookmark) ((search :initform #'helm-bookmark-search-fn) (match-part :initform #'helm-bookmark-match-part-fn) (filtered-candidate-transformer :initform '(helm-adaptive-sort helm-highlight-bookmark))) nil] 5] 4) #@54 Specialized filter function for bookmarks w3m. (fn) (defalias 'helm-bookmark-w3m-setup-alist #[0 "\300\301!\207" [helm-bookmark-filter-setup-alist helm-bookmark-w3m-bookmark-p] 2 (#$ . 12424)]) (defvar helm-source-bookmark-w3m (helm-make-source "Bookmark W3m" 'helm-source-filtered-bookmarks :init #[0 "\300 \210\301\302\303 \"\207" [bookmark-maybe-load-default-file helm-init-candidates-in-buffer global helm-bookmark-w3m-setup-alist] 3 "\n\n(fn)"])) #@57 Specialized filter function for images bookmarks. (fn) (defalias 'helm-bookmark-images-setup-alist #[0 "\300\301!\207" [helm-bookmark-filter-setup-alist helm-bookmark-image-bookmark-p] 2 (#$ . 12883)]) (defvar helm-source-bookmark-images (helm-make-source "Bookmark Images" 'helm-source-filtered-bookmarks :init #[0 "\300 \210\301\302\303 \"\207" [bookmark-maybe-load-default-file helm-init-candidates-in-buffer global helm-bookmark-images-setup-alist] 3 "\n\n(fn)"])) #@54 Specialized filter function for bookmarks w3m. (fn) (defalias 'helm-bookmark-man-setup-alist #[0 "\300\301!\207" [helm-bookmark-filter-setup-alist helm-bookmark-woman-man-bookmark-p] 2 (#$ . 13359)]) (defvar helm-source-bookmark-man (helm-make-source "Bookmark Woman&Man" 'helm-source-filtered-bookmarks :init #[0 "\300 \210\301\302\303 \"\207" [bookmark-maybe-load-default-file helm-init-candidates-in-buffer global helm-bookmark-man-setup-alist] 3 "\n\n(fn)"])) #@55 Specialized filter function for bookmarks gnus. (fn) (defalias 'helm-bookmark-gnus-setup-alist #[0 "\300\301!\207" [helm-bookmark-filter-setup-alist helm-bookmark-gnus-bookmark-p] 2 (#$ . 13830)]) (defvar helm-source-bookmark-gnus (helm-make-source "Bookmark Gnus" 'helm-source-filtered-bookmarks :init #[0 "\300 \210\301\302\303 \"\207" [bookmark-maybe-load-default-file helm-init-candidates-in-buffer global helm-bookmark-gnus-setup-alist] 3 "\n\n(fn)"])) #@55 Specialized filter function for bookmarks info. (fn) (defalias 'helm-bookmark-info-setup-alist #[0 "\300\301!\207" [helm-bookmark-filter-setup-alist helm-bookmark-info-bookmark-p] 2 (#$ . 14295)]) (defvar helm-source-bookmark-info (helm-make-source "Bookmark Info" 'helm-source-filtered-bookmarks :init #[0 "\300 \210\301\302\303 \"\207" [bookmark-maybe-load-default-file helm-init-candidates-in-buffer global helm-bookmark-info-setup-alist] 3 "\n\n(fn)"])) #@63 Specialized filter function for bookmarks locals files. (fn) (defalias 'helm-bookmark-local-files-setup-alist #[0 "\300\301!\207" [helm-bookmark-filter-setup-alist helm-bookmark-file-p] 2 (#$ . 14760)]) (defvar helm-source-bookmark-files&dirs (helm-make-source "Bookmark Files&Directories" 'helm-source-filtered-bookmarks :init #[0 "\300 \210\301\302\303 \"\207" [bookmark-maybe-load-default-file helm-init-candidates-in-buffer global helm-bookmark-local-files-setup-alist] 3 "\n\n(fn)"])) #@68 Specialized filter function for `helm-find-files' bookmarks. (fn) (defalias 'helm-bookmark-helm-find-files-setup-alist #[0 "\300\301!\207" [helm-bookmark-filter-setup-alist helm-bookmark-helm-find-files-p] 2 (#$ . 15257)]) (defvar helm-source-bookmark-helm-find-files (helm-make-source "Bookmark helm-find-files sessions" 'helm-source-filtered-bookmarks :init #[0 "\300 \210\301\302\303 \"\207" [bookmark-maybe-load-default-file helm-init-candidates-in-buffer global helm-bookmark-helm-find-files-setup-alist] 3 "\n\n(fn)"])) #@64 Specialized filter function for uncategorized bookmarks. (fn) (defalias 'helm-bookmark-uncategorized-setup-alist #[0 "\300\301!\207" [helm-bookmark-filter-setup-alist helm-bookmark-uncategorized-bookmark-p] 2 (#$ . 15790)]) (defvar helm-source-bookmark-uncategorized (helm-make-source "Bookmark uncategorized" 'helm-source-filtered-bookmarks :init #[0 "\300 \210\301\302\303 \"\207" [bookmark-maybe-load-default-file helm-init-candidates-in-buffer global helm-bookmark-uncategorized-setup-alist] 3 "\n\n(fn)"])) (byte-code "\300\301\302\303\304$\207" [eieio-defclass helm-bookmark-addressbook-class (helm-source-in-buffer) ((init :initform (lambda nil (require 'addressbook-bookmark nil t) (bookmark-maybe-load-default-file) (helm-init-candidates-in-buffer 'global (helm-bookmark-addressbook-setup-alist)))) (search :initform #'helm-bookmark-search-fn) (match-part :initform #'helm-bookmark-match-part-fn) (persistent-action :initform (lambda (candidate) (let ((bmk (helm-bookmark-get-bookmark-from-name candidate))) (bookmark--jump-via bmk 'switch-to-buffer)))) (persistent-help :initform "Show contact - Prefix with C-u to append") (filtered-candidate-transformer :initform '(helm-adaptive-sort helm-highlight-bookmark)) (action :initform 'helm-bookmark-addressbook-actions)) nil] 5) (defalias 'helm-bookmark-addressbook-send-mail-1 #[513 "\300 \301@!\302 \303\"\210A\211\205>\203\303@\304#\210\211A\304:\203;@\262\303\301!\305 #\210A\262\202\"\304\266\202\262\207" [helm-marked-candidates helm-bookmark-get-bookmark-from-name message-buffers addressbook-set-mail-buffer-1 nil append] 12 "\n\n(fn CANDIDATE &optional CC)"]) #@62 Specialized filter function for addressbook bookmarks. (fn) (defalias 'helm-bookmark-addressbook-setup-alist #[0 "\300\301!\207" [helm-bookmark-filter-setup-alist helm-bookmark-addressbook-p] 2 (#$ . 17444)]) (defvar helm-source-bookmark-addressbook (helm-make-source "Bookmark Addressbook" 'helm-bookmark-addressbook-class)) #@156 Used as `filtered-candidate-transformer' to colorize bookmarks. Work both with standard Emacs bookmarks and bookmark-extensions.el. (fn BOOKMARKS SOURCE) (defalias 'helm-highlight-bookmark #[514 "\303\304\211\211\211\211\211\211\211\211\211\211\211\211\211\211\211\211:\203s@\262\305!\262\306!\262\307\310!\2055\310!\262\307\311!\205A\311!\262 \307\312!\205M\312!\262\f\307\313!\205Y\313!\262 \307\314!\205e\314!\262\n\315!\262 \316\317\"\320\230\262 \321=\262\322!\262\323!\262 \203\232\nV\203\232\324\n\"\202\234\262\203\270\325\230\204\270\326 \203\263\202\265P\262 \205\307\327\n\330\\\323!Z\331\"\262\203\331\332\333\334\335%\202F\f\203\351\332\333\336\335%\202F \203\371\332\333\337\335%\202F \204\n\203\332\333\340\335%\202F\203\332\333\341#\202F\203>\2043\342!\204>\343!\203>\332\333\344\335%\202F\332\333\345\335%\262 \203c<\203Z@\202\\QB\202gBB\262A\262\202\211\237\266\222)\207" [non-essential helm-bookmark-show-location bookmark-bmenu-file-column t nil bookmark-get-filename helm-bookmark-helm-find-files-p fboundp bookmark-get-handler helm-bookmark-w3m-bookmark-p helm-bookmark-gnus-bookmark-p helm-bookmark-man-bookmark-p helm-bookmark-woman-bookmark-p bookmark-get-annotation bookmark-prop-get type "addressbook" Info-bookmark-jump bookmark-location string-width helm-substring "" "*" make-string 2 32 propertize face helm-bookmark-info help-echo helm-bookmark-w3m helm-bookmark-gnus helm-bookmark-man helm-bookmark-addressbook file-remote-p file-directory-p helm-bookmark-directory helm-bookmark-file] 26 (#$ . 17778)]) #@149 Edit bookmark's name and file name, and maybe save them. BOOKMARK-NAME is the current (old) name of the bookmark to be renamed. (fn BOOKMARK-NAME) (defalias 'helm-bookmark-edit-bookmark #[257 "\301!\302\303\"\211\304=\203\305\306\"!\202\307\"\207" [bookmark-alist helm-bookmark-get-bookmark-from-name bookmark-prop-get handler addressbook-bookmark-jump addressbook-bookmark-edit assoc helm-bookmark-edit-bookmark-1] 7 (#$ . 19470)]) (defalias 'helm-bookmark-edit-bookmark-1 #[514 "\301\302!\303\304\"\305\306\"\305\307\206:\203@\202\"\310=\205*\311\312A\"\211\2033B\262\313\232?\205p\313\232?\205p\314\315!\205p\203Z\316\317#\210\320\"\210\202j\321\322!\304#\210\316\317#\210\323 \210D)\207" [helm--reading-passwd-or-string t bookmark-get-filename bookmark-prop-get location read-from-minibuffer "Name: " "FileName or Location: " mu4e-bookmark-jump read-number "Docid: " "" y-or-n-p "Save changes? " helm-bookmark-rename batch bookmark-set-filename bookmark-prop-set bookmark-get-bookmark helm-bookmark-maybe-save-bookmark] 11 "\n\n(fn BOOKMARK-NAME HANDLER)"]) #@63 Increment save counter and maybe save `bookmark-alist'. (fn) (defalias 'helm-bookmark-maybe-save-bookmark #[0 "T\301 \205\n\302 \207" [bookmark-alist-modification-count bookmark-time-to-save-p bookmark-save] 1 (#$ . 20591)]) #@418 Change bookmark's name from OLD to NEW. Interactively: If called from the keyboard, then prompt for OLD. If called from the menubar, select OLD from a menu. If NEW is nil, then prompt for its string value. If BATCH is non-nil, then do not rebuild the menu list. While the user enters the new name, repeated `C-w' inserts consecutive words from the buffer into the new bookmark name. (fn OLD &optional NEW BATCH) (defalias 'helm-bookmark-rename #[769 "\305\306!\204\nB\307 \210\212\310\311w\210`)p\206-\312\313\311\314 !\315\316\317#\210\211\262\311\300%\320\"\210\211\204;\321 \210\322 \210\211\207" [bookmark-history bookmark-yank-point bookmark-current-buffer minibuffer-local-map bookmark-current-bookmark called-interactively-p interactive bookmark-maybe-load-default-file " " nil read-from-minibuffer "New name: " copy-keymap define-key "" bookmark-yank-word bookmark-set-name bookmark-bmenu-surreptitiously-rebuild-list helm-bookmark-maybe-save-bookmark] 11 (#$ . 20827) (byte-code "\300\301!C\207" [bookmark-completing-read "Old bookmark name"] 2)]) #@56 Run `helm-bookmark-edit-bookmark' from keyboard. (fn) (defalias 'helm-bookmark-run-edit #[0 "\203\301\302!\207\303\304!\207" [helm-alive-p helm-exit-and-execute-action helm-bookmark-edit-bookmark error "Running helm command outside of context"] 2 (#$ . 21911) nil]) (byte-code "\301\302\303\304\305\306\307\310\311\312\313\314\315\316\317\320\321\322\323\324\325&B\326BE\327#\207" [helm-bookmark-map define-helm-type-attribute bookmark (coerce . helm-bookmark-get-bookmark-from-name) action helm-make-actions "Jump to bookmark" helm-bookmark-jump "Jump to BM other window" helm-bookmark-jump-other-window "Bookmark edit annotation" bookmark-edit-annotation "Bookmark show annotation" bookmark-show-annotation "Delete bookmark(s)" helm-delete-marked-bookmarks "Edit Bookmark" helm-bookmark-edit-bookmark "Rename bookmark" helm-bookmark-rename "Relocate bookmark" bookmark-relocate keymap "Bookmark name."] 21) #@39 Jump to bookmark from keyboard. (fn) (defalias 'helm-bookmark-run-jump-other-window #[0 "\203\301\302!\207\303\304!\207" [helm-alive-p helm-exit-and-execute-action bookmark-jump-other-window error "Running helm command outside of context"] 2 (#$ . 22832) nil]) #@38 Delete bookmark from keyboard. (fn) (defalias 'helm-bookmark-run-delete #[0 "\203\301\302!\205\303\304!\207\305\306!\207" [helm-alive-p y-or-n-p "Delete bookmark(s)?" helm-exit-and-execute-action helm-delete-marked-bookmarks error "Running helm command outside of context"] 2 (#$ . 23103) nil]) #@96 Return bookmark name even if it is a bookmark with annotation. e.g prepended with *. (fn BMK) (defalias 'helm-bookmark-get-bookmark-from-name #[257 "\301\302\303#\304\"\203\211\202\207" [bookmark-alist replace-regexp-in-string "\\`\\*" "" assoc] 5 (#$ . 23410)]) #@60 Delete this bookmark or all marked bookmarks. (fn IGNORE) (defalias 'helm-delete-marked-bookmarks #[257 "\300 \211\205\211@\301\302!\303\"\210A\266\202\202\207" [helm-marked-candidates bookmark-delete helm-bookmark-get-bookmark-from-name batch] 6 (#$ . 23688)]) #@43 Preconfigured `helm' for bookmarks. (fn) (defalias 'helm-bookmarks #[0 "\301\302\303\304\305\306\307!&\207" [helm-current-buffer helm :sources (helm-source-bookmarks helm-source-bookmark-set) :buffer "*helm bookmarks*" :default buffer-name] 8 (#$ . 23963) nil]) #@188 Preconfigured helm for bookmarks (filtered by category). Optional source `helm-source-bookmark-addressbook' is loaded only if external library addressbook-bookmark.el is available. (fn) (defalias 'helm-filtered-bookmarks #[0 "\302\303\304\305\306\307\310\311\312!\313 !D&\207" [helm-bookmark-default-filtered-sources helm-current-buffer helm :sources :prompt "Search Bookmark: " :buffer "*helm filtered bookmarks*" :default thing-at-point symbol buffer-name] 11 (#$ . 24235) nil]) (provide 'helm-bookmark)