[elpa] externals/denote updated (d47ef97062 -> ee58ae014d)

2023-12-20 Thread ELPA Syncer
elpasync pushed a change to branch externals/denote.

  from  d47ef97062 Make denote-update-dired-buffers also revert current 
Dired
   new  4261d19a88 Put Denote menu bar after "Tools"
   new  f0910d3146 Add denote-menu-bar-mode, making the Denote menu bar 
optional
   new  195f0c3b7f Acknowledge Joseph Turner for commits 4261d19, f0910d3
   new  e2ba6c144d Guard sorting keywords when given an empty string
   new  f1730b7798 Acknowledge Ashton Wiersdorf for commit e2ba6c1
   new  aa7bf58234 Enable Denote menu bar by default
   new  f770346729 Merge branch 'main' of git.sr.ht:~protesilaos/denote
   new  6e5ddc2623 Refactor denote-file-has-identifier-p and use it in 
various functions
   new  b996b7e6f0 Refactor denote-add-front-matter
   new  faaf5f94ab Use denote-rename-max-mini-window-height in 
denote-change-file-type-and-front-matter
   new  6d71d3e1d3 Refactor denote-retrieve-filename-* functions
   new  e6b7ba74e6 Make denote-retrieve-filename-identifier consistent with 
other functions
   new  3d4891b5dd Rename denote-retrieve-title-* and 
denote-retrieve-keywords-* functions
   new  7ca08f2a66 Refactor denote-org-capture and remove 
denote-org-capture-with-prompts
   new  f26d8d7799 Handle nil case in denote-sort--define-lessp
   new  4899ca5c78 Remove separator for the last file in 
denote-org-dblock-add-files
   new  6acb25c7ec Create aliases for denote-retrieve-front-matter-* 
functions
   new  2b627aaafd Add denote-org-capture-with-prompts
   new  667c1370ba Remove unwind-protect from 
denote--command-with-default-title
   new  ee58ae014d Merge pull request #199 from jeanphilippegg/refactor


Summary of changes:
 README.org  |  59 +-
 denote-org-dblock.el|  16 +--
 denote-rename-buffer.el |  10 +-
 denote-sort.el  |   4 +-
 denote.el   | 284 +---
 5 files changed, 191 insertions(+), 182 deletions(-)



[elpa] externals/denote b996b7e6f0 02/20: Refactor denote-add-front-matter

2023-12-20 Thread ELPA Syncer
branch: externals/denote
commit b996b7e6f0204550f9b6480c587a73a95ce0f7d1
Author: Jean-Philippe Gagné Guay 
Commit: Jean-Philippe Gagné Guay 

Refactor denote-add-front-matter
---
 denote.el | 10 --
 1 file changed, 4 insertions(+), 6 deletions(-)

diff --git a/denote.el b/denote.el
index 838558047b..3c03395908 100644
--- a/denote.el
+++ b/denote.el
@@ -2719,12 +2719,10 @@ relevant front matter."
 (buffer-file-name)
 (denote-title-prompt)
 (denote-keywords-prompt)))
-  (when (and (denote-file-is-writable-and-supported-p file)
- (denote-file-has-identifier-p file))
-(denote--add-front-matter
- file title keywords
- (denote-retrieve-filename-identifier file)
- (denote-filetype-heuristics file
+  (when-let ((denote-file-is-writable-and-supported-p file)
+ (id (denote-retrieve-filename-identifier file :no-error))
+ (file-type (denote-filetype-heuristics file)))
+(denote--add-front-matter file title keywords id file-type)))
 
 (define-obsolete-function-alias
   'denote-change-file-type



[elpa] externals/denote 4261d19a88 12/20: Put Denote menu bar after "Tools"

2023-12-20 Thread ELPA Syncer
branch: externals/denote
commit 4261d19a88a5d2dbfa317a6ed89fa995e0560059
Author: Joseph Turner 
Commit: Protesilaos Stavrou 

Put Denote menu bar after "Tools"
---
 denote.el | 11 ---
 1 file changed, 4 insertions(+), 7 deletions(-)

diff --git a/denote.el b/denote.el
index 1396e7f3f9..d9210e1518 100644
--- a/denote.el
+++ b/denote.el
@@ -3798,13 +3798,10 @@ This command is meant to be used from a Dired buffer."
  :selected (bound-and-true-p denote-dired-mode)])
   "Contents of the Denote menu.")
 
-(easy-menu-define denote-global-menu nil
-  "Menu with all Denote commands, each available in the right context."
-  denote--menu-contents)
-
-;; Add Denote menu at the end of global-map after Tools
-(easy-menu-add-item global-map '(menu-bar)
-denote-global-menu)
+(define-key-after global-map [menu-bar denote]
+  (easy-menu-binding
+   (easy-menu-create-menu "Denote" denote--menu-contents) "Denote")
+  "Tools")
 
 (defun denote-context-menu (menu _click)
   "Populate MENU with Denote commands at CLICK."



[elpa] externals/denote faaf5f94ab 03/20: Use denote-rename-max-mini-window-height in denote-change-file-type-and-front-matter

2023-12-20 Thread ELPA Syncer
branch: externals/denote
commit faaf5f94ab78967613f29b18a9b9a662db25e4e9
Author: Jean-Philippe Gagné Guay 
Commit: Jean-Philippe Gagné Guay 

Use denote-rename-max-mini-window-height in 
denote-change-file-type-and-front-matter
---
 denote.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/denote.el b/denote.el
index 3c03395908..0e9bb9f057 100644
--- a/denote.el
+++ b/denote.el
@@ -2763,7 +2763,7 @@ of the file.  This needs to be done manually."
  (new-extension (denote--file-extension new-file-type))
  (new-name (denote-format-file-name
 dir id keywords (denote-sluggify title 'title) 
new-extension signature))
- (max-mini-window-height 0.33)) ; allow minibuffer to be resized
+ (max-mini-window-height denote-rename-max-mini-window-height))
 (when (and (not (eq old-extension new-extension))
(denote-rename-file-prompt file new-name))
   (denote-rename-file-and-buffer file new-name)



[elpa] externals/denote f1730b7798 17/20: Acknowledge Ashton Wiersdorf for commit e2ba6c1

2023-12-20 Thread ELPA Syncer
branch: externals/denote
commit f1730b7798b5270f5d2b1a054949b82f274904f4
Author: Protesilaos Stavrou 
Commit: Protesilaos Stavrou 

Acknowledge Ashton Wiersdorf for commit e2ba6c1

The change is small. As such, Ashton does not need to assign copyright
to the Free Software Foundation.
---
 README.org | 20 ++--
 1 file changed, 10 insertions(+), 10 deletions(-)

diff --git a/README.org b/README.org
index 67496d8e8c..c8ee41da42 100644
--- a/README.org
+++ b/README.org
@@ -4876,16 +4876,16 @@ Denote is meant to be a collective effort.  Every bit 
of help matters.
 + Author/maintainer :: Protesilaos Stavrou.
 
 + Contributions to code or the manual :: Abin Simon, Adam Růžička,
-  Alan Schmitt, Benjamin Kästner, Bruno Boal, Charanjit Singh, Clemens
-  Radermacher, Colin McLear, Damien Cassou, Eduardo Grajeda, Elias
-  Storms, Eshel Yaron, Florian, Graham Marlow, Hilde Rhyne, Ivan
-  Sokolov, Jack Baty, Jean-Charles Bagneris, Jean-Philippe Gagné Guay,
-  Joseph Turner, Jürgen Hötzel, Kaushal Modi, Kai von Fintel, Kostas
-  Andreadis, Kyle Meyer, Marc Fargas, Matthew Lemon, Noboru Ota
-  (nobiot), Norwid Behrnd, Peter Prevos, Philip Kaludercic, Quiliro
-  Ordóñez, Stefan Monnier, Stefan Thesing, Thibaut Benjamin, Tomasz
-  Hołubowicz, Vedang Manerikar, ezchi, leinfink (Henrik),
-  mentalisttraceur, relict007.
+  Alan Schmitt, Ashton Wiersdorf, Benjamin Kästner, Bruno Boal,
+  Charanjit Singh, Clemens Radermacher, Colin McLear, Damien Cassou,
+  Eduardo Grajeda, Elias Storms, Eshel Yaron, Florian, Graham Marlow,
+  Hilde Rhyne, Ivan Sokolov, Jack Baty, Jean-Charles Bagneris,
+  Jean-Philippe Gagné Guay, Joseph Turner, Jürgen Hötzel, Kaushal
+  Modi, Kai von Fintel, Kostas Andreadis, Kyle Meyer, Marc Fargas,
+  Matthew Lemon, Noboru Ota (nobiot), Norwid Behrnd, Peter Prevos,
+  Philip Kaludercic, Quiliro Ordóñez, Stefan Monnier, Stefan Thesing,
+  Thibaut Benjamin, Tomasz Hołubowicz, Vedang Manerikar, ezchi,
+  leinfink (Henrik), mentalisttraceur, relict007.
 
 + Ideas and/or user feedback :: Abin Simon, Aditya Yadav, Alan
   Schmitt, Aleksandr Vityazev, Alfredo Borrás, Ashton Wiersdorf,



[elpa] externals/denote 667c1370ba 15/20: Remove unwind-protect from denote--command-with-default-title

2023-12-20 Thread ELPA Syncer
branch: externals/denote
commit 667c1370ba8bf7817656941afd80cf657d113982
Author: Jean-Philippe Gagné Guay 
Commit: Jean-Philippe Gagné Guay 

Remove unwind-protect from denote--command-with-default-title
---
 denote.el | 13 -
 1 file changed, 4 insertions(+), 9 deletions(-)

diff --git a/denote.el b/denote.el
index 6d4a2df7bf..6b40d46daa 100644
--- a/denote.el
+++ b/denote.el
@@ -1846,8 +1846,7 @@ When called from Lisp, all arguments are optional.
   "Currently bound default title for `denote-title-prompt'.
 Set the value of this variable within the lexical scope of a
 command that needs to supply a default title before calling
-`denote-title-prompt' and use `unwind-protect' to set its value
-back to nil.")
+`denote-title-prompt'.")
 
 (defun denote-title-prompt (&optional default-title prompt-text)
   "Prompt for title string.
@@ -2106,13 +2105,9 @@ Set the `denote-title-prompt-current-default' to the 
last input.
 This is what makes commands such as `denote-open-or-create' or
 `denote-link-or-create' get what the user initially typed as the
 default value for the title of the new note to be created."
-  (let ((last-input (when denote--file-history
-  (pop denote--file-history
-(unwind-protect
-(progn
-  (setq denote-title-prompt-current-default last-input)
-  (call-interactively command))
-  (setq denote-title-prompt-current-default nil
+  (let ((denote-title-prompt-current-default (when denote--file-history
+   (pop denote--file-history
+(call-interactively command)))
 
 ;;;###autoload
 (defun denote-open-or-create (target)



[elpa] externals/denote f770346729 19/20: Merge branch 'main' of git.sr.ht:~protesilaos/denote

2023-12-20 Thread ELPA Syncer
branch: externals/denote
commit f770346729e18a0fda368fd6084b631c48a24dd0
Merge: aa7bf58234 d47ef97062
Author: Protesilaos Stavrou 
Commit: Protesilaos Stavrou 

Merge branch 'main' of git.sr.ht:~protesilaos/denote
---
 README.org |  9 ++---
 denote.el  | 23 +++
 2 files changed, 21 insertions(+), 11 deletions(-)

diff --git a/README.org b/README.org
index c8ee41da42..63b4a37409 100644
--- a/README.org
+++ b/README.org
@@ -4087,9 +4087,12 @@ might change them without further notice.
 
 #+findex: denote-update-dired-buffers
 + Function ~denote-update-dired-buffers~ :: Update Dired buffers of
-  variable ~denote-directory~.  Note that the ~denote-directory~
-  accepts a directory-local value for what we internally refer to as
-  "silos" ([[#h:15719799-a5ff-4e9a-9f10-4ca03ef8f6c5][Maintain separate 
directories for notes]]).
+  variable ~denote-directory~. Also revert the current Dired buffer
+  even if it is not inside the ~denote-directory~. Note that the
+  ~denote-directory~ accepts a directory-local value for what we
+  internally refer to as "silos" 
([[#h:15719799-a5ff-4e9a-9f10-4ca03ef8f6c5][Maintain separate directories for 
notes]]).
+  [ Refined as part of {{{development-version}}} to also revert the
+current Dired buffer. ]
 
 #+vindex: denote-file-types
 + Variable ~denote-file-types~ :: Alist of ~denote-file-type~ and
diff --git a/denote.el b/denote.el
index 518e74e95c..2360c02d8e 100644
--- a/denote.el
+++ b/denote.el
@@ -2245,15 +2245,22 @@ the file type is assumed to be the first of 
`denote-file-types'."
denote-id-format
(file-attribute-modification-time (file-attributes file
 
+(defun denote--revert-dired (buf)
+  "Revert BUF if appropriate.
+Do it if BUF is in Dired mode and is either part of the variable
+`denote-directory' or the `current-buffer'."
+  (let ((current (current-buffer)))
+(with-current-buffer buf
+  (when (and (eq major-mode 'dired-mode)
+ (or (denote--dir-in-denote-directory-p default-directory)
+ (eq current buf)))
+(revert-buffer)
+
 (defun denote-update-dired-buffers ()
-  "Update Dired buffers of variable `denote-directory'."
-  (mapc
-   (lambda (buf)
- (with-current-buffer buf
-   (when (and (eq major-mode 'dired-mode)
-  (denote--dir-in-denote-directory-p default-directory))
- (revert-buffer
-   (buffer-list)))
+  "Update Dired buffers of variable `denote-directory'.
+Also revert the current Dired buffer even if it is not inside the
+variable `denote-directory'."
+  (mapc #'denote--revert-dired (buffer-list)))
 
 (defun denote--rename-buffer (old-name new-name)
   "Rename OLD-NAME buffer to NEW-NAME, when appropriate."



[elpa] externals/denote aa7bf58234 18/20: Enable Denote menu bar by default

2023-12-20 Thread ELPA Syncer
branch: externals/denote
commit aa7bf58234f77c1293dded4e3a907a114a1f1f16
Author: Joseph Turner 
Commit: Protesilaos Stavrou 

Enable Denote menu bar by default

This change means that merely loading denote.el causes :filter,
:visible, :active, :label, :suffix, and :selected forms (or their
aliases) in `denote--menu-contents' to be evaluated.

Currently, `denote--menu-contents' only contains expressions which
call `bound-and-true-p' and `derived-mode-p', so it's unlikely that
enabling the Denote menu bar by default will cause breakages.

If `denote--menu-contents' becomes complex, I suggest reverting this
commit, and then suggesting that users add the following to init.el:

(denote-menu-bar-mode +1)
---
 denote.el | 16 
 1 file changed, 12 insertions(+), 4 deletions(-)

diff --git a/denote.el b/denote.el
index a99d02de07..518e74e95c 100644
--- a/denote.el
+++ b/denote.el
@@ -3798,14 +3798,22 @@ This command is meant to be used from a Dired buffer."
  :selected (bound-and-true-p denote-dired-mode)])
   "Contents of the Denote menu.")
 
+(defun denote--menu-bar-enable ()
+  "Enable Denote menu bar."
+  (define-key-after global-map [menu-bar denote]
+(easy-menu-binding
+ (easy-menu-create-menu "Denote" denote--menu-contents) "Denote")
+"Tools"))
+
+;; Enable Denote menu bar by default
+(denote--menu-bar-enable)
+
 ;;;###autoload
 (define-minor-mode denote-menu-bar-mode "Show Denote menu bar."
   :global t
+  :init-value t
   (if denote-menu-bar-mode
-  (define-key-after global-map [menu-bar denote]
-(easy-menu-binding
- (easy-menu-create-menu "Denote" denote--menu-contents) "Denote")
-"Tools")
+  (denote--menu-bar-enable)
 (define-key global-map [menu-bar denote] nil)))
 
 (defun denote-context-menu (menu _click)



[elpa] externals/denote 7ca08f2a66 07/20: Refactor denote-org-capture and remove denote-org-capture-with-prompts

2023-12-20 Thread ELPA Syncer
branch: externals/denote
commit 7ca08f2a6643278086e75d2af8c0315d5d6f9214
Author: Jean-Philippe Gagné Guay 
Commit: Jean-Philippe Gagné Guay 

Refactor denote-org-capture and remove denote-org-capture-with-prompts
---
 denote.el | 97 ++-
 1 file changed, 40 insertions(+), 57 deletions(-)

diff --git a/denote.el b/denote.el
index de4b233e38..273bfb9106 100644
--- a/denote.el
+++ b/denote.el
@@ -3941,6 +3941,9 @@ the standard front matter we define."
 
 (defvar denote-last-path nil "Store last path.")
 
+;; TODO 2023-12-08: Maybe create a distinct variable
+;; `denote-org-capture-prompts' instead of reusing `denote-prompts'.
+
 ;;;###autoload
 (defun denote-org-capture ()
   "Create new note through `org-capture-templates'.
@@ -3949,71 +3952,51 @@ The file is populated with Denote's front matter.  It 
can then be
 expanded with the usual specifiers or strings that
 `org-capture-templates' supports.
 
-Note that this function ignores the `denote-file-type': it always
-sets the Org file extension for the created note to ensure that
-the capture process works as intended, especially for the desired
-output of the `denote-org-capture-specifiers' (which can include
-arbitrary text).
+This function obeys `denote-prompts', but it ignores `file-type',
+if present: it always sets the Org file extension for the created
+note to ensure that the capture process works as intended,
+especially for the desired output of the
+`denote-org-capture-specifiers' (which can include arbitrary
+text).
 
 Consult the manual for template samples."
-  (let* ((title (denote-title-prompt))
- (keywords (denote-keywords-prompt))
+  (let (title keywords subdirectory date template signature)
+(dolist (prompt denote-prompts)
+  (pcase prompt
+('title (setq title (denote-title-prompt
+  (when (use-region-p)
+(buffer-substring-no-properties
+ (region-beginning)
+ (region-end))
+('keywords (setq keywords (denote-keywords-prompt)))
+('subdirectory (setq subdirectory (denote-subdirectory-prompt)))
+('date (setq date (denote-date-prompt)))
+('template (setq template (denote-template-prompt)))
+('signature (setq signature (denote-signature-prompt)
+  (let* ((title (or title ""))
+ (date (if (or (null date) (string-empty-p date))
+   (current-time)
+ (denote--valid-date date)))
+ (id (denote--find-first-unused-id
+  (format-time-string denote-id-format date)
+  (denote--get-all-used-ids)))
+ (directory (if (denote--dir-in-denote-directory-p subdirectory)
+(file-name-as-directory subdirectory)
+  (denote-directory)))
+ (template (or (alist-get template denote-templates) ""))
+ (signature (or signature ""))
  (front-matter (denote--format-front-matter
 title (denote--date nil 'org) keywords
 (format-time-string denote-id-format nil) 'org)))
 (setq denote-last-path
-  (denote--path title keywords
-(file-name-as-directory (denote-directory))
-(format-time-string denote-id-format) 'org ""))
+  (denote--path title keywords directory id 'org signature))
 (denote--keywords-add-to-history keywords)
-(concat front-matter denote-org-capture-specifiers)))
+(concat front-matter template denote-org-capture-specifiers
 
-;; TODO 2023-12-02: Maybe simplify `denote-org-capture-with-prompts'
-;; by passing a single PROMPTS that is the same value as `denote-prompts'?
-
-;; TODO 2023-12-02: The `denote-org-capture-with-prompts' is missing a
-;; signature argument, but nobody has asked for it.  I think
-;; refactoring it per the above TODO is better, anyway.  But maybe do
-;; this after version 2.2.0 is out.
-
-;;;###autoload
-(defun denote-org-capture-with-prompts (&optional title keywords subdirectory 
date template)
-  "Like `denote-org-capture' but with optional prompt parameters.
-
-When called without arguments, do not prompt for anything.  Just
-return the front matter with title and keyword fields empty and
-the date and identifier fields specified.  Also make the file
-name consist of only the identifier plus the Org file name
-extension.
-
-Otherwise produce a minibuffer prompt for every non-nil value
-that corresponds to the TITLE, KEYWORDS, SUBDIRECTORY, DATE, and
-TEMPLATE arguments.  The prompts are those used by the standard
-`denote' command and all of its utility commands.
-
-When returning the contents that fill in the Org capture
-template, the sequence is as follows: front matter, TEMPLATE, and
-then the value of the user option `denote-org-capture-specifiers'.
-
-Important note: in the case of SUBDIRECTORY actual subdire

[elpa] externals/denote f26d8d7799 08/20: Handle nil case in denote-sort--define-lessp

2023-12-20 Thread ELPA Syncer
branch: externals/denote
commit f26d8d7799231cbf8bd5fda6cdd0d7eec671d085
Author: Jean-Philippe Gagné Guay 
Commit: Jean-Philippe Gagné Guay 

Handle nil case in denote-sort--define-lessp
---
 denote-sort.el | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/denote-sort.el b/denote-sort.el
index d9fd56c24f..3e75b3e628 100644
--- a/denote-sort.el
+++ b/denote-sort.el
@@ -58,8 +58,8 @@ two title values."
  component)
(let* ((one (,retrieve-fn file1))
   (two (,retrieve-fn file2))
-  (one-empty-p (string-empty-p one))
-  (two-empty-p (string-empty-p two)))
+  (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)



[elpa] externals/denote 2b627aaafd 11/20: Add denote-org-capture-with-prompts

2023-12-20 Thread ELPA Syncer
branch: externals/denote
commit 2b627aaafdb5bd50402e4f87de547b998019bc62
Author: Jean-Philippe Gagné Guay 
Commit: Jean-Philippe Gagné Guay 

Add denote-org-capture-with-prompts
---
 denote.el | 42 ++
 1 file changed, 38 insertions(+), 4 deletions(-)

diff --git a/denote.el b/denote.el
index 4567f609b5..6d4a2df7bf 100644
--- a/denote.el
+++ b/denote.el
@@ -3988,10 +3988,44 @@ Consult the manual for template samples."
 (denote--keywords-add-to-history keywords)
 (concat front-matter template denote-org-capture-specifiers
 
-(make-obsolete
- 'denote-org-capture-with-prompts
- 'denote-org-capture
- "2.3.0")
+;; TODO 2023-12-02: Maybe simplify `denote-org-capture-with-prompts'
+;; by passing a single PROMPTS that is the same value as `denote-prompts'?
+
+;; TODO 2023-12-02: The `denote-org-capture-with-prompts' is missing a
+;; signature argument, but nobody has asked for it.  I think
+;; refactoring it per the above TODO is better, anyway.  But maybe do
+;; this after version 2.2.0 is out.
+
+;;;###autoload
+(defun denote-org-capture-with-prompts (&optional title keywords subdirectory 
date template)
+  "Like `denote-org-capture' but with optional prompt parameters.
+
+When called without arguments, do not prompt for anything.  Just
+return the front matter with title and keyword fields empty and
+the date and identifier fields specified.  Also make the file
+name consist of only the identifier plus the Org file name
+extension.
+
+Otherwise produce a minibuffer prompt for every non-nil value
+that corresponds to the TITLE, KEYWORDS, SUBDIRECTORY, DATE, and
+TEMPLATE arguments.  The prompts are those used by the standard
+`denote' command and all of its utility commands.
+
+When returning the contents that fill in the Org capture
+template, the sequence is as follows: front matter, TEMPLATE, and
+then the value of the user option `denote-org-capture-specifiers'.
+
+Important note: in the case of SUBDIRECTORY actual subdirectories
+must exist---Denote does not create them.  Same principle for
+TEMPLATE as templates must exist and are specified in the user
+option `denote-templates'."
+  (let ((denote-prompts '()))
+(when template (push 'template denote-prompts))
+(when date (push 'date denote-prompts))
+(when subdirectory (push 'subdirectory denote-prompts))
+(when keywords (push 'keywords denote-prompts))
+(when title (push 'title denote-prompts))
+(denote-org-capture)))
 
 (defun denote-org-capture-delete-empty-file ()
   "Delete file if capture with `denote-org-capture' is aborted."



[elpa] externals/denote ee58ae014d 20/20: Merge pull request #199 from jeanphilippegg/refactor

2023-12-20 Thread ELPA Syncer
branch: externals/denote
commit ee58ae014d6a21e57ff68931ac4b5c07431b4ee5
Merge: f770346729 667c1370ba
Author: Protesilaos Stavrou 
Commit: GitHub 

Merge pull request #199 from jeanphilippegg/refactor

Refactor
---
 README.org  |  40 
 denote-org-dblock.el|  16 +--
 denote-rename-buffer.el |  10 +-
 denote-sort.el  |   4 +-
 denote.el   | 260 +---
 5 files changed, 164 insertions(+), 166 deletions(-)

diff --git a/README.org b/README.org
index 63b4a37409..3094895e58 100644
--- a/README.org
+++ b/README.org
@@ -3297,10 +3297,10 @@ invoke this command."
   (image-dired--with-marked
(when-let* ((file (image-dired-original-file-name))
(dir (file-name-directory file))
-   (id (denote-retrieve-filename-identifier file))
+   (id (or (denote-retrieve-filename-identifier file) ""))
(file-type (denote-filetype-heuristics file))
(title (denote--retrieve-title-or-filename file file-type))
-   (signature (denote-retrieve-filename-signature file))
+   (signature (or (denote-retrieve-filename-signature file) "")
(extension (file-name-extension file t))
(new-name (denote-format-file-name dir id keywords title 
extension signature))
(default-directory dir))
@@ -3923,25 +3923,21 @@ might change them without further notice.
 
 #+findex: denote-retrieve-filename-identifier
 + Function ~denote-retrieve-filename-identifier~ :: Extract identifier
-  from =FILE= name.  To create a new one, refer to the
+  from =FILE= name, if present, else return nil.  To create a new one, refer 
to the
   ~denote-create-unique-file-identifier~ function.
 
 #+findex: denote-retrieve-filename-title
 + Function ~denote-retrieve-filename-title~ ::  Extract Denote title
-  component from =FILE= name, else return an empty string. With
-  optional =FILE-NAME-BASE-FALLBACK= return ~file-name-base~ if no
-  Denote title component exists. If the extraction is succcessful
-  (when no ~file-name-base~ is involved) run ~denote-desluggify~ on
-  the title.
+  component from =FILE= name, if present, else return nil.
 
 #+findex: denote-retrieve-filename-keywords
 + Function ~denote-retrieve-filename-keywords~ ::  Extract keywords
-  from =FILE= name, if present, else return an empty string. Return
+  from =FILE= name, if present, else return nil. Return
   matched keywords as a single string.
 
 #+findex: denote-retrieve-filename-signature
 + Function ~denote-retrieve-filename-signature~ :: Extract signature
-  from =FILE= name, if present, else return an empty string.
+  from =FILE= name, if present, else return nil.
 
 #+findex: denote-create-unique-file-identifier
 + Function ~denote-create-unique-file-identifier~ :: Create a new unique
@@ -3961,30 +3957,30 @@ might change them without further notice.
   To only return an existing identifier, refer to the function
   ~denote-retrieve-filename-identifier~.
 
-#+findex: denote-retrieve-title-value
-+ Function ~denote-retrieve-title-value~ :: Return title value from
+#+findex: denote-retrieve-front-matter-title-value
++ Function ~denote-retrieve-front-matter-title-value~ :: Return title value 
from
   =FILE= front matter per =FILE-TYPE=.
 
-#+findex: denote-retrieve-title-line
-+ Function ~denote-retrieve-title-line~ :: Return title line from
+#+findex: denote-retrieve-front-matter-title-line
++ Function ~denote-retrieve-front-matter-title-line~ :: Return title line from
   =FILE= front matter per =FILE-TYPE=.
 
-#+findex: denote-retrieve-keywords-value
-+ Function ~denote-retrieve-keywords-value~ :: Return keywords value
+#+findex: denote-retrieve-front-matter-keywords-value
++ Function ~denote-retrieve-front-matter-keywords-value~ :: Return keywords 
value
   from =FILE= front matter per =FILE-TYPE=. The return value is a list
   of strings. To get a combined string the way it would appear in a
-  Denote file name, use ~denote-retrieve-keywords-value-as-string~.
+  Denote file name, use 
~denote-retrieve-front-matter-keywords-value-as-string~.
 
-#+findex: denote-retrieve-keywords-value-as-string
-+ Function ~denote-retrieve-keywords-value-as-string~ :: Return
+#+findex: denote-retrieve-front-matter-keywords-value-as-string
++ Function ~denote-retrieve-front-matter-keywords-value-as-string~ :: Return
   keywords value from =FILE= front matter per =FILE-TYPE=. The return
   value is a string, with the underscrore as a separator between
   individual keywords. To get a list of strings instead, use
-  ~denote-retrieve-keywords-value~ (the current function uses that
+  ~denote-retrieve-front-matter-keywords-value~ (the current function uses that
   internally).
 
-#+findex: denote-retrieve-keywords-line
-+ Function ~denote-retrieve-keywords-line~ :: Return keywords line
+#+findex: denote-retrieve-front-matter-keywords-line
++ Function ~denote-retrieve-front-matter-keyw

[elpa] externals/denote e6b7ba74e6 05/20: Make denote-retrieve-filename-identifier consistent with other functions

2023-12-20 Thread ELPA Syncer
branch: externals/denote
commit e6b7ba74e669f87073811d5e211f1c687abc03cb
Author: Jean-Philippe Gagné Guay 
Commit: Jean-Philippe Gagné Guay 

Make denote-retrieve-filename-identifier consistent with other functions
---
 denote.el | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/denote.el b/denote.el
index a529318a49..c5ba74f11e 100644
--- a/denote.el
+++ b/denote.el
@@ -1378,9 +1378,9 @@ contain the newline."
 
 To create a new one, refer to the function
 `denote-create-unique-file-identifier'."
-  (let ((file-name (file-name-nondirectory file)))
-(if (string-match (concat "\\`" denote-id-regexp) file-name)
-(match-string-no-properties 0 file-name
+  (let ((filename (file-name-nondirectory file)))
+(if (string-match (concat "\\`" denote-id-regexp) filename)
+(match-string-no-properties 0 filename
 
 ;; TODO 2023-12-08: Maybe we can only use
 ;; `denote-retrieve-filename-identifier' and remove this function.



[elpa] externals/denote 6acb25c7ec 10/20: Create aliases for denote-retrieve-front-matter-* functions

2023-12-20 Thread ELPA Syncer
branch: externals/denote
commit 6acb25c7ec262e280fb00c96b60a3a185e485e7b
Author: Jean-Philippe Gagné Guay 
Commit: Jean-Philippe Gagné Guay 

Create aliases for denote-retrieve-front-matter-* functions
---
 denote.el | 27 +++
 1 file changed, 11 insertions(+), 16 deletions(-)

diff --git a/denote.el b/denote.el
index 273bfb9106..4567f609b5 100644
--- a/denote.el
+++ b/denote.el
@@ -1499,25 +1499,20 @@ that internally)."
 (when (re-search-forward (denote--keywords-key-regexp file-type) nil t 1)
   (buffer-substring-no-properties (line-beginning-position) 
(line-end-position)
 
-(make-obsolete
- 'denote-retrieve-title-value
- 'denote-retrieve-front-matter-title-value
- "2.3.0")
+(defalias 'denote-retrieve-title-value 
'denote-retrieve-front-matter-title-value
+ "Alias for `denote-retrieve-front-matter-title-value'.")
 
-(make-obsolete
- 'denote-retrieve-title-line
- 'denote-retrieve-front-matter-title-line
- "2.3.0")
+(defalias 'denote-retrieve-title-line 'denote-retrieve-front-matter-title-line
+ "Alias for `denote-retrieve-front-matter-title-line'.")
 
-(make-obsolete
- 'denote-retrieve-keywords-value
- 'denote-retrieve-front-matter-keywords-value
- "2.3.0")
+(defalias 'denote-retrieve-keywords-value 
'denote-retrieve-front-matter-keywords-value
+ "Alias for `denote-retrieve-front-matter-keywords-value'.")
 
-(make-obsolete
- 'denote-retrieve-keywords-line
- 'denote-retrieve-front-matter-keywords-line
- "2.3.0")
+(defalias 'denote-retrieve-keywords-line 
'denote-retrieve-front-matter-keywords-line
+ "Alias for `denote-retrieve-front-matter-keywords-line'.")
+
+(defalias 'denote-retrieve-keywords-value-as-string 
'denote-retrieve-front-matter-keywords-value-as-string
+ "Alias for `denote-retrieve-front-matter-keywords-value-as-string'.")
 
 (defun denote--retrieve-title-or-filename (file type)
   "Return appropriate title for FILE given its TYPE."



[elpa] externals/denote 195f0c3b7f 14/20: Acknowledge Joseph Turner for commits 4261d19, f0910d3

2023-12-20 Thread ELPA Syncer
branch: externals/denote
commit 195f0c3b7f89b7a52232d8a2999a7207ccabdb7c
Author: Protesilaos Stavrou 
Commit: Protesilaos Stavrou 

Acknowledge Joseph Turner for commits 4261d19, f0910d3

Joseph has assigned copyright to the Free Software Foundation.
---
 README.org | 11 ++-
 1 file changed, 6 insertions(+), 5 deletions(-)

diff --git a/README.org b/README.org
index 0597b0801c..67496d8e8c 100644
--- a/README.org
+++ b/README.org
@@ -4880,11 +4880,12 @@ Denote is meant to be a collective effort.  Every bit 
of help matters.
   Radermacher, Colin McLear, Damien Cassou, Eduardo Grajeda, Elias
   Storms, Eshel Yaron, Florian, Graham Marlow, Hilde Rhyne, Ivan
   Sokolov, Jack Baty, Jean-Charles Bagneris, Jean-Philippe Gagné Guay,
-  Jürgen Hötzel, Kaushal Modi, Kai von Fintel, Kostas Andreadis, Kyle
-  Meyer, Marc Fargas, Matthew Lemon, Noboru Ota (nobiot), Norwid
-  Behrnd, Peter Prevos, Philip Kaludercic, Quiliro Ordóñez, Stefan
-  Monnier, Stefan Thesing, Thibaut Benjamin, Tomasz Hołubowicz, Vedang
-  Manerikar, ezchi, leinfink (Henrik), mentalisttraceur, relict007.
+  Joseph Turner, Jürgen Hötzel, Kaushal Modi, Kai von Fintel, Kostas
+  Andreadis, Kyle Meyer, Marc Fargas, Matthew Lemon, Noboru Ota
+  (nobiot), Norwid Behrnd, Peter Prevos, Philip Kaludercic, Quiliro
+  Ordóñez, Stefan Monnier, Stefan Thesing, Thibaut Benjamin, Tomasz
+  Hołubowicz, Vedang Manerikar, ezchi, leinfink (Henrik),
+  mentalisttraceur, relict007.
 
 + Ideas and/or user feedback :: Abin Simon, Aditya Yadav, Alan
   Schmitt, Aleksandr Vityazev, Alfredo Borrás, Ashton Wiersdorf,



[elpa] externals/denote e2ba6c144d 16/20: Guard sorting keywords when given an empty string

2023-12-20 Thread ELPA Syncer
branch: externals/denote
commit e2ba6c144d376548c072c4f7f9452ad22b78bb57
Author: Ashton Wiersdorf 
Commit: Protesilaos Stavrou 

Guard sorting keywords when given an empty string

I've been using Denote with Transient. However, when `denote' is
invoked non-interactively (as through a transient prefix) and no
keywords are specified, the empty string gets passed to `sort', which
is an error.

I've made a file that can be used with the `elpaca-test' macro from
the excellent Elpaca package manager to reproduce the bug. I've added
it as a paste here:

https://paste.sr.ht/~ashton314/66e2fe76478542c745368e82a8eb5c14af38e448
---
 denote.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/denote.el b/denote.el
index 89b2b276a3..a99d02de07 100644
--- a/denote.el
+++ b/denote.el
@@ -1031,7 +1031,7 @@ Return an empty string if the minibuffer input is empty."
 (defun denote-keywords-sort (keywords)
   "Sort KEYWORDS if `denote-sort-keywords' is non-nil.
 KEYWORDS is a list of strings, per `denote-keywords-prompt'."
-  (if denote-sort-keywords
+  (if (and (listp keywords) denote-sort-keywords)
   (sort keywords #'string-collate-lessp)
 keywords))
 



[elpa] externals/denote f0910d3146 13/20: Add denote-menu-bar-mode, making the Denote menu bar optional

2023-12-20 Thread ELPA Syncer
branch: externals/denote
commit f0910d31465090e181efcbba7e7b356329bc1429
Author: Joseph Turner 
Commit: Protesilaos Stavrou 

Add denote-menu-bar-mode, making the Denote menu bar optional

This reduces the effect that merely loading denote.el has on Emacs.
---
 denote.el | 13 +
 1 file changed, 9 insertions(+), 4 deletions(-)

diff --git a/denote.el b/denote.el
index d9210e1518..89b2b276a3 100644
--- a/denote.el
+++ b/denote.el
@@ -3798,10 +3798,15 @@ This command is meant to be used from a Dired buffer."
  :selected (bound-and-true-p denote-dired-mode)])
   "Contents of the Denote menu.")
 
-(define-key-after global-map [menu-bar denote]
-  (easy-menu-binding
-   (easy-menu-create-menu "Denote" denote--menu-contents) "Denote")
-  "Tools")
+;;;###autoload
+(define-minor-mode denote-menu-bar-mode "Show Denote menu bar."
+  :global t
+  (if denote-menu-bar-mode
+  (define-key-after global-map [menu-bar denote]
+(easy-menu-binding
+ (easy-menu-create-menu "Denote" denote--menu-contents) "Denote")
+"Tools")
+(define-key global-map [menu-bar denote] nil)))
 
 (defun denote-context-menu (menu _click)
   "Populate MENU with Denote commands at CLICK."



[elpa] externals/denote 4899ca5c78 09/20: Remove separator for the last file in denote-org-dblock-add-files

2023-12-20 Thread ELPA Syncer
branch: externals/denote
commit 4899ca5c7878bf408db41a3c7dc3aaa6f48fadce
Author: Jean-Philippe Gagné Guay 
Commit: Jean-Philippe Gagné Guay 

Remove separator for the last file in denote-org-dblock-add-files
---
 denote-org-dblock.el | 16 +---
 1 file changed, 5 insertions(+), 11 deletions(-)

diff --git a/denote-org-dblock.el b/denote-org-dblock.el
index 609b1c7311..ff6c05dfff 100644
--- a/denote-org-dblock.el
+++ b/denote-org-dblock.el
@@ -196,17 +196,11 @@ 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-dblock--files regexp sort-by-component reverse)))
-;; FIXME 2023-11-23: Do not use a separator for the last file.
-;; Not a big issue, but is worth checking.
-(mapc
- (lambda (file)
-   ;; NOTE 2023-11-23: I tried to just do `insert-file-contents'
-   ;; without the temporary buffer, but it seems that the point is
-   ;; not moved, so the SEPARATOR does not follow the contents.
-   (let ((contents (denote-org-dblock--get-file-contents file 
no-front-matter add-links)))
- (insert (concat contents (denote-org-dblock--separator separator)
- files)))
+  (let* ((files (denote-org-dblock--files regexp sort-by-component reverse))
+ (files-contents (mapcar
+  (lambda (file) (denote-org-dblock--get-file-contents 
file no-front-matter add-links))
+  files)))
+(insert (string-join files-contents (denote-org-dblock--separator 
separator)
 
 ;;;###autoload
 (defun denote-org-dblock-insert-files (regexp sort-by-component)



[elpa] externals/denote 6d71d3e1d3 04/20: Refactor denote-retrieve-filename-* functions

2023-12-20 Thread ELPA Syncer
branch: externals/denote
commit 6d71d3e1d3ab010ebdd1d8e8f222ce7eb1b1d6fc
Author: Jean-Philippe Gagné Guay 
Commit: Jean-Philippe Gagné Guay 

Refactor denote-retrieve-filename-* functions
---
 README.org  | 16 -
 denote-rename-buffer.el | 10 +++---
 denote.el   | 95 ++---
 3 files changed, 54 insertions(+), 67 deletions(-)

diff --git a/README.org b/README.org
index fc436d87ed..f121c25bf8 100644
--- a/README.org
+++ b/README.org
@@ -3297,10 +3297,10 @@ invoke this command."
   (image-dired--with-marked
(when-let* ((file (image-dired-original-file-name))
(dir (file-name-directory file))
-   (id (denote-retrieve-filename-identifier file))
+   (id (or (denote-retrieve-filename-identifier file) ""))
(file-type (denote-filetype-heuristics file))
(title (denote--retrieve-title-or-filename file file-type))
-   (signature (denote-retrieve-filename-signature file))
+   (signature (or (denote-retrieve-filename-signature file) "")
(extension (file-name-extension file t))
(new-name (denote-format-file-name dir id keywords title 
extension signature))
(default-directory dir))
@@ -3923,25 +3923,21 @@ might change them without further notice.
 
 #+findex: denote-retrieve-filename-identifier
 + Function ~denote-retrieve-filename-identifier~ :: Extract identifier
-  from =FILE= name.  To create a new one, refer to the
+  from =FILE= name, if present, else return nil.  To create a new one, refer 
to the
   ~denote-create-unique-file-identifier~ function.
 
 #+findex: denote-retrieve-filename-title
 + Function ~denote-retrieve-filename-title~ ::  Extract Denote title
-  component from =FILE= name, else return an empty string. With
-  optional =FILE-NAME-BASE-FALLBACK= return ~file-name-base~ if no
-  Denote title component exists. If the extraction is succcessful
-  (when no ~file-name-base~ is involved) run ~denote-desluggify~ on
-  the title.
+  component from =FILE= name, if present, else return nil.
 
 #+findex: denote-retrieve-filename-keywords
 + Function ~denote-retrieve-filename-keywords~ ::  Extract keywords
-  from =FILE= name, if present, else return an empty string. Return
+  from =FILE= name, if present, else return nil. Return
   matched keywords as a single string.
 
 #+findex: denote-retrieve-filename-signature
 + Function ~denote-retrieve-filename-signature~ :: Extract signature
-  from =FILE= name, if present, else return an empty string.
+  from =FILE= name, if present, else return nil.
 
 #+findex: denote-create-unique-file-identifier
 + Function ~denote-create-unique-file-identifier~ :: Create a new unique
diff --git a/denote-rename-buffer.el b/denote-rename-buffer.el
index ff28b8446e..2d52ac538f 100644
--- a/denote-rename-buffer.el
+++ b/denote-rename-buffer.el
@@ -94,11 +94,11 @@ buffer will be used, if available."
  (type (denote-filetype-heuristics file)))
 (string-trim
  (format-spec denote-rename-buffer-format
-  (list (cons ?t (denote-retrieve-title-value file type))
-(cons ?i (denote-retrieve-filename-identifier file))
-(cons ?d (denote-retrieve-filename-identifier file))
-(cons ?s (denote-retrieve-filename-signature file))
-(cons ?k (denote-retrieve-keywords-value-as-string 
file type))
+  (list (cons ?t (or (denote-retrieve-title-value file type) 
""))
+(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 (or (denote-retrieve-keywords-value-as-string 
file type) ""))
 (cons ?% "%"))
   'delete
 
diff --git a/denote.el b/denote.el
index 0e9bb9f057..a529318a49 100644
--- a/denote.el
+++ b/denote.el
@@ -735,7 +735,7 @@ For our purposes, a note must not be a directory, must 
satisfy
 
 (defun denote-file-has-identifier-p (file)
   "Return non-nil if FILE has a Denote identifier."
-  (denote-retrieve-filename-identifier file :no-error))
+  (denote-retrieve-filename-identifier file))
 
 (defun denote-file-has-signature-p (file)
   "Return non-nil if FILE has a Denote identifier."
@@ -1373,18 +1373,21 @@ contain the newline."
 
  Front matter or content retrieval functions
 
-(defun denote-retrieve-filename-identifier (file &optional no-error)
-  "Extract identifier from FILE name.
-If NO-ERROR is nil and an identifier is not found, return an
-error, else return nil.
+(defun denote-retrieve-filename-identifier (file)
+  "Extract identifier from FILE name, if present, else return nil.
 
 To create a new one, refer to the function
 `denote-create-uniqu

[elpa] externals/denote 3d4891b5dd 06/20: Rename denote-retrieve-title-* and denote-retrieve-keywords-* functions

2023-12-20 Thread ELPA Syncer
branch: externals/denote
commit 3d4891b5dd7b19230e8ad26858e8bb1ebd09929a
Author: Jean-Philippe Gagné Guay 
Commit: Jean-Philippe Gagné Guay 

Rename denote-retrieve-title-* and denote-retrieve-keywords-* functions
---
 README.org  | 24 ++---
 denote-rename-buffer.el |  4 ++--
 denote.el   | 56 +
 3 files changed, 52 insertions(+), 32 deletions(-)

diff --git a/README.org b/README.org
index f121c25bf8..b988818a91 100644
--- a/README.org
+++ b/README.org
@@ -3957,30 +3957,30 @@ might change them without further notice.
   To only return an existing identifier, refer to the function
   ~denote-retrieve-filename-identifier~.
 
-#+findex: denote-retrieve-title-value
-+ Function ~denote-retrieve-title-value~ :: Return title value from
+#+findex: denote-retrieve-front-matter-title-value
++ Function ~denote-retrieve-front-matter-title-value~ :: Return title value 
from
   =FILE= front matter per =FILE-TYPE=.
 
-#+findex: denote-retrieve-title-line
-+ Function ~denote-retrieve-title-line~ :: Return title line from
+#+findex: denote-retrieve-front-matter-title-line
++ Function ~denote-retrieve-front-matter-title-line~ :: Return title line from
   =FILE= front matter per =FILE-TYPE=.
 
-#+findex: denote-retrieve-keywords-value
-+ Function ~denote-retrieve-keywords-value~ :: Return keywords value
+#+findex: denote-retrieve-front-matter-keywords-value
++ Function ~denote-retrieve-front-matter-keywords-value~ :: Return keywords 
value
   from =FILE= front matter per =FILE-TYPE=. The return value is a list
   of strings. To get a combined string the way it would appear in a
-  Denote file name, use ~denote-retrieve-keywords-value-as-string~.
+  Denote file name, use 
~denote-retrieve-front-matter-keywords-value-as-string~.
 
-#+findex: denote-retrieve-keywords-value-as-string
-+ Function ~denote-retrieve-keywords-value-as-string~ :: Return
+#+findex: denote-retrieve-front-matter-keywords-value-as-string
++ Function ~denote-retrieve-front-matter-keywords-value-as-string~ :: Return
   keywords value from =FILE= front matter per =FILE-TYPE=. The return
   value is a string, with the underscrore as a separator between
   individual keywords. To get a list of strings instead, use
-  ~denote-retrieve-keywords-value~ (the current function uses that
+  ~denote-retrieve-front-matter-keywords-value~ (the current function uses that
   internally).
 
-#+findex: denote-retrieve-keywords-line
-+ Function ~denote-retrieve-keywords-line~ :: Return keywords line
+#+findex: denote-retrieve-front-matter-keywords-line
++ Function ~denote-retrieve-front-matter-keywords-line~ :: Return keywords line
   from =FILE= front matter per =FILE-TYPE=.
 
 #+findex: denote-signature-prompt
diff --git a/denote-rename-buffer.el b/denote-rename-buffer.el
index 2d52ac538f..352bfb73fa 100644
--- a/denote-rename-buffer.el
+++ b/denote-rename-buffer.el
@@ -94,11 +94,11 @@ buffer will be used, if available."
  (type (denote-filetype-heuristics file)))
 (string-trim
  (format-spec denote-rename-buffer-format
-  (list (cons ?t (or (denote-retrieve-title-value file type) 
""))
+  (list (cons ?t (or (denote-retrieve-front-matter-title-value 
file type) ""))
 (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 (or (denote-retrieve-keywords-value-as-string 
file type) ""))
+(cons ?k (or 
(denote-retrieve-front-matter-keywords-value-as-string file type) ""))
 (cons ?% "%"))
   'delete
 
diff --git a/denote.el b/denote.el
index c5ba74f11e..de4b233e38 100644
--- a/denote.el
+++ b/denote.el
@@ -1462,47 +1462,67 @@ Subroutine of `denote--file-with-temp-buffer'."
(goto-char (point-min))
,@body)))
 
-(defun denote-retrieve-title-value (file file-type)
+(defun denote-retrieve-front-matter-title-value (file file-type)
   "Return title value from FILE front matter per FILE-TYPE."
   (denote--file-with-temp-buffer file
 (when (re-search-forward (denote--title-key-regexp file-type) nil t 1)
   (funcall (denote--title-value-reverse-function file-type)
(buffer-substring-no-properties (point) (line-end-position))
 
-(defun denote-retrieve-title-line (file file-type)
+(defun denote-retrieve-front-matter-title-line (file file-type)
   "Return title line from FILE front matter per FILE-TYPE."
   (denote--file-with-temp-buffer file
 (when (re-search-forward (denote--title-key-regexp file-type) nil t 1)
   (buffer-substring-no-properties (line-beginning-position) 
(line-end-position)
 
-(defun denote-retrieve-keywords-value (file file-type)
+(defun denote-retrieve-front-matter-keywords-

[elpa] externals/denote 6e5ddc2623 01/20: Refactor denote-file-has-identifier-p and use it in various functions

2023-12-20 Thread ELPA Syncer
branch: externals/denote
commit 6e5ddc262381a94372c39ee58197a5df9c85c9a4
Author: Jean-Philippe Gagné Guay 
Commit: Jean-Philippe Gagné Guay 

Refactor denote-file-has-identifier-p and use it in various functions
---
 denote.el | 24 
 1 file changed, 8 insertions(+), 16 deletions(-)

diff --git a/denote.el b/denote.el
index 8f4cc1e677..838558047b 100644
--- a/denote.el
+++ b/denote.el
@@ -722,8 +722,7 @@ For our purposes, 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'."
   (and (string-prefix-p (denote-directory) (expand-file-name filename))
-   (string-match-p (concat "\\`" denote-id-regexp)
-   (file-name-nondirectory filename))
+   (denote-file-has-identifier-p filename)
(denote-file-has-supported-extension-p filename)))
 
 (defun denote-file-is-note-p (file)
@@ -736,8 +735,7 @@ For our purposes, a note must not be a directory, must 
satisfy
 
 (defun denote-file-has-identifier-p (file)
   "Return non-nil if FILE has a Denote identifier."
-  (string-match-p (concat "\\`" denote-id-regexp)
-  (file-name-nondirectory file)))
+  (denote-retrieve-filename-identifier file :no-error))
 
 (defun denote-file-has-signature-p (file)
   "Return non-nil if FILE has a Denote identifier."
@@ -768,7 +766,7 @@ FILE must be an absolute path."
 (defun denote-extract-id-from-string (string)
   "Return existing Denote identifier in STRING, else nil."
   (when (string-match denote-id-regexp string)
-(match-string 0 string)))
+(match-string-no-properties 0 string)))
 
 (define-obsolete-function-alias
   'denote--default-dir-has-denote-prefix
@@ -1735,8 +1733,7 @@ It checks files in variable `denote-directory' and active 
buffer files."
   (denote-directory-files)))
  (names (append file-names (denote--buffer-file-names
 (dolist (name names)
-  (let ((id (when (string-match (concat "\\`" denote-id-regexp) name)
-  (match-string-no-properties 0 name
+  (let ((id (denote-retrieve-filename-identifier name :no-error)))
 (puthash id t ids)))
 ids))
 
@@ -2537,10 +2534,7 @@ the changes made to the file: perform them outright."
   (declare (interactive-only t))
   (interactive nil dired-mode)
   (if-let ((marks (dired-get-marked-files)))
-  (let ((used-ids (when (seq-some
- (lambda (m)
-   (not (denote-retrieve-filename-identifier m 
:no-error)))
- marks)
+  (let ((used-ids (unless (seq-every-p #'denote-file-has-identifier-p 
marks)
 (denote--get-all-used-ids
 (dolist (file marks)
   (let* ((file-type (denote-filetype-heuristics file))
@@ -2607,9 +2601,7 @@ Specifically, do the following:
   (interactive nil dired-mode)
   (if-let ((marks (dired-get-marked-files)))
   (let ((keywords (denote-keywords-prompt "Rename marked files with 
keywords, overwriting existing (empty to ignore/remove)"))
-(used-ids (when (seq-some
- (lambda (m) (not 
(denote-retrieve-filename-identifier m :no-error)))
- marks)
+(used-ids (unless (seq-every-p #'denote-file-has-identifier-p 
marks)
 (denote--get-all-used-ids
 (dolist (file marks)
   (let* ((dir (file-name-directory file))
@@ -2683,7 +2675,7 @@ cannot know if they have front matter and what that may 
be."
   (if-let ((marks (seq-filter
(lambda (m)
  (and (denote-file-is-writable-and-supported-p m)
-  (denote-retrieve-filename-identifier m :no-error)))
+  (denote-file-has-identifier-p m)))
(dired-get-marked-files
   (progn
 (dolist (file marks)
@@ -2728,7 +2720,7 @@ relevant front matter."
 (denote-title-prompt)
 (denote-keywords-prompt)))
   (when (and (denote-file-is-writable-and-supported-p file)
- (denote-retrieve-filename-identifier file :no-error))
+ (denote-file-has-identifier-p file))
 (denote--add-front-matter
  file title keywords
  (denote-retrieve-filename-identifier file)



[nongnu] elpa/subed beadbffc18 2/3: Add extra line after comments in text output

2023-12-20 Thread ELPA Syncer
branch: elpa/subed
commit beadbffc18670d4d51e836d650cca06043f0b936
Author: Sacha Chua 
Commit: Sacha Chua 

Add extra line after comments in text output

* subed/subed-common.el (subed-subtitle-list-text): Add an extra line
after comments.
* tests/test-subed-common.el ("COMMON"): Update test.
* tests/test-subed-vtt.el ("VTT"): Update test.
---
 subed/subed-common.el  | 2 +-
 tests/test-subed-common.el | 4 ++--
 tests/test-subed-vtt.el| 2 +-
 3 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/subed/subed-common.el b/subed/subed-common.el
index d1870f3561..25b11f1af2 100644
--- a/subed/subed-common.el
+++ b/subed/subed-common.el
@@ -676,7 +676,7 @@ before including them."
  (if (functionp include-comments)
  (funcall include-comments (elt sub 4))
(elt sub 4))
- "\n"
+ "\n\n"
  (elt sub 3) "\n")
(concat (elt sub 3) "\n")))
subtitles
diff --git a/tests/test-subed-common.el b/tests/test-subed-common.el
index a875f74798..2e0ff214b2 100644
--- a/tests/test-subed-common.el
+++ b/tests/test-subed-common.el
@@ -3457,14 +3457,14 @@ This is another.
 '((nil 0 99 "Hello")
   (nil 100 199 "world" "Comment"))
 t)
-   :to-equal "Hello\n\nComment\nworld\n"))
+   :to-equal "Hello\n\nComment\n\nworld\n"))
 (it "includes comments transformed by a function."
   (let ((val
  (subed-subtitle-list-text
   '((nil 0 99 "Hello")
 (nil 100 199 "world" "Comment"))
   #'upcase)))
-(expect val :to-equal "Hello\n\nCOMMENT\nworld\n"
+(expect val :to-equal "Hello\n\nCOMMENT\n\nworld\n"
   (describe "Copying region text"
 (it "works on the whole buffer"
   (with-temp-srt-buffer
diff --git a/tests/test-subed-vtt.el b/tests/test-subed-vtt.el
index c0193ad3df..a93cf347c9 100644
--- a/tests/test-subed-vtt.el
+++ b/tests/test-subed-vtt.el
@@ -1742,7 +1742,7 @@ World
 00:01:21.058 --> 00:01:23.868
 Again")
(with-current-buffer (subed-convert "TXT" t)
- (expect (buffer-string) :to-equal 
"Hello\n\nComment\nWorld\nAgain\n")
+ (expect (buffer-string) :to-equal 
"Hello\n\nComment\n\nWorld\nAgain\n")
   (describe "iterating over subtitles"
 (describe "forwards"
   (it "handles headers."



[nongnu] elpa/subed d69d123b98 3/3: 1.2.10: version bump

2023-12-20 Thread ELPA Syncer
branch: elpa/subed
commit d69d123b984e0b8ac91f443865d67f0eb994316e
Author: Sacha Chua 
Commit: Sacha Chua 

1.2.10: version bump
---
 NEWS.org   | 5 +
 subed/subed.el | 2 +-
 2 files changed, 6 insertions(+), 1 deletion(-)

diff --git a/NEWS.org b/NEWS.org
index 1508f9b406..1b590da3b4 100644
--- a/NEWS.org
+++ b/NEWS.org
@@ -1,6 +1,11 @@
 #+OPTIONS: toc:nil
 
 * subed news
+** Version 1.2.10 - 2023-12-20 - Sacha Chua
+
+- Add extra line after comments in text output.
+- ~subed-guess-format~ can now take a filename.
+
 ** Version 1.2.9 - 2023-12-19 - Sacha Chua
 
 - New ol-subed adds subed: links to Org Mode. To use it, add ~(require
diff --git a/subed/subed.el b/subed/subed.el
index 636f9a88de..8a25fcc135 100644
--- a/subed/subed.el
+++ b/subed/subed.el
@@ -1,6 +1,6 @@
 ;;; subed.el --- A major mode for editing subtitles  -*- lexical-binding: t; 
-*-
 
-;; Version: 1.2.9
+;; Version: 1.2.10
 ;; Maintainer: Sacha Chua 
 ;; Author: Random User
 ;; Keywords: convenience, files, hypermedia, multimedia



[nongnu] elpa/subed 1e28ebe9c2 1/3: Add filename argument to subed-guess-format

2023-12-20 Thread ELPA Syncer
branch: elpa/subed
commit 1e28ebe9c2000868c670b41ea5559f74a97459eb
Author: Sacha Chua 
Commit: Sacha Chua 

Add filename argument to subed-guess-format

* subed/subed.el (subed-guess-format): Add filename argument.
---
 subed/subed.el | 9 +
 1 file changed, 5 insertions(+), 4 deletions(-)

diff --git a/subed/subed.el b/subed/subed.el
index 97a72f0ff0..636f9a88de 100644
--- a/subed/subed.el
+++ b/subed/subed.el
@@ -147,15 +147,16 @@ Key bindings:
 (declare-function subed-vtt-mode "subed-vtt" (&optional arg))
 (declare-function subed-srt-mode "subed-srt" (&optional arg))
 
-(defun subed-guess-format ()
+(defun subed-guess-format (&optional filename)
   "Set this buffer's format to a more specific subed mode format.
 This is a workaround for the transition to using format-specific
 modes such as `subed-srt-mode' while `auto-mode-alist' might
 still refer to `subed-mode'.  It will also switch to the
 format-specific mode if `subed-mode' is called directly."
-  (when (and (eq major-mode 'subed-mode)
- (buffer-file-name))
-(pcase (file-name-extension (buffer-file-name))
+  (when (or filename
+(and (eq major-mode 'subed-mode)
+ (buffer-file-name)))
+(pcase (file-name-extension (or filename (buffer-file-name)))
   ("vtt" (subed-vtt-mode))
   ("srt" (subed-srt-mode))
   ("ass" (subed-ass-mode)



[nongnu] elpa/subed updated (0b4850030a -> d69d123b98)

2023-12-20 Thread ELPA Syncer
elpasync pushed a change to branch elpa/subed.

  from  0b4850030a 1.2.9: bump version, document changes
   new  1e28ebe9c2 Add filename argument to subed-guess-format
   new  beadbffc18 Add extra line after comments in text output
   new  d69d123b98 1.2.10: version bump


Summary of changes:
 NEWS.org   |  5 +
 subed/subed-common.el  |  2 +-
 subed/subed.el | 11 ++-
 tests/test-subed-common.el |  4 ++--
 tests/test-subed-vtt.el|  2 +-
 5 files changed, 15 insertions(+), 9 deletions(-)



[elpa] externals/dape e4b0cdbe46 1/9: Fix faulty minibuffer binding

2023-12-20 Thread ELPA Syncer
branch: externals/dape
commit e4b0cdbe46a888a2bf6c214841e7709f17ec00fd
Author: Daniel Pettersson 
Commit: Daniel Pettersson 

Fix faulty minibuffer binding
---
 dape.el | 1 -
 1 file changed, 1 deletion(-)

diff --git a/dape.el b/dape.el
index b3efb24b18..b4e00f49fc 100644
--- a/dape.el
+++ b/dape.el
@@ -3365,7 +3365,6 @@ See `dape--config-mode-p' how \"valid\" is defined."
   (let ((map (make-sparse-keymap)))
 (set-keymap-parent map 
minibuffer-local-map)
 (define-key map "C-M-i" 
#'completion-at-point)
-(define-key map "TAB" 
#'completion-at-point)
 (define-key map "\t" 
#'completion-at-point)
 map)
   nil 'dape-history 
initial-contents))



[elpa] externals/dape 8a5c388ba9 5/9: Use integrated terminal as the python default

2023-12-20 Thread ELPA Syncer
branch: externals/dape
commit 8a5c388ba900a4a1dff635468837fbc346c107fe
Author: Daniel Pettersson 
Commit: Daniel Pettersson 

Use integrated terminal as the python default
---
 dape.el | 1 +
 1 file changed, 1 insertion(+)

diff --git a/dape.el b/dape.el
index c380cf924c..c3622aca40 100644
--- a/dape.el
+++ b/dape.el
@@ -121,6 +121,7 @@
  :cwd dape-cwd-fn
  :program dape-find-file-buffer-default
  :justMyCode nil
+ :console "integratedTerminal"
  :showReturnValue t)
 (dlv
  modes (go-mode go-ts-mode)



[elpa] externals/dape 8d7a979a56 2/9: Use python instead of default python3 in debugpy #29

2023-12-20 Thread ELPA Syncer
branch: externals/dape
commit 8d7a979a56601277b578f0cd0e533d0717d1c198
Author: Daniel Pettersson 
Commit: Daniel Pettersson 

Use python instead of default python3 in debugpy #29
---
 dape.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/dape.el b/dape.el
index b4e00f49fc..0a9f8eaf0a 100644
--- a/dape.el
+++ b/dape.el
@@ -113,7 +113,7 @@
   (format "%s -c \"import debugpy.adapter\"" python)))
   (user-error "%s module debugpy is not installed" python
  fn (dape-config-autoport dape-config-tramp)
- command "python3"
+ command "python"
  command-args ("-m" "debugpy.adapter" "--host" "0.0.0.0" "--port" 
:autoport)
  port :autoport
  :request "launch"



[elpa] externals/dape 0f9b849b77 7/9: Fix goto breakpoint

2023-12-20 Thread ELPA Syncer
branch: externals/dape
commit 0f9b849b7709832f93921c53b2ff150ac36f21cb
Author: Daniel Pettersson 
Commit: Daniel Pettersson 

Fix goto breakpoint
---
 dape.el | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/dape.el b/dape.el
index 800148df63..0951fb9e58 100644
--- a/dape.el
+++ b/dape.el
@@ -2669,9 +2669,9 @@ FN is executed on mouse-2 and ?r, BODY is executed inside 
of let stmt."
 (dape--info-buffer-command dape-info-breakpoint-goto (dape--info-breakpoint)
   "Goto breakpoint at line in dape info buffer."
   (when-let* ((buffer (overlay-buffer dape--info-breakpoint)))
-(display-buffer buffer
-dape-display-source-buffer-action)
-(goto-char (overlay-start buffer
+(select-window
+ (display-buffer buffer dape-display-source-buffer-action))
+(goto-char (overlay-start dape--info-breakpoint
 
 (dape--info-buffer-command dape-info-breakpoint-delete (dape--info-breakpoint)
   "Delete breakpoint at line in dape info buffer."



[elpa] externals/dape 1fb479d757 6/9: Fix warnings

2023-12-20 Thread ELPA Syncer
branch: externals/dape
commit 1fb479d757e09480a8c341ec9ca06b5293e6fa66
Author: Daniel Pettersson 
Commit: Daniel Pettersson 

Fix warnings
---
 dape.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/dape.el b/dape.el
index c3622aca40..800148df63 100644
--- a/dape.el
+++ b/dape.el
@@ -1354,7 +1354,7 @@ Adapter is identified with PROCESS."
command
arguments))
 
-(cl-defmethod dape-handle-request (process (command (eql runInTerminal)) seq 
arguments)
+(cl-defmethod dape-handle-request (_process (_command (eql runInTerminal)) 
_seq arguments)
   "Handle runInTerminal requests.
 Starts a new process to run process to be debugged."
   (let ((default-directory (or (plist-get arguments :cwd)



[elpa] externals/dape 9a75efe29c 9/9: Improve usefulness of dape-evaluate-expression

2023-12-20 Thread ELPA Syncer
branch: externals/dape
commit 9a75efe29c8b51d27506e85c2fc4afc7ca7a8e90
Author: Daniel Pettersson 
Commit: Daniel Pettersson 

Improve usefulness of dape-evaluate-expression
---
 dape.el | 8 +---
 1 file changed, 5 insertions(+), 3 deletions(-)

diff --git a/dape.el b/dape.el
index 8300dbe30c..8885639638 100644
--- a/dape.el
+++ b/dape.el
@@ -1856,7 +1856,9 @@ Watched symbols are displayed in *dape-info* buffer.
   (run-hooks 'dape-update-ui-hooks))
 
 (defun dape-evaluate-expression (expression)
-  "Evaluate EXPRESSION."
+  "Evaluate EXPRESSION.
+EXPRESSION can be an expression or adapter command, as it's evaluated in
+repl context."
   (interactive
(list (string-trim
   (read-string "Evaluate: "
@@ -1867,8 +1869,8 @@ Watched symbols are displayed in *dape-info* buffer.
   (dape--with dape--evaluate-expression ((dape--live-process)
  (plist-get 
(dape--current-stack-frame) :id)
  (substring-no-properties expression)
- "hover")
-  (message "%S" body)))
+ "repl")
+  (message "%s" (plist-get body :result
 
 ;;;###autoload
 (defun dape (config &optional skip-compile)



[elpa] externals/dape f423809b2f 8/9: Remove useless interactive prefix arg

2023-12-20 Thread ELPA Syncer
branch: externals/dape
commit f423809b2f18527df4f7cfa20b121d333b0cf227
Author: Daniel Pettersson 
Commit: Daniel Pettersson 

Remove useless interactive prefix arg
---
 dape.el | 51 +--
 1 file changed, 25 insertions(+), 26 deletions(-)

diff --git a/dape.el b/dape.el
index 0951fb9e58..8300dbe30c 100644
--- a/dape.el
+++ b/dape.el
@@ -511,26 +511,25 @@ The hook is run with one argument, the compilation 
buffer."
   (declare (indent 2))
   `(,request-fn ,@args (dape--callback ,@body)))
 
-(defun dape--next-like-command (command &optional arg)
+(defun dape--next-like-command (command)
   "Helper for interactive step like commands.
 Run step like COMMAND.  If ARG is set run COMMAND ARG times."
   (if (dape--stopped-threads)
-  (dotimes (_ (or arg 1))
-(dape-request (dape--live-process)
-  command
-  `(,@(dape--thread-id-object)
-,@(when (plist-get dape--capabilities
-   :supportsSteppingGranularity)
-(list :granularity
-  (symbol-name dape-stepping-granularity
-  (dape--callback
-   (when success
- (dape--update-state "running")
- (dape--remove-stack-pointers)
- (dolist (thread dape--threads)
-   (plist-put thread :status "running"))
- (run-hooks 'dape-update-ui-hooks)
-(user-error "No stopped threads")))
+  (dape-request (dape--live-process)
+command
+`(,@(dape--thread-id-object)
+  ,@(when (plist-get dape--capabilities
+ :supportsSteppingGranularity)
+  (list :granularity
+(symbol-name dape-stepping-granularity
+(dape--callback
+ (when success
+   (dape--update-state "running")
+   (dape--remove-stack-pointers)
+   (dolist (thread dape--threads)
+ (plist-put thread :status "running"))
+   (run-hooks 'dape-update-ui-hooks)
+  (user-error "No stopped threads"))
 
 (defun dape--thread-id-object ()
   "Helper to construct a thread id object."
@@ -1607,20 +1606,20 @@ Starts a new process as per request of the debug 
adapter."
 
 ;;; Commands
 
-(defun dape-next (&optional arg)
+(defun dape-next ()
   "Step one line (skip functions)."
-  (interactive (list current-prefix-arg))
-  (dape--next-like-command "next" arg))
+  (interactive)
+  (dape--next-like-command "next"))
 
-(defun dape-step-in (&optional arg)
+(defun dape-step-in ()
   "Steps into function/method. If not possible behaves like `dape-next'."
-  (interactive (list current-prefix-arg))
-  (dape--next-like-command "stepIn" arg))
+  (interactive)
+  (dape--next-like-command "stepIn"))
 
-(defun dape-step-out (&optional arg)
+(defun dape-step-out ()
   "Steps out of function/method. If not possible behaves like `dape-next'."
-  (interactive (list current-prefix-arg))
-  (dape--next-like-command "stepOut" arg))
+  (interactive)
+  (dape--next-like-command "stepOut"))
 
 (defun dape-continue ()
   "Resumes execution."



[elpa] externals/dape updated (432776f347 -> 9a75efe29c)

2023-12-20 Thread ELPA Syncer
elpasync pushed a change to branch externals/dape.

  from  432776f347 Refactor connection/process creation
   new  e4b0cdbe46 Fix faulty minibuffer binding
   new  8d7a979a56 Use python instead of default python3 in debugpy #29
   new  ae39e2e647 Refactor startDebugRequest
   new  a0f5664c44 Improve runInTerminal request, use correct cwd
   new  8a5c388ba9 Use integrated terminal as the python default
   new  1fb479d757 Fix warnings
   new  0f9b849b77 Fix goto breakpoint
   new  f423809b2f Remove useless interactive prefix arg
   new  9a75efe29c Improve usefulness of dape-evaluate-expression


Summary of changes:
 dape.el | 141 
 1 file changed, 70 insertions(+), 71 deletions(-)



[elpa] externals/dape a0f5664c44 4/9: Improve runInTerminal request, use correct cwd

2023-12-20 Thread ELPA Syncer
branch: externals/dape
commit a0f5664c44c3cb1b77596fb2d1bc2360710ac5fb
Author: Daniel Pettersson 
Commit: Daniel Pettersson 

Improve runInTerminal request, use correct cwd
---
 dape.el | 31 +++
 1 file changed, 19 insertions(+), 12 deletions(-)

diff --git a/dape.el b/dape.el
index 8d8d72fd79..c380cf924c 100644
--- a/dape.el
+++ b/dape.el
@@ -1353,17 +1353,21 @@ Adapter is identified with PROCESS."
command
arguments))
 
-(cl-defmethod dape-handle-request (process (_command (eql runInTerminal)) _seq 
arguments)
+(cl-defmethod dape-handle-request (process (command (eql runInTerminal)) seq 
arguments)
   "Handle runInTerminal requests.
 Starts a new process to run process to be debugged."
-  (let* ((cwd (plist-get process :cwd))
- (default-directory (or (and cwd
- (not (string-blank-p cwd))
- cwd)
-default-directory))
- (buffer (get-buffer-create "*dape-shell*"))
- (display-buffer-alist
-  '(((major-mode . shell-mode) . (display-buffer-no-window)
+  (let ((default-directory (or (plist-get arguments :cwd)
+   default-directory))
+(process-environment
+ (or (cl-loop for (key value) on (plist-get arguments :env) by 'cddr
+  collect
+  (format "%s=%s"
+  (substring (format "%s" key) 1)
+  value))
+ process-environment))
+(buffer (get-buffer-create "*dape-shell*"))
+(display-buffer-alist
+ '(((major-mode . shell-mode) . (display-buffer-no-window)
 (async-shell-command (string-join
   (cl-map 'list
   'identity
@@ -1371,9 +1375,12 @@ Starts a new process to run process to be debugged."
   " ")
  buffer
  buffer)
-(dape--display-buffer buffer))
-  ;; For debugpy crashes if we send an response...
-  )
+(dape--display-buffer buffer)
+;; For debugpy crashes if we send an response... it expects seq
+;; in response which makes no sense
+;; (dape--response process (symbol-name command) seq t
+;; `(:processID ,pid))
+))
 
 (cl-defmethod dape-handle-request (process (command (eql startDebugging)) seq 
arguments)
   "Handle startDebugging requests.



[elpa] externals/dape ae39e2e647 3/9: Refactor startDebugRequest

2023-12-20 Thread ELPA Syncer
branch: externals/dape
commit ae39e2e64783c98ac9bc9d734dc7e416545ed213
Author: Daniel Pettersson 
Commit: Daniel Pettersson 

Refactor startDebugRequest

Its still a mess but dape looks a bit better
---
 dape.el | 41 -
 1 file changed, 16 insertions(+), 25 deletions(-)

diff --git a/dape.el b/dape.el
index 0a9f8eaf0a..8d8d72fd79 100644
--- a/dape.el
+++ b/dape.el
@@ -1384,9 +1384,9 @@ Starts a new process as per request of the debug adapter."
   (when (hash-table-p dape--timers)
 (dolist (timer (hash-table-values dape--timers))
   (cancel-timer timer)))
-  (dape (plist-put dape--config
-   'start-debugging
-   (plist-get arguments :configuration
+  (dape--create-connection (plist-put dape--config
+  'start-debugging
+  (plist-get arguments :configuration
 
 
 ;;; Events
@@ -1880,28 +1880,19 @@ Executes alist key `launch' in `dape-configs' with 
:program as \"bin\".
 
 Use SKIP-COMPILE to skip compilation."
   (interactive (list (dape--read-config)))
-  (let ((fn
- (dape--callback
-  (unless (plist-get config 'start-debugging)
-(when-let ((buffer (get-buffer "*dape-debug*")))
-  (with-current-buffer buffer
-(let ((inhibit-read-only t))
-  (erase-buffer)
-  (when-let ((fn (plist-get config 'fn))
- (fns (or (and (functionp fn) (list fn))
-  (and (listp fn) fn
-(setq config
-  (seq-reduce (lambda (config fn)
-(funcall fn config))
-  fns (copy-tree config
-  (when-let ((ensure (plist-get config 'ensure)))
-(funcall ensure (copy-tree config)))
-  (if (and (not skip-compile) (plist-get config 'compile))
-  (dape--compile config)
-(dape--create-connection config)
-(if (plist-get config 'start-debugging)
-(funcall fn)
-  (dape-kill fn
+  (dape--with dape-kill ()
+(when-let ((fn (plist-get config 'fn))
+   (fns (or (and (functionp fn) (list fn))
+(and (listp fn) fn
+  (setq config
+(seq-reduce (lambda (config fn)
+  (funcall fn config))
+fns (copy-tree config
+(when-let ((ensure (plist-get config 'ensure)))
+  (funcall ensure (copy-tree config)))
+(if (and (not skip-compile) (plist-get config 'compile))
+(dape--compile config)
+  (dape--create-connection config
 
 
 ;;; Compile



[nongnu] elpa/subed e73c0a3803: 1.2.11 New commands subed-shift-subtitles-to-start-at-timestamp, subed-move-subtitles-to-start-at-timestamp, add workflow notes

2023-12-20 Thread ELPA Syncer
branch: elpa/subed
commit e73c0a38039eb32fd43911023ff35007e324c733
Author: Sacha Chua 
Commit: Sacha Chua 

1.2.11 New commands subed-shift-subtitles-to-start-at-timestamp, 
subed-move-subtitles-to-start-at-timestamp, add workflow notes

Sometimes I just want to move a subtitle to start at a specific
timestamp without needing to do the math.

* subed/subed-common.el (subed-shift-subtitles-to-start-at-timestamp): New 
command.
(subed-move-subtitles-to-start-at-timestamp): New command.
(subed-shift-subtitles): Include a pointer to 
subed-shift-subtitles-to-start-at-timestamp.
(subed-move-subtitles): Include a pointer to 
subed-move-subtitles-to-start-at-timestamp.
* tests/test-subed-common.el ("COMMON"): Add tests for shifting and moving.
* subed/subed.el (subed-guess-format): Add documentation.
* README.org: Added workflow notes.
---
 NEWS.org   |   7 +
 README.org |  78 +
 subed/subed-common.el  |  28 +-
 subed/subed.el |   6 +-
 tests/test-subed-common.el | 770 -
 5 files changed, 526 insertions(+), 363 deletions(-)

diff --git a/NEWS.org b/NEWS.org
index 1b590da3b4..f45723d352 100644
--- a/NEWS.org
+++ b/NEWS.org
@@ -1,6 +1,13 @@
 #+OPTIONS: toc:nil
 
 * subed news
+** Version 1.2.11 - 2022-12-20 - Sacha Chua
+
+- New commands ~subed-shift-subtitles-to-start-at-timestamp~ and
+  ~subed-move-subtitles-to-start-at-timestamp~ should make it easier
+  to adjust timestamps without doing msec math.
+- Add workflow notes to README.org.
+
 ** Version 1.2.10 - 2023-12-20 - Sacha Chua
 
 - Add extra line after comments in text output.
diff --git a/README.org b/README.org
index 918ed7b8dc..28525cecf2 100644
--- a/README.org
+++ b/README.org
@@ -256,6 +256,84 @@ If you use 
[[https://github.com/radian-software/straight.el][straight.el]], you
 ~subed-srt-mode~, ~subed-vtt-mode~, and ~subed-ass-mode~. When
 manually loading a mode, use those specific format modes instead of
 ~subed-mode~.
+** Some workflow ideas
+
+*** Reflowing subtitles into shorter or longer lines
+
+You may want to use ~set-fill-column~ and
+~display-fill-column-indicator-mode~ to show the target number of
+characters.
+
+Use ~subed-split-subtitle~ (~M-.~), ~subed-merge-dwim~ (~M-b~), and
+~subed-merge-with-previous~ (~M-M~) to split lines.
+
+Splitting will use the current MPV position if available. If not, it
+will guess where to split based on the the number of characters in the
+subtitle. You can use ~subed-mpv-jump-to-current-subtitle~ (~M-j~) to play the
+current subtitle manually and use ~subed-mpv-toggle-pause~ (~M-SPC~) to stop at
+the right time. Use ~subed-toggle-loop-over-current-subtitle~ (~C-c C-l~) if 
you
+want to keep looping. ~subed-waveform-show-current~ can help you
+fine-tune the split.
+
+*** Adjusting timestamps
+
+You can use ~subed-mpv-jump-to-current-subtitle~ (~M-j~) to play the
+current subtitle manually. Use
+~subed-mpv-jump-to-current-subtitle-near-end~ (~M-J~) to jump to near
+the end of the subtitle in order to test it. Use
+~subed-toggle-loop-over-current-subtitle~ (~C-c C-l~) if you want to
+keep looping automatically. Use ~subed-mpv-toggle-pause~ (~M-SPC~) to stop at 
the
+right time.
+
+~subed-waveform-show-current~ or ~subed-waveform-show-all~ can be
+useful for adjusting start and end timestamps. Use
+~subed-waveform-set-start~ (~mouse-1~, which is left click) or 
~subed-waveform-set-stop~ (~mouse-3~, which is right-click) to adjust only
+the current subtitle's timestamps, or use
+~subed-waveform-set-start-and-copy-to-previous~ (~S-mouse-1~ or ~M-mouse-1~) or
+~subed-waveform-set-stop-and-copy-to-next~ (~S-mouse-3~ or ~M-mouse-3~) to 
adjust adjacent
+subtitles as well.
+
+You can also manually adjust
+
+- subtitle start: ~M-[~  / ~M-]~
+- subtitle stop: (~M-{~ / ~M-}~)
+
+A prefix argument sets the number of milliseconds (e.g. ~C-u 1000 M-[ M-[ M-[~ 
decreases start time by 3 seconds).
+
+*** Editing subtitles
+
+You can use ~subed-mpv-jump-to-current-subtitle~ (~M-j~) to play the current
+subtitle and use ~subed-mpv-toggle-pause~ (~M-SPC~) to stop at the right time.
+Use ~subed-toggle-loop-over-current-subtitle~ (~C-c C-l~) if you want to keep
+looping automatically.
+
+If you have wdiff installed, you can use
+~subed-wdiff-subtitle-text-with-file~ to compare the subtitle text
+with a script or another subtitle file.
+
+*** Writing subtitles from scratch
+
+One way is to start with one big subtitle that covers the whole media
+file, and then split it using ~subed-split-subtitle~ (~M-.~).
+
+Another way is to type as much of the text as you can without worrying
+about timestamps, putting each caption on a separate line. Then you
+can use ~subed-align~ to convert it into timestamped captions.
+
+*** Resynchronizing subtitles
+
+If you're using ~subed-waveform-show-current~ or ~subed-waveform-show-all~, 
you can use ~M-mouse-2~ (Meta-middle-click, ~subed-waveform-shift-

[elpa] externals/dape 28f43ea21c 2/2: Fix dape repl focus

2023-12-20 Thread ELPA Syncer
branch: externals/dape
commit 28f43ea21ce73e4480168321c1593eedc20aa5ce
Author: Daniel Pettersson 
Commit: Daniel Pettersson 

Fix dape repl focus

repl looses focus on step commands
---
 dape.el | 7 ++-
 1 file changed, 2 insertions(+), 5 deletions(-)

diff --git a/dape.el b/dape.el
index 8921ae3714..a28de1c77a 100644
--- a/dape.el
+++ b/dape.el
@@ -2164,17 +2164,14 @@ See `dape--callback' for expected CB signature."
   (dape--remove-stack-pointers)
   (when-let ((frame (dape--current-stack-frame)))
 (dape--with dape--source-ensure ((dape--live-process t) frame)
+  (dape--goto-source frame (memq major-mode '(dape-repl-mode)) t)
   (when-let ((marker (dape--object-to-marker frame)))
 (with-current-buffer (marker-buffer marker)
   (dape--add-eldoc-hook)
   (save-excursion
 (goto-char (marker-position marker))
 (set-marker dape--stack-position
-(line-beginning-position
-(dape--goto-source frame
-   (memq major-mode
- '(dape-repl-mode))
-   t)
+(line-beginning-position
 
 (add-to-list 'overlay-arrow-variable-list 'dape--stack-position)
 



[elpa] externals/dape updated (9a75efe29c -> 28f43ea21c)

2023-12-20 Thread ELPA Syncer
elpasync pushed a change to branch externals/dape.

  from  9a75efe29c Improve usefulness of dape-evaluate-expression
   new  b5f7e75e78 Fix "No stopped threads" message on next/step etc.
   new  28f43ea21c Fix dape repl focus


Summary of changes:
 dape.el | 11 ---
 1 file changed, 4 insertions(+), 7 deletions(-)



[elpa] externals/dape b5f7e75e78 1/2: Fix "No stopped threads" message on next/step etc.

2023-12-20 Thread ELPA Syncer
branch: externals/dape
commit b5f7e75e78dc962266f14c882703b5ca88457d12
Author: Daniel Pettersson 
Commit: Daniel Pettersson 

Fix "No stopped threads" message on next/step etc.
---
 dape.el | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/dape.el b/dape.el
index 8885639638..8921ae3714 100644
--- a/dape.el
+++ b/dape.el
@@ -528,8 +528,8 @@ Run step like COMMAND.  If ARG is set run COMMAND ARG 
times."
(dape--remove-stack-pointers)
(dolist (thread dape--threads)
  (plist-put thread :status "running"))
-   (run-hooks 'dape-update-ui-hooks)
-  (user-error "No stopped threads"))
+   (run-hooks 'dape-update-ui-hooks
+(user-error "No stopped threads")))
 
 (defun dape--thread-id-object ()
   "Helper to construct a thread id object."



[elpa] externals/company be2157ddd8 1/2: Fix company-tests.el footer

2023-12-20 Thread ELPA Syncer
branch: externals/company
commit be2157ddd8e34f18c01e4aa98d0577a25caa6938
Author: Allen Li 
Commit: Allen Li 

Fix company-tests.el footer
---
 company-tests.el | 1 +
 1 file changed, 1 insertion(+)

diff --git a/company-tests.el b/company-tests.el
index b49c201f7f..aeb94a73f7 100644
--- a/company-tests.el
+++ b/company-tests.el
@@ -43,3 +43,4 @@
 'ert-equal-including-properties))
 
 (provide 'company-tests)
+;;; company-tests.el ends here



[elpa] externals/company d04e665d8c 2/2: Merge pull request #1439 from darkfeline/fix

2023-12-20 Thread ELPA Syncer
branch: externals/company
commit d04e665d8ca01a5baa42b5e2dad88d5bbe5a9b8f
Merge: 9c12b02620 be2157ddd8
Author: Dmitry Gutov 
Commit: GitHub 

Merge pull request #1439 from darkfeline/fix

Fix company-tests.el footer
---
 company-tests.el | 1 +
 1 file changed, 1 insertion(+)

diff --git a/company-tests.el b/company-tests.el
index b49c201f7f..aeb94a73f7 100644
--- a/company-tests.el
+++ b/company-tests.el
@@ -43,3 +43,4 @@
 'ert-equal-including-properties))
 
 (provide 'company-tests)
+;;; company-tests.el ends here



[nongnu] elpa/diff-ansi updated (c14d1f6c58 -> cdae72a471)

2023-12-20 Thread ELPA Syncer
elpasync pushed a change to branch elpa/diff-ansi.

  from  c14d1f6c58 Improve 'with-advice' using gensym for let bound variable
   new  5ccda5fb89 delta: set --pager=never
   new  cdae72a471 Cleanup: assign a variable for the processes final 
destination


Summary of changes:
 diff-ansi.el | 17 +
 1 file changed, 9 insertions(+), 8 deletions(-)



[nongnu] elpa/diff-ansi 5ccda5fb89 1/2: delta: set --pager=never

2023-12-20 Thread ELPA Syncer
branch: elpa/diff-ansi
commit 5ccda5fb89d89f1b14277d25c606fc7c8ff0c3a0
Author: Campbell Barton 
Commit: Campbell Barton 

delta: set --pager=never

Ensure a pager is never used since it makes no sense when
the output is piped.

I ran into this while debugging unrelated changes, so while
this shouldn't occur for typical usage, it's safe to force-disable
paging.
---
 diff-ansi.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/diff-ansi.el b/diff-ansi.el
index ffee8b422f..1c8804c9be 100644
--- a/diff-ansi.el
+++ b/diff-ansi.el
@@ -71,7 +71,7 @@ This must take the diff content as the `standard-input'."
 ;; Extra arguments for command presets.
 
 (defcustom diff-ansi-extra-args-for-delta
-  (list "--side-by-side" "--no-gitconfig" "--true-color=always")
+  (list "--side-by-side" "--no-gitconfig" "--true-color=always" 
"--paging=never")
   "Additional arguments to pass to `delta'."
   :type '(repeat string))
 



[nongnu] elpa/diff-ansi cdae72a471 2/2: Cleanup: assign a variable for the processes final destination

2023-12-20 Thread ELPA Syncer
branch: elpa/diff-ansi
commit cdae72a4713704692aa4edf3433d6b6df1d84746
Author: Campbell Barton 
Commit: Campbell Barton 

Cleanup: assign a variable for the processes final destination
---
 diff-ansi.el | 15 ---
 1 file changed, 8 insertions(+), 7 deletions(-)

diff --git a/diff-ansi.el b/diff-ansi.el
index 1c8804c9be..c2b8fdae55 100644
--- a/diff-ansi.el
+++ b/diff-ansi.el
@@ -301,16 +301,17 @@ Additional keyword arguments may also be passed in.
 (with-current-buffer buf-dst
   (erase-buffer))
 (let* ((sentinel-called nil)
+   (buf-dst-final
+(cond
+ ;; Last command, use output.
+ ((and (null args) (bufferp output))
+  output)
+ (t
+  buf-dst)))
(proc
 (make-process
  :name "call-process-pipe-chain"
- :buffer
- (cond
-  ;; Last command, use output.
-  ((and (null args) (bufferp output))
-   output)
-  (t
-   buf-dst))
+ :buffer buf-dst-final
  ;; Write to the intermediate buffer or the final output.
  :connection-type 'pipe
  :command arg-current



[elpa] externals/spacious-padding 28082f9f5b 6/7: Add CHANGELOG.org with contents of 0.2.0

2023-12-20 Thread ELPA Syncer
branch: externals/spacious-padding
commit 28082f9f5bb4a533962cbc6d8eb2eeffc8a14a6e
Author: Protesilaos Stavrou 
Commit: Protesilaos Stavrou 

Add CHANGELOG.org with contents of 0.2.0
---
 CHANGELOG.org | 49 +
 1 file changed, 49 insertions(+)

diff --git a/CHANGELOG.org b/CHANGELOG.org
new file mode 100644
index 00..fef4e8f3f7
--- /dev/null
+++ b/CHANGELOG.org
@@ -0,0 +1,49 @@
+#+title: Change log of Spacious-Padding
+#+author: Protesilaos Stavrou
+#+email: i...@protesilaos.com
+#+language: en
+#+options: ':t toc:nil author:t email:t num:t
+#+startup: content
+
+This document contains the release notes for each tagged commit on the
+project's main git repository: 
.
+
+The newest release is at the top.  For further details, please consult
+the manual: .
+
+#+toc: headlines 1 insert TOC here, with one headline level
+
+* Version 0.2.0 on 2023-11-24
+
+[ I provide screenshots in a recent publication:
+   ]
+
+The package is stable and works well. This set of changes expands the
+concept of "spacious padding" to more user interface elements, namely:
+
+- active and inactive mode lines;
+- header line;
+- the ~tab-bar-mode~.
+
+The user option which sets all the width values is
+~spacious-padding-widths~. It now reads keywords that correspond to
+the aforementioned elements. Concretely, here are the defaults:
+
+#+begin_src emacs-lisp
+(setq spacious-padding-widths
+  '( :internal-border-width 15
+ :header-line-width 4
+ :mode-line-width 6
+ :tab-width 4
+ :right-divider-width 30
+ :scroll-bar-width 8))
+#+end_src
+
+After changing the widths, reload the ~spacious-padding-mode~ for
+changes to take effect.
+
+I have taken care to make 'spacious-padding-mode' work even when the
+~spacious-padding-widths~ does not include all keywords. This means
+that the previously supported value will continue to work (the
+previous value did not have the keywords ~header-line-width~,
+~mode-line-width~, and ~tab-width~).



[elpa] externals/spacious-padding 8da061aec4 5/7: Update list of links in the README.md

2023-12-20 Thread ELPA Syncer
branch: externals/spacious-padding
commit 8da061aec4cdd3f326d33363a101cf942000f522
Author: Protesilaos Stavrou 
Commit: Protesilaos Stavrou 

Update list of links in the README.md
---
 README.md | 5 +
 1 file changed, 5 insertions(+)

diff --git a/README.md b/README.md
index c337784ab7..e3ff8db441 100644
--- a/README.md
+++ b/README.md
@@ -16,11 +16,16 @@ designs](https://github.com/rougier) and [Daniel Mendler's
 `org-modern` package](https://github.com/minad/org-modern).
 
 + Package name (GNU ELPA): `spacious-padding`
++ Official manual: 
++ Change log: 
 + Git repo on SourceHut: 
   - Mirrors:
 + GitHub: 
 + GitLab: 
 + Mailing list: 
++ Sample images:
+  - 
+  - 
 + Backronyms: Space Perception Adjusted Consistently Impacts Overall
   Usability State ... padding; Spacious ... Precise Adjustments to
   Desktop Divider Internals Neatly Generated.



[elpa] externals/spacious-padding a7e0e8161f 1/7: Mention spacious-padding-subtle-mode-line in the Commentary

2023-12-20 Thread ELPA Syncer
branch: externals/spacious-padding
commit a7e0e8161f2d3e2aac9e4628d8ef125ac9600e24
Author: Protesilaos Stavrou 
Commit: Protesilaos Stavrou 

Mention spacious-padding-subtle-mode-line in the Commentary
---
 spacious-padding.el | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/spacious-padding.el b/spacious-padding.el
index 7c465fd299..3fc03b618e 100644
--- a/spacious-padding.el
+++ b/spacious-padding.el
@@ -31,7 +31,9 @@
 ;; spacing/padding of Emacs windows and frames.  The idea is to make
 ;; editing and reading feel more comfortable.  Enable the
 ;; `spacious-padding-mode'.  Adjust the exact spacing values by
-;; modifying the user option `spacious-padding-widths'.
+;; modifying the user option `spacious-padding-widths'.  To have a
+;; more subtle mode line, with nothing but an overline, configure the
+;; user option `spacious-padding-subtle-mode-line'.
 ;;
 ;; Inspiration for this package comes from Nicolas Rougier's
 ;; impressive designs[1] and Daniel Mendler's `org-modern`



[elpa] externals/spacious-padding 05514d42c4 2/7: Clarify a few statements in the doc string of spacious-padding-subtle-mode-line

2023-12-20 Thread ELPA Syncer
branch: externals/spacious-padding
commit 05514d42c4bebd173c8827270a2f083e71547346
Author: Protesilaos Stavrou 
Commit: Protesilaos Stavrou 

Clarify a few statements in the doc string of 
spacious-padding-subtle-mode-line
---
 spacious-padding.el | 12 +++-
 1 file changed, 7 insertions(+), 5 deletions(-)

diff --git a/spacious-padding.el b/spacious-padding.el
index 3fc03b618e..dfe0c0f276 100644
--- a/spacious-padding.el
+++ b/spacious-padding.el
@@ -96,8 +96,8 @@ following:
 Preserve whatever padding is specified in `spacious-padding-widths'.
 
 The value is either a boolean type or a plist.  If it is non-nil,
-use the foreground of the underlying face to derive the color of
-the overline.
+use the foreground of the underlying mode line face to derive the
+color of the overline.
 
 If the non-nil value is a plist read the following keys to
 determine the exact style of the overlines.
@@ -110,15 +110,17 @@ determine the exact style of the overlines.
 Each key accepts either a face or a string representing a color
 as its associated value:
 
-- The face is an unquoted symbol, such as `success' or `shadow'.
+- The face is an unquoted symbol, such as `success' or `shadow',
+  whose `:foreground' attribute is queried to extract the desired
+  color value.
 
 - The color is a name among those listed in the output of the
   command `list-colors-display' or a hexadecimal RGB value, such
   as #123456.
 
 If the key is missing or its value is not one of the above, fall
-back to reading the foreground of the underlying face to
-determine the color of the overline.
+back to reading the foreground of the underlying mode line face
+to determine the color of the overline.
 
 Examples of valid configurations:
 



[elpa] externals/spacious-padding c5514d7b14 4/7: Include link to the change log

2023-12-20 Thread ELPA Syncer
branch: externals/spacious-padding
commit c5514d7b14e7e7469013d51f97a5e99f35e18d80
Author: Protesilaos Stavrou 
Commit: Protesilaos Stavrou 

Include link to the change log
---
 README.org | 1 +
 1 file changed, 1 insertion(+)

diff --git a/README.org b/README.org
index 4997ca67bf..fcb635deca 100644
--- a/README.org
+++ b/README.org
@@ -33,6 +33,7 @@ Current development target is {{{development-version}}}.
 
 + Package name (GNU ELPA): ~spacious-padding~
 + Official manual: 
++ Change log: 
 + Git repo on SourceHut: 
   - Mirrors:
 + GitHub: 



[elpa] externals/spacious-padding updated (718db1bd98 -> 9d96d301d5)

2023-12-20 Thread ELPA Syncer
elpasync pushed a change to branch externals/spacious-padding.

  from  718db1bd98 Make spacious-padding-subtle-mode-line accept a plist; 
expand its customisability
   new  a7e0e8161f Mention spacious-padding-subtle-mode-line in the 
Commentary
   new  05514d42c4 Clarify a few statements in the doc string of 
spacious-padding-subtle-mode-line
   new  289b377852 Write the official manual as a README.org
   new  c5514d7b14 Include link to the change log
   new  8da061aec4 Update list of links in the README.md
   new  28082f9f5b Add CHANGELOG.org with contents of 0.2.0
   new  9d96d301d5 Update to version 0.3.0


Summary of changes:
 CHANGELOG.org   | 136 ++
 README.md   |   5 +
 README.org  | 763 
 doclicense.texi | 505 ++
 spacious-padding.el |  18 +-
 5 files changed, 1420 insertions(+), 7 deletions(-)
 create mode 100644 CHANGELOG.org
 create mode 100644 README.org
 create mode 100644 doclicense.texi



[elpa] externals/spacious-padding 9d96d301d5 7/7: Update to version 0.3.0

2023-12-20 Thread ELPA Syncer
branch: externals/spacious-padding
commit 9d96d301d5bccf192daaf00dba64bca9979dcb5a
Author: Protesilaos Stavrou 
Commit: Protesilaos Stavrou 

Update to version 0.3.0
---
 CHANGELOG.org   | 87 +
 README.org  |  6 ++--
 spacious-padding.el |  2 +-
 3 files changed, 91 insertions(+), 4 deletions(-)

diff --git a/CHANGELOG.org b/CHANGELOG.org
index fef4e8f3f7..ae00943a9b 100644
--- a/CHANGELOG.org
+++ b/CHANGELOG.org
@@ -13,7 +13,94 @@ the manual: .
 
 #+toc: headlines 1 insert TOC here, with one headline level
 
+* Version 0.3.0 on 2023-12-21
+:PROPERTIES:
+:CUSTOM_ID: h:466dd7e0-c314-42a9-b1bc-a499acc5d415
+:END:
+
+** Enjoy the optional subtle mode lines
+:PROPERTIES:
+:CUSTOM_ID: h:57b2702a-3891-4cfc-aa37-e08f1f63290e
+:END:
+
+The new user option ~~spacious-padding-subtle-mode-line~ makes mode
+lines more subtle. It does so by removing the background and adding an
+overline in its stead.
+
+By default, ~spacious-padding-mode~ does not refashion the mode lines
+other than adding to them some extra padding (per ~spacious-padding-widths~).
+The user option ~spacious-padding-subtle-mode-line~ does change the
+mode lines so that instead of a background they only have an overline,
+while preserving whatever padding is in effect.
+
+The value bound to ~spacious-padding-subtle-mode-line~ is either a
+boolean type or a plist. If it is non-nil, use the foreground of the
+underlying mode line face to derive the color of the overline.
+
+If the non-nil value is a plist read the following keys to determine
+the exact style of the overlines.
+
+- ~:mode-line-active~ refers to the active/current mode line.
+
+- ~:mode-line-inactive~ refers to the inactive/non-current mode lines.
+
+Each key accepts either a face or a string representing a color as its
+associated value:
+
+- The face is an unquoted symbol, such as ~success~ or ~shadow~, whose
+  =:foreground= attribute is queried to extract the desired color value.
+
+- The color is a name among those listed in the output of the command
+  ~list-colors-display~ or a hexadecimal RGB value, such as =#123456=.
+
+If the key is missing or its value is not one of the above, fall back
+to reading the foreground of the underlying mode line face to
+determine the color of the overline.
+
+Examples of valid configurations:
+
+#+begin_src emacs-lisp
+;; Use the foreground of the underlying mode line face to determine
+;; the color of the overline (e.g. the inactive mode line has gray
+;; text, so render the overline in the same gray).
+(setq spacious-padding-subtle-mode-line t)
+
+;; Use the foreground of the `error' face (typically a red hue) for
+;; the active mode line's overline.  For the inactive mode line, fall
+;; back to the foreground color of the underlying face (as in the case
+;; of the t shown above).
+(setq spacious-padding-subtle-mode-line
+  '(:mode-line-active error))
+
+;; As above, but now use the foreground of the `shadow' face for the
+;; inactive mode line.
+(setq spacious-padding-subtle-mode-line
+  '(:mode-line-active error :mode-line-inactive shadow))
+
+;; Use color values directly.
+(setq spacious-padding-subtle-mode-line
+  '(:mode-line-active "#ff" :mode-line-inactive "gray50"))
+#+end_src
+
+** Expanded the documentation
+:PROPERTIES:
+:CUSTOM_ID: h:f205e230-f980-44ac-9ceb-6807f4380480
+:END:
+
+The ~spacious-padding~ package now comes with an Info manual. When
+looking at the source code, this is done in the =README.org= file,
+which the GNU ELPA machinery automatically converts to Info. A change
+log is also provided.
+
+Their respective web links are these:
+
+- 
+- 
+
 * Version 0.2.0 on 2023-11-24
+:PROPERTIES:
+:CUSTOM_ID: h:375d5280-9ee8-4a5d-9eca-e5b3967a3bdb
+:END:
 
 [ I provide screenshots in a recent publication:
    ]
diff --git a/README.org b/README.org
index fcb635deca..bf156fe35a 100644
--- a/README.org
+++ b/README.org
@@ -4,9 +4,9 @@
 #+language: en
 #+options: ':t toc:nil author:t email:t num:t
 #+startup: content
-#+macro: stable-version 0.2.0
-#+macro: release-date 2023-11-24
-#+macro: development-version 0.3.0-dev
+#+macro: stable-version 0.3.0
+#+macro: release-date 2023-12-21
+#+macro: development-version 0.4.0-dev
 #+export_file_name: spacious-padding.texi
 #+texinfo_filename: spacious-padding.info
 #+texinfo_dir_category: Emacs misc features
diff --git a/spacious-padding.el b/spacious-padding.el
index dfe0c0f276..78a7f123aa 100644
--- a/spacious-padding.el
+++ b/spacious-padding.el
@@ -6,7 +6,7 @@
 ;; Maintainer: Protesilaos Stavrou General Issues 
<~protesilaos/general-iss...@lists.sr.ht>
 ;; URL: https://git.sr.ht/~protesilaos/spacious-padding
 ;; Mailing-List: https://lists.sr.ht/~protesilaos/general-issues
-;; Ver

[elpa] externals/spacious-padding 289b377852 3/7: Write the official manual as a README.org

2023-12-20 Thread ELPA Syncer
branch: externals/spacious-padding
commit 289b377852d78100d95b02bcb1b6b2e25d2b544a
Author: Protesilaos Stavrou 
Commit: Protesilaos Stavrou 

Write the official manual as a README.org

The GNU ELPA machinery converts this into an Info manual.
---
 README.org  | 762 
 doclicense.texi | 505 +
 2 files changed, 1267 insertions(+)

diff --git a/README.org b/README.org
new file mode 100644
index 00..4997ca67bf
--- /dev/null
+++ b/README.org
@@ -0,0 +1,762 @@
+#+title: Spacious Padding: Increase the padding/spacing of frames and windows
+#+author: Protesilaos Stavrou
+#+email: i...@protesilaos.com
+#+language: en
+#+options: ':t toc:nil author:t email:t num:t
+#+startup: content
+#+macro: stable-version 0.2.0
+#+macro: release-date 2023-11-24
+#+macro: development-version 0.3.0-dev
+#+export_file_name: spacious-padding.texi
+#+texinfo_filename: spacious-padding.info
+#+texinfo_dir_category: Emacs misc features
+#+texinfo_dir_title: Spacious Padding: (spacious-padding)
+#+texinfo_dir_desc: Increase the padding/spacing of frames and windows
+#+texinfo_header: @set MAINTAINERSITE @uref{https://protesilaos.com,maintainer 
webpage}
+#+texinfo_header: @set MAINTAINER Protesilaos Stavrou
+#+texinfo_header: @set MAINTAINEREMAIL @email{i...@protesilaos.com}
+#+texinfo_header: @set MAINTAINERCONTACT 
@uref{mailto:i...@protesilaos.com,contact the maintainer}
+
+#+texinfo: @insertcopying
+
+This manual, written by Protesilaos Stavrou, describes the
+customization options for the Emacs package called ~spacious-padding~
+(or =spacious-padding.el=), and provides every other piece of
+information pertinent to it.
+
+The documentation furnished herein corresponds to stable version
+{{{stable-version}}}, released on {{{release-date}}}.  Any reference to
+a newer feature which does not yet form part of the latest tagged
+commit, is explicitly marked as such.
+
+Current development target is {{{development-version}}}.
+
++ Package name (GNU ELPA): ~spacious-padding~
++ Official manual: 
++ Git repo on SourceHut: 
+  - Mirrors:
++ GitHub: 
++ GitLab: 
++ Mailing list: 
++ Sample images:
+  - 
+  - 
++ Backronyms: Space Perception Adjusted Consistently Impacts Overall
+  Usability State ... padding; Spacious ... Precise Adjustments to
+  Desktop Divider Internals Neatly Generated.
+
+If you are viewing the README.org version of this file, please note that
+the GNU ELPA machinery automatically generates an Info manual out of it.
+
+#+toc: headlines 8 insert TOC here, with eight headline levels
+
+* COPYING
+:PROPERTIES:
+:COPYING: t
+:CUSTOM_ID: h:40b18bb2-4dc1-4202-bd0b-6fab535b2a0f
+:END:
+
+Copyright (C) 2023  Free Software Foundation, Inc.
+
+#+begin_quote
+Permission is granted to copy, distribute and/or modify this document
+under the terms of the GNU Free Documentation License, Version 1.3 or
+any later version published by the Free Software Foundation; with no
+Invariant Sections, with the Front-Cover Texts being “A GNU Manual,” and
+with the Back-Cover Texts as in (a) below.  A copy of the license is
+included in the section entitled “GNU Free Documentation License.”
+
+(a) The FSF’s Back-Cover Text is: “You have the freedom to copy and
+modify this GNU manual.”
+#+end_quote
+
+* Overview
+:PROPERTIES:
+:CUSTOM_ID: h:ea728ce0-d319-4054-b8ee-5109a316c795
+:END:
+
+#+findex: spacious-padding-mode
+The ~spacious-padding-mode~ increases the space or padding around
+several elements of the Emacs interface, such as window dividers, the
+internal frame border, the padding of the mode line, and more. The
+idea is to produce a more comfortable presentation.
+
+** Set the exact spacing values
+:PROPERTIES:
+:CUSTOM_ID: h:eb0ce65d-6b44-42db-ab22-aad3ac5c0c1b
+:END:
+
+#+vindex: spacious-padding-widths
+The user option ~spacious-padding-widths~ defines the values
+associated with each element of the Emacs interface.
+
+This is a plist of the form =(:key1 value1 :key2 value2)=. The value
+is always a natural number. Keys are keywords among the following:
+
+- ~:internal-border-width~ refers to the space between the boundaries
+  of the Emacs frame and where the text contents start.
+
+- ~:right-divider-width~ is the space between two side-by-side
+  windows.
+
+- ~:tab-width~ concerns the padding around tab buttons. For the time
+  being, ~tab-bar-mode~ is the only one affected.
+
+- ~:header-line-width~, ~mode-line-width~, ~scroll-bar-width~ point to
+  the ~header-line~, ~mode-line~, and ~scroll-bar~, respectively.
+
+** Make the mode 

[elpa] main 080e09a4c6: * elpa-packages (spacious-padding): Add :doc, :news, and expand :ignored-files

2023-12-20 Thread Protesilaos Stavrou
branch: main
commit 080e09a4c6f038818a5a7a9c5e53ff168e0fe00e
Author: Protesilaos Stavrou 
Commit: Protesilaos Stavrou 

* elpa-packages (spacious-padding): Add :doc, :news, and expand 
:ignored-files
---
 elpa-packages | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/elpa-packages b/elpa-packages
index 858948422f..f2c60cac5d 100644
--- a/elpa-packages
+++ b/elpa-packages
@@ -638,8 +638,10 @@
  (sokoban  :url nil)
  (sotlisp  :url 
"https://github.com/Malabarba/speed-of-thought-lisp";)
  (spacious-padding :url 
"https://git.sr.ht/~protesilaos/spacious-padding";
+  :doc "README.org"
   :readme "README.md"
-  :ignored-files ("COPYING"))
+  :news "CHANGELOG.org"
+  :ignored-files ("COPYING" "doclicense.texi"))
  (spinner  :url "https://github.com/Malabarba/spinner.el";)
  (sql-beeline  :url nil)
  (sql-cassandra:url nil)