diff options
Diffstat (limited to 'lisp/org/ox-man.el')
| -rw-r--r-- | lisp/org/ox-man.el | 32 |
1 files changed, 16 insertions, 16 deletions
diff --git a/lisp/org/ox-man.el b/lisp/org/ox-man.el index 27d2dedb8ed..6d3476cdae5 100644 --- a/lisp/org/ox-man.el +++ b/lisp/org/ox-man.el @@ -186,7 +186,7 @@ When nil, no transformation is made." (ldap "ldap") (opa "opa") (php "php") (postscript "postscript") (prolog "prolog") (properties "properties") (makefile "makefile") - (tml "tml") (vala "vala") (vbscript "vbscript") (xorg "xorg")) + (tml "tml") (vbscript "vbscript") (xorg "xorg")) "Alist mapping languages to their listing language counterpart. The key is a symbol, the major mode symbol without the \"-mode\". The value is the string that should be inserted as the language @@ -301,12 +301,12 @@ CONTENTS is the transcoded contents string. INFO is a plist holding export options." (let* ((title (when (plist-get info :with-title) (org-export-data (plist-get info :title) info))) - (attr (read (format "(%s)" - (mapconcat - #'identity - (list (plist-get info :man-class-options)) - " ")))) - (section-item (plist-get attr :section-id))) + (attr (read (format "(%s)" + (mapconcat + #'identity + (list (plist-get info :man-class-options)) + " ")))) + (section-item (plist-get attr :section-id))) (concat @@ -365,9 +365,9 @@ holding contextual information." (defun org-man-drawer (_drawer contents _info) "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. " +DRAWER holds the drawer information +CONTENTS holds the contents of the block. +INFO is a plist holding contextual information." contents) @@ -825,10 +825,10 @@ contextual information." ;; Case 1: verbatim table. ((or (plist-get info :man-tables-verbatim) (let ((attr (read (format "(%s)" - (mapconcat - #'identity - (org-element-property :attr_man table) - " "))))) + (mapconcat + #'identity + (org-element-property :attr_man table) + " "))))) (and attr (plist-get attr :verbatim)))) @@ -1053,7 +1053,7 @@ contextual information." ;;; Interactive functions (defun org-man-export-to-man - (&optional async subtreep visible-only body-only ext-plist) + (&optional async subtreep visible-only body-only ext-plist) "Export current buffer to a Man file. If narrowing is active in the current buffer, only export its @@ -1086,7 +1086,7 @@ Return output file's name." async subtreep visible-only body-only ext-plist))) (defun org-man-export-to-pdf - (&optional async subtreep visible-only body-only ext-plist) + (&optional async subtreep visible-only body-only ext-plist) "Export current buffer to Groff then process through to PDF. If narrowing is active in the current buffer, only export its |