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

Chizi123
2018-11-21 5ddac8bd2392ec5b64392e8750d725029bf5aa79
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
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
;ELC
;;; Compiled
;;; in Emacs version 26.1
;;; with all optimizations.
 
;;; This file uses dynamic docstrings, first added in Emacs 19.29.
 
;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.
 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 
 
(byte-code "\300\301!\210\300\302!\207" [require org cl-lib] 2)
#@37 Active buffer for mouse operations.
(defvar org-mouse-main-buffer nil (#$ . 472))
#@47 Regular expression that matches a plain list.
(defvar org-mouse-plain-list-regexp "\\([     ]*\\)\\([-+*]\\|[0-9]+[.)]\\) " (#$ . 560))
#@268 Internal variable indicating whether the current action is direct.
 
If t, then the current action has been invoked directly through the buffer
it is intended to operate on.  If nil, then the action has been invoked
indirectly, for example, through the agenda buffer.
(defvar org-mouse-direct t (#$ . 700))
(byte-code "\300\301\302\303\304\305\306\307&\210\310\311\312\313\314DD\315\306\301\316\317&\210\310\320\312\313\321DD\322\306\301\316\323&\207" [custom-declare-group org-mouse nil "Mouse support for org-mode." :tag "Org Mouse" :group org custom-declare-variable org-mouse-punctuation funcall function #[0 "\300\207" [#1=":"] 1 #1#] "Punctuation used when inserting text by drag and drop." :type string org-mouse-features #[0 "\300\207" [(context-menu yank-link activate-stars activate-bullets activate-checkboxes)] 1] "The features of org-mouse that should be activated.\nChanging this variable requires a restart of Emacs to get activated." (set :greedy t (const :tag "Mouse-3 shows context menu" context-menu) (const :tag "C-mouse-1 and mouse-3 move trees" move-tree) (const :tag "S-mouse-2 and drag-mouse-3 yank link" yank-link) (const :tag "Activate headline stars" activate-stars) (const :tag "Activate item bullets" activate-bullets) (const :tag "Activate checkboxes" activate-checkboxes))] 8)
#@70 Search the current line for a given regular expression.
 
(fn REGEXP)
(defalias 'org-mouse-re-search-line #[257 "\300 \210\301\302 \303#\207" [beginning-of-line re-search-forward point-at-eol t] 5 (#$ . 2016)])
#@52 Go to the end of current headline (ignoring tags).
(defalias 'org-mouse-end-headline #[0 "\300\210\301\300x\210\302\303\304 \"\205\305\300x\210\301\300x\207" [nil "     " looking-back ":[A-Za-z]+:" line-beginning-position ":A-Za-z"] 3 (#$ . 2233) nil])
#@138 Function to create the context menu.
The value of this variable is the function invoked by
`org-mouse-context-menu' as the context menu.
(defvar org-mouse-context-menu-function nil (#$ . 2493))
(make-variable-buffer-local 'org-mouse-context-menu-function)
#@190 Invoke the context menu.
 
If the value of `org-mouse-context-menu-function' is a function, then
this function is called.  Otherwise, the current major mode menu is used.
 
(fn EVENT PREFIX)
(defalias 'org-mouse-show-context-menu #[514 "\211:\203\3048\250\203\3048\262\202\305\262\305U\203i\203)\306    \307\245!\203i\310\311!\211@\262!\210\312 \204M\313\311!!b\210l\204I\212\314\315!\210)\306\316!\210\317\n!\203W\n!\207\320\321!\203d\322\321 #\207\323\"\207\324\211!\207" [mark-active double-click-time org-mouse-context-menu-function this-command 2 1 sit-for 1000.0 select-window event-start org-mouse-mark-active posn-point run-hooks post-command-hook 0 functionp fboundp mouse-menu-major-mode-map popup-menu mouse-major-mode-menu mouse-save-then-kill] 7 (#$ . 2756) "@e \nP"])
#@290 Return `:beginning' or `:middle' or `:end', depending on the point position.
 
If the point is at the end of the line, return `:end'.
If the point is separated from the beginning of the line only by white
space and *'s (`org-mouse-bolp'), return `:beginning'.  Otherwise,
return `:middle'.
(defalias 'org-mouse-line-position #[0 "l\203\300\207\301 \203 \302\207\303\207" [:end org-mouse-bolp :beginning :middle] 1 (#$ . 3569)])
#@56 Return non-nil iff the line contains only white space.
(defalias 'org-mouse-empty-line #[0 "\212\300 \210\301\302!)\207" [beginning-of-line looking-at "[     ]*$"] 2 (#$ . 4005)])
#@103 Go to the next heading.
If there is none, ensure that the point is at the beginning of an empty line.
(defalias 'org-mouse-next-heading #[0 "\300 ?\205\301 \210\302 ?\205\303\210\304 \207" [outline-next-heading beginning-of-line org-mouse-empty-line nil newline] 1 (#$ . 4189)])
#@221 Insert a new heading, as `org-insert-heading'.
 
If the point is at the :beginning (`org-mouse-line-position') of the line,
insert the new heading before the current line.  Otherwise, insert it
after the current heading.
(defalias 'org-mouse-insert-heading #[0 "\300 \211\301\267\202\302 \210\303 \202\304 \210\303 \207" [org-mouse-line-position #s(hash-table size 1 test eql rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (:beginning 8)) beginning-of-line org-insert-heading org-mouse-next-heading] 3 (#$ . 4480) nil])
#@137 Change the timestamp into SHIFT UNITS in the future.
 
For the acceptable UNITS, see `org-timestamp-change'.
 
(fn &optional SHIFT UNITS)
(defalias 'org-mouse-timestamp-today #[512 "\300\301!\210\205\f\302\"\207" [org-time-stamp nil org-timestamp-change] 5 (#$ . 5019) nil])
#@883 A helper function.
 
Returns a menu fragment consisting of KEYWORDS.  When a keyword
is selected by the user, FUNCTION is called with the selected
keyword as the only argument.
 
If SELECTED is nil, then all items are normal menu items.  If
SELECTED is a function, then each item is a checkbox, which is
enabled for a given keyword iff (funcall SELECTED keyword) return
non-nil.  If SELECTED is neither nil nor a function, then the
items are radio buttons.  A radio button is enabled for the
keyword `equal' to SELECTED.
 
ITEMFORMAT governs formatting of the elements of KEYWORDS.  If it
is a function, it is invoked with the keyword as the only
argument.  If it is a string, it is interpreted as the format
string to (format ITEMFORMAT keyword).  If it is neither a string
nor a function, elements of KEYWORDS are used directly.
 
(fn KEYWORDS FUNCTION &optional SELECTED ITEMFORMAT)
(defalias 'org-mouse-keyword-menu #[1026 "\300\301\302\303\304\305D\306\307BBD\310D\311\312BBD\313BBB\314\315    \316BBB\317\304\320\nD\321B\305 D\322B\323BBB\324\325\305\fD\326\306\327BB\330BB\331\332BBF\257E\"\207" [mapcar lambda (keyword) vector cond functionp funcall (keyword) stringp format (keyword) ((t keyword)) list 'funcall (keyword) :style null (t) ('toggle) ((t 'radio)) :selected if and (keyword) (t) equal (keyword)] 19 (#$ . 5303)])
#@57 Remove the match, make just one space around the point.
(defalias 'org-mouse-remove-match-and-spaces #[0 "\300\301!\210\302 \207" [replace-match "" just-one-space] 2 (#$ . 6655) nil])
#@129 The same as `replace-match', but surrounds the replacement with spaces.
 
(fn NEWTEXT &optional FIXEDCASE LITERAL STRING SUBEXP)
(defalias 'org-mouse-replace-match-and-surround #[1281 "\301\302\"\210\212\211\206 \303\224b\210\304 \210\211\206\303\225b\210\304 )\207" [org-mouse-rest apply replace-match 0 just-one-space] 8 (#$ . 6846)])
#@754 A helper function.
 
Returns a menu fragment consisting of KEYWORDS.  When a keyword
is selected, group GROUP of the current match is replaced by the
keyword.  The method ensures that both ends of the replacement
are separated from the rest of the text in the buffer by
individual spaces (unless NOSURROUND is non-nil).
 
The final entry of the menu is always "None", which removes the
match.
 
ITEMFORMAT governs formatting of the elements of KEYWORDS.  If it
is a function, it is invoked with the keyword as the only
argument.  If it is a string, it is interpreted as the format
string to (format ITEMFORMAT keyword).  If it is neither a string
nor a function, elements of KEYWORDS are used directly.
 
(fn KEYWORDS &optional GROUP ITEMFORMAT NOSURROUND)
(defalias 'org-mouse-keyword-replace-menu #[1025 "\206\300\262\301\203\302\202\303!\304\305\306\307\310\311\312\211\313\257E\314!$\315\316\317\320\321\322\314\f! \235?&C\"\207" [0 org-mouse-match-closure replace-match org-mouse-replace-match-and-surround append org-mouse-keyword-menu lambda (keyword) funcall keyword t nil match-string vector "None" org-mouse-remove-match-and-spaces :style radio :selected] 17 (#$ . 7193)])
#@73 Change the visibility of the current org buffer to only show headlines.
(defalias 'org-mouse-show-headlines #[0 "\303\211\304\303\305!\210\303\306!+\207" [org-cycle-global-status last-command this-command org-cycle nil (4) (4)] 3 (#$ . 8401) nil])
#@72 Change visibility of current org buffer to first-level headlines only.
(defalias 'org-mouse-show-overview #[0 "\301\302\303!)\207" [org-cycle-global-status nil org-cycle (4)] 2 (#$ . 8658) nil])
#@70 Set the priority of the current headline to PRIORITY.
 
(fn PRIORITY)
(defalias 'org-mouse-set-priority #[257 "\300!\207" [org-priority] 3 (#$ . 8860)])
#@134 Regular expression matching the priority indicator.
Differs from `org-priority-regexp' in that it doesn't contain the
leading `.*?'.
(defvar org-mouse-priority-regexp "\\[#\\([A-Z]\\)\\]" (#$ . 9020))
#@131 Return the priority of the current headline.
DEFAULT is returned if no priority is given in the headline.
 
(fn &optional DEFAULT)
(defalias 'org-mouse-get-priority #[256 "\212\302!\203 \303\304!\202\211\205\305    !)\207" [org-mouse-priority-regexp org-default-priority org-mouse-re-search-line match-string 1 char-to-string] 3 (#$ . 9228)])
#@110 Deletes the current timestamp as well as the preceding keyword.
SCHEDULED: or DEADLINE: or ANYTHINGLIKETHIS:
(defalias 'org-mouse-delete-timestamp #[0 "\300 \204 \301\302!\205\303\304!\210\305\306x\210\307\310!\205\303\304!\207" [org-at-date-range-p org-at-timestamp-p lax replace-match "" " :A-Z" nil looking-at " *[A-Z][A-Z]+:"] 2 (#$ . 9580)])
#@45 
 
(fn REGEXP SKIPCHARS &optional MOVECHARS)
(defalias 'org-mouse-looking-at #[770 "\212`\300!\203\f\301\202!\302x\210\206\303u\210\300!\205!\303\225V\262)\207" [looking-at t nil 0] 6 (#$ . 9938)])
(defalias 'org-mouse-priority-list #[0 "\301\302X\203\303!B\262T\262\202\211\237\207" [org-lowest-priority 65 nil char-to-string] 5])
#@49 Create the menu with TODO keywords.
 
(fn STATE)
(defalias 'org-mouse-todo-menu #[257 "\301\302\303\304\305\306\307\310\n!\311\"\312\313%#\262!\207" [org-todo-keywords-1 append org-mouse-keyword-menu (lambda (kwd) (org-todo kwd)) make-byte-code 257 "\300\232\207" vconcat vector [] 3 "\n\n(fn KWD)"] 12 (#$ . 10298)])
#@23 Create the tags menu.
(defalias 'org-mouse-tag-menu #[0 "\300\301 \302\303\304\305\306 \"\307\"\310\311\312\303\313\314\315\316\nDE\317\315\316 DE\320\315\316\fDEF\321BBDE\310\322\314\315\316DEE#\262\323\"\207" [append org-get-tags org-mouse-keyword-menu sort mapcar car org-get-buffer-tags string-lessp lambda (tag) org-mouse-set-tags if member tag quote delete cons ('string-lessp) (tag) ("--" ["Align Tags Here" (org-set-tags nil t) t] ["Align Tags in Buffer" (org-set-tags t t) t] ["Set Tags ..." (org-set-tags) t])] 15 (#$ . 10626)])
#@13 
 
(fn TAGS)
(defalias 'org-mouse-set-tags #[257 "\212\300 \210\301\302!\203\303\304!\210\211\205#\305\210\306\307\310\311#\311\261\210\312\305\313\")\207" [beginning-of-line org-mouse-re-search-line ":\\(\\([A-Za-z_]+:\\)+\\)" replace-match "" nil " :" mapconcat identity ":" org-set-tags t] 6 (#$ . 11177)])
(defalias 'org-mouse-insert-checkbox #[0 "\300 \205\301\225b\205\302 ?\205\303 \210\304c\207" [org-at-item-p 0 org-at-item-checkbox-p delete-horizontal-space " [ ] "] 1 nil nil])
#@13 
 
(fn TYPE)
(defalias 'org-mouse-agenda-type #[257 "\211\300\267\202\301\207\302\207\303\207\304\207\305\207\306\207" [#s(hash-table size 5 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (tags 6 todo 8 tags-tree 10 todo-tree 12 occur-tree 14)) "Tags: " "TODO: " "Tags tree: " "TODO tree: " "Occur tree: " "Agenda command ???"] 3 (#$ . 11683)])
#@38 
 
(fn ALLOPTIONS &optional FUNCTION)
(defalias 'org-mouse-list-options-menu #[513 "\300 \301\302\303\304\305!\306\"\307$\216\310\311\312!!)\262\313!\210\314\211:\203@\262\305\315\316\317\320\321\322\323\324 D\324DE\325\324\fD\324DE\326\324 D\324DEF\327BB\330BBB\331BB\332\333\324 DD\334\324\fDDEE\335\336\337\n\235\205r\340&B\262A\262\202\211\237\266\203\207" [match-data make-byte-code 0 "\301\300\302\"\207" vconcat vector [set-match-data evaporate] 3 split-string match-string-no-properties 1 print nil progn replace-match mapconcat 'identity sort if member quote delete cons ('string-lessp) (" ") (nil nil nil 1) when functionp funcall :style toggle :selected t] 20 (#$ . 12052)])
#@23 
 
(fn TEXT MAXLENGTH)
(defalias 'org-mouse-clip-text #[514 "GV\203\300\301ZO\302P\207\207" [0 3 "..."] 6 (#$ . 12775)])
(defalias 'org-mouse-popup-global-menu #[0 "\301\302\303\304\305\306\307\310\311\312\313\314\315\316\317\320 \"\321\"\322\"\323\"B\324\307\325\326\327\313\314\315\316\317\320 \"\321\"\330\"\331\"B\332\307\313\314\316\317\"\333\334\335$\336\"BBBBBBBBBBBBBBBB!\207" [org-agenda-custom-commands popup-menu "Main Menu" ["Show Overview" org-mouse-show-overview t] ["Show Headlines" org-mouse-show-headlines t] ["Show All" outline-show-all t] ["Remove Highlights" org-remove-occur-highlights :visible org-occur-highlights] "--" ["Check Deadlines" (if (functionp 'org-check-deadlines-and-todos) (org-check-deadlines-and-todos org-deadline-warning-days) (org-check-deadlines org-deadline-warning-days)) t] ["Check TODOs" org-show-todo-tree t] "Check Tags" append org-mouse-keyword-menu sort mapcar car org-get-buffer-tags string-lessp #[257 "\300\301\"\207" [org-tags-sparse-tree nil] 4 "\n\n(fn TAG)"] ("--" ["Custom Tag ..." org-tags-sparse-tree t]) ["Check Phrase ..." org-occur] ["Display Agenda" org-agenda-list t] ["Display TODO List" org-todo-list t] "Display Tags" #[257 "\300\301\"\207" [org-tags-view nil] 4 "\n\n(fn TAG)"] ("--" ["Custom Tag ..." org-tags-view t]) ["Display Calendar" org-goto-calendar t] #[257 "\300\301\302\303DE!\207" [eval org-agenda nil string-to-char] 6 "\n\n(fn KEY)"] nil #[257 "\301\"\302A@;\203A@\202&\3038;\203%\304A@!\3038P\202&\305\306\"\207" [org-agenda-custom-commands assoc org-mouse-clip-text 2 org-mouse-agenda-type "Agenda Command `%s'" 30] 6 "\n\n(fn KEY)"] ("--" ["Delete Blank Lines" delete-blank-lines :visible (org-mouse-empty-line)] ["Insert Checkbox" org-mouse-insert-checkbox :visible (and (org-at-item-p) (not (org-at-item-checkbox-p)))] ["Insert Checkboxes" (org-mouse-for-each-item 'org-mouse-insert-checkbox) :visible (and (org-at-item-p) (not (org-at-item-checkbox-p)))] ["Plain List to Outline" org-mouse-transform-to-outline :visible (org-at-item-p)])] 23])
#@28 
 
(fn CONTEXTLIST CONTEXT)
(defalias 'org-mouse-get-context #[514 "\211\236\211\205\212\211A@b\210\300\301\3028\")\207" [re-search-forward ".*" 2] 7 (#$ . 14836)])
#@14 
 
(fn FUNCT)
(defalias 'org-mouse-for-each-item #[257 "\300\301\302\303\304!\305\"\306\307%\3101\311 b0\202\210\312\202%\205%\212\313\312\")\207" [make-byte-code 257 "\300 \207" vconcat vector [] 2 "\n\n(fn _)" (error) org-in-item-p nil org-apply-on-list] 7 (#$ . 15010)])
#@120 Return true if there only spaces, tabs, and `*' before point.
This means, between the beginning of line and the point.
(defalias 'org-mouse-bolp #[0 "\212\300\301x\210n)\207" ["     *" nil] 2 (#$ . 15298)])
#@13 
 
(fn TEXT)
(defalias 'org-mouse-insert-item #[257 "\301 \211\302\267\202G\303 \210\304\305!\210\306\307!\210\310\225\310\224Zj\210\311c\210\202G\312\210\313\314!\210\315 \210\311c\210\202G\316\312x\210\317`\320 \"\210\321\322 \"\204G\323Pc\210\210\211c\210\303 \207" [org-mouse-punctuation org-mouse-line-position #s(hash-table size 3 test eql rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (:beginning 8 :middle 32 :end 48)) beginning-of-line looking-at "[     ]*" open-line 1 0 "+ " nil newline t indent-relative "     " kill-region point-at-eol looking-back line-beginning-position " "] 5 (#$ . 15508)])
(byte-code "\300\301\302\303\304$\210\305\301\304\"\210\300\306\307\303\304$\210\305\306\304\"\207" [ad-add-advice dnd-insert-text (org-mouse-dnd-insert-text nil t (advice lambda nil (if (derived-mode-p 'org-mode) (org-mouse-insert-item text) ad-do-it))) around nil ad-activate dnd-open-file (org-mouse-dnd-open-file nil t (advice lambda nil (if (derived-mode-p 'org-mode) (org-mouse-insert-item uri) ad-do-it)))] 5)
#@17 
 
(fn FUNCTION)
(defalias 'org-mouse-match-closure #[257 "\300\301!\302\303\304\305\306DD\307\306D\310BBEE\207" [match-data t lambda (&rest rest) save-match-data set-match-data quote apply (rest)] 9 (#$ . 16549)])
#@14 
 
(fn CLICK)
(defalias 'org-mouse-yank-link #[257 "\301\302!\210\303!\210\304\305 \210\306\307\310\304!\311Q!\207" [mouse-selection-click-count run-hooks mouse-leave-buffer-hook mouse-set-point 0 delete-horizontal-space insert-for-yank " [[" current-kill "]] "] 5 (#$ . 16772) "e"])
#@24 
 
(fn &optional EVENT)
(defalias 'org-mouse-context-menu #[256 "    D\306 \307\310 \203O\311 \312 {\313\314\315\316\317\320DD\"\315\321\322\320DD\"\315\323\324\325\326\320\nDED\"\315\327\324\325\330\320 DED\"\331\332\315\333\334\320DD\"\257!\262\202\373\212\335 \210\336\337!)\203h\313\314\340\341\342\n\"\343\"B!\202\373l\204}\336\344!\203\202\345\346`\347Z\350 #\203\202\351 \202\373\211\352\"\203\217\313\353!\202\373\354\355\356\"\203\273\357\360! \235\203\273\313\314\361\362\357\360!!\331\363\364\365\315\325\366\357\360!\"\367B\"F\"B!\202\373\354\370\371\"\203\330\357\360!\235\203\330\313\314\361\372!\373\"B!\202\373\354\f\374\"\203\357\313\314\372\375 \376\377\201@$B!\202\373\211\201A\"\203\313\201B!\202\373\354\201C\201D\201E#\203E\313\314\315\201F\201G\357\376!\"\201H\314\357\376!E\"\315\201F\201I\357\376!\"\201J\314\357\376!E\"\331\201K BBBB!\202\373\201L\201M!\203W\313\201N!\202\373\211\201O\"\203\222\201P \211\211@\347\\\240\266\201Q!\266\201R\201S\357\360!\"\210\313\314\372\201T\360\201U\201@$B!\202\373\201V\236\203\242\313\201W!\202\373\201X\236\203\371l\204\371\201Y\201@!\313\201Z\201[\361\201\\\375 \201]\377$\201^\201K #B\201_\362\201` !B\201a\201b\361 \205\352\201c\201d\"BBBBB!\262\202\373\351 \207" [org-deadline-string org-scheduled-string org-startup-options org-todo-keywords-1 org-mouse-priority-regexp org-mouse-direct org-context #[514 "\300\"\207" [org-mouse-get-context] 5 "\n\n(fn CONTEXTLIST CONTEXT)"] org-mouse-mark-active region-beginning region-end popup-menu nil vector "Sparse Tree" org-occur quote "Find in Buffer" occur "Grep in Current Dir" grep format "grep -rnH -e '%s' *" "Grep in Parent Dir" "grep -rnH -e '%s' ../*" "--" ["Convert to Link" (progn (save-excursion (goto-char (region-beginning)) (insert "[[")) (save-excursion (goto-char (region-end)) (insert "]]")))] "Insert Link Here" org-mouse-yank-link beginning-of-line looking-at "[     ]*#\\+STARTUP: \\(.*\\)" org-mouse-list-options-menu mapcar car org-mode-restart "\\(  \\|    \\)\\(+:[0-9a-zA-Z_:]+\\)?\\(  \\|    \\)+$" looking-back "  \\|    " 2 line-beginning-position org-mouse-popup-global-menu :checkbox (nil ["Toggle" org-toggle-checkbox t] ["Remove" org-mouse-remove-match-and-spaces t] "" ["All Clear" (org-mouse-for-each-item (lambda nil (when (save-excursion (org-at-item-checkbox-p)) (replace-match "[ ] "))))] ["All Set" (org-mouse-for-each-item (lambda nil (when (save-excursion (org-at-item-checkbox-p)) (replace-match "[X] "))))] ["All Toggle" (org-mouse-for-each-item 'org-toggle-checkbox) t] ["All Remove" (org-mouse-for-each-item (lambda nil (when (save-excursion (org-at-item-checkbox-p)) (org-mouse-remove-match-and-spaces))))]) org-mouse-looking-at "\\b\\w+" "a-zA-Z0-9_" match-string 0 append org-mouse-todo-menu ["Check TODOs" org-show-todo-tree t] ["List all TODO keywords" org-todo-list t] apply "List only %s" ((org-todo-list (match-string 0)) t) "\\b[A-Z]+:" "A-Z" org-mouse-keyword-replace-menu ("--" ["Check Deadlines" org-check-deadlines t]) "[]A-Z#" org-mouse-priority-list 1 "Priority %s" t :link (nil ["Open" org-open-at-point t] ["Open in Emacs" (org-open-at-point t) t] "--" ["Copy link" (org-kill-new (match-string 0))] ["Cut link" (progn (kill-region (match-beginning 0) (match-end 0)) (just-one-space))] "--" ["Grep for TODOs" (grep (format "grep -nH -i 'todo\\|fixme' %s*" (match-string 2)))]) ":\\([A-Za-z0-9_]+\\):" "A-Za-z0-9_" -1 format-message "Display `%s'" org-tags-view "Sparse Tree `%s'" org-tags-sparse-tree org-mouse-tag-menu org-at-timestamp-p lax (nil ["Show Day" org-open-at-point t] ["Change Timestamp" org-time-stamp t] ["Delete Timestamp" (org-mouse-delete-timestamp) t] ["Compute Time Range" org-evaluate-time-range (org-at-date-range-p)] "--" ["Set for Today" org-mouse-timestamp-today] ["Set for Tomorrow" (org-mouse-timestamp-today 1 'day)] ["Set in 1 Week" (org-mouse-timestamp-today 7 'day)] ["Set in 2 Weeks" (org-mouse-timestamp-today 14 'day)] ["Set in a Month" (org-mouse-timestamp-today 1 'month)] "--" ["+ 1 Day" (org-timestamp-change 1 'day)] ["+ 1 Week" (org-timestamp-change 7 'day)] ["+ 1 Month" (org-timestamp-change 1 'month)] "--" ["- 1 Day" (org-timestamp-change -1 'day)] ["- 1 Week" (org-timestamp-change -7 'day)] ["- 1 Month" (org-timestamp-change -1 'month)]) :table-special match-data store-match-data message "match: %S" (" " "!" "^" "_" "$" "#" "*" "'") #[257 "\300!\211\301\267\202)\302\202*\303\202*\304\202*\305\202*\306\202*\307\202*\310\202*\311\202*\312\207" [string-to-char #s(hash-table size 8 test eql rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (32 9 33 13 94 17 95 21 36 25 35 29 42 33 39 37)) "( ) Nothing Special" "(!) Column Names" "(^) Field Names Above" "(^) Field Names Below" "($) Formula Parameters" "(#) Recalculation: Auto" "(*) Recalculation: Manual" "(') Recalculation: None" nil] 4 "\n\n(fn MARK)"] :table (nil ["Align Table" org-ctrl-c-ctrl-c] ["Blank Field" org-table-blank-field] ["Edit Field" org-table-edit-field] "--" ("Column" ["Move Column Left" org-metaleft] ["Move Column Right" org-metaright] ["Delete Column" org-shiftmetaleft] ["Insert Column" org-shiftmetaright] "--" ["Enable Narrowing" (setq org-table-limit-column-width (not org-table-limit-column-width)) :selected org-table-limit-column-width :style toggle]) ("Row" ["Move Row Up" org-metaup] ["Move Row Down" org-metadown] ["Delete Row" org-shiftmetaup] ["Insert Row" org-shiftmetadown] ["Sort lines in region" org-table-sort-lines (org-at-table-p)] "--" ["Insert Hline" org-table-insert-hline]) ("Rectangle" ["Copy Rectangle" org-copy-special] ["Cut Rectangle" org-cut-special] ["Paste Rectangle" org-paste-special] ["Fill Rectangle" org-table-wrap-region]) "--" ["Set Column Formula" org-table-eval-formula] ["Set Field Formula" (org-table-eval-formula '(4))] ["Edit Formulas" org-table-edit-formulas] "--" ["Recalculate Line" org-table-recalculate] ["Recalculate All" (org-table-recalculate '(4))] ["Iterate All" (org-table-recalculate '(16))] "--" ["Toggle Recalculate Mark" org-table-rotate-recalc-marks] ["Sum Column/Rectangle" org-table-sum :active (or (org-at-table-p) (org-region-active-p))] ["Field Info" org-table-field-info] ["Debug Formulas" (setq org-table-formula-debug (not org-table-formula-debug)) :style toggle :selected org-table-formula-debug]) :headline org-mouse-get-priority "Headline Menu" "Tags and Priorities" org-mouse-keyword-menu #[257 "\300\301!!\207" [org-mouse-set-priority string-to-char] 4 "\n\n(fn KEYWORD)"] ("--") "TODO Status" org-get-todo-state ["Show Tags" (with-current-buffer org-mouse-main-buffer (org-agenda-show-tags)) :visible (not org-mouse-direct)] ["Show Priority" (with-current-buffer org-mouse-main-buffer (org-agenda-show-priority)) :visible (not org-mouse-direct)] ("--") (["New Heading" org-mouse-insert-heading :visible org-mouse-direct] ["Set Deadline" (progn (org-mouse-end-headline) (insert " ") (org-deadline)) :active (not (save-excursion (org-mouse-re-search-line org-deadline-regexp)))] ["Schedule Task" (progn (org-mouse-end-headline) (insert " ") (org-schedule)) :active (not (save-excursion (org-mouse-re-search-line org-scheduled-regexp)))] ["Insert Timestamp" (progn (org-mouse-end-headline) (insert " ") (org-time-stamp nil)) t] "--" ["Archive Subtree" org-archive-subtree] ["Cut Subtree" org-cut-special] ["Copy Subtree" org-copy-special] ["Paste Subtree" org-paste-special :visible org-mouse-direct] ("Sort Children" ["Alphabetically" (org-sort-entries nil 97)] ["Numerically" (org-sort-entries nil 110)] ["By Time/Date" (org-sort-entries nil 116)] "--" ["Reverse Alphabetically" (org-sort-entries nil 65)] ["Reverse Numerically" (org-sort-entries nil 78)] ["Reverse By Time/Date" (org-sort-entries nil 84)]) "--" ["Move Trees" org-mouse-move-tree :active nil])] 18 (#$ . 17063)])
(defalias 'org-mouse-mark-active #[0 "\205    \207" [mark-active transient-mark-mode] 1])
#@12 
 
(fn POS)
(defalias 'org-mouse-in-region-p #[257 "\300 \205\211\301 Y\205\211\302 W\207" [org-mouse-mark-active region-beginning region-end] 3 (#$ . 25016)])
#@14 
 
(fn EVENT)
(defalias 'org-mouse-down-mouse #[257 "\211\211:\203\3028\250\203\3028\262\202\303\262\303U\205&\304\305\306!!!?\205-\307!\207" [last-command this-command 2 1 org-mouse-in-region-p posn-point event-start mouse-drag-region] 5 (#$ . 25185) "e"])
(add-hook 'org-mode-hook #[0 "\305\306    >\203\307\n\310\311#\210\307 \312\313#\210\307 \314\315#\210\306    >\203,\307\n\316\317#\210\307\n\320\321#\210\322    >\203>\307 \323\324#\210\307 \325\324#\210\326    >\203P\307\n\327\317#\210\307\n\330\321#\210\331    >\203_\332\311\f\333BC\334#\210\335    >\203k\332\311\336\334#\210\337    >\203w\332\311\340\334#\210\341\342\343\344\311$\210\345\342\311\"\210\342\207" [org-mouse-context-menu-function org-mouse-features org-mouse-map org-mode-map org-outline-regexp org-mouse-context-menu context-menu org-defkey [mouse-3] nil [mouse-3] org-mouse-show-context-menu [down-mouse-1] org-mouse-down-mouse [C-drag-mouse-1] org-mouse-move-tree [C-down-mouse-1] org-mouse-move-tree-start yank-link [S-mouse-2] org-mouse-yank-link [drag-mouse-3] move-tree [drag-mouse-3] [down-mouse-3] activate-stars font-lock-add-keywords (0 `(face org-link mouse-face highlight keymap ,org-mouse-map) 'prepend) t activate-bullets (("^[     ]*\\([-+*]\\|[0-9]+[.)]\\) +" (1 `(face org-link keymap ,org-mouse-map mouse-face highlight) 'prepend))) activate-checkboxes (("^[     ]*\\([-+*]\\|[0-9]+[.)]\\) +\\(\\[[ X]\\]\\)" (2 `(face bold keymap ,org-mouse-map mouse-face highlight) t))) ad-add-advice org-open-at-point (org-mouse-open-at-point nil t (advice lambda nil (let ((context (org-context))) (cond ((assq :headline-stars context) (org-cycle)) ((assq :checkbox context) (org-toggle-checkbox)) ((assq :item-bullet context) (let ((org-cycle-include-plain-lists t)) (org-cycle))) ((org-footnote-at-reference-p) nil) (t ad-do-it))))) around ad-activate] 5])
#@14 
 
(fn EVENT)
(defalias 'org-mouse-move-tree-start #[257 "\300\301!\207" [message "Same line: promote/demote, (***):move before, (text): make a child"] 3 (#$ . 27033) "e"])
#@17 
 
(fn POSITION)
(defalias 'org-mouse-make-marker #[257 "r\300\211@\262!q\210\301\302!!)\207" [window-buffer copy-marker posn-point] 4 (#$ . 27211)])
#@14 
 
(fn EVENT)
(defalias 'org-mouse-move-tree #[257 "\212\301\302!!\301\303!!\304!\304!\205\317\211\205\317q\210b\210\305 \210=\203F`\212b\210\305 \210`)\232\203FY\203A\306 \202\317\307 \202\317\310 \210\211q\210b\210\305 \210=\203\202`\212b\210\305 \210`)\232\203\202\311\312\313\"\210m\204r\314u\210\312\210m\203\315 \210\202\202\312u\210\316!\205\317\317\225\317\224Z\317\225V\203\264\311\312\313\"\210m\204\240\314u\210\312\210m\203\255\315 \210\202\260\312u\210\211T\262\320!\210\212\311\312\313\"\210m\204\305\314u\210n\205\314\321\314!)\262\266\204)\207" [org-outline-regexp org-mouse-make-marker event-start event-end marker-buffer org-back-to-heading org-demote-subtree org-promote-subtree org-cut-subtree org-end-of-subtree nil t -1 newline looking-at 0 org-paste-subtree delete-char] 9 (#$ . 27369) "e"])
(defalias 'org-mouse-transform-to-outline #[0 "\302 \210\303\304\305!\306P\307\310!\210\212m\204-\311!\204-\311    !\203'\312\225\312\224Z^\262\313y\210\202)m\2065\311!?\205S\311    !\203M\312\225\312\224Z=\203M\314!\210\313y\210\202.\207" [org-outline-regexp org-mouse-plain-list-regexp org-back-to-heading 1000 match-string 0 "* " beginning-of-line 2 looking-at 1 nil replace-match] 5 nil nil])
#@16 
 
(fn COMMAND)
(defalias 'org-mouse-do-remotely #[257 "\306`\307\"\205\310 `Z\306`\307\"\311!\312!\306`\313\"\314\315\314prq\210 )\316=\205rq\210\317\314\320\"\210m\204;\321u\210\322 )\314\212\211\203G\211b\210n\203O\321\202P\323\324\321`\"\\)\262\fp r    q\210 )\314\211r\fq\210~\210 b\210\325 \210\212\326 \203~\327\314!\210)\330 \210\322 \262\331 \310 Z]b\210 \210\332\333#\"\210\332\334\f\"\210\312!\312\n!=\204\257\335 \262\n)\336\321!\210\212\337\n\f\340#\210)$\203\f\341rq\210 )\"\262\341rq\210 )\"\262\204\343\211\203\f\203\357rq\210\342 \210)\211\203\373rq\210\342 \210)\257%B%\266    \320+\266\206\207" [buffer-read-only org-mouse-direct org-mouse-main-buffer major-mode this-command buffer-undo-list get-text-property org-marker point-at-eol marker-buffer marker-position org-hd-marker nil "--- removed ---" org-mode org-end-of-subtree t 1 point-marker 0 count-lines org-show-hidden-entry outline-next-heading org-flag-heading org-back-to-heading point-at-bol message "_cmd: %S" "this-command: %S" org-get-heading beginning-of-line org-agenda-change-all-lines fixface org-verify-change-for-undo undo-boundary org-mouse-cmd org-agenda-allow-remote-undo org-agenda-undo-list] 22 (#$ . 28639)])
#@24 
 
(fn &optional EVENT)
(defalias 'org-mouse-agenda-context-menu #[256 "\300\301!\206    \302\303!\207" [org-mouse-do-remotely org-mouse-context-menu popup-menu ("Agenda" ("Agenda Files") "--" ["Undo" (progn (message "last command: %S" last-command) (setq this-command 'org-agenda-undo) (org-agenda-undo)) :visible (if (eq last-command 'org-agenda-undo) org-agenda-pending-undo-list org-agenda-undo-list)] ["Rebuild Buffer" org-agenda-redo t] ["New Diary Entry" org-agenda-diary-entry (org-agenda-check-type nil 'agenda) t] "--" ["Goto Today" org-agenda-goto-today (org-agenda-check-type nil 'agenda) t] ["Display Calendar" org-agenda-goto-calendar (org-agenda-check-type nil 'agenda) t] ("Calendar Commands" ["Phases of the Moon" org-agenda-phases-of-moon (org-agenda-check-type nil 'agenda)] ["Sunrise/Sunset" org-agenda-sunrise-sunset (org-agenda-check-type nil 'agenda)] ["Holidays" org-agenda-holidays (org-agenda-check-type nil 'agenda)] ["Convert" org-agenda-convert-date (org-agenda-check-type nil 'agenda)] "--" ["Create iCalendar file" org-icalendar-combine-agenda-files t]) "--" ["Day View" org-agenda-day-view :active (org-agenda-check-type nil 'agenda) :style radio :selected (eq org-agenda-current-span 'day)] ["Week View" org-agenda-week-view :active (org-agenda-check-type nil 'agenda) :style radio :selected (eq org-agenda-current-span 'week)] "--" ["Show Logbook entries" org-agenda-log-mode :style toggle :selected org-agenda-show-log :active (org-agenda-check-type nil 'agenda)] ["Include Diary" org-agenda-toggle-diary :style toggle :selected org-agenda-include-diary :active (org-agenda-check-type nil 'agenda)] ["Use Time Grid" org-agenda-toggle-time-grid :style toggle :selected org-agenda-use-time-grid :active (org-agenda-check-type nil 'agenda)] ["Follow Mode" org-agenda-follow-mode :style toggle :selected org-agenda-follow-mode] "--" ["Quit" org-agenda-quit t] ["Exit and Release Buffers" org-agenda-exit t])] 3 (#$ . 29907)])
#@14 
 
(fn EVENT)
(defalias 'org-mouse-get-gesture #[257 "\300!\3018\262\302!\3018\262@@W\203\303\202\304\207" [event-start 2 event-end :right :left] 5 (#$ . 31867)])
(byte-code "\300\301\302\"\210\303\304!\207" [add-hook org-agenda-mode-hook #[0 "\302\303    \304\305#\210\303    \306\307#\210\303    \310\311#\210\303    \312\313#\210\303    \314\315#\207" [org-mouse-context-menu-function org-agenda-mode-map org-mouse-agenda-context-menu org-defkey [mouse-3] org-mouse-show-context-menu [down-mouse-3] org-mouse-move-tree-start [C-mouse-4] org-agenda-earlier [C-mouse-5] org-agenda-later [drag-mouse-3] #[257 "\300!\211\301\267\202\302\303!\202\304\303!\202\305\207" [org-mouse-get-gesture #s(hash-table size 2 test eql rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (:left 9 :right 15)) org-agenda-earlier 1 org-agenda-later nil] 4 "\n\n(fn EVENT)" "e"]] 4] provide org-mouse] 3)