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

Chizi123
2018-11-18 434b46beff1c5ec01cbefd5273d89971a82d6bab
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\203UW\2038C\244\262\202UV\203HC\244\262\202UU\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\203LTV\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)