Gecko [ fernandoquevedodop.com ]

Name	Size	Permission
ob-C.elc	13.79 KB	-rw-r--r--
ob-J.elc	5.38 KB	-rw-r--r--
ob-R.elc	15.77 KB	-rw-r--r--
ob-abc.elc	2.38 KB	-rw-r--r--
ob-asymptote.elc	3.67 KB	-rw-r--r--
ob-awk.elc	3.08 KB	-rw-r--r--
ob-calc.elc	2.34 KB	-rw-r--r--
ob-clojure.elc	7.16 KB	-rw-r--r--
ob-comint.elc	5.14 KB	-rw-r--r--
ob-coq.elc	2.24 KB	-rw-r--r--
ob-core.elc	99.63 KB	-rw-r--r--
ob-css.elc	888 B	-rw-r--r--
ob-ditaa.elc	3.02 KB	-rw-r--r--
ob-dot.elc	2.07 KB	-rw-r--r--
ob-ebnf.elc	1.42 KB	-rw-r--r--
ob-emacs-lisp.elc	3.22 KB	-rw-r--r--
ob-eshell.elc	3.05 KB	-rw-r--r--
ob-eval.elc	3.27 KB	-rw-r--r--
ob-exp.elc	10.81 KB	-rw-r--r--
ob-forth.elc	1.98 KB	-rw-r--r--
ob-fortran.elc	5.24 KB	-rw-r--r--
ob-gnuplot.elc	8.39 KB	-rw-r--r--
ob-groovy.elc	3.68 KB	-rw-r--r--
ob-haskell.elc	8.02 KB	-rw-r--r--
ob-hledger.elc	1.8 KB	-rw-r--r--
ob-io.elc	3.2 KB	-rw-r--r--
ob-java.elc	2.66 KB	-rw-r--r--
ob-js.elc	6.66 KB	-rw-r--r--
ob-latex.elc	6.12 KB	-rw-r--r--
ob-ledger.elc	1.71 KB	-rw-r--r--
ob-lilypond.elc	14 KB	-rw-r--r--
ob-lisp.elc	3.62 KB	-rw-r--r--
ob-lob.elc	4.97 KB	-rw-r--r--
ob-lua.elc	12.95 KB	-rw-r--r--
ob-makefile.elc	920 B	-rw-r--r--
ob-matlab.elc	500 B	-rw-r--r--
ob-maxima.elc	3.73 KB	-rw-r--r--
ob-mscgen.elc	1.32 KB	-rw-r--r--
ob-ocaml.elc	5.59 KB	-rw-r--r--
ob-octave.elc	9.69 KB	-rw-r--r--
ob-org.elc	1.67 KB	-rw-r--r--
ob-perl.elc	4.54 KB	-rw-r--r--
ob-picolisp.elc	4.53 KB	-rw-r--r--
ob-plantuml.elc	3.87 KB	-rw-r--r--
ob-processing.elc	4.58 KB	-rw-r--r--
ob-python.elc	13.04 KB	-rw-r--r--
ob-ref.elc	5.89 KB	-rw-r--r--
ob-ruby.elc	9.6 KB	-rw-r--r--
ob-sass.elc	1.5 KB	-rw-r--r--
ob-scheme.elc	6.45 KB	-rw-r--r--
ob-screen.elc	4.21 KB	-rw-r--r--
ob-sed.elc	2.7 KB	-rw-r--r--
ob-shell.elc	10.78 KB	-rw-r--r--
ob-shen.elc	1.95 KB	-rw-r--r--
ob-sql.elc	9.82 KB	-rw-r--r--
ob-sqlite.elc	4.46 KB	-rw-r--r--
ob-stan.elc	2.25 KB	-rw-r--r--
ob-table.elc	3.34 KB	-rw-r--r--
ob-tangle.elc	17.72 KB	-rw-r--r--
ob-vala.elc	3.04 KB	-rw-r--r--
ob.elc	692 B	-rw-r--r--
ol-bbdb.elc	12.23 KB	-rw-r--r--
ol-bibtex.elc	25.55 KB	-rw-r--r--
ol-docview.elc	2.05 KB	-rw-r--r--
ol-eshell.elc	1.51 KB	-rw-r--r--
ol-eww.elc	3.12 KB	-rw-r--r--
ol-gnus.elc	8.1 KB	-rw-r--r--
ol-info.elc	4.25 KB	-rw-r--r--
ol-irc.elc	5.87 KB	-rw-r--r--
ol-mhe.elc	5.32 KB	-rw-r--r--
ol-rmail.elc	2.61 KB	-rw-r--r--
ol-w3m.elc	3.82 KB	-rw-r--r--
ol.elc	55.84 KB	-rw-r--r--
org-agenda.elc	372.33 KB	-rw-r--r--
org-archive.elc	17.32 KB	-rw-r--r--
org-attach-git.elc	3.66 KB	-rw-r--r--
org-attach.elc	26.55 KB	-rw-r--r--
org-capture.elc	59.36 KB	-rw-r--r--
org-clock.elc	90.95 KB	-rw-r--r--
org-colview.elc	54.76 KB	-rw-r--r--
org-compat.elc	40.97 KB	-rw-r--r--
org-crypt.elc	6.43 KB	-rw-r--r--
org-ctags.elc	11.83 KB	-rw-r--r--
org-datetree.elc	7.31 KB	-rw-r--r--
org-duration.elc	11.6 KB	-rw-r--r--
org-element.elc	170.82 KB	-rw-r--r--
org-entities.elc	26.73 KB	-rw-r--r--
org-faces.elc	23.64 KB	-rw-r--r--
org-feed.elc	19.26 KB	-rw-r--r--
org-footnote.elc	28.36 KB	-rw-r--r--
org-goto.elc	9.24 KB	-rw-r--r--
org-habit.elc	13.51 KB	-rw-r--r--
org-id.elc	21.1 KB	-rw-r--r--
org-indent.elc	14.93 KB	-rw-r--r--
org-inlinetask.elc	8.61 KB	-rw-r--r--
org-install.el	452 B	-rw-r--r--
org-keys.elc	26.5 KB	-rw-r--r--
org-lint.elc	51.54 KB	-rw-r--r--
org-list.elc	88.99 KB	-rw-r--r--
org-loaddefs.el	89.89 KB	-rw-r--r--
org-macro.elc	11.38 KB	-rw-r--r--
org-macs.elc	38.95 KB	-rw-r--r--
org-mobile.elc	36.19 KB	-rw-r--r--
org-mouse.elc	31.71 KB	-rw-r--r--
org-num.elc	12.9 KB	-rw-r--r--
org-pcomplete.elc	12.56 KB	-rw-r--r--
org-plot.elc	9.87 KB	-rw-r--r--
org-protocol.elc	20.19 KB	-rw-r--r--
org-src.elc	38.07 KB	-rw-r--r--
org-table.elc	199.12 KB	-rw-r--r--
org-tempo.elc	4.92 KB	-rw-r--r--
org-timer.elc	14.02 KB	-rw-r--r--
org-version.el	587 B	-rw-r--r--
org.elc	700.45 KB	-rw-r--r--
ox-ascii.elc	66.43 KB	-rw-r--r--
ox-beamer.elc	34.81 KB	-rw-r--r--
ox-html.elc	129.5 KB	-rw-r--r--
ox-icalendar.elc	37.05 KB	-rw-r--r--
ox-latex.elc	116.71 KB	-rw-r--r--
ox-man.elc	31.11 KB	-rw-r--r--
ox-md.elc	23.26 KB	-rw-r--r--
ox-odt.elc	131.63 KB	-rw-r--r--
ox-org.elc	12.35 KB	-rw-r--r--
ox-publish.elc	49.05 KB	-rw-r--r--
ox-texinfo.elc	56.87 KB	-rw-r--r--
ox.elc	238.18 KB	-rw-r--r--

Code Editor : org-mouse.elc

;ELC���
;;; Compiled
;;; in Emacs version 27.1
;;; with all optimizations.

;;; This file uses dynamic docstrings, first added in Emacs 19.29.

;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(byte-code "\300\301!\210\300\302!\207" [require org cl-lib] 2)
#@37 Active buffer for mouse operations.
(defvar org-mouse-main-buffer nil (#$ . 472))
#@47 Regular expression that matches a plain list.
(defvar org-mouse-plain-list-regexp "\$[ 	]*\$\$[-+*]\\|[0-9]+[.)]\$ " (#$ . 560))
#@268 Internal variable indicating whether the current action is direct.

If t, then the current action has been invoked directly through the buffer
it is intended to operate on.  If nil, then the action has been invoked
indirectly, for example, through the agenda buffer.
(defvar org-mouse-direct t (#$ . 700))
(byte-code "\300\301\302\303\304\305\306\307&\210\310\311\312\313\314DD\315\306\301\316\317&\210\310\320\312\313\321DD\322\306\301\316\323&\207" [custom-declare-group org-mouse nil "Mouse support for org-mode." :tag "Org Mouse" :group org custom-declare-variable org-mouse-punctuation funcall function #[0 "\300\207" [#1=":"] 1 #1#] "Punctuation used when inserting text by drag and drop." :type string org-mouse-features #[0 "\300\207" [(context-menu yank-link activate-stars activate-bullets activate-checkboxes)] 1] "The features of org-mouse that should be activated.\nChanging this variable requires a restart of Emacs to get activated." (set :greedy t (const :tag "Mouse-3 shows context menu" context-menu) (const :tag "C-mouse-1 and mouse-3 move trees" move-tree) (const :tag "S-mouse-2 and drag-mouse-3 yank link" yank-link) (const :tag "Activate headline stars" activate-stars) (const :tag "Activate item bullets" activate-bullets) (const :tag "Activate checkboxes" activate-checkboxes))] 8)
#@70 Search the current line for a given regular expression.

(fn REGEXP)
(defalias 'org-mouse-re-search-line #[257 "\300 \210\301\302 \303#\207" [beginning-of-line re-search-forward point-at-eol t] 5 (#$ . 2016)])
#@52 Go to the end of current headline (ignoring tags).
(defalias 'org-mouse-end-headline #[0 "\300\210\301\300x\210\302\303\304 \"\205�\305\300x\210\301\300x\207" [nil "	 " looking-back ":[A-Za-z]+:" line-beginning-position ":A-Za-z"] 3 (#$ . 2233) nil])
#@138 Function to create the context menu.
The value of this variable is the function invoked by
`org-mouse-context-menu' as the context menu.
(defvar org-mouse-context-menu-function nil (#$ . 2493))
(make-variable-buffer-local 'org-mouse-context-menu-function)
#@190 Invoke the context menu.

If the value of `org-mouse-context-menu-function' is a function, then
this function is called.  Otherwise, the current major mode menu is used.

(fn EVENT PREFIX)
(defalias 'org-mouse-show-context-menu #[514 "\211:\203�\3048\250\203�\3048\262\202�\305\262\305U\203i�\203)�\306	\307\245!\203i�\310\311!\211@\262!\210\312 \204M�\313\311!!b\210l\204I�\212\314\315!\210)\306\316!\210\317\n!\203W�\n!\207\320\321!\203d�\322\321 #\207\323\"\207\324\211!\207" [mark-active double-click-time org-mouse-context-menu-function this-command 2 1 sit-for 1000.0 select-window event-start org-mouse-mark-active posn-point run-hooks post-command-hook 0 functionp fboundp mouse-menu-major-mode-map popup-menu mouse-major-mode-menu mouse-save-then-kill] 7 (#$ . 2756) "@e \nP"])
#@290 Return `:beginning' or `:middle' or `:end', depending on the point position.

If the point is at the end of the line, return `:end'.
If the point is separated from the beginning of the line only by white
space and *'s (`org-mouse-bolp'), return `:beginning'.  Otherwise,
return `:middle'.
(defalias 'org-mouse-line-position #[0 "l\203�\300\207\301 \203
�\302\207\303\207" [:end org-mouse-bolp :beginning :middle] 1 (#$ . 3569)])
#@56 Return non-nil iff the line contains only white space.
(defalias 'org-mouse-empty-line #[0 "\212\300 \210\301\302!)\207" [beginning-of-line looking-at "[ 	]*$"] 2 (#$ . 4005)])
#@103 Go to the next heading.
If there is none, ensure that the point is at the beginning of an empty line.
(defalias 'org-mouse-next-heading #[0 "\300 ?\205�\301 \210\302 ?\205�\303\210\304 \207" [outline-next-heading beginning-of-line org-mouse-empty-line nil newline] 1 (#$ . 4189)])
#@221 Insert a new heading, as `org-insert-heading'.

If the point is at the :beginning (`org-mouse-line-position') of the line,
insert the new heading before the current line.  Otherwise, insert it
after the current heading.
(defalias 'org-mouse-insert-heading #[0 "\300 \211\301=\203�\302 \210\303 \202�\304 \210\303 \207" [org-mouse-line-position :beginning beginning-of-line org-insert-heading org-mouse-next-heading] 3 (#$ . 4480) nil])
#@137 Change the timestamp into SHIFT UNITS in the future.

For the acceptable UNITS, see `org-timestamp-change'.

(fn &optional SHIFT UNITS)
(defalias 'org-mouse-timestamp-today #[512 "\300\301!\210\205\f�\302\"\207" [org-time-stamp nil org-timestamp-change] 5 (#$ . 4925) nil])
#@883 A helper function.

Returns a menu fragment consisting of KEYWORDS.  When a keyword
is selected by the user, FUNCTION is called with the selected
keyword as the only argument.

If SELECTED is nil, then all items are normal menu items.  If
SELECTED is a function, then each item is a checkbox, which is
enabled for a given keyword iff (funcall SELECTED keyword) return
non-nil.  If SELECTED is neither nil nor a function, then the
items are radio buttons.  A radio button is enabled for the
keyword `equal' to SELECTED.

ITEMFORMAT governs formatting of the elements of KEYWORDS.  If it
is a function, it is invoked with the keyword as the only
argument.  If it is a string, it is interpreted as the format
string to (format ITEMFORMAT keyword).  If it is neither a string
nor a function, elements of KEYWORDS are used directly.

(fn KEYWORDS FUNCTION &optional SELECTED ITEMFORMAT)
(defalias 'org-mouse-keyword-menu #[1026 "\300\301\302\303\304\305D\306\307BBD\310D\311\312BBD\313BBB\314\315	\316BBB\317\304\320\nD\321B\305D\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 (#$ . 5209)])
#@57 Remove the match, make just one space around the point.
(defalias 'org-mouse-remove-match-and-spaces #[0 "\300\301!\210\302 \207" [replace-match "" just-one-space] 2 (#$ . 6561) nil])
#@129 The same as `replace-match', but surrounds the replacement with spaces.

(fn NEWTEXT &optional FIXEDCASE LITERAL STRING SUBEXP)
(defalias 'org-mouse-replace-match-and-surround #[1281 "\301\302\"\210\212\211\206�\303\224b\210\304 \210\211\206�\303\225b\210\304 )\207" [org-mouse-rest apply replace-match 0 just-one-space] 8 (#$ . 6752)])
#@754 A helper function.

Returns a menu fragment consisting of KEYWORDS.  When a keyword
is selected, group GROUP of the current match is replaced by the
keyword.  The method ensures that both ends of the replacement
are separated from the rest of the text in the buffer by
individual spaces (unless NOSURROUND is non-nil).

The final entry of the menu is always "None", which removes the
match.

(fn KEYWORDS &optional GROUP ITEMFORMAT NOSURROUND)
(defalias 'org-mouse-keyword-replace-menu #[1025 "\206�\300\262\301\203�\302\202�\303!\304\305\306\307\310\311\312\211\313\257E\314!$\315\316\317\320\321\322\314\f!
\235?&C\"\207" [0 org-mouse-match-closure replace-match org-mouse-replace-match-and-surround append org-mouse-keyword-menu lambda (keyword) funcall keyword t nil match-string vector "None" org-mouse-remove-match-and-spaces :style radio :selected] 17 (#$ . 7099)])
#@73 Change the visibility of the current org buffer to only show headlines.
(defalias 'org-mouse-show-headlines #[0 "\303\211\304\303\305!\210\303\306!+\207" [org-cycle-global-status last-command this-command org-cycle nil (4) (4)] 3 (#$ . 8307) nil])
#@72 Change visibility of current org buffer to first-level headlines only.
(defalias 'org-mouse-show-overview #[0 "\301\302\303!)\207" [org-cycle-global-status nil org-cycle (4)] 2 (#$ . 8564) nil])
#@70 Set the priority of the current headline to PRIORITY.

(fn PRIORITY)
(defalias 'org-mouse-set-priority #[257 "\300!\207" [org-priority] 3 (#$ . 8766)])
#@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]\$\\]" (#$ . 8926))
#@131 Return the priority of the current headline.
DEFAULT is returned if no priority is given in the headline.

(fn &optional DEFAULT)
(defalias 'org-mouse-get-priority #[256 "\212\302!\203
�\303\304!\202�\211\205�\305	!)\207" [org-mouse-priority-regexp org-default-priority org-mouse-re-search-line match-string 1 char-to-string] 3 (#$ . 9134)])
#@110 Deletes the current timestamp as well as the preceding keyword.
SCHEDULED: or DEADLINE: or ANYTHINGLIKETHIS:
(defalias 'org-mouse-delete-timestamp #[0 "\300 \204�\301\302!\205�\303\304!\210\305\306x\210\307\310!\205�\303\304!\207" [org-at-date-range-p org-at-timestamp-p lax replace-match "" " :A-Z" nil looking-at " *[A-Z][A-Z]+:"] 2 (#$ . 9486)])
#@45

(fn REGEXP SKIPCHARS &optional MOVECHARS)
(defalias 'org-mouse-looking-at #[770 "\212`\300!\203\f�\301\202!�\302x\210\206�\303u\210\300!\205!�\303\225V\262)\207" [looking-at t nil 0] 6 (#$ . 9844)])
(defalias 'org-mouse-priority-list #[0 "\301\302X\203�\303!B\262T\262\202�\211\237\207" [org-lowest-priority 65 nil char-to-string] 5])
#@49 Create the menu with TODO keywords.

(fn STATE)
(defalias 'org-mouse-todo-menu #[257 "\301\302\303\304\305\306\307\310\n!\311\"\312\313%#\262!\207" [org-todo-keywords-1 append org-mouse-keyword-menu (lambda (kwd) (org-todo kwd)) make-byte-code 257 "\300\232\207" vconcat vector [] 3 "\n\n(fn KWD)"] 12 (#$ . 10204)])
#@23 Create the tags menu.
(defalias 'org-mouse-tag-menu #[0 "\300\301\302\303\"\304\305\306\307\310 \"\311\"\312\313\314\305\315\316\317\320\nDE\321\317\320DE\322\317\320\fDEF\323BBDE\312\324\316\317\320DEE#\262\325\"\207" [append org-get-tags nil t 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-align-tags) t] ["Align Tags in Buffer" (org-align-tags t) t] ["Set Tags ..." (org-set-tags-command) t])] 15 (#$ . 10532)])
#@13

(fn TAGS)
(defalias 'org-mouse-set-tags #[257 "\300!\207" [org-set-tags] 3 (#$ . 11102)])
(defalias 'org-mouse-insert-checkbox #[0 "\300 \205�\301\225b\205�\302 ?\205�\303 \210\304c\207" [org-at-item-p 0 org-at-item-checkbox-p delete-horizontal-space " [ ] "] 1 nil nil])
#@13

(fn TYPE)
(defalias 'org-mouse-agenda-type #[257 "\211\300\267\202�\301\207\302\207\303\207\304\207\305\207\306\207" [#s(hash-table size 5 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (tags 6 todo 8 tags-tree 10 todo-tree 12 occur-tree 14)) "Tags: " "TODO: " "Tags tree: " "TODO tree: " "Occur tree: " "Agenda command ???"] 3 (#$ . 11386)])
#@38

(fn ALLOPTIONS &optional FUNCTION)
(defalias 'org-mouse-list-options-menu #[513 "\300 \301\302\303\304\305!\306\"\307$\216\310\311\312!!)\262\313!\210\314\211:\203�@\262\305\315\316\317\320\321\322\323\324D\324DE\325\324\fD\324DE\326\324
D\324DEF\327BB\330BBB\331BB\332\333\324DD\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 (#$ . 11755)])
#@23

(fn TEXT MAXLENGTH)
(defalias 'org-mouse-clip-text #[514 "GV\203�\300\301\302Z#\303P\207\207" [substring 0 3 "..."] 7 (#$ . 12478)])
(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" org-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])
#@28

(fn CONTEXTLIST CONTEXT)
(defalias 'org-mouse-get-context #[514 "\211\236\211\205�\212\211A@b\210\300\301\3028\")\207" [re-search-forward ".*" 2] 7 (#$ . 14549)])
#@14

(fn FUNCT)
(defalias 'org-mouse-for-each-item #[257 "\300\301\302\303\304!\305\"\306\307%\3101�\311 b0\202�\210\312\202%�\205%�\212\313\312\")\207" [make-byte-code 257 "\300 \207" vconcat vector [] 2 "\n\n(fn _)" (error) org-in-item-p nil org-apply-on-list] 7 (#$ . 14723)])
#@120 Return true if there only spaces, tabs, and `*' before point.
This means, between the beginning of line and the point.
(defalias 'org-mouse-bolp #[0 "\212\300\301x\210n)\207" [" 	*" nil] 2 (#$ . 15011)])
#@13

(fn TEXT)
(defalias 'org-mouse-insert-item #[257 "\301 \211\302\267\202G�\303 \210\304\305!\210\306\307!\210\310\225\310\224Zj\210\311c\210\202G�\312\210\313\314!\210\315 \210\311c\210\202G�\316\312x\210\317`\320 \"\210\321\322 \"\204G�\323Pc\210\210\211c\210\303 \207" [org-mouse-punctuation org-mouse-line-position #s(hash-table size 3 test eq 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 (#$ . 15221)])
(byte-code "\300\301\302\303\304$\210\305\301\304\"\210\300\306\307\303\304$\210\305\306\304\"\207" [ad-add-advice dnd-insert-text (org-mouse-dnd-insert-text nil t (advice lambda nil (if (derived-mode-p 'org-mode) (org-mouse-insert-item text) ad-do-it))) around nil ad-activate dnd-open-file (org-mouse-dnd-open-file nil t (advice lambda nil (if (derived-mode-p 'org-mode) (org-mouse-insert-item uri) ad-do-it)))] 5)
#@17

(fn FUNCTION)
(defalias 'org-mouse-match-closure #[257 "\300\301!\302\303\304\305\306DD\307\306D\310BBEE\207" [match-data t lambda (&rest rest) save-match-data set-match-data quote apply (rest)] 9 (#$ . 16261)])
#@14

(fn CLICK)
(defalias 'org-mouse-yank-link #[257 "\301\302!\210\303!\210\304\305 \210\306\307\310\304!\311Q!\207" [mouse-selection-click-count run-hooks mouse-leave-buffer-hook mouse-set-point 0 delete-horizontal-space insert-for-yank " [[" current-kill "]] "] 5 (#$ . 16484) "e"])
#@24

(fn &optional EVENT)
(defalias 'org-mouse-context-menu #[256 "	D\306 \307\310 \203O�\311 \312 {\313\314\315\316\317\320DD\"\315\321\322\320DD\"\315\323\324\325\326\320\nDED\"\315\327\324\325\330\320DED\"\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 (#$ . 16775)])
(defalias 'org-mouse-mark-active #[0 "\205�	\207" [mark-active transient-mark-mode] 1])
#@12

(fn POS)
(defalias 'org-mouse-in-region-p #[257 "\300 \205�\211\301 Y\205�\211\302 W\207" [org-mouse-mark-active region-beginning region-end] 3 (#$ . 24730)])
#@14

(fn EVENT)
(defalias 'org-mouse-down-mouse #[257 "\211\211:\203�\3028\250\203�\3028\262\202�\303\262\303U\205&�\304\305\306!!!?\205-�\307!\207" [last-command this-command 2 1 org-mouse-in-region-p posn-point event-start mouse-drag-region] 5 (#$ . 24899) "e"])
(add-hook 'org-mode-hook #[0 "\305\306	>\203�\307\n\310\311#\210\307\312\313#\210\307\314\315#\210\306	>\203,�\307\n\316\317#\210\307\n\320\321#\210\322	>\203>�\307\323\324#\210\307\325\324#\210\326	>\203P�\307\n\327\317#\210\307\n\330\321#\210\331	>\203_�\332\311\f\333BC\334#\210\335	>\203k�\332\311\336\334#\210\337	>\203w�\332\311\340\334#\210\341\342\343\344\311$\210\345\342\311\"\210\342\207" [org-mouse-context-menu-function org-mouse-features org-mouse-map org-mode-map org-outline-regexp org-mouse-context-menu context-menu org-defkey [mouse-3] nil [mouse-3] org-mouse-show-context-menu [down-mouse-1] org-mouse-down-mouse [C-drag-mouse-1] org-mouse-move-tree [C-down-mouse-1] org-mouse-move-tree-start yank-link [S-mouse-2] org-mouse-yank-link [drag-mouse-3] move-tree [drag-mouse-3] [down-mouse-3] activate-stars font-lock-add-keywords (0 `(face org-link mouse-face highlight keymap ,org-mouse-map) 'prepend) t activate-bullets (("^[ 	]*\$[-+*]\\|[0-9]+[.)]\$ +" (1 `(face org-link keymap ,org-mouse-map mouse-face highlight) 'prepend))) activate-checkboxes (("^[ 	]*\$[-+*]\\|[0-9]+[.)]\$ +\$\\[[ X]\\]\$" (2 `(face bold keymap ,org-mouse-map mouse-face highlight) t))) ad-add-advice org-open-at-point (org-mouse-open-at-point nil t (advice lambda nil (let ((context (org-context))) (cond ((assq :headline-stars context) (org-cycle)) ((assq :checkbox context) (org-toggle-checkbox)) ((assq :item-bullet context) (let ((org-cycle-include-plain-lists t)) (org-cycle))) ((org-footnote-at-reference-p) nil) (t ad-do-it))))) around ad-activate] 5])
#@14

(fn EVENT)
(defalias 'org-mouse-move-tree-start #[257 "\300\301!\207" [message "Same line: promote/demote, (***):move before, (text): make a child"] 3 (#$ . 26747) "e"])
#@17

(fn POSITION)
(defalias 'org-mouse-make-marker #[257 "r\300\211@\262!q\210\301\302!!)\207" [window-buffer copy-marker posn-point] 4 (#$ . 26925)])
#@14

(fn EVENT)
(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 (#$ . 27083) "e"])
(defalias 'org-mouse-transform-to-outline #[0 "\302 \210\303\304\305!\306P\307\310!\210\212m\204-�\311!\204-�\311	!\203'�\312\225\312\224Z^\262\313y\210\202�)m\2065�\311!?\205S�\311	!\203M�\312\225\312\224Z=\203M�\314!\210\313y\210\202.�\207" [org-outline-regexp org-mouse-plain-list-regexp org-back-to-heading 1000 match-string 0 "* " beginning-of-line 2 looking-at 1 nil replace-match] 5 nil nil])
#@16

(fn COMMAND)
(defalias 'org-mouse-do-remotely #[257 "\306`\307\"\205\310 `Z\306`\307\"\311!\312!\306`\313\"\314\315\314prq\210)\316=\205rq\210\317\314\320\"\210m\204;�\321u\210\322 )\314\212\211\203G�\211b\210n\203O�\321\202P�\323\324\321`\"\\)\262\fp
r	q\210
)\314\211r\fq\210~\210b\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 (#$ . 28353)])
#@24

(fn &optional EVENT)
(defalias 'org-mouse-agenda-context-menu #[256 "\300\301!\206	�\302\303!\207" [org-mouse-do-remotely org-mouse-context-menu popup-menu ("Agenda" ("Agenda Files") "--" ["Undo" (progn (message "last command: %S" last-command) (setq this-command 'org-agenda-undo) (org-agenda-undo)) :visible (if (eq last-command 'org-agenda-undo) org-agenda-pending-undo-list org-agenda-undo-list)] ["Rebuild Buffer" org-agenda-redo t] ["New Diary Entry" org-agenda-diary-entry (org-agenda-check-type nil 'agenda) t] "--" ["Goto Today" org-agenda-goto-today (org-agenda-check-type nil 'agenda) t] ["Display Calendar" org-agenda-goto-calendar (org-agenda-check-type nil 'agenda) t] ("Calendar Commands" ["Phases of the Moon" org-agenda-phases-of-moon (org-agenda-check-type nil 'agenda)] ["Sunrise/Sunset" org-agenda-sunrise-sunset (org-agenda-check-type nil 'agenda)] ["Holidays" org-agenda-holidays (org-agenda-check-type nil 'agenda)] ["Convert" org-agenda-convert-date (org-agenda-check-type nil 'agenda)] "--" ["Create iCalendar file" org-icalendar-combine-agenda-files t]) "--" ["Day View" org-agenda-day-view :active (org-agenda-check-type nil 'agenda) :style radio :selected (eq org-agenda-current-span 'day)] ["Week View" org-agenda-week-view :active (org-agenda-check-type nil 'agenda) :style radio :selected (eq org-agenda-current-span 'week)] "--" ["Show Logbook entries" org-agenda-log-mode :style toggle :selected org-agenda-show-log :active (org-agenda-check-type nil 'agenda)] ["Include Diary" org-agenda-toggle-diary :style toggle :selected org-agenda-include-diary :active (org-agenda-check-type nil 'agenda)] ["Use Time Grid" org-agenda-toggle-time-grid :style toggle :selected org-agenda-use-time-grid :active (org-agenda-check-type nil 'agenda)] ["Follow Mode" org-agenda-follow-mode :style toggle :selected org-agenda-follow-mode] "--" ["Quit" org-agenda-quit t] ["Exit and Release Buffers" org-agenda-exit t])] 3 (#$ . 29621)])
#@14

(fn EVENT)
(defalias 'org-mouse-get-gesture #[257 "\300!\3018\262\302!\3018\262@@W\203�\303\202�\304\207" [event-start 2 event-end :right :left] 5 (#$ . 31581)])
(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 eq 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)

${this.title}

Code Editor : org-mouse.elc