| commit | author | age | ||
| 5cb5f7 | 1 | ;ELC |
| C | 2 | ;;; Compiled |
| 3 | ;;; in Emacs version 26.1 | |
| 4 | ;;; with all optimizations. | |
| 5 | ||
| 6 | ;;; This file contains utf-8 non-ASCII characters, | |
| 7 | ;;; and so cannot be loaded into Emacs 22 or earlier. | |
| 8 | (and (boundp 'emacs-version) | |
| 9 | (< (aref emacs-version (1- (length emacs-version))) ?A) | |
| 10 | (string-lessp emacs-version "23") | |
| 11 | (error "`%s' was compiled for Emacs 23 or later" #$)) | |
| 12 | ||
| 13 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | |
| 14 | ||
| 15 | ||
| 16 | (byte-code "\300\301!\210\300\302!\210\300\303!\207" [require cl-lib popup notifications] 2) | |
| 17 | #@133 If the value is non-nil, keep error messages to notification area. | |
| 18 | This feature only activates when you leave from popup's message. | |
| 19 | (defvar error-tip-notify-keep-messages nil (#$ . 502)) | |
| 20 | #@23 Last notification id. | |
| 21 | (defvar error-tip-notify-last-notification nil (#$ . 695)) | |
| 22 | #@53 Value for time out. The default value is 1 minute. | |
| 23 | (defvar error-tip-notify-timeout 60000 (#$ . 782)) | |
| 24 | #@260 Parameters for ‘error-tip-notify’. | |
| 25 | You can add ‘notifications-notify’s parametors without :body, :replaces-id and | |
| 26 | :timeout. | |
| 27 | ||
| 28 | Example: | |
| 29 | ||
| 30 | (setq error-tip-notify-parametors | |
| 31 | (append error-tip-notify-parametors '(:app-icon "/path/to/icon-file"))) | |
| 32 | (defvar error-tip-notify-parametors '(:title "flycheck-tip" :category "im.error") (#$ . 892)) | |
| 33 | (defvar error-tip-popup-object nil) | |
| 34 | (defvar error-tip-timer-object nil) | |
| 35 | (defvar error-tip-current-errors nil) | |
| 36 | #@107 Whether how much delay showing error popup. | |
| 37 | If you set nil to this variable, then do not use delay timer. | |
| 38 | (defvar error-tip-timer-delay 0.3 (#$ . 1362)) | |
| 39 | #@79 Use this variable if you want change specific characters to turn to newlines. | |
| 40 | (defvar error-tip-newline-character nil (#$ . 1521)) | |
| 41 | (defvar error-tip-state nil) | |
| 42 | #@33 | |
| 43 | ||
| 44 | (fn ERRORS &optional REVERSE) | |
| 45 | (defalias 'error-tip-cycle #[513 "\301 \210\302\2057 \303\304\"\303\305\"\303\306\"\307\204& \2061 \2061 \2021 \310\2060 \2060 !\"\266\205\207" [error-tip-state error-tip-delete-popup nil assoc-default :next :previous :current-line #[514 "m\203 `\303 =\203 \262eb\210\304\305@\306\"S\307\"\204$ \310\311 BB\211\n\204/ \312\313 !\207\314 \210\315 \207" [error-tip-state error-tip-current-errors error-tip-timer-delay point-at-bol line-move error-tip-get line t eob line-number-at-pos error-tip-popup-error-message error-tip-get-errors error-tip-cancel-timer error-tip-register-timer] 6 "\n\n(fn PREVIOUS ERRS)"] reverse] 10 (#$ . 1687)]) | |
| 46 | #@20 | |
| 47 | ||
| 48 | (fn ERR ELEMENT) | |
| 49 | (defalias 'error-tip-get #[514 "\300\301!\205\n \301\"\207" [fboundp flycheck-tip--get] 5 (#$ . 2385)]) | |
| 50 | #@42 Collect errors from ERRORS. | |
| 51 | ||
| 52 | (fn ERRORS) | |
| 53 | (defalias 'error-tip-collect-current-file-errors #[257 "\301`!\302\211\211\211\211:\203\\ @\262\303\304\"\262\203( \305!\303\306\"\232\203U W\2038 C\244\262\202U V\203H C\244\262\202U U\203U \211C\244\262A\262\202 \204h \204h \211\205r \307B\310B\311BE\207" [buffer-file-truename line-number-at-pos nil error-tip-get line expand-file-name file :next :previous :current-line] 12 (#$ . 2516)]) | |
| 54 | #@199 Popup error message(s) from ERRORS. | |
| 55 | If there are multiple errors on current line, all current line's errors are | |
| 56 | appeared. The POINT arg is a point to show up error(s). | |
| 57 | ||
| 58 | (fn ERRORS &optional POINT) | |
| 59 | (defalias 'error-tip-popup-error-message #[513 "\301\302!\303\304\305\206 \306 m\203 `\307 =\203 \211S\202 \211\262%\310\311\312\"\207" [error-tip-popup-object popup-tip error-tip-format :nowait t :point error-tip-get-point point-at-bol add-hook pre-command-hook error-tip-delete-popup] 10 (#$ . 2991)]) | |
| 60 | #@47 Return point where the popup message emerges. | |
| 61 | (defalias 'error-tip-get-point #[0 "\300 T\207" [point-at-bol] 1 (#$ . 3507)]) | |
| 62 | #@29 Format ERRORS. | |
| 63 | ||
| 64 | (fn ERRORS) | |
| 65 | (defalias 'error-tip-format #[257 "\301\302\303\304\305#\"\203 \306\307#\202 \211\207" [error-tip-newline-character format "*%s" mapconcat identity "\n*" replace-regexp-in-string "\n"] 7 (#$ . 3638)]) | |
| 66 | #@13 Get errors. | |
| 67 | (defalias 'error-tip-get-errors #[0 "\302`!\303\211\211\211\211:\203i @\262\304\305\"\262\304\306\"\262\232\2042 \307\232\203; \310\232\203; C\244\262\202b \307ZW\203L TV\204\\ \311\312 \"\211\205W \211X\262\203b \211C\244\262A\262\202 \206n \211\207" [error-tip-current-errors error-tip-state line-number-at-pos nil error-tip-get line message 1 0 assoc-default eob] 10 (#$ . 3879)]) | |
| 68 | #@22 Delete popup object. | |
| 69 | (defalias 'error-tip-delete-popup #[0 "\3021 \303!\205 \304!\210 \205 \305 0\202 \211\262\210\306\307\310\"\207" [error-tip-popup-object error-tip-notify-keep-messages (error) popup-live-p popup-delete error-tip-notify remove-hook pre-command-hook error-tip-delete-popup] 3 (#$ . 4312)]) | |
| 70 | #@41 Register timer that show error message. | |
| 71 | (defalias 'error-tip-register-timer #[0 "\302\303\304#\211\207" [error-tip-timer-delay error-tip-timer-object run-with-timer nil #[0 "\300\301 !\207" [error-tip-popup-error-message error-tip-get-errors] 2]] 4 (#$ . 4634)]) | |
| 72 | #@34 Cancel `error-tip-timer-object'. | |
| 73 | (defalias 'error-tip-cancel-timer #[0 "\301!\205 \302!\207" [error-tip-timer-object timerp cancel-timer] 2 (#$ . 4905)]) | |
| 74 | #@117 Return non-nil if error is occurred in current buffer. | |
| 75 | This function can catch error against flycheck, and flymake. | |
| 76 | (defalias 'error-tip-error-p #[0 "\302\300!\203\f \203\f \303\207\302\301!\203 \204! \304\305!\203# \305 \203# \306\207\307\207" [flycheck-current-errors flymake-err-info boundp flycheck fboundp flymake-diagnostics flymake nil] 2 (#$ . 5069)]) | |
| 77 | #@206 Showing error function. | |
| 78 | This function switches proper error showing function by context. | |
| 79 | (whether flycheck or flymake) The REVERSE option jumps by inverse if | |
| 80 | the value is non-nil. | |
| 81 | ||
| 82 | (fn &optional REVERSE) | |
| 83 | (defalias 'error-tip-cycle-dwim #[256 "\300 \211\301\267\202 \302\202 \303\202 \304\262!\207" [error-tip-error-p #s(hash-table size 2 test eql rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (flycheck 8 flymake 12)) flycheck-tip-cycle flymake-tip-cycle nil] 4 (#$ . 5439) nil]) | |
| 84 | #@72 Same as ‘error-tip-cycle-dwim’, but it jumps to inverse direction. | |
| 85 | (defalias 'error-tip-cycle-dwim-reverse #[0 "\300\301!\207" [error-tip-cycle-dwim t] 2 (#$ . 5941) nil]) | |
| 86 | #@89 Keep ERROR-MESSAGES on notification area. | |
| 87 | See also ‘error-tip-notify-keep-messages’ | |
| 88 | (defalias 'error-tip-notify #[0 "\304\305\306\307\310\311\312\313\314\315 @!\n>\203 \316 \202 !\"\317BB\"BEC!\211\207" [error-tip-notify-parametors error-tip-current-errors cl-struct-cl-structure-object-tags error-tip-notify-last-notification apply lambda nil notifications-notify append :body format "%s" error-tip-format type-of error-tip-get-errors (:replaces-id error-tip-notify-last-notification :timeout error-tip-notify-timeout)] 12 (#$ . 6123)]) | |
| 89 | (provide 'error-tip) | |
