mirrors/org-mode
0
0
Fork 1
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-09-29 18:36:26 +00:00
Code Releases Activity

org-e-ascii: Center shortened horizontal rules

Browse source 
* contrib/lisp/org-e-ascii.el (org-e-ascii-horizontal-rule): Center
  shortened horizontal rules.
This commit is contained in:
Nicolas Goaziou 2012-07-25 12:55:00 +02:00
parent 3df18bef9f
commit b6b40424d2
1 changed files with 17 additions and 11 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

28
contrib/lisp/org-e-ascii.el
View file

@ -19,16 +19,19 @@
;; along with this program. If not, see <http://www.gnu.org/licenses/>.
;;; Commentary:
;;
;; This library implements an ASCII back-end for Org generic exporter.
;; To test it, run
;;
;; M-: (org-export-to-buffer 'e-ascii "*Test e-ASCII*") RET
;; It provides two commands for export, depending on the desired
;; output: `org-e-ascii-export-as-ascii' (temporary buffer) and
;; `org-e-ascii-export-to-ascii' ("txt" file).
;;
;; in an Org mode buffer then switch to that buffer to see the ASCII
;; export. See contrib/lisp/org-export.el for more details on how
;; this exporter works.
;; Output encoding is specified through `org-e-ascii-charset'
;; variable, among `ascii', `latin1' and `utf-8' symbols.
;;
;; By default, horizontal rules span over the full text with, but with
;; a given width attribute (set though #+ATTR_ASCII: :width <num>)
;; they can be shortened and centered.
;;; Code:
@ -1086,10 +1089,13 @@ holding contextual information."
"Transcode an HORIZONTAL-RULE object from Org to ASCII.
CONTENTS is nil. INFO is a plist holding contextual
information."
(let ((width (org-export-read-attribute :attr_ascii horizontal-rule :width)))
(make-string (or (and (wholenump width) width)
(org-e-ascii--current-text-width horizontal-rule info))
(if (eq (plist-get info :ascii-charset) 'utf-8) ?― ?-))))
(let ((text-width (org-e-ascii--current-text-width horizontal-rule info))
(spec-width
(org-export-read-attribute :attr_ascii horizontal-rule :width)))
(org-e-ascii--justify-string
(make-string (if (wholenump spec-width) spec-width text-width)
(if (eq (plist-get info :ascii-charset) 'utf-8) ?― ?-))
text-width 'center)))
;;;; Inline Babel Call