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

Chizi123
2018-11-21 e75a20334813452c6912c090d70a0de2c805f94d
commit | author | age
76bbd0 1 ;ELC
C 2 ;;; Compiled
3 ;;; in Emacs version 26.1
4 ;;; with all optimizations.
5
6 ;;; This file uses dynamic docstrings, first added in Emacs 19.29.
7
8 ;;; This file does not contain utf-8 non-ASCII characters,
9 ;;; and so can be loaded in Emacs versions earlier than 23.
10
11 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
12 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
13
14
15 (byte-code "\300\301!\210\300\302!\207" [require org cl-lib] 2)
16 #@37 Active buffer for mouse operations.
17 (defvar org-mouse-main-buffer nil (#$ . 472))
18 #@47 Regular expression that matches a plain list.
19 (defvar org-mouse-plain-list-regexp "\\([     ]*\\)\\([-+*]\\|[0-9]+[.)]\\) " (#$ . 560))
20 #@268 Internal variable indicating whether the current action is direct.
21
22 If t, then the current action has been invoked directly through the buffer
23 it is intended to operate on.  If nil, then the action has been invoked
24 indirectly, for example, through the agenda buffer.
25 (defvar org-mouse-direct t (#$ . 700))
26 (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)
27 #@70 Search the current line for a given regular expression.
28
29 (fn REGEXP)
30 (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)])
31 #@52 Go to the end of current headline (ignoring tags).
32 (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])
33 #@138 Function to create the context menu.
34 The value of this variable is the function invoked by
35 `org-mouse-context-menu' as the context menu.
36 (defvar org-mouse-context-menu-function nil (#$ . 2493))
37 (make-variable-buffer-local 'org-mouse-context-menu-function)
38 #@190 Invoke the context menu.
39
40 If the value of `org-mouse-context-menu-function' is a function, then
41 this function is called.  Otherwise, the current major mode menu is used.
42
43 (fn EVENT PREFIX)
44 (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"])
45 #@290 Return `:beginning' or `:middle' or `:end', depending on the point position.
46
47 If the point is at the end of the line, return `:end'.
48 If the point is separated from the beginning of the line only by white
49 space and *'s (`org-mouse-bolp'), return `:beginning'.  Otherwise,
50 return `:middle'.
51 (defalias 'org-mouse-line-position #[0 "l\203\300\207\301 \203 \302\207\303\207" [:end org-mouse-bolp :beginning :middle] 1 (#$ . 3569)])
52 #@56 Return non-nil iff the line contains only white space.
53 (defalias 'org-mouse-empty-line #[0 "\212\300 \210\301\302!)\207" [beginning-of-line looking-at "[     ]*$"] 2 (#$ . 4005)])
54 #@103 Go to the next heading.
55 If there is none, ensure that the point is at the beginning of an empty line.
56 (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)])
57 #@221 Insert a new heading, as `org-insert-heading'.
58
59 If the point is at the :beginning (`org-mouse-line-position') of the line,
60 insert the new heading before the current line.  Otherwise, insert it
61 after the current heading.
62 (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])
63 #@137 Change the timestamp into SHIFT UNITS in the future.
64
65 For the acceptable UNITS, see `org-timestamp-change'.
66
67 (fn &optional SHIFT UNITS)
68 (defalias 'org-mouse-timestamp-today #[512 "\300\301!\210\205\f\302\"\207" [org-time-stamp nil org-timestamp-change] 5 (#$ . 5019) nil])
69 #@883 A helper function.
70
71 Returns a menu fragment consisting of KEYWORDS.  When a keyword
72 is selected by the user, FUNCTION is called with the selected
73 keyword as the only argument.
74
75 If SELECTED is nil, then all items are normal menu items.  If
76 SELECTED is a function, then each item is a checkbox, which is
77 enabled for a given keyword iff (funcall SELECTED keyword) return
78 non-nil.  If SELECTED is neither nil nor a function, then the
79 items are radio buttons.  A radio button is enabled for the
80 keyword `equal' to SELECTED.
81
82 ITEMFORMAT governs formatting of the elements of KEYWORDS.  If it
83 is a function, it is invoked with the keyword as the only
84 argument.  If it is a string, it is interpreted as the format
85 string to (format ITEMFORMAT keyword).  If it is neither a string
86 nor a function, elements of KEYWORDS are used directly.
87
88 (fn KEYWORDS FUNCTION &optional SELECTED ITEMFORMAT)
89 (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)])
90 #@57 Remove the match, make just one space around the point.
91 (defalias 'org-mouse-remove-match-and-spaces #[0 "\300\301!\210\302 \207" [replace-match "" just-one-space] 2 (#$ . 6655) nil])
92 #@129 The same as `replace-match', but surrounds the replacement with spaces.
93
94 (fn NEWTEXT &optional FIXEDCASE LITERAL STRING SUBEXP)
95 (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)])
96 #@754 A helper function.
97
98 Returns a menu fragment consisting of KEYWORDS.  When a keyword
99 is selected, group GROUP of the current match is replaced by the
100 keyword.  The method ensures that both ends of the replacement
101 are separated from the rest of the text in the buffer by
102 individual spaces (unless NOSURROUND is non-nil).
103
104 The final entry of the menu is always "None", which removes the
105 match.
106
107 ITEMFORMAT governs formatting of the elements of KEYWORDS.  If it
108 is a function, it is invoked with the keyword as the only
109 argument.  If it is a string, it is interpreted as the format
110 string to (format ITEMFORMAT keyword).  If it is neither a string
111 nor a function, elements of KEYWORDS are used directly.
112
113 (fn KEYWORDS &optional GROUP ITEMFORMAT NOSURROUND)
114 (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)])
115 #@73 Change the visibility of the current org buffer to only show headlines.
116 (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])
117 #@72 Change visibility of current org buffer to first-level headlines only.
118 (defalias 'org-mouse-show-overview #[0 "\301\302\303!)\207" [org-cycle-global-status nil org-cycle (4)] 2 (#$ . 8658) nil])
119 #@70 Set the priority of the current headline to PRIORITY.
120
121 (fn PRIORITY)
122 (defalias 'org-mouse-set-priority #[257 "\300!\207" [org-priority] 3 (#$ . 8860)])
123 #@134 Regular expression matching the priority indicator.
124 Differs from `org-priority-regexp' in that it doesn't contain the
125 leading `.*?'.
126 (defvar org-mouse-priority-regexp "\\[#\\([A-Z]\\)\\]" (#$ . 9020))
127 #@131 Return the priority of the current headline.
128 DEFAULT is returned if no priority is given in the headline.
129
130 (fn &optional DEFAULT)
131 (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)])
132 #@110 Deletes the current timestamp as well as the preceding keyword.
133 SCHEDULED: or DEADLINE: or ANYTHINGLIKETHIS:
134 (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)])
135 #@45 
136
137 (fn REGEXP SKIPCHARS &optional MOVECHARS)
138 (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)])
139 (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])
140 #@49 Create the menu with TODO keywords.
141
142 (fn STATE)
143 (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)])
144 #@23 Create the tags menu.
145 (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)])
146 #@13 
147
148 (fn TAGS)
149 (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)])
150 (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])
151 #@13 
152
153 (fn TYPE)
154 (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)])
155 #@38 
156
157 (fn ALLOPTIONS &optional FUNCTION)
158 (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)])
159 #@23 
160
161 (fn TEXT MAXLENGTH)
162 (defalias 'org-mouse-clip-text #[514 "GV\203\300\301ZO\302P\207\207" [0 3 "..."] 6 (#$ . 12775)])
163 (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])
164 #@28 
165
166 (fn CONTEXTLIST CONTEXT)
167 (defalias 'org-mouse-get-context #[514 "\211\236\211\205\212\211A@b\210\300\301\3028\")\207" [re-search-forward ".*" 2] 7 (#$ . 14836)])
168 #@14 
169
170 (fn FUNCT)
171 (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)])
172 #@120 Return true if there only spaces, tabs, and `*' before point.
173 This means, between the beginning of line and the point.
174 (defalias 'org-mouse-bolp #[0 "\212\300\301x\210n)\207" ["     *" nil] 2 (#$ . 15298)])
175 #@13 
176
177 (fn TEXT)
178 (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)])
179 (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)
180 #@17 
181
182 (fn FUNCTION)
183 (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)])
184 #@14 
185
186 (fn CLICK)
187 (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"])
188 #@24 
189
190 (fn &optional EVENT)
191 (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)])
192 (defalias 'org-mouse-mark-active #[0 "\205    \207" [mark-active transient-mark-mode] 1])
193 #@12 
194
195 (fn POS)
196 (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)])
197 #@14 
198
199 (fn EVENT)
200 (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"])
201 (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])
202 #@14 
203
204 (fn EVENT)
205 (defalias 'org-mouse-move-tree-start #[257 "\300\301!\207" [message "Same line: promote/demote, (***):move before, (text): make a child"] 3 (#$ . 27033) "e"])
206 #@17 
207
208 (fn POSITION)
209 (defalias 'org-mouse-make-marker #[257 "r\300\211@\262!q\210\301\302!!)\207" [window-buffer copy-marker posn-point] 4 (#$ . 27211)])
210 #@14 
211
212 (fn EVENT)
213 (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"])
214 (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])
215 #@16 
216
217 (fn COMMAND)
218 (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)])
219 #@24 
220
221 (fn &optional EVENT)
222 (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)])
223 #@14 
224
225 (fn EVENT)
226 (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)])
227 (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)