;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. (byte-code "\300\301!\210\302\303\304\305\306\307\310&\210\311\312\313\314\315\316\317\320&\210\321\322\323\324\317\312\325\326&\210\321\327\330\331\317\312\325\332&\207" [require ox org-export-define-backend groff ((bold . org-groff-bold) (center-block . org-groff-center-block) (clock . org-groff-clock) (code . org-groff-code) (drawer . org-groff-drawer) (dynamic-block . org-groff-dynamic-block) (entity . org-groff-entity) (example-block . org-groff-example-block) (export-block . org-groff-export-block) (export-snippet . org-groff-export-snippet) (fixed-width . org-groff-fixed-width) (footnote-definition . org-groff-footnote-definition) (footnote-reference . org-groff-footnote-reference) (headline . org-groff-headline) (horizontal-rule . org-groff-horizontal-rule) (inline-src-block . org-groff-inline-src-block) (inlinetask . org-groff-inlinetask) (italic . org-groff-italic) (item . org-groff-item) (keyword . org-groff-keyword) (line-break . org-groff-line-break) (link . org-groff-link) (node-property . org-groff-node-property) (paragraph . org-groff-paragraph) (plain-list . org-groff-plain-list) (plain-text . org-groff-plain-text) (planning . org-groff-planning) (property-drawer . org-groff-property-drawer) (quote-block . org-groff-quote-block) (radio-target . org-groff-radio-target) (section . org-groff-section) (special-block . org-groff-special-block) (src-block . org-groff-src-block) (statistics-cookie . org-groff-statistics-cookie) (strike-through . org-groff-strike-through) (subscript . org-groff-subscript) (superscript . org-groff-superscript) (table . org-groff-table) (table-cell . org-groff-table-cell) (table-row . org-groff-table-row) (target . org-groff-target) (template . org-groff-template) (timestamp . org-groff-timestamp) (underline . org-groff-underline) (verbatim . org-groff-verbatim) (verse-block . org-groff-verse-block)) :menu-entry (103 "Export to GROFF" ((103 "As GROFF file" org-groff-export-to-groff) (112 "As PDF file" org-groff-export-to-pdf) (111 "As PDF file and open" (lambda (a s v b) (if a (org-groff-export-to-pdf t s v b) (org-open-file (org-groff-export-to-pdf nil s v b))))))) :options-alist ((:groff-class "GROFF_CLASS" nil org-groff-default-class t) (:groff-class-options "GROFF_CLASS_OPTIONS" nil nil t) (:groff-header-extra "GROFF_HEADER" nil nil newline)) custom-declare-group org-export-groff nil "Options for exporting Org mode files to Groff." :tag "Org Export Groff" :group org-export custom-declare-variable org-groff-default-class "internal" "The default Groff class." :type (string :tag "Groff class") org-groff-classes '(("file" ".MT 1" (:heading 'default :type "memo" :last-section "toc")) ("internal" ".MT 0" (:heading 'default :type "memo" :last-section "toc")) ("programmer" ".MT 2" (:heading 'default :type "memo" :last-section "toc")) ("engineer" ".MT 3" (:heading 'default :type "memo" :last-section "toc")) ("external" ".MT 4" (:heading 'default :type "memo" :last-section "toc")) ("letter" ".MT 5" (:heading 'default :type "memo" :last-section "sign")) ("custom" ".so file" (:heading custom-function :type "custom" :last-section "toc")) ("dummy" #1="" (:heading 'default :type "memo")) ("ms" "ms" (:heading 'default :type "cover" :last-section "toc")) ("se_ms" "se_ms" (:heading 'default :type "cover" :last-section "toc")) ("block" "BL" (:heading 'default :type "letter" :last-section "sign")) ("semiblock" "SB" (:heading 'default :type "letter" :last-section "sign")) ("fullblock" "FB" (:heading 'default :type "letter" :last-section "sign")) ("simplified" "SP" (:heading 'default :type "letter" :last-section "sign")) ("none" #1# (:heading 'default :type "custom"))) "This list describes the attributes for the documents being created.\n It allows for the creation of new " (repeat (list (string :tag "Document Type") (string :tag "Header") (repeat :tag "Options" :inline t (choice (list :tag "Heading") (function :tag "Hook computing sectioning")))))] 8) (defconst org-groff-special-tags '("FROM" "TO" "ABSTRACT" "APPENDIX" "BODY" "NS")) (byte-code "\300\301\302\303\304\305\306\307&\210\300\310\311\312\304\305\306\313&\210\300\314\311\315\304\305\306\313&\210\300\316\311\317\304\305\306\313&\210\300\320\321\322\304\305\306\323&\210\300\324\311\325\304\305\306\313&\210\300\326\327\330\304\305\306\331&\210\300\332\302\333\304\305\306\331&\210\300\334\335\336\304\305\306\337&\210\300\340\341\342\304\305\306\343\344\345& \210\300\346\302\347\304\305\306\307&\210\300\350\302\351\304\305\306\307&\210\300\352\302\353\304\305\306\331&\210\300\354\355\356\304\305\306\357&\210\300\360\302\361\304\305\306\362&\207" [custom-declare-variable org-groff-format-headline-function nil "Function to format headline text.\n\nThis function will be called with 5 arguments:\nTODO the todo keyword (string or nil).\nTODO-TYPE the type of todo (symbol: `todo', `done', nil)\nPRIORITY the priority of the headline (integer or nil)\nTEXT the main headline text (string).\nTAGS the tags as a list of strings (list of strings or nil).\n\nThe function result will be used in the section format string.\n\nAs an example, one could set the variable to the following, in\norder to reproduce the default set-up:\n\n(defun org-groff-format-headline (todo todo-type priority text tags)\n \"Default format function for a headline.\"\n (concat (when todo\n (format \"\\fB%s\\fP \" todo))\n (when priority\n (format \"[\\#%c] \" priority))\n text\n (when tags\n (format \" %s \"\n (mapconcat 'identity tags \":\"))))" :group org-export-groff :type function org-groff-active-timestamp-format "\\fI%s\\fP" "A printf format string to be applied to active timestamps." string org-groff-inactive-timestamp-format "A printf format string to be applied to inactive timestamps." org-groff-diary-timestamp-format "A printf format string to be applied to diary timestamps." org-groff-inline-image-rules '(("file" . "\\.\\(jpg\\|png\\|pdf\\|ps\\|eps\\|pic\\)\\'") ("fuzzy" . "\\.\\(jpg\\|png\\|pdf\\|ps\\|eps\\|pic\\)\\'")) "Rules characterizing image files that can be inlined into Groff.\n\nA rule consists in an association whose key is the type of link\nto consider, and value is a regexp that will be matched against\nlink's path.\n\nNote that, by default, the image extensions actually allowed\ndepend on the way the Groff file is processed. When used with\npdfgroff, pdf, jpg and png images are OK. When processing\nthrough dvi to Postscript, only ps and eps are allowed. The\ndefault we use here encompasses both." (alist :key-type (string :tag "Type") :value-type (regexp :tag "Path")) org-groff-link-with-unknown-path-format "Format string for links with unknown path type." org-groff-tables-centered t "When non-nil, tables are exported in a center environment." boolean org-groff-tables-verbatim "When non-nil, tables are exported verbatim." org-groff-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." (choice (string :tag "Format string") (const :tag "No formatting")) org-groff-text-markup-alist '((bold . "\\fB%s\\fP") (code . "\\fC%s\\fP") (italic . "\\fI%s\\fP") (strike-through . "\\fC%s\\fP") (underline . "\\fI%s\\fP") (verbatim . "protectedtexttt")) "Alist of Groff expressions to convert text markup.\n\nThe key must be a symbol among `bold', `code', `italic',\n`strike-through', `underline' and `verbatim'. The value is\na formatting string to wrap fontified text with it.\n\nIf no association can be found for a given markup, text will be\nreturned as-is." alist :options (bold code italic strike-through underline verbatim) org-groff-format-drawer-function "Function called to format a drawer in Groff code.\n\nThe function must accept two parameters:\n NAME the drawer name, like \"LOGBOOK\"\n CONTENTS the contents of the drawer.\n\nThe function should return the string to be exported.\n\nFor example, the variable could be set to the following function\nin order to mimic default behaviour:\n\n(defun org-groff-format-drawer-default (name contents)\n \"Format a drawer element for Groff export.\"\n contents)" org-groff-format-inlinetask-function "Function called to format an inlinetask in Groff code.\n\nThe function must accept six parameters:\n TODO the todo keyword, as a string\n TODO-TYPE the todo type, a symbol among `todo', `done' and nil.\n PRIORITY the inlinetask priority, as a string\n NAME the inlinetask name, as a string.\n TAGS the inlinetask tags, as a list of strings.\n CONTENTS the contents of the inlinetask, as a string.\n\nThe function should return the string to be exported.\n\nFor example, the variable could be set to the following function\nin order to mimic default behaviour:\n\n(defun org-groff-format-inlinetask (todo type priority name tags contents)\n\"Format an inline task element for Groff export.\"\n (let ((full-title\n (concat\n (when todo\n (format \"\\fB%s\\fP \" todo))\n (when priority (format \"[\\#%c] \" priority))\n title\n (when tags\n (format \":%s:\"\n (mapconcat 'identity tags \":\")))))\n (format (concat \".DS L\\n\"\n \"%s\\n\\n\"\n \"%s\"\n \".DE\")\n full-title contents))" org-groff-source-highlight "Use GNU source highlight to embellish source blocks " org-groff-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." (repeat (list (symbol :tag "Major mode ") (string :tag "Listings language"))) org-groff-source-highlight-options "Association list of options for the groff listings package.\n\nThese options are supplied as a comma-separated list to the\n\\lstset command. Each element of the association list should be\na list containing two strings: the name of the option, and the\nvalue. For example,\n\n (setq org-groff-source-highlight-options\n '((\"basicstyle\" \"\\small\")\n (\"keywordstyle\" \"\\color{black}\\bfseries\\underbar\")))\n\nwill typeset the code in a small size font with underlined, bold\nblack keywords.\n\nNote that the same options will be applied to blocks of all\nlanguages." (repeat (list (string :tag "Listings option name ") (string :tag "Listings option value")))] 10) #@371 Alist mapping languages to language-specific Groff environments. It is used during export of src blocks by the listings and groff packages. For example, (setq org-groff-custom-lang-environments '((python "pythoncode"))) would have the effect that if org encounters begin_src python during groff export it will use pythoncode as the source-highlight language. (defvar org-groff-custom-lang-environments nil (#$ . 11509)) (byte-code "\300\301\302\303\304\305\306\307&\210\300\310\311\312\304\313\306\314&\210\300\315\316\317\304\305\306\320&\210\300\321\322\323\304\305\306\324&\210\300\325\326\327\304\305\306\330&\210\300\331\332\333\304\305\306\334&\207" [custom-declare-variable org-groff-special-char '(("(c)" . "\\\\(co") ("(tm)" . "\\\\(tm") ("(rg)" . "\\\\(rg")) "CONS list in which the value of the car\n is replace on the value of the CDR. " :group org-export-groff :type (list (cons :tag "Character Substitute" (string :tag "Original Character Group") (string :tag "Replacement Character"))) org-groff-pdf-process '("pic %f | tbl | eqn | groff -mm | ps2pdf - > %b.pdf" "pic %f | tbl | eqn | groff -mm | ps2pdf - > %b.pdf" "pic %f | tbl | eqn | groff -mm | ps2pdf - > %b.pdf") "Commands to process a Groff 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\nextension) and %o by the base directory of the file." org-export-pdf (choice (repeat :tag "Shell command sequence" (string :tag "Shell command")) (const :tag "2 runs of pdfgroff" ("pic %f | tbl | eqn | groff -mm | ps2pdf - > %b.pdf" "pic %f | tbl | eqn | groff -mm | ps2pdf - > %b.pdf")) (const :tag "3 runs of pdfgroff" ("pic %f | tbl | eqn | groff -mm | ps2pdf - > %b.pdf" "pic %f | tbl | eqn | groff -mm | ps2pdf - > %b.pdf" "pic %f | tbl | eqn | groff -mm | ps2pdf - > %b.pdf")) (function)) org-groff-logfiles-extensions '("aux" "idx" "log" "out" "toc" "nav" "snm" "vrb") "The list of file extensions to consider as Groff logfiles." (repeat (string :tag "Extension")) org-groff-remove-logfiles t "Non-nil means remove the logfiles produced by PDF production.\nThese are the .aux, .log, .out, and .toc files." boolean org-groff-organization "Org User" "Name of the organization used to populate the .AF command." string org-groff-raster-to-ps nil "Command used to convert raster to EPS. Nil for no conversion. Make sure that\n `org-groff-inline-image-rules' is adjusted accordingly if not conversion is being\n done. In this case, remove the entries for jpg and png in the file and fuzzy lists." (choice (repeat :tag "Shell Command Sequence" (string :tag "Shell Command")) (const :tag "sam2p" "a=%s;b=%s;sam2p ${a} ${b} ;grep -v BeginData ${b} > b_${b};mv b_${b} ${b}") (const :tag "NetPNM" "a=%s;b=%s;pngtopnm ${a} | pnmtops -noturn > ${b}") (const :tag "None" nil))] 8) (defvar org-groff-registered-references nil) (defvar org-groff-special-content nil) #@206 Return caption and label Groff 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-groff--wrap-label'. (defalias 'org-groff--caption/label-string #[(element info) "\305!\305\306\"\307\211;\203\310\311#\266\202\202 \312A@\"\266\202\211\204/ \204/\313\202S \204:\314\315 \"\202S\n\203L\314\316\317\n\f\"\317 \f\"#\202S\314\320\317 \f\"\"+\207" [element label short main info org-export-get-caption t :name get-text-property 0 plist-get "" format "\\fI%s\\fP" "%s\n.br\n - %s\n" org-export-data "\\fR%s\\fP"] 9 (#$ . 14514)]) #@149 Wrap label associated to ELEMENT around OUTPUT, if appropriate. This function shouldn't be used for floats. See `org-groff--caption/label-string'. (defalias 'org-groff--wrap-label #[(element output) "\303\211;\203\304\305#\266\202\202\306A@\"\266\202\n\203. \203.\n\307\230\204. \307\230\2032\n\2028\310\311 \"\nP)\207" [element label output :name get-text-property 0 plist-get "" format "%s\n.br\n"] 6 (#$ . 15166)]) #@93 Format TEXT depending on MARKUP text markup. See `org-groff-text-markup-alist' for details. (defalias 'org-groff--text-markup #[(text markup) " \236A\211\204 \202c\n\306\230\203_\307\310\311\312\313\314 \"\203S\315\307 \"\307\224\307V\2038 \307\211\224OP \307\224T\312O\316\f\"A\206K\317\fP \fP\202 P\320\321 \",\202c\320\n \")\207" [markup org-groff-text-markup-alist fmt text char rtn "protectedtexttt" 0 (("\\" . "\\")) "" nil string-match "[\\{}$%&_#~^]" match-string assoc "\\" format "\\fC%s\\fP" trans start] 5 (#$ . 15606)]) (defalias 'org-groff--get-tagged-content #[(tag info) "\302 \"A\207" [tag org-groff-special-content assoc] 3]) (defalias 'org-groff--mt-head #[(title contents attr info) "\306\307\"\211;\203\310\311 \"\202\310\311\n\206\312\")\306 \313\"\203%\f\202&\312\306\314\"\306\315\",\211\312\230\203J\310\316,\206@\312 \206E\312\317$\202m,\204^ \204^\310\320\f\206Z\312\"\202m\310\321,\206f\312 \206k\312\f$+\306 \322\"\205\205\306 \323\"\211-\205\204\324- \")\306 \325\"\205\223\324\306 \326\" \"\327\330 \"\327\331 \"./0\2111\203\313/\203\313\332\333\334\335\336\312/#\211/\337\"\312#2\310\3401\"2\337Q)\202\3641\203\3460\203\3460\312\230\204\346\310\34110#\202\3641\203\363\310\3421\"\202\364\343,\306\344\"\2113\203 3;\203 \310\3453\"\202\312)\306 \346\"\205+\324\347 ! \"4\3504!\205*\310\3514\")\327\352 \"\327\331 \".\2115\203C\310\3535\"\202M.\205M\310\353.\"*\260\207" [attr firm-option org-groff-organization info title subtitle2 plist-get :firm format ".AF \"%s\" \n" "" :with-title :subtitle1 :subtitle2 ".TL \"%s\" \"%s\" \n%s\n" " " ".TL\n%s\n" ".TL \"%s\" \"%s \" \n%s\n" :with-author :author org-export-data :with-email :email org-groff--get-tagged-content "FROM" "TO" mapconcat #[(from-line) "\301\302\"\207" [from-line format " \"%s\" "] 3] split-string replace-regexp-in-string "\\.P\n" "\n" ".AU \"%s\" " ".AU \"%s\" \"%s\"\n" ".AU \"%s\"\n" ".AU \"\" \n" :author-title ".AT \"%s\" \n" :with-date org-export-get-date org-string-nw-p ".ND \"%s\"\n" "ABSTRACT" ".AS\n%s\n.AE\n" subtitle1 auth to-data from-data email author au-line at-item date abstract-data] 10]) (defalias 'org-groff--letter-head #[(title contents attr info) "\306\307\"\205\306\310\"\211\205\311 \")\306\312\"\205#\311\306\313\"\"\314\315\"\306\n\316\"\314\317\" \203C\320\321\322 #\202E\322 \203R\320\321\322 #\202T\322 \203f\323\324\f\206a\322 $\202\217\203\201\203\201\322\230\204\201\323\325#\202\217\203\216\323\326\"\202\217\327 \205\227\323\330 \"P-\207" [info auth attr to-data at-item from-data plist-get :with-author :author org-export-data :with-email :email org-groff--get-tagged-content "FROM" :author-title "TO" replace-regexp-in-string "\\.P\n" "" format ".WA \"%s\" \"%s\" \n%s\n.WE\n" ".WA \"%s\"\n \"%s\"\n.WE\n" ".WA \"%s\"\n.WE\n" ".WA \"\" \n.WE\n" ".IA \n%s\n.IE\n" email author] 8]) #@142 Return complete document string after Groff conversion. CONTENTS is the transcoded contents string. INFO is a plist holding export options. (defalias 'org-groff-template #[(contents info) "\306\307\310\"\"\311\312\313\314\315\307\316\"C\317#\"!\307\320\"\307\316\"\321 \"?\322?!@@\307@\323\"A\307@\324\"B\307@\325\"C\307\n\326\"D\307\n\327\"E\330\321 \"A@\211F;\203bF\202c\331)!GE\203E\332\267\202{\333\202\200\334\202\200\331\202\200\331D\203\230D\335\267\202\224\336\202\231\337\202\231\331\202\231\331B\340\230\203\244\331\202]G;\203\302B\341\230\203\302\312\342G\"\343 H\n$\344Q\202]B\345\230\203\326\343 H\n$GP\202]B\346\230\203\\\347 H\n$\307\n\350\"\307\n\351\"\307\n\352\"\307\n\353\"\307\n\354\"IJKL\211M;\203\312\355M\"\202\356L\205$L;\203#\312\357L\"\202$\360I\2054I;\2054\312\361I\" \205AJ\205A\312\362 \"K\205QK;\205Q\312\363K\"\364G\365\260-P\202]\331HC\366\230\203j\367\202\214C\370\230\203\213\307\n\371\"\211N;\203\204\312\372N\"\202\205\373\374P)\202\214\331\314\375\376O!\365#\260.\f\207" [info title attr class class-options org-groff-classes org-export-data plist-get :title read format "(%s)" mapconcat identity :groff-class-options " " :groff-class assoc last :heading :type :last-section :hyphenate :justify-right org-element-normalize-string #1="" #s(hash-table size 3 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (quote 115 yes 115 no 119)) ".SA 1 \n" ".SA 0 \n" #s(hash-table size 3 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (quote 140 yes 140 no 144)) ".nr Hy 1 \n" ".nr Hy 0 \n" "custom" "cover" ".COVER %s\n" org-groff--mt-head ".COVEND\n" "memo" "letter" org-groff--letter-head :salutation :confidential :subject :reference :attention ".LO SA \"%s\" \n" ".LO SA\n" ".LO CN \"%s\"\n" ".LO CN\n" ".LO AT \"%s\" \n" ".LO RN \"%s\"\n" ".LO SJ \"%s\" \n" ".LT " "\n" "toc" ".TC" "sign" :closing ".FC \"%s\" \n" ".FC\n" ".SG\n" #[(item) "@\301\230\205 \302\303\304A#\207" [item "NS" replace-regexp-in-string "\\.P\n" #1#] 4] reverse classes classes-options heading-option type-option last-option hyphenate justify-right header document-class-string contents at-item rn-item sj-item cn-item sa-item fc-item org-groff-special-content] 12 (#$ . 18596)]) #@123 Transcode BOLD from Org to Groff. CONTENTS is the text with bold markup. INFO is a plist holding contextual information. (defalias 'org-groff-bold #[(bold contents info) "\301\302\"\207" [contents org-groff--text-markup bold] 3 (#$ . 20932)]) #@151 Transcode a CENTER-BLOCK element from Org to Groff. CONTENTS holds the contents of the center block. INFO is a plist holding contextual information. (defalias 'org-groff-center-block #[(center-block contents info) "\302\303\304 \"\"\207" [center-block contents org-groff--wrap-label format ".DS C \n%s\n.DE"] 5 (#$ . 21184)]) #@112 Transcode a CLOCK element from Org to Groff. CONTENTS is nil. INFO is a plist holding contextual information. (defalias 'org-groff-clock #[(clock contents info) "\304\305\"\304 \306\307\n\211;\203\310\311#\266\202\202 \312A@\"\266\202!\313\n\211;\2032\310\311#\266\202\202:\312A@\"\266\202\211\205C\304\314 \")P\"P\207" [org-clock-string org-groff-inactive-timestamp-format clock time format "\\fB%s\\fP " org-timestamp-translate :value get-text-property 0 plist-get :duration " (%s)"] 11 (#$ . 21519)]) #@111 Transcode a CODE object from Org to Groff. CONTENTS is nil. INFO is a plist used as a communication channel. (defalias 'org-groff-code #[(code contents info) "\301\302\211;\203\303\304#\266\202\202\305A@\"\266\202\300\"\207" [code org-groff--text-markup :value get-text-property 0 plist-get] 7 (#$ . 22047)]) #@138 Transcode a DRAWER element from Org to Groff. CONTENTS holds the contents of the block. INFO is a plist holding contextual information. (defalias 'org-groff-drawer #[(drawer contents info) "\305\211;\203\306\307#\266\202\202\310A@\"\266\202\311\n!\203'\n \"\202( \312\f\"*\207" [drawer name org-groff-format-drawer-function contents output :drawer-name get-text-property 0 plist-get functionp org-groff--wrap-label] 6 (#$ . 22373)]) #@169 Transcode a DYNAMIC-BLOCK element from Org to Groff. CONTENTS holds the contents of the block. INFO is a plist holding contextual information. See `org-export-data'. (defalias 'org-groff-dynamic-block #[(dynamic-block contents info) "\302 \"\207" [dynamic-block contents org-groff--wrap-label] 3 (#$ . 22829)]) #@132 Transcode an ENTITY object from Org to Groff. CONTENTS are the definition itself. INFO is a plist holding contextual information. (defalias 'org-groff-entity #[(entity contents info) "\301\211;\203 \302\303#\207\304A@\"\207" [entity :utf-8 get-text-property 0 plist-get] 6 (#$ . 23150)]) #@121 Transcode an EXAMPLE-BLOCK element from Org to Groff. CONTENTS is nil. INFO is a plist holding contextual information. (defalias 'org-groff-example-block #[(example-block contents info) "\302\303\304\305 \"\"\"\207" [example-block info org-groff--wrap-label format ".DS L\n%s\n.DE" org-export-format-code-default] 7 (#$ . 23452)]) #@119 Transcode a EXPORT-BLOCK element from Org to Groff. CONTENTS is nil. INFO is a plist holding contextual information. (defalias 'org-groff-export-block #[(export-block contents info) "\301\211;\203\302\303#\266\202\202\304A@\"\266\202\305\230\2059\306\307\211;\2030\302\303#\266\202\2028\304A@\"\266\202!\207" [export-block :type get-text-property 0 plist-get "GROFF" org-remove-indentation :value] 7 (#$ . 23793)]) #@120 Transcode a EXPORT-SNIPPET object from Org to Groff. CONTENTS is nil. INFO is a plist holding contextual information. (defalias 'org-groff-export-snippet #[(export-snippet contents info) "\301!\302=\205\303\211;\203\304\305#\207\306A@\"\266\202\207" [export-snippet org-export-snippet-backend groff :value get-text-property 0 plist-get] 6 (#$ . 24233)]) #@118 Transcode a FIXED-WIDTH element from Org to Groff. CONTENTS is nil. INFO is a plist holding contextual information. (defalias 'org-groff-fixed-width #[(fixed-width contents info) "\301\302\303\304\305\211;\203\306\307#\266\202\202\310A@\"\266\202!\"\"\207" [fixed-width org-groff--wrap-label format "\\fC\n%s\n\\fP" org-remove-indentation :value get-text-property 0 plist-get] 11 (#$ . 24605)]) (defalias 'org-groff-footnote-reference #[(footnote-reference contents info) "\306 \"\307 \"\310\n \"\311\312\203\313\202\314\315\312\316\315##\266\202\317A@\320\"\321\322 \"\203N \235\203@\323\324 \"\202T B\323\325 \f#\202T\323\326 \211\f$,\207" [footnote-reference info raw n data ref-id org-export-get-footnote-definition org-export-get-footnote-number org-export-data nil replace-regexp-in-string "\\`\\([ ]*\n\\)+" "\\`[ \n ]+" "" "[ \n ]+\\'" plist-get :label string-match "fn:rl" format "\\*[%s]" "\\*(Rf\n.RS \"%s\" \n%s\n.RF\n" "\\u\\s-2%s\\d\\s+2\n.FS %s\n%s\n.FE\n" org-groff-registered-references] 9]) #@143 Transcode a HEADLINE element from Org to Groff. CONTENTS holds the contents of the headline. INFO is a plist holding contextual information. (defalias 'org-groff-headline #[(headline contents info) "\306\307\"\310\n\"\311\n\"\312 \"9\3139!@:\306:\314\"\211;9\2037\315;!\2037; \f\"\202O \316V\203A\317\202O\f\203N\320\321 !\322Q\202O\323<\324\325\n\211;\203c\326\327#\266\202\202k\306A@\"\266\202\"=\306\330\"\205\233\331\n\211;\203\207\326\327#\266\202\202\217\306A@\"\266\202\211>\205\232\324>\")\211>\205\272\332\n\211;\203\262\326\327#\266\202\202\272\306A@\"\266\202?\306\333\"\205\307\334\n\"@\306\335\"\205\351\336\n\211;\203\341\326\327#\266\202\202\351\306A@\"\266\202A\337B!\203B>?A=@%\202%>\205\f\340\341>\"A\205\340\342A\"=@\205$\340\343\344@!\"RC\337B!\203=B>?A=\317%\202T>\205G\340\341>\"A\205Q\340\342A\"=QD\345E\346\347\n\211;\203k\326\327#\266\202\202s\306A@\"\266\202\350\"F@@G\235\203\324@@\351\230\203\215H\202D@@\352\230\203\305@@\340\353\325\n\211;\203\253\326\327#\266\202\202\263\306A@\"\266\202@H\206\272\354#BIBI\317\202D@@HBIBI\317\202D\355\n\211;\203\345\326\327#\266\202\202\355\306A@\"\266\202\203\364\317\202D<\203\356\n\"\2037\357\n\"\205\340\360\f\203\361\202\362\"\363C\364EFH\260J\365\n\"\204-J\2023\366\367\370J#)\202D\340<CEFHQ#.\207" [info class headline level numberedp org-groff-classes plist-get :groff-class org-export-get-relative-level org-export-numbered-headline-p assoc last :heading fboundp 7 nil ".H " number-to-string " \"%s\"\n%s" ".HU \"%s\"\n%s" org-export-data :title get-text-property 0 :with-todo-keywords :todo-keyword :todo-type :with-tags org-export-get-tags :with-priority :priority functionp format "\\fB%s\\fP " " [\\#%c] " " \\fC%s\\fP " org-make-tag-string "" make-string :pre-blank 10 "BODY" "NS" ".NS \"%s\" 1 \n%s" " " :footnote-section-p org-export-low-level-p org-export-first-sibling-p "%s\n" ".AL 1\n" ".DL \n" ".LI\n" "\n" org-export-last-sibling-p replace-regexp-in-string "[ \n]*\\'" "\n.LE" classes classes-options heading-option section-fmt text todo todo-type tags priority org-groff-format-headline-function full-text full-text-no-tag headline-label pre-blanks org-groff-special-tags contents org-groff-special-content low-level-body] 10 (#$ . 25659)]) #@148 Transcode an INLINE-SRC-BLOCK element from Org to Groff. CONTENTS holds the contents of the item. INFO is a plist holding contextual information. (defalias 'org-groff-inline-src-block #[(inline-src-block contents info) "\306\211;\203\307\310#\266\202\202\311A@\"\266\202\n\203\262 \312\313\314\f\"!\312\313\315\f\"!\"\316\211;\203@\307\310#\266\202\202H\311A@\"\266\202#\317#!$\236A@%\313\320!\321%\322 \323\"\260&%\203\251\324' \325\326\327\"()\330\216r(q\210 c\210)r(q\210\331\332\211)\332\310%\210,\333&!\210\334\"!'\335 !\210\335\"!\210')\202\255\336\337 \".\202\266\340 \341Q)\207" [inline-src-block code org-groff-source-highlight temporary-file-directory tmpdir in-file :value get-text-property 0 plist-get make-temp-name expand-file-name "srchilite" "reshilite" :language intern "source-highlight" " -s " " -f groff_mm_color -i " " -o " "" generate-new-buffer " *temp file*" t #[nil "\301!\205 \302!\207" [#1=#:temp-buffer buffer-name kill-buffer] 2] write-region nil shell-command org-file-contents delete-file format ".DS I\n\\fC\\m[black]%s\\m[]\\fP\n.DE\n" ".DS I\n\\fC" "\\fP\n.DE\n" out-file org-lang org-groff-source-highlight-langs lst-lang cmd code-block #1# #2=#:temp-file] 7 (#$ . 28072)]) #@143 Transcode an INLINETASK element from Org to Groff. CONTENTS holds the contents of the block. INFO is a plist holding contextual information. (defalias 'org-groff-inlinetask #[(inlinetask contents info) "\306\307\211;\203\310\311#\266\202\202\312A@\"\266\202 \"\312 \313\"\205F\314\211;\2034\310\311#\266\202\202<\312A@\"\266\202\211\205E\306\n \")\315\211;\203W\310\311#\266\202\202_\312A@\"\266\202\312 \316\"\205j\317 \"\312 \320\"\205\212\321\211;\203\202\310\311#\266\202\202\212\312A@\"\266\202\322!\203\246\n \f&\202\320\323\n\205\260\324\325\n\" \205\270\324\326 \"\f\205\304\324\327\330\f!\"R\324\331#)\"-\207" [inlinetask info todo priority tags todo-type org-export-data :title get-text-property 0 plist-get :with-todo-keywords :todo-keyword :todo-type :with-tags org-export-get-tags :with-priority :priority functionp org-groff--wrap-label format "\\fB%s\\fP " " [\\#%c] " " \\fC%s\\fP " org-make-tag-string "\n.DS I\n%s\n.sp%s\n.DE" title org-groff-format-inlinetask-function contents full-title] 11 (#$ . 29338)]) #@127 Transcode ITALIC from Org to Groff. CONTENTS is the text with italic markup. INFO is a plist holding contextual information. (defalias 'org-groff-italic #[(italic contents info) "\301\302\"\207" [contents org-groff--text-markup italic] 3 (#$ . 30439)]) #@136 Transcode an ITEM element from Org to Groff. CONTENTS holds the contents of the item. INFO is a plist holding contextual information. (defalias 'org-groff-item #[(item contents info) "\306\211;\203\307\310#\266\202\202\311A@\"\266\202\312\313\211;\203,\307\310#\266\202\2024\311A@\"\266\202\211;\203C\307\310#\266\202\202K\311A@\"\266\202\314\211;\203]\307\310#\266\202\202e\311A@\"\266\202\211\315\267\202x\316\202y\317\202y\320\202y\321)\322\211;\203\214\307\310#\266\202\202\224\311A@\"\266\202\211\205\243\323\324\f\325 (\"P\")\f\204\255 \203\325\326 \206\265\327\fP\330)\206\274\331\321\332\203\306\333\202\307\334\335\332\336\335##\266\202R\202J\n\337=\203\373\340)\206\342\331\321\332\203\354\333\202\355\334\335\332\336\335##\266\202P\202J \321\332\203\333\202\334\335\332\336\335##\266\202\211\341\230\203\342\202' \343\230\203&\344\202'\345*\346*\347)\2063\331\321\332\203=\333\202>\334\335\332\336\335##\266\202R*,\207" [item bullet type #1=#:temp checkbox tag :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 108 off 112 trans 116)) "\\o'\\(sq\\(mu'" "\\(sq" "\\o'\\(sq\\(mi'" nil :tag format "%s" org-export-data ".LI \"" "\\ " "\"\n" " " replace-regexp-in-string "\\`\\([ ]*\n\\)+" "\\`[ \n ]+" "" "[ \n ]+\\'" ordered ".LI\n" "-" "\\(em" "*" "\\(bu" "\\(dg" ".LI " "\n" info contents marker] 13 (#$ . 30701)]) #@114 Transcode a KEYWORD element from Org to Groff. CONTENTS is nil. INFO is a plist holding contextual information. (defalias 'org-groff-keyword #[(keyword contents info) "\303\211;\203\304\305#\266\202\202\306A@\"\266\202\307\211;\203*\304\305#\266\202\2022\306A@\"\266\202\211\310\230\203> \202?\311*\207" [keyword value key :key get-text-property 0 plist-get :value "GROFF" nil] 8 (#$ . 32229)]) #@116 Transcode a LINE-BREAK object from Org to Groff. CONTENTS is nil. INFO is a plist holding contextual information. (defalias 'org-groff-line-break #[(line-break contents info) "\300\207" [".br\n"] 1 (#$ . 32652)]) #@137 Return Groff code for an inline image. LINK is the link pointing to the inline image. INFO is a plist used as a communication channel. (defalias 'org-groff-link--inline-image #[(link info) "\306!\307\211;\203\310\311#\266\202\202\312A@\"\266\202\313\n!\204(\n\202+\314\n!)\315\316\"\312\f\317\"\211\320\230\203A\321\202V \322\230\203K\323\202V \324\230\203U\325\202V\321)$\312\f\326\"\206a\321%\312\f\327\"\206k\321&\312\f\330\"?\205z\331 '\"()\203\255\332\333 \"\204\217\332\334 \"\203\255 \335P*\336\337) *#!\210\337\340$*%&%)\202\305\332\341 \"\203\273\337\342 \"\202\305\337\340$ %&%(\205\317\337\343(\"P.\207" [link parent raw-path path attr pos org-export-get-parent-element :path get-text-property 0 plist-get file-name-absolute-p expand-file-name org-export-read-attribute :attr_groff :position center "" left "-L" right "-R" :width :height :disable-caption org-groff--caption/label-string string-match "..png$" "..jpg$" ".eps" shell-command format "\n.DS L F\n.PSPIC %s \"%s\" %s %s\n.DE " "..pic$" "\n.PS\ncopy \"%s\"\n.PE" "\n.FG \"%s\"" placement width height info caption org-groff-raster-to-ps eps-path] 7 (#$ . 32873)]) #@180 Transcode a LINK object from Org to Groff. 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-groff-link #[(link desc info) "\306\211;\203\307\310#\266\202\202\311A@\"\266\202\312\211;\203+\307\310#\266\202\2023\311A@\"\266\202 \313\230?\205< \314\f\" \315\235\203O \316\nQ\202\\ \317\230\203[\320\n!\202\\\n+\321 \322,$\206\250 \203t\323,\"\202\250 \317\230\203\210\324\325\n\"\203\210\326\n\327Q\202\250 \330\230\203\252\331,\"\211-\204\235 \202\246\332\333\334-,\"\")\202\250 \335\235\203\204 \336\230\203\276\337,\"\202\303\340,\"\211-\211:\204\326\211;\205\336\341\262\202\340\211@9\205\336\211@\262\211.\342\267\202e \203\365\332\343 -#\202\200\332\344-\"\202\200\332/ \206!\345\346\211;\203\307\310#\266\202\202\311A@\"\266\202,\"\"\202\200\3130\311,\347\"\203< \204<\332\3500\"\202a\332\350 \206`\345\351-\211;\203U\307\310#\266\202\202]\311A@\"\266\202,\"\")\202\200\334-,\"1 \204y\332\3501\"\202\332\352 1#)*\202\250+\203\226 \203\226\332\352+ #\202\250+\203\243\332\350+\"\202\250\332/ \"-\207" [link type raw-path desc org-groff-inline-image-rules imagep :type get-text-property 0 plist-get :path "" org-export-inline-image-p ("http" "https" "ftp" "mailto") ":" "file" org-export-file-uri org-export-custom-protocol-maybe groff org-groff-link--inline-image string-match "..groff$" ".so " "\n" "radio" org-export-resolve-radio-link format "\\fI [%s] \\fP" org-export-get-reference ("custom-id" "fuzzy" "id") "fuzzy" org-export-resolve-fuzzy-link org-export-resolve-id-link plain-text #s(hash-table size 4 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (plain-text 232 quote 253 nil 253 headline 293)) "%s \\fBat\\fP \\fIfile://%s\\fP" "\\fI file://%s \\fP" org-export-data :raw-link :section-numbers "\\fI%s\\fP" :title "%s \\fBat\\fP \\fI%s\\fP" path info destination #1=#:temp org-groff-link-with-unknown-path-format label ref] 10 (#$ . 34069)]) #@120 Transcode a NODE-PROPERTY element from Org to Groff. CONTENTS is nil. INFO is a plist holding contextual information. (defalias 'org-groff-node-property #[(node-property contents info) "\302\303\304\211;\203\305\306#\266\202\202\307A@\"\266\202\310\211;\203,\305\306#\266\202\2024\307A@\"\266\202\211\203?\311 P\202@\312)#\207" [node-property value format "%s:%s" :key get-text-property 0 plist-get :value " " ""] 10 (#$ . 36167)]) #@158 Transcode a PARAGRAPH element from Org to Groff. CONTENTS is the contents of the paragraph, as a string. INFO is the plist used as a communication channel. (defalias 'org-groff-paragraph #[(paragraph contents info) "\306A@\307\"\211\205| @\310\306\f\311\"\306\f\312\"\313 \"\314!@\306\315\"\2119\203G\316!\203G\n #\210\202y\n\317=\203^\306 A@\320\"\203^\260\202y\n\321\267\202t\322P\202y\260\202y\260 .)\207" [paragraph parent parent-type fixed-paragraph info class plist-get :parent "" :groff-class :groff-class-options assoc last :paragraph fboundp item :bullet #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (section 100 footnote-definition 108)) ".P\n" class-options org-groff-classes classes classes-options paragraph-option contents] 5 (#$ . 36626)]) #@138 Transcode a PLAIN-LIST element from Org to Groff. CONTENTS is the contents of the list. INFO is a plist holding contextual information. (defalias 'org-groff-plain-list #[(plain-list contents info) "\305\211;\203\306\307#\266\202\202\310A@\"\266\202\311\312\313\211;\203-\306\307#\266\202\2025\310A@\"\266\202\314# \315\267\202J\316\202K\317\202K\320\202K\321\322\323\324 \f#\"+\207" [plain-list type attr groff-type contents :type get-text-property 0 plist-get mapconcat identity :attr_groff " " #s(hash-table size 3 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (ordered 62 unordered 66 descriptive 70)) ".AL" ".BL" ".VL 2.0i" nil org-groff--wrap-label format "%s\n%s\n.LE"] 8 (#$ . 37480)]) #@126 Transcode a TEXT string from Org to Groff. TEXT is the string to transcode. INFO is a plist holding contextual information. (defalias 'org-groff-plain-text #[(text info) "\306\307\310 \311\312\313&\314\n\315\"\203\316 \317\n$ \2039 \311\211\2038 @\306\f@\fA # A\211\204&*\314\n\320\"\203F\306\321\322 # )\207" [text output info org-groff-special-char special-char-list --dolist-tail-- replace-regexp-in-string "\\(?:[^\\]\\|^\\)\\(\\\\\\)\\(?:[^%$#&{}~^_\\]\\|$\\)" "$\\" nil t 1 plist-get :with-smart-quotes org-export-activate-smart-quotes :utf-8 :preserve-breaks "\\(\\\\\\\\\\)?[ ]*\n" ".br\n"] 8 (#$ . 38223)]) #@115 Transcode a PLANNING element from Org to Groff. CONTENTS is nil. INFO is a plist holding contextual information. (defalias 'org-groff-planning #[(planning contents info) "\306\307\310\311\312\211;\203\313\314#\266\202\202\315A@\"\266\202\211\205-\316\317\n\"\316 \320 !\"P)\321\211;\203?\313\314#\266\202\202G\315A@\"\266\202\211\205X\316\322 \"\316\320\f!\"P)\323\211;\203j\313\314#\266\202\202r\315A@\"\266\202\211\205\206\316\317\"\316\320!\"P)E\"\324#\260\207" [planning closed org-closed-string org-groff-inactive-timestamp-format deadline org-deadline-string mapconcat identity delq nil :closed get-text-property 0 plist-get format "\\fR %s \\fP" org-timestamp-translate :deadline "\\fB %s \\fP" :scheduled "" org-groff-active-timestamp-format scheduled org-scheduled-string] 13 (#$ . 38866)]) #@148 Transcode a PROPERTY-DRAWER element from Org to Groff. CONTENTS holds the contents of the drawer. INFO is a plist holding contextual information. (defalias 'org-groff-property-drawer #[(property-drawer contents info) "\301!\205\n\302\303\"\207" [contents org-string-nw-p format "\\fC\n%s\\fP"] 3 (#$ . 39713)]) #@143 Transcode a QUOTE-BLOCK element from Org to Groff. CONTENTS holds the contents of the block. INFO is a plist holding contextual information. (defalias 'org-groff-quote-block #[(quote-block contents info) "\302\303\304 \"\"\207" [quote-block contents org-groff--wrap-label format ".DS I\n.I\n%s\n.R\n.DE"] 5 (#$ . 40035)]) #@133 Transcode a RADIO-TARGET object from Org to Groff. TEXT is the text of the target. INFO is a plist holding contextual information. (defalias 'org-groff-radio-target #[(radio-target text info) "\303\304\305 \"\n#\207" [radio-target info text format "%s - %s" org-export-get-reference] 5 (#$ . 40366)]) #@141 Transcode a SECTION element from Org to Groff. CONTENTS holds the contents of the section. INFO is a plist holding contextual information. (defalias 'org-groff-section #[(section contents info) "\207" [contents] 1 (#$ . 40676)]) #@145 Transcode a SPECIAL-BLOCK element from Org to Groff. CONTENTS holds the contents of the block. INFO is a plist holding contextual information. (defalias 'org-groff-special-block #[(special-block contents info) "\303\211;\203\304\305#\266\202\202\306A@\"\266\202\307\310\311\n\"\")\207" [special-block type contents :type get-text-property 0 plist-get org-groff--wrap-label format "%s\n"] 6 (#$ . 40914)]) #@140 Transcode a SRC-BLOCK element from Org to Groff. CONTENTS holds the contents of the item. INFO is a plist holding contextual information. (defalias 'org-groff-src-block #[(src-block contents info) "\306\211;\203\307\310#\266\202\202\311A@\"\266\202\312\211;\203+\307\310#\266\202\2023\311A@\"\266\202\313\211;\203E\307\310#\266\202\202M\311A@\"\266\202 \205Y\314 !\f\236A@\315*\"+\316\211;\203r\307\310#\266\202\202z\311A@\"\266\202,\317\320\321#?\205\212\322*\"-.\204\247\323\324\325*\"\"-\205\243\323\326-\"P\202P.\205P/0\327\330\3310\"!1\327\330\3320\"!2\306\211;\203\323\307\310#\266\202\202\333\311A@\"\266\2023\3143!4\236A@5\3335\3341\3352\26065\203?\33671\337\340\341\"89\342\216r8q\210 c\210)r8q\210\343\344\2119\344\310%\210,\3456!\210\3462!7\3471!\210\3472!\210\323\3507\")\202C\323\351 \"-\205M\323\326-\"P..\207" [src-block lang label code org-groff-custom-lang-environments custom-env :language get-text-property 0 plist-get :name :value intern org-export-get-loc :retain-labels org-export-read-attribute :attr_groff :disable-caption org-groff--caption/label-string format ".DS I\n\\fC%s\\fP\n.DE\n" org-export-format-code-default ".EX \"%s\" " make-temp-name expand-file-name "srchilite" "reshilite" "source-highlight -s " " -f groff_mm_color -i " " -o " "" generate-new-buffer " *temp file*" t #[nil "\301!\205 \302!\207" [#1=#:temp-buffer buffer-name kill-buffer] 2] write-region nil shell-command org-file-contents delete-file "%s\n" ".DS I\n\\fC\\m[black]%s\\m[]\\fP\n.DE\n" info num-start retain-labels caption org-groff-source-highlight temporary-file-directory tmpdir in-file out-file org-lang org-groff-source-highlight-langs lst-lang cmd code-block #1# #2=#:temp-file] 6 (#$ . 41338)]) #@123 Transcode a STATISTICS-COOKIE object from Org to Groff. CONTENTS is nil. INFO is a plist holding contextual information. (defalias 'org-groff-statistics-cookie #[(statistics-cookie contents info) "\301\211;\203 \302\303#\207\304A@\"\207" [statistics-cookie :value get-text-property 0 plist-get] 6 (#$ . 43156)]) #@143 Transcode STRIKE-THROUGH from Org to Groff. CONTENTS is the text with strike-through markup. INFO is a plist holding contextual information. (defalias 'org-groff-strike-through #[(strike-through contents info) "\301\302\"\207" [contents org-groff--text-markup strike-through] 3 (#$ . 43482)]) #@138 Transcode a SUBSCRIPT object from Org to Groff. CONTENTS is the contents of the object. INFO is a plist holding contextual information. (defalias 'org-groff-subscript #[(subscript contents info) "\301\302\"\207" [contents format "\\d\\s-2%s\\s+2\\u"] 3 (#$ . 43784)]) #@140 Transcode a SUPERSCRIPT object from Org to Groff. CONTENTS is the contents of the object. INFO is a plist holding contextual information. (defalias 'org-groff-superscript #[(superscript contents info) "\301\302\"\207" [contents format "\\u\\s-2%s\\s+2\\d"] 3 (#$ . 44061)]) #@134 Transcode a TABLE element from Org to Groff. CONTENTS is the contents of the table. INFO is a plist holding contextual information. (defalias 'org-groff-table #[(table contents info) "\2043\305\306\307\310\311\312 \211;\203\313\314#\266\202\202\"\315A@\"\266\202\316#\"!\211\205/\315\n\317\")\203i\306\320\321\301\322 \211:\204D\322\262\202O\211@9\203O\211AA\262BB!\322\323\203\\\324\202]\325\326\323\327\326##\266\202\"\207\330 \f#\207" [org-groff-tables-verbatim table attr contents info read format "(%s)" mapconcat identity :attr_groff get-text-property 0 plist-get " " :verbatim ".DS L\n\\fC%s\\fP\n.DE" org-element-interpret-data nil replace-regexp-in-string "\\`\\([ ]*\n\\)+" "\\`[ \n ]+" "" "[ \n ]+\\'" org-groff-table--org-table] 12 (#$ . 44344)]) #@128 Return an appropriate Groff alignment string. TABLE is the considered table. INFO is a plist used as a communication channel. (defalias 'org-groff-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) "\301\211;\203\302\303#\266\202\202\304A@\"\266\202\305=\205\207" [row :type get-text-property 0 plist-get standard] 6] 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 \"\211\320\267\202^\321 Q\202_\322 Q\202_\323 Q\202_\324)B\325\n>\205r\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 #s(hash-table size 3 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (left 70 right 78 center 86)) "l" "r" "c" nil right alignment #1=#:temp divider] 5] apply concat reverse] 7 (#$ . 45137)]) #@251 Return appropriate Groff 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-groff-table--org-table #[(table contents info) "\306\307\"\310\211;\203\311\312#\266\202\202\313A@\"\266\202\313 \314\"?\205+\315 \"\313 \316\"\2037\317\2028\320\321  #0\3221\323\"2\324\325\313 \326\"\205Q\327\313 \330\"\2113\331\230\203a\332\202v3\333\230\203l\325\202v4\203u\332\202v\334)\313 \335\"\206\336E\"5\313 \337\"6\313 \340\"75@\206\226\334\32585A\203\3045A\3259\211:\203\303:@98\341\3429\"P8:A\211:\204\253*8)\206\313\334P;2\205\331\3222@\343\"<2\205\360\344;\345\341\346\334=6\203?>?W\203=\347 Q=>T\211>\202\370*=\323P=0\203$=0P=\202E?>?W\203D=\350 Q=>T\211>\202.*=)\"\341\351\334\211\3221\323\"2@=2\325A\211:\203\335:@A\334@7\203\314A\352\230\203\201\341\353A\"@\202\302\322A\343\"\211B\325C\211:\203\301:@\211C\354B!@=\203\256@\341\355C\"P@\202\270@\341\356C\"P@:A\211:\204\222+=@P=\202\324=A\323Q=:A\211:\204c*=+\"\f\203\355\341\357\f\"\202\356\334\260. \207" [table attr label info caption divider org-export-read-attribute :attr_groff :name get-text-property 0 plist-get :disable-caption org-groff--caption/label-string :divider "|" " " org-groff-table--align-string org-split-string "\n" delq nil :expand "expand" :placement center "center" left "" :boxtype "box" :title-line :long-cells format ",%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\"" alignment contents lines placement org-groff-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 (#$ . 46237)]) #@131 Transcode a TABLE-CELL element from Org to Groff CONTENTS is the cell contents. INFO is a plist used as a communication channel. (defalias 'org-groff-table-cell #[(table-cell contents info) "\203 \203\305\n\"\203\306 \307\310\"\307\311\"#\202\312 \f\"\205&\313P\207" [contents org-groff-table-scientific-notation orgtbl-exp-regexp table-cell info string-match format match-string 1 2 org-export-get-next-element " "] 6 (#$ . 48249)]) #@136 Transcode a TABLE-ROW element from Org to Groff CONTENTS is the contents of the row. INFO is a plist used as a communication channel. (defalias 'org-groff-table-row #[(table-row contents info) "\305\211;\203\306\307#\266\202\202\310A@\"\266\202\311=\205\230\312\313\314\315\211;\2033\306\307#\266\203\202;\310A@\"\266\203\211;\203J\306\307#\266\202\202R\310A@\"\266\202\316#\317\211:\204b\320\262\202m\211@9\203m\211AA\262@\n\"\321 >\205~\322 >\205~\323\f\324 >\203\217\325 >\203\217\326\202\226\325 >\205\226\326Q*\207" [table-row attr info borders contents :type get-text-property 0 plist-get standard mapconcat identity :attr_groff :parent " " org-export-table-cell-borders nil top above "_\n" bottom below "\n_"] 10 (#$ . 48705)]) #@112 Transcode a TARGET object from Org to Groff. CONTENTS is nil. INFO is a plist holding contextual information. (defalias 'org-groff-target #[(target contents info) "\302\303\304 \"\"\207" [target info format "\\fI%s\\fP" org-export-get-reference] 5 (#$ . 49486)]) #@115 Transcode a TIMESTAMP object from Org to Groff. CONTENTS is nil. INFO is a plist holding contextual information. (defalias 'org-groff-timestamp #[(timestamp contents info) "\306\307! \"\310\211;\203\311\312#\266\202\202 \313A@\"\266\202\211\314\267\2025\315\f\n\"\202:\315 \n\"\202:\315\n\"*\207" [timestamp info value #1=#:temp org-groff-active-timestamp-format org-groff-inactive-timestamp-format org-groff-plain-text org-timestamp-translate :type get-text-property 0 plist-get #s(hash-table size 4 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (active 39 active-range 39 inactive 46 inactive-range 46)) format org-groff-diary-timestamp-format] 7 (#$ . 49758)]) #@133 Transcode UNDERLINE from Org to Groff. CONTENTS is the text with underline markup. INFO is a plist holding contextual information. (defalias 'org-groff-underline #[(underline contents info) "\301\302\"\207" [contents org-groff--text-markup underline] 3 (#$ . 50464)]) #@115 Transcode a VERBATIM object from Org to Groff. CONTENTS is nil. INFO is a plist used as a communication channel. (defalias 'org-groff-verbatim #[(verbatim contents info) "\301\302\211;\203\303\304#\266\202\202\305A@\"\266\202\300\"\207" [verbatim org-groff--text-markup :value get-text-property 0 plist-get] 7 (#$ . 50741)]) #@134 Transcode a VERSE-BLOCK element from Org to Groff. CONTENTS is verse block contents. INFO is a plist holding contextual information. (defalias 'org-groff-verse-block #[(verse-block contents info) "\301\302\"\207" [contents format ".DS C\n.ft HI\n%s\n.ft\n.DE"] 3 (#$ . 51083)]) #@728 Export current buffer to a Groff 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. 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-groff-export-to-groff #[(&optional async subtreep visible-only body-only ext-plist) "\306\307\"\310\211\311\312 \f  \f&+\207" [subtreep org-groff-special-content org-groff-registered-references outfile async visible-only org-export-output-file-name ".groff" nil org-export-to-file groff body-only ext-plist] 8 (#$ . 51369) nil]) #@746 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. 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-groff-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 ".groff" org-export-to-file groff #[(file) "\301!\207" [file org-groff-compile] 2]] 9 (#$ . 52455) nil]) #@209 Compile a Groff file. FILE is the name of the file being compiled. Processing is done through the command specified in `org-groff-pdf-process'. Return PDF file name or an error if it couldn't be produced. (defalias 'org-groff-compile #[(file) "\306\307!!\310!\311!\312 \313!\203\311\n!\202 \314)\315\316\317\"!\210\320 *\321\216\322+!\203@+\323!!\210\202_+:\203[\324\325!,\326\327+\"\210\330,!))\202_\331\332!\210 \333Q-\334-!\203\200\335\336\337\340-!8\341\342#\336\f\341\342#\"\203\225\331\316\343-\")\205\217\344)PP!\210\202\330.\203\306/\3140\2111\203\3051@0 \3450R\334!\203\273\346!\210)1A\2111\204\245*\315\347)\204\321\345\202\325\350)PP!\210-. \207" [file base-name full-name out-dir time default-directory file-name-sans-extension file-name-nondirectory file-truename file-name-directory current-time file-name-absolute-p nil message format "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-groff-collect-errors error "No valid command to process to PDF" ".pdf" file-exists-p time-less-p cl-subseq 5 file-attributes 0 2 "PDF file %s wasn't produced" ": " "." delete-file "Process completed" " with errors: " errors #1# org-groff-pdf-process outbuf pdffile org-groff-remove-logfiles org-groff-logfiles-extensions ext --dolist-tail--] 7 (#$ . 53537)]) #@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-groff-collect-errors #[(buffer) "rq\210\212db\210*\301\207" [buffer nil] 1 (#$ . 55246)]) (provide 'ox-groff)