.emacs.d.git - Gitblit

;ELC
;;; Compiled
;;; in Emacs version 26.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!\210\300\303!\210\300\304!\210\305\306\307\310\311\302%\210\312\313\314\315\316DD\317\311\306\320\321&\210\312\322\314\315\323DD\324\311\306\320\321&\210\312\325\314\315\326DD\327\311\306\320\321&\210\312\330\314\315\331DD\332\311\306\320\333&\210\312\334\314\315\335DD\336\311\306\320\333&\210\312\337\314\315\340DD\341\311\306\320\342&\210\312\343\314\315\344DD\345\320\321\311\306&\210\312\346\314\315\347DD\350\320\321\311\306&\207" [require cl-lib helm helm-utils org custom-declare-group helm-org nil "Org related functions for helm." :group custom-declare-variable helm-org-headings-fontify funcall function #[0 "\300\207" [nil] 1] "Fontify org buffers before parsing them.\nThis reflect fontification in helm-buffer when non--nil.\nNOTE: This will be slow on large org buffers." :type boolean helm-org-format-outline-path #[0 "\300\207" [nil] 1] "Show all org level as path." helm-org-show-filename #[0 "\300\207" [nil] 1] "Show org filenames in `helm-org-agenda-files-headings' when non--nil.\nNote this have no effect in `helm-org-in-buffer-headings'." helm-org-headings-min-depth #[0 "\300\207" [1] 1] "Minimum depth of org headings to start with." integer helm-org-headings-max-depth #[0 "\300\207" [8] 1] "Go down to this maximum depth of org headings." helm-org-headings-actions #[0 "\300\207" [(("Go to heading" . helm-org-goto-marker) ("Open in indirect buffer `C-c i'" . helm-org--open-heading-in-indirect-buffer) ("Refile heading(s) (marked-to-selected|current-to-selected) `C-c w`" . helm-org--refile-heading-to) ("Insert link to this heading `C-c l`" . helm-org-insert-link-to-heading-at-marker))] 1] "Default actions alist for\n  `helm-source-org-headings-for-files'." (alist :key-type string :value-type function) helm-org-truncate-lines #[0 "\300\207" [t] 1] "Truncate org-header-lines when non-nil" helm-org-ignore-autosaves #[0 "\300\207" [nil] 1] "Ignore autosave files when starting `helm-org-agenda-files-headings'."] 8)
(defalias 'helm-source-org-capture-templates #[0 "\301\302\303\304\305\211:\203!@\262A@@BB\262A\262\202\211\237\266\203\306\307&\207" [org-capture-templates helm-make-source "Org Capture Templates:" helm-source-sync :candidates nil :action (("Do capture" lambda (template-shortcut) (org-capture nil template-shortcut)))] 9])
#@15 
 
(fn MARKER)
(defalias 'helm-org-goto-marker #[257 "\300\301!!\210\302!b\210\303 \210\304\305\306\307#\210\310 \207" [switch-to-buffer marker-buffer marker-position org-show-context re-search-backward "^\\*+ " nil t org-show-entry] 5 (#$ . 2738)])
#@15 
 
(fn MARKER)
(defalias 'helm-org--open-heading-in-indirect-buffer #[257 "\300!\210\301 \210\302\303\304\305 A\305 @\"\"\207" [helm-org-goto-marker org-tree-to-indirect-buffer set-window-prev-buffers nil append window-prev-buffers] 6 (#$ . 2995)])
#@50 Open selected Org heading in an indirect buffer.
(defalias 'helm-org-run-open-heading-in-indirect-buffer #[0 "\203\301\302!\207\303\304!\207" [helm-alive-p helm-exit-and-execute-action helm-org--open-heading-in-indirect-buffer error "Running helm command outside of context"] 2 (#$ . 3250) nil])
(put 'helm-org-run-open-heading-in-indirect-buffer 'helm-only t)
#@50 Keymap for `helm-source-org-headings-for-files'.
(defvar helm-org-headings-map (byte-code "\301 \302\"\210\303\304\305#\210\303\306\307#\210\303\310\311#\210\211\207" [helm-map make-sparse-keymap set-keymap-parent define-key "i" helm-org-run-open-heading-in-indirect-buffer "w" helm-org-run-refile-heading-to "l" helm-org-run-insert-link-to-heading-at-marker] 5) (#$ . 3620))
(byte-code "\300\301\302\303!\"\210\300\304\305\303!\"\210\300\306\304\"\210\307\306\310\311#\210\312\303\313\304#\314\303\315\316\317$\207" [defalias helm-org-headings-class-p eieio-make-class-predicate helm-org-headings-class helm-org-headings-class--eieio-childp eieio-make-child-predicate helm-org-headings-class-child-p make-obsolete "use (cl-typep ... \\='helm-org-headings-class) instead" "25.1" define-symbol-prop cl-deftype-satisfies eieio-defclass-internal (helm-source-sync) ((parents :initarg :parents :initform nil :custom boolean) (match :initform (lambda (candidate) (string-match helm-pattern (helm-aif (get-text-property 0 'helm-real-display candidate) it candidate)))) (help-message :initform 'helm-org-headings-help-message) (action :initform 'helm-org-headings-actions) (keymap :initform 'helm-org-headings-map) (group :initform 'helm-org)) nil] 6)
#@80 Create a new object of class type `helm-org-headings-class'.
 
(fn &rest SLOTS)
(defalias 'helm-org-headings-class #[128 "\300\301\302#\207" [apply make-instance helm-org-headings-class] 5 (#$ . 4879)])
(byte-code "\300\301\302\303#\300\207" [function-put helm-org-headings-class compiler-macro helm-org-headings-class--anon-cmacro] 4)
#@26 
 
(fn WHOLE &rest SLOTS)
(defalias 'helm-org-headings-class--anon-cmacro #[385 "\211@;\204\207\300\301\302@@#@\303@DABB\"\207" [macroexp--warn-and-return format "Obsolete name arg %S to constructor %S" identity] 7 (#$ . 5221)])
(byte-code "\300\301\302\301\303\"\"\210\304\301\305\306\307$\207" [eieio--defalias helm--setup-source eieio--defgeneric-init-form nil eieio--defmethod :after helm-org-headings-class #[257 "\300\301\"\302\303\304\305\306\307\310    !\311\"\312\313%#\262\207" [slot-value parents eieio-oset candidate-transformer make-byte-code 257 "\301\300\"\300\203 \211\237\202\211\207" vconcat vector [helm-org-get-candidates] 4 "\n\n(fn CANDIDATES)"] 12 "\n\n(fn SOURCE)"]] 5)
#@36 
 
(fn FILENAMES &optional PARENTS)
(defalias 'helm-source-org-headings-for-files #[513 "\300\301\302\303\304\305\306    &\207" [helm-make-source "Org Headings" helm-org-headings-class :filtered-candidate-transformer helm-org-startup-visibility :parents :candidates] 11 (#$ . 5934)])
#@184 Indent headings and hide leading stars displayed in the helm buffer.
If `org-startup-indented' and `org-hide-leading-stars' are nil, do
nothing to CANDIDATES.
 
(fn CANDIDATES SOURCE)
(defalias 'helm-org-startup-visibility #[514 "\306\211:\203\307@\262\204    \203@AB\202\274\n\2032\307\310@\"\205\271\311\312\313\306@$\202\271\307\310@\"\205\271\314 r\315!\203G\206Jp\211q\210\f\203~ \203~r\316 q\210\317\320!\210\321\322!\210\311\323\324\325\311\326\313\306\n@$\327\330D#\"\313\306@$)\202\266\f\204\250 \203\250r\316 q\210\311\323\324\325\311\326\313\306\n@$\327\330D#\"\313\306@$)\202\266r\316 q\210\311\312\313\306@$))\262ABB\262A\262\202\211\237\207" [helm-org-show-filename helm-org-format-outline-path helm-org-headings-fontify helm-current-buffer org-startup-indented org-hide-leading-stars nil string-match "^\\(\\**\\)\\(\\* \\)\\(.*\n?\\)" replace-match "\\1\\2\\3" t org-find-invisible-foreground buffer-live-p helm-buffer-get require org-indent org-indent-mode 1 format "%s\\2\\3" propertize "\\1" face :foreground] 15 (#$ . 6225)])
#@36 
 
(fn FILENAMES &optional PARENTS)
(defalias 'helm-org-get-candidates #[513 "\300\301\302\303\304\305\306\307!\310\"\311\312%\"\"\207" [apply append mapcar make-byte-code 257 "\303    \300\206    \n?\300$\207" vconcat vector [helm-org-headings-fontify helm-org-show-filename helm-org--get-candidates-in-file] 6 "\n\n(fn FILENAME)"] 11 (#$ . 7324)])
#@51 
 
(fn FILENAME &optional FONTIFY NOFNAME PARENTS)
(defalias 'helm-org--get-candidates-in-file #[1025 "r\304!\203\202;\203\305\306\"\202\307q\210\203\"\310\202#\311\312C\304!\206-?\2057\313!\314P\203[\315\316\317\320\321\322\323!\324\"\325$\317\326\327\322\323    !\324\"\330\331%B\332\307$\210\212\214\304!\203k\333!\204m~\210\204teb\210\334\300!\203|\307\335\336 !\307\211\211\211\211\242 \203 \337 \262\340 \262\203\247\341\342\306$\204\247\343\"\210\311\325!G\262\344!\262    Y\203\205\nX\203\205\345\203\355\346\3471\340\350\351\352?\205\330\306E\"C\"0\202\345\210\352\306\211\"\n#\202\203\374\n\320!P\202    \320!\353#\354 BB\262\202\205\211\237\266\206*\266\203)\207" [org-outline-path-cache helm-org-headings-min-depth helm-org-headings-max-depth helm-org-format-outline-path bufferp find-file-noselect t nil match-string match-string-no-properties #[0 "\301\302\303#\207" [org-complex-heading-regexp re-search-forward nil t] 4] helm-basename ":" advice--add-function :around make-byte-code 0 "\300\242\207" vconcat vector [] 1 257 "\300\240\207" 3 "\n\n(fn GV--VAL)" #[385 "\300 \205    \301\"\207" [org-up-heading-safe apply] 5 "\n\n(fn OLD-FN &rest ARGS)"] buffer-base-buffer boundp window-width helm-window point-at-bol point-at-eol text-property-any fontified jit-lock-fontify-now 4 propertize org-format-outline-path (wrong-number-of-arguments) append apply org-get-outline-path helm-real-display point-marker] 21 (#$ . 7678)])
#@15 
 
(fn MARKER)
(defalias 'helm-org-insert-link-to-heading-at-marker #[257 "r\301!q\210\212\302!b\210\303\304 8)\305 r\306!\203\206!p\211q\210\307\310\311R\")\266\202)\207" [helm-current-buffer marker-buffer marker-position 4 org-heading-components buffer-file-name buffer-live-p org-insert-link "file:" "::*"] 9 (#$ . 9206)])
(defalias 'helm-org-run-insert-link-to-heading-at-marker #[0 "\203\301\302!\207\303\304!\207" [helm-alive-p helm-exit-and-execute-action helm-org-insert-link-to-heading-at-marker error "Running helm command outside of context"] 2 nil nil])
#@199 Refile headings to heading at MARKER.
If multiple candidates are marked in the Helm session, they will
all be refiled.  If no headings are marked, the selected heading
will be refiled.
 
(fn MARKER)
(defalias 'helm-org--refile-heading-to #[257 "r\300 q\210\301 )\302!\303!\304\304FG\305U\203'\306 @\232\203'`C\262\205m\205m\205m\211\205m\304:\203j@\262\211\212\307!\203O\302!q\210\212\214~\210\211\206X`b\210\310\304\211#\210+\210A\262\2029\304\266\202\207" [helm-buffer-get helm-marked-candidates marker-buffer buffer-file-name nil 1 helm-get-selection markerp org-refile] 12 (#$ . 9793)])
(defalias 'helm-org-in-buffer-preselect #[0 "\300 \203\f\301\302 \303 \"\207\212\304\305!\210\301\302 \303 \")\207" [org-on-heading-p buffer-substring-no-properties point-at-bol point-at-eol outline-previous-visible-heading 1] 3])
(defalias 'helm-org-run-refile-heading-to #[0 "\203\301\302!\207\303\304!\207" [helm-alive-p helm-exit-and-execute-action helm-org--refile-heading-to error "Running helm command outside of context"] 2 nil nil])
(put 'helm-org-run-refile-heading-to 'helm-only t)
#@44 Preconfigured helm for org files headings.
(defalias 'helm-org-agenda-files-headings #[0 "\302 \303\211:\203+@\262\304\305\306\307!\306Q\310!\"!\203$\307!B\262A\262\202\211\237\266\203\211\203D\204D\311\312\313\314\315\316#\"!\205R\317\320\321\302 !\322\323\324    \325\326&\207" [helm-org-ignore-autosaves helm-org-truncate-lines org-agenda-files nil file-exists-p expand-file-name "#" helm-basename helm-basedir y-or-n-p format "%s have auto save data, continue?" mapconcat identity ", " helm :sources helm-source-org-headings-for-files :candidate-number-limit 99999 :truncate-lines :buffer "*helm org headings*"] 10 (#$ . 10917) nil])
#@45 Preconfigured helm for org buffer headings.
(defalias 'helm-org-in-buffer-headings #[0 "\302\303\304\305pC!\306\307\310\311 \312    \313\314&\n)\207" [helm-org-show-filename helm-org-truncate-lines nil helm :sources helm-source-org-headings-for-files :candidate-number-limit 99999 :preselect helm-org-in-buffer-preselect :truncate-lines :buffer "*helm org inbuffer*"] 11 (#$ . 11578) nil])
#@78 Preconfigured helm for org headings that are parents of the
current heading.
(defalias 'helm-org-parent-headings #[0 "\303\304\305\306\307pC\310\"\311\312\313\n\314\315&*\207" [helm-org-headings-max-depth helm-org-headings-min-depth helm-org-truncate-lines 1 50 helm :sources helm-source-org-headings-for-files t :candidate-number-limit 99999 :truncate-lines :buffer "*helm org parent headings*"] 9 (#$ . 11972) nil])
#@39 Preconfigured helm for org templates.
(defalias 'helm-org-capture-templates #[0 "\301\302\303 \304\305\306\307\310&\207" [helm-org-truncate-lines helm :sources helm-source-org-capture-templates :candidate-number-limit 99999 :truncate-lines :buffer "*helm org capture templates*"] 9 (#$ . 12399) nil])
#@369 Completing read function for Org tags.
 
This function is used as a `completing-read' function in
`helm-completing-read-handlers-alist' by `org-set-tags' and
`org-capture'.
 
NOTE: Org tag completion will work only if you disable org fast tag
selection, see (info "(org) setting tags").
 
(fn PROMPT COLLECTION PRED REQ INITIAL HIST DEF INHERIT-INPUT-METHOD NAME BUFFER)
(defalias 'helm-org-completing-read-tags #[2570 "    \303\230\204#\304\305\306!\"\307\n\n\n\n\n\n\n\n&)\207;\2054\310\230?\2054\311\312\"\313\314\315    \"\316!\317!\266\202\"\320\321K\322\323\324\325\326!\327\"\330$\216\321\331M\210\332\333\334\335&\312#)\262)\207" [helm-completing-read-handlers-alist org-last-tags-completion-table crm-separator "Tags: " rassq-delete-all helm-org-completing-read-tags copy-alist org-icompleting-read "" org-split-string ":" delete mapcar car copy-sequence delete-dups ":\\|,\\|\\s-" crm-complete-word make-byte-code 0 "\301\300M\207" vconcat vector [crm-complete-word] 2 self-insert-command mapconcat identity completing-read-multiple nil] 23 (#$ . 12709)])
(provide 'helm-org)