;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. (byte-code "\300\301!\210\302\303\304\305\306DD\307\310\311\312\313&\210\302\314\304\305\315DD\316\310\317\312\313&\210\302\320\304\305\321DD\322\310\317\312\313&\210\302\323\304\305\324DD\325\310\317\312\313&\207" [require helm-source custom-declare-variable helm-tail-sources funcall function #[0 "\300\207" [(helm-tail-source-backtrace helm-tail-source-compilation helm-tail-source-warnings helm-tail-source-messages)] 1] "List of helm sources for `helm-tail'." :type (repeat symbol) :group helm-tail helm-tail-default-lines #[0 "\300\207" [5] 1] "Default number of lines displayed using `helm-tail--buffer-tail'." number helm-tail-messages-lines #[0 "\300\207" [5] 1] "Number of lines from *Messages*." helm-tail-compilation-lines #[0 "\300\207" [2] 1] "Number of lines from *compilation*."] 8) (defvar helm-tail-source-messages (helm-make-source "Messages" 'helm-source-sync :candidates #[0 "\301\302\"\207" [helm-tail-messages-lines helm-tail--buffer-tail "*Messages*"] 3])) (defvar helm-tail-source-warnings (helm-make-source "Warnings" 'helm-source-sync :candidates #[0 "\300\301!\207" [helm-tail--buffer-tail "*Warnings*"] 2])) (defvar helm-tail-source-backtrace (helm-make-source "Backtrace" 'helm-source-sync :candidates #[0 "\300\301!\207" [helm-tail--buffer-contents "*Backtrace*"] 2])) (defvar helm-tail-source-compilation (helm-make-source "Compilation" 'helm-source-sync :candidates #[0 "\301\302\"\207" [helm-tail-compilation-lines helm-tail--buffer-tail "*compilation*"] 3])) #@95 If a buffer named BUFNAME exists, evaluate PROGN within the buffer. (fn BUFNAME &rest PROGN) (defalias 'helm-tail--when-buffer '(macro . #[385 "\300\301\302DDC\303\301BBE\207" [when-let buf get-buffer with-current-buffer] 7 (#$ . 1587)])) (byte-code "\300\301\302\303#\300\207" [function-put helm-tail--when-buffer lisp-indent-function 1] 4) #@69 If a buffer named BUFNAME exists, return its content. (fn BUFNAME) (defalias 'helm-tail--buffer-contents #[257 "\300!\211\205r\211q\210\301 )C\207" [get-buffer buffer-string] 3 (#$ . 1938)]) #@90 If a buffer named BUFNAME exists, return its content as a list of strings. (fn BUFNAME) (defalias 'helm-tail--buffer-contents-as-lines #[257 "\300!\211\205r\211q\210\301\302 \303\")\207" [get-buffer split-string buffer-string "\n"] 5 (#$ . 2139)]) #@100 If a buffer named BUFNAME exists, return its last NLINES as a list. (fn BUFNAME &optional NLINES) (defalias 'helm-tail--buffer-tail #[513 "\301!\211\205r\211q\210\302\212db\303\206[!\210`{)\304\"\237)\207" [helm-tail-default-lines get-buffer split-string beginning-of-line "\n"] 7 (#$ . 2398)]) #@50 Display recent output of common special buffers. (defalias 'helm-tail #[0 "\301\302\303\304$\207" [helm-tail-sources helm :sources :buffer "*helm tail*"] 5 (#$ . 2707) nil]) (provide 'helm-tail)