| 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\303\304\305\306\307\310%\210\311\312\313\314\315DD\316\307\304\317\320&\210\311\321\313\314\322DD\323\307\304\317\324&\207" [require helm-grep helm-help custom-declare-group helm-id-utils nil "ID-Utils related Applications and libraries for Helm." :group helm custom-declare-variable helm-gid-program funcall function #[0 "\300\207" [#1="gid"] 1 #1#] "Name of gid command (usually `gid').\nFor Mac OS X users, if you install GNU coreutils, the name `gid'\nmight be occupied by `id' from GNU coreutils, and you should set\nit to correct name (or absolute path), for example, if using\nMacPorts to install id-utils, it should be `gid32'." :type file helm-gid-db-file-name #[0 "\300\207" [#2="ID"] 1 #2#] "Name of a database file created by `mkid' command from `ID-utils'." string] 8) | |
| 16 | (defalias 'helm-gid-candidates-process #[0 "\304!\305\306 \307@!#A\211\2035 \310\311:\203/ @\262\211\305\312\307!\"P\262A\262\202 \266\202P\2026 \262\313\314\n#\315\303!\210\211\316\317\"\210\207" [helm-pattern helm-gid-program helm-buffer helm-grep-last-cmd-line helm-mm-split-pattern format "%s -r %s" shell-quote-argument nil #1="" " | grep --color=always %s" start-process-shell-command "gid" make-local-variable set-process-sentinel #[514 "\211\301\230\205/ \302 \210\303\304 !r\305\306\307\310\311!\312\"\313$\216\314@\315\"\210\316\317 \210*\210\320\321\322\323\324#\"\207" [mode-line-format "finished\n" helm-maybe-show-help-echo 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 (" " mode-line-buffer-identification " " (:eval (format "L%s" (helm-candidate-number-at-point))) " " (:eval (propertize (format "[Helm Gid process finished - (%s results)]" (max (1- (count-lines (point-min) (point-max))) 0)) 'face 'helm-locate-finish))) force-mode-line-update helm-log "Error: Gid %s" replace-regexp-in-string "\n" #1#] 9 "\n\n(fn PROCESS EVENT)"]] 12]) | |
| 17 | #@26 | |
| 18 | ||
| 19 | (fn CANDIDATES SOURCE) | |
| 20 | (defalias 'helm-gid-filtered-candidate-transformer #[514 "\300\301\302#\303\211:\203 @\262\304!B\262A\262\202 \211\237\207" [helm-fast-remove-dups :test equal nil helm-grep--filter-candidate-1] 7 (#$ . 2425)]) | |
| 21 | (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-gid-source-p eieio-make-class-predicate helm-gid-source helm-gid-source--eieio-childp eieio-make-child-predicate helm-gid-source-child-p make-obsolete "use (cl-typep ... \\='helm-gid-source) instead" "25.1" define-symbol-prop cl-deftype-satisfies eieio-defclass-internal (helm-source-async) ((header-name :initform (lambda (name) (concat name " [" (helm-attr 'db-dir) "]"))) (db-dir :initarg :db-dir :initform nil :custom string :documentation " Location of ID file.") (candidates-process :initform #'helm-gid-candidates-process) (filtered-candidate-transformer :initform #'helm-gid-filtered-candidate-transformer) (candidate-number-limit :initform 99999) (action :initform (helm-make-actions "Find File" 'helm-grep-action "Find file other frame" 'helm-grep-other-frame "Save results in grep buffer" 'helm-grep-save-results "Find file other window" 'helm-grep-other-window)) (persistent-action :initform 'helm-grep-persistent-action) (history :initform 'helm-grep-history) (nohighlight :initform t) (help-message :initform 'helm-grep-help-message) (requires-pattern :initform 2)) nil] 6) | |
| 22 | #@72 Create a new object of class type `helm-gid-source'. | |
| 23 | ||
| 24 | (fn &rest SLOTS) | |
| 25 | (defalias 'helm-gid-source #[128 "\300\301\302#\207" [apply make-instance helm-gid-source] 5 (#$ . 3921)]) | |
| 26 | (byte-code "\300\301\302\303#\300\207" [function-put helm-gid-source compiler-macro helm-gid-source--anon-cmacro] 4) | |
| 27 | #@26 | |
| 28 | ||
| 29 | (fn WHOLE &rest SLOTS) | |
| 30 | (defalias 'helm-gid-source--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 (#$ . 4223)]) | |
| 31 | #@241 Preconfigured helm for `gid' command line of `ID-Utils'. | |
| 32 | Need A database created with the command `mkid' | |
| 33 | above `default-directory'. | |
| 34 | Need id-utils as dependency which provide `mkid', `gid' etc... | |
| 35 | See <https://www.gnu.org/software/idutils/>. | |
| 36 | (defalias 'helm-gid #[0 "\306 \"\307\310\211\204 \311\312\313\314\211$\210\315\316\317\320\321\322$\323\324\325\f\326 &*\207" [default-directory helm-gid-db-file-name helm-grep-default-directory-fn helm--maybe-use-default-as-input helm-grep-map helm-grep-truncate-lines locate-dominating-file #[0 "\207" [default-directory] 1] t cl--assertion-failed db "No DataBase found, create one with `mkid'" nil helm :sources helm-make-source "Gid" helm-gid-source :db-dir :buffer "*helm gid*" :keymap :truncate-lines] 10 (#$ . 4458) nil]) | |
| 37 | (provide 'helm-id-utils) | |
