Acknowledge kimsaram32 for commit 840ca21

This was done in pull request 728: <https://github.com/protesilaos/denote/pull/728>.
The change is small, meaning that its author does not need to assign
copyright to the Free Software Foundation.

COPYING

@@ -632,7 +632,7 @@ state the exclusion of warranty; and each file should have at least
 the "copyright" line and a pointer to where the full notice is found.
 
     <one line to give the program's name and a brief idea of what it does.>
-    Copyright (C) 2021  Protesilaos Stavrou
+    Copyright (C) 2021  Protesilaos
 
     This program is free software: you can redistribute it and/or modify
     it under the terms of the GNU General Public License as published by
@@ -652,7 +652,7 @@ Also add information on how to contact you by electronic and paper mail.
   If the program does terminal interaction, make it output a short
 notice like this when it starts in an interactive mode:
 
-    <program>  Copyright (C) 2021  Protesilaos Stavrou
+    <program>  Copyright (C) 2021  Protesilaos
     This program comes with ABSOLUTELY NO WARRANTY; for details type `show w'.
     This is free software, and you are welcome to redistribute it
     under certain conditions; type `show c' for details.

README.md

@@ -1,5 +1,10 @@
 # denote: Simple notes with an efficient file-naming scheme
 
+New to Denote? Start reading this from the manual:
+<https://protesilaos.com/emacs/denote#h:c54bedb4-5377-4dbd-853c-5870ace6eb33>.
+
+* * *
+
 Denote is a simple note-taking tool for Emacs.  It is based on the idea
 that notes should follow a predictable and descriptive file-naming
 scheme.  The file name must offer a clear indication of what the note is

denote-journal-extras.el

@@ -1,252 +0,0 @@
-;;; denote-journal-extras.el --- Convenience functions for daily journaling  -*- lexical-binding: t; -*-
-
-;; Copyright (C) 2023-2024  Free Software Foundation, Inc.
-
-;; Author: Protesilaos Stavrou <info@protesilaos.com>
-;; Maintainer: Protesilaos Stavrou <info@protesilaos.com>
-;; URL: https://github.com/protesilaos/denote
-
-;; This file is NOT part of GNU Emacs.
-
-;; This program is free software; you can redistribute it and/or modify
-;; it under the terms of the GNU General Public License as published by
-;; the Free Software Foundation, either version 3 of the License, or
-;; (at your option) any later version.
-
-;; This program is distributed in the hope that it will be useful,
-;; but WITHOUT ANY WARRANTY; without even the implied warranty of
-;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-;; GNU General Public License for more details.
-
-;; You should have received a copy of the GNU General Public License
-;; along with this program.  If not, see <https://www.gnu.org/licenses/>.
-
-;;; Commentary:
-
-;; This is a set of optional convenience functions that used to be
-;; provided in the Denote manual.  They facilitate the use of Denote
-;; for daily journaling.
-
-;;; Code:
-
-(require 'denote)
-
-(defgroup denote-journal-extras nil
-  "Denote for daily journaling."
-  :group 'denote
-  :link '(info-link "(denote) Top")
-  :link '(url-link :tag "Homepage" "https://protesilaos.com/emacs/denote"))
-
-(defcustom denote-journal-extras-directory
-  (expand-file-name "journal" denote-directory)
-  "Directory for storing daily journal entries.
-This can either be the same as the variable `denote-directory' or
-a subdirectory of it.
-
-A value of nil means to use the variable `denote-directory'.
-Journal entries will thus be in a flat listing together with all
-other notes.  They can still be retrieved easily by searching for
-the `denote-journal-extras-keyword'."
-  :group 'denote-journal-extras
-  :type '(choice (directory :tag "Provide directory path (is created if missing)")
-                 (const :tag "Use the `denote-directory'" nil)))
-
-(defcustom denote-journal-extras-keyword "journal"
-  "Single word keyword to tag journal entries.
-It is used by `denote-journal-extras-new-entry' to add a keyword
-to the newly created file."
-  :group 'denote-journal-extras
-  :type 'string)
-
-(defcustom denote-journal-extras-title-format 'day-date-month-year-24h
-  "Date format to construct the title with `denote-journal-extras-new-entry'.
-The value is either a symbol or an arbitrary string that is
-passed to `format-time-string' (consult its documentation for the
-technicalities).
-
-Acceptable symbols and their corresponding styles are:
-
-| Symbol                  | Style                             |
-|-------------------------+-----------------------------------|
-| day                     | Monday                            |
-| day-date-month-year     | Monday 19 September 2023          |
-| day-date-month-year-24h | Monday 19 September 2023 20:49    |
-| day-date-month-year-12h | Monday 19 September 2023 08:49 PM |
-
-With a nil value, make `denote-journal-extras-new-entry' prompt
-for a title."
-  :group 'denote-journal-extras
-  :type '(choice
-          (const :tag "Prompt for title with `denote-journal-extras-new-entry'" nil)
-          (const :tag "Monday"
-                 :doc "The `format-time-string' is: %A"
-                 day)
-          (const :tag "Monday 19 September 2023"
-                 :doc "The `format-time-string' is: %A %e %B %Y"
-                 day-date-month-year)
-          (const :tag "Monday 19 September 2023 20:49"
-                 :doc "The `format-time-string' is: %A %e %B %Y %H:%M"
-                 day-date-month-year-24h)
-          (const :tag "Monday 19 September 2023 08:49 PM"
-                 :doc "The `format-time-string' is: %A %e %B %Y %I:%M %^p"
-                 day-date-month-year-12h)
-          (string :tag "Custom string with `format-time-string' specifiers")))
-
-(defcustom denote-journal-extras-hook nil
-  "Normal hook called after `denote-journal-extras-new-entry'.
-Use this to, for example, set a timer after starting a new
-journal entry (refer to the `tmr' package on GNU ELPA)."
-  :group 'denote-journal-extras
-  :type 'hook)
-
-(defun denote-journal-extras-directory ()
-  "Make the variable `denote-journal-extras-directory' and its parents."
-  (if-let (((stringp denote-journal-extras-directory))
-           (directory (file-name-as-directory (expand-file-name denote-journal-extras-directory))))
-      (progn
-        (when (not (file-directory-p denote-journal-extras-directory))
-          (make-directory directory :parents))
-        directory)
-    (denote-directory)))
-
-(defun denote-journal-extras-daily--title-format (&optional date)
-  "Return present date in `denote-journal-extras-title-format' or prompt for title.
-With optional DATE, use it instead of the present date.  DATE has
-the same format as that returned by `current-time'."
-  (format-time-string
-   (if (and denote-journal-extras-title-format
-            (stringp denote-journal-extras-title-format))
-       denote-journal-extras-title-format
-     (pcase denote-journal-extras-title-format
-       ('day "%A")
-       ('day-date-month-year "%A %e %B %Y")
-       ('day-date-month-year-24h "%A %e %B %Y %H:%M")
-       ('day-date-month-year-12h "%A %e %B %Y %I:%M %^p")
-       (_ (denote-title-prompt (format-time-string "%F" date)))))
-   date))
-
-(defun denote-journal-extras--get-template ()
-  "Return template that has `journal' key in `denote-templates'.
-If no template with `journal' key exists but `denote-templates'
-is non-nil, prompt the user for a template among
-`denote-templates'.  Else return nil.
-
-Also see `denote-journal-extras-new-entry'."
-  (if-let ((template (alist-get 'journal denote-templates)))
-      template
-    (when denote-templates
-      (denote-template-prompt))))
-
-;;;###autoload
-(defun denote-journal-extras-new-entry (&optional date)
-  "Create a new journal entry in variable `denote-journal-extras-directory'.
-Use `denote-journal-extras-keyword' as a keyword for the newly
-created file.  Set the title of the new entry according to the
-value of the user option `denote-journal-extras-title-format'.
-
-With optional DATE as a prefix argument, prompt for a date.  If
-`denote-date-prompt-use-org-read-date' is non-nil, use the Org
-date selection module.
-
-When called from Lisp DATE is a string and has the same format as
-that covered in the documentation of the `denote' function.  It
-is internally processed by `denote-parse-date'."
-  (interactive (list (when current-prefix-arg (denote-date-prompt))))
-  (let ((internal-date (denote-parse-date date))
-        (denote-directory (denote-journal-extras-directory)))
-    (denote
-     (denote-journal-extras-daily--title-format internal-date)
-     `(,denote-journal-extras-keyword)
-     nil nil date
-     (denote-journal-extras--get-template))
-    (run-hooks 'denote-journal-extras-hook)))
-
-(defun denote-journal-extras--entry-today (&optional date)
-  "Return list of files matching a journal for today or optional DATE.
-DATE has the same format as that returned by `denote-parse-date'."
-  (let* ((identifier (format "%sT[0-9]\\{6\\}" (format-time-string "%Y%m%d" date)))
-         (files (denote-directory-files identifier))
-         (keyword (concat "_" (regexp-quote denote-journal-extras-keyword))))
-    (seq-filter
-     (lambda (file)
-       (string-match-p keyword file))
-     files)))
-
-;;;###autoload
-(defun denote-journal-extras-new-or-existing-entry (&optional date)
-  "Locate an existing journal entry or create a new one.
-A journal entry is one that has `denote-journal-extras-keyword' as
-part of its file name.
-
-If there are multiple journal entries for the current date,
-prompt for one using minibuffer completion.  If there is only
-one, visit it outright.  If there is no journal entry, create one
-by calling `denote-journal-extra-new-entry'.
-
-With optional DATE as a prefix argument, prompt for a date.  If
-`denote-date-prompt-use-org-read-date' is non-nil, use the Org
-date selection module.
-
-When called from Lisp, DATE is a string and has the same format
-as that covered in the documentation of the `denote' function.
-It is internally processed by `denote-parse-date'."
-  (interactive
-   (list
-    (when current-prefix-arg
-      (denote-date-prompt))))
-  (let* ((internal-date (denote-parse-date date))
-         (files (denote-journal-extras--entry-today internal-date)))
-    (cond
-     ((length> files 1)
-      (find-file (completing-read "Select journal entry: " files nil :require-match)))
-     (files
-      (find-file (car files)))
-     (t
-      (denote-journal-extras-new-entry date)))))
-
-;;;###autoload
-(defun denote-journal-extras-link-or-create-entry (&optional date id-only)
-  "Use `denote-link' on journal entry, creating it if necessary.
-A journal entry is one that has `denote-journal-extras-keyword' as
-part of its file name.
-
-If there are multiple journal entries for the current date,
-prompt for one using minibuffer completion.  If there is only
-one, link to it outright.  If there is no journal entry, create one
-by calling `denote-journal-extra-new-entry' and link to it.
-
-With optional DATE as a prefix argument, prompt for a date.  If
-`denote-date-prompt-use-org-read-date' is non-nil, use the Org
-date selection module.
-
-When called from Lisp, DATE is a string and has the same format
-as that covered in the documentation of the `denote' function.
-It is internally processed by `denote-parse-date'.
-
-With optional ID-ONLY as a prefix argument create a link that
-consists of just the identifier.  Else try to also include the
-file's title.  This has the same meaning as in `denote-link'."
-  (interactive
-   (pcase current-prefix-arg
-     ('(16) (list (denote-date-prompt) :id-only))
-     ('(4) (list (denote-date-prompt)))))
-  (let* ((internal-date (denote-parse-date date))
-         (files (denote-journal-extras--entry-today internal-date))
-         (path))
-    (cond
-     ((length> files 1)
-      (setq path (completing-read "Select journal entry: " files nil :require-match)))
-     (files
-      (setq path (car files)))
-     (t
-      (save-window-excursion
-        (denote-journal-extras-new-entry date)
-        (save-buffer)
-        (setq path (buffer-file-name)))))
-    (denote-link path
-                 (denote-filetype-heuristics (buffer-file-name))
-                 (denote--link-get-description path)
-                 id-only)))
-
-(provide 'denote-journal-extras)
-;;; denote-journal-extras.el ends here

denote-org-dblock.el

@@ -1,70 +0,0 @@
-;;; denote-org-dblock.el --- Compatibility alieases for Denote Org Dynamic blocks -*- lexical-binding: t -*-
-
-;; Copyright (C) 2022-2024  Free Software Foundation, Inc.
-
-;; Authors: Elias Storms <elias.storms@gmail.com>,
-;;          Protesilaos Stavrou <info@protesilaos.com>
-;; Maintainer: Protesilaos Stavrou <info@protesilaos.com>
-;; Deprecated-since: 3.0.0
-;; URL: https://github.com/protesilaos/denote
-
-;; This file is NOT part of GNU Emacs.
-
-;; This program is free software; you can redistribute it and/or modify
-;; it under the terms of the GNU General Public License as published by
-;; the Free Software Foundation, either version 3 of the License, or
-;; (at your option) any later version.
-;;
-;; This program is distributed in the hope that it will be useful,
-;; but WITHOUT ANY WARRANTY; without even the implied warranty of
-;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-;; GNU General Public License for more details.
-;;
-;; You should have received a copy of the GNU General Public License
-;; along with this program.  If not, see <https://www.gnu.org/licenses/>.
-
-;;; Commentary:
-;;
-;; This file defines compatibility aliases for Org dynamic blocks set
-;; up by Denote.  The new source of these is the denote-org-extras.el.
-;;
-;; Below is the old commentary.
-;;
-;; * * *
-;;
-;; This file defines Org dynamic blocks using the facility described
-;; in the Org manual.  Evaluate this:
-;;
-;;    (info "(org) Dynamic Blocks")
-;;
-;; The dynamic blocks defined herein are documented at length in the
-;; Denote manual.  See the following node and its subsections:
-;;
-;;    (info "(denote) Use Org dynamic blocks")
-
-;;; Code:
-
-(require 'denote-org-extras)
-
-(define-obsolete-function-alias
-  'denote-org-dblock-insert-links
-  'denote-org-extras-dblock-insert-links
-  "3.0.0")
-
-(define-obsolete-function-alias
-  'denote-org-dblock-insert-backlinks
-  'denote-org-extras-dblock-insert-backlinks
-  "3.0.0")
-
-(define-obsolete-function-alias
-  'denote-org-dblock-insert-files
-  'denote-org-extras-dblock-insert-files
-  "3.0.0")
-
-(display-warning
- 'denote
- "`denote-org-dblock.el' is obsolete; use `denote-org-extras.el'"
- :warning)
-
-(provide 'denote-org-dblock)
-;;; denote-org-dblock.el ends here

denote-org-extras.el

@@ -1,590 +0,0 @@
-;;; denote-org-extras.el --- Denote extensions for Org mode -*- lexical-binding: t -*-
-
-;; Copyright (C) 2024  Free Software Foundation, Inc.
-
-;; Author: Protesilaos Stavrou <info@protesilaos.com>
-;; Maintainer: Protesilaos Stavrou <info@protesilaos.com>
-;; URL: https://github.com/protesilaos/denote
-
-;; This file is NOT part of GNU Emacs.
-
-;; This program is free software; you can redistribute it and/or modify
-;; it under the terms of the GNU General Public License as published by
-;; the Free Software Foundation, either version 3 of the License, or
-;; (at your option) any later version.
-;;
-;; This program is distributed in the hope that it will be useful,
-;; but WITHOUT ANY WARRANTY; without even the implied warranty of
-;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-;; GNU General Public License for more details.
-;;
-;; You should have received a copy of the GNU General Public License
-;; along with this program.  If not, see <https://www.gnu.org/licenses/>.
-
-;;; Commentary:
-;;
-;; WORK-IN-PROGRESS
-
-;;; Code:
-
-(require 'denote)
-(require 'denote-sort)
-(require 'org)
-
-;;;; Link to file and heading
-
-(defun denote-org-extras--get-outline (file)
-  "Return `outline-regexp' headings and line numbers of FILE."
-  (with-current-buffer (find-file-noselect file)
-    (let ((outline-regexp (format "^\\(?:%s\\)" (or (bound-and-true-p outline-regexp) "[*\^L]+")))
-          candidates)
-      (save-excursion
-        (goto-char (point-min))
-        (while (if (bound-and-true-p outline-search-function)
-                   (funcall outline-search-function)
-                 (re-search-forward outline-regexp nil t))
-          (push
-           ;; NOTE 2024-01-20: The -5 (minimum width) is a
-           ;; sufficiently high number to keep the alignment
-           ;; consistent in most cases.  Larger files will simply
-           ;; shift the heading text in minibuffer, but this is not an
-           ;; issue anymore.
-           (format "%-5s %s"
-                   (line-number-at-pos (point))
-                   (buffer-substring-no-properties (line-beginning-position) (line-end-position)))
-           candidates)
-          (goto-char (1+ (line-end-position)))))
-      (if candidates
-          (nreverse candidates)
-        (user-error "No outline")))))
-
-(define-obsolete-function-alias
-  'denote-org-extras--outline-prompt
-  'denote-org-extras-outline-prompt
-  "3.1.0")
-
-(defun denote-org-extras-outline-prompt (&optional file)
-  "Prompt for outline among headings retrieved by `denote-org-extras--get-outline'.
-With optional FILE use the outline of it, otherwise use that of
-the current file."
-  (let ((current-file (or file buffer-file-name)))
-    (completing-read
-     (format "Select heading inside `%s': "
-             (propertize (file-name-nondirectory current-file) 'face 'denote-faces-prompt-current-name))
-     (denote--completion-table-no-sort 'imenu (denote-org-extras--get-outline current-file))
-     nil :require-match)))
-
-(defun denote-org-extras--get-heading-and-id-from-line (line file)
-  "Return heading text and CUSTOM_ID from the given LINE in FILE."
-  (with-current-buffer (find-file-noselect file)
-    (save-excursion
-      (goto-char (point-min))
-      (forward-line (1- line))
-      (cons (denote-link-ol-get-heading) (denote-link-ol-get-id)))))
-
-(defun denote-org-extras-format-link-with-heading (file heading-id description)
-  "Prepare link to FILE with HEADING-ID using DESCRIPTION."
-  (when (region-active-p)
-    (setq description (buffer-substring-no-properties (region-beginning) (region-end)))
-    (denote--delete-active-region-content))
-  (format "[[denote:%s::#%s][%s]]"
-          (denote-retrieve-filename-identifier file)
-          heading-id
-          description))
-
-;;;###autoload
-(defun denote-org-extras-link-to-heading ()
-  "Link to file and then specify a heading to extend the link to.
-
-The resulting link has the following pattern:
-
-[[denote:IDENTIFIER::#ORG-HEADING-CUSTOM-ID]][Description::Heading text]].
-
-Because only Org files can have links to individual headings,
-limit the list of possible files to those which include the .org
-file extension (remember that Denote works with many file types,
-per the user option `denote-file-type').
-
-The user option `denote-org-extras-store-link-to-heading'
-determined whether the `org-store-link' function can save a link
-to the current heading.  Such links look the same as those of
-this command, though the functionality defined herein is
-independent of it.
-
-To only link to a file, use the `denote-link' command.
-
-Also see `denote-org-extras-backlinks-for-heading'."
-  (declare (interactive-only t))
-  (interactive nil org-mode)
-  (unless (derived-mode-p 'org-mode)
-    (user-error "Links to headings only work between Org files"))
-  (when-let ((file (denote-file-prompt ".*\\.org"))
-             (file-text (denote--link-get-description file))
-             (heading (denote-org-extras-outline-prompt file))
-             (line (string-to-number (car (split-string heading "\t"))))
-             (heading-data (denote-org-extras--get-heading-and-id-from-line line file))
-             (heading-text (car heading-data))
-             (heading-id (cdr heading-data))
-             (description (denote-link-format-heading-description file-text heading-text)))
-    (insert (denote-org-extras-format-link-with-heading file heading-id description))))
-
-;;;; Heading backlinks
-
-(defun denote-org-extras--get-file-id-and-heading-id (file)
-  "Return IDENTIFIER::#ORG-HEADING-CUSTOM-ID string for FILE heading at point."
-  (if-let ((heading-id (org-entry-get (point) "CUSTOM_ID")))
-      (concat (denote-retrieve-filename-identifier-with-error file) "::#" heading-id)
-    (error "No CUSTOM_ID for heading at point in file `%s'" file)))
-
-(defun denote-org-extras--get-backlinks-buffer-name (text)
-  "Format a buffer name for `denote-org-extras-backlinks-for-heading' with TEXT."
-  (format "*Denote HEADING backlinks for %S*" text))
-
-;;;###autoload
-(defun denote-org-extras-backlinks-for-heading ()
-  "Produce backlinks for the current heading.
-This otherwise has the same behaviour as `denote-backlinks'---refer to
-that for the details.
-
-Also see `denote-org-extras-link-to-heading'."
-  (interactive)
-  (when-let ((heading-id (denote-org-extras--get-file-id-and-heading-id buffer-file-name))
-             (heading-text (substring-no-properties (denote-link-ol-get-heading))))
-    (denote-link--prepare-backlinks heading-id ".*\\.org" (denote-org-extras--get-backlinks-buffer-name heading-text))))
-
-;;;; Extract subtree into its own note
-
-(defun denote-org-extras--get-heading-date ()
-  "Try to return a timestamp for the current Org heading.
-This can be used as the value for the DATE argument of the
-`denote' command."
-  (when-let ((pos (point))
-             (timestamp (or (org-entry-get pos "DATE")
-                            (org-entry-get pos "CREATED")
-                            (org-entry-get pos "CLOSED"))))
-    (date-to-time timestamp)))
-
-;;;###autoload
-(defun denote-org-extras-extract-org-subtree ()
-  "Create new Denote note using the current Org subtree as input.
-Remove the subtree from its current file and move its contents
-into a new Denote file (a subtree is a heading with all of its
-contents, including subheadings).
-
-Take the text of the subtree's top level heading and use it as
-the title of the new note.
-
-If the heading has any tags, use them as the keywords of the new
-note.  If the Org file has any #+filetags use them as well (Org's
-filetags are inherited by the headings).  If none of these are
-true and the user option `denote-prompts' includes an entry for
-keywords, then prompt for keywords.  Else do not include any
-keywords.
-
-If the heading has a PROPERTIES drawer, retain it for further
-review.
-
-If the heading's PROPERTIES drawer includes a DATE or CREATED
-property, or there exists a CLOSED statement with a timestamp
-value, use that to derive the date (or date and time) of the new
-note (if there is only a date, the time is taken as 00:00).  If
-more than one of these is present, the order of preference is
-DATE, then CREATED, then CLOSED.  If none of these is present,
-use the current time.  If the `denote-prompts' includes an entry
-for a date, then prompt for a date at this stage (also see
-`denote-date-prompt-use-org-read-date').
-
-For the rest, consult the value of the user option
-`denote-prompts' in the following scenaria:
-
-- Optionally prompt for a subdirectory, otherwise produce the new
-  note in the variable `denote-directory'.
-
-- Optionally prompt for a file signature, otherwise do not use
-  one.
-
-Make the new note an Org file regardless of the value of
-`denote-file-type'."
-  (interactive nil org-mode)
-  (unless (derived-mode-p 'org-mode)
-    (user-error "Headings can only be extracted from Org files"))
-  (if-let ((text (org-get-entry))
-           (heading (denote-link-ol-get-heading)))
-      (let ((tags (org-get-tags))
-            (date (denote-org-extras--get-heading-date))
-            subdirectory
-            signature)
-        (dolist (prompt denote-prompts)
-          (pcase prompt
-            ('keywords (when (not tags)
-                         (setq tags (denote-keywords-prompt))))
-            ('subdirectory (setq subdirectory (denote-subdirectory-prompt)))
-            ('date (when (not date) (setq date (denote-date-prompt))))
-            ('signature (setq signature (denote-signature-prompt)))))
-        (delete-region (org-entry-beginning-position)
-                       (save-excursion (org-end-of-subtree t) (point)))
-        (denote heading tags 'org subdirectory date nil signature)
-        (insert text))
-    (user-error "No subtree to extract; aborting")))
-
-;;;; Convert links from `:denote' to `:file' and vice versa
-
-;; TODO 2024-02-28: Do we need to convert between other link types?  I
-;; think not, since the `denote:' type is modelled after the `file:'
-;; one.
-(defun denote-org-extras--get-link-type-regexp (type)
-  "Return regexp for Org link TYPE.
-TYPE is a symbol of either `file' or `denote'.
-
-The regexp consists of four groups.  Group 1 is the link type, 2
-is the target, 3 is the target's search terms, and 4 is the
-description."
-  (let ((group-1))
-    (pcase type
-      ('denote (setq group-1 "denote"))
-      ('file (setq group-1 "file"))
-      (_ (error "`%s' is an unknown link type" type)))
-    (format "\\[\\[\\(?1:%s:\\)\\(?:\\(?2:.*?\\)\\(?3:::.*\\)?\\]\\|\\]\\)\\(?4:\\[\\(?:.*?\\)\\]\\)?\\]" group-1)))
-
-(defun denote-org-extras--get-path (id)
-  "Return file path to ID according to `org-link-file-path-type'."
-  (if (or (eq org-link-file-path-type 'adaptive)
-          (eq org-link-file-path-type 'relative))
-      (denote-get-relative-path-by-id id)
-    (denote-get-path-by-id id)))
-
-;;;###autoload
-(defun denote-org-extras-convert-links-to-file-type ()
-  "Convert denote: links to file: links in the current Org buffer.
-Ignore all other link types.  Also ignore links that do not
-resolve to a file in the variable `denote-directory'."
-  (interactive nil org-mode)
-  (if (derived-mode-p 'org-mode)
-      (progn
-        (goto-char (point-min))
-        (while (re-search-forward (denote-org-extras--get-link-type-regexp 'denote) nil :no-error)
-          (let* ((id (match-string-no-properties 2))
-                 (search (or (match-string-no-properties 3) ""))
-                 (desc (or (match-string-no-properties 4) ""))
-                 (file (save-match-data (denote-org-extras--get-path id))))
-            (when id
-              (let ((new-text (if desc
-                                  (format "[[file:%s%s]%s]" file search desc)
-                                (format "[[file:%s%s]]" file search))))
-                (replace-match new-text :fixed-case :literal)))))
-        ;; TODO 2024-02-28: notify how many changed.
-        (message "Converted `denote:' links to `file:' links"))
-    (user-error "The current file is not using Org mode")))
-
-;;;###autoload
-(defun denote-org-extras-convert-links-to-denote-type ()
-  "Convert file: links to denote: links in the current Org buffer.
-Ignore all other link types.  Also ignore file: links that do not
-point to a file with a Denote file name."
-  (interactive nil org-mode)
-  (if (derived-mode-p 'org-mode)
-      (progn
-        (goto-char (point-min))
-        (while (re-search-forward (denote-org-extras--get-link-type-regexp 'file) nil :no-error)
-          (let* ((file (match-string-no-properties 2))
-                 (search (or (match-string-no-properties 3) ""))
-                 (desc (or (match-string-no-properties 4) ""))
-                 (id (save-match-data (denote-retrieve-filename-identifier file))))
-            (when id
-              (let ((new-text (if desc
-                                  (format "[[denote:%s%s]%s]" id search desc)
-                                (format "[[denote:%s%s]]" id search))))
-                (replace-match new-text :fixed-case :literal)))))
-        ;; TODO 2024-02-28: notify how many changed.
-        (message "Converted as `file:' links to `denote:' links"))
-    (user-error "The current file is not using Org mode")))
-
-;;;; Org dynamic blocks
-
-;; NOTE 2024-01-22 12:26:13 +0200: The following is copied from the
-;; now-deleted denote-org-dblock.el.  Its original author was Elias
-;; Storms <elias.storms@gmail.com>, with substantial contributions and
-;; further developments by me (Protesilaos).
-
-;; This section defines Org dynamic blocks using the facility described
-;; in the Org manual.  Evaluate this:
-;;
-;;    (info "(org) Dynamic Blocks")
-;;
-;; The dynamic blocks defined herein are documented at length in the
-;; Denote manual.  See the following node and its subsections:
-;;
-;;    (info "(denote) Use Org dynamic blocks")
-
-;;;;; Common helper functions
-
-(defun denote-org-extras-dblock--files (files-matching-regexp &optional sort-by-component reverse)
-  "Return list of FILES-MATCHING-REGEXP in variable `denote-directory'.
-SORT-BY-COMPONENT and REVERSE have the same meaning as
-`denote-sort-files'.  If both are nil, do not try to perform any
-sorting.
-
-Also see `denote-org-extras-dblock--files-missing-only'."
-  (cond
-   ((and sort-by-component reverse)
-    (denote-sort-get-directory-files files-matching-regexp sort-by-component reverse :omit-current))
-   (sort-by-component
-    (denote-sort-get-directory-files files-matching-regexp sort-by-component nil :omit-current))
-   (reverse
-    (denote-sort-get-directory-files files-matching-regexp :no-component-specified reverse :omit-current))
-   (t
-    (denote-directory-files files-matching-regexp :omit-current))))
-
-(defun denote-org-extras-dblock--get-missing-links (regexp)
-  "Return list of missing links to all notes matching REGEXP.
-Missing links are those for which REGEXP does not have a match in
-the current buffer."
-  (let ((found-files (denote-directory-files regexp :omit-current))
-        (linked-files (denote-link--expand-identifiers denote-org-link-in-context-regexp)))
-    (if-let ((final-files (seq-difference found-files linked-files)))
-        final-files
-      (message "All links matching `%s' are present" regexp)
-      '())))
-
-(defun denote-org-extras-dblock--files-missing-only (files-matching-regexp &optional sort-by-component reverse)
-  "Return list of missing links to FILES-MATCHING-REGEXP.
-SORT-BY-COMPONENT and REVERSE have the same meaning as
-`denote-sort-files'.  If both are nil, do not try to perform any
-sorting.
-
-Also see `denote-org-extras-dblock--files'."
-  (denote-sort-files
-   (denote-org-extras-dblock--get-missing-links files-matching-regexp)
-   sort-by-component
-   reverse))
-
-;;;;; Dynamic block to insert links
-
-;;;###autoload
-(defun denote-org-extras-dblock-insert-links (regexp)
-  "Create Org dynamic block to insert Denote links matching REGEXP."
-  (interactive
-   (list
-    (denote-files-matching-regexp-prompt))
-   org-mode)
-  (org-create-dblock (list :name "denote-links"
-                           :regexp regexp
-                           :sort-by-component nil
-                           :reverse-sort nil
-                           :id-only nil))
-  (org-update-dblock))
-
-;; NOTE 2024-03-30: This is how the autoload is done in org.el.
-;;;###autoload
-(eval-after-load 'org
-  '(progn
-     (org-dynamic-block-define "denote-links" 'denote-org-extras-dblock-insert-links)))
-
-;;;###autoload
-(defun org-dblock-write:denote-links (params)
-  "Function to update `denote-links' Org Dynamic blocks.
-Used by `org-dblock-update' with PARAMS provided by the dynamic block."
-  (let* ((regexp (plist-get params :regexp))
-         (rx (if (listp regexp) (macroexpand `(rx ,regexp)) regexp))
-         (sort (plist-get params :sort-by-component))
-         (reverse (plist-get params :reverse-sort))
-         (block-name (plist-get params :block-name))
-         (files (denote-org-extras-dblock--files rx sort reverse)))
-    (when block-name (insert "#+name: " block-name "\n"))
-    (denote-link--insert-links files 'org (plist-get params :id-only) :no-other-sorting)
-    (join-line))) ; remove trailing empty line
-
-;;;;; Dynamic block to insert missing links
-
-;;;###autoload
-(defun denote-org-extras-dblock-insert-missing-links (regexp)
-  "Create Org dynamic block to insert Denote links matching REGEXP."
-  (interactive
-   (list
-    (denote-files-matching-regexp-prompt))
-   org-mode)
-  (org-create-dblock (list :name "denote-missing-links"
-                           :regexp regexp
-                           :sort-by-component nil
-                           :reverse-sort nil
-                           :id-only nil))
-  (org-update-dblock))
-
-;; NOTE 2024-03-30: This is how the autoload is done in org.el.
-;;;###autoload
-(eval-after-load 'org
-  '(progn
-     (org-dynamic-block-define "denote-missing-links" 'denote-org-extras-dblock-insert-links)))
-
-;;;###autoload
-(defun org-dblock-write:denote-missing-links (params)
-  "Function to update `denote-links' Org Dynamic blocks.
-Used by `org-dblock-update' with PARAMS provided by the dynamic block."
-  (let* ((regexp (plist-get params :regexp))
-         (rx (if (listp regexp) (macroexpand `(rx ,regexp)) regexp))
-         (sort (plist-get params :sort-by-component))
-         (reverse (plist-get params :reverse-sort))
-         (block-name (plist-get params :block-name))
-         (files (denote-org-extras-dblock--files-missing-only rx sort reverse)))
-    (when block-name (insert "#+name: " block-name "\n"))
-    (denote-link--insert-links files 'org (plist-get params :id-only) :no-other-sorting)
-    (join-line))) ; remove trailing empty line
-
-;;;;; Dynamic block to insert backlinks
-
-(defun denote-org-extras-dblock--maybe-sort-backlinks (files sort-by-component reverse)
-  "Sort backlink FILES if SORT-BY-COMPONENT and/or REVERSE is non-nil."
-  (cond
-   ((and sort-by-component reverse)
-    (denote-sort-files files sort-by-component reverse))
-   (sort-by-component
-    (denote-sort-files files sort-by-component))
-   (reverse
-    (denote-sort-files files :no-component-specified reverse))
-   (t
-    files)))
-
-;;;###autoload
-(defun denote-org-extras-dblock-insert-backlinks ()
-  "Create Org dynamic block to insert Denote backlinks to current file."
-  (interactive nil org-mode)
-  (org-create-dblock (list :name "denote-backlinks"
-                           :sort-by-component nil
-                           :reverse-sort nil
-                           :id-only nil))
-  (org-update-dblock))
-
-;; NOTE 2024-03-30: This is how the autoload is done in org.el.
-;;;###autoload
-(eval-after-load 'org
-  '(progn
-     (org-dynamic-block-define "denote-backlinks" 'denote-org-extras-dblock-insert-backlinks)))
-
-;;;###autoload
-(defun org-dblock-write:denote-backlinks (params)
-  "Function to update `denote-backlinks' Org Dynamic blocks.
-Used by `org-dblock-update' with PARAMS provided by the dynamic block."
-  (when-let ((files (denote-link-return-backlinks)))
-    (let* ((sort (plist-get params :sort-by-component))
-           (reverse (plist-get params :reverse-sort))
-           (files (denote-org-extras-dblock--maybe-sort-backlinks files sort reverse)))
-      (denote-link--insert-links files 'org (plist-get params :id-only) :no-other-sorting)
-      (join-line)))) ; remove trailing empty line
-
-;;;;; Dynamic block to insert entire file contents
-
-(defun denote-org-extras-dblock--get-file-contents (file &optional no-front-matter add-links)
-  "Insert the contents of FILE.
-With optional NO-FRONT-MATTER as non-nil, try to remove the front
-matter from the top of the file.  If NO-FRONT-MATTER is a number,
-remove that many lines starting from the top.  If it is any other
-non-nil value, delete from the top until the first blank line.
-
-With optional ADD-LINKS as non-nil, first insert a link to the
-file and then insert its contents.  In this case, format the
-contents as a typographic list.  If ADD-LINKS is `id-only', then
-insert links as `denote-link' does when supplied with an ID-ONLY
-argument."
-  (when (denote-file-is-note-p file)
-    (with-temp-buffer
-      (when add-links
-        (insert
-         (format "- %s\n\n"
-                 (denote-format-link
-                  file
-                  (denote--link-get-description file)
-                  'org
-                  (eq add-links 'id-only)))))
-      (let ((beginning-of-contents (point)))
-        (insert-file-contents file)
-        (when no-front-matter
-          (delete-region
-           (if (natnump no-front-matter)
-               (progn (forward-line no-front-matter) (line-beginning-position))
-             (1+ (re-search-forward "^$" nil :no-error 1)))
-           beginning-of-contents))
-        (when add-links
-          (indent-region beginning-of-contents (point-max) 2)))
-      (buffer-string))))
-
-(defvar denote-org-extras-dblock-file-contents-separator
-  (concat "\n\n" (make-string 50 ?-) "\n\n\n")
-  "Fallback separator used by `denote-org-extras-dblock-add-files'.")
-
-(defun denote-org-extras-dblock--separator (separator)
-  "Return appropriate value of SEPARATOR for `denote-org-extras-dblock-add-files'."
-  (cond
-   ((null separator) "")
-   ((stringp separator) separator)
-   (t denote-org-extras-dblock-file-contents-separator)))
-
-(defun denote-org-extras-dblock-add-files (regexp &optional separator no-front-matter add-links sort-by-component reverse)
-  "Insert files matching REGEXP.
-
-Seaprate them with the optional SEPARATOR.  If SEPARATOR is nil,
-use the `denote-org-extras-dblock-file-contents-separator'.
-
-If optional NO-FRONT-MATTER is non-nil try to remove the front
-matter from the top of the file.  Do it by finding the first
-blank line, starting from the top of the buffer.
-
-If optional ADD-LINKS is non-nil, first insert a link to the file
-and then insert its contents.  In this case, format the contents
-as a typographic list.
-
-If optional SORT-BY-COMPONENT is a symbol among `denote-sort-components',
-sort files matching REGEXP by the corresponding Denote file name
-component.  If the symbol is not among `denote-sort-components',
-fall back to the default identifier-based sorting.
-
-If optional REVERSE is non-nil reverse the sort order."
-  (let* ((files (denote-org-extras-dblock--files regexp sort-by-component reverse))
-         (files-contents (mapcar
-                          (lambda (file) (denote-org-extras-dblock--get-file-contents file no-front-matter add-links))
-                          files)))
-    (insert (string-join files-contents (denote-org-extras-dblock--separator separator)))))
-
-;;;###autoload
-(defun denote-org-extras-dblock-insert-files (regexp sort-by-component)
-  "Create Org dynamic block to insert Denote files matching REGEXP.
-Sort the files according to SORT-BY-COMPONENT, which is a symbol
-among `denote-sort-components'."
-  (interactive
-   (list
-    (denote-files-matching-regexp-prompt)
-    (denote-sort-component-prompt))
-   org-mode)
-  (org-create-dblock (list :name "denote-files"
-                           :regexp regexp
-                           :sort-by-component sort-by-component
-                           :reverse-sort nil
-                           :no-front-matter nil
-                           :file-separator nil
-                           :add-links nil))
-  (org-update-dblock))
-
-;; NOTE 2024-03-30: This is how the autoload is done in org.el.
-;;;###autoload
-(eval-after-load 'org
-  '(progn
-     (org-dynamic-block-define "denote-files" 'denote-org-extras-dblock-insert-files)))
-
-;;;###autoload
-(defun org-dblock-write:denote-files (params)
-  "Function to update `denote-files' Org Dynamic blocks.
-Used by `org-dblock-update' with PARAMS provided by the dynamic block."
-  (let* ((regexp (plist-get params :regexp))
-         (rx (if (listp regexp) (macroexpand `(rx ,regexp)) regexp))
-         (sort (plist-get params :sort-by-component))
-         (reverse (plist-get params :reverse-sort))
-         (block-name (plist-get params :block-name))
-         (separator (plist-get params :file-separator))
-         (no-f-m (plist-get params :no-front-matter))
-         (add-links (plist-get params :add-links)))
-    (when block-name (insert "#+name: " block-name "\n"))
-    (when rx (denote-org-extras-dblock-add-files rx separator no-f-m add-links sort reverse)))
-  (join-line)) ; remove trailing empty line
-
-
-(provide 'denote-org-extras)
-;;; denote-org-extras.el ends here

denote-rename-buffer.el

@@ -1,159 +0,0 @@
-;;; denote-rename-buffer.el --- Rename Denote buffers to be shorter and easier to read -*- lexical-binding: t -*-
-
-;; Copyright (C) 2023-2024  Free Software Foundation, Inc.
-
-;; Author: Protesilaos Stavrou <info@protesilaos.com>
-;; Maintainer: Protesilaos Stavrou <info@protesilaos.com>
-;; URL: https://github.com/protesilaos/denote
-
-;; This file is NOT part of GNU Emacs.
-
-;; This program is free software; you can redistribute it and/or modify
-;; it under the terms of the GNU General Public License as published by
-;; the Free Software Foundation, either version 3 of the License, or
-;; (at your option) any later version.
-;;
-;; This program is distributed in the hope that it will be useful,
-;; but WITHOUT ANY WARRANTY; without even the implied warranty of
-;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-;; GNU General Public License for more details.
-;;
-;; You should have received a copy of the GNU General Public License
-;; along with this program.  If not, see <https://www.gnu.org/licenses/>.
-
-;;; Commentary:
-;;
-;; Rename Denote buffers to be shorter and easier to read.  Enable
-;; `denote-rename-buffer-mode' to automatically rename the buffer of a
-;; Denote file.  The renaming function is specified in the user option
-;; `denote-rename-buffer-function'.
-
-;;; Code:
-
-(require 'denote)
-
-(defgroup denote-rename-buffer nil
-  "Rename Denote buffers to be shorter and easier to read."
-  :group 'denote
-  :link '(info-link "(denote) Top")
-  :link '(url-link :tag "Homepage" "https://protesilaos.com/emacs/denote"))
-
-(defcustom denote-rename-buffer-format "%t"
-  "The format of the buffer name `denote-rename-buffer' should use.
-Thie value is a string that treats specially the following
-specifiers:
-
-- The %t is the Denote TITLE of the file.
-- The %i is the Denote IDENTIFIER of the file.
-- The %d is the same as %i (DATE mnemonic).
-- The %s is the Denote SIGNATURE of the file.
-- The %k is the Denote KEYWORDS of the file.
-- The %% is a literal percent sign.
-
-In addition, the following flags are available for each of the specifiers:
-
-- 0 :: Pad to the width, if given, with zeros instead of spaces.
-- - :: Pad to the width, if given, on the right instead of the left.
-- < :: Truncate to the width and precision, if given, on the left.
-- > :: Truncate to the width and precision, if given, on the right.
-- ^ :: Convert to upper case.
-- _ :: Convert to lower case.
-
-When combined all together, the above are written thus:
-
-    %<flags><width><precision>SPECIFIER-CHARACTER
-
-Any other string it taken as-is.  Users may want, for example, to
-include some text that makes Denote buffers stand out, such as
-a [D] prefix."
-  :type 'string
-  :package-version '(denote . "2.1.0")
-  :group 'denote-rename-buffer)
-
-(defcustom denote-rename-buffer-function #'denote-rename-buffer
-  "Symbol of function that is called to rename the Denote file buffer.
-The default `denote-rename-buffer' function uses the pattern
-described in `denote-rename-buffer-format'.
-
-Users can set this variable to an arbitrary function that does
-something else.  The function is called without arguments from
-the `find-file-hook' and `denote-after-new-note-hook'.
-
-A nil value for this variable means that the title of the Denote
-buffer will be used, if available."
-  :type '(choice
-          (const :tag "Rename using the `denote-rename-buffer-format'" denote-rename-buffer)
-          (function :tag "Use a custom renaming function"))
-  :package-version '(denote . "2.1.0")
-  :group 'denote-rename-buffer)
-
-(defun denote-rename-buffer--format (buffer)
-  "Parse the BUFFER through the `denote-rename-buffer-format'."
-  (when-let ((file (buffer-file-name buffer))
-             (type (denote-filetype-heuristics file)))
-    (string-trim
-     (format-spec denote-rename-buffer-format
-                  (list (cons ?t (cond
-                                  ((denote-retrieve-front-matter-title-value file type))
-                                  ((denote-retrieve-filename-title file))
-                                  (t  "")))
-                        (cons ?i (or (denote-retrieve-filename-identifier file) ""))
-                        (cons ?d (or (denote-retrieve-filename-identifier file) ""))
-                        (cons ?s (or (denote-retrieve-filename-signature file) ""))
-                        (cons ?k (if-let ((kws (denote-retrieve-front-matter-keywords-value file type)))
-                                     (denote-keywords-combine kws)
-                                   (or (denote-retrieve-filename-keywords file) "")))
-                        (cons ?% "%"))
-                  'delete))))
-
-(defun denote-rename-buffer (&optional buffer)
-  "Rename current buffer or optional BUFFER with `denote-rename-buffer-format'.
-The symbol of this function is the default value of the user
-option `denote-rename-buffer-function' and is thus used by the
-`denote-rename-buffer-mode'."
-  (when-let ((file (buffer-file-name buffer))
-             ((denote-file-has-identifier-p file))
-             (new-name (denote-rename-buffer--format (or buffer (current-buffer))))
-             ((not (string-blank-p new-name))))
-    (rename-buffer new-name :unique)))
-
-(make-obsolete
- 'denote-rename-buffer-with-title
- 'denote-rename-buffer
- "2.1.0")
-
-(make-obsolete
- 'denote-rename-buffer-with-identifier
- 'denote-rename-buffer
- "2.1.0")
-
-(defun denote-rename-buffer--fallback (&optional buffer)
-  "Fallback to rename BUFFER or `current-buffer'.
-This is called if `denote-rename-buffer-rename-function' is nil."
-  (let ((denote-rename-buffer-format "%t"))
-    (denote-rename-buffer buffer)))
-
-(defun denote-rename-buffer-rename-function-or-fallback ()
-  "Call `denote-rename-buffer-function' or its fallback to rename with title.
-Add this to `find-file-hook' and `denote-after-new-note-hook'."
-  (funcall (or denote-rename-buffer-function #'denote-rename-buffer--fallback)))
-
-;;;###autoload
-(define-minor-mode denote-rename-buffer-mode
-  "Automatically rename Denote buffers to be easier to read.
-A buffer is renamed upon visiting the underlying file.  This
-means that existing buffers are not renamed until they are
-visited again in a new buffer (files are visited with the command
-`find-file' or related)."
-  :global t
-  (if denote-rename-buffer-mode
-      (progn
-        (add-hook 'denote-after-new-note-hook #'denote-rename-buffer-rename-function-or-fallback)
-        (add-hook 'denote-after-rename-file-hook #'denote-rename-buffer-rename-function-or-fallback)
-        (add-hook 'find-file-hook #'denote-rename-buffer-rename-function-or-fallback))
-    (remove-hook 'denote-after-new-note-hook #'denote-rename-buffer-rename-function-or-fallback)
-    (remove-hook 'denote-after-rename-file-hook #'denote-rename-buffer-rename-function-or-fallback)
-    (remove-hook 'find-file-hook #'denote-rename-buffer-rename-function-or-fallback)))
-
-(provide 'denote-rename-buffer)
-;;; denote-rename-buffer.el ends here

denote-silo-extras.el

@@ -1,107 +0,0 @@
-;;; denote-silo-extras.el --- Convenience functions for using Denote in multiple silos  -*- lexical-binding: t; -*-
-
-;; Copyright (C) 2023-2024  Free Software Foundation, Inc.
-
-;; Author: Protesilaos Stavrou <info@protesilaos.com>
-;; Maintainer: Protesilaos Stavrou <info@protesilaos.com>
-;; URL: https://github.com/protesilaos/denote
-
-;; This file is NOT part of GNU Emacs.
-
-;; This program is free software; you can redistribute it and/or modify
-;; it under the terms of the GNU General Public License as published by
-;; the Free Software Foundation, either version 3 of the License, or
-;; (at your option) any later version.
-
-;; This program is distributed in the hope that it will be useful,
-;; but WITHOUT ANY WARRANTY; without even the implied warranty of
-;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-;; GNU General Public License for more details.
-
-;; You should have received a copy of the GNU General Public License
-;; along with this program.  If not, see <https://www.gnu.org/licenses/>.
-
-;;; Commentary:
-
-;; This is a set of convenience functions that used to be provided in
-;; the Denote manual.  A "silo" is a `denote-directory' that is
-;; self-contained.  Users can maintain multiple silos.  Consult the
-;; manual for the details.  With the Denote package installed,
-;; evaluate the following to read the relevant node:
-;;
-;;     (info "(denote) Maintain separate directory silos for notes")
-
-;;; Code:
-
-(require 'denote)
-
-(defgroup denote-silo-extras nil
-  "Make it easier to use Denote across Silos."
-  :group 'denote
-  :link '(info-link "(denote) Top")
-  :link '(url-link :tag "Homepage" "https://protesilaos.com/emacs/denote"))
-
-(defcustom denote-silo-extras-directories
-  `(,denote-directory)
-  "List of file paths pointing to Denote silos.
-Each file path points to a directory, which takes the same value
-as the variable `denote-directory'."
-  :group 'denote-silo-extras
-  :link '(info-link "(denote) Maintain separate directories for notes")
-  :type '(repeat directory))
-
-(defvar denote-silo-extras-directory-history nil
-  "Minibuffer history for `denote-silo-extras-directory-prompt'.")
-
-(defalias 'denote-silo-extras--directory-history 'denote-silo-extras-directory-history
-  "Compatibility alias for `denote-silo-extras-directory-history'.")
-
-(define-obsolete-function-alias
-  'denote-silo-extras--directory-prompt
-  'denote-silo-extras-directory-prompt
-  "3.1.0")
-
-(defun denote-silo-extras-directory-prompt ()
-  "Prompt for directory among `denote-silo-extras-directories'."
-  (let ((default (car denote-silo-extras-directory-history)))
-    (completing-read
-     (format-prompt "Select a silo" default)
-     (denote--completion-table 'file denote-silo-extras-directories)
-     nil :require-match nil 'denote-silo-extras-directory-history)))
-
-;;;###autoload
-(defun denote-silo-extras-create-note (silo)
-  "Select SILO and run `denote' in it.
-SILO is a file path from `denote-silo-extras-directories'.
-
-When called from Lisp, SILO is a file system path to a directory."
-  (interactive (list (denote-silo-extras-directory-prompt)))
-  (let ((denote-directory silo))
-    (call-interactively #'denote)))
-
-;;;###autoload
-(defun denote-silo-extras-open-or-create (silo)
-  "Select SILO and run `denote-open-or-create' in it.
-SILO is a file path from `denote-silo-extras-directories'.
-
-When called from Lisp, SILO is a file system path to a directory."
-  (interactive (list (denote-silo-extras-directory-prompt)))
-  (let ((denote-directory silo))
-    (call-interactively #'denote-open-or-create)))
-
-;;;###autoload
-(defun denote-silo-extras-select-silo-then-command (silo command)
-  "Select SILO and run Denote COMMAND in it.
-SILO is a file path from `denote-silo-extras-directories', while
-COMMAND is one among `denote-silo-extras-commands'.
-
-When called from Lisp, SILO is a file system path to a directory."
-  (interactive
-   (list
-    (denote-silo-extras-directory-prompt)
-    (denote-command-prompt)))
-  (let ((denote-directory silo))
-    (call-interactively command)))
-
-(provide 'denote-silo-extras)
-;;; denote-silo-extras.el ends here

denote-sort.el

@@ -1,201 +0,0 @@
-;;; denote-sort.el ---  Sort Denote files based on a file name component -*- lexical-binding: t -*-
-
-;; Copyright (C) 2023-2024  Free Software Foundation, Inc.
-
-;; Author: Protesilaos Stavrou <info@protesilaos.com>
-;; Maintainer: Protesilaos Stavrou <info@protesilaos.com>
-;; URL: https://github.com/protesilaos/denote
-
-;; This file is NOT part of GNU Emacs.
-
-;; This program is free software; you can redistribute it and/or modify
-;; it under the terms of the GNU General Public License as published by
-;; the Free Software Foundation, either version 3 of the License, or
-;; (at your option) any later version.
-;;
-;; This program is distributed in the hope that it will be useful,
-;; but WITHOUT ANY WARRANTY; without even the implied warranty of
-;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-;; GNU General Public License for more details.
-;;
-;; You should have received a copy of the GNU General Public License
-;; along with this program.  If not, see <https://www.gnu.org/licenses/>.
-
-;;; Commentary:
-;;
-;; Sort Denote files based on their file name components, namely, the
-;; signature, title, or keywords.
-
-;;; Code:
-
-(require 'denote)
-
-(defgroup denote-sort nil
-  "Sort Denote files based on a file name component."
-  :group 'denote
-  :link '(info-link "(denote) Top")
-  :link '(url-link :tag "Homepage" "https://protesilaos.com/emacs/denote"))
-
-(defvar denote-sort-comparison-function #'string-collate-lessp
-  "String comparison function used by `denote-sort-files' subroutines.")
-
-(defvar denote-sort-components '(title keywords signature identifier)
-  "List of sorting keys applicable for `denote-sort-files' and related.")
-
-;; NOTE 2023-12-04: We can have compound sorting algorithms such as
-;; title+signature, but I want to keep this simple for the time being.
-;; Let us first hear from users to understand if there is a real need
-;; for such a feature.
-(defmacro denote-sort--define-lessp (component)
-  "Define function to sort by COMPONENT."
-  (let ((retrieve-fn (intern (format "denote-retrieve-filename-%s" component))))
-    `(defun ,(intern (format "denote-sort-%s-lessp" component)) (file1 file2)
-       ,(format
-         "Return smallest between FILE1 and FILE2 based on their %s.
-The comparison is done with `denote-sort-comparison-function' between the
-two title values."
-         component)
-       (let* ((one (,retrieve-fn file1))
-              (two (,retrieve-fn file2))
-              (one-empty-p (or (null one) (string-empty-p one)))
-              (two-empty-p (or (null two) (string-empty-p two))))
-         (cond
-          (one-empty-p nil)
-          ((and (not one-empty-p) two-empty-p) one)
-          (t (funcall denote-sort-comparison-function one two)))))))
-
-;; TODO 2023-12-04: Subject to the above NOTE, we can also sort by
-;; directory and by file length.
-(denote-sort--define-lessp title)
-(denote-sort--define-lessp keywords)
-(denote-sort--define-lessp signature)
-
-;;;###autoload
-(defun denote-sort-files (files component &optional reverse)
-  "Returned sorted list of Denote FILES.
-
-With COMPONENT as a symbol among `denote-sort-components',
-sort files based on the corresponding file name component.
-
-With COMPONENT as a nil value keep the original date-based
-sorting which relies on the identifier of each file name.
-
-With optional REVERSE as a non-nil value, reverse the sort order."
-  (let* ((files-to-sort (copy-sequence files))
-         (sort-fn (when component
-                    (pcase component
-                      ('title #'denote-sort-title-lessp)
-                      ('keywords #'denote-sort-keywords-lessp)
-                      ('signature #'denote-sort-signature-lessp))))
-         (sorted-files (if sort-fn (sort files sort-fn) files-to-sort)))
-    (if reverse
-        (reverse sorted-files)
-      sorted-files)))
-
-(defun denote-sort-get-directory-files (files-matching-regexp sort-by-component &optional reverse omit-current)
-  "Return sorted list of files in variable `denote-directory'.
-
-With FILES-MATCHING-REGEXP as a string limit files to those
-matching the given regular expression.
-
-With SORT-BY-COMPONENT as a symbol among `denote-sort-components',
-pass it to `denote-sort-files' to sort by the corresponding file
-name component.
-
-With optional REVERSE as a non-nil value, reverse the sort order.
-
-With optional OMIT-CURRENT, do not include the current file in
-the list."
-  (denote-sort-files
-   (denote-directory-files files-matching-regexp omit-current)
-   sort-by-component
-   reverse))
-
-(defun denote-sort-get-links (files-matching-regexp sort-by-component current-file-type id-only &optional reverse)
-  "Return sorted typographic list of links for FILES-MATCHING-REGEXP.
-
-With FILES-MATCHING-REGEXP as a string, match files stored in the
-variable `denote-directory'.
-
-With SORT-BY-COMPONENT as a symbol among `denote-sort-components',
-sort FILES-MATCHING-REGEXP by the given Denote file name
-component.  If SORT-BY-COMPONENT is nil or an unknown non-nil
-value, default to the identifier-based sorting.
-
-With CURRENT-FILE-TYPE as a symbol among those specified in
-`denote-file-type' (or the `car' of each element in
-`denote-file-types'), format the link accordingly.  With a nil or
-unknown non-nil value, default to the Org notation.
-
-With ID-ONLY as a non-nil value, produce links that consist only
-of the identifier, thus deviating from CURRENT-FILE-TYPE.
-
-With optional REVERSE as a non-nil value, reverse the sort order."
-  (denote-link--prepare-links
-   (denote-sort-get-directory-files files-matching-regexp sort-by-component reverse)
-   current-file-type
-   id-only))
-
-(defvar denote-sort-component-history nil
-  "Minibuffer history of `denote-sort-component-prompt'.")
-
-(defalias 'denote-sort--component-hist 'denote-sort-component-history
-  "Compatibility alias for `denote-sort-component-history'.")
-
-(defun denote-sort-component-prompt ()
-  "Prompt `denote-sort-files' for sorting key among `denote-sort-components'."
-  (let ((default (car denote-sort-component-history)))
-    (intern
-     (completing-read
-      (format-prompt "Sort by file name component" default)
-      denote-sort-components nil :require-match
-      nil 'denote-sort-component-history default))))
-
-(defvar-local denote-sort--dired-buffer nil
-  "Buffer object of current `denote-sort-dired'.")
-
-;;;###autoload
-(defun denote-sort-dired (files-matching-regexp sort-by-component reverse)
-  "Produce Dired dired-buffer with sorted files from variable `denote-directory'.
-When called interactively, prompt for FILES-MATCHING-REGEXP,
-SORT-BY-COMPONENT, and REVERSE.
-
-1. FILES-MATCHING-REGEXP limits the list of Denote files to
-   those matching the provided regular expression.
-
-2. SORT-BY-COMPONENT sorts the files by their file name
-   component (one among `denote-sort-components').
-
-3. REVERSE is a boolean to reverse the order when it is a non-nil value.
-
-When called from Lisp, the arguments are a string, a keyword, and
-a non-nil value, respectively."
-  (interactive
-   (list
-    (denote-files-matching-regexp-prompt)
-    (denote-sort-component-prompt)
-    (y-or-n-p "Reverse sort? ")))
-  (if-let ((default-directory (denote-directory))
-           (files (denote-sort-get-directory-files files-matching-regexp sort-by-component reverse))
-           ;; NOTE 2023-12-04: Passing the FILES-MATCHING-REGEXP as
-           ;; buffer-name produces an error if the regexp contains a
-           ;; wildcard for a directory. I can reproduce this in emacs
-           ;; -Q and am not sure if it is a bug. Anyway, I will report
-           ;; it upstream, but even if it is fixed we cannot use it
-           ;; for now (whatever fix will be available for Emacs 30+).
-           (denote-sort-dired-buffer-name (format "Denote sort `%s' by `%s'" files-matching-regexp sort-by-component))
-           (buffer-name (format "Denote sort by `%s' at %s" sort-by-component (format-time-string "%T"))))
-      (let ((dired-buffer (dired (cons buffer-name (mapcar #'file-relative-name files)))))
-        (setq denote-sort--dired-buffer dired-buffer)
-        (with-current-buffer dired-buffer
-          (setq-local revert-buffer-function
-                      (lambda (&rest _)
-                        (kill-buffer dired-buffer)
-                        (denote-sort-dired files-matching-regexp sort-by-component reverse))))
-        ;; Because of the above NOTE, I am printing a message.  Not
-        ;; what I want, but it is better than nothing...
-        (message denote-sort-dired-buffer-name))
-    (message "No matching files for: %s" files-matching-regexp)))
-
-(provide 'denote-sort)
-;;; denote-sort.el ends here

tests/denote-test.el

@@ -1,11 +1,10 @@
 ;;; denote-test.el --- Unit tests for Denote -*- lexical-binding: t -*-
 
-;; Copyright (C) 2023  Free Software Foundation, Inc.
+;; Copyright (C) 2023-2026  Free Software Foundation, Inc.
 
-;; Author: Protesilaos Stavrou <info@protesilaos.com>
-;; Maintainer: Denote Development <~protesilaos/denote@lists.sr.ht>
-;; URL: https://git.sr.ht/~protesilaos/denote
-;; Mailing-List: https://lists.sr.ht/~protesilaos/denote
+;; Author: Protesilaos <info@protesilaos.com>
+;; Maintainer: Protesilaos <info@protesilaos.com>
+;; URL: https://github.com/protesilaos/denote
 
 ;; This file is NOT part of GNU Emacs.
 
@@ -24,136 +23,182 @@
 
 ;;; Commentary:
 
-;; WORK-IN-PROGRESS
+;; Tests for Denote.  Note that we are using Shorthands in this file,
+;; so the "dt-" prefix really is "denote-test-".  Evaluate the
+;; following to learn more:
+;;
+;;    (info "(elisp) Shorthands")
 
 ;;; Code:
 
 (require 'ert)
+
+;;;; Tests for denote.el
+
 (require 'denote)
 
-(ert-deftest denote-test--denote--make-denote-directory ()
+(ert-deftest dt-denote-directories--get-paths ()
+  "Test that `denote-directories--get-paths' returns a list of paths."
+  (let ((path "~/Documents/notes"))
+    (should (equal
+             (denote-directories--get-paths path)
+             (list (file-name-as-directory (expand-file-name path))))))
+  (let ((paths (list "~/Documents/notes" "~/Documents/books")))
+    (should (equal
+             (denote-directories--get-paths paths)
+             (mapcar
+              (lambda (path)
+                (file-name-as-directory (expand-file-name path)))
+              paths)))
+    (should (seq-every-p
+             (lambda (path)
+               (string-suffix-p "/" path))
+             (denote-directories--get-paths paths)))
+    (should-not (null (denote-directories--get-paths paths))))
+  (should-error (denote-directories--get-paths 'hello))
+  (should-error (denote-directories--get-paths '(hello)))
+  (should-error (denote-directories--get-paths '(1 2 3))))
+
+(ert-deftest dt-denote--make-denote-directory ()
   "Test that `denote--make-denote-directory' creates the directory."
-  (should (null (denote--make-denote-directory))))
+  (let* ((names (list "denote-test-made-directory-1" "denote-test-made-directory-2"))
+         (directories (mapcar
+                       (lambda (directory)
+                         (file-name-as-directory (expand-file-name directory temporary-file-directory)))
+                       names)))
+    (should-not (denote-directories--make-paths directories))
+    (should (seq-every-p #'file-name-directory directories))
+    (dolist (directory directories)
+      (delete-directory directory))))
 
-(ert-deftest denote-test--denote-directory ()
-  "Test that variable `denote-directory' returns an absolute directory name."
-  (let ((path (denote-directory)))
-    (should (and (file-directory-p path)
-                 (file-name-absolute-p path)))))
+(ert-deftest dt-denote-directories ()
+  "Test that `denote-directories' returns list of directories.
+It does so by expanding the value of the user option `denote-directory'.
 
-(ert-deftest denote-test--denote--slug-no-punct ()
-  "Test that `denote--slug-no-punct' removes punctuation from the string.
-Concretely, replace with spaces anything that matches the
-`denote-excluded-punctuation-regexp' and
-`denote-excluded-punctuation-extra-regexp'."
-  (should (equal (denote--slug-no-punct "This is !@# test")
-                 "This is  test")))
+Also see `denote-test--denote--make-denote-directory',
+`denote-test---denote-directories--get-paths'."
+  (let ((denote-directory "/tmp/denote-test-notes"))
+    (should
+     (equal
+      (denote-directories)
+      (list (file-name-as-directory (expand-file-name denote-directory)))))
+    (should (and (file-directory-p denote-directory)
+                 (file-name-absolute-p denote-directory))))
+  (let ((denote-directory (list "/tmp/denote-test-notes-1" "/tmp/denote-test-notes-2")))
+    (should
+     (equal
+      (denote-directories)
+      (mapcar
+       (lambda (directory)
+         (file-name-as-directory (expand-file-name directory)))
+       denote-directory)))
+    (should (and (seq-every-p #'file-directory-p denote-directory)
+                 (seq-every-p #'file-name-absolute-p denote-directory)))))
 
-(ert-deftest denote-test--denote--slug-hyphenate ()
-  "Test that `denote--slug-hyphenate' hyphenates the string.
+(ert-deftest dt-denote-sluggify-title ()
+  "Test that `denote-sluggify-title' removes punctuation from the string.
+Concretely, remove anything specified in `denote-sluggify-title'."
+  (should (equal (denote-sluggify-title "this-is-!@#test") "this-is-test")))
+
+(ert-deftest dt-denote-slug-keep-only-ascii ()
+  "Test that `denote-slug-keep-only-ascii' removes non-ASCII characters."
+  (should (equal
+           (denote-slug-keep-only-ascii "There are no-ASCII ： characters ｜ here 😀")
+           "There are no-ASCII   characters   here  ")))
+
+(ert-deftest dt-denote-slug-hyphenate ()
+  "Test that `denote-slug-hyphenate' hyphenates the string.
 Also replace multiple hyphens with a single one and remove any
 leading and trailing hyphen."
-  (should (equal (denote--slug-hyphenate "__  This is   a    test  __  ")
-                 "This-is-a-test")))
+  (should (equal (denote-slug-hyphenate "__  This is   a    test  __  ") "This-is-a-test")))
 
-(ert-deftest denote-test--denote-sluggify ()
+(ert-deftest dt-denote-sluggify ()
   "Test that `denote-sluggify' sluggifies the string.
 To sluggify is to (i) downcase, (ii) hyphenate, (iii) de-punctuate, and (iv) remove spaces from the string."
-  (should (equal (denote-sluggify 'title " ___ !~!!$%^ This iS a tEsT ++ ?? ")
-                 "this-is-a-test")))
+  (should (equal (denote-sluggify 'title " ___ !~!!$%^ This iS a tEsT ++ ?? ") "this-is-a-test")))
 
-(ert-deftest denote-test--denote--slug-put-equals ()
-  "Test that `denote--slug-put-equals' replaces spaces/underscores with =.
+(ert-deftest Ddenote--slug-put-equals ()
+  "Test that `denote-slug-put-equals' replaces spaces/underscores with =.
 Otherwise do the same as what is described in
-`denote-test--denote--slug-hyphenate'.
+`denote-test--denote-slug-hyphenate'.
 
 The use of the equals sign is for the SIGNATURE field of the
 Denote file name."
-  (should (equal (denote--slug-put-equals "__  This is   a    test  __  ")
-                 "This=is=a=test")))
+  (should (equal (denote-slug-put-equals "__  This is   a    test  __  ") "This=is=a=test")))
 
-(ert-deftest denote-test--denote-sluggify-signature ()
+(ert-deftest dt-denote-sluggify-signature ()
   "Test that `denote-sluggify-signature' sluggifies the string for file signatures.
 This is like `denote-test--denote-sluggify', except that it also
-accounts for what we describe in `denote-test--denote--slug-put-equals'."
-  (should (equal (denote-sluggify-signature "--- ___ !~!!$%^ This -iS- a tEsT ++ ?? ")
-                 "this=is=a=test")))
+accounts for what we describe in `denote-test--denote-slug-put-equals'."
+  (should (equal (denote-sluggify-signature "--- ___ !~!!$%^ This -iS- a tEsT ++ ?? ") "this=is=a=test")))
 
-(ert-deftest denote-test--denote-sluggify-keyword ()
+(ert-deftest dt-denote-sluggify-keyword ()
   "Test that `denote-sluggify-keyword' sluggifies the string while joining words.
 In this context, to join words is to elimitate any space or
 delimiter between them.
 
 Otherwise, this is like `denote-test--denote-sluggify'."
-  (should (equal (denote-sluggify-keyword "--- ___ !~!!$%^ This iS a - tEsT ++ ?? ")
-                 "thisisatest")))
+  (should (equal (denote-sluggify-keyword "--- ___ !~!!$%^ This iS a - tEsT ++ ?? ") "thisisatest")))
 
-(ert-deftest denote-test--denote-sluggify-keywords ()
+(ert-deftest dt-denote-sluggify-keywords ()
   "Test that `denote-sluggify-keywords' sluggifies a list of strings.
 The function also account for the value of the user option
 `denote-allow-multi-word-keywords'."
-  (should
-   (equal (denote-sluggify-keywords '("one !@# --- one" "   two" "__  three  __"))
-          '("oneone" "two" "three"))))
+  (should (equal (denote-sluggify-keywords '("one !@# --- one" "   two" "__  three  __")) '("oneone" "two" "three"))))
 
-(ert-deftest denote-test--denote--file-empty-p ()
+(ert-deftest dt-denote-slug-remove-accents ()
+  "Test that `denote-slug-remove-accents' removed diacretics."
+  (should (string= (denote-slug-remove-accents "ê") "e"))
+  (should (string= (denote-slug-remove-accents "ñ") "n")))
+
+(ert-deftest dt-denote--file-empty-p ()
   "Test that `denote--file-empty-p' returns non-nil on empty file."
-  ;; (should (null (denote--file-empty-p user-init-file))
-  (should (let ((file (make-temp-file "denote-test")))
-            (prog1
-                (denote--file-empty-p file)
-              (delete-file file)))))
+  (let ((file (make-temp-file "denote-test")))
+    (should (denote--file-empty-p file))
+    (with-current-buffer (find-file-noselect file)
+      (insert "Hello world, this is not empty anymore!")
+      (save-buffer))
+    (should-not (denote--file-empty-p file))
+    (delete-file file)))
 
-(ert-deftest denote-test--denote-file-is-note-p ()
-  "Test that `denote-file-is-note-p' checks that files is a Denote note.
-For our purposes, a note must note be a directory, must satisfy
-`file-regular-p', its path must be part of the variable
-`denote-directory', it must have a Denote identifier in its name,
-and use one of the extensions implied by `denote-file-type'."
-  (should (let* ((tmp (temporary-file-directory))
-                 (denote-directory tmp)
-                 (file (concat tmp "20230522T154900--test__keyword.txt")))
-            (with-current-buffer (find-file-noselect file)
-              (write-file file))
-            (prog1
-                (denote-file-is-note-p file)
-              (delete-file file)))))
+(ert-deftest dt-denote-file-has-denoted-filename-p ()
+  "Test that `denote-file-has-denoted-filename-p' validates a Denote file name."
+  (should (denote-file-has-denoted-filename-p "20230522T154900--test__keyword.txt"))
+  (should-not (denote-file-has-denoted-filename-p "hello")))
 
-(ert-deftest denote-test--denote-file-has-identifier-p ()
+(ert-deftest dt-denote-file-has-identifier-p ()
   "Test that `denote-file-has-identifier-p' checks for a Denote identifier."
   (should (denote-file-has-identifier-p "20230522T154900--test__keyword.txt"))
-  (should (null (denote-file-has-identifier-p "T154900--test__keyword.txt"))))
+  (should-not (denote-file-has-identifier-p "T154900--test__keyword.txt")))
 
-(ert-deftest denote-test--denote-file-has-signature-p ()
+(ert-deftest dt-denote-file-has-signature-p ()
   "Test that `denote-file-has-signature-p' checks for a Denote signature."
   (should (denote-file-has-signature-p "20230522T154900==sig--test__keyword.txt"))
-  (should (null (denote-file-has-signature-p "20230522T154900--test__keyword.txt"))))
+  (should-not (denote-file-has-signature-p "20230522T154900--test__keyword.txt")))
 
-(ert-deftest denote-test--denote-file-has-supported-extension-p ()
+(ert-deftest dt-denote-file-has-supported-extension-p ()
   "Test that `denote-file-has-supported-extension-p' matches a supported extension."
-  (should
-   (member
-    (file-name-extension "20230522T154900==sig--test__keyword.txt" :period)
-    (denote-file-type-extensions-with-encryption)))
-  (should
-   (null
-    (member
-     (file-name-extension "20230522T154900==sig--test__keyword" :period)
-     (denote-file-type-extensions-with-encryption)))))
+  (let ((extensions (denote-file-type-extensions-with-encryption)))
+    (should
+     (member
+      (file-name-extension "20230522T154900==sig--test__keyword.txt" :period)
+      extensions))
+    (should-not
+     (member
+      (file-name-extension "20230522T154900==sig--test__keyword" :period)
+      extensions))))
 
-(ert-deftest denote-test--denote-file-type-extensions ()
+(ert-deftest dt-denote-file-type-extensions ()
   "Test that `denote-file-type-extensions' returns file extensions.
-We check for the common file type extensions, though the user can
-theoretically set `denote-file-types' to nil and handle things on
-their own.  We do not have to test for that scenario, because
-such a user will be redefining large parts of Denote's behaviour
-with regard to file types."
+We check for the common file type extensions, though the user can set
+`denote-file-types' to nil and handle things on their own or, anyhow,
+modify that variable."
   (let ((extensions (denote-file-type-extensions)))
     (should (or (member ".md" extensions)
                 (member ".org" extensions)
                 (member ".txt" extensions)))))
 
-(ert-deftest denote-test--denote-file-type-extensions-with-encryption ()
+(ert-deftest dt-denote-file-type-extensions-with-encryption ()
   "Test that `denote-file-type-extensions-with-encryption' covers encryption.
 Extend what we do in `denote-test--denote-file-type-extensions'."
   (let ((extensions (denote-file-type-extensions-with-encryption)))
@@ -167,371 +212,272 @@ Extend what we do in `denote-test--denote-file-type-extensions'."
                 (member ".org.age" extensions)
                 (member ".txt.age" extensions)))))
 
-(ert-deftest denote-test--denote-surround-with-quotes ()
-  "Test that `denote-surround-with-quotes' returns a string in quotes."
-  (should (and (equal (denote-surround-with-quotes "test") "\"test\"")
-               (equal (denote-surround-with-quotes "") "\"\"")
-               (equal (denote-surround-with-quotes nil) "\"\"")
-               (equal (denote-surround-with-quotes 'wrong) "\"\"")
-               (equal (denote-surround-with-quotes '(wrong)) "\"\""))))
+(ert-deftest dt-denote--format-front-matter ()
+  "Test that `denote--format-front-matter' formats front matter correctly.
+To make the test reproducible, set `denote-date-format' to a value that
+does not involve the time zone."
+  (let ((denote-date-format "%Y-%m-%d")
+        (denote-front-matter-components-present-even-if-empty-value '(title keywords signature date identifier)))
+    (should (equal (denote--format-front-matter "" (date-to-time "20240101T120000") '("") "" "" 'text)
+                   (string-join
+                    '("title:      "
+                      "date:       2024-01-01"
+                      "tags:       "
+                      "identifier: "
+                      "signature:  "
+                      "---------------------------\n\n")
+                    "\n")))
+    (should (equal (denote--format-front-matter "Some test" (date-to-time "2023-06-05") '("one" "two") "20230605T102234" "sig" 'text)
+                   (string-join
+                    '("title:      Some test"
+                      "date:       2023-06-05"
+                      "tags:       one  two"
+                      "identifier: 20230605T102234"
+                      "signature:  sig"
+                      "---------------------------\n\n")
+                    "\n")))
+    (should (equal (denote--format-front-matter "" (date-to-time "20240101T120000") nil "" "" 'org)
+                   (string-join
+                    '("#+title:      "
+                      "#+date:       2024-01-01"
+                      "#+filetags:   "
+                      "#+identifier: "
+                      "#+signature:  "
+                      "\n")
+                    "\n")))
+    (should (equal
+             (denote--format-front-matter
+              "Some test" (date-to-time "2023-06-05") '("one" "two")
+              "20230605T102234" "sig" 'org)
+             (string-join
+              '("#+title:      Some test"
+                "#+date:       2023-06-05"
+                "#+filetags:   :one:two:"
+                "#+identifier: 20230605T102234"
+                "#+signature:  sig"
+                "\n")
+              "\n")))
+    (should (equal (denote--format-front-matter "" (date-to-time "20240101T120000") nil "" "" 'markdown-yaml)
+                   (string-join
+                    '("---"
+                      "title:      \"\""
+                      "date:       2024-01-01"
+                      "tags:       []"
+                      "identifier: \"\""
+                      "signature:  \"\""
+                      "---"
+                      "\n")
+                    "\n")))
+    (should (equal (denote--format-front-matter "Some test" (date-to-time "2023-06-05") '("one" "two") "20230605T102234" "sig" 'markdown-yaml)
+             (string-join
+              '("---"
+                "title:      \"Some test\""
+                "date:       2023-06-05"
+                "tags:       [\"one\", \"two\"]"
+                "identifier: \"20230605T102234\""
+                "signature:  \"sig\""
+                "---"
+                "\n")
+              "\n")))
+    (should (equal (denote--format-front-matter "" (date-to-time "20240101T120000") nil "" "" 'markdown-toml)
+                   (string-join
+                    '("+++"
+                      "title      = \"\""
+                      "date       = 2024-01-01"
+                      "tags       = []"
+                      "identifier = \"\""
+                      "signature  = \"\""
+                      "+++"
+                      "\n")
+                    "\n")))
+    (should (equal (denote--format-front-matter "Some test" (date-to-time "2023-06-05") '("one" "two") "20230605T102234" "sig" 'markdown-toml)
+                   (string-join
+                    '("+++"
+                      "title      = \"Some test\""
+                      "date       = 2023-06-05"
+                      "tags       = [\"one\", \"two\"]"
+                      "identifier = \"20230605T102234\""
+                      "signature  = \"sig\""
+                      "+++"
+                      "\n")
+                    "\n")))))
 
-(ert-deftest denote-test--denote--format-front-matter ()
-  "Test that `denote--format-front-matter' formats front matter correctly."
-  (should (and (equal (denote--format-front-matter "" "" '("") "" 'text)
-                      (mapconcat #'identity
-                                 '("title:      "
-                                   "date:       "
-                                   "tags:       "
-                                   "identifier: "
-                                   "---------------------------\n\n")
-                                 "\n"))
-
-               (equal
-                (denote--format-front-matter
-                 "Some test" "2023-06-05" '("one" "two")
-                 "20230605T102234" 'text)
-                (mapconcat #'identity
-                           '("title:      Some test"
-                             "date:       2023-06-05"
-                             "tags:       one  two"
-                             "identifier: 20230605T102234"
-                             "---------------------------\n\n")
-                           "\n"))))
-
-  (should (and (equal (denote--format-front-matter "" "" nil "" 'org)
-                      (mapconcat #'identity
-                                 '("#+title:      "
-                                   "#+date:       "
-                                   "#+filetags:   "
-                                   "#+identifier: "
-                                   "\n")
-                                 "\n"))
-
-               (equal
-                (denote--format-front-matter
-                 "Some test" "2023-06-05" '("one" "two")
-                 "20230605T102234" 'org)
-                (mapconcat #'identity
-                           '("#+title:      Some test"
-                             "#+date:       2023-06-05"
-                             "#+filetags:   :one:two:"
-                             "#+identifier: 20230605T102234"
-                             "\n")
-                           "\n"))))
-
-  (should (and (equal (denote--format-front-matter "" "" nil "" 'markdown-yaml)
-                      (mapconcat #'identity
-                                 '("---"
-                                   "title:      \"\""
-                                   "date:       "
-                                   "tags:       []"
-                                   "identifier: \"\""
-                                   "---"
-                                   "\n")
-                                 "\n"))
-
-               (equal
-                (denote--format-front-matter
-                 "Some test" "2023-06-05" '("one" "two")
-                 "20230605T102234" 'markdown-yaml)
-                (mapconcat #'identity
-                           '("---"
-                             "title:      \"Some test\""
-                             "date:       2023-06-05"
-                             "tags:       [\"one\", \"two\"]"
-                             "identifier: \"20230605T102234\""
-                             "---"
-                             "\n")
-                           "\n"))))
-
-(should (and (equal (denote--format-front-matter "" "" nil "" 'markdown-toml)
-                    (mapconcat #'identity
-                               '("+++"
-                                 "title      = \"\""
-                                 "date       = "
-                                 "tags       = []"
-                                 "identifier = \"\""
-                                 "+++"
-                                 "\n")
-                               "\n"))
-
-             (equal
-              (denote--format-front-matter
-               "Some test" "2023-06-05" '("one" "two")
-               "20230605T102234" 'markdown-toml)
-              (mapconcat #'identity
-                         '("+++"
-                           "title      = \"Some test\""
-                           "date       = 2023-06-05"
-                           "tags       = [\"one\", \"two\"]"
-                           "identifier = \"20230605T102234\""
-                           "+++"
-                           "\n")
-                         "\n")))))
-
-(ert-deftest denote-test--denote-format-file-name ()
+(ert-deftest dt-denote-format-file-name ()
   "Test that `denote-format-file-name' returns all expected paths."
   (let* ((title "Some test")
-         (id (format-time-string denote-id-format (denote-valid-date-p "2023-11-28 05:53:11")))
+         (id (format-time-string denote-date-identifier-format (denote-valid-date-p "2023-11-28 05:53:11")))
          (denote-directory "/tmp/test-denote")
+         (dir (car (denote-directories)))
+         (ext (denote--file-extension 'org))
          (kws '("one" "two")))
-    (should-error (denote-format-file-name
-                    nil
-                    id
-                    kws
-                    title
-                    (denote--file-extension 'org)
-                    ""))
+    (should-error (denote-format-file-name nil id kws title ext ""))
+    (should-error (denote-format-file-name "" id kws title ext ""))
+    ;; NOTE that `denote-directory' is the `let' bound value without the suffix
+    (should-error (denote-format-file-name denote-directory id kws title ext ""))
+    (should-error (denote-format-file-name dir "" nil "" ext ""))
+    (should (equal (denote-format-file-name dir nil kws title ext "") "/tmp/test-denote/--some-test__one_two.org"))
+    (should (equal (denote-format-file-name dir "" kws title ext "") "/tmp/test-denote/--some-test__one_two.org"))
+    (should (equal (denote-format-file-name dir "0123456" kws title ext "") "/tmp/test-denote/@@0123456--some-test__one_two.org"))
+    (should (equal (denote-format-file-name dir id kws title ext "") "/tmp/test-denote/20231128T055311--some-test__one_two.org"))
+    (should (equal (denote-format-file-name dir id nil "" ext "") "/tmp/test-denote/20231128T055311.org"))
+    (should (equal (denote-format-file-name dir id nil nil ext nil) "/tmp/test-denote/20231128T055311.org"))
+    (should (equal (denote-format-file-name dir id kws title ext "sig") "/tmp/test-denote/20231128T055311==sig--some-test__one_two.org"))))
 
-    (should-error (denote-format-file-name
-                    ""
-                    id
-                    kws
-                    title
-                    (denote--file-extension 'org)
-                    ""))
-
-    (should-error (denote-format-file-name
-                   denote-directory ; notice this is the `let' bound value without the suffix
-                   id
-                   kws
-                   title
-                   (denote--file-extension 'org)
-                   ""))
-
-    (should-error (denote-format-file-name
-                   (denote-directory)
-                   nil
-                   kws
-                   title
-                   (denote--file-extension 'org)
-                   ""))
-
-    (should-error (denote-format-file-name
-                   (denote-directory)
-                   ""
-                   kws
-                   title
-                   (denote--file-extension 'org)
-                   ""))
-
-    (should-error (denote-format-file-name
-                   (denote-directory)
-                   "0123456"
-                   kws
-                   title
-                   (denote--file-extension 'org)
-                   ""))
-
-    (should (equal (denote-format-file-name
-                    (denote-directory)
-                    id
-                    kws
-                    title
-                    (denote--file-extension 'org)
-                    "")
-                   "/tmp/test-denote/20231128T055311--some-test__one_two.org"))
-
-    (should (equal (denote-format-file-name
-                    (denote-directory)
-                    id
-                    nil
-                    ""
-                    (denote--file-extension 'org)
-                    "")
-                   "/tmp/test-denote/20231128T055311.org"))
-
-    (should (equal (denote-format-file-name
-                    (denote-directory)
-                    id
-                    nil
-                    nil
-                    (denote--file-extension 'org)
-                    nil)
-                   "/tmp/test-denote/20231128T055311.org"))
-
-    (should (equal (denote-format-file-name
-                    (denote-directory)
-                    id
-                    kws
-                    title
-                    (denote--file-extension 'org)
-                    "sig")
-                   "/tmp/test-denote/20231128T055311==sig--some-test__one_two.org"))))
-
-(ert-deftest denote-test--denote-get-file-extension ()
+(ert-deftest dt-denote-get-file-extension ()
   "Test that `denote-get-file-extension' gets the correct file extension."
-  (should (and (equal (denote-get-file-extension "20231010T105034--some-test-file__denote_testing") "")
-               (equal (denote-get-file-extension "20231010T105034--some-test-file__denote_testing.org") ".org")
-               (equal (denote-get-file-extension "20231010T105034--some-test-file__denote_testing.org.gpg") ".org.gpg")
-               (equal (denote-get-file-extension "20231010T105034--some-test-file__denote_testing.org.age") ".org.age"))))
+  (should (equal (denote-get-file-extension "20231010T105034--some-test-file__denote_testing") ""))
+  (should (equal (denote-get-file-extension "20231010T105034--some-test-file__denote_testing.org") ".org"))
+  (should (equal (denote-get-file-extension "20231010T105034--some-test-file__denote_testing.org.gpg") ".org.gpg"))
+  (should (equal (denote-get-file-extension "20231010T105034--some-test-file__denote_testing.org.age") ".org.age")))
 
-(ert-deftest denote-test--denote-get-file-extension-sans-encryption ()
+(ert-deftest dt-denote-get-file-extension-sans-encryption ()
   "Test that `denote-get-file-extension-sans-encryption' gets the file extension without encryption."
-  (should (and (equal (denote-get-file-extension-sans-encryption "20231010T105034--some-test-file__denote_testing") "")
-               (equal (denote-get-file-extension-sans-encryption "20231010T105034--some-test-file__denote_testing.org") ".org")
-               (equal (denote-get-file-extension-sans-encryption "20231010T105034--some-test-file__denote_testing.org.gpg") ".org")
-               (equal (denote-get-file-extension-sans-encryption "20231010T105034--some-test-file__denote_testing.org.age") ".org"))))
+  (should (equal (denote-get-file-extension-sans-encryption "20231010T105034--some-test-file__denote_testing") ""))
+  (should (equal (denote-get-file-extension-sans-encryption "20231010T105034--some-test-file__denote_testing.org") ".org"))
+  (should (equal (denote-get-file-extension-sans-encryption "20231010T105034--some-test-file__denote_testing.org.gpg") ".org"))
+  (should (equal (denote-get-file-extension-sans-encryption "20231010T105034--some-test-file__denote_testing.org.age") ".org")))
 
-(ert-deftest denote-test--denote-filetype-heuristics ()
+;; TODO 2026-04-06: For the `denote-file-type'.
+
+(ert-deftest dt-denote-filetype-heuristics ()
   "Test that `denote-filetype-heuristics' gets the correct file type."
-  (should (and (eq (denote-filetype-heuristics "20231010T105034--some-test-file__denote_testing") nil)
-               (eq (denote-filetype-heuristics "20231010T105034--some-test-file__denote_testing.org") 'org)
-               (eq (denote-filetype-heuristics "20231010T105034--some-test-file__denote_testing.org.gpg") 'org)
-               (eq (denote-filetype-heuristics "20231010T105034--some-test-file__denote_testing.org.age") 'org)
-               (eq (denote-filetype-heuristics "20231010T105034--some-test-file__denote_testing.txt") 'text)
-               (eq (denote-filetype-heuristics "20231010T105034--some-test-file__denote_testing.txt.gpg") 'text)
-               (eq (denote-filetype-heuristics "20231010T105034--some-test-file__denote_testing.txt.age") 'text)
-               ;; NOTE 2023-10-11: It returns `markdown-yaml' as a fallback.  In
-               ;; an actual file, it reads the file contents to determine what
-               ;; it is and can return `markdown-toml'.  In principle, we should
-               ;; be testing this here, though I prefer to keep things simple.
-               (eq (denote-filetype-heuristics "20231010T105034--some-test-file__denote_testing.md") 'markdown-yaml)
-               (eq (denote-filetype-heuristics "20231010T105034--some-test-file__denote_testing.md.gpg") 'markdown-yaml)
-               (eq (denote-filetype-heuristics "20231010T105034--some-test-file__denote_testing.md.age") 'markdown-yaml))))
+  (should-not (denote-filetype-heuristics "20231010T105034--some-test-file__denote_testing"))
+  (should (eq (denote-filetype-heuristics "20231010T105034--some-test-file__denote_testing.org") 'org))
+  (should (eq (denote-filetype-heuristics "20231010T105034--some-test-file__denote_testing.org.gpg") 'org))
+  (should (eq (denote-filetype-heuristics "20231010T105034--some-test-file__denote_testing.org.age") 'org))
+  (should (eq (denote-filetype-heuristics "20231010T105034--some-test-file__denote_testing.txt") 'text))
+  (should (eq (denote-filetype-heuristics "20231010T105034--some-test-file__denote_testing.txt.gpg") 'text))
+  (should (eq (denote-filetype-heuristics "20231010T105034--some-test-file__denote_testing.txt.age") 'text))
+  (should (eq (denote-filetype-heuristics "20231010T105034--some-test-file__denote_testing.md")
+              (caar (denote--file-types-with-extension ".md"))))
+  (should (eq (denote-filetype-heuristics "20231010T105034--some-test-file__denote_testing.md.gpg")
+              (caar (denote--file-types-with-extension ".md"))))
+  (should (eq (denote-filetype-heuristics "20231010T105034--some-test-file__denote_testing.md.age")
+              (caar (denote--file-types-with-extension ".md")))))
 
-(ert-deftest denote-test--denote-get-identifier ()
-  "Test that `denote-get-identifier' returns an identifier."
-  (should (and (equal (denote-get-identifier) (format-time-string denote-id-format (current-time)))
-               (equal (denote-get-identifier "2024-02-01 10:34") "20240201T103400")
-               (equal (denote-get-identifier 1705644188) "20240119T080308")
-               (equal (denote-get-identifier '(26026 4251)) "20240119T080307")))
-  (should-error (denote-get-identifier "Invalid date")))
-
-(ert-deftest denote-test--denote-retrieve-filename-identifier ()
+(ert-deftest dt-denote-retrieve-filename-identifier ()
   "Test that `denote-retrieve-filename-identifier' returns only the identifier."
-  (should (and (null
-                (denote-retrieve-filename-identifier "/path/to/testing/--this-is-a-test-reordered__denote_testing.org"))
-               (equal
-                (denote-retrieve-filename-identifier "/path/to/testing/20240610T194654--this-is-a-test-reordered__denote_testing.org")
-                "20240610T194654")
-               (equal
-                (denote-retrieve-filename-identifier "/path/to/testing/20240610T194654==signature--this-is-a-test-reordered__denote_testing.org")
-                "20240610T194654")
-               (equal
-                (denote-retrieve-filename-identifier "/path/to/testing/--this-is-a-test-reordered__denote_testing@@20240610T194654.org")
-                "20240610T194654")
-               (equal
-                (denote-retrieve-filename-identifier "/path/to/testing/__denote_testing--this-is-a-test-reordered@@20240610T194654.org")
-                "20240610T194654")
-               (equal
-                (denote-retrieve-filename-identifier "/path/to/testing/__denote_testing@@20240610T194654--this-is-a-test-reordered.org")
-                "20240610T194654")
-               (equal
-                (denote-retrieve-filename-identifier "/path/to/testing/==signature__denote_testing@@20240610T194654--this-is-a-test-reordered.org")
-                "20240610T194654"))))
+  (should (null (denote-retrieve-filename-identifier "/path/to/testing/--this-is-a-test-reordered__denote_testing.org")))
+  (should (equal (denote-retrieve-filename-identifier "/path/to/testing/20240610T194654--this-is-a-test-reordered__denote_testing.org") "20240610T194654"))
+  (should (equal (denote-retrieve-filename-identifier "/path/to/testing/20240610T194654==signature--this-is-a-test-reordered__denote_testing.org") "20240610T194654"))
+  (should (equal (denote-retrieve-filename-identifier "/path/to/testing/--this-is-a-test-reordered__denote_testing@@20240610T194654.org") "20240610T194654"))
+  (should (equal (denote-retrieve-filename-identifier "/path/to/testing/__denote_testing--this-is-a-test-reordered@@20240610T194654.org") "20240610T194654"))
+  (should (equal (denote-retrieve-filename-identifier "/path/to/testing/__denote_testing@@20240610T194654--this-is-a-test-reordered.org") "20240610T194654"))
+  (should (equal (denote-retrieve-filename-identifier "/path/to/testing/==signature__denote_testing@@20240610T194654--this-is-a-test-reordered.org") "20240610T194654")))
 
-(ert-deftest denote-test--denote-retrieve-filename-title ()
+(ert-deftest dt-denote-retrieve-filename-title ()
   "Test that `denote-retrieve-filename-title' returns only the title."
-  (should (and (null
-                (denote-retrieve-filename-title "/path/to/testing/20240610T194654__denote_testing.org"))
-               (equal
-                (denote-retrieve-filename-title "/path/to/testing/20240610T194654--this-is-a-test-reordered__denote_testing.org")
-                "this-is-a-test-reordered")
-               (equal
-                (denote-retrieve-filename-title "/path/to/testing/20240610T194654==signature--this-is-a-test-reordered__denote_testing.org")
-                "this-is-a-test-reordered")
-               (equal
-                (denote-retrieve-filename-title "/path/to/testing/--this-is-a-test-reordered__denote_testing@@20240610T194654.org")
-                "this-is-a-test-reordered")
-               (equal
-                (denote-retrieve-filename-title "/path/to/testing/__denote_testing--this-is-a-test-reordered@@20240610T194654.org")
-                "this-is-a-test-reordered")
-               (equal
-                (denote-retrieve-filename-title "/path/to/testing/__denote_testing@@20240610T194654--this-is-a-test-reordered.org")
-                "this-is-a-test-reordered")
-               (equal
-                (denote-retrieve-filename-title "/path/to/testing/==signature__denote_testing@@20240610T194654--this-is-a-test-reordered.org")
-                "this-is-a-test-reordered"))))
+  (should (null (denote-retrieve-filename-title "/path/to/testing/20240610T194654__denote_testing.org")))
+  (should (equal (denote-retrieve-filename-title "/path/to/testing/20240610T194654--this-is-a-test-reordered__denote_testing.org") "this-is-a-test-reordered"))
+  (should (equal (denote-retrieve-filename-title "/path/to/testing/20240610T194654==signature--this-is-a-test-reordered__denote_testing.org") "this-is-a-test-reordered"))
+  (should (equal (denote-retrieve-filename-title "/path/to/testing/--this-is-a-test-reordered__denote_testing@@20240610T194654.org") "this-is-a-test-reordered"))
+  (should (equal (denote-retrieve-filename-title "/path/to/testing/__denote_testing--this-is-a-test-reordered@@20240610T194654.org") "this-is-a-test-reordered"))
+  (should (equal (denote-retrieve-filename-title "/path/to/testing/__denote_testing@@20240610T194654--this-is-a-test-reordered.org") "this-is-a-test-reordered"))
+  (should (equal (denote-retrieve-filename-title "/path/to/testing/==signature__denote_testing@@20240610T194654--this-is-a-test-reordered.org") "this-is-a-test-reordered")))
 
-(ert-deftest denote-test--denote-retrieve-filename-keywords ()
+(ert-deftest dt-denote-retrieve-filename-keywords ()
   "Test that `denote-retrieve-filename-keywords' returns only the keywords."
-  (should (and (null
-                (denote-retrieve-filename-keywords "/path/to/testing/20240610T194654--this-is-a-test-reordered.org"))
-               (equal
-                (denote-retrieve-filename-keywords "/path/to/testing/20240610T194654--this-is-a-test-reordered__denote_testing.org")
-                "denote_testing")
-               (equal
-                (denote-retrieve-filename-keywords "/path/to/testing/20240610T194654==signature--this-is-a-test-reordered__denote_testing.org")
-                "denote_testing")
-               (equal
-                (denote-retrieve-filename-keywords "/path/to/testing/--this-is-a-test-reordered__denote_testing@@20240610T194654.org")
-                "denote_testing")
-               (equal
-                (denote-retrieve-filename-keywords "/path/to/testing/__denote_testing--this-is-a-test-reordered@@20240610T194654.org")
-                "denote_testing")
-               (equal
-                (denote-retrieve-filename-keywords "/path/to/testing/__denote_testing@@20240610T194654--this-is-a-test-reordered.org")
-                "denote_testing")
-               (equal
-                (denote-retrieve-filename-keywords "/path/to/testing/==signature__denote_testing@@20240610T194654--this-is-a-test-reordered.org")
-                "denote_testing"))))
+  (should (null (denote-retrieve-filename-keywords "/path/to/testing/20240610T194654--this-is-a-test-reordered.org")))
+  (should (equal (denote-retrieve-filename-keywords "/path/to/testing/20240610T194654--this-is-a-test-reordered__denote_testing.org") "denote_testing"))
+  (should (equal (denote-retrieve-filename-keywords "/path/to/testing/20240610T194654==signature--this-is-a-test-reordered__denote_testing.org") "denote_testing"))
+  (should (equal (denote-retrieve-filename-keywords "/path/to/testing/--this-is-a-test-reordered__denote_testing@@20240610T194654.org") "denote_testing"))
+  (should (equal (denote-retrieve-filename-keywords "/path/to/testing/__denote_testing--this-is-a-test-reordered@@20240610T194654.org") "denote_testing"))
+  (should (equal (denote-retrieve-filename-keywords "/path/to/testing/__denote_testing@@20240610T194654--this-is-a-test-reordered.org") "denote_testing"))
+  (should (equal (denote-retrieve-filename-keywords "/path/to/testing/==signature__denote_testing@@20240610T194654--this-is-a-test-reordered.org") "denote_testing")))
 
-(ert-deftest denote-test--denote-retrieve-filename-signature ()
+(ert-deftest dt-denote-retrieve-filename-signature ()
   "Test that `denote-retrieve-filename-signature' returns only the signature."
-  (should (and (null
-                (denote-retrieve-filename-signature "/path/to/testing/20240610T194654--this-is-a-test-reordered__denote_testing.org"))
-               (equal
-                (denote-retrieve-filename-signature "/path/to/testing/20240610T194654==signature--this-is-a-test-reordered__denote_testing.org")
-                "signature")
-               (equal
-                (denote-retrieve-filename-signature "/path/to/testing/--this-is-a-test-reordered==signature__denote_testing@@20240610T194654.org")
-                "signature")
-               (equal
-                (denote-retrieve-filename-signature "/path/to/testing/__denote_testing--this-is-a-test-reordered==signature@@20240610T194654.org")
-                "signature")
-               (equal
-                (denote-retrieve-filename-signature "/path/to/testing/__denote_testing@@20240610T194654--this-is-a-test-reordered==signature.org")
-                "signature")
-               (equal
-                (denote-retrieve-filename-signature "/path/to/testing/==signature__denote_testing@@20240610T194654--this-is-a-test-reordered.org")
-                "signature"))))
+  (should (null (denote-retrieve-filename-signature "/path/to/testing/20240610T194654--this-is-a-test-reordered__denote_testing.org")))
+  (should (equal (denote-retrieve-filename-signature "/path/to/testing/20240610T194654==signature--this-is-a-test-reordered__denote_testing.org") "signature"))
+  (should (equal (denote-retrieve-filename-signature "/path/to/testing/--this-is-a-test-reordered==signature__denote_testing@@20240610T194654.org") "signature"))
+  (should (equal (denote-retrieve-filename-signature "/path/to/testing/__denote_testing--this-is-a-test-reordered==signature@@20240610T194654.org") "signature"))
+  (should (equal (denote-retrieve-filename-signature "/path/to/testing/__denote_testing@@20240610T194654--this-is-a-test-reordered==signature.org") "signature"))
+  (should (equal (denote-retrieve-filename-signature "/path/to/testing/==signature__denote_testing@@20240610T194654--this-is-a-test-reordered.org") "signature")))
 
-;;;; denote-journal-extras.el
+(ert-deftest dt-denote-date-identifier-p ()
+  "Test that `denote-date-identifier-p' works for Denote identifiers."
+  (should (denote-date-identifier-p "20240901T090910"))
+  (should-not (denote-date-identifier-p "20240901T090910-not-identifier-format")))
 
-(require 'denote-journal-extras)
+(ert-deftest dt-denote-id-to-date ()
+  "Test that `denote-id-to-date' returns the date from an identifier."
+  (should (equal (denote-id-to-date "20240901T090910") "2024-09-01"))
+  (should-error (denote-id-to-date "20240901T090910-not-identifier-format")))
 
-(ert-deftest denote-test--denote-journal-extras-daily--title-format ()
-  "Make sure that `denote-journal-extras-daily--title-format' yields the desired format."
-  (should (and
-           ;; These three should prompt, but I am here treating the
-           ;; prompt as if already returned a string.  The test for
-           ;; the `denote-title-prompt' can be separate.
-           (stringp
-            (cl-letf (((symbol-function 'denote-title-prompt) #'identity)
-                      (denote-journal-extras-title-format nil))
-              (denote-journal-extras-daily--title-format)))
+(ert-deftest dt-denote--date-convert ()
+  "Test that `denote--date-convert' works with dates."
+  (should (equal (denote--date-convert '(26454 45206 461174 657000) :list) '(26454 45206 461174 657000)))
+  (should (equal (denote--date-convert '(26454 45206 461174 657000) :string) "2024-12-09 10:55:50"))
+  (should (equal (denote--date-convert nil :string) ""))
+  (should (equal (denote--date-convert nil :list) nil))
+  (should-error (denote--date-convert '(26454 45206 461174 657000) :not-valid-type))
+  (should-error (denote--date-convert nil :not-valid-type)))
 
-           (stringp
-            (cl-letf (((symbol-function 'denote-title-prompt) #'identity)
-                      (denote-journal-extras-title-format t))
-              (denote-journal-extras-daily--title-format)))
+;; TODO 2026-02-23: Add support for Windows paths.  But I need somebody who has a Windows machine...
+(ert-deftest dt-denote--get-common-root-directory ()
+  "Test that `denote--get-common-root-directory' returns the right path."
+  (should (string=
+           (denote--get-common-root-directory
+            '("/home/prot/Documents/notes/"
+              "/home/prot/Documents/notes/attachments"))
+           "/home/prot/Documents/notes/"))
+  (should (string=
+           (denote--get-common-root-directory
+            '("/home/prot/Documents/"
+              "/home/prot/Documents/notes/attachments"))
+           "/home/prot/Documents/"))
+  (should (string=
+           (denote--get-common-root-directory
+            '("/home/prot/Books/"
+              "/home/prot/Documents/notes/"))
+           "/home/prot/"))
+  (should (string=
+           (denote--get-common-root-directory
+            '("/tmp/notes/"
+              "/home/prot/Documents/notes/"))
+           "/"))
+  (should (string=
+           (denote--get-common-root-directory
+            '("/home/prot/Documents/notes/"))
+           "/home/prot/Documents/notes/"))
+  (should-error (denote--get-common-root-directory '("~/Documents/notes/"))))
 
-           (stringp
-            (cl-letf (((symbol-function 'denote-title-prompt) #'identity)
-                      (denote-journal-extras-title-format :some-arbitrary-keyword))
-              (denote-journal-extras-daily--title-format)))
+(ert-deftest dt-denote-query--keywords-as-regexp ()
+  "Test that `denote-query--keywords-as-regexp' works as intended."
+  (should (string= (denote-query--keywords-as-regexp '("one" "two")) "_\\(?:one\\|two\\)"))
+  (should-error (denote-query--keywords-as-regexp "one"))
+  (should-error (denote-query--keywords-as-regexp '("one" 1))))
 
-           ;; And these return the following values
-           (string-match-p
-            "\\<.*?\\>"
-            (let ((denote-journal-extras-title-format 'day))
-              (denote-journal-extras-daily--title-format)))
-
-           (string-match-p
-            "\\<.*?\\> [0-9]\\{,2\\} \\<.*?\\> [0-9]\\{,4\\}"
-            (let ((denote-journal-extras-title-format 'day-date-month-year))
-              (denote-journal-extras-daily--title-format)))
-
-           (string-match-p
-            "\\<.*?\\> [0-9]\\{,2\\} \\<.*?\\> [0-9]\\{,4\\} [0-9]\\{,2\\}:[0-9]\\{,2\\} \\<.*?\\>"
-            (let ((denote-journal-extras-title-format 'day-date-month-year-12h))
-              (denote-journal-extras-daily--title-format)))
-
-           (string-match-p
-            "\\<.*?\\> [0-9]\\{,2\\} \\<.*?\\> [0-9]\\{,4\\} [0-9]\\{,2\\}:[0-9]\\{,2\\}"
-            (let ((denote-journal-extras-title-format 'day-date-month-year-24h))
-              (denote-journal-extras-daily--title-format))))))
+(ert-deftest dt-denote-file-type ()
+  "Test that function `denote-file-type' does what it is meant to."
+  (let* ((create-file-fn (lambda (name extension)
+                           (expand-file-name
+                            (format "denote-test-file-type-%s.%s" name extension)
+                            (temporary-file-directory))))
+         (modify-file-fn (lambda (file contents)
+                           (with-current-buffer (find-file-noselect file)
+                             (erase-buffer)
+                             (insert contents)
+                             (save-buffer))))
+         (yaml-file (funcall create-file-fn "yaml" "md"))
+         (toml-file (funcall create-file-fn "toml" "md"))
+         (org-file (funcall create-file-fn "org" "org")))
+    (progn
+      (funcall modify-file-fn yaml-file denote-yaml-front-matter)
+      (should (eq (denote-file-type yaml-file) 'markdown-yaml)))
+    (progn
+      (funcall modify-file-fn toml-file denote-toml-front-matter)
+      (should (eq (denote-file-type toml-file) 'markdown-toml)))
+    (progn
+      (funcall modify-file-fn org-file denote-org-front-matter)
+      (should (eq (denote-file-type org-file) 'org)))
+    (should-not (denote-file-type "test"))
+    (let ((denote-file-types nil))
+      (should-not (denote-file-type "test.md")))))
 
 (provide 'denote-test)
 ;;; denote-test.el ends here
+
+;; Local Variables:
+;; read-symbol-shorthands: (("dt" . "denote-test-"))
+;; End: