| 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@;\203 A@\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\317 q\210b\210\305 \210=\203F `\212b\210\305 \210`)\232\203F Y\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\357 rq\210\342 \210)\211\203\373 rq\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) | |
