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

Chizi123
2018-11-18 21067e7cbe6d7a0f65ff5c317a96b5c337b0b3d8
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
;ELC
;;; Compiled
;;; in Emacs version 26.1
;;; with all optimizations.
 
;;; This file contains utf-8 non-ASCII characters,
;;; and so cannot be loaded into Emacs 22 or earlier.
(and (boundp 'emacs-version)
     (< (aref emacs-version (1- (length emacs-version))) ?A)
     (string-lessp emacs-version "23")
     (error "`%s' was compiled for Emacs 23 or later" #$))
 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 
 
(byte-code "\300\301!\210\300\302!\210\300\303!\207" [require cl-lib popup notifications] 2)
#@133 If the value is non-nil, keep error messages to notification area.
This feature only activates when you leave from popup's message.
(defvar error-tip-notify-keep-messages nil (#$ . 502))
#@23 Last notification id.
(defvar error-tip-notify-last-notification nil (#$ . 695))
#@53 Value for time out.  The default value is 1 minute.
(defvar error-tip-notify-timeout 60000 (#$ . 782))
#@260 Parameters for ‘error-tip-notify’.
You can add ‘notifications-notify’s parametors without :body, :replaces-id and
:timeout.
 
Example:
 
  (setq error-tip-notify-parametors
        (append error-tip-notify-parametors '(:app-icon "/path/to/icon-file")))
(defvar error-tip-notify-parametors '(:title "flycheck-tip" :category "im.error") (#$ . 892))
(defvar error-tip-popup-object nil)
(defvar error-tip-timer-object nil)
(defvar error-tip-current-errors nil)
#@107 Whether how much delay showing error popup.
If you set nil to this variable, then do not use delay timer.
(defvar error-tip-timer-delay 0.3 (#$ . 1362))
#@79 Use this variable if you want change specific characters to turn to newlines.
(defvar error-tip-newline-character nil (#$ . 1521))
(defvar error-tip-state nil)
#@33 
 
(fn ERRORS &optional REVERSE)
(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)])
#@20 
 
(fn ERR ELEMENT)
(defalias 'error-tip-get #[514 "\300\301!\205\n\301\"\207" [fboundp flycheck-tip--get] 5 (#$ . 2385)])
#@42 Collect errors from ERRORS.
 
(fn ERRORS)
(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)])
#@199 Popup error message(s) from ERRORS.
If there are multiple errors on current line, all current line's errors are
appeared.  The POINT arg is a point to show up error(s).
 
(fn ERRORS &optional POINT)
(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)])
#@47 Return point where the popup message emerges.
(defalias 'error-tip-get-point #[0 "\300 T\207" [point-at-bol] 1 (#$ . 3507)])
#@29 Format ERRORS.
 
(fn ERRORS)
(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)])
#@13 Get errors.
(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)])
#@22 Delete popup object.
(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)])
#@41 Register timer that show error message.
(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)])
#@34 Cancel `error-tip-timer-object'.
(defalias 'error-tip-cancel-timer #[0 "\301!\205    \302!\207" [error-tip-timer-object timerp cancel-timer] 2 (#$ . 4905)])
#@117 Return non-nil if error is occurred in current buffer.
This function can catch error against flycheck, and flymake.
(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)])
#@206 Showing error function.
This function switches proper error showing function by context.
 (whether flycheck or flymake) The REVERSE option jumps by inverse if
the value is non-nil.
 
(fn &optional REVERSE)
(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])
#@72 Same as ‘error-tip-cycle-dwim’, but it jumps to inverse direction.
(defalias 'error-tip-cycle-dwim-reverse #[0 "\300\301!\207" [error-tip-cycle-dwim t] 2 (#$ . 5941) nil])
#@89 Keep ERROR-MESSAGES on notification area.
See also ‘error-tip-notify-keep-messages’
(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)])
(provide 'error-tip)