| Current Path : /usr/share/emacs/24.3/lisp/org/ |
Linux gator3171.hostgator.com 4.19.286-203.ELK.el7.x86_64 #1 SMP Wed Jun 14 04:33:55 CDT 2023 x86_64 |
| Current File : //usr/share/emacs/24.3/lisp/org/org-mouse.elc |
;ELC
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:07:50 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/org/org-mouse.el
;;; in Emacs version 24.3.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.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(require 'org)
#@47 Regular expression that matches a plain list.
(defvar org-mouse-plain-list-regexp "\\([ ]*\\)\\([-+*]\\|[0-9]+[.)]\\) " (#$ . 571))
#@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 (#$ . 711))
(byte-code "\300\301\302\303\304\305\306\307&\210\310\311\312\313\306\301\314\315&\210\310\316\317\320\306\301\314\321&\207" [custom-declare-group org-mouse nil "Mouse support for org-mode." :tag "Org Mouse" :group org custom-declare-variable org-mouse-punctuation ":" "Punctuation used when inserting text by drag and drop." :type string org-mouse-features '(context-menu yank-link activate-stars activate-bullets activate-checkboxes) "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)
#@57 Search the current line for a given regular expression.
(defalias 'org-mouse-re-search-line #[(regexp) "\301 \210\302\303 \304#\207" [regexp beginning-of-line re-search-forward point-at-eol t] 4 (#$ . 1944)])
#@52 Go to the end of current headline (ignoring tags).
(defalias 'org-mouse-end-headline #[nil "\300\210\301\300x\210\302\303!\205 \304\300x\210\301\300x\207" [nil " " org-looking-back ":[A-Za-z]+:" ":A-Za-z"] 2 (#$ . 2160) 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 (#$ . 2396))
(make-variable-buffer-local 'org-mouse-context-menu-function)
#@171 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.
(defalias 'org-mouse-show-context-menu #[(event prefix) "\211:\203 \3068\250\203 \3068\202 \307)\307U\203\203 \203' \310\n\311\245!\203\203 \312\313!\211@)!\210\314 \204e \313!\315 8\206Q A@:\203N A@@\202Q A@)b\210l\204^ \212\316\317!\210)\320 \310\321!\210)\322
!\203o
!\207\323\324!\203} \325\324 #\207\326\"\207\327\211!\207" [event mark-active double-click-time position redisplay-dont-pause org-mouse-context-menu-function 2 1 sit-for 1000.0 select-window event-start org-mouse-mark-active 5 run-hooks post-command-hook t 0 functionp fboundp mouse-menu-major-mode-map popup-menu mouse-major-mode-menu mouse-save-then-kill prefix this-command] 5 (#$ . 2659) "@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 #[nil "l\203 \300\207\301 \203
\302\207\303\207" [:end org-mouse-bolp :beginning :middle] 1 (#$ . 3535)])
#@56 Return non-nil iff the line contains only white space.
(defalias 'org-mouse-empty-line #[nil "\212\300 \210\301\302!)\207" [beginning-of-line looking-at "[ ]*$"] 2 (#$ . 3973)])
#@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 #[nil "\300 ?\205 \301 \210\302 ?\205 \303\210\304 \207" [outline-next-heading beginning-of-line org-mouse-empty-line nil newline] 1 (#$ . 4159)])
#@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 #[nil "\301 \302\303\"\203 \304 \210\305 \202 \306 \210\305 )\207" [#1=#:--cl-var-- org-mouse-line-position eql :beginning beginning-of-line org-insert-heading org-mouse-next-heading] 3 (#$ . 4452) nil])
#@109 Change the timestamp into SHIFT UNITS in the future.
For the acceptable UNITS, see `org-timestamp-change'.
(defalias 'org-mouse-timestamp-today #[(&optional shift units) "\302\303!\210\205\f \304 \"\207" [shift units org-time-stamp nil org-timestamp-change] 3 (#$ . 4923) nil])
#@829 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.
(defalias 'org-mouse-keyword-menu #[(keywords function &optional selected itemformat) "\304\305\306\307\310\311D\312\313BBD\314D\315\316BBD\317BBB\320\321 \322BBB\323\310\324\nD\325B\311\nD\326B\327BBB\330\331\311\nD\332\312\n\333BB\334BB\335\n\336BBF\257E \"\207" [itemformat function selected keywords 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)] 15 (#$ . 5211)])
#@57 Remove the match, make just one space around the point.
(defalias 'org-mouse-remove-match-and-spaces #[nil "\300\301!\210\302 \207" [replace-match "" just-one-space] 2 (#$ . 6585) nil])
#@73 The same as `replace-match', but surrounds the replacement with spaces.
(defalias 'org-mouse-replace-match-and-surround #[(newtext &optional fixedcase literal string subexp) "\302\303\"\210\212 \206 \304\224b\210\305 \210 \206 \304\225b\210\305 )\207" [org-mouse-rest subexp apply replace-match 0 just-one-space] 3 (#$ . 6777)])
#@701 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.
(defalias 'org-mouse-keyword-replace-menu #[(keywords &optional group itemformat nosurround) "\206 \305\306 \203 \307\202 \310!\311\312 \313\314\315\n\316\317\211\320\257E\321!\f$\322\323\324\325\326\327\321! \235?&C\")\207" [group nosurround replace keywords itemformat 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] 12 (#$ . 7116)])
#@73 Change the visibility of the current org buffer to only show headlines.
(defalias 'org-mouse-show-headlines #[nil "\303\211\304\303\305!\210\303\306!+\207" [org-cycle-global-status last-command this-command org-cycle nil (4) (4)] 3 (#$ . 8352) nil])
#@72 Change visibility of current org buffer to first-level headlines only.
(defalias 'org-mouse-show-overview #[nil "\301\302\303!)\207" [org-cycle-global-status nil org-cycle (4)] 2 (#$ . 8611) nil])
#@55 Set the priority of the current headline to PRIORITY.
(defalias 'org-mouse-set-priority #[(priority) "\301!\207" [priority org-priority] 2 (#$ . 8815)])
#@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]\\)\\]" (#$ . 8976))
#@107 Return the priority of the current headline.
DEFAULT is returned if no priority is given in the headline.
(defalias 'org-mouse-get-priority #[(&optional default) "\212\303!\203
\304\305!\202 \205 \306\n!)\207" [org-mouse-priority-regexp default org-default-priority org-mouse-re-search-line match-string 1 char-to-string] 2 (#$ . 9184)])
#@110 Deletes the current timestamp as well as the preceding keyword.
SCHEDULED: or DEADLINE: or ANYTHINGLIKETHIS:
(defalias 'org-mouse-delete-timestamp #[nil "\300 \204\n \301 \205 \302\303!\210\304\305x\210\306\307!\205 \302\303!\207" [org-at-date-range-p org-at-timestamp-p replace-match "" " :A-Z" nil looking-at " *[A-Z][A-Z]+:"] 2 (#$ . 9534)])
(defalias 'org-mouse-looking-at #[(regexp skipchars &optional movechars) "\212`\304 !\203
\305\202\" \n\306x\210 \206 \307u\210\304 !\205\" \307\225V*\207" [point regexp skipchars movechars looking-at t nil 0] 2])
(defalias 'org-mouse-priority-list #[nil "\304 \305\nX\203 \306! BT\211\202 \237+\207" [priority org-lowest-priority #1=#:--cl-var-- #2=#:--cl-var-- 65 nil char-to-string] 3])
#@37 Create the menu with TODO keywords.
(defalias 'org-mouse-todo-menu #[(state) "\302\303 \304\305#)!\207" [org-todo-keywords-1 kwds append org-mouse-keyword-menu (lambda (kwd) (org-todo kwd)) #[(kwd) " \232\207" [state kwd] 2]] 5 (#$ . 10292)])
#@23 Create the tags menu.
(defalias 'org-mouse-tag-menu #[nil "\301\302 \303\304\305\306\307 \"\310\"\311\312\313\304\314\315\316\317DE\320\316\317DE\321\316\317DEF\322BBDE\311\323\315\316\317DEE#)\324\"\207" [tags 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])] 14 (#$ . 10544)])
(defalias 'org-mouse-set-tags #[(tags) "\212\301 \210\302\303!\203 \304\305!\210\205# \306\210\307\310\311\312#\312\261\210\313\306\314\")\207" [tags beginning-of-line org-mouse-re-search-line ":\\(\\([A-Za-z_]+:\\)+\\)" replace-match "" nil " :" mapconcat identity ":" org-set-tags t] 5])
(defalias 'org-mouse-insert-checkbox #[nil "\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])
(defalias 'org-mouse-agenda-type #[(type) "\301\302\"\203 \303\207\301\304\"\203 \305\207\301\306\"\203 \307\207\301\310\"\203$ \311\207\301\312\"\203- \313\207\314\207" [type memql 'tags "Tags: " 'todo "TODO: " 'tags-tree "Tags tree: " 'todo-tree "TODO tree: " 'occur-tree "Occur tree: " "Agenda command ???"] 3])
(defalias 'org-mouse-list-options-menu #[(alloptions &optional function) "\306 \307\216\310\311\312!!*\313 !\210\n\314\211 :\203n @\315\f\316\317\320\321\322\323\324\325\fD\325 DE\326\325\fD\325 DE\327\325\fD\325 DEF\330BB\331BBB\332BB\333\334\325\"DD\335\325\"DDEE\336\337\340\f \235\205b \341&
B A\211\202
\237,\207" [save-match-data-internal options alloptions #1=#:--cl-var-- name #2=#:--cl-var-- match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) split-string match-string-no-properties 1 print nil vector progn replace-match mapconcat 'identity sort if member quote delete cons ('string-lessp) (" ") (nil nil nil 1) when functionp funcall :style toggle :selected t function] 15])
(defalias 'org-mouse-clip-text #[(text maxlength) "G V\203 \302 \303ZO\304P\207\207" [text maxlength 0 3 "..."] 4])
(defalias 'org-mouse-popup-global-menu #[nil "\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\330\313\314\315\316\317\320 \"\321\"\331\"\332\"B\333\307\313\314\316\317\"\334\335\336$\337\"BBBBBBBBBBBBBBBBB!\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" 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 #[(tag) "\301\302\"\207" [tag org-tags-sparse-tree nil] 3] ("--" ["Custom Tag ..." org-tags-sparse-tree t]) ["Check Phrase ..." org-occur] ["Display Agenda" org-agenda-list t] ["Display Timeline" org-timeline t] ["Display TODO List" org-todo-list t] "Display Tags" #[(tag) "\301\302\"\207" [tag org-tags-view nil] 3] ("--" ["Custom Tag ..." org-tags-view t]) ["Display Calendar" org-goto-calendar t] #[(key) "\301\302\303\304DE!\207" [key eval org-agenda nil string-to-char] 5] nil #[(key) "\303 \"\304\nA@;\203 \nA@\202' \305\n8;\203& \306\nA@!\305\n8P\202' \307\310\")\207" [key org-agenda-custom-commands entry assoc org-mouse-clip-text 2 org-mouse-agenda-type "Agenda Command '%s'" 30] 4] ("--" ["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)])] 24])
(defalias 'org-mouse-get-context #[(contextlist context) " \236\211\205 \212\n\211A@)b\210\304\305\nAA@\"))\207" [context contextlist contextdata x re-search-forward ".*"] 4])
(defalias 'org-mouse-for-each-item #[(funct) "\301\302\303\304\217\205 \212\305\302\"))\207" [wrap-fun #[(c) " \207" [funct] 1] nil (byte-code "\300 b\207" [org-in-item-p] 1) ((error)) org-apply-on-list] 3])
#@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 #[nil "\212\300\301x\210n)\207" [" *" nil] 2 (#$ . 15097)])
(defalias 'org-mouse-insert-item #[(text) "\303 \304\305\"\203# \306 \210\307\310!\210\311\312!\210\313\314\225\314\224Z!\210\315c\210\202V \304\316\"\203: \317\210\320\321!\210\322 \210\315c\210\202V \304\323\"\203V \324\317x\210\325`\326 \"\210\327 !\204V \330Pc\210)\nc\210\306 \207" [#1=#:--cl-var-- org-mouse-punctuation text org-mouse-line-position eql :beginning beginning-of-line looking-at "[ ]*" open-line 1 org-indent-to-column 0 "+ " :middle nil newline t indent-relative :end " " kill-region point-at-eol org-looking-back " "] 3])
(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)
(defalias 'org-mouse-match-closure #[(function) "\302\303!\304\305\306\307\310DD\311\310 D\312BBEE)\207" [match function match-data t lambda (&rest rest) save-match-data set-match-data quote apply (rest)] 7])
(defalias 'org-mouse-yank-link #[(click) "\302\303!\210\304!\210\305\306 \210\307\310\311\305!\312Q!\207" [click mouse-selection-click-count run-hooks mouse-leave-buffer-hook mouse-set-point 0 delete-horizontal-space insert-for-yank " [[" current-kill "]] "] 4 nil "e"])
(defalias 'org-mouse-context-menu #[(&optional event) " D\306 \307 \310 \203N \311 \312 { \313\314\315\316\317\320
DD\"\315\321\322\320
DD\"\315\323\324\325\326\320
DED\"\315\327\324\325\330\320
DED\"\331\332\315\333\334\320@DD\"\257!)\202\356\212\335 \210\336\337!)\203h \313\314\340\341\342A\"\343\"B!\202\356l\204x \336\344!\203} \345\346!\203} \347 \202\356\f\350!\203\211 \313\351!\202\356\352\353\354\"\203\266 \355\356!B\235\203\266 \313\314\357\360\355\356!!\331\361\362\363\315\325\364\355\356!\"\365B\"F\"B!\202\356\352\366\367\"\203\322 \355\356!\n\235\203\322 \313\314\357\370\n!\371\"B!\202\356\352C\372\"\203\350 \313\314\370\373 \374\375\376$B!\202\356\f\377!\203\366 \313\201H !\202\356\352\201I \201J \201K #\2037\313\314\315\325\201L \355\374!\"\201M \314\355\374!E\"\315\325\201N \355\374!\"\201O \314\355\374!E\"\331\201P BBBB!\202\356\201Q \203F\313\201R !\202\356\f\201S !\203\205\201T \211 D\211 E\211@\201U \\\240\210)\201V D!\210)\201W \201X \355\356!\"\210\313\314\370\201Y \356\201Z \376$B!\202\356\201[ \236\203\225\313\201\\ !\202\356\201] \236\203\354l\204\354\201^ \376! F\313\201_ \201` \357\201a \373 \201b F\375$\201c \201P #B\201d \360\201e !B\201f \201g \357G\205\336\201h \201i \"BBBBB!)\202\356\347 +\207" [org-deadline-string org-scheduled-string stamp-prefixes contextlist get-context region-string org-context #[(context) "\302 \"\207" [contextlist context org-mouse-get-context] 3] 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_:]+\\)?\\( \\| \\)+$" org-looking-back " \\| " 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 event org-startup-options org-todo-keywords-1 org-mouse-priority-regexp mdata #1=#:v priority org-mouse-direct (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 "Display '%s'" org-tags-view "Sparse Tree '%s'" org-tags-sparse-tree org-mouse-tag-menu org-at-timestamp-p (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 2 store-match-data message "match: %S" (" " "!" "^" "_" "$" "#" "*" "'") #[(mark) "\301\302!\303\"\203 \304\207\301\302!\305\"\203 \306\207\301\302!\307\"\203! \310\207\301\302!\311\"\203, \312\207\301\302!\313\"\2037 \314\207\301\302!\315\"\203B \316\207\301\302!\317\"\203M \320\207\301\302!\321\"\205W \322\207" [mark eql string-to-char 32 "( ) Nothing Special" 33 "(!) Column Names" 94 "(^) Field Names Above" 95 "(^) Field Names Below" 36 "($) Formula Parameters" 35 "(#) Recalculation: Auto" 42 "(*) Recalculation: Manual" 39 "(') Recalculation: None"] 3] :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 #[(keyword) "\301\302!!\207" [keyword org-mouse-set-priority string-to-char] 3] ("--") "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])] 14])
(defalias 'org-mouse-mark-active #[nil "\205 \207" [mark-active transient-mark-mode] 1])
(defalias 'org-mouse-in-region-p #[(pos) "\301 \205 \302 Y\205 \303 W\207" [pos org-mouse-mark-active region-beginning region-end] 2])
(defalias 'org-mouse-down-mouse #[(event) "\n\211:\203 \304\n8\250\203 \304\n8\202 \305)\305U\205; \306\307\n!\310 8\2069 A@:\2036 A@@\2029 A@)!?\205B \311\n!\207" [last-command this-command event position 2 1 org-mouse-in-region-p event-start 5 mouse-drag-region] 4 nil "e"])
(add-hook 'org-mode-hook #[nil "\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])
(defalias 'org-mouse-move-tree-start #[(event) "\300\301!\207" [message "Same line: promote/demote, (***):move before, (text): make a child"] 2 nil "e"])
(defalias 'org-mouse-make-marker #[(position) "r\301\211@)!q\210\302\3038\206$ A@:\203! A@@\202$ A@)!)\207" [position window-buffer copy-marker 5] 4])
(defalias 'org-mouse-move-tree #[(event) "\212\306\307!!\306\310!!\311 !\311\n! \205\272 \f\205\272 q\210 b\210\312 \210 \f=\203J `\212\nb\210\312 \210`)\232\203J \n Y\203E \313 \202\272 \314 \202\272 \315 \210\fq\210\nb\210\312 \210 \f=\203} `\212 b\210\312 \210`)\232\203} \316 \210\317\210m\203z \320 \210\202} \317u\210\321
!\205\272 \322\225\322\224Z \n\322\225V\203\251 \316 \210\317\210m\203\241 \320 \210\202\244 \317u\210T\323!\210\212\316 \210n\205\271 \324\325!*-\207" [event start end sbuf ebuf 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 outline-end-of-subtree nil newline looking-at 0 org-paste-subtree delete-char -1 level] 3 nil "e"])
(defalias 'org-mouse-transform-to-outline #[nil "\304 \210\305\306\307!\310P\311\312!\210\212m\204. \313\n!\204. \313 !\203( \314\225\314\224Z^\315y\210\202 )m\2066 \313\n!?\205T \313 !\203N \314\225\314\224Z=\203N \316!\210\315y\210\202/ *\207" [replace-text minlevel 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] 3 nil nil])
(defalias 'org-mouse-do-remotely #[(command) "\306`\307\"\2050\310 `Z\306`\307\"\311 !\312 !\306`\313\" \314 \315 #\314 $p %r\nq\210&)\316=\205.r\nq\210\317 \210\320u\210\321`!) '\314\212 \203O b\210n\203W \320\202X \322\323\320`\"\\*(p\n)r\nq\210))\314\211 * + , - . / 0 1r\nq\210~\210 b\210\324 \210\212\325 \203\223 \326\314!\210)\327 \210\321`!\330 \310 Z]b\2102 \210\331\3323\"\210\331\333(\"\210\312 !\312'!=\204\303 \334 #)\335\320!\210\212\336#\f\337#\210)4\203+\340-r/q\210))\"+\340,r.q\210))\"*+\204\374 *\203++\203\nr/q\210\341 \210)*\203r.q\210\341 \210)01/+.*\2575B5. \342. \207" [anticol marker buffer pos hdmarker buffer-read-only get-text-property org-marker point-at-eol marker-buffer marker-position org-hd-marker nil "--- removed ---" org-mode outline-end-of-subtree 1 copy-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 t newhead org-mouse-direct org-mouse-main-buffer major-mode endmarker this-command buffer-undo-list #1=#:--c2 #2=#:--c1 #3=#:--undo2 #4=#:--undo1 #5=#:--buf2 #6=#:--buf1 #7=#:--cmd #8=#:--cline command org-mouse-cmd org-agenda-allow-remote-undo org-agenda-undo-list] 8])
(defalias 'org-mouse-agenda-context-menu #[(&optional event) "\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 'timeline) t] "--" ["Goto Today" org-agenda-goto-today (org-agenda-check-type nil 'agenda 'timeline) t] ["Display Calendar" org-agenda-goto-calendar (org-agenda-check-type nil 'agenda 'timeline) t] ("Calendar Commands" ["Phases of the Moon" org-agenda-phases-of-moon (org-agenda-check-type nil 'agenda 'timeline)] ["Sunrise/Sunset" org-agenda-sunrise-sunset (org-agenda-check-type nil 'agenda 'timeline)] ["Holidays" org-agenda-holidays (org-agenda-check-type nil 'agenda 'timeline)] ["Convert" org-agenda-convert-date (org-agenda-check-type nil 'agenda 'timeline)] "--" ["Create iCalendar file" org-export-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 'timeline)] ["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])] 2])
(defalias 'org-mouse-get-gesture #[(event) "\304!\305 8)\306!\305 8)\211@\n@W\203 \307\202 \310*\207" [event position endxy startxy event-start 2 event-end :right :left] 4])
(byte-code "\300\301\302\"\210\303\304!\207" [add-hook org-agenda-mode-hook #[nil "\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] #[(event) "\302!\303 \304\"\203 \305\306!\202 \303 \307\"\205 \310\306!)\207" [event #:--cl-var-- org-mouse-get-gesture eql :left org-agenda-earlier 1 :right org-agenda-later] 3 nil "e"]] 4] provide org-mouse] 3)