[elpa] externals/denote updated (885aedc3d7 -> cb9af65f28)

[ELPA Syncer]

elpasync pushed a change to branch externals/denote.

  from  885aedc3d7 Remove needless detail from doc string
   new  bb10f74f15 Rename private function for markdown tags
   new  cb9af65f28 Treat all Markdown keywords uniformly


Summary of changes:
 denote.el | 24 +---
 1 file changed, 13 insertions(+), 11 deletions(-)

[elpa] externals/denote bb10f74f15 1/2: Rename private function for markdown tags

[ELPA Syncer]

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

Rename private function for markdown tags
---
 denote.el | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/denote.el b/denote.el
index 85c2e3da0c..f4442b61c1 100644
--- a/denote.el
+++ b/denote.el
@@ -552,7 +552,7 @@ which include the starting dot or the return value of
  (t
   (format "%s%s%s" path id ext)
 
-(defun denote--map-quote-downcase (seq)
+(defun denote--format-markdown-keywords (seq)
   "Quote and downcase elements in SEQ."
   (mapconcat (lambda (k)
(format "%S" (downcase k)))
@@ -569,7 +569,7 @@ be `toml' or, in the future, some other spec that needss 
special
 treatment)."
   (let ((kw (denote--sluggify-keywords keywords)))
 (pcase type
-  ('markdown-toml (format "[%s]" (denote--map-quote-downcase kw)))
+  ('markdown-toml (format "[%s]" (denote--format-markdown-keywords kw)))
   (_ (mapconcat #'downcase kw "  ")
 
 (defvar denote-toml-front-matter

[elpa] externals/denote cb9af65f28 2/2: Treat all Markdown keywords uniformly

[ELPA Syncer]

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

Treat all Markdown keywords uniformly

In TOML we were doing this:

["one"]

And this:

["one", "two", "three"]

Now we do the same for YAML, as the space-separated list did not seem
correct.
---
 denote.el | 24 +---
 1 file changed, 13 insertions(+), 11 deletions(-)

diff --git a/denote.el b/denote.el
index f4442b61c1..236c8dfc1c 100644
--- a/denote.el
+++ b/denote.el
@@ -552,11 +552,11 @@ which include the starting dot or the return value of
  (t
   (format "%s%s%s" path id ext)
 
-(defun denote--format-markdown-keywords (seq)
-  "Quote and downcase elements in SEQ."
-  (mapconcat (lambda (k)
-   (format "%S" (downcase k)))
- seq ", "))
+(defun denote--format-markdown-keywords (keywords)
+  "Quote, downcase, and comma-separate elements in KEYWORDS."
+  (format "[%s]" (mapconcat (lambda (k)
+  (format "%S" (downcase k)))
+keywords ", ")))
 
 (defun denote--file-meta-keywords (keywords &optional type)
   "Prepare KEYWORDS for inclusion in the file's front matter.
@@ -568,9 +568,9 @@ With optional TYPE, format the keywords accordingly (this 
might
 be `toml' or, in the future, some other spec that needss special
 treatment)."
   (let ((kw (denote--sluggify-keywords keywords)))
-(pcase type
-  ('markdown-toml (format "[%s]" (denote--format-markdown-keywords kw)))
-  (_ (mapconcat #'downcase kw "  ")
+(if (or (eq type 'markdown-toml) (eq type 'markdown-yaml) (eq type 'md))
+(denote--format-markdown-keywords kw)
+  (mapconcat #'downcase kw "  "
 
 (defvar denote-toml-front-matter
   "+++
@@ -638,10 +638,12 @@ TITLE, DATE, KEYWORDS, FILENAME, ID are all strings which 
are
 Optional FILETYPE is one of the values of `denote-file-type',
 else that variable is used."
   (let ((kw-space (denote--file-meta-keywords keywords))
-(kw-toml (denote--file-meta-keywords keywords 'markdown-toml)))
+(kw-md (denote--file-meta-keywords keywords 'md)))
+;; TODO 2022-07-27: Rewrite this (and/or related) to avoid
+;; duplication with the markdown flavours.
 (pcase (or filetype denote-file-type)
-  ('markdown-toml (format denote-toml-front-matter title date kw-toml id))
-  ('markdown-yaml (format denote-yaml-front-matter title date kw-space id))
+  ('markdown-toml (format denote-toml-front-matter title date kw-md id))
+  ('markdown-yaml (format denote-yaml-front-matter title date kw-md id))
   ('text (format denote-text-front-matter title date kw-space id 
denote-text-front-matter-delimiter))
   (_ (format denote-org-front-matter title date kw-space id)
 

[nongnu] elpa/popon updated (e7ef75f816 -> b5b3700771)

[ELPA Syncer]

elpasync pushed a change to branch elpa/popon.

  from  e7ef75f816 Bump version to 0.8
   new  abdb78dc8b Fix popon-x-y-at-pos
   new  b5b3700771 Bump version to 0.9


Summary of changes:
 popon.el | 12 +---
 1 file changed, 9 insertions(+), 3 deletions(-)

[nongnu] elpa/popon abdb78dc8b 1/2: Fix popon-x-y-at-pos

[ELPA Syncer]

branch: elpa/popon
commit abdb78dc8baabfd0a7b4747ff212e7d4eb233a30
Author: Akib Azmain Turja 
Commit: Akib Azmain Turja 

Fix popon-x-y-at-pos
---
 popon.el | 10 --
 1 file changed, 8 insertions(+), 2 deletions(-)

diff --git a/popon.el b/popon.el
index 5e74c6c10f..6ecdb94044 100644
--- a/popon.el
+++ b/popon.el
@@ -546,8 +546,14 @@ NOTE: This uses `posn-at-point', which is slow.  So try to 
minimize calls
 to this function."
   (let ((window-start-x-y (posn-col-row (posn-at-point (window-start
 (point-x-y (posn-col-row (posn-at-point point
-(cons (- (save-excursion (goto-char point) (current-column))
- (window-hscroll))
+(cons (if (and (or (not truncate-lines) word-wrap)
+   (if truncate-partial-width-windows
+   (>= (window-total-width)
+   truncate-partial-width-windows)
+ t))
+  (- (car point-x-y) (car window-start-x-y))
+(- (save-excursion (goto-char point) (current-column))
+   (window-hscroll)))
   (- (cdr point-x-y) (cdr window-start-x-y)
 
 ;;;###autoload

[nongnu] elpa/popon b5b3700771 2/2: Bump version to 0.9

[ELPA Syncer]

branch: elpa/popon
commit b5b370077111ae65f50f8a3dca76e7c270ff0743
Author: Akib Azmain Turja 
Commit: Akib Azmain Turja 

Bump version to 0.9
---
 popon.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/popon.el b/popon.el
index 6ecdb94044..727842a14a 100644
--- a/popon.el
+++ b/popon.el
@@ -4,7 +4,7 @@
 
 ;; Author: Akib Azmain Turja 
 ;; Created: 2022-04-11
-;; Version: 0.8
+;; Version: 0.9
 ;; Package-Requires: ((emacs "25.1"))
 ;; Keywords: lisp extensions frames
 ;; Homepage: https://codeberg.org/akib/emacs-popon

[nongnu] elpa/helm e39db6bbf2 2/2: Merge pull request #2535 from renatofdds/master

[ELPA Syncer]

branch: elpa/helm
commit e39db6bbf26d6a4b4b4d14140d98b4a254c7e153
Merge: f5159e17b8 de07b116fe
Author: Thierry Volpiatto 
Commit: GitHub 

Merge pull request #2535 from renatofdds/master

Fix helm-occur when previous mark is outside active region
---
 helm-occur.el | 14 +-
 1 file changed, 9 insertions(+), 5 deletions(-)

diff --git a/helm-occur.el b/helm-occur.el
index 14a831b645..ad269ded43 100644
--- a/helm-occur.el
+++ b/helm-occur.el
@@ -211,11 +211,15 @@ engine beeing completely different and also much faster."
 ;; When user mark defun with `mark-defun' with intention of
 ;; using helm-occur on this region, it is relevant to use the
 ;; thing-at-point located at previous position which have been
-;; pushed to `mark-ring'.
-(setq def (save-excursion
-(goto-char (setq pos (car mark-ring)))
-(helm-aif (thing-at-point 'symbol) (regexp-quote it
-(narrow-to-region (region-beginning) (region-end)))
+;; pushed to `mark-ring', if it's within the active region.
+(let ((beg (region-beginning))
+  (end (region-end))
+  (prev-pos (car mark-ring)))
+  (when (and prev-pos (>= prev-pos beg) (< prev-pos end))
+(setq def (save-excursion
+(goto-char (setq pos prev-pos))
+(helm-aif (thing-at-point 'symbol) (regexp-quote 
it)
+  (narrow-to-region beg end)))
   (unwind-protect
(helm :sources 'helm-source-occur
  :buffer "*helm occur*"

[nongnu] elpa/helm de07b116fe 1/2: Fix helm-occur when previous mark is outside active region

[ELPA Syncer]

branch: elpa/helm
commit de07b116fee4ed0f3512324bd5b2f36c4b2f3377
Author: Renato Ferreira 
Commit: Renato Ferreira 

Fix helm-occur when previous mark is outside active region
---
 helm-occur.el | 14 +-
 1 file changed, 9 insertions(+), 5 deletions(-)

diff --git a/helm-occur.el b/helm-occur.el
index 14a831b645..ad269ded43 100644
--- a/helm-occur.el
+++ b/helm-occur.el
@@ -211,11 +211,15 @@ engine beeing completely different and also much faster."
 ;; When user mark defun with `mark-defun' with intention of
 ;; using helm-occur on this region, it is relevant to use the
 ;; thing-at-point located at previous position which have been
-;; pushed to `mark-ring'.
-(setq def (save-excursion
-(goto-char (setq pos (car mark-ring)))
-(helm-aif (thing-at-point 'symbol) (regexp-quote it
-(narrow-to-region (region-beginning) (region-end)))
+;; pushed to `mark-ring', if it's within the active region.
+(let ((beg (region-beginning))
+  (end (region-end))
+  (prev-pos (car mark-ring)))
+  (when (and prev-pos (>= prev-pos beg) (< prev-pos end))
+(setq def (save-excursion
+(goto-char (setq pos prev-pos))
+(helm-aif (thing-at-point 'symbol) (regexp-quote 
it)
+  (narrow-to-region beg end)))
   (unwind-protect
(helm :sources 'helm-source-occur
  :buffer "*helm occur*"

[nongnu] elpa/helm-core updated (f5159e17b8 -> e39db6bbf2)

[ELPA Syncer]

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

  from  f5159e17b8 Revert "Ensure init hooks are defined as symbol 
functions" (Fix #2534)
  adds  de07b116fe Fix helm-occur when previous mark is outside active 
region
  adds  e39db6bbf2 Merge pull request #2535 from renatofdds/master

No new revisions were added by this update.

Summary of changes:
 helm-occur.el | 14 +-
 1 file changed, 9 insertions(+), 5 deletions(-)

[elpa] externals/denote f698ce0332: Tweak denote--only-note-p to read .gpg extension

[ELPA Syncer]

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

Tweak denote--only-note-p to read .gpg extension

The idea of using encryption for Denote files was put forward by Paul
van Gelder:


---
 README.org | 6 +++---
 denote.el  | 4 +++-
 2 files changed, 6 insertions(+), 4 deletions(-)

diff --git a/README.org b/README.org
index 287fd616e9..4f68b33254 100644
--- a/README.org
+++ b/README.org
@@ -1966,9 +1966,9 @@ Denote is meant to be a collective effort.  Every bit of 
help matters.
 
 + Ideas and/or user feedback :: Abin Simon, Alan Schmitt, Alfredo
   Borrás, Benjamin Kästner, Colin McLear, Damien Cassou, Frank Ehmsen,
-  Jack Baty, Kaushal Modi, M. Hadi Timachi, Peter Prevos, Shreyas
-  Ragavan, Summer Emacs, Sven Seebeck, Taoufik, Ypot, hpgisler,
-  pRot0ta1p.
+  Jack Baty, Kaushal Modi, M. Hadi Timachi, Paul van Gelder, Peter
+  Prevos, Shreyas Ragavan, Summer Emacs, Sven Seebeck, Taoufik, Ypot,
+  hpgisler, pRot0ta1p.
 
 Special thanks to Peter Povinec who helped refine the file-naming
 scheme, which is the cornerstone of this project.
diff --git a/denote.el b/denote.el
index 236c8dfc1c..ab64acd592 100644
--- a/denote.el
+++ b/denote.el
@@ -403,7 +403,9 @@ trailing hyphen."
 (and (not (file-directory-p file))
  (file-regular-p file)
  (string-match-p (concat "\\`" denote--id-regexp
- ".*" denote--extension-regexp "\\'")
+ ".*" denote--extension-regexp
+ "\\(.gpg\\)?"
+ "\\'")
  file-name)
  (not (string-match-p "[#~]\\'" file)
 

[nongnu] elpa/cider f422665fb0: Populate completions with metadata (#3226)

[ELPA Syncer]

branch: elpa/cider
commit f422665fb0491abb9d8a8fdc2ce1aebb2497d6d3
Author: Cássio Ávila 
Commit: GitHub 

Populate completions with metadata (#3226)

This makes it possible to override the cider completion style in 
completion-category-defaults or completion-category-overrides.
---
 CHANGELOG.md  |  1 +
 cider-completion.el   | 15 ++-
 doc/modules/ROOT/pages/usage/code_completion.adoc | 12 
 3 files changed, 27 insertions(+), 1 deletion(-)

diff --git a/CHANGELOG.md b/CHANGELOG.md
index 5291ffb405..703a7c5926 100644
--- a/CHANGELOG.md
+++ b/CHANGELOG.md
@@ -4,6 +4,7 @@
 
 ### New features
 
+- [#3226](https://github.com/clojure-emacs/cider/pull/3226): Populate 
completions metadata, making it possible to change the style of completion via 
`completion-category-override` or `completion-category-defaults`.
 - [#2946](https://github.com/clojure-emacs/cider/issues/2946): Add custom var 
`cider-merge-sessions` to allow combining sessions in two different ways: 
Setting `cider-merge-sessions` to `'host` will merge all sessions associated 
with the same host within a project. Setting it to `'project` will combine all 
sessions of a project irrespective of their host.
 
 ## Changes
diff --git a/cider-completion.el b/cider-completion.el
index 2611eb26f6..3461d55e67 100644
--- a/cider-completion.el
+++ b/cider-completion.el
@@ -237,7 +237,20 @@ performed by `cider-annotate-completion-function'."
 (when (and (cider-connected-p)
(not (or (cider-in-string-p) (cider-in-comment-p
   (list (car bounds) (cdr bounds)
-(completion-table-dynamic #'cider-complete)
+(lambda (prefix pred action)
+  ;; When the 'action is 'metadata, this lambda returns metadata 
about this
+  ;; capf, when action is (boundaries . suffix), it returns nil. 
With every
+  ;; other value of 'action (t, nil, or lambda), 'action is 
forwarded to
+  ;; (complete-with-action), together with (cider-complete), 
prefix and pred.
+  ;; And that function performs the completion based on those 
arguments.
+  ;;
+  ;; This api is better described in the section
+  ;; '21.6.7 Programmed Completion' of the elisp manual.
+  (cond ((eq action 'metadata) `(metadata (category . cider)))
+((eq (car-safe action) 'boundaries) nil)
+(t (with-current-buffer (current-buffer)
+ (complete-with-action action
+   (cider-complete prefix) prefix 
pred)
 :annotation-function #'cider-annotate-symbol
 :company-kind #'cider-company-symbol-kind
 :company-doc-buffer #'cider-create-doc-buffer
diff --git a/doc/modules/ROOT/pages/usage/code_completion.adoc 
b/doc/modules/ROOT/pages/usage/code_completion.adoc
index 782df2ce12..ef76139e0e 100644
--- a/doc/modules/ROOT/pages/usage/code_completion.adoc
+++ b/doc/modules/ROOT/pages/usage/code_completion.adoc
@@ -115,6 +115,18 @@ image::completion-annotations.png[Completion Annotations]
 TIP: Completion annotations can be disabled by setting
 `cider-annotate-completion-candidates` to `nil`.
 
+=== Changing the completion style
+
+Sometimes the user may want to use a different completion style just for the 
CIDER
+complete at point function. That can be achieved by setting
+`completion-category-defaults`, overriting the completion style of the CIDER
+complete at point function. The following snippet accomplishes that:
+
+[source,lisp]
+
+(add-to-list 'completion-category-defaults '(cider (styles basic)))
+
+
 === Updating stale classes and methods cache
 
 Sometimes, the completion fails to recognize new classes that came with

[nongnu] elpa/helm 202a70168f: Mofify helm--run-init-hooks but less restrictive than previous change #2534

[ELPA Syncer]

branch: elpa/helm
commit 202a70168ff9afb03f6d540fce9aa9424b489d67
Author: Thierry Volpiatto 
Commit: Thierry Volpiatto 

Mofify helm--run-init-hooks but less restrictive than previous change #2534
---
 helm-core.el | 11 +++
 1 file changed, 3 insertions(+), 8 deletions(-)

diff --git a/helm-core.el b/helm-core.el
index 67be4243a8..d303b6177d 100644
--- a/helm-core.el
+++ b/helm-core.el
@@ -3697,15 +3697,10 @@ For RESUME INPUT DEFAULT and SOURCES see `helm'."
 (defun helm--run-init-hooks (hook sources)
   "Run after and before init hooks local to source.
 See :after-init-hook and :before-init-hook in `helm-source'."
-  (cl-loop with sname = (cl-ecase hook
-  (before-init-hook "h-before-init-hook")
-  (after-init-hook "h-after-init-hook"))
-   with h = (cl-gensym sname)
-   for s in sources
+  (cl-loop for s in sources
for hv = (assoc-default hook s)
-   if (and hv (not (symbolp hv)))
-   do (set h hv)
-   and do (helm-log-run-hook h)
+   if (and hv (not (symbolp hv))) ; A lambda.
+   do (funcall hv) ; Should raise an error with a list of lambdas.
else do (helm-log-run-hook hv)))
 
 (defun helm-restore-position-on-quit ()

[nongnu] elpa/helm-core updated (e39db6bbf2 -> 202a70168f)

[ELPA Syncer]

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

  from  e39db6bbf2 Merge pull request #2535 from renatofdds/master
  adds  202a70168f Mofify helm--run-init-hooks but less restrictive than 
previous change #2534

No new revisions were added by this update.

Summary of changes:
 helm-core.el | 11 +++
 1 file changed, 3 insertions(+), 8 deletions(-)