[elpa] externals/denote 4c7bfe26bc 3/5: Make date format functions public

[ELPA Syncer]

branch: externals/denote
commit 4c7bfe26bcb109ae4333ebd1b042de5d77ed051e
Author: Protesilaos Stavrou <info@protesilaos.com>
Commit: Protesilaos Stavrou <info@protesilaos.com>

    Make date format functions public
    
    Also see commit dec6367.
    
    Relevant thread on the GitHub mirror issue 86:
    <https://github.com/protesilaos/denote/issues/86>.
---
 README.org | 12 ++++++++++++
 denote.el  | 35 +++++++++++++++++++++++++----------
 2 files changed, 37 insertions(+), 10 deletions(-)

diff --git a/README.org b/README.org
index 1f29682f85..6b8f0457c6 100644
--- a/README.org
+++ b/README.org
@@ -2705,6 +2705,18 @@ might change them without further notice.
   quotes.  This can be used in ~denote-file-types~ to format front
   mattter.
 
+#+findex: denote-date-org-timestamp
++ Function ~denote-date-org-timestamp~ :: Format =DATE= using the Org
+  inactive timestamp notation.  [This function is part of 
{{{development-version}}}.]
+
+#+findex: denote-date-rfc3339
++ Function ~denote-date-rfc3339~ :: Format =DATE= using the RFC3339
+  specification.  [This function is part of {{{development-version}}}.]
+
+#+findex: denote-date-iso-8601
++ Function ~denote-date-iso-8601~ :: Format =DATE= according to ISO
+  8601 standard.  [This function is part of {{{development-version}}}.]
+
 #+findex: denote-trim-whitespace
 + Function ~denote-trim-whitespace~ :: Trim whitespace around string
   =S=.  This can be used in ~denote-file-types~ to format front
diff --git a/denote.el b/denote.el
index 40a0855694..7eac8ac98b 100644
--- a/denote.el
+++ b/denote.el
@@ -876,7 +876,7 @@ Consult the `denote-file-types' for how this is used."
 (defvar denote-file-types
   '((org
      :extension ".org"
-     :date-function denote--date-org-timestamp
+     :date-function denote-date-org-timestamp
      :front-matter denote-org-front-matter
      :title-key-regexp "^#\\+title\\s-*:"
      :title-value-function identity
@@ -886,7 +886,7 @@ Consult the `denote-file-types' for how this is used."
      :keywords-value-reverse-function 
denote-extract-keywords-from-front-matter)
     (markdown-yaml
      :extension ".md"
-     :date-function denote--date-rfc3339
+     :date-function denote-date-rfc3339
      :front-matter denote-yaml-front-matter
      :title-key-regexp "^title\\s-*:"
      :title-value-function denote-surround-with-quotes
@@ -896,7 +896,7 @@ Consult the `denote-file-types' for how this is used."
      :keywords-value-reverse-function 
denote-extract-keywords-from-front-matter)
     (markdown-toml
      :extension ".md"
-     :date-function denote--date-rfc3339
+     :date-function denote-date-rfc3339
      :front-matter denote-toml-front-matter
      :title-key-regexp "^title\\s-*="
      :title-value-function denote-surround-with-quotes
@@ -906,7 +906,7 @@ Consult the `denote-file-types' for how this is used."
      :keywords-value-reverse-function 
denote-extract-keywords-from-front-matter)
     (text
      :extension ".txt"
-     :date-function denote--date-iso-8601
+     :date-function denote-date-iso-8601
      :front-matter denote-text-front-matter
      :title-key-regexp "^title\\s-*:"
      :title-value-function identity
@@ -925,8 +925,8 @@ PROPERTY-LIST is a plist that consists of 8 elements:
   including the period.
 
 - `:date-function' is a function that can format a date.  See the
-  functions `denote--date-iso-8601', `denote--date-rfc3339', and
-  `denote--date-org-timestamp'.
+  functions `denote-date-iso-8601', `denote-date-rfc3339', and
+  `denote-date-org-timestamp'.
 
 - `:front-matter' which is either a string passed to `format' or
   a variable holding such a string.  The `format' function
@@ -1277,20 +1277,35 @@ provided by `denote'.  FILETYPE is one of the values of
 
 ;; Adapted from `org-hugo--org-date-time-to-rfc3339' in the `ox-hugo'
 ;; package: <https://github.com/kaushalmodi/ox-hugo>.
-(defun denote--date-rfc3339 (date)
+(defun denote-date-rfc3339 (date)
   "Format DATE using the RFC3339 specification."
   (replace-regexp-in-string
    "\\([0-9]\\{2\\}\\)\\([0-9]\\{2\\}\\)\\'" "\\1:\\2"
    (format-time-string "%FT%T%z" date)))
 
-(defun denote--date-org-timestamp (date)
+(define-obsolete-function-alias
+  'denote--date-rfc3339
+  'denote-date-rfc3339
+  "1.2.0")
+
+(defun denote-date-org-timestamp (date)
   "Format DATE using the Org inactive timestamp notation."
   (format-time-string "[%F %a %R]" date))
 
-(defun denote--date-iso-8601 (date)
+(define-obsolete-function-alias
+  'denote--date-org-timestamp
+  'denote-date-org-timestamp
+  "1.2.0")
+
+(defun denote-date-iso-8601 (date)
   "Format DATE according to ISO 8601 standard."
   (format-time-string "%F" date))
 
+(define-obsolete-function-alias
+  'denote--date-iso-8601
+  'denote-date-iso-8601
+  "1.2.0")
+
 (defun denote--date (date file-type)
   "Expand DATE in an appropriate format for FILE-TYPE."
   (let ((format denote-date-format))
@@ -1300,7 +1315,7 @@ provided by `denote'.  FILETYPE is one of the values of
      ((when-let ((fn (denote--date-format-function file-type)))
         (funcall fn date)))
      (t
-      (denote--date-org-timestamp date)))))
+      (denote-date-org-timestamp date)))))
 
 (defun denote--prepare-note (title keywords date id directory file-type 
template)
   "Prepare a new note file.