;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. (byte-code "\300\301!\210\302\303\304\305\306\307\310\311&\210\312\313\314\315\316\317\320\321&\207" [require ol org-link-set-parameters "man" :follow org-man-open :export org-man-export :store org-man-store-link custom-declare-variable org-man-command 'man "The Emacs command to be used to display a man page." :group org-link :type (choice (const man) (const woman))] 8) #@186 Visit the manpage on PATH. PATH should be a topic that can be thrown at the man command. If PATH contains extra ::STRING which will use `occur' to search matched strings in man buffer. (defalias 'org-man-open #[(path _) "\304\305\"\210\306\307\"\306\310\" !\210\n\205%r\311 \312Qq\210eb\210\313\n!)*\207" [path command search org-man-command string-match "\\(.*?\\)\\(?:::\\(.*\\)\\)?$" match-string 1 2 "*Man " "*" search-forward] 3 (#$ . 463)]) #@32 Store a link to a README file. (defalias 'org-man-store-link #[nil "\304>\205\305 \306 P\307\310 \"\311\312\313\314\n\315 &+\207" [major-mode page link description (Man-mode woman-mode) org-man-get-page-name "man:" format "Manpage for %s" org-link-store-props :type "man" :link :description] 7 (#$ . 923)]) #@45 Extract the page name from the buffer name. (defalias 'org-man-get-page-name #[nil "\300\301\302 \"\203\303\304\302 \"\207\305\306!\207" [string-match " \\(\\S-+\\)\\*" buffer-name match-string 1 error "Cannot create link to this man page"] 3 (#$ . 1243)]) #@40 Export a man page link from Org files. (defalias 'org-man-export #[(link description format) "\304\305\" \206 \f\306\267\2029\304\307 \n#\202:\304\310 \n#\202:\304\311 \n#\202:\304\312\n #\202:\304\313\n #\202: *\207" [link description desc path format "http://man.he.net/?topic=%s§ion=all" #s(hash-table size 5 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (html 17 latex 25 texinfo 33 ascii 41 md 49)) "%s" "\\href{%s}{%s}" "@uref{%s,%s}" "%s (%s)" "[%s](%s)"] 4 (#$ . 1508)]) (provide 'ol-man)