[elpa] externals/greader 197b4f780a: greader version 0.11.7
branch: externals/greader commit 197b4f780ac55d13e5fb5a21d16dbdfbab07b99b Author: Michelangelo Rodriguez Commit: Michelangelo Rodriguez greader version 0.11.7 Now the conversion status now includes the percentage of the buffer already converted. --- greader-audiobook.el | 9 ++--- greader.el | 2 +- 2 files changed, 7 insertions(+), 4 deletions(-) diff --git a/greader-audiobook.el b/greader-audiobook.el index 83421f5ce5..922bca81e4 100644 --- a/greader-audiobook.el +++ b/greader-audiobook.el @@ -160,7 +160,8 @@ Only the final report will be printed." (defun greader-audiobook--percentage () "Return the percentage read of the buffer." - + (let ((unit (/ (point-max) 100))) +(/ (point) unit))) (defun greader-audiobook--get-block () "Get a block of text in current buffer. This function uses `greader-audiobook-block-size' to determine the @@ -353,9 +354,11 @@ buffer without the extension, if any." (greader-audiobook--calculate-file-name output-file-counter total-blocks)) (unless greader-audiobook-buffer-quietly - (message "converting block %d of %d" + (message "converting block %d of %d \(%s\)" output-file-counter - total-blocks)) + total-blocks (concat (number-to-string +(greader-audiobook--percentage)) + "\%"))) (setq output-file-name (greader-audiobook-convert-block output-file-name)) (if output-file-name diff --git a/greader.el b/greader.el index 07bcb2748f..7b0e198921 100644 --- a/greader.el +++ b/greader.el @@ -7,7 +7,7 @@ ;; Keywords: tools, accessibility ;; URL: https://gitlab.com/michelangelo-rodriguez/greader -;; Version: 0.11.6 +;; Version: 0.11.7 ;; 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
[elpa] externals/vertico 0d2cde6c96: vertico-buffer: Fix #496
branch: externals/vertico commit 0d2cde6c964833fe1f715921d9b174aee9b40b24 Author: Daniel Mendler Commit: Daniel Mendler vertico-buffer: Fix #496 --- extensions/vertico-buffer.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/extensions/vertico-buffer.el b/extensions/vertico-buffer.el index cd99079716..c9810b081e 100644 --- a/extensions/vertico-buffer.el +++ b/extensions/vertico-buffer.el @@ -181,7 +181,8 @@ (set-window-dedicated-p win nil) (set-window-buffer win old-buf)) ((window-live-p win) - (delete-window win))) + ;; The window may be a sole window (gh:minad/vertico#496). + (ignore-errors (delete-window win (when vertico-buffer-hide-prompt (set-window-vscroll nil 0)) ;; We cannot use a buffer-local minibuffer-exit-hook here. The hook will
[nongnu] elpa/gptel a834adbcba: README: Formatting tweaks and fix broken link
branch: elpa/gptel commit a834adbcba46197f4a59b0208e48dd3e80f15c46 Author: Karthik Chikmagalur Commit: Karthik Chikmagalur README: Formatting tweaks and fix broken link * README.org: Update wiki links and tweak some descriptions. --- README.org | 22 +++--- 1 file changed, 11 insertions(+), 11 deletions(-) diff --git a/README.org b/README.org index 6c832f4c6f..6266332ba2 100644 --- a/README.org +++ b/README.org @@ -41,7 +41,7 @@ https://github-production-user-asset-6210df.s3.amazonaws.com/8607532/278854024-a - Supports conversations and multiple independent sessions. - Save chats as regular Markdown/Org/Text files and resume them later. - You can go back and edit your previous prompts or LLM responses when continuing a conversation. These will be fed back to the model. -- Don't like gptel's workflow? Use it to create your own for any supported model/backend with a [[https://github.com/karthink/gptel/wiki#defining-custom-gptel-commands][simple API]]. +- Don't like gptel's workflow? Use it to create your own for any supported model/backend with a [[https://github.com/karthink/gptel/wiki/Defining-custom-gptel-commands][simple API]]. gptel uses Curl if available, but falls back to url-retrieve to work without external dependencies. @@ -615,12 +615,12 @@ The above code makes the backend available to select. If you want it to be the | =gptel-menu= | /(Same)/ | |+---| -|--+--| -| *To add context* | Also available from the Transient menu | -|--+--| -| =gptel-add= | Add/remove a region or buffer to gptel's context. Add/remove marked files in Dired. | -| =gptel-add-file= | Add a (text-readable) file to gptel's context. | -|--+--| +|--+-| +| *To add context* | | +|--+-| +| =gptel-add= | Add/remove a region or buffer to gptel's context. Add/remove marked files in Dired.| +| =gptel-add-file= | Add a (text-readable) file to gptel's context. Also available from the transient menu. | +|--+-| |+| | *In Org mode only* | | @@ -635,7 +635,7 @@ The above code makes the backend available to select. If you want it to be the 2. If a region is selected, the conversation will be limited to its contents. -3. Call =M-x gptel-send= with a prefix argument (~C-u~) to +3. Call =M-x gptel-send= with a prefix argument (~C-u~) - to set chat parameters (GPT model, system message etc) for this buffer, - include quick instructions for the next request only, - to add additional context -- regions, buffers or files -- to gptel, @@ -753,7 +753,7 @@ Now these will be enabled whenever you send a query from the transient menu. If (keymap-global-set "" "C-u C-c ") #+end_src -Or see this [[https://github.com/karthink/gptel/wiki#save-transient-flags][wiki entry]]. +Or see this [[https://github.com/karthink/gptel/wiki/Commonly-requested-features#save-transient-flags][wiki entry]]. #+html: #+html: @@ -762,7 +762,7 @@ Or see this [[https://github.com/karthink/gptel/wiki#save-transient-flags][wiki gptel's default usage pattern is simple, and will stay this way: Read input in any buffer and insert the response below it. Some custom behavior is possible with the transient menu (=C-u M-x gptel-send=). -For more programmable usage, gptel provides a general =gptel-request= function that accepts a custom prompt and a callback to act on the response. You can use this to build custom workflows not supported by =gptel-send=. See the documentation of =gptel-request=, and the [[https://github.com/karthink/gptel/wiki][wiki]] for examples. +For more programmable usage, gptel provides a general =gptel-request= function that accepts a custom prompt and a callback to act on the response. You can use this to build custom workflows not supported by =gptel-send=. See the documentation of =gptel-request=, and the [[https://github.com/karthink/gptel
[elpa] externals/denote 9a08d6bf25: Remove all deprecation notices that were in place before version 2.3.0
branch: externals/denote
commit 9a08d6bf25dfcc15132fe002d146325389c884d9
Author: Protesilaos Stavrou
Commit: Protesilaos Stavrou
Remove all deprecation notices that were in place before version 2.3.0
---
denote.el | 129 --
1 file changed, 129 deletions(-)
diff --git a/denote.el b/denote.el
index f6a8cefcf6..55aee1a3c0 100644
--- a/denote.el
+++ b/denote.el
@@ -385,11 +385,6 @@ If nil, show the keywords in their given order."
:package-version '(denote . "0.1.0")
:type 'boolean)
-(make-obsolete
- 'denote-allow-multi-word-keywords
- 'denote-file-name-letter-casing
- "2.1.0")
-
(defcustom denote-file-type nil
"The file type extension for new notes.
@@ -1016,8 +1011,6 @@ For our purposes, a note must satisfy `file-regular-p' and
"Return non-nil if FILE has a Denote identifier."
(denote-retrieve-filename-signature file))
-(make-obsolete 'denote-file-directory-p nil "2.0.0")
-
(defun denote--file-regular-writable-p (file)
"Return non-nil if FILE is regular and writable."
(and (file-regular-p file)
@@ -1044,11 +1037,6 @@ FILE must be an absolute path."
(when (string-match denote-id-regexp string)
(match-string-no-properties 0 string)))
-(define-obsolete-function-alias
- 'denote--default-dir-has-denote-prefix
- 'denote--dir-in-denote-directory-p
- "2.1.0")
-
(defun denote--exclude-directory-regexp-p (file)
"Return non-nil if FILE matches `denote-excluded-directories-regexp'."
(and denote-excluded-directories-regexp
@@ -1115,17 +1103,6 @@ text files that satisfy `denote-filename-is-note-p'."
(setq files (seq-filter #'denote-filename-is-note-p files)))
files))
-;; NOTE 2023-11-30: We are declaring `denote-directory-text-only-files'
-;; obsolete, though we keep it around for the foreseeable future. It
-;; WILL BE REMOVED ahead of version 3.0.0 of Denote, whenever that
-;; happens.
-(make-obsolete 'denote-directory-text-only-files 'denote-directory-files
"2.2.0")
-
-(defun denote-directory-text-only-files ()
- "Return list of text files in variable `denote-directory'.
-Filter `denote-directory-files' using `denote-filename-is-note-p'."
- (denote-directory-files nil nil :text-only))
-
(defun denote-directory-subdirectories ()
"Return list of subdirectories in variable `denote-directory'.
Omit dotfiles (such as .git) unconditionally. Also exclude
@@ -1139,21 +1116,11 @@ whatever matches `denote-excluded-directories-regexp'."
(denote--exclude-directory-regexp-p rel
(denote--directory-all-files-recursively)))
-(define-obsolete-variable-alias
- 'denote--encryption-file-extensions
- 'denote-encryption-file-extensions
- "2.0.0")
-
;; TODO 2023-01-24: Perhaps there is a good reason to make this a user
;; option, but I am keeping it as a generic variable for now.
(defvar denote-encryption-file-extensions '(".gpg" ".age")
"List of strings specifying file extensions for encryption.")
-(define-obsolete-function-alias
- 'denote--extensions-with-encryption
- 'denote-file-type-extensions-with-encryption
- "2.0.0")
-
(defun denote-file-type-extensions-with-encryption ()
"Derive `denote-file-type-extensions' plus
`denote-encryption-file-extensions'."
(let ((file-extensions (denote-file-type-extensions))
@@ -1209,27 +1176,6 @@ something like .org even if the actual file extension is
The path is relative to DIRECTORY (default: ‘default-directory’)."
(file-relative-name (denote-get-path-by-id id) directory))
-;; NOTE 2023-11-30: We are declaring `denote-directory-files-matching-regexp'
-;; obsolete, though we keep it around for the foreseeable future. It
-;; WILL BE REMOVED ahead of version 3.0.0 of Denote, whenever that
-;; happens.
-(make-obsolete 'denote-directory-files-matching-regexp 'denote-directory-files
"2.2.0")
-
-(defun denote-directory-files-matching-regexp (regexp)
- "Return list of files matching REGEXP in `denote-directory-files'."
- (denote-directory-files regexp))
-
-;; NOTE 2023-11-30: We are declaring `denote-all-files' obsolete,
-;; though we keep it around for the foreseeable future. It WILL BE
-;; REMOVED ahead of version 3.0.0 of Denote, whenever that happens.
-(make-obsolete 'denote-all-files 'denote-directory-files "2.2.0")
-
-(defun denote-all-files (&optional omit-current)
- "Return the list of Denote files in variable `denote-directory'.
-With optional OMIT-CURRENT, do not include the current Denote
-file in the returned list."
- (denote-directory-files nil omit-current nil))
-
(defvar denote-file-history nil
"Minibuffer history of `denote-file-prompt'.")
@@ -1344,11 +1290,6 @@ KEYWORDS is a list of strings, per
`denote-keywords-prompt'."
(sort (copy-sequence keywords) #'string-collate-lessp)
keywords))
-(define-obsolete-function-alias
- 'denote--keywords-combine
- 'denote-keywords-combine
- "2.1.0")
-
(defun denote-keywords-combine (keywords)
"Combine KEYWORDS list of strings into a sin
[elpa] externals/org 553d9b5798: ob-sqlite: Add ability to open a database in readonly mode
branch: externals/org commit 553d9b5798c6f8af3c254cab25e0654e5e364b74 Author: Daniel M German Commit: Ihor Radchenko ob-sqlite: Add ability to open a database in readonly mode * lisp/ob-sqlite.el (org-babel-header-args:sqlite): (org-babel-execute:sqlite): Add new header argument :readonly. * etc/ORG-NEWS (ob-sqlite: Added ability to open a database in readonly mode): Announce the new header argument. --- etc/ORG-NEWS | 18 ++ lisp/ob-sqlite.el | 10 +++--- 2 files changed, 25 insertions(+), 3 deletions(-) diff --git a/etc/ORG-NEWS b/etc/ORG-NEWS index 30a78c4ebb..7c6ac5efc8 100644 --- a/etc/ORG-NEWS +++ b/etc/ORG-NEWS @@ -76,6 +76,24 @@ bibliography format requires them to be written in title-case. # This also includes changes in function behavior from Elisp perspective. +*** ob-sqlite: Added ability to open a database in readonly mode + +Added option :readonly to ob-sqlite. + +When :readonly=true the database is opened in readonly mode. For example: + +#+begin_src sqlite :db /tmp/rip.db :readonly yes :exports both +create table rip(a,b); +#+end_src + +This results in an error such as: + +#+begin_example +Runtime error near line 2: attempt to write a readonly database (8) +[ Babel evaluation exited with code 1 ] +#+end_example + + ** Miscellaneous *** Trailing =-= is now allowed in plain links diff --git a/lisp/ob-sqlite.el b/lisp/ob-sqlite.el index 96d93b815b..eb992e156c 100644 --- a/lisp/ob-sqlite.el +++ b/lisp/ob-sqlite.el @@ -52,7 +52,8 @@ (line . :any) (list . :any) (separator . :any) -(nullvalue . :any)) +(nullvalue . :any) +(readonly-p . ((yes no "Sqlite specific header args.") (defun org-babel-expand-body:sqlite (body params) @@ -76,7 +77,8 @@ This function is called by `org-babel-execute-src-block'." (db (cdr (assq :db params))) (separator (cdr (assq :separator params))) (nullvalue (cdr (assq :nullvalue params))) - (headers-p (equal "yes" (cdr (assq :colnames params +(headers-p (equal "yes" (cdr (assq :colnames params +(readonly-p (equal "yes" (cdr (assq :readonly params (others (delq nil (mapcar (lambda (arg) (car (assq arg params))) (list :header :echo :bail :column @@ -85,7 +87,7 @@ This function is called by `org-babel-execute-src-block'." (insert (org-babel-eval (org-fill-template -"%cmd %header %separator %nullvalue %others %csv %db " +"%cmd %header %separator %nullvalue %others %csv %readonly %db " (list (cons "cmd" org-babel-sqlite3-command) (cons "header" (if headers-p "-header" "-noheader")) @@ -103,6 +105,8 @@ This function is called by `org-babel-execute-src-block'." (member :html others) separator) "" "-csv")) + (cons "readonly" + (if readonly-p "-readonly" "")) (cons "db" (or db "" ;; body of the code block (org-babel-expand-body:sqlite body params)))
[elpa] externals/dape updated (ce0ecf76a7 -> c70d44734c)
elpasync pushed a change to branch externals/dape. from ce0ecf76a7 Enlarge overlay-arrow to cover more of 'large-circle on linux new baa6cda4a9 Docstring fixup of `dape-cwd-fn` (#118) new c80d8db6b5 Revert changes but do not change face on none darwin systems new 6f7755396e Change hits breakpoint after-string to reflect breakpoint info buffer new d684509ece Use gdb-mi.el style fringe overlay-arrows new be0bf93e8e Reverse order of breakpoints in info buffer new c70d44734c Support watch expressions with space dape-info-watch-finish-edit Summary of changes: dape.el | 68 + 1 file changed, 18 insertions(+), 50 deletions(-)
[elpa] externals/dape c80d8db6b5 2/6: Revert changes but do not change face on none darwin systems
branch: externals/dape
commit c80d8db6b5e1c540a02697aad70577fddf8f0800
Author: Daniel Pettersson
Commit: Daniel Pettersson
Revert changes but do not change face on none darwin systems
---
dape.el | 16 +---
1 file changed, 13 insertions(+), 3 deletions(-)
diff --git a/dape.el b/dape.el
index 65aa983c11..ee84db74ce 100644
--- a/dape.el
+++ b/dape.el
@@ -3141,7 +3141,7 @@ See `dape-request' for expected CB signature."
;;; Stack pointers
(define-fringe-bitmap 'dape-right-triangle
- "\xf0\xf8\xfc\xfe\xfe\xfc\xf8\xf0")
+ "\xe0\xf0\xf8\xfc\xfc\xf8\xf0\xe0")
(defvar dape--overlay-arrow-position (make-marker)
"Dape stack position marker.")
@@ -3218,8 +3218,18 @@ If SKIP-DISPLAY is non nil refrain from going to
selected stack."
(set-fringe-bitmap-face
'dape-right-triangle
(cond
- ((cl-find-if (lambda (ov) (overlay-get ov :breakpoint))
- (dape--breakpoints-at-point))
+ ;; Fringes has some platform inconsistencies
+ ;; - GNU/Linux will render the overlay-arrow over
+ ;; breakpoint bitmap (breakpoint bm will be visible
+ ;; behind arrow).
+ ;; - MacOS will remove bitmap in fringe before
+ ;; drawing overlay-arrow, which is why we color the
+ ;; arrow to indicate breakpoint presence at current
+ ;; line.
+ ((and (eq system-type 'darwin)
+(cl-find-if (lambda (ov)
+ (overlay-get ov :breakpoint))
+(dape--breakpoints-at-point)))
'dape-breakpoint-face)
(deepest-p 'default)
('shadow
[elpa] externals/dape be0bf93e8e 5/6: Reverse order of breakpoints in info buffer
branch: externals/dape commit be0bf93e8e3364bc6dceba981901b401b12134db Author: Daniel Pettersson Commit: Daniel Pettersson Reverse order of breakpoints in info buffer --- dape.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/dape.el b/dape.el index 7cd2bbb063..cc2bcc2ecc 100644 --- a/dape.el +++ b/dape.el @@ -3542,7 +3542,7 @@ displayed." (gdb-table-add-row table (list "A" "Type" "Where/On" (when with-hits-p "Hit"))) (cl-loop - for breakpoint in (reverse dape--breakpoints) + for breakpoint in dape--breakpoints for buffer = (overlay-buffer breakpoint) for verified-plist = (overlay-get breakpoint 'dape-verified-plist) for verified-p = (or
[elpa] externals/dape baa6cda4a9 1/6: Docstring fixup of `dape-cwd-fn` (#118)
branch: externals/dape commit baa6cda4a9e631bbdd32a355b155b69997c19910 Author: Damien Cassou Commit: GitHub Docstring fixup of `dape-cwd-fn` (#118) A previous commit changed the meaning of this variable without changing the docstring: 7a1a44b6ff0b7fd490e609f19a8717c775cdcf31 Rework dape-cwd-fn --- dape.el | 8 +++- 1 file changed, 3 insertions(+), 5 deletions(-) diff --git a/dape.el b/dape.el index 3992627dd7..65aa983c11 100644 --- a/dape.el +++ b/dape.el @@ -615,11 +615,9 @@ See `dape-breakpoint-load' and `dape-breakpoint-save'." (defcustom dape-cwd-fn #'dape--default-cwd "Function to get current working directory. -The function should take one optional argument and return a string -representing the absolute file path of the current working directory. -If the optional argument is non nil return path with tramp prefix -otherwise the path should be without prefix. -See `dape--default-cwd'." +The function should return a string representing the absolute +file path of the current working directory, usually the current +project's root. See `dape--default-cwd'." :type 'function) (defcustom dape-compile-compile-hooks nil
[elpa] externals/dape c70d44734c 6/6: Support watch expressions with space dape-info-watch-finish-edit
branch: externals/dape commit c70d44734cc095a9a75e7cffaa21e85bf9931f28 Author: Daniel Pettersson Commit: Daniel Pettersson Support watch expressions with space dape-info-watch-finish-edit --- dape.el | 6 -- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/dape.el b/dape.el index cc2bcc2ecc..7e17947155 100644 --- a/dape.el +++ b/dape.el @@ -4290,8 +4290,10 @@ or \\[dape-info-watch-abort-changes] to abort changes"))) "Update watched variables and return to `dape-info-watch-mode'." (interactive) (setq dape--watched -(mapcar (lambda (name) (list :name name)) -(split-string (buffer-string +(cl-loop for line in (split-string (buffer-string) "[\r\n]+") + for trimed-line = (string-trim line) + unless (string-empty-p trimed-line) collect + (list :name trimed-line))) (dape-info-watch-abort-changes))
[elpa] externals/do-at-point da0742df74: Bump version to 0.1.2
branch: externals/do-at-point commit da0742df74cbb36347aefd5dcb17d674ee4846d3 Author: Philip Kaludercic Commit: Philip Kaludercic Bump version to 0.1.2 --- do-at-point.el | 18 +- 1 file changed, 17 insertions(+), 1 deletion(-) diff --git a/do-at-point.el b/do-at-point.el index 8ccc0cdcab..3b4d325fb7 100644 --- a/do-at-point.el +++ b/do-at-point.el @@ -5,7 +5,7 @@ ;; Author: Philip Kaludercic ;; Maintainer: Philip Kaludercic <~pkal/public-in...@lists.sr.ht> ;; URL: https://git.sr.ht/~pkal/do-at-point -;; Version: 0.1.1 +;; Version: 0.1.2 ;; Package-Requires: ((emacs "26.1")) ;; Keywords: convenience @@ -42,6 +42,22 @@ ;; Inspired by Embark and `isearch-forward-thing-at-point'. +;;; News: + + Version 0.1.2 + +;; - New general actions: "delete-region" and "yank-and-swap". +;; +;; - New hook `do-at-point-mode-hook'. +;; +;; - New minor mode `do-at-point-persist-mode', bound to M- by +;; default. If enabled, it disables the disactivation of selections +;; after an action. To enable it by default, evaluate +;; +;; (add-hook 'do-at-point-hook #'do-at-point-persist-mode) +;; +;; - Allow customising the quick-confirm key (by Visuwesh). + ;;; Code: (eval-when-compile (require 'pcase))
[elpa] externals/dape d684509ece 4/6: Use gdb-mi.el style fringe overlay-arrows
branch: externals/dape commit d684509ece260c1bd0408747342bf88690c8de3f Author: Daniel Pettersson Commit: Daniel Pettersson Use gdb-mi.el style fringe overlay-arrows This simplifies the creation of breakpoints by ensuring that fringe visibility is managed by overlay_p ness of overlay-arrow rather then relying on some undocumented order of fringe overlay draw order. This change relies on the resolution of bug #71763 for fringe stack trace arrows to display correctly on macOS. --- dape.el | 60 +--- 1 file changed, 9 insertions(+), 51 deletions(-) diff --git a/dape.el b/dape.el index a724dae831..7cd2bbb063 100644 --- a/dape.el +++ b/dape.el @@ -2401,9 +2401,7 @@ When SKIP-UPDATE is non nil, does not notify adapter about removal." (dolist (breakpoint breakpoints) (dape--breakpoint-remove breakpoint t)) (dolist (conn (dape--live-connections)) -(dape--set-breakpoints-in-buffer conn buffer - (when-let ((conn (dape--live-connection 'stopped t))) -(dape--update-stack-pointers conn t t))) +(dape--set-breakpoints-in-buffer conn buffer) (defun dape-select-thread (conn thread-id) "Select currrent thread for adapter CONN by THREAD-ID." @@ -2962,20 +2960,12 @@ Updates all breakpoints in all known connections." map) (t (overlay-put breakpoint :breakpoint t) - (dape--overlay-icon breakpoint - dape-breakpoint-margin-string - 'large-circle - 'dape-breakpoint-face - 'in-margin))) + (dape--overlay-icon breakpoint dape-breakpoint-margin-string + 'breakpoint 'dape-breakpoint-face 'in-margin))) (overlay-put breakpoint 'modification-hooks '(dape--breakpoint-freeze)) (push breakpoint dape--breakpoints) (dolist (conn (dape--live-connections)) (dape--set-breakpoints-in-buffer conn (current-buffer))) -;; If we have an stopped connection we also have an stack pointer -;; which should be colored with `dape-breakpoint-face' if we are -;; placing the breakpoint on the line of the stack pointer. -(when-let ((conn (dape--live-connection 'stopped t))) - (dape--update-stack-pointers conn t t)) (add-hook 'kill-buffer-hook 'dape--breakpoint-buffer-kill-hook nil t) (run-hooks 'dape-update-ui-hooks) breakpoint)) @@ -2990,11 +2980,6 @@ When SKIP-UPDATE is non nil, does not notify adapter about removal." (dolist (conn (dape--live-connections)) (dape--set-breakpoints-in-buffer conn buffer))) (dape--margin-cleanup buffer)) - ;; If we have an stopped connection we also have an stack pointer - ;; which should not have `dape-breakpoint-face' if we are - ;; removing the breakpoint on the line of the stack pointer. - (when-let ((conn (dape--live-connection 'stopped t))) -(dape--update-stack-pointers conn t t)) (run-hooks 'dape-update-ui-hooks)) (defun dape--breakpoint-update (conn overlay breakpoint) @@ -3035,10 +3020,7 @@ When SKIP-UPDATE is non nil, does not notify adapter about removal." 'next-error))) (dape--repl-message (format "* Breakpoint in %s moved from line %s to %s *" - old-buffer - old-line - new-line)) - (dape--update-stack-pointers conn t t) + old-buffer old-line new-line)) (run-hooks 'dape-update-ui-hooks)) (defconst dape--breakpoint-args '(:log :expression :hits) @@ -3140,9 +3122,6 @@ See `dape-request' for expected CB signature." ;;; Stack pointers -(define-fringe-bitmap 'dape-right-triangle - "\xe0\xf0\xf8\xfc\xfc\xf8\xf0\xe0") - (defvar dape--overlay-arrow-position (make-marker) "Dape stack position marker.") @@ -3155,8 +3134,7 @@ See `dape-request' for expected CB signature." "Remove stack pointer marker." (when-let ((buffer (marker-buffer dape--overlay-arrow-position))) (with-current-buffer buffer - (setq fringe-indicator-alist -(delete '(overlay-arrow . dape-right-triangle) fringe-indicator-alist)) + ;; FIXME Should restore `fringe-indicator-alist' (dape--remove-eldoc-hook))) (when (overlayp dape--stack-position-overlay) (delete-overlay dape--stack-position-overlay)) @@ -3209,30 +3187,10 @@ If SKIP-DISPLAY is non nil refrain from going to selected stack." 'dape-exception-description-face) "\n" ov)) - (add-to-list 'fringe-indicator-alist - '(overlay-arrow . dape-right-triangle)) - ;; If Emacs is compiled without without windows - ;; `set-fringe-bitmap-face' is not defined - (when (window-sys
[elpa] externals/dape 6f7755396e 3/6: Change hits breakpoint after-string to reflect breakpoint info buffer
branch: externals/dape commit 6f7755396e30fc878e1eb3b003f93123f7e48f96 Author: Daniel Pettersson Commit: Daniel Pettersson Change hits breakpoint after-string to reflect breakpoint info buffer --- dape.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/dape.el b/dape.el index ee84db74ce..a724dae831 100644 --- a/dape.el +++ b/dape.el @@ -2952,7 +2952,7 @@ Updates all breakpoints in all known connections." (concat " " (propertize - (format "Hits %s" hits) + (format "Hit %s" hits) 'face 'dape-hits-face 'mouse-face 'highlight 'help-echo "mouse-1: edit break hits"
[elpa] externals/which-key 38d4308d11: Add archive notice to readme
branch: externals/which-key commit 38d4308d1143b61e4004b6e7a940686784e51500 Author: Justin Burkett Commit: Justin Burkett Add archive notice to readme --- README.org | 8 1 file changed, 8 insertions(+) diff --git a/README.org b/README.org index cc7d0cfb65..b23b6acadc 100644 --- a/README.org +++ b/README.org @@ -3,6 +3,13 @@ [[http://melpa.org/#/which-key][http://melpa.org/packages/which-key-badge.svg]] [[http://stable.melpa.org/#/which-key][file:http://stable.melpa.org/packages/which-key-badge.svg]] +** ARCHIVE NOTICE + +which-key is now included in the master branch of Emacs and will likely be +released with Emacs v30. Bug reports and contributions to which-key will now be +considered through standard Emacs channels, and this repository is being +archived. + ** Introduction =which-key= is a minor mode for Emacs that displays the key bindings following your currently entered incomplete command (a prefix) in a @@ -16,6 +23,7 @@ ** Table of Contents :TOC_3: - [[#which-key][which-key]] + - [[#archive-notice][ARCHIVE NOTICE]] - [[#introduction][Introduction]] - [[#install][Install]] - [[#melpa][MELPA]]
[nongnu] elpa/magit updated (196abe7270 -> b5aa1afc40)
elpasync pushed a change to branch elpa/magit.
from 196abe7270 Use string-join instead of mapconcat
adds 581979b555 magit-untracked-files: Optionally return compact list
adds 6d9a578a98 magit-insert-untracked-files: Always use
magit-insert-files
adds 553537dacc magit-insert-files: Handle list section as well
adds 0b6efbfee2 magit-status.el: Rearrange "File Sections" section
adds 550d99d86d magit-jump-to-ignored: New command
adds f3b6864969 magit-insert-heading: Add optional CHILD-COUNT argument
adds 2b1ce0c7d9 Use magit-insert-heading's new CHILD-COUNT argument
adds 148b255f0a magit-insert-stash-notes: Show child count
adds d1a2bcd7b2 magit-define-section-jumper: Define commands as suffixes
adds 0178d59d71 magit-define-section-jumper: Add :inapt-if-not predicate
adds d113731276 magit--insert-modules-logs: Avoid canceling many sections
adds a527ca81ed magit-insert-revision-{message,notes}: Avoid canceling
many sections
adds a9967fcb28 magit-insert-revision-{message,notes}: Cosmetics
adds b98cd3af41 magit-insert-revision-message: Improve washing order
adds 2c2562d079 magit-insert-revision-message: Delegate more washing
tasks
adds 25898d0ab3 magit-revision--wash-message-hashes: New function
adds c051d611de magit-insert-revision-message: Cosmetics
adds 594bd14614 magit-wash-message-hook: New hook variable
adds bf8bc11937 magit-insert-recent-commits: Go back to not inserting
count
adds b5aa1afc40 test: Set/override committer information as well
No new revisions were added by this update.
Summary of changes:
docs/magit-section.org | 9 ++-
docs/magit-section.texi | 9 ++-
lisp/magit-bisect.el| 4 +-
lisp/magit-diff.el | 175
lisp/magit-git.el | 14 ++--
lisp/magit-log.el | 28 ++--
lisp/magit-refs.el | 4 +-
lisp/magit-section.el | 56 +---
lisp/magit-stash.el | 11 +--
lisp/magit-status.el| 150 -
lisp/magit-submodule.el | 39 +--
lisp/magit-worktree.el | 2 +-
test/magit-tests.el | 5 +-
13 files changed, 271 insertions(+), 235 deletions(-)
[nongnu] elpa/magit-section updated (196abe7270 -> b5aa1afc40)
elpasync pushed a change to branch elpa/magit-section.
from 196abe7270 Use string-join instead of mapconcat
adds 581979b555 magit-untracked-files: Optionally return compact list
adds 6d9a578a98 magit-insert-untracked-files: Always use
magit-insert-files
adds 553537dacc magit-insert-files: Handle list section as well
adds 0b6efbfee2 magit-status.el: Rearrange "File Sections" section
adds 550d99d86d magit-jump-to-ignored: New command
adds f3b6864969 magit-insert-heading: Add optional CHILD-COUNT argument
adds 2b1ce0c7d9 Use magit-insert-heading's new CHILD-COUNT argument
adds 148b255f0a magit-insert-stash-notes: Show child count
adds d1a2bcd7b2 magit-define-section-jumper: Define commands as suffixes
adds 0178d59d71 magit-define-section-jumper: Add :inapt-if-not predicate
adds d113731276 magit--insert-modules-logs: Avoid canceling many sections
adds a527ca81ed magit-insert-revision-{message,notes}: Avoid canceling
many sections
adds a9967fcb28 magit-insert-revision-{message,notes}: Cosmetics
adds b98cd3af41 magit-insert-revision-message: Improve washing order
adds 2c2562d079 magit-insert-revision-message: Delegate more washing
tasks
adds 25898d0ab3 magit-revision--wash-message-hashes: New function
adds c051d611de magit-insert-revision-message: Cosmetics
adds 594bd14614 magit-wash-message-hook: New hook variable
adds bf8bc11937 magit-insert-recent-commits: Go back to not inserting
count
adds b5aa1afc40 test: Set/override committer information as well
No new revisions were added by this update.
Summary of changes:
docs/magit-section.org | 9 ++-
docs/magit-section.texi | 9 ++-
lisp/magit-bisect.el| 4 +-
lisp/magit-diff.el | 175
lisp/magit-git.el | 14 ++--
lisp/magit-log.el | 28 ++--
lisp/magit-refs.el | 4 +-
lisp/magit-section.el | 56 +---
lisp/magit-stash.el | 11 +--
lisp/magit-status.el| 150 -
lisp/magit-submodule.el | 39 +--
lisp/magit-worktree.el | 2 +-
test/magit-tests.el | 5 +-
13 files changed, 271 insertions(+), 235 deletions(-)
[nongnu] elpa/git-commit updated (196abe7270 -> b5aa1afc40)
elpasync pushed a change to branch elpa/git-commit.
from 196abe7270 Use string-join instead of mapconcat
adds 581979b555 magit-untracked-files: Optionally return compact list
adds 6d9a578a98 magit-insert-untracked-files: Always use
magit-insert-files
adds 553537dacc magit-insert-files: Handle list section as well
adds 0b6efbfee2 magit-status.el: Rearrange "File Sections" section
adds 550d99d86d magit-jump-to-ignored: New command
adds f3b6864969 magit-insert-heading: Add optional CHILD-COUNT argument
adds 2b1ce0c7d9 Use magit-insert-heading's new CHILD-COUNT argument
adds 148b255f0a magit-insert-stash-notes: Show child count
adds d1a2bcd7b2 magit-define-section-jumper: Define commands as suffixes
adds 0178d59d71 magit-define-section-jumper: Add :inapt-if-not predicate
adds d113731276 magit--insert-modules-logs: Avoid canceling many sections
adds a527ca81ed magit-insert-revision-{message,notes}: Avoid canceling
many sections
adds a9967fcb28 magit-insert-revision-{message,notes}: Cosmetics
adds b98cd3af41 magit-insert-revision-message: Improve washing order
adds 2c2562d079 magit-insert-revision-message: Delegate more washing
tasks
adds 25898d0ab3 magit-revision--wash-message-hashes: New function
adds c051d611de magit-insert-revision-message: Cosmetics
adds 594bd14614 magit-wash-message-hook: New hook variable
adds bf8bc11937 magit-insert-recent-commits: Go back to not inserting
count
adds b5aa1afc40 test: Set/override committer information as well
No new revisions were added by this update.
Summary of changes:
docs/magit-section.org | 9 ++-
docs/magit-section.texi | 9 ++-
lisp/magit-bisect.el| 4 +-
lisp/magit-diff.el | 175
lisp/magit-git.el | 14 ++--
lisp/magit-log.el | 28 ++--
lisp/magit-refs.el | 4 +-
lisp/magit-section.el | 56 +---
lisp/magit-stash.el | 11 +--
lisp/magit-status.el| 150 -
lisp/magit-submodule.el | 39 +--
lisp/magit-worktree.el | 2 +-
test/magit-tests.el | 5 +-
13 files changed, 271 insertions(+), 235 deletions(-)
[nongnu] elpa/gptel 95a5716aa2: gptel: Check derived modes instead of major-mode
branch: elpa/gptel
commit 95a5716aa250d6321b17691abb035aa8acefbfbb
Author: Karthik Chikmagalur
Commit: Karthik Chikmagalur
gptel: Check derived modes instead of major-mode
* gptel.el (gptel--convert-org, gptel--save-state,
gptel--restore-state): Check for modes derived from Org/Markdown
instead of checking for org-mode and markdown-mode specifically.
This is to adapt gptel-mode and md -> org conversion in major-modes
that are derived from Org.
* gptel-curl.el (gptel-curl-get-response): Ditto.
---
gptel-curl.el | 6 ++---
gptel.el | 87 ++-
2 files changed, 46 insertions(+), 47 deletions(-)
diff --git a/gptel-curl.el b/gptel-curl.el
index 7b7d790821..2d4c8ee969 100644
--- a/gptel-curl.el
+++ b/gptel-curl.el
@@ -135,10 +135,8 @@ the response is inserted into the current buffer after
point."
(if stream
#'gptel-curl--stream-insert-response
#'gptel--insert-response))
- :transformer (when (eq (buffer-local-value
- 'major-mode
- (plist-get info :buffer))
-'org-mode)
+ :transformer (when (with-current-buffer (plist-get
info :buffer)
+ (derived-mode-p 'org-mode))
(gptel--stream-convert-markdown->org)))
info))
(if stream
diff --git a/gptel.el b/gptel.el
index a83d2a0b73..10a79f92ff 100644
--- a/gptel.el
+++ b/gptel.el
@@ -727,27 +727,27 @@ Valid JSON unless NO-JSON is t."
(defun gptel--restore-state ()
"Restore gptel state when turning on `gptel-mode'."
(when (buffer-file-name)
-(pcase major-mode
- ('org-mode
- (require 'gptel-org)
- (gptel-org--restore-state))
- (_ (when gptel--bounds
- (mapc (pcase-lambda (`(,beg . ,end))
- (put-text-property beg end 'gptel 'response))
- gptel--bounds)
- (message "gptel chat restored."))
- (when gptel--backend-name
- (if-let ((backend (alist-get
- gptel--backend-name gptel--known-backends
- nil nil #'equal)))
- (setq-local gptel-backend backend)
- (message
- (substitute-command-keys
-(concat
- "Could not activate gptel backend \"%s\"! "
- "Switch backends with \\[universal-argument] \\[gptel-send]"
- " before using gptel."))
- gptel--backend-name)))
+(if (derived-mode-p 'org-mode)
+(progn
+ (require 'gptel-org)
+ (gptel-org--restore-state))
+ (when gptel--bounds
+(mapc (pcase-lambda (`(,beg . ,end))
+(put-text-property beg end 'gptel 'response))
+ gptel--bounds)
+(message "gptel chat restored."))
+ (when gptel--backend-name
+(if-let ((backend (alist-get
+ gptel--backend-name gptel--known-backends
+ nil nil #'equal)))
+(setq-local gptel-backend backend)
+ (message
+ (substitute-command-keys
+(concat
+ "Could not activate gptel backend \"%s\"! "
+ "Switch backends with \\[universal-argument] \\[gptel-send]"
+ " before using gptel."))
+ gptel--backend-name))
(defun gptel--save-state ()
"Write the gptel state to the buffer.
@@ -755,24 +755,24 @@ Valid JSON unless NO-JSON is t."
This saves chat metadata when writing the buffer to disk. To
restore a chat session, turn on `gptel-mode' after opening the
file."
- (pcase major-mode
-('org-mode
- (require 'gptel-org)
- (gptel-org--save-state))
-(_ (let ((print-escape-newlines t))
- (save-excursion
- (save-restriction
- (add-file-local-variable 'gptel-model gptel-model)
- (add-file-local-variable 'gptel--backend-name
- (gptel-backend-name gptel-backend))
- (unless (equal (default-value 'gptel-temperature)
gptel-temperature)
- (add-file-local-variable 'gptel-temperature gptel-temperature))
- (unless (string= (default-value 'gptel--system-message)
- gptel--system-message)
- (add-file-local-variable 'gptel--system-message
gptel--system-message))
- (when gptel-max-tokens
- (add-file-local-variable 'gptel-max-tokens gptel-max-tokens))
- (add-file-local-variable 'gptel--bounds
(gptel--get-buffer-bounds
+ (if (derived-mode-p 'org-mode)
+ (progn
+(require '
