;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\302\303\304\305\306\307\310\311&\207" [require org custom-declare-group org-ctags nil "Options concerning use of ctags within org mode." :tag "Org-Ctags" :group org-link] 8)
|
#@37 Activate ctags support in org mode?
|
(defvar org-ctags-enabled-p t (#$ . 609))
|
#@193 Regexp expression used by ctags external program.
|
The regexp matches tag destinations in Org files.
|
Format is: /REGEXP/TAGNAME/FLAGS,TAGTYPE/
|
See the ctags documentation for more information.
|
(defvar org-ctags-tag-regexp "/<<([^>]+)>>/\\1/d,definition/" (#$ . 694))
|
(byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313& \210\300\314\302\303\315DD\316\306\307\310\311\312\317\320\321& \207" [custom-declare-variable org-ctags-path-to-ctags funcall function #[0 "\300\301!\203 \301\207\302\207" [executable-find "ctags-exuberant" "ctags"] 2] "Name of the ctags executable file." :group org-ctags :version "24.1" :type file org-ctags-open-link-functions #[0 "\300\207" [(org-ctags-find-tag org-ctags-ask-rebuild-tags-file-then-find-tag org-ctags-ask-append-topic)] 1] "List of functions to be prepended to ORG-OPEN-LINK-FUNCTIONS when ORG-CTAGS is active." hook :options (org-ctags-find-tag org-ctags-ask-rebuild-tags-file-then-find-tag org-ctags-rebuild-tags-file-then-find-tag org-ctags-ask-append-topic org-ctags-append-topic org-ctags-ask-visit-buffer-or-file org-ctags-visit-buffer-or-file org-ctags-fail-silently)] 12)
|
#@87 List of all tags in the active TAGS file.
|
Created as a local variable in each buffer.
|
(defvar org-ctags-tag-list nil (#$ . 1833))
|
(byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313& \210\314\315\316\"\210\317\320\321\322\323$\210\324\320\325\"\207" [custom-declare-variable org-ctags-new-topic-template funcall function #[0 "\300\207" [#1="* <<%t>>\n\n\n\n\n\n"] 1 #1#] "Text to insert when creating a new org file via opening a hyperlink.\nThe following patterns are replaced in the string:\n `%t' - replaced with the capitalized title of the hyperlink" :group org-ctags :version "24.1" :type string add-hook org-mode-hook #[0 "\205 \301 \205 \302\303\301 !\304P!\305!\205 \306!\262\207" [org-ctags-enabled-p buffer-file-name expand-file-name file-name-directory "/TAGS" file-exists-p visit-tags-table] 3] ad-add-advice visit-tags-table (org-ctags-load-tag-list nil t (advice lambda nil (when (and org-ctags-enabled-p tags-file-name) (setq-local org-ctags-tag-list (org-ctags-all-tags-in-current-tags-table))))) after nil ad-activate t] 10)
|
(defalias 'org-ctags-enable #[0 "\302\303\304\305#\210\306 \211\205 \211@\307\310\306#\210A\266\202\202 \207" [org-ctags-enabled-p org-ctags-open-link-functions put org-mode find-tag-default-function org-ctags-find-tag-at-point t add-hook org-open-link-functions] 6])
|
#@194 TAG is a string. Search the active TAGS file for a matching tag.
|
If the tag is found, return a list containing the filename, line number, and
|
buffer position where the tag is found.
|
|
(fn TAG)
|
(defalias 'org-ctags-get-filename-for-tag #[257 "\204 \301\302 !\210\212\303\304!\210\205M r\305!q\210eb\210\306\307\310\311!\"\312\313#\203K \314\315\316!!\314\315\317!!\320\321!\203A \315\316!E\202F \322\323\324 \"\266\202\202L \312))\207" [tags-file-name call-interactively visit-tags-table visit-tags-table-buffer same get-file-buffer re-search-forward format "^.*%s\\([0-9]+\\),\\([0-9]+\\)$" regexp-quote nil t string-to-number match-string 1 2 re-search-backward "\f\n\\(.*\\),[0-9]+\n" error "Malformed TAGS file: %s" buffer-name] 6 (#$ . 3177) "sTag: "])
|
#@89 Read all tags defined in the active TAGS file, into a list of strings.
|
Return the list.
|
(defalias 'org-ctags-all-tags-in-current-tags-table #[0 "\301\204\n \302\303 !\210\212\304\305!\210r\306!q\210eb\210\307\310\301\311#\203, \312\313\314!!B\262\202 *\211\207" [tags-file-name nil call-interactively visit-tags-table visit-tags-table-buffer same get-file-buffer re-search-forward "^.*\\(.*\\)\\([0-9]+\\),\\([0-9]+\\)$" t substring-no-properties match-string 1] 5 (#$ . 3949) nil])
|
#@85 Replace all instances of SEARCH with REPLACE in STRING.
|
|
(fn SEARCH REPLACE STRING)
|
(defalias 'org-ctags-string-search-and-replace #[771 "\300\301!\302\211%\207" [replace-regexp-in-string regexp-quote t] 9 (#$ . 4445)])
|
#@152 Visit or create a file called `NAME.org', and insert a new topic.
|
The new topic will be titled NAME (or TITLE if supplied).
|
|
(fn NAME &optional TITLE)
|
(defalias 'org-ctags-open-file #[513 "\3011% \302\303\"\210\304\305!\210db\210\306\307\310\206 !#c\210\304\311!\210\312 0\207\313\314\"\207" [org-ctags-new-topic-template (error) org-open-file t message "Opened file OK" org-ctags-string-search-and-replace "%t" capitalize "Inserted new file text OK" org-mode-restart error "Error %S in org-ctags-open-file"] 6 (#$ . 4675) "sFile name: "])
|
(byte-code "\300\301\302\303\304$\210\305\301\306\"\207" [ad-add-advice xref-find-definitions (org-ctags-set-org-mark-before-finding-tag nil t (advice lambda nil "Before trying to find a tag, save our current position on org mark ring." (save-excursion (when (and (derived-mode-p 'org-mode) org-ctags-enabled-p) (org-mark-ring-push))))) before nil ad-activate t] 5)
|
#@108 Determine default tag to search for, based on text at point.
|
If there is no plausible default, return nil.
|
(defalias 'org-ctags-find-tag-at-point #[0 "\300\211\211\30112 \212\302\303!\210\304`\\\262)\212b\210\305\306!\210`S\262)V\205. `Y\205. `X0\2026 \210\2029 \204\237 \212\307\310!\210`\262)\212\311\310!\210`\262)V\204\237 \212\312 \211\262\205t \307\313\"\205t `\211\262V\205t \307\310!\205t `\211\262)\204\237 \212\314 \211\262\205\233 \311\313\"\205\233 `\211\262W\205\233 \311\310!\205\233 `\211\262)\205\243 \315\"\207" [nil (error) search-backward "[[" 2 search-forward "]" skip-syntax-backward "w_" skip-syntax-forward line-beginning-position "^w_" line-end-position buffer-substring-no-properties] 6 (#$ . 5594)])
|
#@202 This function is intended to be used in ORG-OPEN-LINK-FUNCTIONS.
|
Look for a tag called `NAME' in the current TAGS table. If it is found,
|
visit the file and location where the tag is found.
|
|
(fn NAME)
|
(defalias 'org-ctags-find-tag #[257 "p\300 \301\302 !\3031 \304!\210\3050\202\" \210q\210b\210\302 \306\223\210\306\207" [point-marker copy-marker mark-marker (error) xref-find-definitions t nil] 7 (#$ . 6350) "sTag: "])
|
#@486 This function is intended to be used in ORG-OPEN-LINK-FUNCTIONS.
|
Visit buffer named `NAME.org'. If there is no such buffer, visit the file
|
with the same name if it exists. If the file does not exist, then behavior
|
depends on the value of CREATE.
|
|
If CREATE is nil (default), then return nil. Do not create a new file.
|
If CREATE is t, create the new file and visit it.
|
If CREATE is the symbol `ask', then ask the user if they wish to create
|
the new file.
|
|
(fn NAME &optional CREATE)
|
(defalias 'org-ctags-visit-buffer-or-file #[513 "\300\301!!\302P\303\302P!\203 \304\303\302P!!\202J \305!\203+ \306\307\"\210\310\311\"\202J \312\311\"\204B \312\313\"\203I \314\315\316\"!\203I \317\"\202J \320\207" [substitute-in-file-name expand-file-name ".org" get-buffer pop-to-buffer-same-window file-exists-p message "Opening existing org file `%S'..." org-open-file t eql ask y-or-n-p format-message "File `%s.org' not found; create?" org-ctags-open-file nil] 7 (#$ . 6784) nil])
|
#@181 This function is intended to be used in ORG-OPEN-LINK-FUNCTIONS.
|
Wrapper for org-ctags-visit-buffer-or-file, which ensures the user is
|
asked before creating a new file.
|
|
(fn NAME)
|
(defalias 'org-ctags-ask-visit-buffer-or-file #[257 "\300\301\"\207" [org-ctags-visit-buffer-or-file ask] 4 (#$ . 7776)])
|
#@280 This function is intended to be used in ORG-OPEN-LINK-FUNCTIONS.
|
Append a new toplevel heading to the end of the current buffer. The
|
heading contains NAME surrounded by <<angular brackets>>, thus making
|
the heading a destination for the tag `NAME'.
|
|
(fn NAME &optional NARROWP)
|
(defalias 'org-ctags-append-topic #[513 "~\210db\210\301\302!\210\303\304\305 \"\210\306\307\310!#c\210\311u\210\312\210\302y\210\211\203( \313 \210\314\207" [org-ctags-new-topic-template newline 2 message "Adding topic in buffer %s" buffer-name org-ctags-string-search-and-replace "%t" capitalize -4 nil org-narrow-to-subtree t] 6 (#$ . 8086) "sTopic: "])
|
#@193 This function is intended to be used in ORG-OPEN-LINK-FUNCTIONS.
|
Wrapper for org-ctags-append-topic, which first asks the user if they want
|
to append a new topic.
|
|
(fn NAME &optional NARROWP)
|
(defalias 'org-ctags-ask-append-topic #[513 "\300\301\302\"!\205 \303\"\207" [y-or-n-p format-message "Topic `%s' not found; append to end of buffer?" org-ctags-append-topic] 6 (#$ . 8732)])
|
#@181 This function is intended to be used in ORG-OPEN-LINK-FUNCTIONS.
|
Like ORG-CTAGS-FIND-TAG, but calls the external ctags program first,
|
to rebuild (update) the TAGS file.
|
|
(fn NAME)
|
(defalias 'org-ctags-rebuild-tags-file-then-find-tag #[257 "\204 \301\302 !\210\303 \203 \304 \210\305!\207" [tags-file-name call-interactively visit-tags-table buffer-file-name org-ctags-create-tags org-ctags-find-tag] 3 (#$ . 9126)])
|
#@132 This function is intended to be used in ORG-OPEN-LINK-FUNCTIONS.
|
Wrapper for org-ctags-rebuild-tags-file-then-find-tag.
|
|
(fn NAME)
|
(defalias 'org-ctags-ask-rebuild-tags-file-then-find-tag #[257 "\300 \205 \301\302\303\304\300 !#!\205 \305!\207" [buffer-file-name y-or-n-p format-message "Tag `%s' not found. Rebuild table `%s/TAGS' and look again?" file-name-directory org-ctags-rebuild-tags-file-then-find-tag] 7 (#$ . 9553)])
|
#@181 This function is intended to be used in ORG-OPEN-LINK-FUNCTIONS.
|
Put as the last function in the list if you want to prevent Org's
|
default behavior of free text search.
|
|
(fn NAME)
|
(defalias 'org-ctags-fail-silently #[257 "\300\207" [t] 2 (#$ . 9993)])
|
#@535 (Re)create tags file in the directory of the active buffer.
|
The file will contain tag definitions for all the files in the
|
directory and its subdirectories which are recognized by ctags.
|
This will include files ending in `.org' as well as most other
|
source files (.C, .H, .EL, .LISP, etc). All the resulting tags
|
end up in one file, called TAGS, located in the directory. This
|
function may take several seconds to finish if the directory or
|
its subdirectories contain large numbers of taggable files.
|
|
(fn &optional DIRECTORY-NAME)
|
(defalias 'org-ctags-create-tags #[256 "\303 \204 \304\305!\210\211\206 \306\303 !\307\212\310\311\312 \313\314P!\313\315P!%!\262\211\316\267\2029 \317\302!\210\320 \211\202: \307)\207" [org-ctags-path-to-ctags org-ctags-tag-regexp org-ctags-tag-list buffer-file-name cl--assertion-failed (buffer-file-name) file-name-directory nil shell-command format "%s --langdef=orgmode --langmap=orgmode:.org --regex-orgmode=\"%s\" -f \"%s\" -e -R \"%s\"" expand-file-name "/TAGS" "/*" #s(hash-table size 1 test eql rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (0 46)) make-local-variable org-ctags-all-tags-in-current-tags-table] 12 (#$ . 10252) nil])
|
#@60 History of tags visited by org-ctags-find-tag-interactive.
|
(defvar org-ctags-find-tag-history nil (#$ . 11454))
|
#@193 Prompt for the name of a tag, with autocompletion, then visit the named tag.
|
Uses `ido-mode' if available.
|
If the user enters a string that does not match an existing tag, create
|
a new topic.
|
(defalias 'org-ctags-find-tag-interactive #[0 "\302\303!\203\n \303\202 \304\211\305\306\307\306\301&\211\205, \211\235\203( \211 B\310!\202, \311\312\"\207" [org-ctags-tag-list org-ctags-find-tag-history fboundp ido-completing-read completing-read "Topic: " nil confirm xref-find-definitions run-hook-with-args-until-success org-open-link-functions] 8 (#$ . 11573) nil])
|
(byte-code "\300 \210\301\302!\207" [org-ctags-enable provide org-ctags] 2)
|
