[nongnu] elpa/evil-goggles 8f20a16e74 2/2: Merge pull request #32 from skangas/nongnu-elpa-badge

[ELPA Syncer]

branch: elpa/evil-goggles
commit 8f20a16e74016f37ad76dc4f2230d9b00c6df3c2
Merge: 1b66053ea5 44a485862b
Author: Evgeni Kolev 
Commit: GitHub 

Merge pull request #32 from skangas/nongnu-elpa-badge

Add NonGNU ELPA badge and instructions
---
 README.md | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/README.md b/README.md
index e4421e9f78..e15d22b678 100644
--- a/README.md
+++ b/README.md
@@ -1,4 +1,5 @@
 [![Build 
Status](https://travis-ci.org/edkolev/evil-goggles.svg?branch=master)](https://travis-ci.org/edkolev/evil-goggles)
+[![NonGNU 
ELPA](https://elpa.nongnu.org/nongnu/evil-goggles.svg)](https://elpa.nongnu.org/nongnu/evil-goggles.html)
 
[![MELPA](https://melpa.org/packages/evil-goggles-badge.svg)](https://melpa.org/#/evil-goggles)
 
 evil-goggles
@@ -34,7 +35,7 @@ try for example `yy`, `p`, `dd` in normal state.
 
 ## Installation
 
- with [use-package](https://github.com/jwiegley/use-package) from 
[Melpa](https://melpa.org)
+ with [use-package](https://github.com/jwiegley/use-package) from [NonGNU 
ELPA](https://elpa.nongnu.org/) or [MELPA](https://melpa.org)
 ``` emacs-lisp
 (use-package evil-goggles
   :ensure t
@@ -48,7 +49,7 @@ try for example `yy`, `p`, `dd` in normal state.
   (evil-goggles-use-diff-faces))
 ```
 
- without [use-package](https://github.com/jwiegley/use-package) from 
[Melpa](https://melpa.org)
+ without [use-package](https://github.com/jwiegley/use-package) from 
[NonGNU ELPA](https://elpa.nongnu.org/) or [MELPA](https://melpa.org)
 
 `M-x package-install RET evil-goggles RET`, then add in `init.el`:
 

[nongnu] elpa/evil-goggles 44a485862b 1/2: Add NonGNU ELPA badge and instructions

[ELPA Syncer]

branch: elpa/evil-goggles
commit 44a485862bf46d52552b3149029a679371e99612
Author: Stefan Kangas 
Commit: Stefan Kangas 

Add NonGNU ELPA badge and instructions
---
 README.md | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/README.md b/README.md
index e4421e9f78..e15d22b678 100644
--- a/README.md
+++ b/README.md
@@ -1,4 +1,5 @@
 [![Build 
Status](https://travis-ci.org/edkolev/evil-goggles.svg?branch=master)](https://travis-ci.org/edkolev/evil-goggles)
+[![NonGNU 
ELPA](https://elpa.nongnu.org/nongnu/evil-goggles.svg)](https://elpa.nongnu.org/nongnu/evil-goggles.html)
 
[![MELPA](https://melpa.org/packages/evil-goggles-badge.svg)](https://melpa.org/#/evil-goggles)
 
 evil-goggles
@@ -34,7 +35,7 @@ try for example `yy`, `p`, `dd` in normal state.
 
 ## Installation
 
- with [use-package](https://github.com/jwiegley/use-package) from 
[Melpa](https://melpa.org)
+ with [use-package](https://github.com/jwiegley/use-package) from [NonGNU 
ELPA](https://elpa.nongnu.org/) or [MELPA](https://melpa.org)
 ``` emacs-lisp
 (use-package evil-goggles
   :ensure t
@@ -48,7 +49,7 @@ try for example `yy`, `p`, `dd` in normal state.
   (evil-goggles-use-diff-faces))
 ```
 
- without [use-package](https://github.com/jwiegley/use-package) from 
[Melpa](https://melpa.org)
+ without [use-package](https://github.com/jwiegley/use-package) from 
[NonGNU ELPA](https://elpa.nongnu.org/) or [MELPA](https://melpa.org)
 
 `M-x package-install RET evil-goggles RET`, then add in `init.el`:
 

[elpa] externals/corfu ef9ce15465: Handle completion-cycling-threshold=t

[ELPA Syncer]

branch: externals/corfu
commit ef9ce154651f9aa177d65e18885e996aa602f841
Author: Daniel Mendler 
Commit: Daniel Mendler 

Handle completion-cycling-threshold=t
---
 corfu.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/corfu.el b/corfu.el
index db43dd3f1e..afa91ea592 100644
--- a/corfu.el
+++ b/corfu.el
@@ -1088,7 +1088,7 @@ See `completion-in-region' for the arguments BEG, END, 
TABLE, PRED."
   ; return 'finished. Otherwise return 'exact.
   (if (eq (try-completion (car candidates) table pred) 
t)
   'finished 'exact)))
- (if (or (not threshold) (< threshold total))
+ (if (not (and threshold (or (eq threshold t) (>= threshold 
total
  (corfu--setup)
(corfu--cycle-candidates total candidates (+ base beg) end)
;; Do not show Corfu when "trivially" cycling, i.e.,

[elpa] externals/org updated (846226a202 -> 3154c22559)

[ELPA Syncer]

elpasync pushed a change to branch externals/org.

  from  846226a202 test-org-element/cache: Fix typo
  adds  7ba24c673b ob-gnuplot: Fix wrong table conversion when first column 
has ?-
   new  23daada78d compat: Prevent spell-checking citation
   new  3154c22559 Merge branch 'bugfix'


Summary of changes:
 lisp/org-compat.el | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

[elpa] externals-release/org 23daada78d: compat: Prevent spell-checking citation

[ELPA Syncer]

branch: externals-release/org
commit 23daada78d4b5b805d5a47cd009be3c41dcb496c
Author: Nicolas Goaziou 
Commit: Nicolas Goaziou 

compat: Prevent spell-checking citation

* lisp/org-compat.el (org--flyspell-object-check-p): Do not
spell-check citation and citation-reference objects.

Reported-by: Rudolf Adamkovič 

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

diff --git a/lisp/org-compat.el b/lisp/org-compat.el
index db23553a8b..4ad87c84d0 100644
--- a/lisp/org-compat.el
+++ b/lisp/org-compat.el
@@ -1049,9 +1049,9 @@ ELEMENT is the element at point."
 (cl-case (org-element-type object)
   ;; Prevent checks in links due to keybinding conflict with
   ;; Flyspell.
-  ((code entity export-snippet inline-babel-call
-inline-src-block line-break latex-fragment link macro
-statistics-cookie target timestamp verbatim)
+  ((citation citation-reference code entity export-snippet 
inline-babel-call
+inline-src-block line-break latex-fragment link macro
+statistics-cookie target timestamp verbatim)
nil)
   (footnote-reference
;; Only in inline footnotes, within the definition.

[elpa] externals/org 3154c22559: Merge branch 'bugfix'

[ELPA Syncer]

branch: externals/org
commit 3154c22559813e297b0ed3b7b24cfe782c604d7e
Merge: 846226a202 23daada78d
Author: Nicolas Goaziou 
Commit: Nicolas Goaziou 

Merge branch 'bugfix'
---
 lisp/org-compat.el | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/lisp/org-compat.el b/lisp/org-compat.el
index 14f6bc8dc6..38d330de6d 100644
--- a/lisp/org-compat.el
+++ b/lisp/org-compat.el
@@ -1027,9 +1027,9 @@ ELEMENT is the element at point."
 (cl-case (org-element-type object)
   ;; Prevent checks in links due to keybinding conflict with
   ;; Flyspell.
-  ((code entity export-snippet inline-babel-call
-inline-src-block line-break latex-fragment link macro
-statistics-cookie target timestamp verbatim)
+  ((citation citation-reference code entity export-snippet 
inline-babel-call
+inline-src-block line-break latex-fragment link macro
+statistics-cookie target timestamp verbatim)
nil)
   (footnote-reference
;; Only in inline footnotes, within the definition.

[elpa] externals/corfu bb877881b3: Remove pcomplete capf purification hack

[ELPA Syncer]

branch: externals/corfu
commit bb877881b357627536b14a380bca5f5f4e75afe7
Author: Daniel Mendler 
Commit: Daniel Mendler 

Remove pcomplete capf purification hack

The purification does not work well, since it acts only once, we still 
return
the broken capf, which is then used by completion-at-point for the
completion-in-region-mode-predicate.

The workaround is now as follows:

(advice-add 'pcomplete-completions-at-point :around #'cape-wrap-silent)
(advice-add 'pcomplete-completions-at-point :around #'cape-wrap-purify)

The around wrappers ensure that pcomplete-completions-at-point is completely
sanitized.
---
 README.org | 32 
 corfu.el   | 16 +---
 2 files changed, 33 insertions(+), 15 deletions(-)

diff --git a/README.org b/README.org
index 09ab31106c..51c3ee54d2 100644
--- a/README.org
+++ b/README.org
@@ -168,6 +168,38 @@ completion UI, the following snippet should yield the 
desired result.
   (add-hook 'minibuffer-setup-hook #'corfu-enable-always-in-minibuffer 1)
 #+end_src
 
+** Completing with Corfu in the Shell or Eshell
+
+When completing in the Eshell I recommend conservative local settings, no auto
+completion, quitting at boundary and quitting if there is no match.
+
+#+begin_src emacs-lisp
+  (add-hook 'eshell-mode-hook
+(lambda ()
+  (setq-local corfu-quit-at-boundary t
+  corfu-quit-no-match t
+  corfu-auto nil)
+  (corfu-mode)))
+#+end_src
+
+Shell completion uses the flexible ~pcomplete~ mechanism internally, which 
allows
+you to program the completions per shell command. If you want to know more, 
look
+into this 
[[https://www.masteringemacs.org/article/pcomplete-context-sensitive-completion-emacs][blog
 post]], which shows how to configure pcomplete for git commands.
+Unfortunately pcomplete has a few technical issues, which we can work around
+with the [[https://github.com/minad/cape][Cape]] library (Completion at point 
extensions). Cape provides wrappers,
+which sanitize the pcomplete function. Ideally the bugs in pcomplete should be
+fixed upstream. *For now these two advices are strongly recommended to achieve 
a
+sane Eshell experience.*
+
+#+begin_src emacs-lisp
+  ;; Silence the pcomplete capf, no errors or messages!
+  (advice-add 'pcomplete-completions-at-point :around #'cape-wrap-silent)
+
+  ;; Ensure that pcomplete does not write to the buffer
+  ;; and behaves as a pure `completion-at-point-function'.
+  (advice-add 'pcomplete-completions-at-point :around #'cape-wrap-purify)
+#+end_src
+
 ** TAB-and-Go completion
 
 You may be interested in configuring Corfu in TAB-and-Go style. Pressing TAB
diff --git a/corfu.el b/corfu.el
index afa91ea592..a0b07b3027 100644
--- a/corfu.el
+++ b/corfu.el
@@ -1180,21 +1180,7 @@ See `completion-in-region' for the arguments BEG, END, 
TABLE, PRED."
 (defun corfu--capf-wrapper (fun)
   "Wrapper for `completion-at-point' FUN.
 Determines if the capf is applicable at the current position."
-  (pcase
-  ;; bug#50470: Fix Capfs which illegally modify the buffer or which
-  ;; illegally call `completion-in-region'. The workaround here has been
-  ;; proposed @jakanakaevangeli in bug#50470 and is used in
-  ;; @jakanakaevangeli's capf-autosuggest package.
-  (catch 'corfu--illegal-completion-in-region
-(condition-case nil
-(let ((buffer-read-only t)
-  (inhibit-read-only nil)
-  (completion-in-region-function
-   (lambda (beg end coll pred)
- (throw 'corfu--illegal-completion-in-region
-(list beg end coll :predicate pred)
-  (funcall fun))
-  (buffer-read-only nil)))
+  (pcase (funcall fun)
 ((and res `(,beg ,end ,table . ,plist))
  (and (integer-or-marker-p beg) ;; Valid capf result
   (<= beg (point) end) ;; Sanity checking

[nongnu] elpa/rust-mode f462803531 1/2: rust-mode should be enabled automatically when opening .rs files

[ELPA Syncer]

branch: elpa/rust-mode
commit f462803531fc66c8b3d2ad545d15335228a09b2e
Author: daniel-wong-dfinity-org 
<97631336+daniel-wong-dfinity-...@users.noreply.github.com>
Commit: GitHub 

rust-mode should be enabled automatically when opening .rs files
---
 README.md | 1 +
 1 file changed, 1 insertion(+)

diff --git a/README.md b/README.md
index 920b37a0bf..aeeb987a1b 100644
--- a/README.md
+++ b/README.md
@@ -100,6 +100,7 @@ Clone this repository locally, and add this to your init.el:
 ``` elisp
 (add-to-list 'load-path "/path/to/rust-mode/")
 (autoload 'rust-mode "rust-mode" nil t)
+(add-to-list 'auto-mode-alist '("\\.rs\\'" . rust-mode))
 ```
 
 ## Feature guide

[nongnu] elpa/rust-mode 2da2e7f08a 2/2: Merge pull request #436 from daniel-wong-dfinity-org/patch-1

[ELPA Syncer]

branch: elpa/rust-mode
commit 2da2e7f08a83fbec381c8604d3e00c4ee2c02855
Merge: 49ff6cceba f462803531
Author: brotzeit 
Commit: GitHub 

Merge pull request #436 from daniel-wong-dfinity-org/patch-1

rust-mode should be enabled automatically when opening .rs files
---
 README.md | 1 +
 1 file changed, 1 insertion(+)

diff --git a/README.md b/README.md
index 920b37a0bf..aeeb987a1b 100644
--- a/README.md
+++ b/README.md
@@ -100,6 +100,7 @@ Clone this repository locally, and add this to your init.el:
 ``` elisp
 (add-to-list 'load-path "/path/to/rust-mode/")
 (autoload 'rust-mode "rust-mode" nil t)
+(add-to-list 'auto-mode-alist '("\\.rs\\'" . rust-mode))
 ```
 
 ## Feature guide

[elpa] externals/debbugs e875a34129: Release debbugs 0.30

[Michael Albinus]

branch: externals/debbugs
commit e875a34129efd88895017701607e8affa6d7
Author: Michael Albinus 
Commit: Michael Albinus 

Release debbugs 0.30

* debbugs-gnu.el (debbugs-gnu-print-entry):
Add `tabulated-list-entry' text property.

* debbugs.el: Bump version to 0.30.
---
 Debbugs.wsdl  | 2 +-
 debbugs-browse.el | 2 +-
 debbugs-gnu.el| 6 --
 debbugs-org.el| 2 +-
 debbugs-ug.texi   | 2 +-
 debbugs.el| 4 ++--
 debbugs.texi  | 2 +-
 7 files changed, 11 insertions(+), 9 deletions(-)

diff --git a/Debbugs.wsdl b/Debbugs.wsdl
index ee3de75fd2..a0ff28d280 100644
--- a/Debbugs.wsdl
+++ b/Debbugs.wsdl
@@ -1,6 +1,6 @@
 
 
-

[elpa] externals/dtache 99876aaaa3 3/3: Use dtache-quit-tail-session in tail-mode

[ELPA Syncer]

branch: externals/dtache
commit 9987637c62c4761560ed85473bd8788d3610
Author: Niklas Eklund 
Commit: Niklas Eklund 

Use dtache-quit-tail-session in tail-mode
---
 dtache.el | 64 ++-
 1 file changed, 39 insertions(+), 25 deletions(-)

diff --git a/dtache.el b/dtache.el
index faf5cb1eb9..46a7e5c664 100644
--- a/dtache.el
+++ b/dtache.el
@@ -453,31 +453,33 @@ active session.  For sessions created with 
`dtache-compile' or
 `dtache-shell-command', the command will also kill the window."
   (interactive)
   (if (dtache-session-p dtache--buffer-session)
-  (if-let ((command-or-compile
-(cond ((string-match dtache--shell-command-buffer 
(buffer-name)) t)
-  ((string-match "\*dtache-compilation" (buffer-name)) t)
-  ((eq major-mode 'dtache-log-mode) t)
-  ((eq major-mode 'dtache-tail-mode) t)
-  (t nil
-  ;; `dtache-shell-command' or `dtache-compile'
-  (let ((kill-buffer-query-functions nil))
-(when-let ((process (get-buffer-process (current-buffer
-  (comint-simple-send process dtache--dtach-detach-character)
-  (message "[detached]"))
-(setq dtache--buffer-session nil)
-(kill-buffer-and-window))
-(if (eq 'active (dtache--determine-session-state 
dtache--buffer-session))
-;; `dtache-eshell'
-(if-let ((process (and (eq major-mode 'eshell-mode)
-   (dtache-eshell-get-dtach-process
-(progn
-  (setq dtache--buffer-session nil)
-  (process-send-string process dtache--dtach-detach-character))
-  ;; `dtache-shell'
-  (let ((process (get-buffer-process (current-buffer
-(comint-simple-send process dtache--dtach-detach-character)
-(setq dtache--buffer-session nil)))
-  (message "No active dtache-session found in buffer.")))
+  (if (eq major-mode 'dtache-tail-mode)
+  (dtache-quit-tail-session)
+  (if-let ((command-or-compile
+(cond ((string-match dtache--shell-command-buffer 
(buffer-name)) t)
+  ((string-match "\*dtache-compilation" (buffer-name)) 
t)
+  ((eq major-mode 'dtache-log-mode) t)
+  ((eq major-mode 'dtache-tail-mode) t)
+  (t nil
+  ;; `dtache-shell-command' or `dtache-compile'
+  (let ((kill-buffer-query-functions nil))
+(when-let ((process (get-buffer-process (current-buffer
+  (comint-simple-send process dtache--dtach-detach-character)
+  (message "[detached]"))
+(setq dtache--buffer-session nil)
+(kill-buffer-and-window))
+(if (eq 'active (dtache--determine-session-state 
dtache--buffer-session))
+;; `dtache-eshell'
+(if-let ((process (and (eq major-mode 'eshell-mode)
+   (dtache-eshell-get-dtach-process
+(progn
+  (setq dtache--buffer-session nil)
+  (process-send-string process 
dtache--dtach-detach-character))
+  ;; `dtache-shell'
+  (let ((process (get-buffer-process (current-buffer
+(comint-simple-send process dtache--dtach-detach-character)
+(setq dtache--buffer-session nil)))
+  (message "No active dtache-session found in buffer."
 (message "No dtache-session found in buffer.")))
 
 ;;;###autoload
@@ -492,6 +494,18 @@ active session.  For sessions created with 
`dtache-compile' or
  (dtache-get-sessions)
 (seq-do #'dtache--db-remove-entry sessions)))
 
+;;;###autoload
+(defun dtache-quit-tail-session ()
+  "Quit `dtache' tail session.
+
+The log can have been updated, but that is not done by the user but
+rather the tail mode.  To avoid a promtp `buffer-modified-p' is set to
+nil before closing."
+  (interactive)
+  (set-buffer-modified-p nil)
+  (setq dtache--buffer-session nil)
+  (kill-buffer-and-window))
+
  Functions
 
 ; Session

[elpa] externals/dtache updated (98344e50fb -> 99876aaaa3)

[ELPA Syncer]

elpasync pushed a change to branch externals/dtache.

  from  98344e50fb Improve state transition update
   new  b1c9549b4f Update session status
   new  ab3fc736c5 Update session host
   new  998763 Use dtache-quit-tail-session in tail-mode


Summary of changes:
 README.org  |   4 +-
 dtache-consult.el   |  12 ++---
 dtache-eshell.el|   4 +-
 dtache-shell.el |   4 +-
 dtache.el   | 136 ++--
 test/dtache-test.el |  30 ++--
 6 files changed, 105 insertions(+), 85 deletions(-)

[elpa] externals/dtache b1c9549b4f 1/3: Update session status

[ELPA Syncer]

branch: externals/dtache
commit b1c9549b4fe62ca089df066c3770f2beab22dccf
Author: Niklas Eklund 
Commit: Niklas Eklund 

Update session status

Let the session hold the status as well as exit code.
---
 README.org  |  2 +-
 dtache-consult.el   |  4 ++--
 dtache.el   | 47 +++
 test/dtache-test.el |  6 +++---
 4 files changed, 33 insertions(+), 26 deletions(-)

diff --git a/README.org b/README.org
index 9c3a55ee17..fe80bc370f 100644
--- a/README.org
+++ b/README.org
@@ -220,7 +220,7 @@ By default =dtache= uses the built in =notifications= 
library to issue a notific
 #+begin_src elisp :lexical t :results none
   (defun my/dtache-state-transition-alert-notification (session)
 "Send an `alert' notification when SESSION becomes inactive."
-(let ((status (dtache--session-status session))
+(let ((status (car (dtache--session-status session)))
   (host (plist-get (dtache--session-host session) :name)))
   (alert (dtache--session-command session)
:title (pcase status
diff --git a/dtache-consult.el b/dtache-consult.el
index 0eefdfce7c..ab809799f4 100644
--- a/dtache-consult.el
+++ b/dtache-consult.el
@@ -99,7 +99,7 @@ See `consult-multi' for a description of the source values."
(mapcar #'car
(seq-filter
 (lambda (x)
-  (eq 'failure (dtache--session-status (cdr x
+  (eq 'failure (car (dtache--session-status (cdr x)
 (dtache-session-candidates (dtache-get-sessions))
   "Failed `dtache' sessions as a source for `consult'.")
 
@@ -114,7 +114,7 @@ See `consult-multi' for a description of the source values."
(mapcar #'car
(seq-filter
 (lambda (x)
-  (eq 'success (dtache--session-status (cdr x
+  (eq 'success (car (dtache--session-status (cdr x)
 (dtache-session-candidates (dtache-get-sessions))
   "Successful `dtache' sessions as a source for `consult'.")
 
diff --git a/dtache.el b/dtache.el
index 6f584f55fd..8b9953dd98 100644
--- a/dtache.el
+++ b/dtache.el
@@ -139,7 +139,7 @@ Valid values are: create, new and attach")
 (defvar dtache-metadata-annotators-alist nil
   "An alist of annotators for metadata.")
 
-(defconst dtache-session-version "0.3.4"
+(defconst dtache-session-version "0.3.5"
   "The version of `dtache-session'.
 This version is encoded as [package-version].[revision].")
 
@@ -508,7 +508,7 @@ active session.  For sessions created with `dtache-compile' 
or
   :working-directory 
(dtache--get-working-directory)
   :attachable (dtache-attachable-command-p 
command)
   :time `(:start ,(time-to-seconds 
(current-time)) :end 0.0 :duration 0.0 :offset 0.0)
-  :status 'unknown
+  :status '(unknown . 0)
   :size 0
   :directory (concat (file-remote-p 
default-directory) dtache-session-directory)
   :host (dtache--host)
@@ -623,18 +623,23 @@ If session is not valid trigger an automatic cleanup on 
SESSION's host."
 (defun dtache-session-exit-code-status (session)
   "Return status based on exit-code in SESSION."
   (if (null dtache-env)
-  'unknown
-(with-temp-buffer
-  (insert-file-contents (dtache--session-file session 'log))
-  (goto-char (point-max))
-  (if (string-match "Dtache session finished" (thing-at-point 'line t))
-  'success
-'failure
+  `(unknown . 0)
+(let ((dtache-env-message
+   (with-temp-buffer
+ (insert-file-contents (dtache--session-file session 'log))
+ (goto-char (point-max))
+ (thing-at-point 'line t)))
+  (success-message "Dtache session finished")
+  (failure-message (rx "Dtache session exited abnormally with code " 
(group (one-or-more digit)
+  (cond ((string-match success-message dtache-env-message) `(success . 0))
+((string-match failure-message dtache-env-message)
+ `(failure . ,(string-to-number (match-string 1 
dtache-env-message
+(t `(unknown . 0))
 
 (defun dtache-state-transitionion-echo-message (session)
   "Issue a notification when SESSION transitions from active to inactive.
 This function uses the echo area."
-  (let ((status (pcase (dtache--session-status session)
+  (let ((status (pcase (car (dtache--session-status session))
   ('success "Dtache finished")
   ('failure "Dtache failed")
   ('unknown "Dtache finished"
@@ -643,7 +648,7 @@ This function uses the echo area."
 (defun dtache-state-transition-notifications-message (session)
   "Issue a notification when SESSION transitions from active to inactive.
 This funct

[elpa] externals/dtache ab3fc736c5 2/3: Update session host

[ELPA Syncer]

branch: externals/dtache
commit ab3fc736c582379583029641a70aaa9fae18cad6
Author: Niklas Eklund 
Commit: Niklas Eklund 

Update session host

Change the host to a cons with hostname and type.
---
 README.org  |  2 +-
 dtache-consult.el   |  8 
 dtache-eshell.el|  4 ++--
 dtache-shell.el |  4 ++--
 dtache.el   | 27 +--
 test/dtache-test.el | 24 
 6 files changed, 34 insertions(+), 35 deletions(-)

diff --git a/README.org b/README.org
index fe80bc370f..2994db487f 100644
--- a/README.org
+++ b/README.org
@@ -221,7 +221,7 @@ By default =dtache= uses the built in =notifications= 
library to issue a notific
   (defun my/dtache-state-transition-alert-notification (session)
 "Send an `alert' notification when SESSION becomes inactive."
 (let ((status (car (dtache--session-status session)))
-  (host (plist-get (dtache--session-host session) :name)))
+  (host (car (dtache--session-host session
   (alert (dtache--session-command session)
:title (pcase status
 ('success (format "Dtache finished [%s]" host))
diff --git a/dtache-consult.el b/dtache-consult.el
index ab809799f4..2fb9f8ea6e 100644
--- a/dtache-consult.el
+++ b/dtache-consult.el
@@ -129,7 +129,7 @@ See `consult-multi' for a description of the source values."
(mapcar #'car
(seq-filter
 (lambda (x)
-  (eq 'local (plist-get (dtache--session-host (cdr x)) :type)))
+  (eq 'local (cdr (dtache--session-host (cdr x)
 (dtache-session-candidates (dtache-get-sessions)
 "Local host `dtache' sessions as a source for `consult'."))
 
@@ -144,7 +144,7 @@ See `consult-multi' for a description of the source values."
(mapcar #'car
(seq-filter
 (lambda (x)
-  (eq 'remote (plist-get (dtache--session-host (cdr x)) 
:type)))
+  (eq 'remote (cdr (dtache--session-host (cdr x)
 (dtache-session-candidates (dtache-get-sessions))
   "Remote host `dtache' sessions as a source for `consult'.")
 
@@ -156,10 +156,10 @@ See `consult-multi' for a description of the source 
values."
 :action (lambda (x) (dtache-open-session (dtache--decode-session x)))
 :items
 ,(lambda ()
-   (let ((host-name (plist-get (dtache--host) :name)))
+   (let ((host-name (car (dtache--host
  (mapcar #'car (seq-filter
 (lambda (x)
-  (string= (plist-get (dtache--session-host (cdr x)) 
:name) host-name))
+  (string= (car (dtache--session-host (cdr x))) 
host-name))
 (dtache-session-candidates (dtache-get-sessions)))
   "Current host `dtache' sessions as a source for `consult'.")
 
diff --git a/dtache-eshell.el b/dtache-eshell.el
index 3af0d0f051..b6186ed53e 100644
--- a/dtache-eshell.el
+++ b/dtache-eshell.el
@@ -51,11 +51,11 @@
 
 (defun dtache-eshell-select-session ()
   "Return selected session."
-  (let* ((host-name (plist-get (dtache--host) :name))
+  (let* ((host-name (car (dtache--host)))
  (sessions
   (thread-last (dtache-get-sessions)
(seq-filter (lambda (it)
- (string= (plist-get (dtache--session-host 
it) :name) host-name)))
+ (string= (car (dtache--session-host it)) 
host-name)))
(seq-filter #'dtache--determine-session-state
 (dtache-completing-read sessions)))
 
diff --git a/dtache-shell.el b/dtache-shell.el
index 46119a9bcf..d3069b0266 100644
--- a/dtache-shell.el
+++ b/dtache-shell.el
@@ -53,11 +53,11 @@
 
 (defun dtache-shell-select-session ()
   "Return selected session."
-  (let* ((host-name (plist-get (dtache--host) :name))
+  (let* ((host-name (car (dtache--host)))
  (sessions
   (thread-last (dtache-get-sessions)
(seq-filter (lambda (it)
- (string= (plist-get (dtache--session-host 
it) :name) host-name)))
+ (string= (car (dtache--session-host it)) 
host-name)))
(seq-filter (lambda (it) (eq 'active 
(dtache--determine-session-state it)))
 (dtache-completing-read sessions)))
 
diff --git a/dtache.el b/dtache.el
index 8b9953dd98..faf5cb1eb9 100644
--- a/dtache.el
+++ b/dtache.el
@@ -139,7 +139,7 @@ Valid values are: create, new and attach")
 (defvar dtache-metadata-annotators-alist nil
   "An alist of annotators for metadata.")
 
-(defconst dtache-session-version "0.3.5"
+(defconst dtache-session-version "0.3.6"
   "The version of `dtache-session'.
 This version is encoded as [package-version].[revision].")
 
@@ -484,11 +484,11 @@ active session.  For sessions created with 
`dtache-compile' or
 (defun dtache-delete-sessions (&optional all-hosts)
   "

[elpa] externals/dtache 4e47a69807: Update name of compile hook

[ELPA Syncer]

branch: externals/dtache
commit 4e47a6980761246882d8669941a47e4f3ba33c8f
Author: Niklas Eklund 
Commit: Niklas Eklund 

Update name of compile hook
---
 dtache.el | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/dtache.el b/dtache.el
index 46a7e5c664..209c4945fe 100644
--- a/dtache.el
+++ b/dtache.el
@@ -134,7 +134,7 @@ Valid values are: create, new and attach")
 (defvar dtache-shell-command-history nil
   "History of commands run with `dtache-shell-command'.")
 
-(defvar dtache-compile-hooks nil
+(defvar dtache-compile-session-hooks nil
   "Hooks to run when compiling a session.")
 (defvar dtache-metadata-annotators-alist nil
   "An alist of annotators for metadata.")
@@ -297,7 +297,7 @@ The session is compiled by opening its output and enabling
   (insert (dtache--session-output session))
   (setq-local default-directory
   (dtache--session-working-directory session))
-  (run-hooks 'dtache-compile-hooks)
+  (run-hooks 'dtache-compile-session-hooks)
   (dtache-log-mode)
   (compilation-minor-mode)
   (setq dtache--buffer-session session)

[elpa] externals/dtache updated (4e47a69807 -> 8a95a97eb9)

[ELPA Syncer]

elpasync pushed a change to branch externals/dtache.

  from  4e47a69807 Update name of compile hook
   new  3ac8a5b8e8 Simplify setup for users
   new  c3babe1dae Fix attach property of eshell/shell sessions
   new  233faf10a4 Add dtache-detach-key to customization section
   new  11857f261c Update dtache to version 0.4
   new  626610cb27 Update CHANGELOG.org
   new  8a95a97eb9 Fix typo in CHANGELOG name


Summary of changes:
 CHANELOG.org => CHANGELOG.org |  3 +++
 README.org| 43 +--
 dtache-eshell.el  | 20 
 dtache-shell.el   |  8 +++-
 dtache.el | 18 +++---
 5 files changed, 54 insertions(+), 38 deletions(-)
 rename CHANELOG.org => CHANGELOG.org (94%)

[elpa] externals/dtache 233faf10a4 3/6: Add dtache-detach-key to customization section

[ELPA Syncer]

branch: externals/dtache
commit 233faf10a43a44ff51792a2f2c940e085a95d14d
Author: Niklas Eklund 
Commit: Niklas Eklund 

Add dtache-detach-key to customization section
---
 README.org | 1 +
 1 file changed, 1 insertion(+)

diff --git a/README.org b/README.org
index 3ef28dbc9d..a02323cf10 100644
--- a/README.org
+++ b/README.org
@@ -241,6 +241,7 @@ The package provides the following customizable variables.
 | dtache-tail-interval  | How often =dtache= should refresh the output 
when tailing|
 | dtache-nonattachable-commands | A list of commands that should be considered 
nonattachable   |
 | dtache-notification-function  | Specifies which function to issue 
notifications with |
+| dtache-detach-key | Specifies which keybinding to use to detach 
from a session   |
 
 Apart from those variables there is also the different =action= variables, 
which can be configured differently depending on the origin of the session.
 

[elpa] externals/dtache 8a95a97eb9 6/6: Fix typo in CHANGELOG name

[ELPA Syncer]

branch: externals/dtache
commit 8a95a97eb9f46f664f5f2cfa3865d7b28b1259d4
Author: Niklas Eklund 
Commit: Niklas Eklund 

Fix typo in CHANGELOG name
---
 CHANELOG.org => CHANGELOG.org | 0
 1 file changed, 0 insertions(+), 0 deletions(-)

diff --git a/CHANELOG.org b/CHANGELOG.org
similarity index 100%
rename from CHANELOG.org
rename to CHANGELOG.org

[elpa] externals/dtache 626610cb27 5/6: Update CHANGELOG.org

[ELPA Syncer]

branch: externals/dtache
commit 626610cb2724bcf533ff3cb6a75d582a42523f54
Author: Niklas Eklund 
Commit: Niklas Eklund 

Update CHANGELOG.org
---
 CHANELOG.org | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/CHANELOG.org b/CHANELOG.org
index 439dc328c5..093afe3058 100644
--- a/CHANELOG.org
+++ b/CHANELOG.org
@@ -4,6 +4,9 @@
 
 * Development
 
+* Version 0.4 (2022-010-22)
+
+- =dtache= takes care of setting up the keybindings for its users. The detach 
key can be customized through =dtache-detach-key=
 - =dtache= now has full on macOS. The previous issue of not being able to 
utilize =filenotify= has been resolved.
 - =dtache= now uses =notifications= library to issue notifications by default.
 - =dtache= now uses =filenotify= for notifications except on local macOS hosts.

[elpa] externals/dtache 3ac8a5b8e8 1/6: Simplify setup for users

[ELPA Syncer]

branch: externals/dtache
commit 3ac8a5b8e8e1d119316bedc91d6a007eb79db83d
Author: Niklas Eklund 
Commit: Niklas Eklund 

Simplify setup for users

Keybindings are moved into the different library files.
---
 README.org   | 42 --
 dtache-eshell.el | 18 +++---
 dtache-shell.el  |  6 ++
 dtache.el| 16 ++--
 4 files changed, 47 insertions(+), 35 deletions(-)

diff --git a/README.org b/README.org
index 2994db487f..3ef28dbc9d 100644
--- a/README.org
+++ b/README.org
@@ -63,9 +63,7 @@ A minimal configuration for =dtache=.
 #+begin_src elisp :lexical t :results none
   (use-package dtache
 :hook (after-init . dtache-setup)
-:bind (([remap async-shell-command] . dtache-shell-command)
-   :map dtache-shell-mode-map
-   ("C-c C-q" . dtache-detach-session)))
+:bind (([remap async-shell-command] . dtache-shell-command)))
 #+end_src
 
 * Commands
@@ -83,7 +81,7 @@ There are tree different ways to create a dtache session.
 
 The =dtache-shell-command= is for the Emacs users that are accustomed to 
running shell commands from =M-x shell-command= or =M-x async-shell-command=. 
The =dtache-shell-send-input= is for those that want to run a command through 
=dtache= when inside a =shell= buffer. The =dtache-eshell-send-input= is the 
equivalent for =eshell=. The =dtache-compile= is supposed to be used as a 
replacement for =compile=. Last there is the =dtache-start-session= function, 
which users can utilize in their o [...]
 
-To detach from a =dtache= session you should use the univeral 
=dtache-detach-dwim= command.
+To detach from a =dtache= session you should use the universal 
=dtache-detach-session= command. The keybinding for this command is defined by 
the =dtache-detach-key= variable, which by default has the value =C-c C-d=.
 
 ** Interacting with a session
 
@@ -125,21 +123,19 @@ A =use-package= configuration of the =dtache-shell= 
extension, which provides th
 
 #+begin_src elisp :lexical t :results none
   (use-package dtache-shell
-:hook (after-init . dtache-shell-setup)
-:bind (:map dtache-shell-mode-map
-   (("" . dtache-shell-send-input)
-("" . dtache-shell-attach-session)))
+:after dtache
 :config
+(dtache-shell-setup)
 (setq dtache-shell-history-file "~/.bash_history"))
 #+end_src
 
 A minor mode named =dtache-shell-mode= is provided, and will be enabled in 
=shell=. The commands that are implemented are:
 
-| Command | Description  |
-|-+--|
-| dtache-shell-send-input | Run command with dtache  |
-| dtache-shell-attach-session | Attach to a dtache session   |
-| dtache-detach-session   | Detach from a dtache session |
+| Command | Description  | Keybinding  
  |
+|-+--+---|
+| dtache-shell-send-input | Run command with dtache  |   
  |
+| dtache-shell-attach-session | Attach to a dtache session   |   
  |
+| dtache-detach-session   | Detach from a dtache session | 
dtache-detach-key |
 
 ** Dtache-eshell
 
@@ -147,20 +143,16 @@ A =use-package= configuration of the =dtache-eshell= 
extension, which provides t
 
 #+begin_src elisp :lexical t :results none
   (use-package dtache-eshell
-:hook (after-init . dtache-eshell-setup)
-:bind (:map dtache-eshell-mode-map
-   (("" . dtache-eshell-send-input)
-("" . dtache-eshell-attach-session)
-("C-c C-q" . dtache-detach-session
+:hook (eshell-mode . dtache-eshell-mode))
 #+end_src
 
 A minor mode named =dtache-eshell-mode= is provided, and will be enabled in 
=eshell=. The commands that are implemented are:
 
-| Command  | Description  |
-|--+--|
-| dtache-eshell-send-input | Run command with dtache  |
-| dtache-eshell-attach-session | Attach to a dtache session   |
-| dtache-detach-session| Detach from a dtache session |
+| Command  | Description  | Keybinding 
   |
+|--+--+---|
+| dtache-eshell-send-input | Run command with dtache  |  
   |
+| dtache-eshell-attach-session | Attach to a dtache session   |  
   |
+| dtache-detach-session| Detach from a dtache session | 
dtache-detach-key |
 
 In this [[https://niklaseklund.gitlab.io/blog/posts/dtache_eshell/][blog 
post]] there are examples and more information about the extension.
 
@@ -172,9 +164,7 @@ A =use-package= configuration of the =dtache-compile= 
extension, which provides
   (use-package dtache-compile
 :hook (after-init . dtache-compile-setup)
 :bind (([remap compile] . dtache-compile)
-   ([remap recompile] . 

[elpa] externals/dtache 11857f261c 4/6: Update dtache to version 0.4

[ELPA Syncer]

branch: externals/dtache
commit 11857f261c25b3ab7e60e27fc6e7e894c7d68d0d
Author: Niklas Eklund 
Commit: Niklas Eklund 

Update dtache to version 0.4
---
 dtache.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/dtache.el b/dtache.el
index 97cc733f4d..ca76cddadf 100644
--- a/dtache.el
+++ b/dtache.el
@@ -144,7 +144,7 @@ Valid values are: create, new and attach")
 (defvar dtache-metadata-annotators-alist nil
   "An alist of annotators for metadata.")
 
-(defconst dtache-session-version "0.3.6"
+(defconst dtache-session-version "0.4.0"
   "The version of `dtache-session'.
 This version is encoded as [package-version].[revision].")
 

[elpa] externals/dtache c3babe1dae 2/6: Fix attach property of eshell/shell sessions

[ELPA Syncer]

branch: externals/dtache
commit c3babe1daefdc5e5a731fef02b8e909424532638
Author: Niklas Eklund 
Commit: Niklas Eklund 

Fix attach property of eshell/shell sessions
---
 dtache-eshell.el | 2 +-
 dtache-shell.el  | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/dtache-eshell.el b/dtache-eshell.el
index c58b8c8f8c..dd50fb1ff1 100644
--- a/dtache-eshell.el
+++ b/dtache-eshell.el
@@ -33,7 +33,7 @@
  Variables
 
 (defcustom dtache-eshell-session-action
-  '(:attach dtache-tail-session
+  '(:attach dtache-shell-command-attach-session
 :view dtache-view-dwim
 :run dtache-shell-command)
   "Actions for a session created with `dtache-eshell'."
diff --git a/dtache-shell.el b/dtache-shell.el
index 890a67d89a..10a1ebfe45 100644
--- a/dtache-shell.el
+++ b/dtache-shell.el
@@ -30,7 +30,7 @@
  Variables
 
 (defcustom dtache-shell-session-action
-  '(:attach dtache-tail-session
+  '(:attach dtache-shell-command-attach-session
 :view dtache-view-dwim
 :run dtache-shell-command)
   "Actions for a session created with `dtache-shell'."

[nongnu] elpa/geiser 30ec9f2761: Fix for project functions other than project.el's

[ELPA Syncer]

branch: elpa/geiser
commit 30ec9f27613e0ed2517654355f3aa00927da5451
Author: jao 
Commit: jao 

Fix for project functions other than project.el's

Thanks to Denis Golovachev for pointing this out!
---
 elisp/geiser-repl.el | 14 ++
 news.org |  1 +
 2 files changed, 11 insertions(+), 4 deletions(-)

diff --git a/elisp/geiser-repl.el b/elisp/geiser-repl.el
index a6c2e92b55..ede0beff6b 100644
--- a/elisp/geiser-repl.el
+++ b/elisp/geiser-repl.el
@@ -1,6 +1,6 @@
 ;;; geiser-repl.el --- Geiser's REPL
 
-;; Copyright (C) 2009, 2010, 2011, 2012, 2013, 2015, 2016, 2018, 2019, 2020, 
2021 Jose Antonio Ortega Ruiz
+;; Copyright (C) 2009-2022 Jose Antonio Ortega Ruiz
 
 ;; This program is free software; you can redistribute it and/or
 ;; modify it under the terms of the Modified BSD License. You should
@@ -51,13 +51,19 @@ See also `geiser-repl-current-project-function' for the 
function
 used to discover a buffer's project."
   :type 'boolean)
 
+(declare project-root "project.el")
+(declare project-current "project.el")
+
+(defun geiser-repl--project ()
+  (when-let (p (project-current)) (project-root p)))
+
 (geiser-custom--defcustom geiser-repl-current-project-function
-(if (featurep 'project) #'project-current 'ignore)
+(if (featurep 'project) #'geiser-repl--project 'ignore)
   "Function used to determine the current project.
 The function is called from both source and REPL buffers, and
 should return a value which uniquely identifies the project."
   :type '(choice (function-item :tag "Ignore projects" ignore)
- (function-item :tag "Use Project.el" project-current)
+ (function-item :tag "Use Project.el" geiser-repl--project)
  (function-item :tag "Use Projectile" projectile-project-root)
  (function :tag "Other function")))
 
@@ -511,7 +517,7 @@ will be set up using `geiser-connect-local' when a REPL is 
started.")
 
 (defun geiser-repl--set-up-load-path ()
   (when geiser-repl-add-project-paths
-(when-let (root (cdr (funcall geiser-repl-current-project-function)))
+(when-let (root (funcall geiser-repl-current-project-function))
   (dolist (p (cond ((eq t geiser-repl-add-project-paths) '("."))
((listp geiser-repl-add-project-paths)
 geiser-repl-add-project-paths)))
diff --git a/news.org b/news.org
index 365a18ed2e..decd20741d 100644
--- a/news.org
+++ b/news.org
@@ -1,5 +1,6 @@
 * Version 0.22.1
   - Fix for C-u C-x C-e (in-buffer printing of evaluated expression)
+  - Fix for project functions other than project-current
 * Version 0.22 (December, 2021)
   - New functions geiser-wait-eval and geiser-eval-region/wait for
 synchronous clients like ob-scheme.

[elpa] externals/dtache updated (8a95a97eb9 -> f787f768ae)

[ELPA Syncer]

elpasync pushed a change to branch externals/dtache.

  from  8a95a97eb9 Fix typo in CHANGELOG name
   new  f0f1f5ab75 Update README
   new  c8e93d94b9 Update installation section in README
   new  f787f768ae Add ELPA-devel badge


Summary of changes:
 README.org | 22 +++---
 1 file changed, 15 insertions(+), 7 deletions(-)

[elpa] externals/dtache c8e93d94b9 2/3: Update installation section in README

[ELPA Syncer]

branch: externals/dtache
commit c8e93d94b9b08124fbd57a31130eda4959fb873a
Author: Niklas Eklund 
Commit: Niklas Eklund 

Update installation section in README
---
 README.org | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/README.org b/README.org
index 85a94053ac..b3286df548 100644
--- a/README.org
+++ b/README.org
@@ -50,9 +50,9 @@ The sessions are made persistent by writing the 
=dtache-session= objects to file
 
 * Installation
 
-The package is available on 
[[https://elpa.gnu.org/devel/dtache.html][GNU-devel ELPA]].
+The package is available on [[https://elpa.gnu.org/packages/dtache][GNU ELPA]] 
and [[https://elpa.gnu.org/devel/dtache.html][GNU-devel ELPA]].
 
-For users the [[https://guix.gnu.org/][GNU Guix package manager]] there is a 
[[https://guix.gnu.org/en/packages/emacs-dtache-0.3-0.9e0acd5/][guix package]].
+For users of the [[https://guix.gnu.org/][GNU Guix package manager]] there is 
a [[https://guix.gnu.org/en/packages/emacs-dtache-0.3-0.9e0acd5/][guix 
package]].
 
 * Configuration
 

[elpa] externals/dtache f0f1f5ab75 1/3: Update README

[ELPA Syncer]

branch: externals/dtache
commit f0f1f5ab75e956541a37d17d3d09e0a3b15efe0e
Author: Niklas Eklund 
Commit: Niklas Eklund 

Update README
---
 README.org | 20 +---
 1 file changed, 13 insertions(+), 7 deletions(-)

diff --git a/README.org b/README.org
index a02323cf10..85a94053ac 100644
--- a/README.org
+++ b/README.org
@@ -7,7 +7,9 @@
   :description: Why Dtache?
   :end:
 
-=Dtache=, or =Detach Emacs=, is a package to run shell commands completely 
detached from Emacs. With shell commands, we refer to commands that otherwise 
would be run in a terminal. This is made possible through the program 
[[https://github.com/crigler/dtach][dtach]], which =dtache= derives its name 
from. The package enables a seamless integration where commands are run using 
decoupled =dtach= processes, which =dtache= makes sure behind the scenes, that 
Emacs can attach to. The commands a [...]
+=Dtache=, or =Detach Emacs=, is a package to run shell commands completely 
detached from Emacs itself. The package achieves this functionality by 
launching the commands with the program 
[[https://github.com/crigler/dtach][dtach]]. Even though the commands are run 
decoupled, the package makes sure the integration to Emacs is seamless. The 
advantage is that the processes are insensitive to Emacs being killed, and this 
holds true for remote hosts as well, essentially making =dtache= a light [...]
+
+Another advantage of =dtache= is that in order to implement the detached 
feature it actually represents the processes as text inside of Emacs. This 
enables features such as history of all session outputs, possibility to diff 
session outputs etc.
 
 The following videos about =dtache=. They are currently a bit outdated but the 
core concept is still true.
 - [[https://www.youtube.com/watch?v=if1W58SrClk][Dtache - An Emacs package 
that provides detachable shell commands]]
@@ -19,7 +21,7 @@ The way =dtache= is designed with its =dtache-session= 
objects opens up the poss
 
 *** Output
 
-The user always have access to the session's output. The user never needs to 
fear that the output history of the terminal is not enough to capture all of 
its output. Also its pretty handy to be able to go back in time and see the 
output from a session you ran earlier today. Also having access to the output 
as well as the other information from the session makes it possible to enable 
=compilation-minor-mode= in order to use Emacs built in capabilities to perform 
a post compilation. This e [...]
+The user always have access to the session's output. The user never needs to 
fear that the output history of the terminal is not enough to capture all of 
its output. Also its pretty handy to be able to go back in time and see the 
output from a session you ran earlier today. Having access to the output as 
well as the other information from the session makes it possible to compile a 
session using Emacs built in functionality. This enables navigation between 
errors in the output as well as  [...]
 
 *** Notifications
 
@@ -31,7 +33,7 @@ The session always contain metadata, such as when the session 
was started, for h
 
 *** Annotations
 
-Arbitrarily metadata can be captured when a session is started through the 
=dtache-metadata-annotators-alist=
+Arbitrary metadata can be captured when a session is started. An example 
further down is how to leverage this feature to capture the git branch for a 
session.
 
 *** Remote
 
@@ -41,16 +43,16 @@ Proper support for running session on a remote host.
 
 The package provides commands that can act on a session. There is the 
functionality to =kill= an active session, to =rerun= a session, or =diff= two 
sessions.
 
-*** Persistency
+*** Persistent
 
 The sessions are made persistent by writing the =dtache-session= objects to 
file. This makes it possible for Emacs to resume the knowledge of prior 
sessions when Emacs is restarted.
 
 
 * Installation
 
-There exists a 
[[https://guix.gnu.org/en/packages/emacs-dtache-0.3-0.9e0acd5/][guix package]] 
of =dtache= which users of the [[https://guix.gnu.org/][GNU Guix package 
manager]] can install.
+The package is available on 
[[https://elpa.gnu.org/devel/dtache.html][GNU-devel ELPA]].
 
-For the time being =dtache= is not available in any of the Emacs repositories 
and must therefore be installed from souce.
+For users the [[https://guix.gnu.org/][GNU Guix package manager]] there is a 
[[https://guix.gnu.org/en/packages/emacs-dtache-0.3-0.9e0acd5/][guix package]].
 
 * Configuration
 
@@ -331,9 +333,13 @@ The =dtache= package supports 
[[https://www.gnu.org/software/emacs/manual/html_n
 
 Information about larger changes that has been made between versions can be 
found in the =CHANGELOG.org=
 
+* Support
+
+The =dtache= package should work on =Linux= and =macOS=. It is regularly 
tested on =Ubuntu= and =GNU Guix System=.
+
 * Contributions
 
-I have signed the papers for a 
[[https://www.gnu.org/software/emacs/manual/html_node/emacs/Copyright-Assignment

[elpa] externals/dtache f787f768ae 3/3: Add ELPA-devel badge

[ELPA Syncer]

branch: externals/dtache
commit f787f768ae1163b20afae9bb5d2bfbb0083d45d1
Author: Niklas Eklund 
Commit: Niklas Eklund 

Add ELPA-devel badge
---
 README.org | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/README.org b/README.org
index b3286df548..53b6c43cb9 100644
--- a/README.org
+++ b/README.org
@@ -2,6 +2,8 @@
 #+author: Niklas Eklund
 #+language: en
 
+#+html: http://elpa.gnu.org/devel/dtache.html";>https://elpa.gnu.org/devel/dtache.svg"/>
+
 * Introduction
   :properties:
   :description: Why Dtache?

[elpa] externals/org-transclusion e174e4db1a: docs: README minor update for export prop

[ELPA Syncer]

branch: externals/org-transclusion
commit e174e4db1a9e1a86890e4ae054bb4c689f72f8f2
Author: Noboru Ota 
Commit: Noboru Ota 

docs: README minor update for export prop
---
 README.org | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/README.org b/README.org
index e5a966ea8e..f42d82b531 100644
--- a/README.org
+++ b/README.org
@@ -1,7 +1,7 @@
 #+title:  README – Org-transclusion
 #+author: Noboru Ota
 #+email:  m...@nobiot.com
-#+options: toc:t cretor:nil author:nil broken-links:t
+#+options: toc:t creator:nil author:nil broken-links:t
 
 #+html: https://www.gnu.org/software/emacs/";>https://img.shields.io/static/v1?logo=gnuemacs&logoColor=fafafa&label=Made%20for&message=GNU%20Emacs&color=7F5AB6&style=flat"/>
 #+html: http://elpa.gnu.org/packages/org-transclusion.html";>https://elpa.gnu.org/packages/org-transclusion.svg"/>

[elpa] externals/corfu 641ea48462: Introduce `corfu--auto-tick' which captures the buffer tick/status (Fix #107)

[ELPA Syncer]

branch: externals/corfu
commit 641ea484628f12aa56515792ce4f9012c2e23b1c
Author: Daniel Mendler 
Commit: Daniel Mendler 

Introduce `corfu--auto-tick' which captures the buffer tick/status (Fix 
#107)

If Corfu is used in conjunction with multiple-cursors one has
to overwrite `corfu--auto-tick', such that it captures less information.
---
 corfu.el | 17 ++---
 1 file changed, 10 insertions(+), 7 deletions(-)

diff --git a/corfu.el b/corfu.el
index a0b07b3027..10516a4e80 100644
--- a/corfu.el
+++ b/corfu.el
@@ -1119,11 +1119,10 @@ See `completion-in-region' for the arguments BEG, END, 
TABLE, PRED."
 (define-key map (vector last-command-event) replace)
 (funcall replace)))
 
-(defun corfu--auto-complete (buf tick pt)
-  "Initiate auto completion if BUF, TICK and PT did not change."
+(defun corfu--auto-complete (tick)
+  "Initiate auto completion if TICK did not change."
   (setq corfu--auto-timer nil)
-  (when (and (not completion-in-region-mode) (eq buf (current-buffer))
- (eq tick (buffer-chars-modified-tick)) (eq pt (point)))
+  (when (and (not completion-in-region-mode) (equal tick (corfu--auto-tick)))
 (pcase (while-no-input ;; Interruptible capf query
  (run-hook-wrapped 'completion-at-point-functions 
#'corfu--capf-wrapper))
   ((and `(,fun ,beg ,end ,table . ,plist)
@@ -1154,9 +1153,13 @@ See `completion-in-region' for the arguments BEG, END, 
TABLE, PRED."
 ;; NOTE: Do not use idle timer since this leads to unacceptable slowdowns,
 ;; in particular if flyspell-mode is enabled.
 (setq corfu--auto-timer
-  (run-at-time
-   corfu-auto-delay nil #'corfu--auto-complete
-   (current-buffer) (buffer-chars-modified-tick) (point)
+  (run-at-time corfu-auto-delay nil
+   #'corfu--auto-complete (corfu--auto-tick)
+
+(defun corfu--auto-tick ()
+  "Return the current tick/status of the buffer.
+Auto completion is only performed if the tick did not change."
+  (list (current-buffer) (buffer-chars-modified-tick) (point)))
 
 ;;;###autoload
 (define-minor-mode corfu-mode

[elpa] externals/hyperbole dc1e20b389: Add test for root cell file attribute on copied file (#154)

[ELPA Syncer]

branch: externals/hyperbole
commit dc1e20b389324cd3e3ed6d02ce9ce42be381c8ce
Author: Mats Lidell 
Commit: GitHub 

Add test for root cell file attribute on copied file (#154)
---
 ChangeLog   |  6 ++
 test/kotl-mode-tests.el | 18 ++
 2 files changed, 24 insertions(+)

diff --git a/ChangeLog b/ChangeLog
index 6e2d47cd2b..f04326ce5c 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,9 @@
+2022-01-22  Mats Lidell  
+
+* test/kotl-mode-tests.el
+(kotl-mode-copy-kotl-file-updates-root-id-attributes): Verify that
+root cell attribute for file name is updated.
+
 2022-01-20  Bob Weiner  
 
 * kotl/kview.el (kview:create): Ensure top-level 0 cell file attribute is 
always updated
diff --git a/test/kotl-mode-tests.el b/test/kotl-mode-tests.el
index d1d71d8c5f..2f3c2a45bc 100644
--- a/test/kotl-mode-tests.el
+++ b/test/kotl-mode-tests.el
@@ -463,5 +463,23 @@
   (should (looking-at-p "first")))
   (delete-file kotl-file
 
+(ert-deftest kotl-mode-copy-kotl-file-updates-root-id-attributes ()
+  "Verify root id-attribute is updated when kotl mode is copied."
+  (let ((kotl-file (make-temp-file "hypb" nil ".kotl"))
+(new-name (concat (make-temp-name (concat temporary-file-directory 
"hypb")) ".kotl")))
+(unwind-protect
+(progn
+  (find-file kotl-file)
+  (insert "a cell")
+  (save-buffer)
+  (should (string= (kcell:get-attr (kcell-view:cell-from-ref 0) 'file) 
kotl-file))
+
+  (copy-file kotl-file new-name)
+  (find-file new-name)
+  (should (string= (kcell:get-attr (kcell-view:cell-from-ref 0) 'file) 
new-name)))
+  (progn
+(delete-file kotl-file)
+(delete-file new-name)
+
 (provide 'kotl-mode-tests)
 ;;; kotl-mode-tests.el ends here

[elpa] externals/org 1587e445be: org-element-cache: Suggest to share warning text as well in the warnings

[ELPA Syncer]

branch: externals/org
commit 1587e445be37afa9d2957dcefa9b9dfb5d3b85e5
Author: Ihor Radchenko 
Commit: Ihor Radchenko 

org-element-cache: Suggest to share warning text as well in the warnings

Multiple users reported that they saw the warning, but did not
actually report the warning text.  It's better to ask about sharing
explicitly.
---
 lisp/org-element.el | 12 +++-
 1 file changed, 7 insertions(+), 5 deletions(-)

diff --git a/lisp/org-element.el b/lisp/org-element.el
index 51204e8137..b82475a14e 100644
--- a/lisp/org-element.el
+++ b/lisp/org-element.el
@@ -5785,7 +5785,7 @@ Assume ELEMENT belongs to cache and that a cache is 
active."
 ;; This should not happen, but if it is, would be better to know
 ;; where it happens.
 (org-element--cache-warn "Failed to delete %S element in %S at %S. The 
element cache key was %S.
-If this warning appears regularly, please report it to Org mode mailing list 
(M-x org-submit-bug-report)."
+If this warning appears regularly, please report the warning text to Org mode 
mailing list (M-x org-submit-bug-report)."
   (org-element-type element)
   (current-buffer)
   (org-element-property :begin element)
@@ -5905,7 +5905,7 @@ actually submitted."
(not (version< emacs-version "28")))
   (and (boundp 'org-batch-test) org-batch-test))
   (org-element--cache-warn "Unregistered buffer modifications 
detected. Resetting.
-If this warning appears regularly, please report it to Org mode mailing list 
(M-x org-submit-bug-report).
+If this warning appears regularly, please report the warning text to Org mode 
mailing list (M-x org-submit-bug-report).
 The buffer is: %s\n Current command: %S\n Chars modified: %S\n Buffer 
modified: %S\n Backtrace:\n%S"
 (buffer-name (current-buffer))
 (list this-command (buffer-chars-modified-tick) 
(buffer-modified-tick))
@@ -6297,7 +6297,9 @@ completing the request."
  ;; such error happens within
  ;; `org-element--cache-process-request' or somewhere
  ;; else.
- (org-element--cache-warn "Added org-data parent to 
non-headline element: %S\nIf this warning appears regularly, please report it 
to Org mode mailing list (M-x org-submit-bug-report)." data)
+ (org-element--cache-warn "Added org-data parent to 
non-headline element: %S
+If this warning appears regularly, please report the warning text to Org mode 
mailing list (M-x org-submit-bug-report)."
+   data)
  (org-element-cache-reset)
  (throw 'org-element--cache-quit t))
   (org-element-put-property data :parent parent)
@@ -7008,7 +7010,7 @@ Return non-nil when verification failed."
 (unless (or (= (point) (org-element-property :begin 
(org-element-property :parent element)))
 (eq (point) (point-min)))
   (org-element--cache-warn "Cached element has wrong parent in %s. 
Resetting.
-If this warning appears regularly, please report it to Org mode mailing list 
(M-x org-submit-bug-report).
+If this warning appears regularly, please report the warning text to Org mode 
mailing list (M-x org-submit-bug-report).
 The element is: %S\n The parent is: %S\n The real parent is: %S"
 (buffer-name (current-buffer))
 (org-element--format-element element)
@@ -7036,7 +7038,7 @@ The element is: %S\n The parent is: %S\n The real parent 
is: %S"
  (or (not (org-element-property :ID real-element))
  (string= (org-element-property :ID real-element) 
(org-element-property :ID element
   (org-element--cache-warn "(%S) Cached element is incorrect in %s. 
(Cache tic up to date: %S) Resetting.
-If this warning appears regularly, please report it to Org mode mailing list 
(M-x org-submit-bug-report).
+If this warning appears regularly, please report the warning text to Org mode 
mailing list (M-x org-submit-bug-report).
 The element is: %S\n The real element is: %S\n Cache around 
:begin:\n%S\n%S\n%S"
 this-command
 (buffer-name (current-buffer))

[elpa] externals/corfu 0b17ff6cfd: completion--replace mutates the string :/

[ELPA Syncer]

branch: externals/corfu
commit 0b17ff6cfd526d1ec48ede9bf448f97910ecbc6e
Author: Daniel Mendler 
Commit: Daniel Mendler 

completion--replace mutates the string :/
---
 corfu.el | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/corfu.el b/corfu.el
index 10516a4e80..805cbd023e 100644
--- a/corfu.el
+++ b/corfu.el
@@ -961,7 +961,7 @@ there hasn't been any input, then quit."
 (pcase (completion-try-completion str table pred pt metadata)
   (`(,newstr . ,newpt)
(unless (equal str newstr)
- (completion--replace beg end newstr))
+ (completion--replace beg end (concat newstr)))
(goto-char (+ beg newpt))
 ;; No further completion is possible and the current string is a valid
 ;; match, exit with status 'finished.
@@ -1079,7 +1079,7 @@ See `completion-in-region' for the arguments BEG, END, 
TABLE, PRED."
  end (copy-marker end t)
  completion-in-region--data (list beg end table pred))
(unless (equal str newstr)
- (completion--replace beg end newstr))
+ (completion--replace beg end (concat newstr)))
(goto-char (+ beg newpt))
(if (= total 1)
(when exit
@@ -1110,7 +1110,7 @@ See `completion-in-region' for the arguments BEG, END, 
TABLE, PRED."
  (map (make-sparse-keymap))
  (replace (lambda ()
 (interactive)
-(completion--replace beg end (nth idx cands))
+(completion--replace beg end (concat (nth idx cands)))
 (corfu--message "Cycling %d/%d..." (1+ idx) total)
 (setq idx (mod (1+ idx) total))
 (set-transient-map map

[elpa] externals/consult cc24d57e4c: completion--replace mutates the string :/

[ELPA Syncer]

branch: externals/consult
commit cc24d57e4c9f61d7238c99b577ab8161ea70244e
Author: Daniel Mendler 
Commit: Daniel Mendler 

completion--replace mutates the string :/
---
 consult.el | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/consult.el b/consult.el
index 1f710fcfb7..83ce30a2ee 100644
--- a/consult.el
+++ b/consult.el
@@ -2374,7 +2374,8 @@ These configuration options are supported:
   predicate require-match 
initial)
 (if completion
 (progn
-  (completion--replace start end completion)
+  ;; completion--replace removes properties!
+  (completion--replace start end (setq completion (concat 
completion)))
   (when-let (exit (plist-get completion-extra-properties 
:exit-function))
 (funcall exit completion
  ;; If completion is finished and cannot be further 
completed,