| commit | author | age | ||
| 5cb5f7 | 1 | ;ELC |
| C | 2 | ;;; Compiled |
| 3 | ;;; in Emacs version 26.1 | |
| 4 | ;;; with all optimizations. | |
| 5 | ||
| 6 | ;;; This file uses dynamic docstrings, first added in Emacs 19.29. | |
| 7 | ||
| 8 | ;;; This file does not contain utf-8 non-ASCII characters, | |
| 9 | ;;; and so can be loaded in Emacs versions earlier than 23. | |
| 10 | ||
| 11 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | |
| 12 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | |
| 13 | ||
| 14 | ||
| 15 | (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\300\312!\210\313\314\315\316\317\303%\210\320\321\322\323\324DD\325\317\314\326\327&\210\320\330\322\323\331DD\332\317\314\326\333&\210\334\335\336\337\317\314%\210\334\340\341\337\317\314%\210\334\342\343\344\317\314%\210\334\345\346\347\317\314%\210\334\350\351\352\317\314%\210\334\353\354\352\317\314%\210\334\355\356\352\317\314%\210\334\357\360\361\317\314%\207" [require cl-lib bookmark helm helm-lib 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] "Show location of bookmark on display." :type boolean helm-bookmark-default-filtered-sources #[0 "\300\301\302\303D\"\207" [append (helm-source-bookmark-org 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) helm-source-bookmark-uncategorized helm-source-bookmark-set] 4] "List of sources to use in `helm-filtered-bookmarks'." (repeat (choice symbol)) 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-file-not-found ((t (:foreground "Slategray4"))) helm-bookmark-directory ((t (:inherit helm-ff-directory))) helm-bookmark-addressbook ((t (:foreground "tomato"))) "Face used for addressbook bookmarks."] 8) | |
| 16 | #@44 Generic Keymap for emacs bookmark sources. | |
| 17 | (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\303\314\315#\210\211\207" [helm-map make-sparse-keymap set-keymap-parent define-key "o" helm-bookmark-run-jump-other-window "" helm-bookmark-run-jump-other-frame "" helm-bookmark-run-delete " " helm-bookmark-toggle-filename [134217829] helm-bookmark-run-edit] 5) (#$ . 2338)) | |
| 18 | (byte-code "\300\301\302\303!\"\210\300\304\305\303!\"\210\300\306\304\"\210\307\306\310\311#\210\312\303\313\304#\314\303\315\316\317$\207" [defalias helm-source-basic-bookmarks-p eieio-make-class-predicate helm-source-basic-bookmarks helm-source-basic-bookmarks--eieio-childp eieio-make-child-predicate helm-source-basic-bookmarks-child-p make-obsolete "use (cl-typep ... \\='helm-source-basic-bookmarks) instead" "25.1" define-symbol-prop cl-deftype-satisfies eieio-defclass-internal (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)) nil] 6) | |
| 19 | #@84 Create a new object of class type `helm-source-basic-bookmarks'. | |
| 20 | ||
| 21 | (fn &rest SLOTS) | |
| 22 | (defalias 'helm-source-basic-bookmarks #[128 "\300\301\302#\207" [apply make-instance helm-source-basic-bookmarks] 5 (#$ . 3533)]) | |
| 23 | (byte-code "\300\301\302\303#\300\207" [function-put helm-source-basic-bookmarks compiler-macro helm-source-basic-bookmarks--anon-cmacro] 4) | |
| 24 | #@26 | |
| 25 | ||
| 26 | (fn WHOLE &rest SLOTS) | |
| 27 | (defalias 'helm-source-basic-bookmarks--anon-cmacro #[385 "\211@;\204 \207\300\301\302@@#@\303@DABB\"\207" [macroexp--warn-and-return format "Obsolete name arg %S to constructor %S" identity] 7 (#$ . 3895)]) | |
| 28 | #@32 See (info "(emacs)Bookmarks"). | |
| 29 | (defvar helm-source-bookmarks (helm-make-source "Bookmarks" 'helm-source-basic-bookmarks) (#$ . 4141)) | |
| 30 | #@26 | |
| 31 | ||
| 32 | (fn CANDIDATES SOURCE) | |
| 33 | (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 @\202N QBB\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 (#$ . 4281)]) | |
| 34 | #@18 | |
| 35 | ||
| 36 | (fn CANDIDATE) | |
| 37 | (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\2026 \310!!\207" [helm-buffer bookmark-bmenu-file-column helm-bookmark-show-location helm-get-selection string-width helm-substring bookmark-location helm-update regexp-quote " +"] 9 (#$ . 4700)]) | |
| 38 | #@38 Toggle bookmark location visibility. | |
| 39 | (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 (#$ . 5065) nil]) | |
| 40 | (put 'helm-bookmark-toggle-filename 'helm-only t) | |
| 41 | #@42 Jump to bookmark action. | |
| 42 | ||
| 43 | (fn CANDIDATE) | |
| 44 | (defalias 'helm-bookmark-jump #[257 "\303\304!*\207" [helm-current-prefix-arg non-essential current-prefix-arg nil bookmark-jump] 3 (#$ . 5448)]) | |
| 45 | #@57 Jump to bookmark in other frame action. | |
| 46 | ||
| 47 | (fn CANDIDATE) | |
| 48 | (defalias 'helm-bookmark-jump-other-frame #[257 "\303\304\305\"*\207" [helm-current-prefix-arg non-essential current-prefix-arg nil bookmark-jump switch-to-buffer-other-frame] 4 (#$ . 5645)]) | |
| 49 | #@58 Jump to bookmark in other window action. | |
| 50 | ||
| 51 | (fn CANDIDATE) | |
| 52 | (defalias 'helm-bookmark-jump-other-window #[257 "\301\302!)\207" [non-essential nil bookmark-jump-other-window] 3 (#$ . 5903)]) | |
| 53 | #@32 See (info "(emacs)Bookmarks"). | |
| 54 | (defvar helm-source-bookmark-set (helm-make-source "Set Bookmark" 'helm-source-dummy :filtered-candidate-transformer #[514 "\301\230\204\n \206 \302C\207" [helm-pattern #1="" "Enter a bookmark name to record"] 4 "\n\n(fn CANDIDATES SOURCE)"] :action '(("Set bookmark" lambda (candidate) (if (string= helm-pattern #1#) (message "No bookmark name given for record") (bookmark-set candidate))))) (#$ . 6097)) | |
| 55 | #@59 Name to use for `filename' entry, for non-file bookmarks. | |
| 56 | (defconst helm-bookmark--non-file-filename " - no file -" (#$ . 6543)) | |
| 57 | #@113 Return non-nil if BOOKMARK is a Gnus bookmark. | |
| 58 | BOOKMARK is a bookmark name or a bookmark record. | |
| 59 | ||
| 60 | (fn BOOKMARK) | |
| 61 | (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 (#$ . 6681)]) | |
| 62 | #@112 Return non-nil if BOOKMARK is a W3m bookmark. | |
| 63 | BOOKMARK is a bookmark name or a bookmark record. | |
| 64 | ||
| 65 | (fn BOOKMARK) | |
| 66 | (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 (#$ . 7002)]) | |
| 67 | #@114 Return non-nil if BOOKMARK is a Woman bookmark. | |
| 68 | BOOKMARK is a bookmark name or a bookmark record. | |
| 69 | ||
| 70 | (fn BOOKMARK) | |
| 71 | (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 (#$ . 7319)]) | |
| 72 | #@112 Return non-nil if BOOKMARK is a Man bookmark. | |
| 73 | BOOKMARK is a bookmark name or a bookmark record. | |
| 74 | ||
| 75 | (fn BOOKMARK) | |
| 76 | (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 (#$ . 7637)]) | |
| 77 | #@121 Return non-nil if BOOKMARK is a Man or Woman bookmark. | |
| 78 | BOOKMARK is a bookmark name or a bookmark record. | |
| 79 | ||
| 80 | (fn BOOKMARK) | |
| 81 | (defalias 'helm-bookmark-woman-man-bookmark-p #[257 "\300!\206 \301!\207" [helm-bookmark-man-bookmark-p helm-bookmark-woman-bookmark-p] 3 (#$ . 7945)]) | |
| 82 | #@114 Return non-nil if BOOKMARK is an Info bookmark. | |
| 83 | BOOKMARK is a bookmark name or a bookmark record. | |
| 84 | ||
| 85 | (fn BOOKMARK) | |
| 86 | (defalias 'helm-bookmark-info-bookmark-p #[257 "\300!\301=\207" [bookmark-get-handler Info-bookmark-jump] 3 (#$ . 8227)]) | |
| 87 | #@68 Return non-nil if BOOKMARK bookmarks an image file. | |
| 88 | ||
| 89 | (fn BOOKMARK) | |
| 90 | (defalias 'helm-bookmark-image-bookmark-p #[257 "\211;\203 \301\236\236\207\301\236\207" [bookmark-alist image-type] 4 (#$ . 8469)]) | |
| 91 | #@195 Return non-nil if BOOKMARK bookmarks a file or directory. | |
| 92 | BOOKMARK is a bookmark name or a bookmark record. | |
| 93 | This excludes bookmarks of a more specific kind (Info, Gnus, and W3m). | |
| 94 | ||
| 95 | (fn BOOKMARK) | |
| 96 | (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 (#$ . 8680)]) | |
| 97 | #@17 | |
| 98 | ||
| 99 | (fn BOOKMARK) | |
| 100 | (defalias 'helm-bookmark-org-file-p #[257 "\300!\301\302\303#\206 \301\304\303#\207" [bookmark-get-filename string-suffix-p ".org" t ".org_archive"] 6 (#$ . 9059)]) | |
| 101 | #@132 Return non-nil if BOOKMARK bookmarks a `helm-find-files' session. | |
| 102 | BOOKMARK is a bookmark name or a bookmark record. | |
| 103 | ||
| 104 | (fn BOOKMARK) | |
| 105 | (defalias 'helm-bookmark-helm-find-files-p #[257 "\300!\301=\207" [bookmark-get-handler helm-ff-bookmark-jump] 3 (#$ . 9251)]) | |
| 106 | #@143 Return non--nil if BOOKMARK is a contact recorded with addressbook-bookmark. | |
| 107 | BOOKMARK is a bookmark name or a bookmark record. | |
| 108 | ||
| 109 | (fn BOOKMARK) | |
| 110 | (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 (#$ . 9517)]) | |
| 111 | #@69 Return non--nil if BOOKMARK match no known category. | |
| 112 | ||
| 113 | (fn BOOKMARK) | |
| 114 | (defalias 'helm-bookmark-uncategorized-bookmark-p #[257 "\300\301\302:\203 @\262!?\211\262\203 A\262\202 \211\205\" \302\207" [(helm-bookmark-org-file-p 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 (#$ . 9850)]) | |
| 115 | #@68 Return a filtered `bookmark-alist' sorted alphabetically. | |
| 116 | ||
| 117 | (fn FN) | |
| 118 | (defalias 'helm-bookmark-filter-setup-alist #[257 "\301\211\211:\203) @\262@\262!\203\" \302\303\304!#B\262A\262\202 \211\237\207" [bookmark-alist nil propertize location bookmark-location] 10 (#$ . 10376)]) | |
| 119 | #@154 Jump to W3m bookmark BOOKMARK, setting a new tab. | |
| 120 | If `browse-url-browser-function' is set to something else | |
| 121 | than `w3m-browse-url' use it. | |
| 122 | ||
| 123 | (fn BOOKMARK) | |
| 124 | (defalias 'helm-bookmark-jump-w3m #[257 "\302\303!\210\304\305\"\206 \304\306\"\307\310!\311\312\313!\203$ \314\315!\203$ \313\202% \211\313\232\316\"\210\211\205> \317\320\321B\322!BB!*\207" [w3m-async-exec browse-url-browser-function require helm-net bookmark-prop-get filename url generate-new-buffer-name "*w3m*" nil fboundp w3m-browse-url executable-find "w3m" helm-browse-url bookmark-default-handler "" buffer bookmark-get-bookmark-record] 10 (#$ . 10673)]) | |
| 125 | (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\300\316\317\320!\"\210\300\321\322\320!\"\210\300\323\321\"\210\324\323\325\326#\210\327\320\330\321#\331\320\332\333\334$\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 helm-source-filtered-bookmarks-p eieio-make-class-predicate helm-source-filtered-bookmarks helm-source-filtered-bookmarks--eieio-childp eieio-make-child-predicate helm-source-filtered-bookmarks-child-p make-obsolete "use (cl-typep ... \\='helm-source-filtered-bookmarks) instead" "25.1" define-symbol-prop cl-deftype-satisfies eieio-defclass-internal (helm-source-in-buffer helm-type-bookmark) ((filtered-candidate-transformer :initform '(helm-adaptive-sort helm-highlight-bookmark))) nil] 6) | |
| 126 | #@87 Create a new object of class type `helm-source-filtered-bookmarks'. | |
| 127 | ||
| 128 | (fn &rest SLOTS) | |
| 129 | (defalias 'helm-source-filtered-bookmarks #[128 "\300\301\302#\207" [apply make-instance helm-source-filtered-bookmarks] 5 (#$ . 12375)]) | |
| 130 | (byte-code "\300\301\302\303#\300\207" [function-put helm-source-filtered-bookmarks compiler-macro helm-source-filtered-bookmarks--anon-cmacro] 4) | |
| 131 | #@26 | |
| 132 | ||
| 133 | (fn WHOLE &rest SLOTS) | |
| 134 | (defalias 'helm-source-filtered-bookmarks--anon-cmacro #[385 "\211@;\204 \207\300\301\302@@#@\303@DABB\"\207" [macroexp--warn-and-return format "Obsolete name arg %S to constructor %S" identity] 7 (#$ . 12753)]) | |
| 135 | #@48 Specialized filter function for bookmarks w3m. | |
| 136 | (defalias 'helm-bookmark-w3m-setup-alist #[0 "\300\301!\207" [helm-bookmark-filter-setup-alist helm-bookmark-w3m-bookmark-p] 2 (#$ . 13003)]) | |
| 137 | (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])) | |
| 138 | #@51 Specialized filter function for images bookmarks. | |
| 139 | (defalias 'helm-bookmark-images-setup-alist #[0 "\300\301!\207" [helm-bookmark-filter-setup-alist helm-bookmark-image-bookmark-p] 2 (#$ . 13445)]) | |
| 140 | (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])) | |
| 141 | #@48 Specialized filter function for bookmarks w3m. | |
| 142 | (defalias 'helm-bookmark-man-setup-alist #[0 "\300\301!\207" [helm-bookmark-filter-setup-alist helm-bookmark-woman-man-bookmark-p] 2 (#$ . 13904)]) | |
| 143 | (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])) | |
| 144 | #@53 Specialized filter function for Org file bookmarks. | |
| 145 | (defalias 'helm-bookmark-org-setup-alist #[0 "\300\301!\207" [helm-bookmark-filter-setup-alist helm-bookmark-org-file-p] 2 (#$ . 14358)]) | |
| 146 | (defvar helm-source-bookmark-org (helm-make-source " Bookmarked Org files" '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-org-setup-alist] 3])) | |
| 147 | #@49 Specialized filter function for bookmarks gnus. | |
| 148 | (defalias 'helm-bookmark-gnus-setup-alist #[0 "\300\301!\207" [helm-bookmark-filter-setup-alist helm-bookmark-gnus-bookmark-p] 2 (#$ . 14810)]) | |
| 149 | (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])) | |
| 150 | #@49 Specialized filter function for bookmarks info. | |
| 151 | (defalias 'helm-bookmark-info-setup-alist #[0 "\300\301!\207" [helm-bookmark-filter-setup-alist helm-bookmark-info-bookmark-p] 2 (#$ . 15258)]) | |
| 152 | (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])) | |
| 153 | #@57 Specialized filter function for bookmarks locals files. | |
| 154 | (defalias 'helm-bookmark-local-files-setup-alist #[0 "\300\301!\207" [helm-bookmark-filter-setup-alist helm-bookmark-file-p] 2 (#$ . 15706)]) | |
| 155 | (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])) | |
| 156 | #@62 Specialized filter function for `helm-find-files' bookmarks. | |
| 157 | (defalias 'helm-bookmark-helm-find-files-setup-alist #[0 "\300\301!\207" [helm-bookmark-filter-setup-alist helm-bookmark-helm-find-files-p] 2 (#$ . 16186)]) | |
| 158 | #@56 Run `helm-browse-project' from action. | |
| 159 | ||
| 160 | (fn CANDIDATE) | |
| 161 | (defalias 'helm-bookmark-browse-project #[257 "\301!\203 \302\301!!\206 \303\304!)\207" [default-directory bookmark-get-filename file-name-as-directory helm-browse-project nil] 4 (#$ . 16410)]) | |
| 162 | #@51 Run `helm-bookmark-browse-project' from keyboard. | |
| 163 | (defalias 'helm-bookmark-run-browse-project #[0 "\203 \301\302!\207\303\304!\207" [helm-alive-p helm-exit-and-execute-action helm-bookmark-browse-project error "Running helm command outside of context"] 2 (#$ . 16671) nil]) | |
| 164 | (put 'helm-bookmark-run-browse-project 'helm-only t) | |
| 165 | (defvar helm-bookmark-find-files-map (byte-code "\301 \302\"\210\303\304\305#\210\211\207" [helm-bookmark-map make-sparse-keymap set-keymap-parent define-key "" helm-bookmark-run-browse-project] 5)) | |
| 166 | (byte-code "\300\301\302\303!\"\210\300\304\305\303!\"\210\300\306\304\"\210\307\306\310\311#\210\312\303\313\304#\314\303\315\316\211$\207" [defalias helm-bookmark-override-inheritor-p eieio-make-class-predicate helm-bookmark-override-inheritor helm-bookmark-override-inheritor--eieio-childp eieio-make-child-predicate helm-bookmark-override-inheritor-child-p make-obsolete "use (cl-typep ... \\='helm-bookmark-override-inheritor) instead" "25.1" define-symbol-prop cl-deftype-satisfies eieio-defclass-internal (helm-source) nil] 6) | |
| 167 | #@89 Create a new object of class type `helm-bookmark-override-inheritor'. | |
| 168 | ||
| 169 | (fn &rest SLOTS) | |
| 170 | (defalias 'helm-bookmark-override-inheritor #[128 "\300\301\302#\207" [apply make-instance helm-bookmark-override-inheritor] 5 (#$ . 17744)]) | |
| 171 | (byte-code "\300\301\302\303#\300\207" [function-put helm-bookmark-override-inheritor compiler-macro helm-bookmark-override-inheritor--anon-cmacro] 4) | |
| 172 | #@26 | |
| 173 | ||
| 174 | (fn WHOLE &rest SLOTS) | |
| 175 | (defalias 'helm-bookmark-override-inheritor--anon-cmacro #[385 "\211@;\204 \207\300\301\302@@#@\303@DABB\"\207" [macroexp--warn-and-return format "Obsolete name arg %S to constructor %S" identity] 7 (#$ . 18132)]) | |
| 176 | (byte-code "\300\301\302\301\303\"\"\210\304\301\303\305\306$\210\307\310\311\312!\"\210\307\313\314\312!\"\210\307\315\313\"\210\316\315\317\320#\210\321\312\322\313#\323\312\324\303\211$\207" [eieio--defalias helm--setup-source eieio--defgeneric-init-form nil eieio--defmethod helm-bookmark-override-inheritor #[257 "\302 \210\211\303\304\305\306\211\211:\2031 @\262\211A\262\242\262\307>\204* BB\262A\262\202\f \211\237\266\204\310\311##\266\211\303\312 #\207" [helm-type-bookmark-actions helm-bookmark-find-files-map call-next-method eieio-oset action helm-append-at-nth nil (helm-bookmark-jump-other-frame helm-bookmark-jump-other-window) (("Browse project" . helm-bookmark-browse-project)) 1 keymap] 12 "\n\n(fn SOURCE)"] defalias helm-bookmark-find-files-class-p eieio-make-class-predicate helm-bookmark-find-files-class helm-bookmark-find-files-class--eieio-childp eieio-make-child-predicate helm-bookmark-find-files-class-child-p make-obsolete "use (cl-typep ... \\='helm-bookmark-find-files-class) instead" "25.1" define-symbol-prop cl-deftype-satisfies eieio-defclass-internal (helm-source-filtered-bookmarks helm-bookmark-override-inheritor)] 6) | |
| 177 | #@87 Create a new object of class type `helm-bookmark-find-files-class'. | |
| 178 | ||
| 179 | (fn &rest SLOTS) | |
| 180 | (defalias 'helm-bookmark-find-files-class #[128 "\300\301\302#\207" [apply make-instance helm-bookmark-find-files-class] 5 (#$ . 19559)]) | |
| 181 | (byte-code "\300\301\302\303#\300\207" [function-put helm-bookmark-find-files-class compiler-macro helm-bookmark-find-files-class--anon-cmacro] 4) | |
| 182 | #@26 | |
| 183 | ||
| 184 | (fn WHOLE &rest SLOTS) | |
| 185 | (defalias 'helm-bookmark-find-files-class--anon-cmacro #[385 "\211@;\204 \207\300\301\302@@#@\303@DABB\"\207" [macroexp--warn-and-return format "Obsolete name arg %S to constructor %S" identity] 7 (#$ . 19937)]) | |
| 186 | (defvar helm-source-bookmark-helm-find-files (helm-make-source "Bookmark helm-find-files sessions" 'helm-bookmark-find-files-class :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] :persistent-action #[257 "\300\207" [nil] 2 "\n\n(fn CANDIDATE)"] :persistent-help "Do nothing")) | |
| 187 | #@58 Specialized filter function for uncategorized bookmarks. | |
| 188 | (defalias 'helm-bookmark-uncategorized-setup-alist #[0 "\300\301!\207" [helm-bookmark-filter-setup-alist helm-bookmark-uncategorized-bookmark-p] 2 (#$ . 20575)]) | |
| 189 | (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])) | |
| 190 | #@88 Used as `filtered-candidate-transformer' to colorize bookmarks. | |
| 191 | ||
| 192 | (fn BOOKMARKS SOURCE) | |
| 193 | (defalias 'helm-highlight-bookmark #[514 "\303\304\211\211\211\211\211\211\211\211\211\211\211\211\211\211\211\211:\203\300@\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\265 P\262 \205\307 \327\n\330\\\323!Z\331\"\262\203\331 \332\333\334\335%\202\223\f\203\351 \332\333\336\335%\202\223 \203\371 \332\333\337\335%\202\223 \204\n\203\332\333\340\335%\202\223\203\332\333\341#\202\223\203F\342!\203;\342\304\303#\204;\332\333\343\335%\202\223\332\333\344\335%\202\223\203d\342!\204d\345!\203d\332\333\344\335%\202\223\203\213\342!\203y\342\304\303#\203\200\346!\204\213\332\333\343\335%\202\223\332\333\347\335%\262 \203\260<\203\247@\202\251QB\202\264BB\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 helm-bookmark-file-not-found helm-bookmark-directory file-directory-p file-exists-p helm-bookmark-file] 26 (#$ . 21077)]) | |
| 194 | #@149 Edit bookmark's name and file name, and maybe save them. | |
| 195 | BOOKMARK-NAME is the current (old) name of the bookmark to be renamed. | |
| 196 | ||
| 197 | (fn BOOKMARK-NAME) | |
| 198 | (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 (#$ . 22961)]) | |
| 199 | #@30 | |
| 200 | ||
| 201 | (fn BOOKMARK-NAME HANDLER) | |
| 202 | (defalias 'helm-bookmark-edit-bookmark-1 #[514 "\301\302!\303\304\"\305\306\"\305\307\206 :\203 @\202 \"\310=\205* \311\312A\"\211\2033 B\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 (#$ . 23411)]) | |
| 203 | #@57 Increment save counter and maybe save `bookmark-alist'. | |
| 204 | (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 (#$ . 24097)]) | |
| 205 | #@418 Change bookmark's name from OLD to NEW. | |
| 206 | Interactively: | |
| 207 | If called from the keyboard, then prompt for OLD. | |
| 208 | If called from the menubar, select OLD from a menu. | |
| 209 | If NEW is nil, then prompt for its string value. | |
| 210 | ||
| 211 | If BATCH is non-nil, then do not rebuild the menu list. | |
| 212 | ||
| 213 | While the user enters the new name, repeated `C-w' inserts consecutive | |
| 214 | words from the buffer into the new bookmark name. | |
| 215 | ||
| 216 | (fn OLD &optional NEW BATCH) | |
| 217 | (defalias 'helm-bookmark-rename #[769 "\305\306!\204\n B\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 (#$ . 24327) (byte-code "\300\301!C\207" [bookmark-completing-read "Old bookmark name"] 2)]) | |
| 218 | #@50 Run `helm-bookmark-edit-bookmark' from keyboard. | |
| 219 | (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 (#$ . 25411) nil]) | |
| 220 | (put 'helm-bookmark-run-edit 'helm-only t) | |
| 221 | #@45 Jump to bookmark other frame from keyboard. | |
| 222 | (defalias 'helm-bookmark-run-jump-other-frame #[0 "\203 \301\302!\207\303\304!\207" [helm-alive-p helm-exit-and-execute-action helm-bookmark-jump-other-frame error "Running helm command outside of context"] 2 (#$ . 25724) nil]) | |
| 223 | (put 'helm-bookmark-run-jump-other-frame 'helm-only t) | |
| 224 | #@33 Jump to bookmark from keyboard. | |
| 225 | (defalias 'helm-bookmark-run-jump-other-window #[0 "\203 \301\302!\207\303\304!\207" [helm-alive-p helm-exit-and-execute-action helm-bookmark-jump-other-window error "Running helm command outside of context"] 2 (#$ . 26059) nil]) | |
| 226 | (put 'helm-bookmark-run-jump-other-window 'helm-only t) | |
| 227 | #@32 Delete bookmark from keyboard. | |
| 228 | (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 (#$ . 26385) nil]) | |
| 229 | (put 'helm-bookmark-run-delete 'helm-only t) | |
| 230 | #@96 Return bookmark name even if it is a bookmark with annotation. | |
| 231 | e.g prepended with *. | |
| 232 | ||
| 233 | (fn BMK) | |
| 234 | (defalias 'helm-bookmark-get-bookmark-from-name #[257 "\301\302\303#\304\"\203 \211\202 \207" [bookmark-alist replace-regexp-in-string "\\`\\*" "" assoc] 5 (#$ . 26731)]) | |
| 235 | #@60 Delete this bookmark or all marked bookmarks. | |
| 236 | ||
| 237 | (fn IGNORE) | |
| 238 | (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 (#$ . 27009)]) | |
| 239 | #@37 Preconfigured `helm' for bookmarks. | |
| 240 | (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 (#$ . 27284) nil]) | |
| 241 | #@179 Preconfigured helm for bookmarks (filtered by category). | |
| 242 | Optional source `helm-source-bookmark-addressbook' is loaded | |
| 243 | only if external addressbook-bookmark package is installed. | |
| 244 | (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 (#$ . 27550) nil]) | |
| 245 | (provide 'helm-bookmark) | |
