mirror of https://github.com/Chizi123/.emacs.d.git

Chizi123
2018-11-18 8f6f2705a38e2515b6c57fda12c5be29fb9a798f
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
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
;ELC
;;; Compiled
;;; in Emacs version 26.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\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)
#@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\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))
(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)
#@84 Create a new object of class type `helm-source-basic-bookmarks'.
 
(fn &rest SLOTS)
(defalias 'helm-source-basic-bookmarks #[128 "\300\301\302#\207" [apply make-instance helm-source-basic-bookmarks] 5 (#$ . 3533)])
(byte-code "\300\301\302\303#\300\207" [function-put helm-source-basic-bookmarks compiler-macro helm-source-basic-bookmarks--anon-cmacro] 4)
#@26 
 
(fn WHOLE &rest SLOTS)
(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)])
#@32 See (info "(emacs)Bookmarks").
(defvar helm-source-bookmarks (helm-make-source "Bookmarks" 'helm-source-basic-bookmarks) (#$ . 4141))
#@26 
 
(fn CANDIDATES SOURCE)
(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 (#$ . 4281)])
#@18 
 
(fn CANDIDATE)
(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 Toggle bookmark location visibility.
(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])
(put 'helm-bookmark-toggle-filename 'helm-only t)
#@42 Jump to bookmark action.
 
(fn CANDIDATE)
(defalias 'helm-bookmark-jump #[257 "\303\304!*\207" [helm-current-prefix-arg non-essential current-prefix-arg nil bookmark-jump] 3 (#$ . 5448)])
#@57 Jump to bookmark in other frame action.
 
(fn CANDIDATE)
(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)])
#@58 Jump to bookmark in other window action.
 
(fn CANDIDATE)
(defalias 'helm-bookmark-jump-other-window #[257 "\301\302!)\207" [non-essential nil bookmark-jump-other-window] 3 (#$ . 5903)])
#@32 See (info "(emacs)Bookmarks").
(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))
#@59 Name to use for `filename' entry, for non-file bookmarks.
(defconst helm-bookmark--non-file-filename "   - no file -" (#$ . 6543))
#@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 (#$ . 6681)])
#@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 (#$ . 7002)])
#@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 (#$ . 7319)])
#@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 (#$ . 7637)])
#@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 (#$ . 7945)])
#@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 (#$ . 8227)])
#@68 Return non-nil if BOOKMARK bookmarks an image file.
 
(fn BOOKMARK)
(defalias 'helm-bookmark-image-bookmark-p #[257 "\211;\203 \301\236\236\207\301\236\207" [bookmark-alist image-type] 4 (#$ . 8469)])
#@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 (#$ . 8680)])
#@17 
 
(fn BOOKMARK)
(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)])
#@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 (#$ . 9251)])
#@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 (#$ . 9517)])
#@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-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)])
#@68 Return a filtered `bookmark-alist' sorted alphabetically.
 
(fn FN)
(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)])
#@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\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)])
(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)
#@87 Create a new object of class type `helm-source-filtered-bookmarks'.
 
(fn &rest SLOTS)
(defalias 'helm-source-filtered-bookmarks #[128 "\300\301\302#\207" [apply make-instance helm-source-filtered-bookmarks] 5 (#$ . 12375)])
(byte-code "\300\301\302\303#\300\207" [function-put helm-source-filtered-bookmarks compiler-macro helm-source-filtered-bookmarks--anon-cmacro] 4)
#@26 
 
(fn WHOLE &rest SLOTS)
(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)])
#@48 Specialized filter function for bookmarks w3m.
(defalias 'helm-bookmark-w3m-setup-alist #[0 "\300\301!\207" [helm-bookmark-filter-setup-alist helm-bookmark-w3m-bookmark-p] 2 (#$ . 13003)])
(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]))
#@51 Specialized filter function for images bookmarks.
(defalias 'helm-bookmark-images-setup-alist #[0 "\300\301!\207" [helm-bookmark-filter-setup-alist helm-bookmark-image-bookmark-p] 2 (#$ . 13445)])
(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]))
#@48 Specialized filter function for bookmarks w3m.
(defalias 'helm-bookmark-man-setup-alist #[0 "\300\301!\207" [helm-bookmark-filter-setup-alist helm-bookmark-woman-man-bookmark-p] 2 (#$ . 13904)])
(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]))
#@53 Specialized filter function for Org file bookmarks.
(defalias 'helm-bookmark-org-setup-alist #[0 "\300\301!\207" [helm-bookmark-filter-setup-alist helm-bookmark-org-file-p] 2 (#$ . 14358)])
(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]))
#@49 Specialized filter function for bookmarks gnus.
(defalias 'helm-bookmark-gnus-setup-alist #[0 "\300\301!\207" [helm-bookmark-filter-setup-alist helm-bookmark-gnus-bookmark-p] 2 (#$ . 14810)])
(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]))
#@49 Specialized filter function for bookmarks info.
(defalias 'helm-bookmark-info-setup-alist #[0 "\300\301!\207" [helm-bookmark-filter-setup-alist helm-bookmark-info-bookmark-p] 2 (#$ . 15258)])
(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]))
#@57 Specialized filter function for bookmarks locals files.
(defalias 'helm-bookmark-local-files-setup-alist #[0 "\300\301!\207" [helm-bookmark-filter-setup-alist helm-bookmark-file-p] 2 (#$ . 15706)])
(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]))
#@62 Specialized filter function for `helm-find-files' bookmarks.
(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)])
#@56 Run `helm-browse-project' from action.
 
(fn CANDIDATE)
(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)])
#@51 Run `helm-bookmark-browse-project' from keyboard.
(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])
(put 'helm-bookmark-run-browse-project 'helm-only t)
(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))
(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)
#@89 Create a new object of class type `helm-bookmark-override-inheritor'.
 
(fn &rest SLOTS)
(defalias 'helm-bookmark-override-inheritor #[128 "\300\301\302#\207" [apply make-instance helm-bookmark-override-inheritor] 5 (#$ . 17744)])
(byte-code "\300\301\302\303#\300\207" [function-put helm-bookmark-override-inheritor compiler-macro helm-bookmark-override-inheritor--anon-cmacro] 4)
#@26 
 
(fn WHOLE &rest SLOTS)
(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)])
(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)
#@87 Create a new object of class type `helm-bookmark-find-files-class'.
 
(fn &rest SLOTS)
(defalias 'helm-bookmark-find-files-class #[128 "\300\301\302#\207" [apply make-instance helm-bookmark-find-files-class] 5 (#$ . 19559)])
(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)
#@26 
 
(fn WHOLE &rest SLOTS)
(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)])
(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"))
#@58 Specialized filter function for uncategorized bookmarks.
(defalias 'helm-bookmark-uncategorized-setup-alist #[0 "\300\301!\207" [helm-bookmark-filter-setup-alist helm-bookmark-uncategorized-bookmark-p] 2 (#$ . 20575)])
(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]))
#@88 Used as `filtered-candidate-transformer' to colorize bookmarks.
 
(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:\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\265P\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)])
#@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 (#$ . 22961)])
#@30 
 
(fn BOOKMARK-NAME HANDLER)
(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 (#$ . 23411)])
#@57 Increment save counter and maybe save `bookmark-alist'.
(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)])
#@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 (#$ . 24327) (byte-code "\300\301!C\207" [bookmark-completing-read "Old bookmark name"] 2)])
#@50 Run `helm-bookmark-edit-bookmark' from keyboard.
(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])
(put 'helm-bookmark-run-edit 'helm-only t)
#@45 Jump to bookmark other frame from keyboard.
(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])
(put 'helm-bookmark-run-jump-other-frame 'helm-only t)
#@33 Jump to bookmark from keyboard.
(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])
(put 'helm-bookmark-run-jump-other-window 'helm-only t)
#@32 Delete bookmark from keyboard.
(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])
(put 'helm-bookmark-run-delete 'helm-only t)
#@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 (#$ . 26731)])
#@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 (#$ . 27009)])
#@37 Preconfigured `helm' for bookmarks.
(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])
#@179 Preconfigured helm for bookmarks (filtered by category).
Optional source `helm-source-bookmark-addressbook' is loaded
only if external addressbook-bookmark package is installed.
(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])
(provide 'helm-bookmark)