|
@@ -952,11 +952,6 @@ INFO is a plist used as a communication channel."
|
|
|
|
|
|
;;; Transcode Functions
|
|
|
|
|
|
-;;;; Babel Call
|
|
|
-
|
|
|
-;; Babel Calls are ignored.
|
|
|
-
|
|
|
-
|
|
|
;;;; Bold
|
|
|
|
|
|
(defun org-e-ascii-bold (bold contents info)
|
|
@@ -1003,16 +998,6 @@ information."
|
|
|
(format org-e-ascii-verbatim-format (org-element-property :value code)))
|
|
|
|
|
|
|
|
|
-;;;; Comment
|
|
|
-
|
|
|
-;; Comments are ignored.
|
|
|
-
|
|
|
-
|
|
|
-;;;; Comment Block
|
|
|
-
|
|
|
-;; Comment Blocks are ignored.
|
|
|
-
|
|
|
-
|
|
|
;;;; Drawer
|
|
|
|
|
|
(defun org-e-ascii-drawer (drawer contents info)
|
|
@@ -1164,11 +1149,6 @@ information."
|
|
|
text-width 'center)))
|
|
|
|
|
|
|
|
|
-;;;; Inline Babel Call
|
|
|
-
|
|
|
-;; Inline Babel Calls are ignored.
|
|
|
-
|
|
|
-
|
|
|
;;;; Inline Src Block
|
|
|
|
|
|
(defun org-e-ascii-inline-src-block (inline-src-block contents info)
|
|
@@ -1231,6 +1211,7 @@ holding contextual information."
|
|
|
org-e-ascii-inner-margin)
|
|
|
(org-e-ascii--current-text-width inlinetask info)))))))
|
|
|
|
|
|
+
|
|
|
;;;; Italic
|
|
|
|
|
|
(defun org-e-ascii-italic (italic contents info)
|
|
@@ -1451,11 +1432,6 @@ channel."
|
|
|
" "))
|
|
|
|
|
|
|
|
|
-;;;; Property Drawer
|
|
|
-;;
|
|
|
-;; Property drawers are ignored.
|
|
|
-
|
|
|
-
|
|
|
;;;; Quote Block
|
|
|
|
|
|
(defun org-e-ascii-quote-block (quote-block contents info)
|
|
@@ -1496,6 +1472,7 @@ CONTENTS is the contents of the target. INFO is a plist holding
|
|
|
contextual information."
|
|
|
contents)
|
|
|
|
|
|
+
|
|
|
;;;; Section
|
|
|
|
|
|
(defun org-e-ascii-section (section contents info)
|
|
@@ -1541,6 +1518,7 @@ contextual information."
|
|
|
(when (and caption (not org-e-ascii-caption-above))
|
|
|
(concat "\n" caption)))))
|
|
|
|
|
|
+
|
|
|
;;;; Statistics Cookie
|
|
|
|
|
|
(defun org-e-ascii-statistics-cookie (statistics-cookie contents info)
|
|
@@ -1723,20 +1701,12 @@ a communication channel."
|
|
|
(funcall build-hline "+" "-" "+" "+")))))))
|
|
|
|
|
|
|
|
|
-;;;; Target
|
|
|
-
|
|
|
-;; Targets are invisible.
|
|
|
-
|
|
|
-
|
|
|
;;;; Timestamp
|
|
|
|
|
|
(defun org-e-ascii-timestamp (timestamp contents info)
|
|
|
"Transcode a TIMESTAMP object from Org to ASCII.
|
|
|
CONTENTS is nil. INFO is a plist holding contextual information."
|
|
|
- (let ((value (org-translate-time
|
|
|
- (org-element-property :raw-value timestamp))))
|
|
|
- (if (not (eq (plist-get info :ascii-charset) 'utf-8)) value
|
|
|
- (replace-regexp-in-string "--" "–" value))))
|
|
|
+ (org-e-ascii-plain-text (org-export-translate-timestamp timestamp) info))
|
|
|
|
|
|
|
|
|
;;;; Underline
|
|
@@ -1768,6 +1738,7 @@ contextual information."
|
|
|
(org-e-ascii--justify-string contents verse-width 'left)
|
|
|
org-e-ascii-quote-margin)))
|
|
|
|
|
|
+
|
|
|
|
|
|
;;; Filters
|
|
|
|