1#@!#!123s

file_get_contents 1#@!#!123s
: / usr / share / emacs / 24.3 / lisp / org /
Filename : org-inlinetask.elc
back
;ELC���
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:07:33 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/org/org-inlinetask.el
;;; in Emacs version 24.3.1
;;; with all optimizations.

;;; This file contains utf-8 non-ASCII characters,
;;; and so cannot be loaded into Emacs 22 or earlier.
(and (boundp 'emacs-version)
     (< (aref emacs-version (1- (length emacs-version))) ?A)
     (string-lessp emacs-version "23")
     (error "`%s' was compiled for Emacs 23 or later" #$))

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


(byte-code "\300\301!\210\302\303\304\305\306\307\310\311&\210\312\313\314\315\310\303\316\317&\210\312\320\304\321\306\307\310\311&\210\312\322\323\324\310\303\316\325&\207" [require org custom-declare-group org-inlinetask nil "Options concerning inline tasks in Org mode." :tag "Org Inline Tasks" :group org-structure custom-declare-variable org-inlinetask-min-level 15 "Minimum level a headline must have before it is treated as an inline task.\nDon't set it to something higher than `29' or clocking will break since this\nis the hardcoded maximum number of stars `org-clock-sum' will work with.\n\nIt is strongly recommended that you set `org-cycle-max-level' not at all,\nor to a number smaller than this one.  In fact, when `org-cycle-max-level' is\nnot set, it will be assumed to be one less than the value of smaller than\nthe value of this variable." :type (choice (const :tag "Off" nil) (integer)) org-inlinetask-show-first-star "Non-nil means display the first star of an inline task as additional marker.\nWhen nil, the first star is not shown." org-inlinetask-export t "Non-nil means export inline tasks.\nWhen nil, they will not be exported." boolean] 8)
#@1054 Templates for inline tasks in various exporters.

This variable is an alist in the shape of (BACKEND STRING OBJECTS).

BACKEND is the name of the backend for the template (ascii, html...).

STRING is a format control string.

OBJECTS is a list of elements to be substituted into the format
string.  They can be of any type, from a string to a form
returning a value (thus allowing conditional insertion).  A nil
object will be substituted as the empty string.  Obviously, there
must be at least as many objects as %-sequences in the format
string.

Moreover, the following special keywords are provided: `todo',
`priority', `heading', `content', `tags'.  If some of them are not
defined in an inline task, their value is the empty string.

As an example, valid associations are:

(html "<ul><li>%s <p>%s</p></li></ul>" (heading content))

or, with the additional package "todonotes" for LaTeX,

(latex "\todo[inline]{\textbf{\textsf{%s %s}}\linebreak{} %s}"
       '((unless (eq todo "")
	   (format "\textsc{%s%s}" todo priority))
	 heading content)))
(defvar org-inlinetask-export-templates '((html "<div class=\"inlinetask\"><b>%s%s</b><br />%s</div>" '((unless (eq todo #1="") (format "<span class=\"%s %s\">%s%s</span> " class todo todo priority)) heading content)) (odt "%s" '((org-odt-format-inlinetask heading content todo priority tags))) (latex "\\begin{description}\n\\item[%s%s]~%s\\end{description}" '((unless (eq todo #1#) (format "\\textsc{%s%s} " todo priority)) heading content)) (ascii "     -- %s%s%s" '((unless (eq todo #1#) (format "%s%s " todo priority)) heading (unless (eq content #1#) (format "\n         ¦ %s" (mapconcat 'identity (org-split-string content "\n") "\n         ¦ "))))) (docbook "<variablelist>\n<varlistentry>\n<term>%s%s</term>\n<listitem><para>%s</para></listitem>\n</varlistentry>\n</variablelist>" '((unless (eq todo #1#) (format "%s%s " todo priority)) heading content))) (#$ . 1737))
#@180 Non-nil means make inline tasks have a TODO keyword initially.
This should be the state `org-inlinetask-insert-task' should use by
default, or nil of no state should be assigned.
(custom-declare-variable 'org-inlinetask-default-state nil '(#$ . 3677) :group 'org-inlinetask :version "24.1" :type '(choice (const :tag "No state" nil) (string :tag "Specific state")))
#@94 Insert an inline task.
If prefix arg NO-STATE is set, ignore `org-inlinetask-default-state'.
(defalias 'org-inlinetask-insert-task #[(&optional no-state) "\306 \203�\307 \203�n\204�\310\311!\210n\204�\312 \210\203$�	\313_S\202%�	\314\n\315\"\316P\211\f\2046�
\204:�\317\202=�
\320P\321\261\210*\322\207" [org-odd-levels-only org-inlinetask-min-level indent indent-string no-state org-inlinetask-default-state org-inlinetask-in-task-p org-inlinetask-at-task-p error "Cannot nest inline tasks" newline 2 make-string 42 " " "\n" " \n" "END\n" -1] 5 (#$ . 4049) "P"])
(define-key org-mode-map "t" 'org-inlinetask-insert-task)
#@114 Return string matching an inline task heading.
The number of levels is controlled by `org-inlinetask-min-level'.
(defalias 'org-inlinetask-outline-regexp #[nil "\203�	\303_S\202\f�	\304\305\n\")\207" [org-odd-levels-only org-inlinetask-min-level nstars 2 format "^\\(\\*\\{%d,\\}\\)[ 	]+"] 3 (#$ . 4690)])
#@57 Return true if point is at beginning of an inline task.
(defalias 'org-inlinetask-at-task-p #[nil "\212\300 \210\301\302 \303P!\205�\304\305\306\307!\227\"?)\207" [beginning-of-line looking-at org-inlinetask-outline-regexp "\\(.*\\)" string-match "^end[ 	]*$" match-string 2] 4 (#$ . 5005)])
#@48 Return true if point is inside an inline task.
(defalias 'org-inlinetask-in-task-p #[nil "\212\306 \210\307\310 \211\311P	\312P\n\307\313\f!*\206/�\314\315\316\307#\205/�\306 \210\307\313\f!*-\207" [case-fold-search stars-re task-beg-re task-end-re regexp inhibit-changing-match-data beginning-of-line t org-inlinetask-outline-regexp "\\(?:.*\\)" "END[ 	]*$" looking-at re-search-forward "^\\*+[ 	]+" nil] 5 (#$ . 5304)])
#@50 Go to the beginning of the inline task at point.
(defalias 'org-inlinetask-goto-beginning #[nil "\304\210\305\306 \307\304\305#\210\310P\305\311\n!*\205 �\307\304\305#*\207" [inlinetask-re case-fold-search regexp inhibit-changing-match-data nil t org-inlinetask-outline-regexp re-search-backward "END[ 	]*$" looking-at] 4 (#$ . 5741)])
#@58 Go to the end of the inline task at point.
Return point.
(defalias 'org-inlinetask-goto-end #[nil "\304 \305\216\306 \210\307\310 \211\311P\312!\203�\313y\210\202R�\312\n!\203I�\313y\210\312!\2032�\313y\210\202R�\312\n!\204R�\314 \203R�\315\n\313\307#\210\313y\210\202R�\315\n\313\307#\210\313y\210`-\207" [save-match-data-internal case-fold-search inlinetask-re task-end-re match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) beginning-of-line t org-inlinetask-outline-regexp "END[ 	]*$" looking-at nil org-inlinetask-in-task-p re-search-forward] 5 (#$ . 6091)])
#@91 Get the level of the inline task around.
This assumes the point is inside an inline task.
(defalias 'org-inlinetask-get-task-level #[nil "\212\300\210\301\302 \300\303#\210\304\225\304\224Z)\207" [nil re-search-backward org-inlinetask-outline-regexp t 1] 4 (#$ . 6713)])
#@143 Promote the inline task at point.
If the task has an end part, promote it.  Also, prevents level from
going below `org-inlinetask-min-level'.
(defalias 'org-inlinetask-promote #[nil "\306 \204	�\307\310!\207\212\311 \312\313\"\211Z\314	\315\"\260\316	
W\203+�\307\317!\202b�\320 \210`\321\316\322\316\323%\210\324 \210m\203E�\325 \210\202H�\313y\210`\fU?\205b�\321\316\322\316\323%\210\205b�\fb\210\326\n!.\207" [lvl next-lvl diff down-task beg org-inlinetask-min-level org-inlinetask-in-task-p error "Not in an inline task" org-inlinetask-get-task-level org-get-valid-level -1 make-string 42 nil "Cannot promote an inline task at minimum level" org-inlinetask-goto-beginning replace-match t 1 org-inlinetask-goto-end beginning-of-line org-fixup-indentation org-adapt-indentation] 7 (#$ . 6992) nil])
#@79 Demote the inline task at point.
If the task has an end part, also demote it.
(defalias 'org-inlinetask-demote #[nil "\306 \204	�\307\310!\207\212\311 \312\313\"\211Z\314	\315\"\260\316\317 \210`\320\316\321\316\313%\210\322 \210m\2039�\323 \210\202<�\324y\210`\fU?\205U�\320\316\321\316\313%\210
\205U�\fb\210\325\n!.\207" [lvl next-lvl diff down-task beg org-adapt-indentation org-inlinetask-in-task-p error "Not in an inline task" org-inlinetask-get-task-level org-get-valid-level 1 make-string 42 nil org-inlinetask-goto-beginning replace-match t org-inlinetask-goto-end beginning-of-line -1 org-fixup-indentation] 7 (#$ . 7813) nil])
#@140 Handle headlines with level larger or equal to `org-inlinetask-min-level'.
Either remove headline and meta data, or do special formatting.
(defalias 'org-inlinetask-export-handler #[nil "eb\210\306P\307 \310P\311\n\312\313#\205X\314\315!\316 \317\212\320 \210`)!\312-\311	\f\313#\2039�\316 \321 T|\210\202'�
b\210\311.\f\313#\203Y�\212\311/\312\313#)\203<�
\315\225T|\210\202<�
b\210\322y\210`\fU\204q�`\212\fb\210\323y\210`){
b\210
\f|\2100\203T12\236\203T\203\220�\324\325\"\204\224�\326\202\267�\324\327\"\203\241�\315\225\312O\324\330\"\203\256�\315\211\224O\331\332\333!\332Q\334\"\3243-\"\203T\3354\314\336-\"\206\315�\326\2115\326=\203\331�\326\202\346�56\235\203\345�\337\202\346�\3407\314\341-\"\206\361�\3268\314\342-\"\206\374�\3269\314\343-\"\206\326:12\236;\331;A@\344\"<\336;8\211=A@)>\331\345\346\347\3504>\"\"!\351\"?o\204G\212\323y\210\352\353!)\204G\354c\210?c\210n\204R\354c\210.\n,\202\f�*\207" [org-keyword-time-regexp keywords-re inline-re content end beg "^[ 	]*" org-inlinetask-outline-regexp ".*" re-search-forward nil t match-string 0 point-at-bol copy-marker org-inlinetask-goto-end point-at-eol 1 -1 string-match "\\S-" #1="" "\\`\\([ 	]*\n\\)+" "[ 	\n]+\\'" org-add-props "\n\n" org-remove-indentation (org-protected nil org-native-text nil) #[(el) "\301!\206�\302\207" [el eval #1#] 2] 2 "done" "todo" 3 4 5 (org-protected t org-native-text t) eval append (format format-str) mapcar (original-indentation 1000) looking-at "[ 	]*$" "\n" headline org-drawer-regexp org-property-end-re org-inlinetask-export org-export-current-backend org-inlinetask-export-templates org-complex-heading-regexp nil-to-str todo org-done-keywords class priority heading tags backend-spec format-str x tokens export-str] 8 (#$ . 8471)])
#@64 Get the indentation of the last non-while line above this one.
(defalias 'org-inlinetask-get-current-indentation #[nil "\212\300\301!\210\302\303x\210\300\301!\210\304 \204�\305\306!\210\307\225b\210i)\207" [beginning-of-line 1 " 	\n" nil org-at-item-p looking-at "[ 	]*" 0] 2 (#$ . 10281)])
(byte-code "\300\301\302\303\304\"\305\306\307%\207" [custom-declare-face org-inlinetask org-compatible-face shadow ((t (:bold t))) "Face for inlinetask headlines." :group org-faces] 6)
#@41 Fontify the inline tasks down to LIMIT.
(defalias 'org-inlinetask-fontify #[(limit) "\203�	\206	�\306\307_S\202�	\206�\306\310\311\312\n\313Z\"\314Q\315\304!\2033�\f\2033�
\316V\2033�\317\2024�\320\321\322#\205m�\203Q�\323\316\224\316\225\324\325BB#\210\323\203[�\307\202\\�\316\224\307\225\326#\210\323\313\224\313\225\327#\210\2026�+\207" [org-odd-levels-only org-inlinetask-min-level nstars re org-indent-mode org-indent-indentation-per-level 200 2 "^\\(\\*\\)\\(\\*\\{" format "%d" 3 ",\\}\\)\\(\\*\\* .*\\)" boundp 1 org-hide org-warning re-search-forward t add-text-properties face (font-lock-fontified t) (face org-hide font-lock-fontified t) (face org-inlinetask font-lock-fontified t) start-face limit org-inlinetask-show-first-star] 6 (#$ . 10766)])
#@44 Toggle visibility of inline task at point.
(defalias 'org-inlinetask-toggle-visibility #[nil "\212\302 \210n\203
�`S\202�`)\212\303 \210\304 )\211U\2060�\305T\306\"\203+�\307 \2020�\310	\311#*\207" [start end org-inlinetask-goto-end org-inlinetask-goto-beginning point-at-eol get-char-property invisible org-show-entry outline-flag-region t] 5 (#$ . 11549)])
#@34 Remove an END line when present.
(defalias 'org-inlinetask-remove-END-maybe #[nil "\301\302\303\"!\205\f�\304\305!\207" [org-inlinetask-min-level looking-at format "\\([ 	]*\n\\)*\\*\\{%d,\\}[ 	]+END[ 	]*$" replace-match ""] 4 (#$ . 11920)])
(byte-code "\300\301\302\"\210\300\303\304\"\210\305\306!\207" [eval-after-load "org-exp" (add-hook 'org-export-preprocess-before-backend-specifics-hook 'org-inlinetask-export-handler) "org" (add-hook 'org-font-lock-hook 'org-inlinetask-fontify) provide org-inlinetask] 3)