| commit | author | age | ||
| 76bbd0 | 1 | ;ELC |
| C | 2 | ;;; Compiled |
| 3 | ;;; in Emacs version 26.1 | |
| 4 | ;;; with all optimizations. | |
| 5 | ||
| 6 | ;;; This file uses dynamic docstrings, first added in Emacs 19.29. | |
| 7 | ||
| 8 | ;;; This file does not contain utf-8 non-ASCII characters, | |
| 9 | ;;; and so can be loaded in Emacs versions earlier than 23. | |
| 10 | ||
| 11 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | |
| 12 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | |
| 13 | ||
| 14 | ||
| 15 | (byte-code "\300\301!\210\300\302!\210\303\304\305\306\307\310\311&\210\312\313\314\315\316\317\320\321&\210\322\323\324\325\326DD\327\320\313\330\331\332\333\334\335& \210\322\336\324\325\337DD\340\320\313\330\331\332\341\334\335& \210\322\342\324\325\343DD\344\320\313\330\331\332\345\334\346& \210\322\347\324\325\350DD\351\320\313\330\331\332\352\334\335& \210\322\353\324\325\354DD\355\320\313\330\331\332\356\334\357& \210\322\360\324\325\361DD\362\320\363\320\313\330\331\332\364\334\365& \210\322\366\324\325\367DD\370\320\313\330\331\332\371\334\372& \210\322\373\324\325\374DD\375\320\313\330\331\332\376\334\335& \207" [require cl-lib ox org-export-define-backend man ((babel-call . org-man-babel-call) (bold . org-man-bold) (center-block . org-man-center-block) (code . org-man-code) (drawer . org-man-drawer) (dynamic-block . org-man-dynamic-block) (entity . org-man-entity) (example-block . org-man-example-block) (export-block . org-man-export-block) (export-snippet . org-man-export-snippet) (fixed-width . org-man-fixed-width) (footnote-definition . org-man-footnote-definition) (footnote-reference . org-man-footnote-reference) (headline . org-man-headline) (horizontal-rule . org-man-horizontal-rule) (inline-babel-call . org-man-inline-babel-call) (inline-src-block . org-man-inline-src-block) (inlinetask . org-man-inlinetask) (italic . org-man-italic) (item . org-man-item) (keyword . org-man-keyword) (line-break . org-man-line-break) (link . org-man-link) (node-property . org-man-node-property) (paragraph . org-man-paragraph) (plain-list . org-man-plain-list) (plain-text . org-man-plain-text) (planning . org-man-planning) (property-drawer . org-man-property-drawer) (quote-block . org-man-quote-block) (radio-target . org-man-radio-target) (section . org-man-section) (special-block . org-man-special-block) (src-block . org-man-src-block) (statistics-cookie . org-man-statistics-cookie) (strike-through . org-man-strike-through) (subscript . org-man-subscript) (superscript . org-man-superscript) (table . org-man-table) (table-cell . org-man-table-cell) (table-row . org-man-table-row) (target . org-man-target) (template . org-man-template) (timestamp . org-man-timestamp) (underline . org-man-underline) (verbatim . org-man-verbatim) (verse-block . org-man-verse-block)) :menu-entry (77 "Export to MAN" ((109 "As MAN file" org-man-export-to-man) (112 "As PDF file" org-man-export-to-pdf) (111 "As PDF file and open" (lambda (a s v b) (if a (org-man-export-to-pdf t s v b) (org-open-file (org-man-export-to-pdf nil s v b))))))) :options-alist ((:man-class "MAN_CLASS" nil nil t) (:man-class-options "MAN_CLASS_OPTIONS" nil nil t) (:man-header-extra "MAN_HEADER" nil nil newline) (:man-tables-centered nil nil org-man-tables-centered) (:man-tables-verbatim nil nil org-man-tables-verbatim) (:man-table-scientific-notation nil nil org-man-table-scientific-notation) (:man-source-highlight nil nil org-man-source-highlight) (:man-source-highlight-langs nil nil org-man-source-highlight-langs)) custom-declare-group org-export-man nil "Options for exporting Org mode files to Man." :tag "Org Export Man" :group org-export custom-declare-variable org-man-tables-centered funcall function #[0 "\300\207" [t] 1] "When non-nil, tables are exported in a center environment." :version "24.4" :package-version (Org . "8.0") :type boolean org-man-tables-verbatim #[0 "\300\207" [nil] 1] "When non-nil, tables are exported verbatim." (Org . "8.0") org-man-table-scientific-notation #[0 "\300\207" [#1="%sE%s"] 1 #1#] "Format string to display numbers in scientific notation.\nThe format should have \"%s\" twice, for mantissa and exponent\n(i.e. \"%s\\\\times10^{%s}\").\n\nWhen nil, no transformation is made." (Org . "8.0") (choice (string :tag "Format string") (const :tag "No formatting")) org-man-source-highlight #[0 "\300\207" [nil] 1] "Use GNU source highlight to embellish source blocks " (Org . "8.0") org-man-source-highlight-langs #[0 "\300\207" [((emacs-lisp "lisp") (lisp "lisp") (clojure "lisp") (scheme "scheme") (c "c") (cc "cpp") (csharp "csharp") (d "d") (fortran "fortran") (cobol "cobol") (pascal "pascal") (ada "ada") (asm "asm") (perl "perl") (cperl "perl") (python "python") (ruby "ruby") (tcl "tcl") (lua "lua") (java "java") (javascript "javascript") (tex "latex") (shell-script "sh") (awk "awk") (diff "diff") (m4 "m4") (ocaml "caml") (caml "caml") (sql "sql") (sqlite "sql") (html "html") (css "css") (xml "xml") (bat "bat") (bison "bison") (clipper "clipper") (ldap "ldap") (opa "opa") (php "php") (postscript "postscript") (prolog "prolog") (properties "properties") (makefile "makefile") (tml "tml") (vala "vala") (vbscript "vbscript") (xorg "xorg"))] 1] "Alist mapping languages to their listing language counterpart.\nThe key is a symbol, the major mode symbol without the \"-mode\".\nThe value is the string that should be inserted as the language\nparameter for the listings package. If the mode name and the\nlistings name are the same, the language does not need an entry\nin this list - but it does not hurt if it is present." (Org . "8.0") (repeat (list (symbol :tag "Major mode ") (string :tag "Listings language"))) org-man-pdf-process #[0 "\300\207" [("tbl %f | eqn | groff -man | ps2pdf - > %b.pdf" "tbl %f | eqn | groff -man | ps2pdf - > %b.pdf" "tbl %f | eqn | groff -man | ps2pdf - > %b.pdf")] 1] "Commands to process a Man file to a PDF file.\n\nThis is a list of strings, each of them will be given to the\nshell as a command. %f in the command will be replaced by the\nrelative file name, %F by the absolute file name, %b by the file\nbase name (i.e. without directory and extension parts), %o by the\nbase directory of the file and %O by the absolute file name of\nthe output file.\n\nBy default, Org uses 3 runs of to do the processing.\n\nAlternatively, this may be a Lisp function that does the\nprocessing. This function should accept the file name as\nits single argument." org-export-pdf (Org . "8.0") (choice (repeat :tag "Shell command sequence" (string :tag "Shell command")) (const :tag "2 runs of pdfgroff" ("tbl %f | eqn | groff -mm | ps2pdf - > %b.pdf" "tbl %f | eqn | groff -mm | ps2pdf - > %b.pdf")) (const :tag "3 runs of pdfgroff" ("tbl %f | eqn | groff -mm | ps2pdf - > %b.pdf" "tbl %f | eqn | groff -mm | ps2pdf - > %b.pdf" "tbl %f | eqn | groff -mm | ps2pdf - > %b.pdf")) (function)) org-man-logfiles-extensions #[0 "\300\207" [("log" "out" "toc")] 1] "The list of file extensions to consider as Man logfiles." (Org . "8.0") (repeat (string :tag "Extension")) org-man-remove-logfiles #[0 "\300\207" [t] 1] "Non-nil means remove the logfiles produced by PDF production.\nThese are the .aux, .log, .out, and .toc files." (Org . "8.0")] 14) | |
| 16 | #@221 Return caption and label Man string for ELEMENT. | |
| 17 | ||
| 18 | INFO is a plist holding contextual information. If there's no | |
| 19 | caption nor label, return the empty string. | |
| 20 | ||
| 21 | For non-floats, see `org-man--wrap-label'. | |
| 22 | ||
| 23 | (fn ELEMENT INFO) | |
| 24 | (defalias 'org-man--caption/label-string #[514 "\300\211;\203 \301\302#\202 \303A@\"\266\202\304!\304\305\"\204* \204* \306\202Q \2045 \307\310\"\202Q \211\203I \307\311\312\"\312\"#\202Q \307\313\312\"\"\207" [:label get-text-property 0 plist-get org-export-get-caption t "" format "\\fI%s\\fP" "\\fR%s\\fP - \\fI\\P - %s\n" org-export-data "\\fR%s\\fP"] 11 (#$ . 7146)]) | |
| 25 | #@168 Wrap label associated to ELEMENT around OUTPUT, if appropriate. | |
| 26 | This function shouldn't be used for floats. See | |
| 27 | `org-man--caption/label-string'. | |
| 28 | ||
| 29 | (fn ELEMENT OUTPUT) | |
| 30 | (defalias 'org-man--wrap-label #[514 "\300\211;\203 \301\302#\202 \303A@\"\266\202\203+ \211\203+ \304\230\204+ \211\304\230\203/ \2025 \305\306\"P\207" [:name get-text-property 0 plist-get "" format "%s\n.br\n"] 8 (#$ . 7768)]) | |
| 31 | #@67 Protect minus and backslash characters in string TEXT. | |
| 32 | ||
| 33 | (fn TEXT) | |
| 34 | (defalias 'org-man--protect-text #[257 "\300\301\302\303\304%\207" [replace-regexp-in-string "-" "\\-" nil t] 7 (#$ . 8182)]) | |
| 35 | #@160 Return complete document string after Man conversion. | |
| 36 | CONTENTS is the transcoded contents string. INFO is a plist | |
| 37 | holding export options. | |
| 38 | ||
| 39 | (fn CONTENTS INFO) | |
| 40 | (defalias 'org-man-template #[514 "\300\301\"\205 \302\300\303\"\"\304\305\306\307\310\300\311\"C\312#\"!\300\313\"\2032 \211;\2032 \305\314#\202Q \315\230\203E \211;\203E \305\314\312#\202Q \203P \305\316\"\202Q \317P\207" [plist-get :with-title org-export-data :title read format "(%s)" mapconcat identity :man-class-options " " :section-id ".TH \"%s\" \"%s\" \n" "" ".TH \"%s\" \"1\" \n" ".TH \" \" \"1\" "] 11 (#$ . 8382)]) | |
| 41 | #@146 Transcode BOLD from Org to Man. | |
| 42 | CONTENTS is the text with bold markup. INFO is a plist holding | |
| 43 | contextual information. | |
| 44 | ||
| 45 | (fn BOLD CONTENTS INFO) | |
| 46 | (defalias 'org-man-bold #[771 "\300\301\"\207" [format "\\fB%s\\fP"] 6 (#$ . 8991)]) | |
| 47 | #@182 Transcode a CENTER-BLOCK element from Org to Man. | |
| 48 | CONTENTS holds the contents of the center block. INFO is a plist | |
| 49 | holding contextual information. | |
| 50 | ||
| 51 | (fn CENTER-BLOCK CONTENTS INFO) | |
| 52 | (defalias 'org-man-center-block #[771 "\300\301\302\303\304\"GS#\"\207" [org-man--wrap-label format ".ce %d\n.nf\n%s\n.fi" split-string "\n"] 10 (#$ . 9229)]) | |
| 53 | #@67 Transcode a CODE object from Org to Man. | |
| 54 | ||
| 55 | (fn CODE CONTENTS INFO) | |
| 56 | (defalias 'org-man-code #[771 "\300\301\302\303\211;\203 \304\305#\202 \306A@\"\266\202!\"\207" [format "\\fC%s\\fP" org-man--protect-text :value get-text-property 0 plist-get] 12 (#$ . 9580)]) | |
| 57 | #@208 Transcode a DRAWER element from Org to Man. | |
| 58 | DRAWER holds the drawer information | |
| 59 | CONTENTS holds the contents of the block. | |
| 60 | INFO is a plist holding contextual information. | |
| 61 | ||
| 62 | (fn DRAWER CONTENTS INFO) | |
| 63 | (defalias 'org-man-drawer #[771 "\207" [] 4 (#$ . 9855)]) | |
| 64 | #@201 Transcode a DYNAMIC-BLOCK element from Org to Man. | |
| 65 | CONTENTS holds the contents of the block. INFO is a plist | |
| 66 | holding contextual information. See `org-export-data'. | |
| 67 | ||
| 68 | (fn DYNAMIC-BLOCK CONTENTS INFO) | |
| 69 | (defalias 'org-man-dynamic-block #[771 "\300\"\207" [org-man--wrap-label] 6 (#$ . 10128)]) | |
| 70 | #@157 Transcode an ENTITY object from Org to Man. | |
| 71 | CONTENTS are the definition itself. INFO is a plist holding | |
| 72 | contextual information. | |
| 73 | ||
| 74 | (fn ENTITY CONTENTS INFO) | |
| 75 | (defalias 'org-man-entity #[771 "\300\211;\203 \301\302#\202 \303A@\"\207" [:utf-8 get-text-property 0 plist-get] 9 (#$ . 10428)]) | |
| 76 | #@153 Transcode an EXAMPLE-BLOCK element from Org to Man. | |
| 77 | CONTENTS is nil. INFO is a plist holding contextual | |
| 78 | information. | |
| 79 | ||
| 80 | (fn EXAMPLE-BLOCK CONTENTS INFO) | |
| 81 | (defalias 'org-man-example-block #[771 "\300\301\302\303\"\"\"\207" [org-man--wrap-label format ".RS\n.nf\n%s\n.fi\n.RE" org-export-format-code-default] 10 (#$ . 10729)]) | |
| 82 | #@150 Transcode a EXPORT-BLOCK element from Org to Man. | |
| 83 | CONTENTS is nil. INFO is a plist holding contextual information. | |
| 84 | ||
| 85 | (fn EXPORT-BLOCK CONTENTS INFO) | |
| 86 | (defalias 'org-man-export-block #[771 "\300\211;\203 \301\302#\202 \303A@\"\266\202\304\230\2055 \305\306\211;\203, \301\302#\2022 \303A@\"\266\202!\207" [:type get-text-property 0 plist-get "MAN" org-remove-indentation :value] 10 (#$ . 11064)]) | |
| 87 | #@153 Transcode a EXPORT-SNIPPET object from Org to Man. | |
| 88 | CONTENTS is nil. INFO is a plist holding contextual information. | |
| 89 | ||
| 90 | (fn EXPORT-SNIPPET CONTENTS INFO) | |
| 91 | (defalias 'org-man-export-snippet #[771 "\300!\301=\205 \302\211;\203 \303\304#\202 \305A@\"\266\202\207" [org-export-snippet-backend man :value get-text-property 0 plist-get] 9 (#$ . 11478)]) | |
| 92 | #@148 Transcode a FIXED-WIDTH element from Org to Man. | |
| 93 | CONTENTS is nil. INFO is a plist holding contextual information. | |
| 94 | ||
| 95 | (fn FIXED-WIDTH CONTENTS INFO) | |
| 96 | (defalias 'org-man-fixed-width #[771 "\300\301\302\303\304\211;\203 \305\306#\202 \307A@\"\266\202!\"\"\207" [org-man--wrap-label format "\\fC\n%s\\fP" org-remove-indentation :value get-text-property 0 plist-get] 14 (#$ . 11839)]) | |
| 97 | #@170 Transcode a HEADLINE element from Org to Man. | |
| 98 | CONTENTS holds the contents of the headline. INFO is a plist | |
| 99 | holding contextual information. | |
| 100 | ||
| 101 | (fn HEADLINE CONTENTS INFO) | |
| 102 | (defalias 'org-man-headline #[771 "\300\"\211\301=\203 \302\202 \211\303=\204 \211\304=\203 \305\202 \306\307\310\211;\2030 \311\312#\2026 \313A@\"\266\202\"\314\211;\203J \311\312#\202P \313A@\"\266\202\203Y \306\202\226 \203e \315\"\203\220 \316\"\205q \317\320\321\"\322\323\324\260\325\"\204\206 \211\202\213 \326\327\330#\262\202\226 \317#\207" [org-export-get-relative-level 1 ".SH \"%s\"\n%s" 2 3 ".SS \"%s\"\n%s" nil org-export-data :title get-text-property 0 plist-get :footnote-section-p org-export-low-level-p org-export-first-sibling-p format "%s\n" ".RS" ".TP\n.ft I\n" "\n.ft\n" ".RE" org-export-last-sibling-p replace-regexp-in-string "[ \n]*\\'" ""] 12 (#$ . 12233)]) | |
| 103 | #@183 Transcode an INLINE-SRC-BLOCK element from Org to Man. | |
| 104 | CONTENTS holds the contents of the item. INFO is a plist holding | |
| 105 | contextual information. | |
| 106 | ||
| 107 | (fn INLINE-SRC-BLOCK CONTENTS INFO) | |
| 108 | (defalias 'org-man-inline-src-block #[771 "\301\211;\203 \302\303#\202 \304A@\"\266\202\304\305\"\203\255 \306\307\310\"!\306\307\311\"!\312\211;\203; \302\303#\202A \304A@\"\266\202\313!\304\314\"\236A@\307\315!\316\317\320\321 \260\203\243 \322\323\324\325!!\326\303\327\330\331!\332\"\333$\216r\211q\210 c\210)r\211q\210\334\335\211\335\303%\210*\266\336!\210\337!\262\340!\210\340!\210\211\262\202\250 \341\342\"\266\206\202\265 \343\344\345\345\346\260\207" [temporary-file-directory :value get-text-property 0 plist-get :man-source-highlight make-temp-name expand-file-name "srchilite" "reshilite" :language intern :man-source-highlight-langs "source-highlight" " -s " " -f groff_man" " -i " " -o " "" get-buffer-create generate-new-buffer-name " *temp file*" make-byte-code "\301\300!\205 \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 write-region nil shell-command org-file-contents delete-file format ".RS\n.nf\n\\fC\\m[black]%s\\m[]\\fP\n.fi\n.RE\n" ".RS\n.nf\n" "\\fC" "\n" "\\fP\n.fi\n.RE\n"] 19 (#$ . 13135)]) | |
| 109 | #@152 Transcode ITALIC from Org to Man. | |
| 110 | CONTENTS is the text with italic markup. INFO is a plist holding | |
| 111 | contextual information. | |
| 112 | ||
| 113 | (fn ITALIC CONTENTS INFO) | |
| 114 | (defalias 'org-man-italic #[771 "\300\301\"\207" [format "\\fI%s\\fP"] 6 (#$ . 14402)]) | |
| 115 | #@159 Transcode an ITEM element from Org to Man. | |
| 116 | CONTENTS holds the contents of the item. INFO is a plist holding | |
| 117 | contextual information. | |
| 118 | ||
| 119 | (fn ITEM CONTENTS INFO) | |
| 120 | (defalias 'org-man-item #[771 "\300\211;\203 \301\302#\202 \303A@\"\266\202\304\305\211;\203' \301\302#\202- \303A@\"\266\202\211;\203< \301\302#\202B \303A@\"\266\202\306\211;\203S \301\302#\202Y \303A@\"\266\202\211\307\267\202m \310\202n \311\202n \312\202n \313\262\314\211;\203\200 \301\302#\202\206 \303A@\"\266\202\211\205\226 \315\316\317 \"P\"\262\211\204\204\313\320\203\253 \321\202\254 \322\323\320\324\323##\266\202\211\325\230\203\300 \326\202\355 \211\327\230\203\312 \330\202\355 \331=\203\354 \315\332\313\320\203\335 \321\202\336 \322\323\320\324\323##\266\202\"\202\355 \333\334\335\n\206\366 \336\313\320\203 \321\202\322\323\320\324\323##\266\202R\266\202\2026\337\206\336P\340\206 \336\313\320\203*\321\202+\322\323\320\324\323##\266\202R\207" [:bullet get-text-property 0 plist-get :type :parent :checkbox #s(hash-table size 3 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (on 97 off 101 trans 105)) "\\o'\\(sq\\(mu'" "\\(sq " "\\o'\\(sq\\(mi'" nil :tag format "\\fB%s\\fP" org-export-data replace-regexp-in-string "\\`\\([ ]*\n\\)+" "\\`[ \n ]+" "" "[ \n ]+\\'" "-" "\\(em" "*" "\\(bu" ordered "%s " "\\(dg" ".IP " " 4\n" " " ".TP\n" "\n"] 21 (#$ . 14649)]) | |
| 121 | #@140 Transcode a KEYWORD element from Org to Man. | |
| 122 | CONTENTS is nil. INFO is a plist holding contextual information. | |
| 123 | ||
| 124 | (fn KEYWORD CONTENTS INFO) | |
| 125 | (defalias 'org-man-keyword #[771 "\300\211;\203 \301\302#\202 \303A@\"\266\202\304\211;\203& \301\302#\202, \303A@\"\266\202\305\230\2038 \211\202I \306\230\203B \307\202I \310\230\205I \307\207" [:key get-text-property 0 plist-get :value "MAN" "INDEX" nil "TOC"] 10 (#$ . 16084)]) | |
| 126 | #@145 Transcode a LINE-BREAK object from Org to Man. | |
| 127 | CONTENTS is nil. INFO is a plist holding contextual information. | |
| 128 | ||
| 129 | (fn LINE-BREAK CONTENTS INFO) | |
| 130 | (defalias 'org-man-line-break #[771 "\300\207" ["\n.br\n"] 4 (#$ . 16527)]) | |
| 131 | #@199 Transcode a LINK object from Org to Man. | |
| 132 | ||
| 133 | DESC is the description part of the link, or the empty string. | |
| 134 | INFO is a plist holding contextual information. See | |
| 135 | `org-export-data'. | |
| 136 | ||
| 137 | (fn LINK DESC INFO) | |
| 138 | (defalias 'org-man-link #[771 "\300\211;\203 \301\302#\202 \303A@\"\266\202\304\211;\203& \301\302#\202, \303A@\"\266\202\305\230?\2056 \306\235\203C \307Q\202P \310\230\203O \311!\202P \312\313#\206x \211\203i \203i \314\315#\202x \211\203t \314\316\"\202x \314\316\"\207" [:type get-text-property 0 plist-get :path "" ("http" "https" "ftp" "mailto") ":" "file" org-export-file-uri org-export-custom-protocol-maybe man format "%s \\fBat\\fP \\fI%s\\fP" "\\fI%s\\fP"] 11 (#$ . 16754)]) | |
| 139 | #@152 Transcode a NODE-PROPERTY element from Org to Man. | |
| 140 | CONTENTS is nil. INFO is a plist holding contextual | |
| 141 | information. | |
| 142 | ||
| 143 | (fn NODE-PROPERTY CONTENTS INFO) | |
| 144 | (defalias 'org-man-node-property #[771 "\300\301\302\211;\203 \303\304#\202 \305A@\"\266\202\306\211;\203) \303\304#\202/ \305A@\"\266\202\211\203; \307P\202< \310\262#\207" [format "%s:%s" :key get-text-property 0 plist-get :value " " ""] 12 (#$ . 17473)]) | |
| 145 | #@186 Transcode a PARAGRAPH element from Org to Man. | |
| 146 | CONTENTS is the contents of the paragraph, as a string. INFO is | |
| 147 | the plist used as a communication channel. | |
| 148 | ||
| 149 | (fn PARAGRAPH CONTENTS INFO) | |
| 150 | (defalias 'org-man-paragraph #[771 "\300A@\301\"\211\205E \211@\302\303=\203$ \300A@\304\"\203$ \302P\262\202C \305=\2032 \306P\262\202C \307=\203> \262\202C \302P\262\262\207" [plist-get :parent "" item :bullet section ".PP\n" footnote-definition] 9 (#$ . 17904)]) | |
| 151 | #@167 Transcode a PLAIN-LIST element from Org to Man. | |
| 152 | CONTENTS is the contents of the list. INFO is a plist holding | |
| 153 | contextual information. | |
| 154 | ||
| 155 | (fn PLAIN-LIST CONTENTS INFO) | |
| 156 | (defalias 'org-man-plain-list #[771 "\207" [] 4 (#$ . 18376)]) | |
| 157 | #@140 Transcode a TEXT string from Org to Man. | |
| 158 | TEXT is the string to transcode. INFO is a plist holding | |
| 159 | contextual information. | |
| 160 | ||
| 161 | (fn TEXT INFO) | |
| 162 | (defalias 'org-man-plain-text #[514 "\300\301\302\303\304\305&\262\306\307\"\203 \310\311$\262\306\312\"\203* \300\313\314#\262\211\207" [replace-regexp-in-string "\\(?:[^\\]\\|^\\)\\(\\\\\\)\\(?:[^%$#&{}~^_\\]\\|$\\)" "$\\" nil t 1 plist-get :with-smart-quotes org-export-activate-smart-quotes :utf-8 :preserve-breaks "\\(\\\\\\\\\\)?[ ]*\n" ".br\n"] 10 (#$ . 18613)]) | |
| 163 | #@182 Transcode a PROPERTY-DRAWER element from Org to Man. | |
| 164 | CONTENTS holds the contents of the drawer. INFO is a plist | |
| 165 | holding contextual information. | |
| 166 | ||
| 167 | (fn PROPERTY-DRAWER CONTENTS INFO) | |
| 168 | (defalias 'org-man-property-drawer #[771 "\300!\205\n \301\302\"\207" [org-string-nw-p format ".RS\n.nf\n%s\n.fi\n.RE"] 6 (#$ . 19144)]) | |
| 169 | #@173 Transcode a QUOTE-BLOCK element from Org to Man. | |
| 170 | CONTENTS holds the contents of the block. INFO is a plist | |
| 171 | holding contextual information. | |
| 172 | ||
| 173 | (fn QUOTE-BLOCK CONTENTS INFO) | |
| 174 | (defalias 'org-man-quote-block #[771 "\300\301\302\"\"\207" [org-man--wrap-label format ".RS\n%s\n.RE"] 8 (#$ . 19471)]) | |
| 175 | #@160 Transcode a RADIO-TARGET object from Org to Man. | |
| 176 | TEXT is the text of the target. INFO is a plist holding | |
| 177 | contextual information. | |
| 178 | ||
| 179 | (fn RADIO-TARGET TEXT INFO) | |
| 180 | (defalias 'org-man-radio-target #[771 "\207" [] 4 (#$ . 19773)]) | |
| 181 | #@167 Transcode a SECTION element from Org to Man. | |
| 182 | CONTENTS holds the contents of the section. INFO is a plist | |
| 183 | holding contextual information. | |
| 184 | ||
| 185 | (fn SECTION CONTENTS INFO) | |
| 186 | (defalias 'org-man-section #[771 "\207" [] 4 (#$ . 20005)]) | |
| 187 | #@177 Transcode a SPECIAL-BLOCK element from Org to Man. | |
| 188 | CONTENTS holds the contents of the block. INFO is a plist | |
| 189 | holding contextual information. | |
| 190 | ||
| 191 | (fn SPECIAL-BLOCK CONTENTS INFO) | |
| 192 | (defalias 'org-man-special-block #[771 "\300\301\302\"\"\207" [org-man--wrap-label format "%s\n"] 8 (#$ . 20239)]) | |
| 193 | #@168 Transcode a SRC-BLOCK element from Org to Man. | |
| 194 | CONTENTS holds the contents of the item. INFO is a plist holding | |
| 195 | contextual information. | |
| 196 | ||
| 197 | (fn SRC-BLOCK CONTENTS INFO) | |
| 198 | (defalias 'org-man-src-block #[771 "\301\302\"\204 \303\304\305\"\"\207\306\307\310\"!\306\307\311\"!\312\211;\203, \313\314#\2022 \301A@\"\266\202\315\211;\203D \313\314#\202J \301A@\"\266\202\316!\301\317\"\236A@\320\321\322\323 \324\n\260\203\255 \325\326\327\330!!\331\314\332\333\334!\335\"\336$\216r\211q\210c\210)r\211q\210\337\340\211\340\314%\210*\266\341!\210\342!\262\343!\210\343!\210\211\262\202\261 \303\344\"\207" [temporary-file-directory plist-get :man-source-highlight format ".RS\n.nf\n\\fC%s\\fP\n.fi\n.RE\n\n" org-export-format-code-default make-temp-name expand-file-name "srchilite" "reshilite" :value get-text-property 0 :language intern :man-source-highlight-langs "source-highlight" " -s " " -f groff_man " " -i " " -o " "" get-buffer-create generate-new-buffer-name " *temp file*" make-byte-code "\301\300!\205 \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 write-region nil shell-command org-file-contents delete-file ".RS\n.nf\n\\fC\\m[black]%s\\m[]\\fP\n.fi\n.RE"] 19 (#$ . 20539)]) | |
| 199 | #@159 Transcode a STATISTICS-COOKIE object from Org to Man. | |
| 200 | CONTENTS is nil. INFO is a plist holding contextual information. | |
| 201 | ||
| 202 | (fn STATISTICS-COOKIE CONTENTS INFO) | |
| 203 | (defalias 'org-man-statistics-cookie #[771 "\300\211;\203 \301\302#\202 \303A@\"\207" [:value get-text-property 0 plist-get] 9 (#$ . 21782)]) | |
| 204 | #@176 Transcode STRIKE-THROUGH from Org to Man. | |
| 205 | CONTENTS is the text with strike-through markup. INFO is a plist | |
| 206 | holding contextual information. | |
| 207 | ||
| 208 | (fn STRIKE-THROUGH CONTENTS INFO) | |
| 209 | (defalias 'org-man-strike-through #[771 "\300\301\"\207" [format "\\fI%s\\fP"] 6 (#$ . 22096)]) | |
| 210 | #@166 Transcode a SUBSCRIPT object from Org to Man. | |
| 211 | CONTENTS is the contents of the object. INFO is a plist holding | |
| 212 | contextual information. | |
| 213 | ||
| 214 | (fn SUBSCRIPT CONTENTS INFO) | |
| 215 | (defalias 'org-man-subscript #[771 "\300\301\"\207" [format "\\d\\s-2%s\\s+2\\u"] 6 (#$ . 22375)]) | |
| 216 | #@170 Transcode a SUPERSCRIPT object from Org to Man. | |
| 217 | CONTENTS is the contents of the object. INFO is a plist holding | |
| 218 | contextual information. | |
| 219 | ||
| 220 | (fn SUPERSCRIPT CONTENTS INFO) | |
| 221 | (defalias 'org-man-superscript #[771 "\300\301\"\207" [format "\\u\\s-2%s\\s+2\\d"] 6 (#$ . 22647)]) | |
| 222 | #@158 Transcode a TABLE element from Org to Man. | |
| 223 | CONTENTS is the contents of the table. INFO is a plist holding | |
| 224 | contextual information. | |
| 225 | ||
| 226 | (fn TABLE CONTENTS INFO) | |
| 227 | (defalias 'org-man-table #[771 "\300\301\"\2045 \302\303\304\305\306\307\211;\203 \310\311#\202\" \300A@\"\266\202\312#\"!\211\2050 \300\313\"\262\203n \303\314\315\316\317\211:\204E \317\202R \211@9\203Q \211AA\202R \211\262BB!\317\320\203a \321\202b \322\323\320\324\323##\266\202\"\207\325#\207" [plist-get :man-tables-verbatim read format "(%s)" mapconcat identity :attr_man get-text-property 0 " " :verbatim ".nf\n\\fC%s\\fP\n.fi" org-element-interpret-data table nil replace-regexp-in-string "\\`\\([ ]*\n\\)+" "\\`[ \n ]+" "" "[ \n ]+\\'" org-man-table--org-table] 14 (#$ . 22925)]) | |
| 228 | #@151 Return an appropriate Man alignment string. | |
| 229 | TABLE is the considered table. INFO is a plist used as | |
| 230 | a communication channel. | |
| 231 | ||
| 232 | (fn DIVIDER TABLE INFO) | |
| 233 | (defalias 'org-man-table--align-string #[771 "\300C\301\211\302\303\304%\305\306\307\310\311\312 \n\n#\313\"\314\315%$\210\316\317\320\242!\"\207" [nil org-element-map table-row #[257 "\300\211;\203 \301\302#\202 \303A@\"\266\202\304=\205 \211\207" [:type get-text-property 0 plist-get standard] 7 "\n\n(fn ROW)"] first-match table-cell make-byte-code 257 "\303\301\"\304\301\"\211\205 \211\305\245\203$ \306\307\310W\203 \310\202 \"\202% \311\312>\2037 \302\242\2047 \302\313\302\242B\240\210\302\314\301\"\211\315\267\202O \316\202P \317\202P \320\202P \321\262\300Q\302\242B\240\210\322>\205f \302\313\302\242B\240\207" vconcat vector [org-export-table-cell-borders org-export-table-cell-width 5 format "w(%dc)" 1 "" left "|" org-export-table-cell-alignment #s(hash-table size 3 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (left 67 right 71 center 75)) "l" "r" "c" nil right] 9 "\n\n(fn CELL)" apply concat reverse] 15 (#$ . 23701)]) | |
| 234 | #@275 Return appropriate Man code for an Org table. | |
| 235 | ||
| 236 | TABLE is the table type element to transcode. CONTENTS is its | |
| 237 | contents, as a string. INFO is a plist used as a communication | |
| 238 | channel. | |
| 239 | ||
| 240 | This function assumes TABLE has `org' as its `:type' attribute. | |
| 241 | ||
| 242 | (fn TABLE CONTENTS INFO) | |
| 243 | (defalias 'org-man-table--org-table #[771 "\300\301\"\302\303\"?\205 \304\"\302\305\"\203 \306\202 \307\310#\311\312\"\313\314\302\315\"\2053 \316\302\317\"\211\320\230\203B \321\202Y \211\322\230\203L \314\202Y \302\n\323\"\203X \321\202Y \324\262\302 \325\"\206d \326E\"\302\327\"\302\330\"\331\332@\206x \324\"\314A\203\227 A\211\203\226 \211@\331\333\"P\262A\266\202\202\201 \210\211\262\206\236 \324P\205\250 \311@\334\"\205\205\335\336\331\337\324 \203\323 G\340\211W\203\321 \211\341Q\262\210\211T\262\202\273 \266\211\312P\262\f\203\346 \211 P\262\202G\340\211W\203 \211\342Q\262\210\211T\262\202\352 \266\211\262\"\331\343\324\211\311\312\"\211\211\203t\211@\324\262 \203g\211\344\230\203-\331\345\"\262\202_\311\334\"\211\211\203]\211@\211\346!@=\203M\331\347\"P\262\202V\331\350\"P\262A\266\202\2022\266P\262\202m\312Q\262A\266\202\202\210\266\203\" \205\203\331\351\"\260\207" [org-export-read-attribute :attr_man plist-get :disable-caption org-man--caption/label-string :divider "|" " " org-man-table--align-string org-split-string "\n" delq nil :expand "expand" :placement center "center" left :man-tables-centered "" :boxtype "box" :title-line :long-cells format "%s" ",%s" " " ".TS\n " ";\n" "%s.\n" 0 "cb" "c" "%s.TE\n" "_" "%s\n" last "T{\n%s\nT} \n" "T{\n%s\nT} " ".TB \"%s\""] 31 (#$ . 24845)]) | |
| 244 | #@160 Transcode a TABLE-CELL element from Org to Man | |
| 245 | CONTENTS is the cell contents. INFO is a plist used as | |
| 246 | a communication channel. | |
| 247 | ||
| 248 | (fn TABLE-CELL CONTENTS INFO) | |
| 249 | (defalias 'org-man-table-cell #[771 "\301\302\"\203# \211\203# \303\"\203# \304\305\306\"\305\307\"#\202$ \262\310\"\205. \311P\207" [orgtbl-exp-regexp plist-get :man-table-scientific-notation string-match format match-string 1 2 org-export-get-next-element " "] 10 (#$ . 26549)]) | |
| 250 | #@165 Transcode a TABLE-ROW element from Org to Man. | |
| 251 | CONTENTS is the contents of the row. INFO is a plist used as | |
| 252 | a communication channel. | |
| 253 | ||
| 254 | (fn TABLE-ROW CONTENTS INFO) | |
| 255 | (defalias 'org-man-table-row #[771 "\300\211;\203 \301\302#\202 \303A@\"\266\202\304=\205a \305\211:\204' \306\2024 \211@9\2033 \211AA\2024 \211\262@\"\307>\205F \310>\205F \311\312>\203W \313>\203W \314\202^ \313>\205^ \314Q\262\207" [:type get-text-property 0 plist-get standard org-export-table-cell-borders nil top above "_\n" bottom below "\n_"] 9 (#$ . 27009)]) | |
| 256 | #@137 Transcode a TARGET object from Org to Man. | |
| 257 | CONTENTS is nil. INFO is a plist holding contextual | |
| 258 | information. | |
| 259 | ||
| 260 | (fn TARGET CONTENTS INFO) | |
| 261 | (defalias 'org-man-target #[771 "\300\301\302\"\"\207" [format "\\fI%s\\fP" org-export-get-reference] 8 (#$ . 27565)]) | |
| 262 | #@143 Transcode a TIMESTAMP object from Org to Man. | |
| 263 | CONTENTS is nil. INFO is a plist holding contextual information. | |
| 264 | ||
| 265 | (fn TIMESTAMP CONTENTS INFO) | |
| 266 | (defalias 'org-man-timestamp #[771 "\300\207" [""] 4 (#$ . 27829)]) | |
| 267 | #@161 Transcode UNDERLINE from Org to Man. | |
| 268 | CONTENTS is the text with underline markup. INFO is a plist | |
| 269 | holding contextual information. | |
| 270 | ||
| 271 | (fn UNDERLINE CONTENTS INFO) | |
| 272 | (defalias 'org-man-underline #[771 "\300\301\"\207" [format "\\fI%s\\fP"] 6 (#$ . 28046)]) | |
| 273 | #@75 Transcode a VERBATIM object from Org to Man. | |
| 274 | ||
| 275 | (fn VERBATIM CONTENTS INFO) | |
| 276 | (defalias 'org-man-verbatim #[771 "\300\301\302\303\211;\203 \304\305#\202 \306A@\"\266\202!\"\207" [format "\\fI%s\\fP" org-man--protect-text :value get-text-property 0 plist-get] 12 (#$ . 28304)]) | |
| 277 | #@164 Transcode a VERSE-BLOCK element from Org to Man. | |
| 278 | CONTENTS is verse block contents. INFO is a plist holding | |
| 279 | contextual information. | |
| 280 | ||
| 281 | (fn VERSE-BLOCK CONTENTS INFO) | |
| 282 | (defalias 'org-man-verse-block #[771 "\300\301\"\207" [format ".RS\n.ft I\n%s\n.ft\n.RE"] 6 (#$ . 28592)]) | |
| 283 | #@871 Export current buffer to a Man file. | |
| 284 | ||
| 285 | If narrowing is active in the current buffer, only export its | |
| 286 | narrowed part. | |
| 287 | ||
| 288 | If a region is active, export that region. | |
| 289 | ||
| 290 | A non-nil optional argument ASYNC means the process should happen | |
| 291 | asynchronously. The resulting file should be accessible through | |
| 292 | the `org-export-stack' interface. | |
| 293 | ||
| 294 | When optional argument SUBTREEP is non-nil, export the sub-tree | |
| 295 | at point, extracting information from the headline properties | |
| 296 | first. | |
| 297 | ||
| 298 | When optional argument VISIBLE-ONLY is non-nil, don't export | |
| 299 | contents of hidden elements. | |
| 300 | ||
| 301 | When optional argument BODY-ONLY is non-nil, only the body | |
| 302 | without any markers. | |
| 303 | ||
| 304 | EXT-PLIST, when provided, is a property list with external | |
| 305 | parameters overriding Org default settings, but still inferior to | |
| 306 | file-local settings. | |
| 307 | ||
| 308 | Return output file's name. | |
| 309 | ||
| 310 | (fn &optional ASYNC SUBTREEP VISIBLE-ONLY BODY-ONLY EXT-PLIST) | |
| 311 | (defalias 'org-man-export-to-man #[1280 "\300\301\"\302\303&\207" [org-export-output-file-name ".man" org-export-to-file man] 14 (#$ . 28870) nil]) | |
| 312 | #@884 Export current buffer to Groff then process through to PDF. | |
| 313 | ||
| 314 | If narrowing is active in the current buffer, only export its | |
| 315 | narrowed part. | |
| 316 | ||
| 317 | If a region is active, export that region. | |
| 318 | ||
| 319 | A non-nil optional argument ASYNC means the process should happen | |
| 320 | asynchronously. The resulting file should be accessible through | |
| 321 | the `org-export-stack' interface. | |
| 322 | ||
| 323 | When optional argument SUBTREEP is non-nil, export the sub-tree | |
| 324 | at point, extracting information from the headline properties | |
| 325 | first. | |
| 326 | ||
| 327 | When optional argument VISIBLE-ONLY is non-nil, don't export | |
| 328 | contents of hidden elements. | |
| 329 | ||
| 330 | When optional argument BODY-ONLY is non-nil, only write between | |
| 331 | markers. | |
| 332 | ||
| 333 | EXT-PLIST, when provided, is a property list with external | |
| 334 | parameters overriding Org default settings, but still inferior to | |
| 335 | file-local settings. | |
| 336 | ||
| 337 | Return PDF file's name. | |
| 338 | ||
| 339 | (fn &optional ASYNC SUBTREEP VISIBLE-ONLY BODY-ONLY EXT-PLIST) | |
| 340 | (defalias 'org-man-export-to-pdf #[1280 "\300\301\"\302\303\304&\207" [org-export-output-file-name ".man" org-export-to-file man #[257 "\300!\207" [org-latex-compile] 3 "\n\n(fn FILE)"]] 15 (#$ . 29908) nil]) | |
| 341 | #@218 Compile a Groff file. | |
| 342 | ||
| 343 | FILE is the name of the file being compiled. Processing is done | |
| 344 | through the command specified in `org-man-pdf-process'. | |
| 345 | ||
| 346 | Return PDF file name or an error if it couldn't be produced. | |
| 347 | ||
| 348 | (fn FILE) | |
| 349 | (defalias 'org-man-compile #[257 "\303\304\"\210\305\306# \2030 \307!\n\211\203. \211@\310Q\311!\203& \312!\210\210A\266\202\202 \266\303\313!\210\211\207" [org-man-pdf-process org-man-remove-logfiles org-man-logfiles-extensions message "Processing Groff file %s..." org-compile-file "pdf" file-name-sans-extension "." file-exists-p delete-file "Process completed."] 8 (#$ . 31021)]) | |
| 350 | (provide 'ox-man) | |
