diff --git a/contrib/lisp/org-e-ascii.el b/contrib/lisp/org-e-ascii.el index f7dd88c8a..d6bc1588c 100644 --- a/contrib/lisp/org-e-ascii.el +++ b/contrib/lisp/org-e-ascii.el @@ -39,8 +39,6 @@ (declare-function org-element-normalize-string "org-element" (s)) (declare-function org-element-map "org-element" (data types fun &optional info first-match)) -(declare-function org-element-time-stamp-interpreter - "org-element" (time-stamp contents)) (declare-function org-export-collect-footnote-definitions "org-export" (data info)) @@ -1753,12 +1751,12 @@ a communication channel." ;; Targets are invisible. -;;;; Time-stamp +;;;; Timestamp -(defun org-e-ascii-time-stamp (time-stamp contents info) - "Transcode a TIME-STAMP object from Org to ASCII. +(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." - (org-translate-time (org-element-property :value time-stamp))) + (org-translate-time (org-element-property :value timestamp))) ;;;; Underline diff --git a/contrib/lisp/org-e-html.el b/contrib/lisp/org-e-html.el index e18ac7e51..20a7c67f3 100644 --- a/contrib/lisp/org-e-html.el +++ b/contrib/lisp/org-e-html.el @@ -582,7 +582,7 @@ CSS classes, then this prefix can be very useful." :group 'org-export-e-html :type 'string) -;;;; Time-stamps +;;;; Timestamps ;;;; Statistics Cookie ;;;; Subscript ;;;; Superscript @@ -785,7 +785,7 @@ When nil, also column one will use data tags." ;;;; Target -;;;; Time-stamp +;;;; Timestamp ;;;; Verbatim ;;;; Verse Block @@ -895,20 +895,20 @@ returned as-is." :type 'string) -;;;; Time-stamps +;;;; Timestamps (defcustom org-e-html-active-timestamp-format "\\textit{%s}" - "A printf format string to be applied to active time-stamps." + "A printf format string to be applied to active timestamps." :group 'org-export-e-html :type 'string) (defcustom org-e-html-inactive-timestamp-format "\\textit{%s}" - "A printf format string to be applied to inactive time-stamps." + "A printf format string to be applied to inactive timestamps." :group 'org-export-e-html :type 'string) (defcustom org-e-html-diary-timestamp-format "\\textit{%s}" - "A printf format string to be applied to diary time-stamps." + "A printf format string to be applied to diary timestamps." :group 'org-export-e-html :type 'string) @@ -2978,13 +2978,13 @@ information." (format "" id id))) -;;;; Time-stamp +;;;; Timestamp -(defun org-e-html-time-stamp (time-stamp contents info) - "Transcode a TIME-STAMP object from Org to HTML. +(defun org-e-html-timestamp (timestamp contents info) + "Transcode a TIMESTAMP object from Org to HTML. CONTENTS is nil. INFO is a plist holding contextual information." - (let ((value (org-translate-time (org-element-property :value time-stamp)))) + (let ((value (org-translate-time (org-element-property :value timestamp)))) (format "%s" value))) diff --git a/contrib/lisp/org-e-latex.el b/contrib/lisp/org-e-latex.el index 7bfb7c518..a2d976fc6 100644 --- a/contrib/lisp/org-e-latex.el +++ b/contrib/lisp/org-e-latex.el @@ -298,20 +298,20 @@ order to reproduce the default set-up: :type 'string) -;;;; Time-stamps +;;;; Timestamps (defcustom org-e-latex-active-timestamp-format "\\textit{%s}" - "A printf format string to be applied to active time-stamps." + "A printf format string to be applied to active timestamps." :group 'org-export-e-latex :type 'string) (defcustom org-e-latex-inactive-timestamp-format "\\textit{%s}" - "A printf format string to be applied to inactive time-stamps." + "A printf format string to be applied to inactive timestamps." :group 'org-export-e-latex :type 'string) (defcustom org-e-latex-diary-timestamp-format "\\textit{%s}" - "A printf format string to be applied to diary time-stamps." + "A printf format string to be applied to diary timestamps." :group 'org-export-e-latex :type 'string) @@ -2157,14 +2157,14 @@ information." (org-export-solidify-link-text (org-element-property :value target)))) -;;;; Time-stamp +;;;; Timestamp -(defun org-e-latex-time-stamp (time-stamp contents info) - "Transcode a TIME-STAMP object from Org to LaTeX. +(defun org-e-latex-timestamp (timestamp contents info) + "Transcode a TIMESTAMP object from Org to LaTeX. CONTENTS is nil. INFO is a plist holding contextual information." - (let ((value (org-translate-time (org-element-property :value time-stamp))) - (type (org-element-property :type time-stamp))) + (let ((value (org-translate-time (org-element-property :value timestamp))) + (type (org-element-property :type timestamp))) (cond ((memq type '(active active-range)) (format org-e-latex-active-timestamp-format value)) ((memq type '(inactive inactive-range)) diff --git a/contrib/lisp/org-e-odt.el b/contrib/lisp/org-e-odt.el index 5e75702c0..f949f9e22 100644 --- a/contrib/lisp/org-e-odt.el +++ b/contrib/lisp/org-e-odt.el @@ -2280,7 +2280,7 @@ configuration." ;;;; Tags -;;;; Time-stamps +;;;; Timestamps ;;;; Statistics Cookie ;;;; Subscript ;;;; Superscript @@ -2327,7 +2327,7 @@ configuration." ;;;; Table ;;;; Target -;;;; Time-stamp +;;;; Timestamp ;;;; Verbatim ;;;; Verse Block @@ -2378,20 +2378,20 @@ order to reproduce the default set-up: ;;;; Footnotes -;;;; Time-stamps +;;;; Timestamps (defcustom org-e-odt-active-timestamp-format "\\textit{%s}" - "A printf format string to be applied to active time-stamps." + "A printf format string to be applied to active timestamps." :group 'org-export-e-odt :type 'string) (defcustom org-e-odt-inactive-timestamp-format "\\textit{%s}" - "A printf format string to be applied to inactive time-stamps." + "A printf format string to be applied to inactive timestamps." :group 'org-export-e-odt :type 'string) (defcustom org-e-odt-diary-timestamp-format "\\textit{%s}" - "A printf format string to be applied to diary time-stamps." + "A printf format string to be applied to diary timestamps." :group 'org-export-e-odt :type 'string) @@ -4146,15 +4146,15 @@ information." "" (org-export-solidify-link-text (org-element-property :value target)))) -;;;; Time-stamp +;;;; Timestamp -(defun org-e-odt-time-stamp (time-stamp contents info) - "Transcode a TIME-STAMP object from Org to HTML. +(defun org-e-odt-timestamp (timestamp contents info) + "Transcode a TIMESTAMP object from Org to HTML. CONTENTS is nil. INFO is a plist used as a communication channel." (org-e-odt-format-fontify (org-e-odt-format-fontify - (org-translate-time (org-element-property :value time-stamp)) + (org-translate-time (org-element-property :value timestamp)) "timestamp") "timestamp-wrapper")) diff --git a/contrib/lisp/org-element.el b/contrib/lisp/org-element.el index 8e090500b..c48722e89 100644 --- a/contrib/lisp/org-element.el +++ b/contrib/lisp/org-element.el @@ -56,7 +56,7 @@ ;; `inline-babel-call', `inline-src-block', `italic', ;; `latex-fragment', `line-break', `link', `macro', `radio-target', ;; `statistics-cookie', `strike-through', `subscript', `superscript', -;; `table-cell', `target', `time-stamp', `underline' and `verbatim'. +;; `table-cell', `target', `timestamp', `underline' and `verbatim'. ;; ;; Some elements also have special properties whose value can hold ;; objects themselves (i.e. an item tag or an headline name). Such @@ -2678,15 +2678,15 @@ beginning position." (cons 'target (match-beginning 0))))) -;;;; Time-stamp +;;;; Timestamp -(defun org-element-time-stamp-parser () +(defun org-element-timestamp-parser () "Parse time stamp at point. -Return a list whose CAR is `time-stamp', and CDR a plist with +Return a list whose CAR is `timestamp', and CDR a plist with `:type', `:begin', `:end', `:value' and `:post-blank' keywords. -Assume point is at the beginning of the time-stamp." +Assume point is at the beginning of the timestamp." (save-excursion (let* ((begin (point)) (type (cond @@ -2704,24 +2704,24 @@ Assume point is at the beginning of the time-stamp." (post-blank (progn (goto-char (match-end 0)) (skip-chars-forward " \t"))) (end (point))) - `(time-stamp + `(timestamp (:type ,type :value ,value :begin ,begin :end ,end :post-blank ,post-blank))))) -(defun org-element-time-stamp-interpreter (time-stamp contents) - "Interpret TIME-STAMP object as Org syntax. +(defun org-element-timestamp-interpreter (timestamp contents) + "Interpret TIMESTAMP object as Org syntax. CONTENTS is nil." - (org-element-property :value time-stamp)) + (org-element-property :value timestamp)) -(defun org-element-time-stamp-successor (limit) - "Search for the next time-stamp object. +(defun org-element-timestamp-successor (limit) + "Search for the next timestamp object. LIMIT bounds the search. -Return value is a cons cell whose CAR is `time-stamp' and CDR is +Return value is a cons cell whose CAR is `timestamp' and CDR is beginning position." (save-excursion (when (re-search-forward @@ -2731,7 +2731,7 @@ beginning position." "\\|" "\\(?:<%%\\(?:([^>\n]+)\\)>\\)") limit t) - (cons 'time-stamp (match-beginning 0))))) + (cons 'timestamp (match-beginning 0))))) ;;;; Underline @@ -2846,7 +2846,7 @@ CONTENTS is nil." '(export-snippet footnote-reference inline-babel-call inline-src-block latex-or-entity line-break link macro radio-target statistics-cookie sub/superscript table-cell target - text-markup time-stamp) + text-markup timestamp) "Complete list of successors.") (defconst org-element-object-successor-alist @@ -2864,7 +2864,7 @@ regexp matching one object can also match the other object.") '(bold code entity export-snippet footnote-reference inline-babel-call inline-src-block italic line-break latex-fragment link macro radio-target statistics-cookie strike-through subscript superscript - table-cell target time-stamp underline verbatim) + table-cell target timestamp underline verbatim) "Complete list of object types.") (defconst org-element-recursive-objects @@ -2931,18 +2931,18 @@ This list is checked after translations have been applied. See (defconst org-element-object-restrictions `((bold entity export-snippet inline-babel-call inline-src-block link - radio-target sub/superscript target text-markup time-stamp) + radio-target sub/superscript target text-markup timestamp) (footnote-reference entity export-snippet footnote-reference inline-babel-call inline-src-block latex-fragment line-break link macro radio-target sub/superscript - target text-markup time-stamp) + target text-markup timestamp) (headline entity inline-babel-call inline-src-block latex-fragment link macro radio-target statistics-cookie sub/superscript text-markup - time-stamp) + timestamp) (inlinetask entity inline-babel-call inline-src-block latex-fragment link - macro radio-target sub/superscript text-markup time-stamp) + macro radio-target sub/superscript text-markup timestamp) (italic entity export-snippet inline-babel-call inline-src-block link - radio-target sub/superscript target text-markup time-stamp) + radio-target sub/superscript target text-markup timestamp) (item entity inline-babel-call latex-fragment macro radio-target sub/superscript target text-markup) (keyword entity latex-fragment macro sub/superscript text-markup) @@ -2953,19 +2953,19 @@ This list is checked after translations have been applied. See (radio-target entity export-snippet latex-fragment sub/superscript) (strike-through entity export-snippet inline-babel-call inline-src-block link radio-target sub/superscript target text-markup - time-stamp) + timestamp) (subscript entity export-snippet inline-babel-call inline-src-block latex-fragment sub/superscript text-markup) (superscript entity export-snippet inline-babel-call inline-src-block latex-fragment sub/superscript text-markup) (table-cell entity export-snippet latex-fragment link macro radio-target - sub/superscript target text-markup time-stamp) + sub/superscript target text-markup timestamp) (table-row table-cell) (underline entity export-snippet inline-babel-call inline-src-block link - radio-target sub/superscript target text-markup time-stamp) + radio-target sub/superscript target text-markup timestamp) (verse-block entity footnote-reference inline-babel-call inline-src-block latex-fragment line-break link macro radio-target - sub/superscript target text-markup time-stamp)) + sub/superscript target text-markup timestamp)) "Alist of objects restrictions. CAR is an element or object type containing objects and CDR is diff --git a/contrib/lisp/org-export.el b/contrib/lisp/org-export.el index 19a0f2d7c..ba48c2d27 100644 --- a/contrib/lisp/org-export.el +++ b/contrib/lisp/org-export.el @@ -229,7 +229,7 @@ way they are handled must be hard-coded into (:filter-table-cell . org-export-filter-table-cell-functions) (:filter-table-row . org-export-filter-table-row-functions) (:filter-target . org-export-filter-target-functions) - (:filter-time-stamp . org-export-filter-time-stamp-functions) + (:filter-timestamp . org-export-filter-timestamp-functions) (:filter-underline . org-export-filter-underline-functions) (:filter-verbatim . org-export-filter-verbatim-functions) (:filter-verse-block . org-export-filter-verse-block-functions)) @@ -1486,8 +1486,8 @@ OPTIONS is the plist holding export options." (and (memq with-tasks '(todo done)) (not (eq todo-type with-tasks))) (and (consp with-tasks) (not (member todo with-tasks)))))))) - ;; Check time-stamp. - (time-stamp (not (plist-get options :with-timestamps))) + ;; Check timestamp. + (timestamp (not (plist-get options :with-timestamps))) ;; Check drawer. (drawer (or (not (plist-get options :with-drawers)) @@ -2049,8 +2049,8 @@ Each filter is called with three arguments: the transcoded data, as a string, the back-end, as a symbol, and the communication channel, as a plist. It must return a string or nil.") -(defvar org-export-filter-time-stamp-functions nil - "List of functions applied to a transcoded time-stamp. +(defvar org-export-filter-timestamp-functions nil + "List of functions applied to a transcoded timestamp. Each filter is called with three arguments: the transcoded data, as a string, the back-end, as a symbol, and the communication channel, as a plist. It must return a string or nil.")