Edit file File name : org-ctags.elc Content :;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\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!!\202H \305!\203+ \306\307\"\210\310\311\"\202H \311=\204@ \312=\203G \313\314\315\"!\203G \316\"\202H \317\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 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 (#$ . 7762)]) #@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 (#$ . 8072) "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 (#$ . 8718)]) #@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 (#$ . 9112)]) #@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 (#$ . 9539)]) #@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 (#$ . 9979)]) #@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\316\317\"\203: \320\302!\210\321 \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" "/*" eql 0 make-local-variable org-ctags-all-tags-in-current-tags-table] 12 (#$ . 10238) nil]) #@60 History of tags visited by org-ctags-find-tag-interactive. (defvar org-ctags-find-tag-history nil (#$ . 11351)) #@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 (#$ . 11470) nil]) (byte-code "\300 \210\301\302!\207" [org-ctags-enable provide org-ctags] 2) Save