[elpa] externals/denote 60c574edf8 1/6: Typo in denote.el

[ELPA Syncer]

branch: externals/denote
commit 60c574edf8ae6600fc9bdb6c96c45df3e40a820f
Author: Alan Schmitt 
Commit: GitHub 

Typo in denote.el
---
 denote.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/denote.el b/denote.el
index eb4e5089a4..14af4cbcad 100644
--- a/denote.el
+++ b/denote.el
@@ -3074,7 +3074,7 @@ edited in the front matter.  Denote considers the file 
name to be
 the source of truth in this case to avoid potential breakage with
 typos and the like.
 
-The values of `denote-nename-confirmations' and
+The values of `denote-rename-confirmations' and
 `denote-save-buffers' are respected.
 
 The identifier of the file, if any, is never modified even if it

[elpa] externals/denote 33bc34ba55 6/6: Remove needless save-excursion added in commit be17fcb

[ELPA Syncer]

branch: externals/denote
commit 33bc34ba5520601662c99e7ae72ca77be6db35a1
Author: Protesilaos Stavrou 
Commit: Protesilaos Stavrou 

Remove needless save-excursion added in commit be17fcb

Contributes to the fix for the problem reported by kilesduli in issue
354: .
---
 denote-org-extras.el | 7 +++
 1 file changed, 3 insertions(+), 4 deletions(-)

diff --git a/denote-org-extras.el b/denote-org-extras.el
index 23e94017be..6f256261af 100644
--- a/denote-org-extras.el
+++ b/denote-org-extras.el
@@ -72,10 +72,9 @@ the current file."
   "Return heading text and CUSTOM_ID from the given LINE in FILE."
   (with-current-buffer (find-file-noselect file)
 (save-excursion
-  (save-restriction
-(goto-char (point-min))
-(forward-line (1- line))
-(cons (denote-link-ol-get-heading) (denote-link-ol-get-id))
+  (goto-char (point-min))
+  (forward-line (1- line))
+  (cons (denote-link-ol-get-heading) (denote-link-ol-get-id)
 
 (defun denote-org-extras-format-link-with-heading (file heading-id description)
   "Prepare link to FILE with HEADING-ID using DESCRIPTION."

[elpa] externals/denote updated (23d268a156 -> 33bc34ba55)

[ELPA Syncer]

elpasync pushed a change to branch externals/denote.

  from  23d268a156 Fix regression caused by commit f08bed0
   new  adf4e9f7d1 Fix issue on note creation caused by commit bce7778
   new  4157cac287 Merge pull request #358 from 
jeanphilippegg/fix-denote-command
   new  60c574edf8 Typo in denote.el
   new  7fe739fed0 Merge pull request #356 from brabalan/patch-1
   new  be17fcb027 Fix off-by-one jump to Org heading line
   new  33bc34ba55 Remove needless save-excursion added in commit be17fcb


Summary of changes:
 denote-org-extras.el | 2 +-
 denote.el| 6 +++---
 2 files changed, 4 insertions(+), 4 deletions(-)

[elpa] externals/denote 4157cac287 3/6: Merge pull request #358 from jeanphilippegg/fix-denote-command

[ELPA Syncer]

branch: externals/denote
commit 4157cac287b60be5b837208a7aa84d95d8b819d6
Merge: 23d268a156 adf4e9f7d1
Author: Protesilaos Stavrou 
Commit: GitHub 

Merge pull request #358 from jeanphilippegg/fix-denote-command

Fix issue on note creation caused by commit bce7778
---
 denote.el | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/denote.el b/denote.el
index eb4e5089a4..ae06801c8a 100644
--- a/denote.el
+++ b/denote.el
@@ -1922,8 +1922,8 @@ TEMPLATE, and SIGNATURE should be valid for note 
creation."
   title (denote--date date file-type) keywords
   id
   file-type)))
-(when (file-regular-p buffer)
-  (user-error "A file named `%s' already exists" buffer))
+(when (file-regular-p path)
+  (user-error "A file named `%s' already exists" path))
 (with-current-buffer buffer
   (insert header)
   (insert template))

[elpa] externals/denote adf4e9f7d1 2/6: Fix issue on note creation caused by commit bce7778

[ELPA Syncer]

branch: externals/denote
commit adf4e9f7d19280272230a5d70d446f4a54f8ba55
Author: Jean-Philippe Gagné Guay 
Commit: Jean-Philippe Gagné Guay 

Fix issue on note creation caused by commit bce7778
---
 denote.el | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/denote.el b/denote.el
index eb4e5089a4..ae06801c8a 100644
--- a/denote.el
+++ b/denote.el
@@ -1922,8 +1922,8 @@ TEMPLATE, and SIGNATURE should be valid for note 
creation."
   title (denote--date date file-type) keywords
   id
   file-type)))
-(when (file-regular-p buffer)
-  (user-error "A file named `%s' already exists" buffer))
+(when (file-regular-p path)
+  (user-error "A file named `%s' already exists" path))
 (with-current-buffer buffer
   (insert header)
   (insert template))

[elpa] externals/denote be17fcb027 5/6: Fix off-by-one jump to Org heading line

[ELPA Syncer]

branch: externals/denote
commit be17fcb027eb685fd32d052157c094af2a8da1cc
Author: Protesilaos Stavrou 
Commit: Protesilaos Stavrou 

Fix off-by-one jump to Org heading line

This wouid match the wrong heading if there were no spaces between the
headings. Thanks to kilesduli for bringing this matter to my attention
in issue 354: .
---
 denote-org-extras.el | 7 ---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/denote-org-extras.el b/denote-org-extras.el
index 3205d7426b..23e94017be 100644
--- a/denote-org-extras.el
+++ b/denote-org-extras.el
@@ -72,9 +72,10 @@ the current file."
   "Return heading text and CUSTOM_ID from the given LINE in FILE."
   (with-current-buffer (find-file-noselect file)
 (save-excursion
-  (goto-char (point-min))
-  (forward-line line)
-  (cons (denote-link-ol-get-heading) (denote-link-ol-get-id)
+  (save-restriction
+(goto-char (point-min))
+(forward-line (1- line))
+(cons (denote-link-ol-get-heading) (denote-link-ol-get-id))
 
 (defun denote-org-extras-format-link-with-heading (file heading-id description)
   "Prepare link to FILE with HEADING-ID using DESCRIPTION."

[elpa] externals/denote 7fe739fed0 4/6: Merge pull request #356 from brabalan/patch-1

[ELPA Syncer]

branch: externals/denote
commit 7fe739fed023fe19eecde45fe15ec404360b3247
Merge: 4157cac287 60c574edf8
Author: Protesilaos Stavrou 
Commit: GitHub 

Merge pull request #356 from brabalan/patch-1

Typo in denote.el
---
 denote.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/denote.el b/denote.el
index ae06801c8a..6371a415b9 100644
--- a/denote.el
+++ b/denote.el
@@ -3074,7 +3074,7 @@ edited in the front matter.  Denote considers the file 
name to be
 the source of truth in this case to avoid potential breakage with
 typos and the like.
 
-The values of `denote-nename-confirmations' and
+The values of `denote-rename-confirmations' and
 `denote-save-buffers' are respected.
 
 The identifier of the file, if any, is never modified even if it

[nongnu] elpa/gptel 2bf3a4452c: gptel-org: Fix oneshot markdown to org converter (#81)

[ELPA Syncer]

branch: elpa/gptel
commit 2bf3a4452c953c39832442eaf27cbd8a2beb0659
Author: Karthik Chikmagalur 
Commit: Karthik Chikmagalur 

gptel-org: Fix oneshot markdown to org converter (#81)

* gptel-org.el (gptel--convert-markdown->org): Fix backtick
handling and add support for converting markdown headings.

* test/gptel-org-test.el (gptel-org--test-stream-conversion,
gptel-org--test-compare-org): Add tests for oneshot converter.
---
 gptel-org.el   | 34 +++
 test/gptel-org-test.el | 92 +-
 2 files changed, 73 insertions(+), 53 deletions(-)

diff --git a/gptel-org.el b/gptel-org.el
index 9f8ca25487..623a8d02d7 100644
--- a/gptel-org.el
+++ b/gptel-org.el
@@ -331,22 +331,28 @@ elements."
   (with-temp-buffer
 (insert str)
 (goto-char (point-min))
-(while (re-search-forward "`\\|\\*\\{1,2\\}\\|_" nil t)
+(while (re-search-forward "`+\\|\\*\\{1,2\\}\\|_\\|^#+" nil t)
   (pcase (match-string 0)
-("`" (if (save-excursion
-   (beginning-of-line)
-   (skip-chars-forward " \t")
-   (looking-at "```"))
- (progn (backward-char)
-(delete-char 3)
-(insert "#+begin_src ")
-(when (re-search-forward "^```" nil t)
-  (replace-match "#+end_src")))
-   (replace-match "=")))
+;; Handle backticks
+((and (guard (eq (char-before) ?`)) ticks)
+ (gptel--replace-source-marker (length ticks))
+ (save-match-data
+   (catch 'block-end
+ (while (search-forward ticks nil t)
+   (unless (or (eq (char-before (match-beginning 0)) ?`)
+   (eq (char-after) ?`))
+   (gptel--replace-source-marker (length ticks) 'end)
+   (throw 'block-end nil))
+;; Handle headings
+((and (guard (eq (char-before) ?#)) heading)
+ (when (looking-at "[[:space:]]")
+   (delete-region (line-beginning-position) (point))
+   (insert (make-string (length heading) ?*
+;; Handle emphasis
 ("**" (cond
-   ((looking-at "\\*\\(?:[[:word:]]\\|\s\\)")
-(delete-char 1))
-   ((looking-back "\\(?:[[:word:]]\\|\s\\)\\*\\{2\\}"
+   ;; ((looking-at "\\*\\(?:[[:word:]]\\|\s\\)")
+   ;;  (delete-char 1))
+   ((looking-back "\\(?:[[:word:][:punct:]\n]\\|\s\\)\\*\\{2\\}"
   (max (- (point) 3) (point-min)))
 (delete-char -1
 ("*"
diff --git a/test/gptel-org-test.el b/test/gptel-org-test.el
index 7aa69adcea..e04ffc3d39 100644
--- a/test/gptel-org-test.el
+++ b/test/gptel-org-test.el
@@ -39,10 +39,24 @@ Org markup incrementally and display both in buffers."
   (apply #'insert (mapcar func md-list))
   (display-buffer (current-buffer)
 
+;; Oneshot converter test generation
+
+(defmacro gptel-org--test-conversion (md-list org-str)
+  `(ert-deftest
+   ,(intern (concat "gptel-org--test-conversion-"
+ (substring (sha1 (prin1-to-string (current-time))) 0 10)))
+   ()
+ (should
+  (string= (gptel--convert-markdown->org
+(apply #'concat ,md-list))
+   ,org-str
+
+;; Stream converter test generation
+
 (defmacro gptel-org--test-stream-conversion (md-list org-str)
   `(ert-deftest
,(intern (concat "gptel-org--test-stream-conversion-"
- (substring (sha1 (prin1-to-string md-list)) 0 10)))
+ (substring (sha1 (prin1-to-string (current-time))) 0 10)))
()
(let ((func (gptel--stream-convert-markdown->org)))
 (prog1
@@ -51,27 +65,28 @@ Org markup incrementally and display both in buffers."
   ,org-str))
   (setq gptel-post-response-functions nil)
 
-(gptel-org--test-stream-conversion
- '("" "```" "cpp" "
+;; Tests
+
+(let ((md '("" "```" "cpp" "
 " "#include" " <" "cstdio" ">
 
 " "int" " main" "()" " {
 " "   " " printf" "(\"" "``" "``" "`" "\n" "\");
 " "   " " return" " " "0" ";
 " "}
-" "```")
- "#+begin_src cpp
+" "```"))
+  (org "#+begin_src cpp
 #include 
 
 int main() {
 printf(\"`\n\");
 return 0;
 }
-#+end_src")
+#+end_src"))
+  (gptel-org--test-conversion md org)
+  (gptel-org--test-stream-conversion md org))
 
-(gptel-org--test-stream-conversion
- ;; markdown
- '("" "Here" " is" " a" " simple" " C" "++" " program" " that" " uses" " the" 
" `" "printf" "`" " function" " to" " print" " the" " string" " containing" " " 
"5" " back" "ticks" ":
+(let ((md '("" "Here" " is" " a" " simple" " C" "++" " program" " that" " 
uses" " the" " `" "printf" "`" " function" " to" " print" " the" " string" " 
containing" " " "5" " back" "ticks" ":
 
 " "```" "cpp" "
 " "#include" " <" "iostream" ">
@@ -84,9 +99,8 @@ int main() {
 " "}
 " "``" "`

[nongnu] elpa/hyperdrive 6163455177: Docs: Update to hyper-gateway-ushin 3.8.0

[ELPA Syncer]

branch: elpa/hyperdrive
commit 616345517721806c6be9dc880304f0392c90930a
Author: Joseph Turner 
Commit: Joseph Turner 

Docs: Update to hyper-gateway-ushin 3.8.0

Also update download links to include Codeberg releases page.
---
 doc/hyperdrive.org  | 7 +--
 doc/hyperdrive.texi | 7 +--
 2 files changed, 10 insertions(+), 4 deletions(-)

diff --git a/doc/hyperdrive.org b/doc/hyperdrive.org
index 5dceae82ce..cb0b6498a6 100644
--- a/doc/hyperdrive.org
+++ b/doc/hyperdrive.org
@@ -1195,8 +1195,11 @@ If you run into issues, please first try resetting the 
values of
 #+end_src
 
 Please ensure that your version of ~hyper-gateway-ushin~ (~M-x
-hyperdrive-hyper-gateway-ushin-version~) is version `3.7.2`
-([downloads](https://git.sr.ht/~ushin/hyper-gateway-ushin/refs/v3.7.2)).
+hyperdrive-hyper-gateway-ushin-version~) is version `3.8.0` ([download
+from
+Codeberg](https://codeberg.org/USHIN/hyper-gateway-ushin/releases/tag/v3.8.0)
+or [download from
+SourceHut](https://git.sr.ht/~ushin/hyper-gateway-ushin/refs/v3.8.0)).
 
 * Contributing/Getting help
 
diff --git a/doc/hyperdrive.texi b/doc/hyperdrive.texi
index 0884fb0314..4815c0b5d6 100644
--- a/doc/hyperdrive.texi
+++ b/doc/hyperdrive.texi
@@ -1623,8 +1623,11 @@ If you run into issues, please first try resetting the 
values of
 @end lisp
 
 Please ensure that your version of @code{hyper-gateway-ushin} (@code{M-x
-hyperdrive-hyper-gateway-ushin-version}) is version `3.7.2`
-([downloads](@uref{https://git.sr.ht/~ushin/hyper-gateway-ushin/refs/v3.7.2})).
+hyperdrive-hyper-gateway-ushin-version}) is version `3.8.0` ([download
+from
+Codeberg](@uref{https://codeberg.org/USHIN/hyper-gateway-ushin/releases/tag/v3.8.0})
+or [download from
+SourceHut](@uref{https://git.sr.ht/~ushin/hyper-gateway-ushin/refs/v3.8.0})).
 
 @node Contributing/Getting help
 @chapter Contributing/Getting help

[elpa] externals/org 0ebb36caea: lisp/org-capture.el: Restore org-store-link-plist

[ELPA Syncer]

branch: externals/org
commit 0ebb36caeafddb8245ac2ef261ab96a91281f8bd
Author: Anand Deopurkar 
Commit: Ihor Radchenko 

lisp/org-capture.el: Restore org-store-link-plist

* org-capture.el (org-capture-fill-template): Restore original
`org-store-link-plist' after calling `org-store-link'.

To replace a %K escape (link to currently clocked task),
`org-capture-fill-template' calls `org-store-link'.  This call has the
side-effect of replacing the contents of `org-store-link-plist'.  As a
result, expected template expansions using the original
`org-store-link-plist' do not happen.

For example, suppose `org-capture' is called from a message buffer with the
template "%:subject %:from" while the clock is running.  Then
%:subject and %:from are not substituted because of the behaviour
above.  If the clock is not running, there is no problem.

Current fix restores `org-store-link-plist' to its original value
after `org-capture-fill-template' calls `org-store-link'.

TINYCHANGE
---
 lisp/org-capture.el | 9 ++---
 1 file changed, 6 insertions(+), 3 deletions(-)

diff --git a/lisp/org-capture.el b/lisp/org-capture.el
index da14f45c08..9d8f855ef7 100644
--- a/lisp/org-capture.el
+++ b/lisp/org-capture.el
@@ -1675,9 +1675,12 @@ Expansion occurs in a temporary Org mode buffer."
  (org-no-properties org-clock-heading)
""))
 (v-K (if (marker-buffer org-clock-marker)
-  (org-with-point-at org-clock-marker
-(org-store-link nil nil))
-   ""))
+  (let ((original-link-plist org-store-link-plist)
+(clocked-task-link (org-with-point-at org-clock-marker
+ (org-store-link nil nil
+(setq org-store-link-plist original-link-plist)
+clocked-task-link)
+   ""))
 (v-f (or (org-capture-get :original-file-nondirectory) ""))
 (v-F (or (org-capture-get :original-file) ""))
 (org-capture--clipboards

[nongnu] elpa/org-contrib ccd4212866: Announce ox-taskjuggler.el will be removed from the next release

[ELPA Syncer]

branch: elpa/org-contrib
commit ccd4212866fb1be70d1f15a41264c45a281901ad
Author: Bastien Guerry 
Commit: Bastien Guerry 

Announce ox-taskjuggler.el will be removed from the next release
---
 README.md  | 3 ++-
 README.org | 3 ++-
 lisp/ox-taskjuggler.el | 1 +
 3 files changed, 5 insertions(+), 2 deletions(-)

diff --git a/README.md b/README.md
index 7d309aa250..a310547a9f 100644
--- a/README.md
+++ b/README.md
@@ -42,6 +42,8 @@ copy of the repository like this:
 If a file has a "Homepage:" keyword, it will be removed from the next
 minor or major release.
 
+-   `ox-taskjuggler.el`
+
 
 # Other files
 
@@ -85,7 +87,6 @@ minor or major release.
 -   **ox-freemind.el:** Freemind exporter
 -   **ox-groff.el:** Groff exporter
 -   **ox-s5.el:** S5 presentations exporter
--   **ox-taskjuggler.el:** TaskJuggler exporter
 
 
 ## Org link
diff --git a/README.org b/README.org
index 12f0afc75f..2f09a3b140 100644
--- a/README.org
+++ b/README.org
@@ -38,6 +38,8 @@ copy of the repository like this:
 If a file has a "Homepage:" keyword, it will be removed from the next
 minor or major release.
 
+- ~ox-taskjuggler.el~
+
 ** Other files
 *** Org utils
 
@@ -77,7 +79,6 @@ minor or major release.
 - ox-freemind.el :: Freemind exporter
 - ox-groff.el :: Groff exporter
 - ox-s5.el :: S5 presentations exporter
-- ox-taskjuggler.el :: TaskJuggler exporter
 
 *** Org link
 
diff --git a/lisp/ox-taskjuggler.el b/lisp/ox-taskjuggler.el
index 19e4da9d01..9ef1c611c7 100644
--- a/lisp/ox-taskjuggler.el
+++ b/lisp/ox-taskjuggler.el
@@ -8,6 +8,7 @@
 ;;  Nicolas Goaziou 
 ;; Maintainer: Christian Egli
 ;; Keywords: org, taskjuggler, project planning
+;; Homepage: https://github.com/h-oll/ox-taskjuggler
 ;; Description: Converts an Org mode buffer into a TaskJuggler project plan
 
 ;; This file is not part of GNU Emacs.

[elpa] externals/dape 150297fe55 2/3: Expand variable in eldoc buffer

[ELPA Syncer]

branch: externals/dape
commit 150297fe55347eb09b357ab651c49ab0423a9c5e
Author: Daniel Pettersson 
Commit: Daniel Pettersson 

Expand variable in eldoc buffer
---
 dape.el | 213 
 1 file changed, 108 insertions(+), 105 deletions(-)

diff --git a/dape.el b/dape.el
index c25a1fa01b..01ea5c17f4 100644
--- a/dape.el
+++ b/dape.el
@@ -617,17 +617,21 @@ See `dape--default-cwd'."
   :type 'function)
 
 (defcustom dape-compile-compile-hooks nil
-  "Hook run after dape compilation succeded.
+  "Hook run after dape compilation succeeded.
 The hook is run with one argument, the compilation buffer."
   :type 'hook)
 
+(defcustom dape-eldoc-variable-expand 2
+  "Levels of variable expansion in `eldoc-doc-buffer'."
+  :type 'natnum)
+
 (defcustom dape-minibuffer-hint-ignore-properties
   '(ensure fn modes command command-args :type :request)
   "Properties to be hidden in `dape--minibuffer-hint'."
   :type '(repeat symbol))
 
 (defcustom dape-minibuffer-hint t
-  "Show hints in mini buffer."
+  "Show `dape-configs' hints in minibuffer."
   :type 'boolean)
 
 (defcustom dape-ui-debounce-time 0.1
@@ -1042,26 +1046,6 @@ If EXTENDED end of line is after newline."
 (line-beginning-position 2)
   (1- (line-beginning-position 2)
 
-(defun dape--variable-string (plist)
-  "Formats dap variable PLIST to string."
-  (let ((name (plist-get plist :name))
-(value (or (plist-get plist :value)
-   (plist-get plist :result)))
-(type (plist-get plist :type)))
-(concat
- (propertize name
- 'face 'font-lock-variable-name-face)
- (unless (or (null value)
- (string-empty-p value))
-   (format " = %s"
-   (propertize value
-   'face 'font-lock-number-face)))
- (unless (or (null type)
- (string-empty-p type))
-   (format ": %s"
-   (propertize type
-   'face 'font-lock-type-face))
-
 (defun dape--format-file-line (file line)
   "Formats FILE and LINE to string."
   (let* ((conn dape--connection)
@@ -3985,6 +3969,11 @@ current buffer with CONN config."
 (defvar dape--info-expanded-p (make-hash-table :test 'equal)
   "Hash table to keep track of expanded info variables.")
 
+(defun dape--info-expanded-p (path object)
+  (and (not (eq (plist-get object :expensive) t))
+   (gethash (cons (plist-get object :name) path)
+dape--info-expanded-p)))
+
 (dape--command-at-line dape-info-scope-toggle (dape--info-path)
   "Expand or contract variable at line in dape info buffer."
   (unless (dape--live-connection 'stopped)
@@ -4082,57 +4071,62 @@ current buffer with CONN config."
 (when prop-org
   (when (eq dape-info-buffer-variable-format 'line)
 (setq prop
-  (substring prop
- 0 (string-match-p "\n" prop
+  (substring prop 0 (string-match-p "\n" prop
   (if (and (> max 0) (length> prop max))
   (push (propertize (string-truncate-left prop max) 'help-echo 
prop-org)
 columns)
 (push prop columns)
 (nreverse columns)))
 
-(defun dape--info-scope-add-variable (table object ref path maps)
+(defun dape--info-scope-add-variable (table object ref path expanded-p maps)
   "Add variable OBJECT with REF and PATH to TABLE.
-MAPS is an plist with keys; name, value and prefix.  The values of the
-plist are used as keymap for each sections defined by the key."
-  (let* ((name (or (plist-get object :name) " "))
- (type (or (plist-get object :type) " "))
+EXPANDED-P is called with PATH and OBJECT to determine if function
+should continue to be called recursively.
+MAPS is an PLIST where the VALUES add `keymaps' to `name', `value'
+or `prefix' part of variable string."
+  (let* ((name (or (plist-get object :name) ""))
+ (type (or (plist-get object :type) ""))
  (value (or (plist-get object :value)
 (plist-get object :result)
 " "))
- (prefix (make-string (* (1- (length path)) 2) ? ))
+ (prefix (make-string (* (1- (length path)) 2) ?\s))
+ (expanded (funcall expanded-p path object))
  (path (cons (plist-get object :name) path))
- (expanded (gethash path dape--info-expanded-p))
  row)
 (setq name
-  (propertize name
-  'mouse-face 'highlight
-  'help-echo "mouse-2: create or remove watch expression"
-  'keymap (plist-get maps 'name)
-  'font-lock-face font-lock-variable-name-face)
+  (apply 'propertize name
+ 'font-lock-face font-lock-variable-name-face
+ 'face font-lock-variable-name-face
+ (when-let ((map (plist-get maps 'name)))
+   (list 'mouse-face 'highligh

[elpa] externals/dape 953d007f6f 1/3: Fix locked running state by atomizing thread status updates

[ELPA Syncer]

branch: externals/dape
commit 953d007f6f037e9c9ee43ff38182981944222900
Author: Daniel Pettersson 
Commit: Daniel Pettersson 

Fix locked running state by atomizing thread status updates
---
 dape.el | 76 -
 1 file changed, 52 insertions(+), 24 deletions(-)

diff --git a/dape.el b/dape.el
index 0b58d3e935..c25a1fa01b 100644
--- a/dape.el
+++ b/dape.el
@@ -805,22 +805,32 @@ See `dape--connection-selected'."
  (dape--stopped-threads dape--connection-selected))
   (setq dape--connection-selected conn
 
-(defun dape--threads-set-status (conn thread-id all-threads status)
+(defun dape--threads-make-update-handle (conn)
+  "Return an threads update update handle for CONN.
+See `dape--threads-set-status'."
+  (setf (dape--threads-update-handle conn)
+(1+ (dape--threads-update-handle conn
+
+(defun dape--threads-set-status (conn thread-id all-threads status 
update-handle)
   "Set string STATUS thread(s) for CONN.
 If THREAD-ID is non nil set status for thread with :id equal to
 THREAD-ID to STATUS.
-If ALL-THREADS is non nil set status of all all threads to STATUS."
-  (cond
-   ((not status) nil)
-   (all-threads
-(cl-loop for thread in (dape--threads conn)
- do (plist-put thread :status status)))
-   (thread-id
-(plist-put
- (cl-find-if (lambda (thread)
-   (equal (plist-get thread :id) thread-id))
- (dape--threads conn))
- :status status
+If ALL-THREADS is non nil set status of all all threads to STATUS.
+Ignore status update if UPDATE-HANDLE is not the last handle created
+by `dape--threads-make-update-handle'."
+  (when (> update-handle (dape--threads-last-update-handle conn))
+(setf (dape--threads-last-update-handle conn) update-handle)
+(cond
+ ((not status) nil)
+ (all-threads
+  (cl-loop for thread in (dape--threads conn)
+   do (plist-put thread :status status)))
+ (thread-id
+  (plist-put
+   (cl-find-if (lambda (thread)
+ (equal (plist-get thread :id) thread-id))
+   (dape--threads conn))
+   :status status)
 
 (defun dape--thread-id-object (conn)
   "Construct a thread id object for CONN."
@@ -1252,6 +1262,12 @@ See `dape--connection-selected'."
(threads
 :accessor dape--threads :initform nil
 :documentation "Session plist of thread data.")
+   (threads-update-handle
+:initform 0 :accessor dape--threads-update-handle
+:documentation "Current handle for updating thread state.")
+   (threads-last-update-handle
+:initform 0 :accessor dape--threads-last-update-handle
+:documentation "Last handle used when updating thread state")
(capabilities
 :accessor dape--capabilities :initform nil
 :documentation "Session capabilities plist.")
@@ -1917,12 +1933,18 @@ Stores `dape--thread-id' and updates/adds thread in
   body
 (when (equal reason "started")
   (dape--maybe-select-thread conn (plist-get body :threadId) nil))
-(dape--with-request (dape--update-threads conn)
-  (dape--threads-set-status conn threadId nil
-(if (equal reason "exited")
-'exited
-  'running))
-  (run-hooks 'dape-update-ui-hooks
+(let ((update-handle
+   ;; Need to store handle before threads request to guard
+   ;; against an overwriting thread status if event is firing
+   ;; while threads request is in flight
+   (dape--threads-make-update-handle conn)))
+  (dape--with-request (dape--update-threads conn)
+(dape--threads-set-status conn threadId nil
+  (if (equal reason "exited")
+  'exited
+'running)
+  update-handle)
+(run-hooks 'dape-update-ui-hooks)
 
 (cl-defmethod dape-handle-event (conn (_event (eql stopped)) body)
   "Handle adapter CONNs stopped events.
@@ -1953,10 +1975,15 @@ Sets `dape--thread-id' from BODY and invokes ui refresh 
with
 ;; Update breakpoints hits
 (dape--breakpoints-stopped hitBreakpointIds)
 ;; Update `dape--threads'
-(dape--with-request (dape--update-threads conn)
-  (dape--threads-set-status conn threadId (eq allThreadsStopped t)
-'stopped)
-  (dape--update conn))
+(let ((update-handle
+   ;; Need to store handle before threads request to guard
+   ;; against an overwriting thread status if event is firing
+   ;; while threads request is in flight
+   (dape--threads-make-update-handle conn)))
+  (dape--with-request (dape--update-threads conn)
+(dape--threads-set-status conn threadId (eq allThreadsStopped t)
+  'stopped update-handle)
+(dape--update conn)))
   

[elpa] externals/dape b53b2ba488 3/3: Small docstring fixup

[ELPA Syncer]

branch: externals/dape
commit b53b2ba4888b1626947bbcdb72f90b629f4e153b
Author: Daniel Pettersson 
Commit: Daniel Pettersson 

Small docstring fixup
---
 dape-tests.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/dape-tests.el b/dape-tests.el
index 1c5482700d..f75d43863e 100644
--- a/dape-tests.el
+++ b/dape-tests.el
@@ -40,7 +40,7 @@
 (line-number-at-pos)
 
 (defmacro dape-test--should (pred &optional seconds)
-  "PRED should eventually be non nil during duration SECONDS.'
+  "PRED should eventually be non nil during duration SECONDS.
 If PRED does not eventually return nil, abort the current test as
 failed."
   (let ((seconds (or seconds 10)))

[elpa] externals/dape updated (14a80a1324 -> b53b2ba488)

[ELPA Syncer]

elpasync pushed a change to branch externals/dape.

  from  14a80a1324 Add stack select up/down repl commands
   new  953d007f6f Fix locked running state by atomizing thread status 
updates
   new  150297fe55 Expand variable in eldoc buffer
   new  b53b2ba488 Small docstring fixup


Summary of changes:
 dape-tests.el |   2 +-
 dape.el   | 289 --
 2 files changed, 161 insertions(+), 130 deletions(-)

[elpa] externals/org f3e306c737: lisp/org.el: Add `org-after-note-stored-hook'

[ELPA Syncer]

branch: externals/org
commit f3e306c7375e6f9ba4dce27b8c3bdfbf9f2b78bc
Author: Joris Caravati 
Commit: Ihor Radchenko 

lisp/org.el: Add `org-after-note-stored-hook'

* lisp/org.el: Add `org-after-note-stored-hook' which is called at the
end of the `org-store-log-note' function.
* etc/ORG-NEWS: Document the new hook.

TINYCHANGE
---
 etc/ORG-NEWS | 4 
 lisp/org.el  | 8 
 2 files changed, 12 insertions(+)

diff --git a/etc/ORG-NEWS b/etc/ORG-NEWS
index cb09b2e641..6c6fdbe2c9 100644
--- a/etc/ORG-NEWS
+++ b/etc/ORG-NEWS
@@ -735,6 +735,10 @@ any more.  Run ~org-ctags-enable~ to setup hooks and 
advices:
 #+end_src
 
 ** New and changed options
+*** New hook ~org-after-note-stored-hook~
+
+This new hook runs when a note has been stored.
+
 *** New option controlling how Org mode sorts things ~org-sort-function~
 
 Sorting of agenda items, tables, menus, headlines, etc can now be
diff --git a/lisp/org.el b/lisp/org.el
index 8d921f11e7..4342ddd735 100644
--- a/lisp/org.el
+++ b/lisp/org.el
@@ -1990,6 +1990,13 @@ Lisp variable `org-state'."
   :group 'org-todo
   :type 'hook)
 
+(defcustom org-after-note-stored-hook nil
+  "Hook triggered after a note is stored.
+The point is at the stored note when the hook is executed."
+  :group 'org-progress
+  :type 'hook
+  :package-version '(Org . "9.7"))
+
 (defvar org-blocker-hook nil
   "Hook for functions that are allowed to block a state change.
 
@@ -10846,6 +10853,7 @@ items are State notes."
(unless (string-empty-p line)
 (indent-line-to ind)
 (insert-and-inherit line
+   (run-hooks 'org-after-note-stored-hook)
   (message "Note stored")
   (org-back-to-heading t))
   ;; Don't add undo information when called from `org-agenda-todo'.

[elpa] externals/dape updated (b53b2ba488 -> 728c3c621e)

[ELPA Syncer]

elpasync pushed a change to branch externals/dape.

  from  b53b2ba488 Small docstring fixup
   new  64e0952dca Fix docstring
   new  728c3c621e Fix eldoc print when variable type information is missing


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

[elpa] externals/dape 728c3c621e 2/2: Fix eldoc print when variable type information is missing

[ELPA Syncer]

branch: externals/dape
commit 728c3c621ed411a765512e779b71515471080415
Author: Daniel Pettersson 
Commit: Daniel Pettersson 

Fix eldoc print when variable type information is missing
---
 dape.el | 10 ++
 1 file changed, 6 insertions(+), 4 deletions(-)

diff --git a/dape.el b/dape.el
index 9f2d64c169..6bf5a41ee9 100644
--- a/dape.el
+++ b/dape.el
@@ -5213,10 +5213,12 @@ See `eldoc-documentation-functions', for more 
information."
 (funcall cb (gdb-table-string table " ")
  :thing symbol
  :face 'font-lock-variable-name-face
- :echo (format "%s %s" (or (plist-get body :value)
-   (plist-get body :result)
-   " ")
-   (plist-get body :type))
+ :echo (format "%s %s"
+   (or (plist-get body :value)
+   (plist-get body :result)
+   "")
+   (or (plist-get body :type)
+   ""))
   t)
 
 (defun dape--add-eldoc-hook ()

[elpa] externals/dape 64e0952dca 1/2: Fix docstring

[ELPA Syncer]

branch: externals/dape
commit 64e0952dcac5bff74f4cfd274957d27f6066ac13
Author: Daniel Pettersson 
Commit: Daniel Pettersson 

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

diff --git a/dape.el b/dape.el
index 01ea5c17f4..9f2d64c169 100644
--- a/dape.el
+++ b/dape.el
@@ -4291,7 +4291,7 @@ or \\[dape-info-watch-abort-changes] to abort changes")))
  do (insert "  " name "\n"
 
 (defun dape-info-watch-abort-changes ()
-  "Abort changes and return to `dape-info-watch-mode'."
+  "Abort change and return to `dape-info-watch-mode'."
   (interactive)
   (dape-info-watch-mode)
   (revert-buffer))

[elpa] externals/greader updated (336b9b3608 -> 93b5cd2e95)

[ELPA Syncer]

elpasync pushed a change to branch externals/greader.

  from  336b9b3608 Greader version 0.9.21
   new  813a824fac greader-dict.el: fixed
   new  93b5cd2e95 greader version 0.9.22


Summary of changes:
 greader-dict.el | 9 -
 greader.el  | 2 +-
 2 files changed, 9 insertions(+), 2 deletions(-)

[elpa] externals/greader 813a824fac 1/2: greader-dict.el: fixed

[ELPA Syncer]

branch: externals/greader
commit 813a824faca45f76ca53c0e7a92192eb08b1dcb8
Author: Michelangelo Rodriguez 
Commit: Michelangelo Rodriguez 

greader-dict.el: fixed

Now filters are updated correctly with
`greader-dict-change-dictionary'.
---
 greader-dict.el | 9 -
 1 file changed, 8 insertions(+), 1 deletion(-)

diff --git a/greader-dict.el b/greader-dict.el
index f2e7037525..a6b0690e5f 100644
--- a/greader-dict.el
+++ b/greader-dict.el
@@ -408,6 +408,10 @@ user-error and aborts the reading process."
   (setq greader-dict-filename (buffer-local-value
   'greader-dict-filename
   greader-dict--current-reading-buffer))
+  (setq greader-filters (buffer-local-value 'greader-filters
+   
greader-dict--current-reading-buffer))
+  (setq greader-dict-toggle-filters (buffer-local-value
+'greader-dict-toggle-filters 
greader-dict--current-reading-buffer))
   (insert-file-contents (greader-dict--get-file-name))
   (when-let ((lines (string-lines (buffer-string) t)))
(dolist (line lines)
@@ -653,11 +657,14 @@ asked."
   greader-dict--saved-flag
   t
   (clrhash greader-dictionary)
+  (clrhash greader-filters)
   (greader-dict--set-file (intern new-dict))
   (unless (file-exists-p (greader-dict--get-file-name))
(shell-command-to-string
 (concat "touch " greader-dict-filename)))
-  (greader-dict-read-from-dict-file
+  (greader-dict--update)
+  (greader-dict--update
+
 ;; (remove-hook 'buffer-list-update-hook #'greader-dict--update)
 
 (defun greader-dict--update ()

[elpa] externals/greader 93b5cd2e95 2/2: greader version 0.9.22

[ELPA Syncer]

branch: externals/greader
commit 93b5cd2e95cc2b74afacf996c9ec5bb0c25a6b45
Author: Michelangelo Rodriguez 
Commit: Michelangelo Rodriguez 

greader version 0.9.22
---
 greader.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/greader.el b/greader.el
index 5b402621d8..f90351ad94 100644
--- a/greader.el
+++ b/greader.el
@@ -6,7 +6,7 @@
 ;; Author: Michelangelo Rodriguez 
 ;; Keywords: tools, accessibility
 
-;; Version: 0.9.21
+;; Version: 0.9.22
 
 ;; This program is free software; you can redistribute it and/or modify
 ;; it under the terms of the GNU General Public License as published by

[nongnu] elpa/helm a4ac705b1c 07/13: Ensure lynx style map is used in new HFF dummy source

[ELPA Syncer]

branch: elpa/helm
commit a4ac705b1c8597692d343e81b3fd573b50175cbd
Author: Thierry Volpiatto 
Commit: Thierry Volpiatto 

Ensure lynx style map is used in new HFF dummy source
---
 helm-files.el | 13 +++--
 helm-mode.el  |  7 +++
 2 files changed, 18 insertions(+), 2 deletions(-)

diff --git a/helm-files.el b/helm-files.el
index dcc6fc47c5..d0d31ae818 100644
--- a/helm-files.el
+++ b/helm-files.el
@@ -723,11 +723,20 @@ will have no effect, use customize instead."
(define-key helm-find-files-map (kbd "")  
'helm-execute-persistent-action)
(define-key helm-find-files-map (kbd "")   
'helm-find-files-up-one-level)
(define-key helm-read-file-map (kbd "")  
'helm-execute-persistent-action)
-   (define-key helm-read-file-map (kbd "")   
'helm-find-files-up-one-level))
+   (define-key helm-read-file-map (kbd "")   
'helm-find-files-up-one-level)
+   ;; Dummy map.
+   (define-key helm-find-files-dummy-map (kbd "")  
'helm-execute-persistent-action)
+   (define-key helm-find-files-dummy-map (kbd "")   
'helm-find-files-up-one-level)
+   (define-key helm-read-file-dummy-map (kbd "")  
'helm-execute-persistent-action)
+   (define-key helm-read-file-dummy-map (kbd "")   
'helm-find-files-up-one-level))
(define-key helm-find-files-map (kbd "") nil)
(define-key helm-find-files-map (kbd "")  nil)
+   (define-key helm-find-files-dummy-map (kbd "") nil)
+   (define-key helm-find-files-dummy-map (kbd "")  nil)
(define-key helm-read-file-map (kbd "") nil)
-   (define-key helm-read-file-map (kbd "")  nil
+   (define-key helm-read-file-map (kbd "")  nil)
+   (define-key helm-read-file-dummy-map (kbd "") nil)
+   (define-key helm-read-file-dummy-map (kbd "")  nil
 
 (defcustom helm-ff-DEL-up-one-level-maybe nil
   "Use DEL to maybe go up one level when non nil.
diff --git a/helm-mode.el b/helm-mode.el
index fa1609e1be..ef6fbb9c16 100644
--- a/helm-mode.el
+++ b/helm-mode.el
@@ -1891,6 +1891,12 @@ See documentation of `completing-read' and 
`all-completions' for details."
 ;;; Generic read-file-name
 ;;
 ;;
+(defvar helm-read-file-dummy-map
+  (let ((map (make-sparse-keymap)))
+(set-keymap-parent map helm-map)
+(define-key map (kbd "C-l") 'helm-find-files-up-one-level)
+map))
+
 ;;;###autoload
 (cl-defun helm-read-file-name
 (prompt
@@ -2011,6 +2017,7 @@ Keys description:
;; Non existing file or dir source.
(unless must-match
  (helm-build-dummy-source "New file or dir"
+   :keymap 'helm-read-file-dummy-map
:filtered-candidate-transformer
(lambda (_candidates _source)
  (unless (file-exists-p helm-pattern)

[nongnu] elpa/helm 0d928a6c31 05/13: Add missing actions to helm-find-files-dummy-source

[ELPA Syncer]

branch: elpa/helm
commit 0d928a6c313f2a793b61d934fee260c561505420
Author: Thierry Volpiatto 
Commit: Thierry Volpiatto 

Add missing actions to helm-find-files-dummy-source
---
 helm-files.el | 15 ++-
 1 file changed, 14 insertions(+), 1 deletion(-)

diff --git a/helm-files.el b/helm-files.el
index 4b7cb2f93a..cd25720973 100644
--- a/helm-files.el
+++ b/helm-files.el
@@ -5558,13 +5558,26 @@ Use it for non-interactive calls of `helm-find-files'."
   (helm-ff--update-resume-after-hook nil t)
   (setq helm-ff-default-directory nil
 
+(defvar helm-find-files-dummy-map
+  (let ((map (make-sparse-keymap)))
+(set-keymap-parent map helm-map)
+(define-key map (kbd "M-T") 'helm-ff-run-touch-files)
+(define-key map (kbd "C-c r") 'helm-ff-run-find-file-as-root)
+map)
+  "The map used for `helm-find-files-dummy-source'.
+It is the source handling new file or directory in `helm-find-files'.")
+
 (defvar helm-find-files-dummy-source
   (helm-build-dummy-source "New file or dir"
 :filtered-candidate-transformer
 (lambda (_candidates _source)
   (unless (file-exists-p helm-pattern)
 (list (helm-ff-filter-candidate-one-by-one helm-pattern nil t
-:action #'helm-find-file-or-marked))
+:keymap 'helm-find-files-dummy-map
+:action (helm-make-actions
+ "Find File" 'helm-find-file-or-marked
+ "Find file as root `C-c r'" 'helm-find-file-as-root
+ "Touch File(s) `M-T'" 'helm-ff-touch-files)))
 
 (defun helm-ff--update-resume-after-hook (sources &optional nohook)
   "Meant to be used in `helm-resume-after-hook'.

[nongnu] elpa/helm aec87449bc 10/13: Make :must-match working in read-file-name dummy source

[ELPA Syncer]

branch: elpa/helm
commit aec87449bc04b170245f7de9a118830a5996ac3d
Author: Thierry Volpiatto 
Commit: Thierry Volpiatto 

Make :must-match working in read-file-name dummy source
---
 helm-mode.el | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/helm-mode.el b/helm-mode.el
index 4b30576f11..047ee3cf3b 100644
--- a/helm-mode.el
+++ b/helm-mode.el
@@ -2009,9 +2009,10 @@ Keys description:
  :nomark nomark
  :action action-fn)
;; Non existing file or dir source.
-   (unless must-match
+   (unless (eq must-match t)
  (helm-build-dummy-source "New file or dir"
:keymap 'helm-read-file-dummy-map
+   :must-match must-match
:filtered-candidate-transformer
(lambda (_candidates _source)
  (unless (file-exists-p helm-pattern)

[nongnu] elpa/helm a779dd2607 01/13: Use `truncate-string-ellipsis` as default for helm-buffers-end-truncated-string

[ELPA Syncer]

branch: elpa/helm
commit a779dd26073d1c63ed5da38acc3d2a65fc1ab2f1
Author: Thierry Volpiatto 
Commit: Thierry Volpiatto 

Use `truncate-string-ellipsis` as default for 
helm-buffers-end-truncated-string
---
 helm-buffers.el | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/helm-buffers.el b/helm-buffers.el
index 344153e1fe..ad8ee33e43 100644
--- a/helm-buffers.el
+++ b/helm-buffers.el
@@ -18,6 +18,7 @@
 ;;; Code:
 
 (require 'cl-lib)
+(require 'mule-util)
 (require 'helm)
 (require 'helm-types)
 (require 'helm-utils)
@@ -101,7 +102,7 @@ When adding a source here it is up to you to ensure the 
library
 of this source is accessible and properly loaded."
   :type '(repeat (choice symbol)))
 
-(defcustom helm-buffers-end-truncated-string "..."
+(defcustom helm-buffers-end-truncated-string (truncate-string-ellipsis)
   "The string to display at end of truncated buffer names."
   :type 'string)
 

[nongnu] elpa/helm 4cb0f2e5c3 06/13: Allow using C-l in new HFF dummy source

[ELPA Syncer]

branch: elpa/helm
commit 4cb0f2e5c3e0d7a5a503f06f52b79cb26c676e1c
Author: Thierry Volpiatto 
Commit: Thierry Volpiatto 

Allow using C-l in new HFF dummy source
---
 helm-core.el  | 2 +-
 helm-files.el | 1 +
 2 files changed, 2 insertions(+), 1 deletion(-)

diff --git a/helm-core.el b/helm-core.el
index 7dbce040eb..429c6b4fc7 100644
--- a/helm-core.el
+++ b/helm-core.el
@@ -140,7 +140,7 @@ precedence on :default.")
   "Store temporary hooks added by `with-helm-temp-hook'.")
 (defvar helm--prompt nil)
 (defvar helm--file-completion-sources
-  '("Find Files" "Read File Name")
+  '("Find Files" "Read File Name" "New file or dir")
   "Sources that use the *find-files mechanism can be added here.
 Sources generated by `helm-mode' don't need to be added here
 because they are automatically added.
diff --git a/helm-files.el b/helm-files.el
index cd25720973..dcc6fc47c5 100644
--- a/helm-files.el
+++ b/helm-files.el
@@ -5563,6 +5563,7 @@ Use it for non-interactive calls of `helm-find-files'."
 (set-keymap-parent map helm-map)
 (define-key map (kbd "M-T") 'helm-ff-run-touch-files)
 (define-key map (kbd "C-c r") 'helm-ff-run-find-file-as-root)
+(define-key map (kbd "C-l") 'helm-find-files-up-one-level)
 map)
   "The map used for `helm-find-files-dummy-source'.
 It is the source handling new file or directory in `helm-find-files'.")

[nongnu] elpa/helm 4e841d9c1c 11/13: Remove helm-read-file-dummy-map

[ELPA Syncer]

branch: elpa/helm
commit 4e841d9c1cf1efcdb100643dbf725497e44e4c8e
Author: Thierry Volpiatto 
Commit: Thierry Volpiatto 

Remove helm-read-file-dummy-map
---
 helm-files.el | 19 ++-
 helm-mode.el  |  2 +-
 2 files changed, 3 insertions(+), 18 deletions(-)

diff --git a/helm-files.el b/helm-files.el
index 2ad17d4ddf..f95c347131 100644
--- a/helm-files.el
+++ b/helm-files.el
@@ -305,12 +305,6 @@ It is the source handling new file or directory in 
`helm-find-files'.")
 map)
   "Keymap for `helm-read-file-name'.")
 
-(defvar helm-read-file-dummy-map
-  (let ((map (make-sparse-keymap)))
-(set-keymap-parent map helm-map)
-(define-key map (kbd "C-l") 'helm-find-files-up-one-level)
-map)
-  "Keymap for `helm-read-file-name' dummy source.")
 
 ;;; User variables
 ;;
@@ -740,20 +734,11 @@ will have no effect, use customize instead."
(define-key helm-find-files-map (kbd "")  
'helm-execute-persistent-action)
(define-key helm-find-files-map (kbd "")   
'helm-find-files-up-one-level)
(define-key helm-read-file-map (kbd "")  
'helm-execute-persistent-action)
-   (define-key helm-read-file-map (kbd "")   
'helm-find-files-up-one-level)
-   ;; Dummy map.
-   (define-key helm-find-files-dummy-map (kbd "")  
'helm-execute-persistent-action)
-   (define-key helm-find-files-dummy-map (kbd "")   
'helm-find-files-up-one-level)
-   (define-key helm-read-file-dummy-map (kbd "")  
'helm-execute-persistent-action)
-   (define-key helm-read-file-dummy-map (kbd "")   
'helm-find-files-up-one-level))
+   (define-key helm-read-file-map (kbd "")   
'helm-find-files-up-one-level))
(define-key helm-find-files-map (kbd "") nil)
(define-key helm-find-files-map (kbd "")  nil)
-   (define-key helm-find-files-dummy-map (kbd "") nil)
-   (define-key helm-find-files-dummy-map (kbd "")  nil)
(define-key helm-read-file-map (kbd "") nil)
-   (define-key helm-read-file-map (kbd "")  nil)
-   (define-key helm-read-file-dummy-map (kbd "") nil)
-   (define-key helm-read-file-dummy-map (kbd "")  nil
+   (define-key helm-read-file-map (kbd "")  nil
 
 (defcustom helm-ff-DEL-up-one-level-maybe nil
   "Use DEL to maybe go up one level when non nil.
diff --git a/helm-mode.el b/helm-mode.el
index 047ee3cf3b..9ea79dbb1d 100644
--- a/helm-mode.el
+++ b/helm-mode.el
@@ -2011,7 +2011,7 @@ Keys description:
;; Non existing file or dir source.
(unless (eq must-match t)
  (helm-build-dummy-source "New file or dir"
-   :keymap 'helm-read-file-dummy-map
+   :keymap 'helm-read-file-map
:must-match must-match
:filtered-candidate-transformer
(lambda (_candidates _source)

[nongnu] elpa/helm e48f65bc7e 09/13: Move helm-read-file-dummy-map to helm-files to avoid errors

[ELPA Syncer]

branch: elpa/helm
commit e48f65bc7e68691252889a4b55d6b6fa7f490001
Author: Thierry Volpiatto 
Commit: Thierry Volpiatto 

Move helm-read-file-dummy-map to helm-files to avoid errors

with lynx style setting.
---
 helm-files.el | 7 +++
 helm-mode.el  | 6 --
 2 files changed, 7 insertions(+), 6 deletions(-)

diff --git a/helm-files.el b/helm-files.el
index 585de8b4d1..2ad17d4ddf 100644
--- a/helm-files.el
+++ b/helm-files.el
@@ -304,6 +304,13 @@ It is the source handling new file or directory in 
`helm-find-files'.")
   nil 'helm-ff-delete-char-backward--exit-fn)
 map)
   "Keymap for `helm-read-file-name'.")
+
+(defvar helm-read-file-dummy-map
+  (let ((map (make-sparse-keymap)))
+(set-keymap-parent map helm-map)
+(define-key map (kbd "C-l") 'helm-find-files-up-one-level)
+map)
+  "Keymap for `helm-read-file-name' dummy source.")
 
 ;;; User variables
 ;;
diff --git a/helm-mode.el b/helm-mode.el
index ef6fbb9c16..4b30576f11 100644
--- a/helm-mode.el
+++ b/helm-mode.el
@@ -1891,12 +1891,6 @@ See documentation of `completing-read' and 
`all-completions' for details."
 ;;; Generic read-file-name
 ;;
 ;;
-(defvar helm-read-file-dummy-map
-  (let ((map (make-sparse-keymap)))
-(set-keymap-parent map helm-map)
-(define-key map (kbd "C-l") 'helm-find-files-up-one-level)
-map))
-
 ;;;###autoload
 (cl-defun helm-read-file-name
 (prompt

[nongnu] elpa/helm c71be6c5b1 12/13: Bind missing keys to helm-find-files-dummy-map

[ELPA Syncer]

branch: elpa/helm
commit c71be6c5b186d8153cdc7b8526c980ed8f3ba533
Author: Thierry Volpiatto 
Commit: Thierry Volpiatto 

Bind missing keys to helm-find-files-dummy-map
---
 helm-files.el | 10 --
 1 file changed, 8 insertions(+), 2 deletions(-)

diff --git a/helm-files.el b/helm-files.el
index f95c347131..9186491c85 100644
--- a/helm-files.el
+++ b/helm-files.el
@@ -271,9 +271,15 @@ Should not be used among other sources.")
 (defvar helm-find-files-dummy-map
   (let ((map (make-sparse-keymap)))
 (set-keymap-parent map helm-map)
-(define-key map (kbd "M-T") 'helm-ff-run-touch-files)
+(define-key map (kbd "M-T")   'helm-ff-run-touch-files)
 (define-key map (kbd "C-c r") 'helm-ff-run-find-file-as-root)
-(define-key map (kbd "C-l") 'helm-find-files-up-one-level)
+(define-key map (kbd "C-l")   'helm-find-files-up-one-level)
+(define-key map (kbd "C-_")   'helm-ff-undo)
+(define-key map (kbd "C-r")   'helm-find-files-down-last-level)
+(helm-define-key-with-subkeys map (kbd "DEL") ?\d 
'helm-ff-delete-char-backward
+  '((C-backspace . 
helm-ff-run-toggle-auto-update)
+([C-c DEL] . 
helm-ff-run-toggle-auto-update))
+  nil 'helm-ff-delete-char-backward--exit-fn)
 map)
   "The map used for `helm-find-files-dummy-source'.
 It is the source handling new file or directory in `helm-find-files'.")

[nongnu] elpa/helm ba2eb55235 13/13: Fix dummy sources name

[ELPA Syncer]

branch: elpa/helm
commit ba2eb552353635222f14984b8a2f4456b4ac62e2
Author: Thierry Volpiatto 
Commit: Thierry Volpiatto 

Fix dummy sources name
---
 helm-core.el  | 2 +-
 helm-files.el | 2 +-
 helm-mode.el  | 2 +-
 3 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/helm-core.el b/helm-core.el
index 429c6b4fc7..5230788bb6 100644
--- a/helm-core.el
+++ b/helm-core.el
@@ -140,7 +140,7 @@ precedence on :default.")
   "Store temporary hooks added by `with-helm-temp-hook'.")
 (defvar helm--prompt nil)
 (defvar helm--file-completion-sources
-  '("Find Files" "Read File Name" "New file or dir")
+  '("Find Files" "Read File Name" "New file or directory")
   "Sources that use the *find-files mechanism can be added here.
 Sources generated by `helm-mode' don't need to be added here
 because they are automatically added.
diff --git a/helm-files.el b/helm-files.el
index 9186491c85..d843b597a4 100644
--- a/helm-files.el
+++ b/helm-files.el
@@ -5576,7 +5576,7 @@ Use it for non-interactive calls of `helm-find-files'."
   (setq helm-ff-default-directory nil
 
 (defvar helm-find-files-dummy-source
-  (helm-build-dummy-source "New file or dir"
+  (helm-build-dummy-source "New file or directory"
 :filtered-candidate-transformer
 (lambda (_candidates _source)
   (unless (file-exists-p helm-pattern)
diff --git a/helm-mode.el b/helm-mode.el
index 9ea79dbb1d..8316f6a659 100644
--- a/helm-mode.el
+++ b/helm-mode.el
@@ -2010,7 +2010,7 @@ Keys description:
  :action action-fn)
;; Non existing file or dir source.
(unless (eq must-match t)
- (helm-build-dummy-source "New file or dir"
+ (helm-build-dummy-source "New file or directory"
:keymap 'helm-read-file-map
:must-match must-match
:filtered-candidate-transformer

[nongnu] elpa/helm 49647d3f54 03/13: Add dummy source for read-file-name as well

[ELPA Syncer]

branch: elpa/helm
commit 49647d3f5417894bca76cf89e3bfb41d20901dc8
Author: Thierry Volpiatto 
Commit: Thierry Volpiatto 

Add dummy source for read-file-name as well
---
 helm-files.el |  4 ++--
 helm-mode.el  | 14 ++
 2 files changed, 12 insertions(+), 6 deletions(-)

diff --git a/helm-files.el b/helm-files.el
index 7a82e588a3..1869d369b7 100644
--- a/helm-files.el
+++ b/helm-files.el
@@ -3516,7 +3516,7 @@ debugging purpose."
   ;; Return PATTERN unchanged.
   (t pattern
 
-(defun helm-find-files-get-candidates (&optional require-match)
+(defun helm-find-files-get-candidates ()
   "Create candidate list for `helm-source-find-files'."
   (let* ((path  (helm-ff-set-pattern helm-pattern))
  (dir-p (file-accessible-directory-p path))
@@ -5595,7 +5595,7 @@ Use it for non-interactive calls of `helm-find-files'."
 (defvar helm-find-files-dummy-source
   (helm-build-dummy-source "New file or dir"
 :filtered-candidate-transformer
-(lambda (candidates _source)
+(lambda (_candidates _source)
   (unless (file-exists-p helm-pattern)
 (list (helm-ff-filter-candidate-one-by-one helm-pattern nil t
 :action #'helm-find-file-or-marked))
diff --git a/helm-mode.el b/helm-mode.el
index 5bf41b3d26..b248504d75 100644
--- a/helm-mode.el
+++ b/helm-mode.el
@@ -2009,7 +2009,14 @@ Keys description:
  :must-match must-match
  :nomark nomark
  :action action-fn)
-   ;; Other source.
+   ;; Non existing file or dir source.
+   (unless must-match
+ (helm-build-dummy-source "New file or dir"
+   :filtered-candidate-transformer
+   (lambda (_candidates _source)
+ (unless (file-exists-p helm-pattern)
+   (list (helm-ff-filter-candidate-one-by-one helm-pattern nil 
t))
+   ;; List files source.
(helm-build-sync-source name
  :header-name (lambda (name)
 (concat name (substitute-command-keys
@@ -2033,12 +2040,11 @@ Keys description:
(cl-loop with hn = (helm-ff--tramp-hostnames)
 ;; helm-find-files-get-candidates is
 ;; returning a list of cons cells.
-for (d . r) in 
(helm-find-files-get-candidates
-must-match)
+for (d . r) in 
(helm-find-files-get-candidates)
 when (or (member r hn) ; A tramp host
  (funcall test r)) ; Test ok
 collect (cons d r)))
- (helm-find-files-get-candidates must-match)))
+ (helm-find-files-get-candidates)))
  :update (lambda ()
(remhash helm-ff-default-directory
 helm-ff--list-directory-cache))

[nongnu] elpa/helm-core updated (08cfc12278 -> ba2eb55235)

[ELPA Syncer]

elpasync pushed a change to branch elpa/helm-core.

  from  08cfc12278 Move helm-re-search-forward in helm-lib
  adds  a779dd2607 Use `truncate-string-ellipsis` as default for 
helm-buffers-end-truncated-string
  adds  3c390b99f5 Use a dummy source for not existing files in HFF
  adds  49647d3f54 Add dummy source for read-file-name as well
  adds  f54356fc27 Get rid of helm-ff-move-to-first-real-candidate
  adds  0d928a6c31 Add missing actions to helm-find-files-dummy-source
  adds  4cb0f2e5c3 Allow using C-l in new HFF dummy source
  adds  a4ac705b1c Ensure lynx style map is used in new HFF dummy source
  adds  996e2cab6d Move dummy map on top
  adds  e48f65bc7e Move helm-read-file-dummy-map to helm-files to avoid 
errors
  adds  aec87449bc Make :must-match working in read-file-name dummy source
  adds  4e841d9c1c Remove helm-read-file-dummy-map
  adds  c71be6c5b1 Bind missing keys to helm-find-files-dummy-map
  adds  ba2eb55235 Fix dummy sources name

No new revisions were added by this update.

Summary of changes:
 helm-buffers.el |   3 +-
 helm-core.el|   2 +-
 helm-files.el   | 101 
 helm-mode.el|  19 +++
 4 files changed, 51 insertions(+), 74 deletions(-)

[nongnu] elpa/helm updated (08cfc12278 -> ba2eb55235)

[ELPA Syncer]

elpasync pushed a change to branch elpa/helm.

  from  08cfc12278 Move helm-re-search-forward in helm-lib
   new  a779dd2607 Use `truncate-string-ellipsis` as default for 
helm-buffers-end-truncated-string
   new  3c390b99f5 Use a dummy source for not existing files in HFF
   new  49647d3f54 Add dummy source for read-file-name as well
   new  f54356fc27 Get rid of helm-ff-move-to-first-real-candidate
   new  0d928a6c31 Add missing actions to helm-find-files-dummy-source
   new  4cb0f2e5c3 Allow using C-l in new HFF dummy source
   new  a4ac705b1c Ensure lynx style map is used in new HFF dummy source
   new  996e2cab6d Move dummy map on top
   new  e48f65bc7e Move helm-read-file-dummy-map to helm-files to avoid 
errors
   new  aec87449bc Make :must-match working in read-file-name dummy source
   new  4e841d9c1c Remove helm-read-file-dummy-map
   new  c71be6c5b1 Bind missing keys to helm-find-files-dummy-map
   new  ba2eb55235 Fix dummy sources name


Summary of changes:
 helm-buffers.el |   3 +-
 helm-core.el|   2 +-
 helm-files.el   | 101 
 helm-mode.el|  19 +++
 4 files changed, 51 insertions(+), 74 deletions(-)

[nongnu] elpa/helm 996e2cab6d 08/13: Move dummy map on top

[ELPA Syncer]

branch: elpa/helm
commit 996e2cab6d9abd8352653617a85d1f9e69885395
Author: Thierry Volpiatto 
Commit: Thierry Volpiatto 

Move dummy map on top
---
 helm-files.el | 20 ++--
 1 file changed, 10 insertions(+), 10 deletions(-)

diff --git a/helm-files.el b/helm-files.el
index d0d31ae818..585de8b4d1 100644
--- a/helm-files.el
+++ b/helm-files.el
@@ -268,6 +268,16 @@ Should not be used among other sources.")
 map)
   "Keymap for `helm-find-files'.")
 
+(defvar helm-find-files-dummy-map
+  (let ((map (make-sparse-keymap)))
+(set-keymap-parent map helm-map)
+(define-key map (kbd "M-T") 'helm-ff-run-touch-files)
+(define-key map (kbd "C-c r") 'helm-ff-run-find-file-as-root)
+(define-key map (kbd "C-l") 'helm-find-files-up-one-level)
+map)
+  "The map used for `helm-find-files-dummy-source'.
+It is the source handling new file or directory in `helm-find-files'.")
+
 (defvar helm-read-file-map
   (let ((map (make-sparse-keymap)))
 (set-keymap-parent map helm-map)
@@ -5567,16 +5577,6 @@ Use it for non-interactive calls of `helm-find-files'."
   (helm-ff--update-resume-after-hook nil t)
   (setq helm-ff-default-directory nil
 
-(defvar helm-find-files-dummy-map
-  (let ((map (make-sparse-keymap)))
-(set-keymap-parent map helm-map)
-(define-key map (kbd "M-T") 'helm-ff-run-touch-files)
-(define-key map (kbd "C-c r") 'helm-ff-run-find-file-as-root)
-(define-key map (kbd "C-l") 'helm-find-files-up-one-level)
-map)
-  "The map used for `helm-find-files-dummy-source'.
-It is the source handling new file or directory in `helm-find-files'.")
-
 (defvar helm-find-files-dummy-source
   (helm-build-dummy-source "New file or dir"
 :filtered-candidate-transformer

[nongnu] elpa/helm f54356fc27 04/13: Get rid of helm-ff-move-to-first-real-candidate

[ELPA Syncer]

branch: elpa/helm
commit f54356fc27c97716d6e4f0143fcb384d058ec52e
Author: Thierry Volpiatto 
Commit: Thierry Volpiatto 

Get rid of helm-ff-move-to-first-real-candidate
---
 helm-files.el | 38 +-
 helm-mode.el  |  3 +--
 2 files changed, 2 insertions(+), 39 deletions(-)

diff --git a/helm-files.el b/helm-files.el
index 1869d369b7..4b7cb2f93a 100644
--- a/helm-files.el
+++ b/helm-files.el
@@ -2998,29 +2998,6 @@ hitting C-j on \"..\"."
   (helm-mark-current-line)))
   (setq helm-ff-last-expanded nil
 
-(defun helm-ff-move-to-first-real-candidate ()
-  "When candidate is an incomplete file name move to first real candidate."
-  (let* ((src (helm-get-current-source))
- (name (assoc-default 'name src))
- ;; Ensure `helm-file-completion-source-p' returns nil on
- ;; `helm-read-file-name' history.
- minibuffer-completing-file-name)
-(helm-aif (and (helm-file-completion-source-p src)
-   (not (helm-empty-source-p))
-   ;; Prevent dired commands moving to first real
-   ;; (Bug#910).
-   (or (memq (intern-soft name)
- helm-ff-goto-first-real-dired-exceptions)
-   (not (string-match "\\`[Dd]ired-" name)))
-   helm-ff--move-to-first-real-candidate
-   (helm-get-selection nil nil src))
-(unless (or (not (stringp it))
-(and (string-match helm-tramp-file-name-regexp it)
- (not (file-remote-p it nil t)))
-(string-match helm-ff-tramp-method-regexp it)
-(file-exists-p it))
-  (helm-next-line)
-
 (defun helm-ff-undo ()
   "Undo minibuffer in `helm-find-files'.
 Ensure disabling `helm-ff-auto-update-flag' before undoing."
@@ -3066,18 +3043,7 @@ when `helm-pattern' is equal to \"~/\"."
(candnum (helm-get-candidate-number))
(lt2-p   (and (<= candnum 2)
  (>= (string-width (helm-basename helm-pattern)) 
2)))
-   (cur-cand (prog2
- (unless (or completed-p
- (file-exists-p pat)
- history-p (null lt2-p))
-   ;; Only one non--existing candidate
-   ;; and one directory candidate, move to it,
-   ;; but not when renaming, copying etc...,
-   ;; so for this use
-   ;; `helm-ff-move-to-first-real-candidate'
-   ;; instead of `helm-next-line' (Bug#910).
-   (helm-ff-move-to-first-real-candidate))
- (helm-get-selection nil nil src)))
+   (cur-cand (helm-get-selection nil nil src))
expand-to)
   (when (and (or (and helm-ff-auto-update-flag
   (null helm-ff--deleting-char-backward)
@@ -5622,7 +5588,6 @@ source is `helm-source-find-files'."
 
 (defun helm-ff-setup-update-hook ()
   (dolist (hook '(helm-ff-clean-initial-input ; Add to be called first.
-  helm-ff-move-to-first-real-candidate
   helm-ff-update-when-only-one-matched
   helm-ff-auto-expand-to-home-or-root))
 (add-hook 'helm-after-update-hook hook)))
@@ -5632,7 +5597,6 @@ source is `helm-source-find-files'."
   (remove-hook 'helm-after-update-hook hook))
 '(helm-ff-auto-expand-to-home-or-root
   helm-ff-update-when-only-one-matched
-  helm-ff-move-to-first-real-candidate
   helm-ff-clean-initial-input))
   (maphash (lambda (k _v)
  (when (member k helm-ff--thumbnailed-directories)
diff --git a/helm-mode.el b/helm-mode.el
index b248504d75..fa1609e1be 100644
--- a/helm-mode.el
+++ b/helm-mode.el
@@ -1963,8 +1963,7 @@ Keys description:
 (kill-buffer helm-action-buffer))
   (mapc (lambda (hook)
   (add-hook 'helm-after-update-hook hook))
-'(helm-ff-move-to-first-real-candidate
-  helm-ff-update-when-only-one-matched
+'(helm-ff-update-when-only-one-matched
   helm-ff-auto-expand-to-home-or-root))
   (let* ((action-fn `(("Sole action (Identity)"
. (lambda (candidate)

[nongnu] elpa/helm 3c390b99f5 02/13: Use a dummy source for not existing files in HFF

[ELPA Syncer]

branch: elpa/helm
commit 3c390b99f5866979cdbddd0ab30c7044bb2dba5c
Author: Thierry Volpiatto 
Commit: Thierry Volpiatto 

Use a dummy source for not existing files in HFF
---
 helm-files.el | 40 
 1 file changed, 12 insertions(+), 28 deletions(-)

diff --git a/helm-files.el b/helm-files.el
index 5fd28ff4f5..7a82e588a3 100644
--- a/helm-files.el
+++ b/helm-files.el
@@ -3588,7 +3588,8 @@ debugging purpose."
 (when (and (string-match ":\\'" path)
(file-remote-p basedir nil t))
   (setq helm-pattern basedir))
-(cond ((string-match helm-ff-tramp-method-regexp path) ; Tramp methods
+(cond (invalid-basedir nil)
+  ((string-match helm-ff-tramp-method-regexp path) ; Tramp methods
(mapcar (lambda (method)
  (helm-ff-filter-candidate-one-by-one
   (concat "/" ":" method)))
@@ -3599,8 +3600,6 @@ debugging purpose."
 (eq last-repeatable-command 
'helm-execute-persistent-action))
;; `ffap-url-regexp' don't match until url is complete.
(string-match helm-ff-url-regexp path)
-   invalid-basedir
-   (and (not (file-exists-p path)) (string-match "/$" path))
(and helm--url-regexp (string-match helm--url-regexp path)))
;; Do NOT filter boring files here (Bug#2330).
(list (helm-ff-filter-candidate-one-by-one path nil t)))
@@ -3615,30 +3614,7 @@ debugging purpose."
   ;; is enabled.
   ((and dir-p helm-ff-auto-update-flag)
(helm-ff-directory-files path))
-  (t (append (unless (or (eq require-match t)
- ;; Check here if path is an existing
- ;; file before adding it to
- ;; candidates, it was previously done
- ;; in the sort function but this
- ;; create a bug with remote files
- ;; when path is at the same time a
- ;; pattern matching a candidate and a
- ;; real candidate e.g. ack and
- ;; ack-grep in /usr/bin. This is due
- ;; presumably to a latency more
- ;; important with remote files which
- ;; lead to a confusion with the
- ;; pattern matching one candidate and
- ;; the real candidate which is same
- ;; as pattern.
- (file-exists-p path)
- ;; When `helm-ff-auto-update-flag' has been
- ;; disabled, whe don't want PATH to be added 
on top
- ;; if it is a directory.
- dir-p)
-   ;; Do NOT filter boring files here (Bug#2330).
-   (list (helm-ff-filter-candidate-one-by-one path nil t)))
- (helm-ff-directory-files basedir))
+  (t (helm-ff-directory-files basedir)
 
 (defun helm-list-directory (directory &optional sel)
   "List directory DIRECTORY.
@@ -5604,7 +5580,7 @@ Use it for non-interactive calls of `helm-find-files'."
 (helm-ff-setup-update-hook)
 (add-hook 'helm-resume-after-hook 'helm-ff--update-resume-after-hook)
 (unwind-protect
- (helm :sources 'helm-source-find-files
+ (helm :sources '(helm-source-find-files helm-find-files-dummy-source)
:input fname
:case-fold-search helm-file-name-case-fold-search
:preselect preselect
@@ -5616,6 +5592,14 @@ Use it for non-interactive calls of `helm-find-files'."
   (helm-ff--update-resume-after-hook nil t)
   (setq helm-ff-default-directory nil
 
+(defvar helm-find-files-dummy-source
+  (helm-build-dummy-source "New file or dir"
+:filtered-candidate-transformer
+(lambda (candidates _source)
+  (unless (file-exists-p helm-pattern)
+(list (helm-ff-filter-candidate-one-by-one helm-pattern nil t
+:action #'helm-find-file-or-marked))
+
 (defun helm-ff--update-resume-after-hook (sources &optional nohook)
   "Meant to be used in `helm-resume-after-hook'.
 When NOHOOK is non-nil run inconditionally, otherwise only when

[elpa] externals/elisp-benchmarks 1a3d979549: * elisp-benchmarks.el: Bump new version.

[Andrea Corallo]

branch: externals/elisp-benchmarks
commit 1a3d97954957a95a179806e0d49ca6d178b097af
Author: Andrea Corallo 
Commit: Andrea Corallo 

* elisp-benchmarks.el: Bump new version.
---
 elisp-benchmarks.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/elisp-benchmarks.el b/elisp-benchmarks.el
index abbce4d236..d254f1ae1d 100644
--- a/elisp-benchmarks.el
+++ b/elisp-benchmarks.el
@@ -4,7 +4,7 @@
 
 ;; Author: Andrea Corallo 
 ;; Maintainer: Andrea Corallo 
-;; Version: 1.15
+;; Version: 1.16
 ;; Keywords: languages, lisp
 ;; Package-Type: multi
 ;; Created: 2019-01-12

[elpa] externals/denote updated (33bc34ba55 -> 9a82b7d313)

[ELPA Syncer]

elpasync pushed a change to branch externals/denote.

  from  33bc34ba55 Remove needless save-excursion added in commit be17fcb
   new  626b7a8f91 Rework the fontification
   new  cc313b685f Merge pull request #359 from jeanphilippegg/fontification
   new  a648205dc9 Define macro to consolidate front matter retrieval 
functions
   new  9a82b7d313 Fix typo in the macro's doc string from commit a648205


Summary of changes:
 denote.el | 208 --
 1 file changed, 147 insertions(+), 61 deletions(-)

[elpa] externals/denote 9a82b7d313 4/4: Fix typo in the macro's doc string from commit a648205

[ELPA Syncer]

branch: externals/denote
commit 9a82b7d3130a63ca0f28634ab4b2a1e3bfc8f5af
Author: Protesilaos Stavrou 
Commit: Protesilaos Stavrou 

Fix typo in the macro's doc string from commit a648205
---
 denote.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/denote.el b/denote.el
index a64e8284bf..cec061818e 100644
--- a/denote.el
+++ b/denote.el
@@ -1743,7 +1743,7 @@ Subroutine of `denote--file-with-temp-buffer'."
   "Define a function to retrieve front matter for COMPONENT given SCOPE.
 The COMPONENT is one of the file name components that has a
 corresponding front matter entry.  SCOPE is a symbol of either `value'
-or `line', referring to what to match and retrieve."
+or `line', referring to what the function should retrieve."
   (declare (indent 1))
   `(defun ,(intern (format "denote-retrieve-front-matter-%s-%s" component 
scope)) (file file-type)
  (when file-type

[elpa] externals/denote 626b7a8f91 1/4: Rework the fontification

[ELPA Syncer]

branch: externals/denote
commit 626b7a8f9101770d401a59b51ec19365bbbf20a4
Author: Jean-Philippe Gagné Guay 
Commit: Jean-Philippe Gagné Guay 

Rework the fontification
---
 denote.el | 156 +-
 1 file changed, 125 insertions(+), 31 deletions(-)

diff --git a/denote.el b/denote.el
index 6371a415b9..8f5b9bff32 100644
--- a/denote.el
+++ b/denote.el
@@ -3323,37 +3323,131 @@ and seconds."
   :group 'denote-faces
   :package-version '(denote . "2.1.0"))
 
-(defvar denote-faces--file-name-regexp
-  (concat "\\(?11:[\t\s]+\\|.*/\\)?"
-  "\\(?1:[0-9]\\{4\\}\\)\\(?12:[0-9]\\{2\\}\\)\\(?13:[0-9]\\{2\\}\\)"
-  "\\(?10:T\\)"
-  "\\(?2:[0-9]\\{2\\}\\)\\(?14:[0-9]\\{2\\}\\)\\(?15:[0-9]\\{2\\}\\)"
-  "\\(?:\\(?3:==\\)\\(?4:[^.]*?\\)\\)?"
-  "\\(?:\\(?5:--\\)\\(?6:[^.]*?\\)\\)?"
-  "\\(?:\\(?7:__\\)\\(?8:[^.]*?\\)\\)?"
-  "\\(?9:\\..*\\)?$")
-  "Regexp of file names for fontification.")
-
-(defconst denote-faces-file-name-keywords
-  `((,denote-faces--file-name-regexp
- (11 'denote-faces-subdirectory nil t)
+;; The following matchers must obey the doc of `font-lock-keywords':
+;;   - Have one parameter, the limit of the search
+;;   - Set match-data (and restore it on failure)
+;;   - Move point after the match (or restore it on failure).
+;;   - Return t on success and nil on failure. re-search-forward returns 
(point) on success. It may be better to do the same.
+
+(defun denote-faces-dired-file-name-matcher (limit)
+  "Find the file name in a Dired line, not looking beyond LIMIT."
+  (let ((initial-match-data (match-data))
+(initial-point (point)))
+(if (and (re-search-forward "^.+$" limit t) ; A non-empty line
+ (dired-move-to-filename))  ; ... with a file name
+(let ((beginning-point (point)))
+  (goto-char (match-end 0))
+  (set-match-data (list beginning-point (match-end 0)))
+  (point))
+  (goto-char initial-point)
+  (set-match-data initial-match-data)
+  nil)))
+
+(defun denote-faces-directory-matcher (limit)
+  "Match the directory in a Dired line, not looking beyond LIMIT."
+  (let ((initial-match-data (match-data))
+(initial-point (point)))
+(if (re-search-forward "\\(?1:.*/\\)[^/]*$" limit t)
+(progn
+  (goto-char (match-end 1))
+  (set-match-data (list (match-beginning 1) (match-end 1)))
+  (point))
+  (goto-char initial-point)
+  (set-match-data initial-match-data)
+  nil)))
+
+(defun denote-faces-signature-matcher (limit)
+  "Match the signature in a Dired line, not looking beyond LIMIT."
+  (let ((initial-match-data (match-data))
+(initial-point (point)))
+(if (or (re-search-forward 
"==\\(?1:[^/]*?\\)\\(@@\\|--\\|__\\|==\\|\\.\\)[^/]*$" limit t)
+(re-search-forward "==\\(?1:[^/]*\\)$" limit t))
+(progn
+  (goto-char (match-end 1))
+  (set-match-data (list (match-beginning 1) (match-end 1)))
+  (point))
+  (goto-char initial-point)
+  (set-match-data initial-match-data)
+  nil)))
+
+(defun denote-faces-title-matcher (limit)
+  "Match the title in a Dired line, not looking beyond LIMIT."
+  (let ((initial-match-data (match-data))
+(initial-point (point)))
+(if (or (re-search-forward 
"--\\(?1:[^/]*?\\)\\(@@\\|__\\|==\\|\\.\\)[^/]*$" limit t)
+(re-search-forward "--\\(?1:[^/]*\\)$" limit t))
+(progn
+  (goto-char (match-end 1))
+  (set-match-data (list (match-beginning 1) (match-end 1)))
+  (point))
+  (goto-char initial-point)
+  (set-match-data initial-match-data)
+  nil)))
+
+(defun denote-faces-keywords-matcher (limit)
+  "Match the keywords in a Dired line, not looking beyond LIMIT."
+  (let ((initial-match-data (match-data))
+(initial-point (point)))
+(if (or (re-search-forward 
"__\\(?1:[^/]*?\\)\\(@@\\|--\\|__\\|==\\|\\.\\)[^/]*$" limit t)
+(re-search-forward "__\\(?1:[^/]*\\)$" limit t))
+(progn
+  (goto-char (match-end 1))
+  (set-match-data (list (match-beginning 1) (match-end 1)))
+  (point))
+  (goto-char initial-point)
+  (set-match-data initial-match-data)
+  nil)))
+
+(defconst denote-faces-matchers
+  `((denote-faces-directory-matcher
+ (goto-char (match-beginning 0))
+ (goto-char (match-end 0))
+ (0 'denote-faces-subdirectory nil t))
+;; Identifier anywhere in the file name.
+
("\\(?1:[0-9]\\{4\\}\\)\\(?2:[0-9]\\{2\\}\\)\\(?3:[0-9]\\{2\\}\\)\\(?7:T\\)\\(?4:[0-9]\\{2\\}\\)\\(?5:[0-9]\\{2\\}\\)\\(?6:[0-9]\\{2\\}\\)"
+ (goto-char (match-beginning 0)) ; pre-form, executed before looking for 
the first identifier
+ (goto-char (match-end 0))   ; post-form, executed after all matches 
(identifiers here) are found
  (1 'denote-faces-year nil t)
- (12 'denote-faces-month nil t)
- (13 'denote-faces-day nil

[elpa] externals/denote a648205dc9 3/4: Define macro to consolidate front matter retrieval functions

[ELPA Syncer]

branch: externals/denote
commit a648205dc9db1a4c0f3d22c196b20a8528627e2c
Author: Protesilaos Stavrou 
Commit: Protesilaos Stavrou 

Define macro to consolidate front matter retrieval functions
---
 denote.el | 52 ++--
 1 file changed, 22 insertions(+), 30 deletions(-)

diff --git a/denote.el b/denote.el
index 8f5b9bff32..a64e8284bf 100644
--- a/denote.el
+++ b/denote.el
@@ -1739,36 +1739,28 @@ Subroutine of `denote--file-with-temp-buffer'."
(goto-char (point-min))
,@body)))
 
-(defun denote-retrieve-front-matter-title-value (file file-type)
-  "Return title value from FILE front matter per FILE-TYPE."
-  (when 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-front-matter-title-line (file file-type)
-  "Return title line from FILE front matter per FILE-TYPE."
-  (when 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-front-matter-keywords-value (file file-type)
-  "Return keywords value from FILE front matter per FILE-TYPE.
-The return value is a list of strings."
-  (when file-type
-(denote--file-with-temp-buffer file
-  (when (re-search-forward (denote--keywords-key-regexp file-type) nil t 1)
-(funcall (denote--keywords-value-reverse-function file-type)
- (buffer-substring-no-properties (point) 
(line-end-position)))
-
-(defun denote-retrieve-front-matter-keywords-line (file file-type)
-  "Return keywords line from FILE front matter per FILE-TYPE."
-  (when file-type
-(denote--file-with-temp-buffer file
-  (when (re-search-forward (denote--keywords-key-regexp file-type) nil t 1)
-(buffer-substring-no-properties (line-beginning-position) 
(line-end-position))
+(defmacro denote--define-retrieve-front-matter (component scope)
+  "Define a function to retrieve front matter for COMPONENT given SCOPE.
+The COMPONENT is one of the file name components that has a
+corresponding front matter entry.  SCOPE is a symbol of either `value'
+or `line', referring to what to match and retrieve."
+  (declare (indent 1))
+  `(defun ,(intern (format "denote-retrieve-front-matter-%s-%s" component 
scope)) (file file-type)
+ (when file-type
+   (denote--file-with-temp-buffer file
+ (when (re-search-forward (,(intern (format "denote--%s-key-regexp" 
component)) file-type) nil t 1)
+   ,(cond
+ ((eq scope 'value)
+  `(funcall (,(intern (format "denote--%s-value-reverse-function" 
component)) file-type)
+(buffer-substring-no-properties (point) 
(line-end-position
+ ((eq scope 'line)
+  '(buffer-substring-no-properties (line-beginning-position) 
(line-end-position)))
+ (t (error "`%s' is not a known scope" scope
+
+(denote--define-retrieve-front-matter title value)
+(denote--define-retrieve-front-matter title line)
+(denote--define-retrieve-front-matter keywords value)
+(denote--define-retrieve-front-matter keywords line)
 
 (defalias 'denote-retrieve-title-value 
'denote-retrieve-front-matter-title-value
   "Alias for `denote-retrieve-front-matter-title-value'.")

[elpa] externals/denote cc313b685f 2/4: Merge pull request #359 from jeanphilippegg/fontification

[ELPA Syncer]

branch: externals/denote
commit cc313b685f6b0fc9da8fc7d0c9b1b12d5ec1237e
Merge: 33bc34ba55 626b7a8f91
Author: Protesilaos Stavrou 
Commit: GitHub 

Merge pull request #359 from jeanphilippegg/fontification

Rework the fontification
---
 denote.el | 156 +-
 1 file changed, 125 insertions(+), 31 deletions(-)

diff --git a/denote.el b/denote.el
index 6371a415b9..8f5b9bff32 100644
--- a/denote.el
+++ b/denote.el
@@ -3323,37 +3323,131 @@ and seconds."
   :group 'denote-faces
   :package-version '(denote . "2.1.0"))
 
-(defvar denote-faces--file-name-regexp
-  (concat "\\(?11:[\t\s]+\\|.*/\\)?"
-  "\\(?1:[0-9]\\{4\\}\\)\\(?12:[0-9]\\{2\\}\\)\\(?13:[0-9]\\{2\\}\\)"
-  "\\(?10:T\\)"
-  "\\(?2:[0-9]\\{2\\}\\)\\(?14:[0-9]\\{2\\}\\)\\(?15:[0-9]\\{2\\}\\)"
-  "\\(?:\\(?3:==\\)\\(?4:[^.]*?\\)\\)?"
-  "\\(?:\\(?5:--\\)\\(?6:[^.]*?\\)\\)?"
-  "\\(?:\\(?7:__\\)\\(?8:[^.]*?\\)\\)?"
-  "\\(?9:\\..*\\)?$")
-  "Regexp of file names for fontification.")
-
-(defconst denote-faces-file-name-keywords
-  `((,denote-faces--file-name-regexp
- (11 'denote-faces-subdirectory nil t)
+;; The following matchers must obey the doc of `font-lock-keywords':
+;;   - Have one parameter, the limit of the search
+;;   - Set match-data (and restore it on failure)
+;;   - Move point after the match (or restore it on failure).
+;;   - Return t on success and nil on failure. re-search-forward returns 
(point) on success. It may be better to do the same.
+
+(defun denote-faces-dired-file-name-matcher (limit)
+  "Find the file name in a Dired line, not looking beyond LIMIT."
+  (let ((initial-match-data (match-data))
+(initial-point (point)))
+(if (and (re-search-forward "^.+$" limit t) ; A non-empty line
+ (dired-move-to-filename))  ; ... with a file name
+(let ((beginning-point (point)))
+  (goto-char (match-end 0))
+  (set-match-data (list beginning-point (match-end 0)))
+  (point))
+  (goto-char initial-point)
+  (set-match-data initial-match-data)
+  nil)))
+
+(defun denote-faces-directory-matcher (limit)
+  "Match the directory in a Dired line, not looking beyond LIMIT."
+  (let ((initial-match-data (match-data))
+(initial-point (point)))
+(if (re-search-forward "\\(?1:.*/\\)[^/]*$" limit t)
+(progn
+  (goto-char (match-end 1))
+  (set-match-data (list (match-beginning 1) (match-end 1)))
+  (point))
+  (goto-char initial-point)
+  (set-match-data initial-match-data)
+  nil)))
+
+(defun denote-faces-signature-matcher (limit)
+  "Match the signature in a Dired line, not looking beyond LIMIT."
+  (let ((initial-match-data (match-data))
+(initial-point (point)))
+(if (or (re-search-forward 
"==\\(?1:[^/]*?\\)\\(@@\\|--\\|__\\|==\\|\\.\\)[^/]*$" limit t)
+(re-search-forward "==\\(?1:[^/]*\\)$" limit t))
+(progn
+  (goto-char (match-end 1))
+  (set-match-data (list (match-beginning 1) (match-end 1)))
+  (point))
+  (goto-char initial-point)
+  (set-match-data initial-match-data)
+  nil)))
+
+(defun denote-faces-title-matcher (limit)
+  "Match the title in a Dired line, not looking beyond LIMIT."
+  (let ((initial-match-data (match-data))
+(initial-point (point)))
+(if (or (re-search-forward 
"--\\(?1:[^/]*?\\)\\(@@\\|__\\|==\\|\\.\\)[^/]*$" limit t)
+(re-search-forward "--\\(?1:[^/]*\\)$" limit t))
+(progn
+  (goto-char (match-end 1))
+  (set-match-data (list (match-beginning 1) (match-end 1)))
+  (point))
+  (goto-char initial-point)
+  (set-match-data initial-match-data)
+  nil)))
+
+(defun denote-faces-keywords-matcher (limit)
+  "Match the keywords in a Dired line, not looking beyond LIMIT."
+  (let ((initial-match-data (match-data))
+(initial-point (point)))
+(if (or (re-search-forward 
"__\\(?1:[^/]*?\\)\\(@@\\|--\\|__\\|==\\|\\.\\)[^/]*$" limit t)
+(re-search-forward "__\\(?1:[^/]*\\)$" limit t))
+(progn
+  (goto-char (match-end 1))
+  (set-match-data (list (match-beginning 1) (match-end 1)))
+  (point))
+  (goto-char initial-point)
+  (set-match-data initial-match-data)
+  nil)))
+
+(defconst denote-faces-matchers
+  `((denote-faces-directory-matcher
+ (goto-char (match-beginning 0))
+ (goto-char (match-end 0))
+ (0 'denote-faces-subdirectory nil t))
+;; Identifier anywhere in the file name.
+
("\\(?1:[0-9]\\{4\\}\\)\\(?2:[0-9]\\{2\\}\\)\\(?3:[0-9]\\{2\\}\\)\\(?7:T\\)\\(?4:[0-9]\\{2\\}\\)\\(?5:[0-9]\\{2\\}\\)\\(?6:[0-9]\\{2\\}\\)"
+ (goto-char (match-beginning 0)) ; pre-form, executed before looking for 
the first identifier
+ (goto-char (match-end 0))   ; post-form, executed after all matches 
(identifiers here) are found
  (1 'denote-faces-year ni

[elpa] externals/llm 8a668ff914 2/7: Some linting and packaging fixes

[ELPA Syncer]

branch: externals/llm
commit 8a668ff9148d7ffe47103b6cde987fb467f8ec62
Author: Andrew Hyatt 
Commit: Andrew Hyatt 

Some linting and packaging fixes
---
 llm-request-plz.el  |  2 +-
 llm.el  | 59 -
 plz-event-source.el |  3 ---
 plz-media-type.el   |  3 ---
 4 files changed, 32 insertions(+), 35 deletions(-)

diff --git a/llm-request-plz.el b/llm-request-plz.el
index feae69f049..9c55b80f30 100644
--- a/llm-request-plz.el
+++ b/llm-request-plz.el
@@ -20,7 +20,7 @@
 ;; assumes the server is using json.
 
 ;;; Code:
-(require 'cl-macs)
+(require 'cl-lib)
 (require 'json)
 (require 'plz-event-source)
 (require 'plz-media-type)
diff --git a/llm.el b/llm.el
index dbc853a7fe..3819d9d3fa 100644
--- a/llm.el
+++ b/llm.el
@@ -50,7 +50,7 @@
 
 (defcustom llm-log nil
   "Whether to log messages to the llm module.
-Logs will be in the buffer *llm log*. This should only be used
+Logs will be in the buffer *llm log*.  This should only be used
 for debugging, because the log buffer will grow without bound."
   :type 'boolean)
 
@@ -78,7 +78,7 @@ ROLE can a symbol, of either `user', `assistant', or 
`function'.
 
 FUNCTION-CALL-RESULTS is a struct of type
 `llm-chat-prompt-function-call-results', which is only populated
-if `role' is `function'. It stores the results of just one
+if `role' is `function'.  It stores the results of just one
 function call."
   role content function-call-result)
 
@@ -87,9 +87,9 @@ function call."
 
 CALL-ID is an ID for this function call, if available.
 
-FUNCTION-NAME is the name of the function. This is required.
+FUNCTION-NAME is the name of the function.  This is required.
 
-RESULT is the result of the function call. This is required."
+RESULT is the result of the function call.  This is required."
   call-id function-name result)
 
 (cl-defstruct llm-function-call
@@ -101,7 +101,7 @@ NAME is a human readable name of the function.
 
 DESCRIPTION is a human readable description of the function.
 
-ARGS is a list of `llm-function-arg' structs. "
+ARGS is a list of `llm-function-arg' structs."
   function
   name
   description
@@ -112,10 +112,10 @@ ARGS is a list of `llm-function-arg' structs. "
 
 NAME is the name of the argument.
 
-DESCRIPTION is a human readable description of the argument. It
+DESCRIPTION is a human readable description of the argument.  It
 can be nil for enums.
 
-TYPE is the type of the argument. It can be one of `string',
+TYPE is the type of the argument.  It can be one of `string',
 `integer', `float', `boolean' or the special lists, `(or 
  ... )', `(enum   ...
 )', or `(list )'.
@@ -129,7 +129,7 @@ REQUIRED is whether this is required or not."
 (cl-defun llm--log (type &key provider prompt msg)
   "Log a MSG of TYPE, given PROVIDER, PROMPT, and MSG.
 These are all optional, each one should be the normal meaning of
-this variable in this library. TYPE can be one of `api-send',
+this variable in this library.  TYPE can be one of `api-send',
 `api-receive-parial', `api-receive-complete', `api-error', or
 `prompt-append'."
   (when llm-log
@@ -197,10 +197,10 @@ to the chat as a whole.  This is optional.
 EXAMPLES is a list of conses, where the car is an example
 inputs, and cdr is the corresponding example outputs.  This is optional.
 
-FUNCTIONS is a list of `llm-function-call' structs. These may be
-called IF the LLM supports them. If the LLM does not support
-them, a `not-implemented' signal will be thrown. This is
-optional. When this is given, the LLM will either call the
+FUNCTIONS is a list of `llm-function-call' structs.  These may be
+called IF the LLM supports them.  If the LLM does not support
+them, a `not-implemented' signal will be thrown.  This is
+optional.  When this is given, the LLM will either call the
 function or return text as normal, depending on what the LLM
 decides.
 
@@ -218,7 +218,7 @@ PREVIOUS-INTERACTIONS)."
   (unless text
 (error "TEXT is required"))
   (when (and (listp text) (zerop (mod (length text) 2)))
-(error "TEXT, as a list, must have an odd number of elements."))
+(error "TEXT, as a list, must have an odd number of elements"))
   (make-llm-chat-prompt
:context context
:examples examples
@@ -254,7 +254,7 @@ need to override it."
 PROMPT is a `llm-chat-prompt'.
 
 The response is a string response by the LLM when functions are
-not called. If functions are called, the response is a list of
+not called.  If functions are called, the response is a list of
 conses of the function named called (as a symbol), and the
 corresponding result from calling it.
 
@@ -289,7 +289,7 @@ conversation so far."
   "Call RESPONSE-CALLBACK with a response to PROMPT from PROVIDER.
 
 The response is a string response by the LLM when functions are
-not called. If functions are called, the response is a list of
+not called.  If functions are called, the response is a list of
 conses of the function named called (as a symbol), and the
 corresponding result from

[elpa] externals/llm 3a129ba077 1/7: Started using Eldev to manage the package, so ignoring it for git

[ELPA Syncer]

branch: externals/llm
commit 3a129ba077b6652cb8903939e6a2278ae44c3d70
Author: Andrew Hyatt 
Commit: Andrew Hyatt 

Started using Eldev to manage the package, so ignoring it for git
---
 .gitignore | 4 
 1 file changed, 4 insertions(+)

diff --git a/.gitignore b/.gitignore
index 257c9f7d33..8a6495a981 100644
--- a/.gitignore
+++ b/.gitignore
@@ -1,2 +1,6 @@
 *.elc
 *-autoloads.el
+
+# Added automatically by ‘eldev init’.
+/.eldev
+/Eldev-local

[elpa] externals/llm c8604bd694 6/7: Add information about new models

[ELPA Syncer]

branch: externals/llm
commit c8604bd6943b573eec0b8a9f3b7d6536abc14137
Author: Andrew Hyatt 
Commit: Andrew Hyatt 

Add information about new models
---
 NEWS.org  |  2 ++
 llm-openai.el | 39 ---
 llm-test.el   | 11 ---
 llm-vertex.el |  9 +
 4 files changed, 35 insertions(+), 26 deletions(-)

diff --git a/NEWS.org b/NEWS.org
index 8840d60259..a3d8122247 100644
--- a/NEWS.org
+++ b/NEWS.org
@@ -3,6 +3,8 @@
   stronger foundation backed by parsing to spec.  Thanks to Roman Scherer for
   contributing the =plz= extensions that enable this, which are currently 
bundled
   in this package but will eventually become their own separate package.
+- Add model context information for Open AI's GPT 4-o.
+- Add model context information for Gemini's 1.5 models.
 * Version 0.14.2
 - Fix mangled copyright line (needed to get ELPA version unstuck).
 - Fix Vertex response handling bug.
diff --git a/llm-openai.el b/llm-openai.el
index c03f13c897..80447092d2 100644
--- a/llm-openai.el
+++ b/llm-openai.el
@@ -127,10 +127,10 @@ PROVIDER is the Open AI provider struct."
 
 (cl-defmethod llm-provider-embedding-extract-error ((_ llm-openai) 
err-response)
   (let ((errdata (assoc-default 'error err-response)))
-  (when errdata
-(format "Open AI returned error: %s message: %s"
-(cdr (assoc 'type errdata))
-(cdr (assoc 'message errdata))
+(when errdata
+  (format "Open AI returned error: %s message: %s"
+  (cdr (assoc 'type errdata))
+  (cdr (assoc 'message errdata))
 
 (cl-defmethod llm-provider-chat-extract-error ((provider llm-openai) 
err-response)
   (llm-provider-embedding-extract-error provider err-response))
@@ -224,24 +224,24 @@ RESPONSE can be nil if the response is complete."
 (dotimes (i (length (car data)))
   (setf (aref cvec i) (make-llm-provider-utils-function-call)))
 (cl-loop for part in data do
- (cl-loop for call in (append part nil) do
-  (let* ((index (assoc-default 'index call))
- (id (assoc-default 'id call))
- (function (assoc-default 'function call))
- (name (assoc-default 'name function))
- (arguments (assoc-default 'arguments function)))
-(when id
-  (setf (llm-provider-utils-function-call-id (aref cvec index)) 
id))
-(when name
-  (setf (llm-provider-utils-function-call-name (aref cvec index)) 
name))
-(setf (llm-provider-utils-function-call-args (aref cvec index))
-  (concat (llm-provider-utils-function-call-args (aref cvec 
index))
-  arguments)
+ (cl-loop for call in (append part nil) do
+  (let* ((index (assoc-default 'index call))
+ (id (assoc-default 'id call))
+ (function (assoc-default 'function call))
+ (name (assoc-default 'name function))
+ (arguments (assoc-default 'arguments function)))
+(when id
+  (setf (llm-provider-utils-function-call-id (aref 
cvec index)) id))
+(when name
+  (setf (llm-provider-utils-function-call-name (aref 
cvec index)) name))
+(setf (llm-provider-utils-function-call-args (aref 
cvec index))
+  (concat (llm-provider-utils-function-call-args 
(aref cvec index))
+  arguments)
 (cl-loop for call in (append cvec nil)
  do (setf (llm-provider-utils-function-call-args call)
   (json-read-from-string 
(llm-provider-utils-function-call-args call)))
  finally return (when (> (length cvec) 0)
-  (append cvec nil)
+  (append cvec nil)
 
 (cl-defmethod llm-name ((_ llm-openai))
   "Return the name of the provider."
@@ -258,8 +258,9 @@ RESPONSE can be nil if the response is complete."
 ;; models, but not for 32k models.
 (+ (* n 1024) (if (= n 16) 1 0
  ((equal model "gpt-4") 8192)
+ ((equal model "gpt-4o") 128000)
  ((string-match-p (rx (seq "gpt-4-" (+ ascii) "-preview")) model)
-   128000)
+  128000)
  ((string-match-p (rx (seq "gpt-4-" (+ digit))) model)
   8192)
  ((string-match-p (rx (seq "gpt-3.5-turbo-1" (+ digit))) model)
diff --git a/llm-test.el b/llm-test.el
index c784bce728..bb4ec76311 100644
--- a/llm-test.el
+++ b/llm-test.el
@@ -97,17 +97,22 @@
 (should-have-token-limit "gpt-4" 8192)
 (should-have-token-limit "gpt-4-32k" 32768)
 (should-have-token-limit "gpt-4-0613" 8192)
-(should-have-token-limit "gpt-4-32k-0613" 32768)))
+(should-have-token-limit "gpt-4-32k-0613" 32768)
+(should-have-token-limit "gpt-4o" 128000)))
 
 (ert-deftest

[elpa] externals/llm f2291e4638 4/7: Add Eldev and new CI file that uses it

[ELPA Syncer]

branch: externals/llm
commit f2291e463841d4d124ed1ea4888e6ea1b04b94e6
Author: Andrew Hyatt 
Commit: Andrew Hyatt 

Add Eldev and new CI file that uses it
---
 .github/workflows/ci.yaml   | 38 ++
 .github/workflows/melpa.yml | 79 -
 Eldev   |  8 +
 3 files changed, 46 insertions(+), 79 deletions(-)

diff --git a/.github/workflows/ci.yaml b/.github/workflows/ci.yaml
new file mode 100644
index 00..cf0f4abe7b
--- /dev/null
+++ b/.github/workflows/ci.yaml
@@ -0,0 +1,38 @@
+name: CI
+
+on:
+  # Triggers the workflow on push or pull request events but only for the 
"main" branch
+  push:
+branches: [ "main" ]
+  pull_request:
+branches: [ "main" ]
+
+test:
+  runs-on: ubuntu-latest
+  strategy:
+matrix:
+  emacs_version:
+# Add more lines like this if you want to test on different Emacs 
versions.
+- 28.1
+- 28.2
+- 29.1
+- 29.2
+  steps:
+  - name: Set up Emacs
+uses: jcs090218/setup-emacs@master
+with:
+  version: ${{matrix.emacs_version}}
+
+  - name: Install Eldev
+uses: emacs-eldev/setup-eldev@v1
+
+  - name: Check out the source code
+uses: actions/checkout@v4
+
+  - name: Lint the project
+run: |
+  eldev -p -dtT lint
+
+  - name: Test the project
+run: |
+  eldev -p -dtT test
diff --git a/.github/workflows/melpa.yml b/.github/workflows/melpa.yml
deleted file mode 100644
index 529ed4bbb9..00
--- a/.github/workflows/melpa.yml
+++ /dev/null
@@ -1,79 +0,0 @@
-name: CI
-
-# Controls when the workflow will run
-on:
-  # Triggers the workflow on push or pull request events but only for the 
"main" branch
-  push:
-branches: [ "main" ]
-  pull_request:
-branches: [ "main" ]
-
-  # Allows you to run this workflow manually from the Actions tab
-  workflow_dispatch:
-
-# A workflow run is made up of one or more jobs that can run sequentially or 
in parallel
-jobs:
-  test-melpa:
-runs-on: ubuntu-latest
-strategy:
-  fail-fast: false
-  matrix:
-emacs_version:
-  - 28.1
-  - 28.2
-  - 29.1
-  - 29.2
-ignore_warnings:
-  - false
-warnings_as_errors:
-  - false
-check:
-  # checkdoc gives too many warnings at the moment, and doesn't deal
-  # with generic functions correctly.
-  - load-file
-  - byte-compile
-  - package-lint
-file:
-  - '*.el'
-# Steps represent a sequence of tasks that will be executed as part of the 
job
-steps:
-  - uses: actions/checkout@v4
-  - uses: purcell/setup-emacs@master
-with:
-  version: ${{ matrix.emacs_version }}
-  - uses: leotaku/elisp-check@master
-with:
-  check: ${{ matrix.check }}
-  file: ${{ matrix.file }}
-  ignore_warnings: ${{ matrix.ignore_warnings }}
-  warnings_as_errors: ${{ matrix.warnings_as_errors }}
-  test-ert:
-runs-on: ubuntu-latest
-strategy:
-  fail-fast: false
-  matrix:
-emacs_version:
-  - 28.1
-  - 28.2
-  - 29.1
-  - 29.2
-ignore_warnings:
-  - false
-warnings_as_errors:
-  - false
-check:
-  - ert
-file:
-  - '*test.el'
-# Steps represent a sequence of tasks that will be executed as part of the 
job
-steps:
-  - uses: actions/checkout@v4
-  - uses: purcell/setup-emacs@master
-with:
-  version: ${{ matrix.emacs_version }}
-  - uses: leotaku/elisp-check@master
-with:
-  check: ${{ matrix.check }}
-  file: ${{ matrix.file }}
-  ignore_warnings: ${{ matrix.ignore_warnings }}
-  warnings_as_errors: ${{ matrix.warnings_as_errors }}
diff --git a/Eldev b/Eldev
new file mode 100644
index 00..6bbd518bb3
--- /dev/null
+++ b/Eldev
@@ -0,0 +1,8 @@
+; -*- mode: emacs-lisp; lexical-binding: t -*-
+
+;; Uncomment some calls below as needed for your project.
+(eldev-use-package-archive 'gnu-elpa)
+;(eldev-use-package-archive 'nongnu-elpa)
+;(eldev-use-package-archive 'melpa)
+(setq eldev-standard-excludes `(:or ,eldev-standard-excludes "plz*" 
"utilities/*"))
+(setq checkdoc-force-docstrings-flag nil)

[elpa] externals/llm 81eec9db7b 5/7: Fix bad CI file, missing the top-level jobs specifier

[ELPA Syncer]

branch: externals/llm
commit 81eec9db7bc479ceaf22f4c6f62c089a71200220
Author: Andrew Hyatt 
Commit: Andrew Hyatt 

Fix bad CI file, missing the top-level jobs specifier
---
 .github/workflows/ci.yaml | 51 ---
 1 file changed, 26 insertions(+), 25 deletions(-)

diff --git a/.github/workflows/ci.yaml b/.github/workflows/ci.yaml
index cf0f4abe7b..ea4b633c7d 100644
--- a/.github/workflows/ci.yaml
+++ b/.github/workflows/ci.yaml
@@ -7,32 +7,33 @@ on:
   pull_request:
 branches: [ "main" ]
 
-test:
-  runs-on: ubuntu-latest
-  strategy:
-matrix:
-  emacs_version:
-# Add more lines like this if you want to test on different Emacs 
versions.
-- 28.1
-- 28.2
-- 29.1
-- 29.2
-  steps:
-  - name: Set up Emacs
-uses: jcs090218/setup-emacs@master
-with:
-  version: ${{matrix.emacs_version}}
+jobs:
+  test:
+runs-on: ubuntu-latest
+strategy:
+  matrix:
+emacs_version:
+  # Add more lines like this if you want to test on different Emacs 
versions.
+  - 28.1
+  - 28.2
+  - 29.1
+  - 29.2
+steps:
+- name: Set up Emacs
+  uses: jcs090218/setup-emacs@master
+  with:
+version: ${{matrix.emacs_version}}
 
-  - name: Install Eldev
-uses: emacs-eldev/setup-eldev@v1
+- name: Install Eldev
+  uses: emacs-eldev/setup-eldev@v1
 
-  - name: Check out the source code
-uses: actions/checkout@v4
+- name: Check out the source code
+  uses: actions/checkout@v4
 
-  - name: Lint the project
-run: |
-  eldev -p -dtT lint
+- name: Lint the project
+  run: |
+eldev -p -dtT lint
 
-  - name: Test the project
-run: |
-  eldev -p -dtT test
+- name: Test the project
+  run: |
+eldev -p -dtT test

[elpa] externals/llm 94eb0a0689 3/7: Fix rest of lint errors

[ELPA Syncer]

branch: externals/llm
commit 94eb0a06892f482f60278db776e851f15da8682a
Author: Andrew Hyatt 
Commit: Andrew Hyatt 

Fix rest of lint errors
---
 llm-claude.el |  4 +++-
 llm-fake.el   | 11 +-
 llm-gemini.el |  3 ++-
 llm-gpt4all.el|  2 +-
 llm-llamacpp.el   |  7 +++
 llm-ollama.el | 12 +--
 llm-openai.el | 16 ---
 llm-provider-utils.el | 57 ---
 llm-request-plz.el| 12 +--
 llm-tester.el | 14 -
 llm-vertex.el | 23 -
 llm.el|  2 +-
 12 files changed, 99 insertions(+), 64 deletions(-)

diff --git a/llm-claude.el b/llm-claude.el
index dac7e48f5c..129d6a1baa 100644
--- a/llm-claude.el
+++ b/llm-claude.el
@@ -36,10 +36,10 @@
   (chat-model "claude-3-opus-20240229" :read-only t))
 
 (cl-defmethod llm-nonfree-message-info ((_ llm-claude))
+  "Return Claude's nonfree ToS."
   "https://www.anthropic.com/legal/consumer-terms";)
 
 (cl-defmethod llm-provider-prelude ((provider llm-claude))
-  "Check if the API key is valid, error if not."
   (unless (llm-claude-key provider)
 (error "No API key provided for Claude")))
 
@@ -130,6 +130,7 @@
 (assoc-default 'message err
 
 (cl-defmethod llm-provider-chat-url ((_ llm-claude))
+  "Return the URL for the Claude API."
   "https://api.anthropic.com/v1/messages";)
 
 ;; See https://docs.anthropic.com/claude/docs/models-overview
@@ -140,6 +141,7 @@
 (_ 20)))
 
 (cl-defmethod llm-name ((_ llm-claude))
+  "Return the name of the provider."
   "Claude")
 
 (cl-defmethod llm-capabilities ((_ llm-claude))
diff --git a/llm-fake.el b/llm-fake.el
index 69d0cccb48..01ff16b977 100644
--- a/llm-fake.el
+++ b/llm-fake.el
@@ -21,8 +21,8 @@
 
 ;;; Commentary:
 ;; This file implements the llm functionality defined in llm.el, for developers
-;; who want to just understand what llm calls are made, and with what data. Or,
-;; to test out various functionality they have. The functions return something,
+;; who want to just understand what llm calls are made, and with what data.  
Or,
+;; to test out various functionality they have.  The functions return 
something,
 ;; or throw errors, depending on how the `llm-fake' provider is configured.
 
 (require 'cl-lib)
@@ -34,16 +34,16 @@
  "A provider for the fake LLM provider.
 
 OUTPUT-TO-BUFFER can be nil, in which case, nothing will be
-output. If a string or a buffer, it will append the request as
+output.  If a string or a buffer, it will append the request as
 text to that buffer.
 
 CHAT-ACTION-FUNC will be called with no arguments to produce
 either a string response for the chat, or a signal symbol and
-message cons. If nil, the response will be a short text string.
+message cons.  If nil, the response will be a short text string.
 
 EMBEDDING-ACTION-FUNC will be called with no arguments to produce
 either a vector response for the chat, or a signal symbol and
-message cons. If nil, the response will be a simple vector."
+message cons.  If nil, the response will be a simple vector."
  output-to-buffer chat-action-func embedding-action-func)
 
 (cl-defmethod llm-chat-async ((provider llm-fake) prompt response-callback 
error-callback)
@@ -116,6 +116,7 @@ message cons. If nil, the response will be a simple vector."
   nil)
 
 (cl-defmethod llm-name ((_ llm-fake))
+  "The name of the provider."
   "Fake")
 
 (cl-defmethod llm-capabilities ((_ llm-fake))
diff --git a/llm-gemini.el b/llm-gemini.el
index d84706e85a..c1ff41a999 100644
--- a/llm-gemini.el
+++ b/llm-gemini.el
@@ -21,7 +21,7 @@
 
 ;;; Commentary:
 ;; This file implements the llm functionality defined in llm.el, for Google's
-;; Gemini AI. The documentation is at
+;; Gemini AI.  he documentation is at
 ;; https://ai.google.dev/tutorials/rest_quickstart.
 
 ;;; Code:
@@ -40,6 +40,7 @@ You can get this at https://makersuite.google.com/app/apikey.";
   key (embedding-model "embedding-001") (chat-model "gemini-pro"))
 
 (cl-defmethod llm-nonfree-message-info ((_ llm-gemini))
+  "Return nonfree terms of service for Gemini."
   "https://policies.google.com/terms/generative-ai";)
 
 (cl-defmethod llm-provider-embedding-url ((provider llm-gemini))
diff --git a/llm-gpt4all.el b/llm-gpt4all.el
index 5c6a69b4c6..f1a45d5735 100644
--- a/llm-gpt4all.el
+++ b/llm-gpt4all.el
@@ -55,7 +55,7 @@ default the default GPT4all port."
   (llm-chat-async provider prompt response-callback error-callback))
 
 (cl-defmethod llm-name ((provider llm-gpt4all))
-  "Return the name of the provider."
+  "Return the name of the PROVIDER."
   (llm-gpt4all-chat-model provider))
 
 (cl-defmethod llm-chat-token-limit ((provider llm-gpt4all))
diff --git a/llm-llamacpp.el b/llm-llamacpp.el
index 2a462ff063..c25e9bdb88 100644
--- a/llm-llamacpp.el
+++ b/llm-llamacpp.el
@@ -31,8 +31,6 @@
 (require 'llm-provider-utils)
 (require 'json)
 
-(lwarn 'llm-llamacpp :warning "The LlamaCPP module is de

[elpa] externals/llm ebb7b6e4cd 7/7: Set version to 0.15.0

[ELPA Syncer]

branch: externals/llm
commit ebb7b6e4cddfd33429440bdc7387a11aac20a153
Author: Andrew Hyatt 
Commit: Andrew Hyatt 

Set version to 0.15.0
---
 NEWS.org | 2 +-
 llm.el   | 6 +++---
 2 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/NEWS.org b/NEWS.org
index a3d8122247..0f8d6f1f88 100644
--- a/NEWS.org
+++ b/NEWS.org
@@ -1,4 +1,4 @@
-* Version 0.15
+* Version 0.15.0
 - Move to =plz= backend, which uses =curl=.  This helps move this package to a
   stronger foundation backed by parsing to spec.  Thanks to Roman Scherer for
   contributing the =plz= extensions that enable this, which are currently 
bundled
diff --git a/llm.el b/llm.el
index a2230a9f25..a5645217dd 100644
--- a/llm.el
+++ b/llm.el
@@ -5,7 +5,7 @@
 ;; Author: Andrew Hyatt 
 ;; Homepage: https://github.com/ahyatt/llm
 ;; Package-Requires: ((emacs "28.1") (plz "0.8"))
-;; Package-Version: 0.14.3
+;; Package-Version: 0.15.0
 ;; SPDX-License-Identifier: GPL-3.0-or-later
 ;;
 ;; This program is free software; you can redistribute it and/or
@@ -323,7 +323,7 @@ be passed to `llm-cancel-request'."
 (funcall response-callback response
  (new-error-callback (lambda (type err)
(llm--log 'api-error :provider provider
-   :msg (format "Error type: %s, 
message: %s" type err))
+ :msg (format "Error type: %s, 
message: %s" type err))
(let ((llm-log nil))
  (funcall error-callback type err
  (llm-log nil)
@@ -391,7 +391,7 @@ be passed to `llm-cancel-request'."
 (funcall response-callback response
  (new-error-callback (lambda (type err)
(llm--log 'api-error :provider provider
-   :msg (format "Error type: %s, 
message: %s" type err))
+ :msg (format "Error type: %s, 
message: %s" type err))
(let ((llm-log nil))
  (funcall error-callback type err
  (llm-log nil)

[elpa] externals/llm updated (478afbcb41 -> ebb7b6e4cd)

[ELPA Syncer]

elpasync pushed a change to branch externals/llm.

  from  478afbcb41 Fix byte compilation errors
   new  3a129ba077 Started using Eldev to manage the package, so ignoring 
it for git
   new  8a668ff914 Some linting and packaging fixes
   new  94eb0a0689 Fix rest of lint errors
   new  f2291e4638 Add Eldev and new CI file that uses it
   new  81eec9db7b Fix bad CI file, missing the top-level jobs specifier
   new  c8604bd694 Add information about new models
   new  ebb7b6e4cd Set version to 0.15.0


Summary of changes:
 .github/workflows/ci.yaml   | 39 ++
 .github/workflows/melpa.yml | 79 -
 .gitignore  |  4 +++
 Eldev   |  8 +
 NEWS.org|  4 ++-
 llm-claude.el   |  4 ++-
 llm-fake.el | 11 ---
 llm-gemini.el   |  3 +-
 llm-gpt4all.el  |  2 +-
 llm-llamacpp.el |  7 ++--
 llm-ollama.el   | 12 +++
 llm-openai.el   | 55 ---
 llm-provider-utils.el   | 57 ++--
 llm-request-plz.el  | 14 
 llm-test.el | 11 +--
 llm-tester.el   | 14 +---
 llm-vertex.el   | 32 ++
 llm.el  | 67 --
 plz-event-source.el |  3 --
 plz-media-type.el   |  3 --
 20 files changed, 221 insertions(+), 208 deletions(-)
 create mode 100644 .github/workflows/ci.yaml
 delete mode 100644 .github/workflows/melpa.yml
 create mode 100644 Eldev

[elpa] externals/hyperbole 4314e8c246: Get list of args from closures (#528)

[ELPA Syncer]

branch: externals/hyperbole
commit 4314e8c246f7ec4c85774dc72752d72d97f1c14f
Author: Mats Lidell 
Commit: GitHub 

Get list of args from closures (#528)
---
 ChangeLog | 4 
 hargs.el  | 5 +++--
 2 files changed, 7 insertions(+), 2 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index fe7a36b0bc..0f44ed16f2 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+2024-05-18  Mats Lidell  
+
+* hargs.el (hargs:action-get): Add Emacs 30 closure support.
+
 2024-05-17  Mats Lidell  
 
 * Makefile (dockerized): Add quotes so make is executed in the container.
diff --git a/hargs.el b/hargs.el
index e5367f00b8..319c4e5c7d 100644
--- a/hargs.el
+++ b/hargs.el
@@ -3,7 +3,7 @@
 ;; Author:   Bob Weiner
 ;;
 ;; Orig-Date:31-Oct-91 at 23:17:35
-;; Last-Mod: 20-Jan-24 at 19:43:53 by Mats Lidell
+;; Last-Mod: 18-May-24 at 16:07:11 by Mats Lidell
 ;;
 ;; SPDX-License-Identifier: GPL-3.0-or-later
 ;;
@@ -100,7 +100,8 @@ Current button is being edited when EDITING-FLAG is t.
 Return nil if ACTION is not a list or `byte-code' object, has no
 interactive form or takes no arguments."
   (save-excursion
-(and (or (subrp action) (byte-code-function-p action) (listp action))
+(and (or (subrp action) (byte-code-function-p action) (listp action)
+ (and (fboundp #'closurep) (closurep action)))
 (let ((interactive-form (action:commandp action)))
   (when interactive-form
 (hpath:relative-arguments

[elpa] externals/denote d8d6f57f19 1/3: Simplify denote--replace-consecutive-token-characters

[ELPA Syncer]

branch: externals/denote
commit d8d6f57f198de351491e761fea470b268a3bb7d9
Author: Jean-Philippe Gagné Guay 
Commit: Jean-Philippe Gagné Guay 

Simplify denote--replace-consecutive-token-characters
---
 denote.el | 23 ++-
 1 file changed, 10 insertions(+), 13 deletions(-)

diff --git a/denote.el b/denote.el
index cec061818e..3e25aa3924 100644
--- a/denote.el
+++ b/denote.el
@@ -833,20 +833,17 @@ The removal is done only if necessary according to 
COMPONENT."
 
 (defun denote--replace-consecutive-token-characters (str component)
   "Replace consecutive characters with a single one in STR.
-Hyphens, underscores and equal signs are replaced with a single
-one in str, if necessary according to COMPONENT."
-  ;; -- are allowed in titles
-  (if (eq component 'title)
-  (replace-regexp-in-string
-   "_\\{2,\\}" "_"
-   (replace-regexp-in-string
-"=\\{2,\\}" "=" str))
-(replace-regexp-in-string
- "-\\{2,\\}" "-"
- (replace-regexp-in-string
-  "_\\{2,\\}" "_"
+Hyphens, underscores, equal signs and at signs are replaced with
+a single one in str, if necessary according to COMPONENT."
+  (let ((str (replace-regexp-in-string
+  "_\\{2,\\}" "_"
+  (replace-regexp-in-string
+   "=\\{2,\\}" "=" str
+;; -- are allowed in titles
+(if (eq component 'title)
+str
   (replace-regexp-in-string
-   "=\\{2,\\}" "=" str)
+   "-\\{2,\\}" "-" str
 
 (defun denote-sluggify (component str)
   "Make STR an appropriate slug for file name COMPONENT.

[elpa] externals/denote 33ca6c25e3 2/3: Add denote-file-name-components-order to allow reordering

[ELPA Syncer]

branch: externals/denote
commit 33ca6c25e30acbb72801ada43b0dbbec424ca943
Author: Jean-Philippe Gagné Guay 
Commit: Jean-Philippe Gagné Guay 

Add denote-file-name-components-order to allow reordering
---
 denote.el | 69 +--
 1 file changed, 54 insertions(+), 15 deletions(-)

diff --git a/denote.el b/denote.el
index 3e25aa3924..e54bd4045a 100644
--- a/denote.el
+++ b/denote.el
@@ -303,6 +303,32 @@ Also see `denote-history-completion-in-prompts'."
  (const :tag "Template" template)
  (const :tag "Signature" signature
 
+(defvar denote-file-name-components-order '(identifier signature title 
keywords)
+  "Specify the order of the file name components of new notes.
+
+The value is a list of the following symbols:
+
+- `identifier': An identifier in a file name looks like
+  \"20240101T11\" if it appears as the first component.
+  Else, it is prepended with \"@@\" if it appears anywhere else
+  in the file name.
+
+- `signature': A signature in a file name is an arbitrary string
+  that combines \"==\" with the signature of
+  `denote-signature-prompt'.
+
+- `title': A title in a file name is an arbitrary string that
+  combines \"--\" with the title of `denote-title-prompt'.
+
+- `keywords': Keywords in a file name are represented as a string
+  that combines \"__\" with the keywords of
+  `denote-keywords-prompt' separated with an underscore.
+
+All the symbols above must appear exactly once.  Any symbol
+missing will be added automatically.
+
+See also `denote-prompts'.")
+
 (defcustom denote-sort-keywords t
   "Whether to sort keywords in new files.
 
@@ -825,11 +851,11 @@ leading and trailing hyphen."
   (replace-regexp-in-string "\\." "" str))
 
 (defun denote--trim-right-token-characters (str component)
-  "Remove =, - and _ from the end of STR.
+  "Remove =, -, _ and @ from the end of STR.
 The removal is done only if necessary according to COMPONENT."
   (if (eq component 'title)
-  (string-trim-right str "[=_]+")
-(string-trim-right str "[=_-]+")))
+  (string-trim-right str "[=@_]+")
+(string-trim-right str "[=@_-]+")))
 
 (defun denote--replace-consecutive-token-characters (str component)
   "Replace consecutive characters with a single one in STR.
@@ -838,7 +864,9 @@ a single one in str, if necessary according to COMPONENT."
   (let ((str (replace-regexp-in-string
   "_\\{2,\\}" "_"
   (replace-regexp-in-string
-   "=\\{2,\\}" "=" str
+   "=\\{2,\\}" "="
+   (replace-regexp-in-string
+"@\\{2,\\}" "@" str)
 ;; -- are allowed in titles
 (if (eq component 'title)
 str
@@ -850,7 +878,7 @@ a single one in str, if necessary according to COMPONENT."
 
 Apply the function specified in `denote-file-name-slug-function'
 to COMPONENT which is one of `title', `signature', `keyword'.  If
-the resulting string still contains consecutive -,_ or =, they
+the resulting string still contains consecutive -,_,= or @, they
 are replaced by a single occurence of the character, if necessary
 according to COMPONENT.  If COMPONENT is `keyword', remove
 underscores from STR as they are used as the keywords separator
@@ -1639,8 +1667,10 @@ contain the newline."
 To create a new one, refer to the function
 `denote-create-unique-file-identifier'."
   (let ((filename (file-name-nondirectory file)))
-(if (string-match (concat "\\`" denote-id-regexp) filename)
-(match-string-no-properties 0 filename
+(cond ((string-match (concat "\\`" denote-id-regexp) filename)
+   (match-string-no-properties 0 filename))
+  ((string-match (concat "@@\\(?1:" denote-id-regexp "\\)") filename)
+   (match-string-no-properties 1 filename)
 
 ;; TODO 2023-12-08: Maybe we can only use
 ;; `denote-retrieve-filename-identifier' and remove this function.
@@ -1853,14 +1883,23 @@ which case it is not added to the base file name."
 (error "ID must not be an empty string"))
((not (string-match-p denote-id-regexp id))
 (error "ID `%s' does not match `denote-id-regexp'" id)))
-  (let ((file-name (concat dir-path id)))
-(when (and signature (not (string-empty-p signature)))
-  (setq file-name (concat file-name "==" (denote-sluggify 'signature 
signature
-(when (and title (not (string-empty-p title)))
-  (setq file-name (concat file-name "--" (denote-sluggify 'title title
-(when keywords
-  (setq file-name (concat file-name "__" (denote-keywords-combine 
(denote-sluggify-keywords keywords)
-(concat file-name extension)))
+  (let ((file-name "")
+(components (seq-union denote-file-name-components-order
+   '(identifier signature title keywords
+(dolist (component components)
+  (cond ((and (eq component 'identifier) id (not (string-empty-p id)))
+ (setq file-name (concat file-name "@

[elpa] externals/denote c73c4cf143 3/3: Merge pull request #360 from jeanphilippegg/denote-file-name-components-order

[ELPA Syncer]

branch: externals/denote
commit c73c4cf143852f0fc51ba8bb7824858ac9afe42b
Merge: 9a82b7d313 33ca6c25e3
Author: Protesilaos Stavrou 
Commit: GitHub 

Merge pull request #360 from 
jeanphilippegg/denote-file-name-components-order

Add `denote-file-name-components-order` to allow reordering
---
 denote.el | 90 ---
 1 file changed, 63 insertions(+), 27 deletions(-)

diff --git a/denote.el b/denote.el
index cec061818e..e54bd4045a 100644
--- a/denote.el
+++ b/denote.el
@@ -303,6 +303,32 @@ Also see `denote-history-completion-in-prompts'."
  (const :tag "Template" template)
  (const :tag "Signature" signature
 
+(defvar denote-file-name-components-order '(identifier signature title 
keywords)
+  "Specify the order of the file name components of new notes.
+
+The value is a list of the following symbols:
+
+- `identifier': An identifier in a file name looks like
+  \"20240101T11\" if it appears as the first component.
+  Else, it is prepended with \"@@\" if it appears anywhere else
+  in the file name.
+
+- `signature': A signature in a file name is an arbitrary string
+  that combines \"==\" with the signature of
+  `denote-signature-prompt'.
+
+- `title': A title in a file name is an arbitrary string that
+  combines \"--\" with the title of `denote-title-prompt'.
+
+- `keywords': Keywords in a file name are represented as a string
+  that combines \"__\" with the keywords of
+  `denote-keywords-prompt' separated with an underscore.
+
+All the symbols above must appear exactly once.  Any symbol
+missing will be added automatically.
+
+See also `denote-prompts'.")
+
 (defcustom denote-sort-keywords t
   "Whether to sort keywords in new files.
 
@@ -825,35 +851,34 @@ leading and trailing hyphen."
   (replace-regexp-in-string "\\." "" str))
 
 (defun denote--trim-right-token-characters (str component)
-  "Remove =, - and _ from the end of STR.
+  "Remove =, -, _ and @ from the end of STR.
 The removal is done only if necessary according to COMPONENT."
   (if (eq component 'title)
-  (string-trim-right str "[=_]+")
-(string-trim-right str "[=_-]+")))
+  (string-trim-right str "[=@_]+")
+(string-trim-right str "[=@_-]+")))
 
 (defun denote--replace-consecutive-token-characters (str component)
   "Replace consecutive characters with a single one in STR.
-Hyphens, underscores and equal signs are replaced with a single
-one in str, if necessary according to COMPONENT."
-  ;; -- are allowed in titles
-  (if (eq component 'title)
-  (replace-regexp-in-string
-   "_\\{2,\\}" "_"
-   (replace-regexp-in-string
-"=\\{2,\\}" "=" str))
-(replace-regexp-in-string
- "-\\{2,\\}" "-"
- (replace-regexp-in-string
-  "_\\{2,\\}" "_"
+Hyphens, underscores, equal signs and at signs are replaced with
+a single one in str, if necessary according to COMPONENT."
+  (let ((str (replace-regexp-in-string
+  "_\\{2,\\}" "_"
+  (replace-regexp-in-string
+   "=\\{2,\\}" "="
+   (replace-regexp-in-string
+"@\\{2,\\}" "@" str)
+;; -- are allowed in titles
+(if (eq component 'title)
+str
   (replace-regexp-in-string
-   "=\\{2,\\}" "=" str)
+   "-\\{2,\\}" "-" str
 
 (defun denote-sluggify (component str)
   "Make STR an appropriate slug for file name COMPONENT.
 
 Apply the function specified in `denote-file-name-slug-function'
 to COMPONENT which is one of `title', `signature', `keyword'.  If
-the resulting string still contains consecutive -,_ or =, they
+the resulting string still contains consecutive -,_,= or @, they
 are replaced by a single occurence of the character, if necessary
 according to COMPONENT.  If COMPONENT is `keyword', remove
 underscores from STR as they are used as the keywords separator
@@ -1642,8 +1667,10 @@ contain the newline."
 To create a new one, refer to the function
 `denote-create-unique-file-identifier'."
   (let ((filename (file-name-nondirectory file)))
-(if (string-match (concat "\\`" denote-id-regexp) filename)
-(match-string-no-properties 0 filename
+(cond ((string-match (concat "\\`" denote-id-regexp) filename)
+   (match-string-no-properties 0 filename))
+  ((string-match (concat "@@\\(?1:" denote-id-regexp "\\)") filename)
+   (match-string-no-properties 1 filename)
 
 ;; TODO 2023-12-08: Maybe we can only use
 ;; `denote-retrieve-filename-identifier' and remove this function.
@@ -1856,14 +1883,23 @@ which case it is not added to the base file name."
 (error "ID must not be an empty string"))
((not (string-match-p denote-id-regexp id))
 (error "ID `%s' does not match `denote-id-regexp'" id)))
-  (let ((file-name (concat dir-path id)))
-(when (and signature (not (string-empty-p signature)))
-  (setq file-name (concat file-name "==" (denote-sluggify 'signature 
signature)))

[elpa] externals/denote updated (9a82b7d313 -> c73c4cf143)

[ELPA Syncer]

elpasync pushed a change to branch externals/denote.

  from  9a82b7d313 Fix typo in the macro's doc string from commit a648205
   new  d8d6f57f19 Simplify denote--replace-consecutive-token-characters
   new  33ca6c25e3 Add denote-file-name-components-order to allow reordering
   new  c73c4cf143 Merge pull request #360 from 
jeanphilippegg/denote-file-name-components-order


Summary of changes:
 denote.el | 90 ---
 1 file changed, 63 insertions(+), 27 deletions(-)

[nongnu] elpa/helm c6e79de30b 2/7: Use a dummy source for non matching candidates in helm-comp-read

[ELPA Syncer]

branch: elpa/helm
commit c6e79de30b64a3758552b19a550b9f8f16642403
Author: Thierry Volpiatto 
Commit: Thierry Volpiatto 

Use a dummy source for non matching candidates in helm-comp-read
---
 helm-mode.el | 31 +++
 1 file changed, 15 insertions(+), 16 deletions(-)

diff --git a/helm-mode.el b/helm-mode.el
index 8316f6a659..4c096493cd 100644
--- a/helm-mode.el
+++ b/helm-mode.el
@@ -580,22 +580,7 @@ If COLLECTION is an `obarray', a TEST should be needed. 
See `obarray'."
   (string-match "\n" elm))
  (cons (replace-regexp-in-string "\n" "->" 
elm) c))
 (t c)))
- collect cand into lst
- finally return
- ;; Unquote helm-pattern when it is added as candidate
- ;; (Bug#2015).
- (let ((pat (if raw-candidate
-helm-pattern
-  (replace-regexp-in-string "\\s\\" "" helm-pattern
-   (if (or (string= pat "")
-   (eq must-match t)
-   (helm-cr--pattern-in-candidates-p lst pat))
-   lst
- (append (list (cons (helm-aand (propertize "[?]" 'face 
'helm-ff-prefix)
-(propertize " " 'display it 
'unknown t)
-(concat it pat))
- pat))
- lst))
+ collect cand)))
 
 (defun helm-comp-read--move-to-first-real-candidate ()
   (helm-aif (helm-get-selection nil 'withprop)
@@ -887,6 +872,19 @@ that use `helm-comp-read'.  See `helm-M-x' for example."
:mode-line mode-line
:help-message help-message
:action action-fn))
+   (dummy-src (helm-build-dummy-source "Not matching candidate"
+:must-match must-match
+:keymap keymap
+:filtered-candidate-transformer
+(lambda (_candidates _source)
+  (let ((pat (if raw-candidate
+ helm-pattern
+   (replace-regexp-in-string "\\s\\" "" 
helm-pattern
+(unless (string= pat "")
+  (list (cons (helm-aand (propertize "[?]" 'face 
'helm-ff-prefix)
+ (propertize " " 'display 
it 'unknown t)
+ (concat it pat))
+  pat)))
(src (helm-build-sync-source name
   :candidates get-candidates
   :match-part match-part
@@ -935,6 +933,7 @@ that use `helm-comp-read'.  See `helm-M-x' for example."
 :help-message help-message
 :action action-fn))
(src-list (list src-hist
+   (unless (eq must-match t) dummy-src)
(if candidates-in-buffer
src-1 src)))
(helm-execute-action-at-once-if-one exec-when-only-one)

[nongnu] elpa/helm 71019c80ff 6/7: Remove now unused lex-args in helm-cr-default-transformer

[ELPA Syncer]

branch: elpa/helm
commit 71019c80ffa9f505ebc82542233c514b65a2e35e
Author: Thierry Volpiatto 
Commit: Thierry Volpiatto 

Remove now unused lex-args in helm-cr-default-transformer
---
 helm-mode.el | 32 +++-
 1 file changed, 15 insertions(+), 17 deletions(-)

diff --git a/helm-mode.el b/helm-mode.el
index c47446b814..04d0ed7edc 100644
--- a/helm-mode.el
+++ b/helm-mode.el
@@ -563,24 +563,22 @@ If COLLECTION is an `obarray', a TEST should be needed. 
See `obarray'."
   (member (downcase pattern) candidates)
   (member (upcase pattern) candidates)))
 
-(defun helm-cr-default-transformer (candidates source)
+(defun helm-cr-default-transformer (candidates _source)
   "Default filter candidate function for `helm-comp-read'."
-  (let ((must-match (helm-get-attr 'must-match source))
-(raw-candidate (helm-get-attr 'raw-candidate source)))
-;; Annotation and affixation are already handled in completion-in-region 
and
-;; in helm-completing-read-default-2 when emacs style is in use.
-;; For helm-completing-read-default-1 we handle them in an extra FCT; This
-;; allows extracting annotation and affixation from metadata which is not
-;; accessible from here.
-(cl-loop for c in candidates
- for cand = (let ((elm (if (stringp c)
-   (replace-regexp-in-string "\\s\\" "" c)
- c)))
-  (cond ((and (stringp elm)
-  (string-match "\n" elm))
- (cons (replace-regexp-in-string "\n" "->" 
elm) c))
-(t c)))
- collect cand)))
+  ;; Annotation and affixation are already handled in completion-in-region and
+  ;; in helm-completing-read-default-2 when emacs style is in use.
+  ;; For helm-completing-read-default-1 we handle them in an extra FCT; This
+  ;; allows extracting annotation and affixation from metadata which is not
+  ;; accessible from here.
+  (cl-loop for c in candidates
+   for cand = (let ((elm (if (stringp c)
+ (replace-regexp-in-string "\\s\\" "" c)
+   c)))
+(cond ((and (stringp elm)
+(string-match "\n" elm))
+   (cons (replace-regexp-in-string "\n" "->" elm) 
c))
+  (t c)))
+   collect cand))
 
 (defun helm-comp-read--move-to-first-real-candidate ()
   (helm-aif (helm-get-selection nil 'withprop)

[nongnu] elpa/helm 896ee07180 3/7: Fix require-match in completion-in-region

[ELPA Syncer]

branch: elpa/helm
commit 896ee07180d973874f4521c58dcc2dc8fbca83cf
Author: Thierry Volpiatto 
Commit: Thierry Volpiatto 

Fix require-match in completion-in-region

Use cond otherwise a nil value for require-match is never returned.
---
 helm-mode.el | 14 +++---
 1 file changed, 7 insertions(+), 7 deletions(-)

diff --git a/helm-mode.el b/helm-mode.el
index 4c096493cd..b6ae49fc8a 100644
--- a/helm-mode.el
+++ b/helm-mode.el
@@ -2576,13 +2576,13 @@ Can be used for `completion-in-region-function' by 
advicing it with an
  (crm (eq current-command 'crm-complete))
  (str-command (helm-symbol-name current-command))
  (buf-name (format "*helm-mode-%s*" str-command))
- (require-match (or (and (boundp 'require-match) require-match)
-minibuffer-completion-confirm
-;; If prompt have not been propagated 
here, that's
-;; probably mean we have no prompt and we 
are in
-;; completion-at-point or friend, so use a 
non--nil
-;; value for require-match.
-(not (boundp 'prompt
+ (require-match (cond ((boundp 'require-match) require-match)
+  (minibuffer-completion-confirm)
+  ;; If prompt have not been propagated 
here, that's
+  ;; probably mean we have no prompt and 
we are in
+  ;; completion-at-point or friend, so use 
a non--nil
+  ;; value for require-match.
+  ((not (boundp 'prompt)
  (metadata (completion-metadata input collection predicate))
  ;; `completion-extra-properties' is let-bounded in 
`completion-at-point'.
  ;; `afun' is a closure to call against each string in `data'.

[nongnu] elpa/helm 1b051fbf3e 7/7: Don't use anymore a space suffix in comp in region

[ELPA Syncer]

branch: elpa/helm
commit 1b051fbf3e67919496b3f55f13258fdd589a3be0
Author: Thierry Volpiatto 
Commit: Thierry Volpiatto 

Don't use anymore a space suffix in comp in region
---
 helm-mode.el | 16 +---
 1 file changed, 5 insertions(+), 11 deletions(-)

diff --git a/helm-mode.el b/helm-mode.el
index 04d0ed7edc..14232177f5 100644
--- a/helm-mode.el
+++ b/helm-mode.el
@@ -2597,10 +2597,6 @@ Can be used for `completion-in-region-function' by 
advicing it with an
  ;; completion-in-region, try anyway never know.
  (afix (or (plist-get completion-extra-properties 
:affixation-function)
(completion-metadata-get metadata 
'affixation-function)))
- (init-space-suffix (unless (or (memq helm-completion-style 
'(helm-fuzzy emacs))
-(string-suffix-p " " input)
-(string= input ""))
-  " "))
  (category (or (eq (completion-metadata-get metadata 
'category) 'file)
(eq (plist-get completion-extra-properties 
:category) 'file)))
  (file-comp-p (or (eq category 'file)
@@ -2673,18 +2669,16 @@ Can be used for `completion-in-region-function' by 
advicing it with an
 :initial-input
 (cond ((and file-comp-p
 (not (string-match "/\\'" 
initial-input)))
-   (concat 
(helm-mode--completion-in-region-initial-input
-(if (memq helm-completion-style 
'(helm helm-fuzzy))
-(helm-basename initial-input)
-  initial-input))
-   init-space-suffix))
+   
(helm-mode--completion-in-region-initial-input
+(if (memq helm-completion-style '(helm 
helm-fuzzy))
+(helm-basename initial-input)
+  initial-input)))
   ((string-match "/\\'" initial-input)
(and (eq helm-completion-style 'emacs) 
initial-input))
   ((or (null require-match)
(stringp require-match))

(helm-mode--completion-in-region-initial-input initial-input))
-  (t (concat 
(helm-mode--completion-in-region-initial-input initial-input)
- init-space-suffix)))
+  (t 
(helm-mode--completion-in-region-initial-input initial-input)))
 :buffer buf-name
 :fc-transformer
 (append (and (or afix afun (memq category '(file 
library)))

[nongnu] elpa/helm 4b42ce4299 5/7: Ensure dummy source is at end in read-file-name as well

[ELPA Syncer]

branch: elpa/helm
commit 4b42ce4299e268d60db7d5350cd6cf1868d00e55
Author: Thierry Volpiatto 
Commit: Thierry Volpiatto 

Ensure dummy source is at end in read-file-name as well
---
 helm-mode.el | 25 ++---
 1 file changed, 14 insertions(+), 11 deletions(-)

diff --git a/helm-mode.el b/helm-mode.el
index 4349e8375c..c47446b814 100644
--- a/helm-mode.el
+++ b/helm-mode.el
@@ -1991,6 +1991,17 @@ Keys description:
   (replace-regexp-in-string "helm-maybe-exit-minibuffer"
 "helm-confirm-and-exit-minibuffer"
 helm-read-file-name-mode-line-string))
+ (dummy-src
+  (unless (eq must-match t)
+;; Non existing file or dir source.
+(helm-build-dummy-source "New file or directory"
+  :keymap 'helm-read-file-map
+  :must-match must-match
+  :filtered-candidate-transformer
+  (lambda (_candidates _source)
+(unless (file-exists-p helm-pattern)
+  (list (helm-ff-filter-candidate-one-by-one
+ helm-pattern nil t)))
  (src-list
   (list
;; History source.
@@ -2008,15 +2019,6 @@ Keys description:
  :must-match must-match
  :nomark nomark
  :action action-fn)
-   ;; Non existing file or dir source.
-   (unless (eq must-match t)
- (helm-build-dummy-source "New file or directory"
-   :keymap 'helm-read-file-map
-   :must-match must-match
-   :filtered-candidate-transformer
-   (lambda (_candidates _source)
- (unless (file-exists-p helm-pattern)
-   (list (helm-ff-filter-candidate-one-by-one helm-pattern nil 
t))
;; List files source.
(helm-build-sync-source name
  :header-name (lambda (name)
@@ -2063,8 +2065,9 @@ Keys description:
  :action action-fn)))
  ;; Helm result.
  (result (helm
-  :sources (if helm-mode-reverse-history
-   (reverse src-list) src-list)
+  :sources (append (if helm-mode-reverse-history
+   (reverse src-list) src-list)
+   (list dummy-src))
   :input (if (string-match helm-ff-url-regexp initial-input)
  initial-input
(expand-file-name initial-input))

[nongnu] elpa/helm updated (ba2eb55235 -> 1b051fbf3e)

[ELPA Syncer]

elpasync pushed a change to branch elpa/helm.

  from  ba2eb55235 Fix dummy sources name
   new  6c181a7d49 Add some more binding to helm-find-files-dummy-map
   new  c6e79de30b Use a dummy source for non matching candidates in 
helm-comp-read
   new  896ee07180 Fix require-match in completion-in-region
   new  46a23666be Put the dummy source at end in helm-comp-read
   new  4b42ce4299 Ensure dummy source is at end in read-file-name as well
   new  71019c80ff Remove now unused lex-args in helm-cr-default-transformer
   new  1b051fbf3e Don't use anymore a space suffix in comp in region


Summary of changes:
 helm-files.el |  12 +++---
 helm-mode.el  | 117 --
 2 files changed, 63 insertions(+), 66 deletions(-)

[nongnu] elpa/helm 46a23666be 4/7: Put the dummy source at end in helm-comp-read

[ELPA Syncer]

branch: elpa/helm
commit 46a23666be34c4e006a2e62f6222d36d7abbb203
Author: Thierry Volpiatto 
Commit: Thierry Volpiatto 

Put the dummy source at end in helm-comp-read
---
 helm-mode.el | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/helm-mode.el b/helm-mode.el
index b6ae49fc8a..4349e8375c 100644
--- a/helm-mode.el
+++ b/helm-mode.el
@@ -933,7 +933,6 @@ that use `helm-comp-read'.  See `helm-M-x' for example."
 :help-message help-message
 :action action-fn))
(src-list (list src-hist
-   (unless (eq must-match t) dummy-src)
(if candidates-in-buffer
src-1 src)))
(helm-execute-action-at-once-if-one exec-when-only-one)
@@ -943,6 +942,8 @@ that use `helm-comp-read'.  See `helm-M-x' for example."
 (setq src-list (cl-loop for src in src-list
  collect (cons '(nomark) src
   (when reverse-history (setq src-list (nreverse src-list)))
+  (unless (eq must-match t)
+(setq src-list (append src-list (list dummy-src
   (when raw-candidate
 (cl-loop for src in src-list
  do (helm-set-attr 'raw-candidate t src)))

[nongnu] elpa/helm-core updated (ba2eb55235 -> 1b051fbf3e)

[ELPA Syncer]

elpasync pushed a change to branch elpa/helm-core.

  from  ba2eb55235 Fix dummy sources name
  adds  6c181a7d49 Add some more binding to helm-find-files-dummy-map
  adds  c6e79de30b Use a dummy source for non matching candidates in 
helm-comp-read
  adds  896ee07180 Fix require-match in completion-in-region
  adds  46a23666be Put the dummy source at end in helm-comp-read
  adds  4b42ce4299 Ensure dummy source is at end in read-file-name as well
  adds  71019c80ff Remove now unused lex-args in helm-cr-default-transformer
  adds  1b051fbf3e Don't use anymore a space suffix in comp in region

No new revisions were added by this update.

Summary of changes:
 helm-files.el |  12 +++---
 helm-mode.el  | 117 --
 2 files changed, 63 insertions(+), 66 deletions(-)

[nongnu] elpa/helm 6c181a7d49 1/7: Add some more binding to helm-find-files-dummy-map

[ELPA Syncer]

branch: elpa/helm
commit 6c181a7d4903926faff9482f9576f65b4971cca1
Author: Thierry Volpiatto 
Commit: Thierry Volpiatto 

Add some more binding to helm-find-files-dummy-map
---
 helm-files.el | 12 +++-
 1 file changed, 7 insertions(+), 5 deletions(-)

diff --git a/helm-files.el b/helm-files.el
index d843b597a4..0ca6fd9fef 100644
--- a/helm-files.el
+++ b/helm-files.el
@@ -271,11 +271,13 @@ Should not be used among other sources.")
 (defvar helm-find-files-dummy-map
   (let ((map (make-sparse-keymap)))
 (set-keymap-parent map helm-map)
-(define-key map (kbd "M-T")   'helm-ff-run-touch-files)
-(define-key map (kbd "C-c r") 'helm-ff-run-find-file-as-root)
-(define-key map (kbd "C-l")   'helm-find-files-up-one-level)
-(define-key map (kbd "C-_")   'helm-ff-undo)
-(define-key map (kbd "C-r")   'helm-find-files-down-last-level)
+(define-key map (kbd "M-T")   'helm-ff-run-touch-files)
+(define-key map (kbd "C-c r") 'helm-ff-run-find-file-as-root)
+(define-key map (kbd "C-l")   'helm-find-files-up-one-level)
+(define-key map (kbd "C-_")   'helm-ff-undo)
+(define-key map (kbd "C-r")   'helm-find-files-down-last-level)
+(define-key map (kbd "C-") 'helm-ff-run-toggle-auto-update)
+(define-key map (kbd "C-c ") 'helm-ff-run-toggle-auto-update)
 (helm-define-key-with-subkeys map (kbd "DEL") ?\d 
'helm-ff-delete-char-backward
   '((C-backspace . 
helm-ff-run-toggle-auto-update)
 ([C-c DEL] . 
helm-ff-run-toggle-auto-update))