ikan Uploader :
Directory : /usr/share/emacs/25.2/lisp/org/
Upload File : |
| Current File : //usr/share/emacs/25.2/lisp/org/ox-man.elc |
;ELC
;;; Compiled
;;; in Emacs version 25.2.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\312&\210\313\314\315\316\317\320\321\322&\210\323\324\325\326\321\314\327\330\331\332\333\334& \210\323\335\315\336\321\314\327\330\331\337\333\334& \210\323\340\341\342\321\314\327\330\331\343\333\344& \210\323\345\315\346\321\314\327\330\331\347\333\334& \210\323\350\351\352\321\314\327\330\331\353\333\354& \207" [require ox org-export-define-backend man ((babel-call . org-man-babel-call) (bold . org-man-bold) (center-block . org-man-center-block) (clock . org-man-clock) (code . org-man-code) (comment lambda (&rest args) #1="") (comment-block lambda (&rest args) #1#) (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) (paragraph . org-man-paragraph) (plain-list . org-man-plain-list) (plain-text . org-man-plain-text) (planning . org-man-planning) (property-drawer lambda (&rest args) #1#) (quote-block . org-man-quote-block) (quote-section . org-man-quote-section) (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)) :export-block "MAN" :menu-entry (109 "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)) 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 t "When non-nil, tables are exported in a center environment." :version "24.4" :package-version (Org . "8.0") :type boolean org-man-tables-verbatim "When non-nil, tables are exported verbatim." (Org . "8.0") org-man-table-scientific-notation "%sE%s" "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 "Use GNU source highlight to embellish source blocks " (Org . "8.0") org-man-source-highlight-langs '((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")) "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")))] 12)
#@309 Alist mapping languages to language-specific Man environments.
It is used during export of src blocks by the listings and
man packages. For example,
(setq org-man-custom-lang-environments
\='((python "pythoncode")))
would have the effect that if org encounters begin_src python
during man export.
(defvar org-man-custom-lang-environments nil (#$ . 5015))
(byte-code "\300\301\302\303\304\305\304\306\307\310\311\312\313\314&
\210\300\315\316\317\304\306\307\310\311\320\313\321& \210\300\322\323\324\304\306\307\310\311\325\313\326& \207" [custom-declare-variable org-man-pdf-process '("tbl %f | eqn | groff -man | ps2pdf - > %b.pdf" "tbl %f | eqn | groff -man | ps2pdf - > %b.pdf" "tbl %f | eqn | groff -man | ps2pdf - > %b.pdf") "Commands to process a Man file to a PDF file.\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\nfull file name, %b by the file base name (i.e. without directory\nand extension parts) and %o by the base directory of the file.\n\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." :group org-export-pdf org-export-man :version "24.4" :package-version (Org . "8.0") :type (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 '("log" "out" "toc") "The list of file extensions to consider as Man logfiles." (Org . "8.0") (repeat (string :tag "Extension")) org-man-remove-logfiles t "Non-nil means remove the logfiles produced by PDF production.\nThese are the .aux, .log, .out, and .toc files." (Org . "8.0") boolean] 14)
#@202 Return caption and label Man string for ELEMENT.
INFO is a plist holding contextual information. If there's no
caption nor label, return the empty string.
For non-floats, see `org-man--wrap-label'.
(defalias 'org-man--caption/label-string #[(element info) "\306;\203 \307\310 #\202 \311A@ \"*\312!\312\313\" \204. \f\204. \314\202R \2049 \315\316\f\"\202R \n\203K \315\317\320\n
\"\320
\"#\202R \315\321\320
\"\"+\207" [element property short main label info :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"] 6 (#$ . 7076)])
#@147 Wrap label associated to ELEMENT around OUTPUT, if appropriate.
This function shouldn't be used for floats. See
`org-man--caption/label-string'.
(defalias 'org-man--wrap-label #[(element output) "\304;\203 \305\306 #\202 \307A@ \"* \203- \n\203- \310\230\204- \n\310\230\2031 \2027 \311\312\n\" P)\207" [element property label output :name get-text-property 0 plist-get "" format "%s\n.br\n"] 4 (#$ . 7722)])
#@140 Return complete document string after Man conversion.
CONTENTS is the transcoded contents string. INFO is a plist
holding export options.
(defalias 'org-man-template #[(contents info) "\305\306\307\"\"\310\311\312\313\314\306\315\"C\316#\"!\306\n\317\" \203- ;\203- \311\320 #\202L \321\230\203@ ;\203@ \311\320\316 #\202L \203K \311\322 \"\202L \323\fP+\207" [info title attr section-item contents org-export-data plist-get :title read format "(%s)" mapconcat identity :man-class-options " " :section-id ".TH \"%s\" \"%s\" \n" "" ".TH \"%s\" \"1\" \n" ".TH \" \" \"1\" "] 8 (#$ . 8150)])
#@121 Transcode BOLD from Org to Man.
CONTENTS is the text with bold markup. INFO is a plist holding
contextual information.
(defalias 'org-man-bold #[(bold contents info) "\301\302\"\207" [contents format "\\fB%s\\fP"] 3 (#$ . 8758)])
#@149 Transcode a CENTER-BLOCK element from Org to Man.
CONTENTS holds the contents of the center block. INFO is a plist
holding contextual information.
(defalias 'org-man-center-block #[(center-block contents info) "\302\303\304\305 \306\"GS #\"\207" [center-block contents org-man--wrap-label format ".ce %d\n.nf\n%s\n.fi" split-string "\n"] 7 (#$ . 8997)])
#@110 Transcode a CLOCK element from Org to Man.
CONTENTS is nil. INFO is a plist holding contextual
information.
(defalias 'org-man-clock #[(clock contents info) "\300\207" [""] 1 (#$ . 9360)])
#@109 Transcode a CODE object from Org to Man.
CONTENTS is nil. INFO is a plist used as a communication
channel.
(defalias 'org-man-code #[(code contents info) "\301\302\"\207" [code format "\\fC%s\\fP"] 3 (#$ . 9557)])
#@181 Transcode a DRAWER element from Org to Man.
DRAWER holds the drawer information
CONTENTS holds the contents of the block.
INFO is a plist holding contextual information.
(defalias 'org-man-drawer #[(drawer contents info) "\207" [contents] 1 (#$ . 9780)])
#@167 Transcode a DYNAMIC-BLOCK element from Org to Man.
CONTENTS holds the contents of the block. INFO is a plist
holding contextual information. See `org-export-data'.
(defalias 'org-man-dynamic-block #[(dynamic-block contents info) "\302 \"\207" [dynamic-block contents org-man--wrap-label] 3 (#$ . 10053)])
#@130 Transcode an ENTITY object from Org to Man.
CONTENTS are the definition itself. INFO is a plist holding
contextual information.
(defalias 'org-man-entity #[(entity contents info) "\303 ;\203 \304\305\n #\202 \306 A@\n\"*\207" [entity element property :utf-8 get-text-property 0 plist-get] 4 (#$ . 10368)])
#@119 Transcode an EXAMPLE-BLOCK element from Org to Man.
CONTENTS is nil. INFO is a plist holding contextual
information.
(defalias 'org-man-example-block #[(example-block contents info) "\302\303\304\305 \"\"\"\207" [example-block info org-man--wrap-label format ".RS\n.nf\n%s\n.fi\n.RE" org-export-format-code-default] 7 (#$ . 10687)])
#@117 Transcode a EXPORT-BLOCK element from Org to Man.
CONTENTS is nil. INFO is a plist holding contextual information.
(defalias 'org-man-export-block #[(export-block contents info) "\303 ;\203 \304\305\n #\202 \306 A@\n\"*\307\230\2057 \310\311 ;\203/ \304\305\n #\2025 \306 A@\n\"*!\207" [export-block element property :type get-text-property 0 plist-get "MAN" org-remove-indentation :value] 5 (#$ . 11030)])
#@118 Transcode a EXPORT-SNIPPET object from Org to Man.
CONTENTS is nil. INFO is a plist holding contextual information.
(defalias 'org-man-export-snippet #[(export-snippet contents info) "\303!\304=\205 \305 ;\203 \306\307\n #\202 \310 A@\n\"*\207" [export-snippet element property org-export-snippet-backend man :value get-text-property 0 plist-get] 4 (#$ . 11453)])
#@116 Transcode a FIXED-WIDTH element from Org to Man.
CONTENTS is nil. INFO is a plist holding contextual information.
(defalias 'org-man-fixed-width #[(fixed-width contents info) "\303\304\305\306\307 ;\203 \310\311\n #\202 \312 A@\n\"*!\"\"\207" [fixed-width element property org-man--wrap-label format "\\fC\n%s\\fP" org-remove-indentation :value get-text-property 0 plist-get] 9 (#$ . 11832)])
#@141 Transcode a HEADLINE element from Org to Man.
CONTENTS holds the contents of the headline. INFO is a plist
holding contextual information.
(defalias 'org-man-headline #[(headline contents info) "\306 \"\307 \"\310\n\311\"\203 \312\202, \310\n\313\"\203 \314\202, \310\n\315\"\203+ \314\202, \316 \317\320 !
;\203A \321\322!
#\202H \323
A@!\"* \" \"\324 !
;\203` \321\322!
#\202g \323
A@!\"*\203o \316\202\255 \f\203z \325 \"\203\246 \326 \"\205\205 \327\330\331\"\332\"\333#\334\260 $\335 \"\204\234 $\202\242 \336\337\340$#)\202\255 \327\f\"##,\207" [headline info level numberedp section-fmt element org-export-get-relative-level org-export-numbered-headline-p eql 1 ".SH \"%s\"\n%s" 2 ".SS \"%s\"\n%s" 3 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]*\\'" "" property text contents low-level-body] 6 (#$ . 12239)])
#@146 Transcode an INLINE-SRC-BLOCK element from Org to Man.
CONTENTS holds the contents of the item. INFO is a plist holding
contextual information.
(defalias 'org-man-inline-src-block #[(inline-src-block contents info) "\306 ;\203 \307\310\n #\202 \311 A@\n\"*\f\203\271
%\312\313\314%\"! &\312\313\315%\"! '\316 ;\203C \307\310\n #\202I \311 A@\n\"* (\317(!)\236A@ *\313\320!\321*\322\323&\324'\260 +*\203\260 \325 ,&\326\327\330!! - .\331\216r-q\210 c\210)r-q\210\332\333\211.\333\310%\210,\334+!\210\335'!,\336&!\210\336'!\210,)\202\264 \337\340 \".\202\301 \341\342\343 \343\344\260)\207" [inline-src-block element property code org-man-source-highlight temporary-file-directory :value get-text-property 0 plist-get make-temp-name expand-file-name "srchilite" "reshilite" :language intern "source-highlight" " -s " " -f groff_man" " -i " " -o " "" get-buffer-create generate-new-buffer-name " *temp file*" #[nil "\301!\205 \302!\207" [#1=#:temp-buffer 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" tmpdir in-file out-file org-lang org-man-source-highlight-langs lst-lang cmd code-block #1# #2=#:temp-file] 8 (#$ . 13279)])
#@125 Transcode ITALIC from Org to Man.
CONTENTS is the text with italic markup. INFO is a plist holding
contextual information.
(defalias 'org-man-italic #[(italic contents info) "\301\302\"\207" [contents format "\\fI%s\\fP"] 3 (#$ . 14589)])
#@134 Transcode an ITEM element from Org to Man.
CONTENTS holds the contents of the item. INFO is a plist holding
contextual information.
(defalias 'org-man-item #[(item contents info) "\306 ;\203 \307\310\n #\202 \311 A@\n\"*\312\313 ;\203+ \307\310\n #\2021 \311 A@\n\"* ;\203A \307\310\n #\202G \311 A@\n\"* \314 ;\203Z \307\310\n #\202` \311 A@\n\"* \315
\316\"\203m \317\202\200 \315
\320\"\203x \321\202\200 \315
\322\"\205\200 \323) %\324 ;\203\224 \307\310\n #\202\232 \311 A@\n\"*\211 &\205\255 \325\326%\327&'\"P\")\211 &\204\364 %\204\364 \330 !\211\331\230\203\307 \332\202\341 \333\230\203\321 \334\202\341 \f\335=\203\340 \325\336\330 !\"\202\341 \337 (\340(\341\330)\206\356 \342!R*\202\343&\206\376 \342%P\344\330)\206\342!R,\207" [item element property bullet type #1=#:temp :bullet get-text-property 0 plist-get :type :parent :checkbox eql on "\\o'\\(sq\\(mu'" off "\\(sq " trans "\\o'\\(sq\\(mi'" :tag format "\\fB%s\\fP" org-export-data org-trim "-" "\\(em" "*" "\\(bu" ordered "%s " "\\(dg" ".IP " " 4\n" " " ".TP\n" "\n" checkbox tag info marker contents] 7 (#$ . 14837)])
#@112 Transcode a KEYWORD element from Org to Man.
CONTENTS is nil. INFO is a plist holding contextual information.
(defalias 'org-man-keyword #[(keyword contents info) "\305 ;\203 \306\307\n #\202 \310 A@\n\"*\311 ;\203) \306\307\n #\202/ \310 A@\n\"*\211 \312\230\203< \202M \f\313\230\203F \314\202M \f\315\230\205M \314*\207" [keyword element property value key :key get-text-property 0 plist-get :value "MAN" "INDEX" nil "TOC"] 6 (#$ . 15966)])
#@114 Transcode a LINE-BREAK object from Org to Man.
CONTENTS is nil. INFO is a plist holding contextual information.
(defalias 'org-man-line-break #[(line-break contents info) "\300\207" [".br\n"] 1 (#$ . 16428)])
#@178 Transcode a LINK object from Org to Man.
DESC is the description part of the link, or the empty string.
INFO is a plist holding contextual information. See
`org-export-data'.
(defalias 'org-man-link #[(link desc info) "\306 ;\203 \307\310\n #\202 \311 A@\n\"*\312 ;\203* \307\310\n #\2020 \311 A@\n\"*
\313\230?\205:
\314\235\203H \315\fQ\202[ \316\230\203Z \317\f!\203Z \320\fP\202[ \f \321 \203r
\203r \322\323
#\202\203 \203 \322\324\"\202\203 \322\324
\"-\207" [link element property type raw-path desc :type get-text-property 0 plist-get :path "" ("http" "https" "ftp" "mailto") ":" "file" file-name-absolute-p "file:" nil format "%s \\fBat\\fP \\fI%s\\fP" "\\fI%s\\fP" path protocol] 4 (#$ . 16645)])
#@156 Transcode a PARAGRAPH element from Org to Man.
CONTENTS is the contents of the paragraph, as a string. INFO is
the plist used as a communication channel.
(defalias 'org-man-paragraph #[(paragraph contents info) "\305A@\306\"\211\205D @\307\211\310=\203& \305 A@\311\"\203& \307\fP\202B \312=\2033 \313\fP\202B \314=\203> \f\202B \307\fP\n*)\207" [paragraph parent fixed-paragraph parent-type contents plist-get :parent "" item :bullet section ".PP\n" footnote-definition] 4 (#$ . 17388)])
#@136 Transcode a PLAIN-LIST element from Org to Man.
CONTENTS is the contents of the list. INFO is a plist holding
contextual information.
(defalias 'org-man-plain-list #[(plain-list contents info) "\207" [contents] 1 (#$ . 17896)])
#@124 Transcode a TEXT string from Org to Man.
TEXT is the string to transcode. INFO is a plist holding
contextual information.
(defalias 'org-man-plain-text #[(text info) "\303\304\305 \306\307\310&\311\n\312\"\203 \313 \314\n$\311\n\315\"\203' \303\316\317 # )\207" [text output info replace-regexp-in-string "\\(?:[^\\]\\|^\\)\\(\\\\\\)\\(?:[^%$#&{}~^_\\]\\|$\\)" "$\\" nil t 1 plist-get :with-smart-quotes org-export-activate-smart-quotes :utf-8 :preserve-breaks "\\(\\\\\\\\\\)?[ ]*\n" ".br\n"] 7 (#$ . 18133)])
#@141 Transcode a QUOTE-BLOCK element from Org to Man.
CONTENTS holds the contents of the block. INFO is a plist
holding contextual information.
(defalias 'org-man-quote-block #[(quote-block contents info) "\302\303\304 \"\"\207" [quote-block contents org-man--wrap-label format ".RS\n%s\n.RE"] 5 (#$ . 18661)])
#@118 Transcode a QUOTE-SECTION element from Org to Man.
CONTENTS is nil. INFO is a plist holding contextual information.
(defalias 'org-man-quote-section #[(quote-section contents info) "\304\305 ;\203 \306\307\n #\202 \310 A@\n\"*!\211\205# \311\312 \")\207" [quote-section element property value org-remove-indentation :value get-text-property 0 plist-get format ".RS\\fI%s\\fP\n.RE\n"] 6 (#$ . 18976)])
#@131 Transcode a RADIO-TARGET object from Org to Man.
TEXT is the text of the target. INFO is a plist holding
contextual information.
(defalias 'org-man-radio-target #[(radio-target text info) "\207" [text] 1 (#$ . 19391)])
#@139 Transcode a SECTION element from Org to Man.
CONTENTS holds the contents of the section. INFO is a plist
holding contextual information.
(defalias 'org-man-section #[(section contents info) "\207" [contents] 1 (#$ . 19619)])
#@143 Transcode a SPECIAL-BLOCK element from Org to Man.
CONTENTS holds the contents of the block. INFO is a plist
holding contextual information.
(defalias 'org-man-special-block #[(special-block contents info) "\305 ;\203 \306\307\n #\202 \310 A@\n\"*\227\311\312\313\f\"\")\207" [special-block element property type contents :type get-text-property 0 plist-get org-man--wrap-label format "%s\n"] 5 (#$ . 19853)])
#@138 Transcode a SRC-BLOCK element from Org to Man.
CONTENTS holds the contents of the item. INFO is a plist holding
contextual information.
(defalias 'org-man-src-block #[(src-block contents info) "\306 ;\203 \307\310\n #\202 \311 A@\n\"*\312 ;\203* \307\310\n #\2020 \311 A@\n\"* \205= \313 !
\236A@ )\314 ;\203P \307\310\n #\202V \311 A@\n\"* *\315*\316\"\203i \317+\"\202r \315*\320\"\205r \310) ,\321 ;\203\206 \307\310\n #\202\214 \311 A@\n\"* -.\204\237 \322\323\324+\"\"\202<.\205</ 0\325\326\3270\"! 1\325\326\3300\"! 2\306 ;\203\313 \307\310\n #\202\321 \311 A@\n\"* 3\3133!4\236A@ 5\331\3325\333\3341\3352\260 65\2036\336 71\337\340\341!! 8 9\342\216r8q\210\fc\210)r8q\210\343\344\2119\344\310%\210,\3456!\210\3462!7\3471!\210\3472!\2107)\202:\322\350\f\".-\207" [src-block element property lang code org-man-custom-lang-environments :language get-text-property 0 plist-get :value intern :number-lines eql continued org-export-get-loc new :retain-labels 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" "source-highlight" " -s " " -f groff_man " " -i " " -o " "" get-buffer-create generate-new-buffer-name " *temp file*" #[nil "\301!\205 \302!\207" [#1=#:temp-buffer 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" custom-env #2=#:temp info num-start retain-labels org-man-source-highlight temporary-file-directory tmpdir in-file out-file org-lang org-man-source-highlight-langs lst-lang cmd code-block #1# #3=#:temp-file] 8 (#$ . 20278)])
#@121 Transcode a STATISTICS-COOKIE object from Org to Man.
CONTENTS is nil. INFO is a plist holding contextual information.
(defalias 'org-man-statistics-cookie #[(statistics-cookie contents info) "\303 ;\203 \304\305\n #\202 \306 A@\n\"*\207" [statistics-cookie element property :value get-text-property 0 plist-get] 4 (#$ . 21958)])
#@141 Transcode STRIKE-THROUGH from Org to Man.
CONTENTS is the text with strike-through markup. INFO is a plist
holding contextual information.
(defalias 'org-man-strike-through #[(strike-through contents info) "\301\302\"\207" [contents format "\\fI%s\\fP"] 3 (#$ . 22301)])
#@136 Transcode a SUBSCRIPT object from Org to Man.
CONTENTS is the contents of the object. INFO is a plist holding
contextual information.
(defalias 'org-man-subscript #[(subscript contents info) "\301\302\"\207" [contents format "\\d\\s-2%s\\s+2\\u"] 3 (#$ . 22581)])
#@138 Transcode a SUPERSCRIPT object from Org to Man.
CONTENTS is the contents of the object. INFO is a plist holding
contextual information.
(defalias 'org-man-superscript #[(superscript contents info) "\301\302\"\207" [contents format "\\u\\s-2%s\\s+2\\d"] 3 (#$ . 22854)])
#@132 Transcode a TABLE element from Org to Man.
CONTENTS is the contents of the table. INFO is a plist holding
contextual information.
(defalias 'org-man-table #[(table contents info) "\2042 \306\307\310\311\312\313 \n;\203 \314\315 \n#\202 \316\nA@ \"*\317#\"!\211 \205. \316\f\320\")\203W \307\321\322\323\301\324 \211:\204C \324\202P \n@9\203O \nAA\202P \n)BB!!\"\207\325
#\207" [org-man-tables-verbatim table element property attr contents read format "(%s)" mapconcat identity :attr_man get-text-property 0 plist-get " " :verbatim ".nf\n\\fC%s\\fP\n.fi" org-trim org-element-interpret-data nil org-man-table--org-table info] 10 (#$ . 23133)])
#@126 Return an appropriate Man alignment string.
TABLE is the considered table. INFO is a plist used as
a communication channel.
(defalias 'org-man-table--align-string #[(divider table info) "\303\304\211 \305\306\n\307%\310\311\n$\210\312\313\314!\")\207" [alignment table info nil org-element-map table-row #[(row) "\303 ;\203 \304\305\n #\202 \306 A@\n\"*\307=\205 \207" [row element property :type get-text-property 0 plist-get standard] 4] first-match table-cell #[(cell) "\306 \"\307 \"\211\205 \310\245 \203' \311\312\f\313W\203\" \313\202# \f\"\202( \314 \315\n>\203: \204: \316B\317 \" \320\315\"\203P \321
Q\202m \320\322\"\203` \323
Q\202m \320\324\"\205m \325
Q)B\322\n>\205\200 \316B\211,\207" [cell info borders raw-width width-cm width org-export-table-cell-borders org-export-table-cell-width 5 format "w(%dc)" 1 "" left "|" org-export-table-cell-alignment eql "l" right "r" center "c" alignment #1=#:temp divider] 5] apply concat reverse] 7 (#$ . 23793)])
#@249 Return appropriate Man code for an Org table.
TABLE is the table type element to transcode. CONTENTS is its
contents, as a string. INFO is a plist used as a communication
channel.
This function assumes TABLE has `org' as its `:type' attribute.
(defalias 'org-man-table--org-table #[(table contents info) "\306\307\"\310\n;\203 \311\312 \n#\202 \313\nA@ \"* \313 \314\"?\205* \315
\" 1\313 \316\"\2037 \317\2028 \320 2\3212
# 3\3224\323\" 5\324\325\313 \326\"\205S \327\313 \330\"\211 6\331\230\203c \332\202x 6\333\230\203n \325\202x 7\203w \332\202x \334)\313 \335\"\206\201 \336E\" 8\313 \337\" 9\313 \340\" :\341\3428@\206\232 \334\"\325 ;8A\203\311 8A\325 <\211 =\203\310 =@<;\341\343<\"P;=A\211=\204\260 *;)\206\320 \334P >5\205\336 \3225@\344\" ?5\205\371\345>\346\341\347\334 @9\203?G\312 A BABW\203@\3502Q@AT\211A\202\375 *@\323P@3\203*@3P@\202L?G\312 A BABW\203K@\3512Q@AT\211A\2024*@)\"\341\352\334\211\3224\323\" 5 C @5\325 D\211 =\203\350=@D\334C:\203\327D\353\230\203\210\341\354D\"C\202\315\322D\344\"\211 E\325 F\211 =\203\310=@\211F\355E!@=\203\265C\341\356F\"PC\202\277C\341\357F\"PC=A\211=\204\231*C\210)@CP@\202\337@D\323Q@=A\211=\204j*@+\"1\205\367\341\3601\"\260. \207" [table attr element property label info org-export-read-attribute :attr_man :name get-text-property 0 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 "" :boxtype "box" :title-line :long-cells format "%s" ",%s" " " ".TS\n " ";\n" "%s.\n" "cb" "c" "%s.TE\n" "_" "%s\n" last "T{\n%s\nT} \n" "T{\n%s\nT} " ".TB \"%s\"" caption divider alignment contents lines placement org-man-tables-centered attr-list title-line long-cells output-list attr-item --dolist-tail-- table-format first-line final-line i --dotimes-limit-- long-line line-item cell-item-list cell-item] 12 (#$ . 24813)])
#@129 Transcode a TABLE-CELL element from Org to Man
CONTENTS is the cell contents. INFO is a plist used as
a communication channel.
(defalias 'org-man-table-cell #[(table-cell contents info) "\203 \203 \305\n\"\203 \306 \307\310\"\307\311\"#\202 \312 \f\"\205& \313P\207" [contents org-man-table-scientific-notation orgtbl-exp-regexp table-cell info string-match format match-string 1 2 org-export-get-next-element " "] 6 (#$ . 26834)])
#@134 Transcode a TABLE-ROW element from Org to Man
CONTENTS is the contents of the row. INFO is a plist used as
a communication channel.
(defalias 'org-man-table-row #[(table-row contents info) "\306 ;\203 \307\310\n #\202 \311 A@\n\"*\312=\205\237 \313\314\315\316 ;\2033 \307\310\n #\2029 \311 A@\n\"+ ;\203I \307\310\n #\202O \311 A@\n\"*\317# \320\211:\204_ \321\202l @9\203k AA\202l )@
\" \322>\205\201 \323>\205\201 \324\325>\203\225 \326>\203\225 \327\202\235 \326>\205\235 \327Q*\207" [table-row element property blob attr info :type get-text-property 0 plist-get standard mapconcat identity :attr_man :parent " " org-export-table-cell-borders nil top above "_\n" bottom below "\n_" borders contents] 8 (#$ . 27284)])
#@110 Transcode a TARGET object from Org to Man.
CONTENTS is nil. INFO is a plist holding contextual
information.
(defalias 'org-man-target #[(target contents info) "\303\304\305\306 ;\203 \307\310\n #\202 \311 A@\n\"*!\"\207" [target element property format "\\fI%s\\fP" org-export-solidify-link-text :value get-text-property 0 plist-get] 7 (#$ . 28043)])
#@117 Transcode a TIMESTAMP object from Org to Man.
CONTENTS is nil. INFO is a plist holding contextual
information.
(defalias 'org-man-timestamp #[(timestamp contents info) "\300\207" [""] 1 (#$ . 28407)])
#@131 Transcode UNDERLINE from Org to Man.
CONTENTS is the text with underline markup. INFO is a plist
holding contextual information.
(defalias 'org-man-underline #[(underline contents info) "\301\302\"\207" [contents format "\\fI%s\\fP"] 3 (#$ . 28620)])
#@113 Transcode a VERBATIM object from Org to Man.
CONTENTS is nil. INFO is a plist used as a communication
channel.
(defalias 'org-man-verbatim #[(verbatim contents info) "\301\302\"\207" [contents format ".nf\n%s\n.fi"] 3 (#$ . 28880)])
#@132 Transcode a VERSE-BLOCK element from Org to Man.
CONTENTS is verse block contents. INFO is a plist holding
contextual information.
(defalias 'org-man-verse-block #[(verse-block contents info) "\301\302\"\207" [contents format ".RS\n.ft I\n%s\n.ft\n.RE"] 3 (#$ . 29122)])
#@807 Export current buffer to a Man file.
If narrowing is active in the current buffer, only export its
narrowed part.
If a region is active, export that region.
A non-nil optional argument ASYNC means the process should happen
asynchronously. The resulting file should be accessible through
the `org-export-stack' interface.
When optional argument SUBTREEP is non-nil, export the sub-tree
at point, extracting information from the headline properties
first.
When optional argument VISIBLE-ONLY is non-nil, don't export
contents of hidden elements.
When optional argument BODY-ONLY is non-nil, only the body
without any markers.
EXT-PLIST, when provided, is a property list with external
parameters overriding Org default settings, but still inferior to
file-local settings.
Return output file's name.
(defalias 'org-man-export-to-man #[(&optional async subtreep visible-only body-only ext-plist) "\306\307\"\310\311 \n \f
&)\207" [subtreep outfile async visible-only body-only ext-plist org-export-output-file-name ".man" org-export-to-file man] 8 (#$ . 29401) nil])
#@820 Export current buffer to Groff then process through to PDF.
If narrowing is active in the current buffer, only export its
narrowed part.
If a region is active, export that region.
A non-nil optional argument ASYNC means the process should happen
asynchronously. The resulting file should be accessible through
the `org-export-stack' interface.
When optional argument SUBTREEP is non-nil, export the sub-tree
at point, extracting information from the headline properties
first.
When optional argument VISIBLE-ONLY is non-nil, don't export
contents of hidden elements.
When optional argument BODY-ONLY is non-nil, only write between
markers.
EXT-PLIST, when provided, is a property list with external
parameters overriding Org default settings, but still inferior to
file-local settings.
Return PDF file's name.
(defalias 'org-man-export-to-pdf #[(&optional async subtreep visible-only body-only ext-plist) "\306\307\"\310\311 \n \f
\312&)\207" [subtreep outfile async visible-only body-only ext-plist org-export-output-file-name ".man" org-export-to-file man #[(file) "\301!\207" [file org-latex-compile] 2]] 9 (#$ . 30484) nil])
#@207 Compile a Groff file.
FILE is the name of the file being compiled. Processing is done
through the command specified in `org-man-pdf-process'.
Return PDF file name or an error if it couldn't be produced.
(defalias 'org-man-compile #[(file) "\306\307!!\310!\311!\312!\203 \311\n!\202 \f \313 \314\315\"\210\316 \"\317\216\320#!\203: #\321!!\210\202X #:\203T \322\323! $\324\325#\"\210\326$!)\202X \327\330!\210 \331Q %\332%!\204y \327\333%
\203s \334
P\202t \335#\210\202\272 &\203\252 '\313 (\211 )\203\251 )@( \336(R\332!\203\237 \337!\210))A\211)\204\211 *\314\340
\204\264 \336\202\267 \341
PP!\210%.\207" [file base-name full-name out-dir default-directory errors file-name-sans-extension file-name-nondirectory file-truename file-name-directory file-name-absolute-p nil message "Processing Groff file %s..." current-window-configuration #[nil "\301!\207" [#1=#:wconfig set-window-configuration] 2] functionp shell-quote-argument get-buffer-create "*Org PDF Groff Output*" mapc #[(command) "\305\306\307\310!\306\311\310 !\306\312\310\n! \313\211%\313\211%\313\211%\f\"\207" [base-name full-name out-dir command outbuf shell-command replace-regexp-in-string "%b" shell-quote-argument "%f" "%o" t] 13] org-man-collect-errors error "No valid command to process to PDF" ".pdf" file-exists-p "PDF file %s wasn't produced%s" ": " "" "." delete-file "Process completed" " with errors: " #1# org-man-pdf-process outbuf pdffile org-man-remove-logfiles org-man-logfiles-extensions ext --dolist-tail--] 6 (#$ . 31634)])
#@157 Collect some kind of errors from "groff" output
BUFFER is the buffer containing output.
Return collected error types as a string, or nil if there was
none.
(defalias 'org-man-collect-errors #[(buffer) "rq\210\212db\210*\301\207" [buffer nil] 1 (#$ . 33193)])
(provide 'ox-man)
Kontol Shell Bypass