| 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\304\305\306\307\310\302%\210\311\312\313\314\315DD\316\317\320\310\305&\210\311\321\313\314\322DD\323\310\305\317\324&\210\325\326\327\306#\210\330\211\203Z \211@\326N\203S \327N\204S \331\327\326N#\210A\266\202\2029 \210\332\326\327\333#\210\311\327\313\314\334DD\335\310\305\317\336&\210\311\337\313\314\340DD\341\310\305\317\342&\210\311\343\313\314\344DD\345\310\305\317\336&\210\311\346\313\314\347DD\350\310\305\317\351&\210\311\352\313\314\353DD\354\310\305\317\314&\207" [require cl-lib helm helm-help custom-declare-group helm-utils nil "Utilities routines for Helm." :group custom-declare-variable helm-su-or-sudo funcall function #[0 "\300\207" [#1="sudo"] 1 #1#] "What command to use for root access." :type string helm-default-kbsize #[0 "\300\207" [1024.0] 1] "Default Kbsize to use for showing files size.\nIt is a float, usually 1024.0 but could be 1000.0 on some systems." float defvaralias helm-highlight-number-lines-around-point helm-highlight-matches-around-point-max-lines (saved-value saved-variable-comment) put make-obsolete-variable "20160119" #[0 "\300\207" [15] 1] "Number of lines around point where matched items are highlighted." integer helm-buffers-to-resize-on-pa #[0 "\300\207" [nil] 1] "A list of helm buffers where the helm-window should be reduced on persistent actions." (repeat (choice string)) helm-resize-on-pa-text-height #[0 "\300\207" [12] 1] "The size of the helm-window when resizing on persistent action." helm-sources-using-help-echo-popup #[0 "\300\207" [("Moccur" "Imenu in all buffers" "Ack-Grep" "AG" "RG" "Gid" "Git-Grep")] 1] "Show the buffer name or the filename in a popup at selection." (repeat (choice string)) helm-html-decode-entities-function #[0 "\300\207" [helm-html-decode-entities-string] 1] "Function used to decode html entities in html bookmarks.\nHelm comes by default with `helm-html-decode-entities-string', if you need something\nmore sophisticated you can use `w3m-decode-entities-string' if available.\n\nIn emacs itself org-entities seems broken and `xml-substitute-numeric-entities'\nsupports only numeric entities."] 8) | |
| 16 | #@511 Run before jumping to line. | |
| 17 | This hook run when jumping from `helm-goto-line', `helm-etags-default-action', | |
| 18 | and `helm-imenu-default-action'. | |
| 19 | This allow you to retrieve a previous position after using the different helm | |
| 20 | tools for searching (etags, grep, gid, (m)occur etc...). | |
| 21 | By default positions are added to `mark-ring' you can also add to register | |
| 22 | by using instead (or adding) `helm-save-pos-to-register-before-jump'. | |
| 23 | In this case last position is added to the register | |
| 24 | `helm-save-pos-before-jump-register'. | |
| 25 | (defvar helm-goto-line-before-hook '(helm-save-current-pos-to-mark-ring) (#$ . 2571)) | |
| 26 | #@75 The register where `helm-save-pos-to-register-before-jump' save position. | |
| 27 | (defvar helm-save-pos-before-jump-register 95 (#$ . 3173)) | |
| 28 | #@46 Table of html character entities and values. | |
| 29 | (defconst helm-html-entities-alist '((""" . 34) (">" . 62) ("<" . 60) ("&" . 38) ("€" . 8364) ("Ÿ" . 89) ("¡" . 161) ("¢" . 162) ("£" . 163) ("¤" . 164) ("¥" . 165) ("¦" . 166) ("§" . 167) ("¨" . 32) ("©" . 169) ("ª" . 97) ("«" . 171) ("¬" . 172) ("&masr;" . 174) ("°" . 176) ("±" . 177) ("²" . 50) ("³" . 51) ("´" . 39) ("µ" . 956) ("¶" . 182) ("·" . 183) ("¸" . 32) ("¹" . 49) ("º" . 111) ("»" . 187) ("¼" . 49) ("½" . 49) ("¾" . 51) ("¿" . 191) ("À" . 192) ("Á" . 193) ("Â" . 194) ("Ã" . 195) ("Ä" . 196) ("Å" . 197) ("&Aelig" . 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) ("ö" . 246) ("÷" . 247) ("ø" . 248) ("ù" . 249) ("ú" . 250) ("û" . 251) ("ü" . 252) ("ý" . 253) ("þ" . 254) ("ÿ" . 255) ("®" . 174) ("­" . 173)) (#$ . 3312)) | |
| 30 | #@49 Hook that run at end of `helm-find-many-files'. | |
| 31 | (defvar helm-find-many-files-after-hook nil (#$ . 5209)) | |
| 32 | (byte-code "\300\301\302\303\304\305%\210\300\306\307\310\304\305%\210\311\312\313\314\315DD\316\304\317\320\321&\210\311\322\313\314\323DD\324\304\317\320\325&\207" [custom-declare-face helm-selection-line ((t (:inherit highlight :distant-foreground "black"))) "Face used in the `helm-current-buffer' when jumping to candidate." :group helm-faces helm-match-item ((t (:inherit isearch))) "Face used to highlight item matched in a selected line." custom-declare-variable helm-window-prefer-horizontal-split funcall function #[0 "\300\207" [nil] 1] "Maybe switch to other window vertically when non nil.\n\nPossible values are t, nil and `decide'.\n\nWhen t switch vertically.\nWhen nil switch horizontally.\nWhen `decide' try to guess if it is possible to switch vertically\naccording to the setting of `split-width-threshold' and the size of\nthe window from where splitting is done.\n\nNote that when using `decide' and `split-width-threshold' is nil, the\nbehavior is the same that with a nil value." helm-utils :type (choice (const :tag "Split window vertically" t) (const :tag "Split window horizontally" nil) (symbol :tag "Guess how to split window" 'decide)) helm-window-show-buffers-function #[0 "\300\207" [helm-window-default-split-fn] 1] "The default function to use when opening several buffers at once.\nIt is typically used to rearrange windows." (choice (function :tag "Split windows vertically or horizontally" helm-window-default-split-fn) (function :tag "Split in alternate windows" helm-window-alternate-split-fn) (function :tag "Split windows in mosaic" helm-window-mosaic-fn))] 8) | |
| 33 | #@278 Show BUFFERS. | |
| 34 | ||
| 35 | If more than one buffer marked switch to these buffers in separate windows. | |
| 36 | If OTHER-WINDOW is non-nil, keep current buffer and switch to others buffers | |
| 37 | in separate windows. | |
| 38 | If a prefix arg is given split windows vertically. | |
| 39 | ||
| 40 | (fn BUFFERS &optional OTHER-WINDOW) | |
| 41 | (defalias 'helm-window-show-buffers #[513 "\301 A\203\n \302\202 \303A\203 \205 \"\202* \203& \211@!\202* \304@!\207" [helm-window-show-buffers-function window-list switch-to-buffer-other-window helm-window-other-window switch-to-buffer] 6 (#$ . 6925)]) | |
| 42 | #@292 Split windows in one direction and balance them. | |
| 43 | ||
| 44 | Direction can be controlled via `helm-window-prefer-horizontal-split'. | |
| 45 | If a prefix arg is given split windows the other direction. | |
| 46 | This function is suitable for `helm-window-show-buffers-function'. | |
| 47 | ||
| 48 | (fn CANDIDATES &optional OTHER-WINDOW-FN) | |
| 49 | (defalias 'helm-window-default-split-fn #[513 "\211\203\f \211@!\210\202 \300@!\210\301 r\302\303\304\305\306!\307\"\310$\216\311A\311\312\311:\203] @\262\203? \313\314!\262\311\211\262\202@ \312\203] \3151O \316\317\"0\202U \312\262\311\262\210A\262\202& \266\204*\207" [switch-to-buffer internal--before-save-selected-window make-byte-code 0 "\301\300!\207" vconcat vector [internal--after-save-selected-window] 2 nil t message "Too many buffers to visit simultaneously" (error) helm-window-other-window balance] 11 (#$ . 7474)]) | |
| 50 | #@307 Split windows horizontally and vertically in alternate fashion. | |
| 51 | ||
| 52 | Direction can be controlled via `helm-window-prefer-horizontal-split'. | |
| 53 | If a prefix arg is given split windows the other direction. | |
| 54 | This function is suitable for `helm-window-show-buffers-function'. | |
| 55 | ||
| 56 | (fn CANDIDATES &optional OTHER-WINDOW-FN) | |
| 57 | (defalias 'helm-window-alternate-split-fn #[513 "\211\203\f \211@!\210\202 \301@!\210\302\303 r\304\305\306\307\310!\311\"\312$\216\302A\302\313\302:\203h @\262\203@ \314\315!\262\302\211\262\202A \313\203h \3161Z \317!\210?\211\262)0\202` \313\262\302\262\210A\262\202' \266\204*\262\207" [helm-current-prefix-arg switch-to-buffer nil internal--before-save-selected-window make-byte-code 0 "\301\300!\207" vconcat vector [internal--after-save-selected-window] 2 t message "Too many buffers to visit simultaneously" (error) helm-window-other-window] 11 (#$ . 8320)]) | |
| 58 | #@406 Make an as-square-as-possible window mosaic of the CANDIDATES buffers. | |
| 59 | ||
| 60 | If rectangular, the long side is in the direction given by | |
| 61 | `helm-window-prefer-horizontal-split': if non-nil, it is horizontal, vertical | |
| 62 | otherwise. | |
| 63 | If OTHER-WINDOW-FN is non-nil, current windows are included in the mosaic. | |
| 64 | This function is suitable for `helm-window-show-buffers-function'. | |
| 65 | ||
| 66 | (fn CANDIDATES &optional OTHER-WINDOW-FN) | |
| 67 | (defalias 'helm-window-mosaic-fn #[513 "\211\203 \304\305\306\307 \"\"\262\310 \210\311=\203% \247\205& \312\313 ! Y\202& \314\211\211\211\211\315\316G!!\262G\211S_X\203E S\202F \262\317 \320 \n \203` \320 \262\317 \262 \262\n\262 \245]\262\245]\262\245\245_ GV\203\215 \321\322!\210\211S\f\233\314\241\210\266\205\344 GV\203\244 \323\314?#\262\324\211A\262 \242!\210SG^\325\211W\203\327 \211\326\323\314#!\210\324\n\211A\262\f\242!\266\211T\262\202\265 \266\211\203\217 \326!\210\202\217 )\207" [helm-window-prefer-horizontal-split split-width-threshold window-min-height window-min-width append mapcar window-buffer window-list delete-other-windows decide window-width selected-window nil ceiling sqrt frame-height frame-width message "Too many buffers to visit simultaneously" split-window switch-to-buffer 0 select-window] 15 (#$ . 9223)]) | |
| 68 | #@266 Switch to BUFFER-OR-NAME in other window. | |
| 69 | Direction can be controlled via `helm-window-prefer-horizontal-split'. | |
| 70 | If a prefix arg is given split windows the other direction. | |
| 71 | When argument BALANCE is provided `balance-windows'. | |
| 72 | ||
| 73 | (fn BUFFER-OR-NAME &optional BALANCE) | |
| 74 | (defalias 'helm-window-other-window #[513 "\303=\203 \247\205 \304\305 ! Y\202 \211\203 \n?\202 \n\306\307\310\211#!\210\203/ \311 \210\312!)\207" [helm-window-prefer-horizontal-split split-width-threshold helm-current-prefix-arg decide window-width selected-window select-window split-window nil balance-windows switch-to-buffer] 9 (#$ . 10541)]) | |
| 75 | #@109 Check if BUFFER is narrowed. | |
| 76 | Default is `helm-current-buffer'. | |
| 77 | ||
| 78 | (fn &optional (BUFFER helm-current-buffer)) | |
| 79 | (defalias 'helm-current-buffer-narrowed-p #[128 "\211\203 \211A\262\242\202 \203 \301\302\303GTD\"\210r\211q\210ed\304 \305U?\206/ TU?\266\203)\207" [helm-current-buffer signal wrong-number-of-arguments helm-current-buffer-narrowed-p buffer-size 1] 7 (#$ . 11173)]) | |
| 80 | #@47 Go to char, revealing if necessary. | |
| 81 | ||
| 82 | (fn LOC) | |
| 83 | (defalias 'helm-goto-char #[257 "\302\303!\210\211b\210\304=\203 \305\202 \306\301!\205 \205 \307\3101* \211\205& \211 0\202, \210\311\207" [major-mode outline-minor-mode require org org-mode org-reveal boundp #[0 "\300\301!\207" [outline-flag-subtree nil] 2] (error) nil] 3 (#$ . 11564)]) | |
| 84 | #@129 Goto LINENO opening only outline headline if needed. | |
| 85 | Animation is used unless NOANIM is non--nil. | |
| 86 | ||
| 87 | (fn LINENO &optional NOANIM) | |
| 88 | (defalias 'helm-goto-line #[513 "\303\304!\210\305 \210\204\" r\306 !\203 \206 p\211q\210\n\204! `)eb\210\307\310!!\210\211?\2052 \311 \207" [helm-alive-p helm-current-buffer helm-yank-point helm-log-run-hook helm-goto-line-before-hook helm-match-line-cleanup buffer-live-p helm-goto-char point-at-bol helm-highlight-current-line] 5 (#$ . 11913)]) | |
| 89 | #@123 Save current buffer position to `helm-save-pos-before-jump-register'. | |
| 90 | To use this add it to `helm-goto-line-before-hook'. | |
| 91 | (defalias 'helm-save-pos-to-register-before-jump #[0 "r\303!\203 \206 p\211q\210 ?\205 \304\n!)\207" [helm-current-buffer helm-in-persistent-action helm-save-pos-before-jump-register buffer-live-p point-to-register] 2 (#$ . 12403)]) | |
| 92 | #@96 Save current buffer position to mark ring. | |
| 93 | To use this add it to `helm-goto-line-before-hook'. | |
| 94 | (defalias 'helm-save-current-pos-to-mark-ring #[0 "r\302!\203 \206 p\211q\210 ?\205 \303 `\304\223\210\305`\306\")\207" [helm-current-buffer helm-in-persistent-action buffer-live-p mark-marker nil push-mark nomsg] 3 (#$ . 12770)]) | |
| 95 | #@148 Show only current source of this helm session with all its candidates. | |
| 96 | With a numeric prefix arg show only the ARG number of candidates. | |
| 97 | ||
| 98 | (fn ARG) | |
| 99 | (defalias 'helm-show-all-in-this-source-only #[257 "\203; \303\304 !r\305\306\307\310\311!\312\"\313$\216\314@\315\"\210\316 \203' \317\316 !\206( \320V\2050 \321\322\323\324 \"C!,\207\325\326!\207" [helm-alive-p default-directory helm-candidate-number-limit internal--before-with-selected-window helm-window make-byte-code 0 "\301\300!\207" vconcat vector [internal--after-with-selected-window] 2 select-window norecord helm-default-directory file-name-as-directory 1 helm-set-source-filter assoc-default name helm-get-current-source error "Running helm command outside of context"] 8 (#$ . 13109) "p"]) | |
| 100 | (put 'helm-show-all-in-this-source-only 'helm-only t) | |
| 101 | #@68 Display all sources previously hidden by `helm-set-source-filter'. | |
| 102 | (defalias 'helm-display-all-sources #[0 "\203 \301\302!\207\303\304!\207" [helm-alive-p helm-set-source-filter nil error "Running helm command outside of context"] 2 (#$ . 13929) nil]) | |
| 103 | (put 'helm-display-all-sources 'helm-only t) | |
| 104 | #@56 Return the list of sources name for this helm session. | |
| 105 | (defalias 'helm-displaying-source-names #[0 "rq\210eb\210\301\211\302`\303\"\211\262\203& b\210\304\305 \306 \"B\262\307y\210\202 \211\237\266\202)\207" [helm-buffer nil next-single-property-change helm-header buffer-substring-no-properties point-at-bol point-at-eol 1] 5 (#$ . 14234)]) | |
| 106 | #@187 Add `helm-buffer' to `winner-boring-buffers' when quitting/exiting helm. | |
| 107 | Add this function to `helm-cleanup-hook' when you don't want to see helm buffers | |
| 108 | after running winner-undo/redo. | |
| 109 | (defalias 'helm-handle-winner-boring-buffers #[0 "\302\303!\210 \235\203 \202 B\211\207" [helm-buffer winner-boring-buffers require winner] 2 (#$ . 14589)]) | |
| 110 | (add-hook 'helm-cleanup-hook 'helm-handle-winner-boring-buffers) | |
| 111 | #@124 Drop into `helm-find-files' from `helm'. | |
| 112 | If current selection is a buffer or a file, `helm-find-files' | |
| 113 | from its directory. | |
| 114 | (defalias 'helm-quit-and-find-file #[0 "\203B\306\307!\210\306\310!\210\311\312\313 \211:\205 \314A!;\205! \315!;\2050 \211?\2050 \316\317\320#\211\2058 \321 \"\322!\205A \323!\211\205H \324!\262\325\n!\206Q \203\206 \325!\206>\326\f\"@\206>rq\210 )\327=\203{ %\203{ \330%!\206>rq\210\330 !)\202>\203\230 \325\331A!!\206>\211\202>\203\302 \332!\211\203\272 &\203\264 \333&\"\203\264 \211\202\275 \330!\202\275 \330 !\262\202>;\203\335 \334!\204\326 \335!\203\335 \330!\202>\203\357 \335@!\203\357 \330@!\202>\203r\323@!q\210\330\325 \206 !)\202>;\203 &\203 \333&\"\203 \202>'\203;\336'!\203;\337'!\210\340\341\342\"\210\330!\202>\330!\266\207\"\207\343\344!\207" [helm-alive-p bookmark-alist helm-current-buffer default-directory dired-buffers major-mode require helm-grep helm-elisp helm-run-after-exit #[257 "\303\211\304!\203! \305\306!\307\310\n\203 \311!\202 !P\"\202$ \305!*\207" [helm-actions-inherit-frame-settings helm-execute-action-at-once-if-one helm-ff-transformer-show-only-basename nil file-exists-p helm-find-files-1 file-name-directory "^" regexp-quote helm-basename] 7 "\n\n(fn F)"] helm-get-selection markerp helm-grep-split-line replace-regexp-in-string "\\`\\*" "" assoc bufferp get-buffer buffer-name buffer-file-name rassoc org-agenda-mode expand-file-name marker-buffer bookmark-get-filename string-match file-remote-p file-exists-p overlayp delete-overlay remove-hook helm-move-selection-after-hook helm-show-completion error "Running helm command outside of context" org-directory helm--url-regexp helm-show-completion-overlay] 13 (#$ . 15011) nil]) | |
| 115 | (put 'helm-quit-and-find-file 'helm-only t) | |
| 116 | #@176 Sort predicate function for helm candidates. | |
| 117 | Args S1 and S2 can be single or (display . real) candidates, | |
| 118 | that is sorting is done against real value of candidate. | |
| 119 | ||
| 120 | (fn S1 S2) | |
| 121 | (defalias 'helm-generic-sort-fn #[514 "\301!\302\303Q\302P\304!:\203 A\202 :\203( A\202* \305\211 & \n\n\n\n&\306\n!\307U\204\\ \307U\203b \211\307U\203b \231\202s U\203p GGW\202s V\207" [helm-pattern regexp-quote "\\_<" "\\_>" helm-mm-split-pattern #[1542 "\300\301P\"\203 \302\202 \303\300\"\203 \304\202\253 \300\305\"\203^ \300\306\307@!P\"\203^ A\310\311:\203P @\262\300\n\"\211\262\203P A\262\2025 \211\205U \311\266\203\203^ \312\202\253 \300\305\"\203\222 \310\311:\203\204 @\262\300\n\"\211\262\203\204 A\262\202i \211\205\211 \311\266\203\203\222 \313\202\253 \300\"\203\236 \314\202\253 \300\"\203\252 \302\202\253 \303\\\207" [string-match "\\`" 1 0 5 " " "\\_<" regexp-quote nil t 4 3 2] 13 "\n\n(fn QPATTERN STR R1 R2 R3 LST)"] string-width 0] 18 (#$ . 16849)]) | |
| 122 | #@308 Return a string showing SIZE of a file in human readable form. | |
| 123 | SIZE can be an integer or a float depending it's value. | |
| 124 | `file-attributes' will take care of that to avoid overflow error. | |
| 125 | KBSIZE is a floating point number, defaulting to `helm-default-kbsize'. | |
| 126 | ||
| 127 | (fn SIZE &optional (KBSIZE helm-default-kbsize)) | |
| 128 | (defalias 'helm-file-human-size #[385 "\211\203 \211A\262\242\202 \203 \301\302\303\304G\\D\"\210\305B\306\307:\203@ @\262AY\203@ \211A\245B\262A\262\202! \305@\211\232\204Z \310=\204Z <\203b \211\235\203b \311\312 \"\202\204 \310\211\232\204{ \310=\204{ <\205\202 \211\235\205\202 \311\313A#\266\202\266\202\266\203\207" [helm-default-kbsize signal wrong-number-of-arguments helm-file-human-size 2 "B" ("k" "M" "G" "T" "P" "E" "Z" "Y") nil t format "%s" "%.1f%s"] 14 (#$ . 17896)]) | |
| 129 | #@1502 Return `file-attributes' elements of FILE separately according to key value. | |
| 130 | Availables keys are: | |
| 131 | - TYPE: Same as nth 0 `files-attributes' if STRING is nil | |
| 132 | otherwise return either symlink, directory or file (default). | |
| 133 | - LINKS: See nth 1 `files-attributes'. | |
| 134 | - UID: See nth 2 `files-attributes'. | |
| 135 | - GID: See nth 3 `files-attributes'. | |
| 136 | - ACCESS-TIME: See nth 4 `files-attributes', however format time | |
| 137 | when STRING is non--nil (the default). | |
| 138 | - MODIF-TIME: See nth 5 `files-attributes', same as above. | |
| 139 | - STATUS: See nth 6 `files-attributes', same as above. | |
| 140 | - SIZE: See nth 7 `files-attributes'. | |
| 141 | - MODE: See nth 8 `files-attributes'. | |
| 142 | - GID-CHANGE: See nth 9 `files-attributes'. | |
| 143 | - INODE: See nth 10 `files-attributes'. | |
| 144 | - DEVICE-NUM: See nth 11 `files-attributes'. | |
| 145 | - DIRED: A line similar to what 'ls -l' return. | |
| 146 | - HUMAN-SIZE: The size in human form, see `helm-file-human-size'. | |
| 147 | - MODE-TYPE, mode-owner,mode-group, mode-other: Split what | |
| 148 | nth 7 `files-attributes' return in four categories. | |
| 149 | - STRING: When non--nil (default) `helm-file-attributes' return | |
| 150 | more friendly values. | |
| 151 | If you want the same behavior as `files-attributes' , | |
| 152 | (but with return values in proplist) use a nil value for STRING. | |
| 153 | However when STRING is non--nil, time and type value are different from what | |
| 154 | you have in `file-attributes'. | |
| 155 | ||
| 156 | (fn FILE &key TYPE LINKS UID GID ACCESS-TIME MODIF-TIME STATUS SIZE MODE GID-CHANGE INODE DEVICE-NUM DIRED HUMAN-SIZE MODE-TYPE MODE-OWNER MODE-GROUP MODE-OTHER (STRING t)) | |
| 157 | (defalias 'helm-file-attributes #[385 "\300\301\"A@\300\302\"A@\300\303\"A@\300\304\"A@\300\305\"A@\300\306\"A@\300\307\"A@\300\310\"A@\300 \311\"A@\300\n\312\"A@\300 \313\"A@\300\f\314\"A@\300 \315\"A@\300\316\"A@\300\317\"A@\300\320\"A@\300\321\"A@\300\322\"A@\300\323\"\206\202 \324A@\211\203\261 \211@\325>\203\231 \211AA\262\202\206 \326>A@\203\250 \327\262\202\206 \330\331@\"\210\202\206 \210\332\"\211\205\233\211\211G\333U\203\314 \211A\262\242\202\323 \334\335\327GD\"\211A\262\242\211A\262\242\211A\262\242\211A\262\242\211A\262\242\211A\262\242\211A\262 \242\211A\262\n\242 \211A\262 \242\n\211A\262\f\242 @\301\2034\f;\203'\336\2026\f\2030\337\2026\340\2026\f\302 \303\304\305\203M\341\342\"\202O\306\203]\341\342\"\202_\307\203m\341\342\"\202o\310\311\312\313\314\257\266\215\343\344\311\"!\203\224\344\301\"\202\231\203\240\344\302\"\202\231\203\254\344\303\"\202\231\203\270\344\304\"\202\231\203\304\344\305\"\202\231\203\320\344\306\"\202\231\203\334\344\307\"\202\231\203\350\344\310\"\202\231 \203\364\344\311\"\202\231\f\203 \344\312\"\202\231 \203\f\344\313\"\202\231\n\203\344\314\"\202\231 \203Y\343\344\311\"\345\"\346\347\344\302\"!\346\344\303\"\350\344\304\"\346\203G\351\344 \310\"!\202N\352\344 \310\"!\346\344\f\306\"\260 \202\231\203g\351\344\310\"!\202\231\203s\344\317\"\202\231\203\344\353\"\202\231\203\212\344\354\"\202\231\203\225\344\355\"\202\231\356\"\266\202\262\207" [plist-member :type :links :uid :gid :access-time :modif-time :status :size :mode :gid-change :inode :device-num :dired :human-size :mode-type :mode-owner :mode-group :mode-other :string (nil t) (:type :links :uid :gid :access-time :modif-time :status :size :mode :gid-change :inode :device-num :dired :human-size :mode-type :mode-owner :mode-group :mode-other :string :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:type :links :uid :gid :access-time :modif-time :status :size :mode :gid-change :inode :device-num :dired :human-size :mode-type :mode-owner :mode-group :mode-other :string)" file-attributes 12 signal wrong-number-of-arguments "symlink" "directory" "file" format-time-string "%Y-%m-%d %R" helm-split-mode-file-attributes cl-getf t " " number-to-string ":" helm-file-human-size int-to-string :user :group :other append] 59 (#$ . 18727)]) | |
| 158 | #@139 Split mode file attributes STR into a proplist. | |
| 159 | If STRING is non--nil return instead a space separated string. | |
| 160 | ||
| 161 | (fn STR &optional STRING) | |
| 162 | (defalias 'helm-split-mode-file-attributes #[513 "\300\301O\301\302O\211\303\302\301\304\211\211T\211\262GW\203_ H\262\305X\2030 \306!P\262\305V\203D \307X\203D \306!P\262\307V\203X \310X\203X \211\306!P\262T\262\202 \203q \311\312\nF\313#\202~ \314 \315\316\317\257\207" [0 1 nil -1 "" 3 string 6 9 mapconcat identity " " :mode-type :user :group :other] 19 (#$ . 22745)]) | |
| 163 | #@86 Same as `dired-format-columns-of-files'. | |
| 164 | Inlined here for compatibility. | |
| 165 | ||
| 166 | (fn FILES) | |
| 167 | (defalias 'helm-format-columns-of-files #[257 "`\300!\210\301`\302\303$\207" [completion--insert-strings put-text-property mouse-face nil] 7 (#$ . 23305)]) | |
| 168 | #@45 | |
| 169 | ||
| 170 | (fn BUFFER-OR-NAME CANDIDATES &rest BODY) | |
| 171 | (defalias 'with-helm-display-marked-candidates '(macro . #[642 "\300\301!\300\302!\303\304DD\305\306\307\310\257\311\312DE\313\314\315\316 \317BBE\320 BE\321\322EEF\207" [cl-gensym "buffer" "window" let* temp-buffer-window-setup (helm-always-two-windows t) (helm-split-window-default-side (if (eq helm-split-window-default-side 'same) 'below helm-split-window-default-side)) helm-split-window-inside-p helm-reuse-last-window-split-state with-current-buffer helm-format-columns-of-files unwind-protect with-selected-window setq temp-buffer-window-show ('(display-buffer-below-selected (window-height . fit-window-to-buffer))) progn quit-window 'kill] 15 (#$ . 23554)])) | |
| 172 | (byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put with-helm-display-marked-candidates lisp-indent-function 0 put edebug-form-spec t] 5) | |
| 173 | (defvar helm-match-line-overlay nil) | |
| 174 | (defvar helm--match-item-overlays nil) | |
| 175 | #@77 Highlight and underline current position | |
| 176 | ||
| 177 | (fn &optional START END BUF FACE) | |
| 178 | (defalias 'helm-highlight-current-line #[1024 "\206 \306 \206 \307 T\310\211E\203 \311 \202 \n\204+ \312\313\"\2021 \312\314\n#\210\315\n\316\206: \317#\210\203\356 \203J \320U\203S \262\262\202f \212 [y\210\321 )\262\212 y\210\321 )\262\3222\355 \310\323\324\325r\326 q\210\327\330 \236)\203\201 \331\f!\202\202 \f!\"\310:\205\352 @\262\212b\210\3321\255 \203\243 \333\334#\202\251 \335\334#0\202\260 \310\262\203\342 \320\224\320\225U\203\305 \336\322\310\"\210\202\335 \313\"\211\262#B#\315\316\337#\210\315\340\341#\210\266\202\222 )A\262\202\205 \266\2030\210\342 )\207" [helm-alive-p case-fold-search helm-match-line-overlay helm-highlight-matches-around-point-max-lines helm-input helm-migemo-mode line-beginning-position line-end-position nil helm-set-case-fold-search apply make-overlay move-overlay overlay-put face helm-selection-line 0 point-at-bol empty-line helm-remove-if-match "\\`!" helm-mm-split-pattern helm-buffer-get pcre helm-get-current-source helm--translate-pcre-to-elisp (invalid-regexp) helm-mm-migemo-forward t re-search-forward throw helm-match-item priority 1 recenter helm--match-item-overlays] 18 (#$ . 24516)]) | |
| 179 | #@98 Should translate pcre REGEXP to elisp regexp. | |
| 180 | Assume regexp is a pcre based regexp. | |
| 181 | ||
| 182 | (fn REGEXP) | |
| 183 | (defalias 'helm--translate-pcre-to-elisp #[257 "\300\301!r\211q\210\302\303\304\305\306!\307\"\310$\216\311\311\261\210eb\210\212\312\211\203] \313\314\315\312#\205- \316\317!\211\203V \317\224\320\2069 `Sf\321\"\203H \211S|\210\202R \322\323P\312\211\315\317%\210\210\202Y \315\262\210\202 \210)\312\211\203\207 \313\324\315\312#\205o \316\317!\211\203\200 \322\325P\312\211\315\317%\210\202\203 \315\262\210\202` \210eTdS{*\207" [generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205 \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 " " t re-search-forward "\\([(){}|]\\)" nil match-string 1 eql 92 replace-match "\\" "\\S\\?\\(\\s\\[sS]\\)[^-]" "-"] 11 (#$ . 25793)]) | |
| 184 | (defalias 'helm-match-line-cleanup #[0 "\203\n \302!\210\303 \205 \304\302 \"\207" [helm-match-line-overlay helm--match-item-overlays delete-overlay nil mapc] 3]) | |
| 185 | (defalias 'helm-match-line-cleanup-maybe #[0 "\300 \205 \301 \207" [helm-empty-buffer-p helm-match-line-cleanup] 1]) | |
| 186 | (defalias 'helm-match-line-update #[0 "\205\n \301!\210\302 \207" [helm-match-line-overlay delete-overlay helm-highlight-current-line] 2]) | |
| 187 | (defalias 'helm-persistent-autoresize-hook #[0 "\205 \235\205 \n\304=\205 \305\306 \"\207" [helm-buffers-to-resize-on-pa helm-buffer helm-split-window-state helm-resize-on-pa-text-height vertical set-window-text-height helm-window] 3]) | |
| 188 | (defalias 'helm-match-line-cleanup-pulse #[0 "\300\301\302\303#\207" [run-with-timer 0.3 nil helm-match-line-cleanup] 4]) | |
| 189 | (byte-code "\300\301\302\"\210\300\303\304\"\210\300\305\306\"\210\300\307\310\"\210\300\303\311\"\207" [add-hook helm-after-update-hook helm-match-line-cleanup-maybe helm-after-persistent-action-hook helm-persistent-autoresize-hook helm-cleanup-hook helm-match-line-cleanup helm-after-action-hook helm-match-line-cleanup-pulse helm-match-line-update] 3) | |
| 190 | (defvar helm--show-help-echo-timer nil) | |
| 191 | (defalias 'helm-cancel-help-echo-timer #[0 "\205 \301!\210\302\211\207" [helm--show-help-echo-timer cancel-timer nil] 2]) | |
| 192 | (defalias 'helm-maybe-show-help-echo #[0 "\203\n \304!\210\305 \205# \n\205# \306\307\310 \" \235\205# \311\312\305\313#\211\207" [helm--show-help-echo-timer helm-alive-p helm-popup-tip-mode helm-sources-using-help-echo-popup cancel-timer nil assoc-default name helm-get-current-source run-with-timer 1 #[0 "\300 r\301\302\303\304\305!\306\"\307$\216\310\311 !r\301\302\303\304\305!\312\"\307$\216\313@\314\"\210\315\316 \317\"\211\205D \320\321\322\323\324\325#!P\326\327\330\212\331 \210`)%\262*\262*\207" [internal--before-save-selected-window make-byte-code 0 "\301\300!\207" vconcat vector [internal--after-save-selected-window] 2 internal--before-with-selected-window helm-window [internal--after-with-selected-window] select-window norecord get-text-property point-at-bol help-echo popup-tip " " abbreviate-file-name replace-regexp-in-string "\n.*" "" :around nil :point end-of-visual-line] 10]] 4]) | |
| 193 | (byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313\314\315& \207" [custom-declare-variable helm-popup-tip-mode funcall function #[0 "\300\207" [nil] 1] "Non-nil if Helm-Popup-Tip mode is enabled.\nSee the `helm-popup-tip-mode' command\nfor a description of this minor mode.\nSetting this variable directly does not take effect;\neither customize it (see the info node `Easy Customization')\nor call the function `helm-popup-tip-mode'." :set custom-set-minor-mode :initialize custom-initialize-default :group helm-popup-tip :type boolean] 12) | |
| 194 | #@80 Show help-echo informations in a popup tip at end of line. | |
| 195 | ||
| 196 | (fn &optional ARG) | |
| 197 | (defalias 'helm-popup-tip-mode #[256 "\301 \302\300\303=\203 \304\300!?\202 \305!\306V\"\210\307\310!\210\203- \311\312\313\"\210\311\314\315\"\210\2027 \316\312\313\"\210\316\314\315\"\210\317\320\304\300!\203C \321\202D \322\"\210\323\324!\203n \325\300!\210\301 \203\\ \211\301 \232\203n \326\327\330\304\300!\203i \331\202j \332#\266\210\333 \210\304\300!\207" [helm-popup-tip-mode current-message set-default toggle default-value prefix-numeric-value 0 require popup add-hook helm-move-selection-after-hook helm-maybe-show-help-echo helm-cleanup-hook helm-cancel-help-echo-timer remove-hook run-hooks helm-popup-tip-mode-hook helm-popup-tip-mode-on-hook helm-popup-tip-mode-off-hook called-interactively-p any customize-mark-as-set "" message "Helm-Popup-Tip mode %sabled%s" "en" "dis" force-mode-line-update] 7 (#$ . 29379) (byte-code "\206 \301C\207" [current-prefix-arg toggle] 1)]) | |
| 198 | (defvar helm-popup-tip-mode-hook nil) | |
| 199 | (byte-code "\301\302N\204\f \303\301\302\304#\210\305\306\307\310\300!\205 \307\211%\207" [helm-popup-tip-mode-map helm-popup-tip-mode-hook variable-documentation put "Hook run after entering or leaving `helm-popup-tip-mode'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" add-minor-mode helm-popup-tip-mode nil boundp] 6) | |
| 200 | #@62 Open FILE with the default tool on this platform. | |
| 201 | ||
| 202 | (fn FILE) | |
| 203 | (defalias 'helm-open-file-with-default-tool #[257 "\302 \303=\203 \304!\202* \305\306\302 \307=\203 \310\202( \311=\204' \312=\205( \313$)\207" [process-connection-type system-type nil windows-nt helm-w32-shell-execute-open-file start-process "helm-open-file-with-default-tool" gnu/linux "xdg-open" darwin macos "open"] 6 (#$ . 30808)]) | |
| 204 | #@100 Opens a dired buffer in FILE's directory. If FILE is a | |
| 205 | directory, open this directory. | |
| 206 | ||
| 207 | (fn FILE) | |
| 208 | (defalias 'helm-open-dired #[257 "\300!\203\n \301!\207\301\302!!\210\303!\207" [file-directory-p dired file-name-directory dired-goto-file] 4 (#$ . 31220)]) | |
| 209 | #@25 | |
| 210 | ||
| 211 | (fn FEATURE FUNCTION) | |
| 212 | (defalias 'helm-require-or-error #[514 "\300\301\302#\206 \303\304#\207" [require nil t error "Need %s to use `%s'."] 6 (#$ . 31487)]) | |
| 213 | #@18 | |
| 214 | ||
| 215 | (fn CANDIDATE) | |
| 216 | (defalias 'helm-find-file-as-root #[257 "\302!\303\304\"\305\306\206 \307\310\203 \303\311\"\202 !$\312\313\314!!\2033 q\210\315!\2026 \316!)\207" [helm-su-or-sudo non-essential helm-basename file-remote-p host format "/%s:%s:%s" "" expand-file-name localname nil buffer-live-p get-buffer find-alternate-file find-file] 11 (#$ . 31656)]) | |
| 217 | #@116 Simple action that run `find-file' on marked candidates. | |
| 218 | Run `helm-find-many-files-after-hook' at end | |
| 219 | ||
| 220 | (fn IGNORE) | |
| 221 | (defalias 'helm-find-many-files #[257 "\301\302\303\304 \"\210\305\306!)\207" [helm--reading-passwd-or-string t mapc find-file helm-marked-candidates helm-log-run-hook helm-find-many-files-after-hook] 4 (#$ . 32035)]) | |
| 222 | #@124 Prompt as many time PROMPT is not empty. | |
| 223 | If COUNT is non--nil add a number after each prompt. | |
| 224 | ||
| 225 | (fn PROMPT &optional COUNT) | |
| 226 | (defalias 'helm-read-repeat-string #[513 "\300\301\300\302\230\204( \203 \303!\304Q\262\211\305!\211\262C\244\262T\262\202 \306\302\"\207" [nil 1 "" int-to-string ": " helm-read-string remove] 8 (#$ . 32376)]) | |
| 227 | #@111 Parse html bookmark FILE and return an alist with (title . url) as elements. | |
| 228 | ||
| 229 | (fn FILE URL-REGEXP BMK-REGEXP) | |
| 230 | (defalias 'helm-html-bookmarks-to-alist #[771 "\301\211\211\302\303!r\211q\210\304\305\306\307\310!\311\"\312$\216\313!\210eb\210\314\315\301\316#\203U \305y\210\314\301\316#\2037 \317\305!\262\314\301\316#\203H \320\317\321!!!\262BB\262\301y\210\202 *\210\237\207" [helm-html-decode-entities-function nil generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205 \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 insert-file-contents re-search-forward "href=\\|^ *<DT><A HREF=" t match-string url-unhex-string 1] 13 (#$ . 32730)]) | |
| 231 | #@100 Replace an html ENTITY by its string value. | |
| 232 | When unable to decode ENTITY returns nil. | |
| 233 | ||
| 234 | (fn ENTITY) | |
| 235 | (defalias 'helm-html-entity-to-string #[257 "\301\"\211\203 \302A!\2020 \303 \304\305\306\307\310!\311\"\312$\216\313\314\"\205- \302\315\316\305\"!!)\262\207" [helm-html-entities-alist assoc string match-data make-byte-code 0 "\301\300\302\"\207" vconcat vector [set-match-data evaporate] 3 string-match "[0-9]+" string-to-number match-string] 9 (#$ . 33407)]) | |
| 236 | #@46 Decode entities in the string STR. | |
| 237 | ||
| 238 | (fn STR) | |
| 239 | (defalias 'helm-html-decode-entities-string #[257 "\300 \301\302\303\304\305!\306\"\307$\216\310\311!r\211q\210\301\302\312\304\305!\313\"\314$\216c\210eb\210\315\316\317\320#\203@ \321\322\302!!\211\203< \323!\210\210\202' \324 *\262)\207" [match-data make-byte-code 0 "\301\300\302\"\207" vconcat vector [set-match-data evaporate] 3 generate-new-buffer " *temp*" "\301\300!\205 \302\300!\207" [buffer-name kill-buffer] 2 re-search-forward "&#?\\([^;]*\\);" nil t helm-html-entity-to-string match-string replace-match buffer-string] 9 (#$ . 33883)]) | |
| 240 | (provide 'helm-utils) | |
