[elpa] externals/embark fc23a52785 1/3: org-set-tags-command should ignore the target!
branch: externals/embark commit fc23a527853403a85bda7f1df0c0ac8ed6b1cc9e Author: Omar Antolín Commit: Omar Antolín org-set-tags-command should ignore the target! --- embark-org.el | 3 +++ 1 file changed, 3 insertions(+) diff --git a/embark-org.el b/embark-org.el index a219bac8de..0636dbee35 100644 --- a/embark-org.el +++ b/embark-org.el @@ -367,6 +367,9 @@ bound to i." org-shiftmetaleft org-shiftmetaright org-cycle org-shifttab)) (cl-pushnew cmd embark-repeat-actions)) +(cl-pushnew 'embark--ignore-target +(alist-get 'org-set-tags-command embark-target-injection-hooks)) + (cl-pushnew '(org-heading . embark-org-heading-map) embark-keymap-alist) ;;; Source blocks and babel calls
[elpa] externals/embark updated (0c6903cb0b -> 3ffb27a833)
elpasync pushed a change to branch externals/embark. from 0c6903cb0b Run all actions with the default-directory of the originating buffer new fc23a52785 org-set-tags-command should ignore the target! new 16c3d337f0 Merge branch 'master' of https://github.com/oantolin/embark new 3ffb27a833 Clip org targets to narrowed portion of buffer Summary of changes: embark-org.el | 8 ++-- 1 file changed, 6 insertions(+), 2 deletions(-)
[elpa] externals/embark 3ffb27a833 3/3: Clip org targets to narrowed portion of buffer
branch: externals/embark commit 3ffb27a833d326ccf7e375bb9d94ebf4dc37fa77 Author: Omar Antolín Commit: Omar Antolín Clip org targets to narrowed portion of buffer The bounds returned by org-element-context give the full org element, ignoring any narrowing. This caused an error getting the target string with buffer-substring. I now clip the org element bounds to the narrowed portion of the buffer. For actions that are org commands, this will make no difference since they do whatever they do, we don't pass them the embark bounds or the embark target string. For actions ike saving on the kill-ring, it'll be less confusing if the target and bounds correspond to what is visible in the narrowed buffer. This fixes #614. --- embark-org.el | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/embark-org.el b/embark-org.el index 0636dbee35..6a579f6d0d 100644 --- a/embark-org.el +++ b/embark-org.el @@ -104,8 +104,9 @@ for elt = (org-element-lineage (org-element-context) embark-org--types t) then (org-element-lineage elt embark-org--types) while elt - for begin = (org-element-property :begin elt) - for end = (org-element-property :end elt) + ;; clip bounds to narrowed portion of buffer + for begin = (max (org-element-property :begin elt) (point-min)) + for end = (min (org-element-property :end elt) (point-max)) for target = (buffer-substring begin end) ;; Adjust table-cell to exclude final |. (Why is that there?) ;; Note: We are not doing this is an embark transformer because we
[elpa] externals/embark-consult updated (0c6903cb0b -> 3ffb27a833)
elpasync pushed a change to branch externals/embark-consult. from 0c6903cb0b Run all actions with the default-directory of the originating buffer adds fc23a52785 org-set-tags-command should ignore the target! adds 16c3d337f0 Merge branch 'master' of https://github.com/oantolin/embark adds 3ffb27a833 Clip org targets to narrowed portion of buffer No new revisions were added by this update. Summary of changes: embark-org.el | 8 ++-- 1 file changed, 6 insertions(+), 2 deletions(-)
[elpa] externals/embark 16c3d337f0 2/3: Merge branch 'master' of https://github.com/oantolin/embark
branch: externals/embark commit 16c3d337f0ef67d680ed4d929e75e823a05332f3 Merge: fc23a52785 0c6903cb0b Author: Omar Antolín Commit: Omar Antolín Merge branch 'master' of https://github.com/oantolin/embark --- embark-consult.el | 13 ++--- embark.el | 4 +++- 2 files changed, 5 insertions(+), 12 deletions(-) diff --git a/embark-consult.el b/embark-consult.el index 06832c10c7..a8d222b296 100644 --- a/embark-consult.el +++ b/embark-consult.el @@ -206,17 +206,8 @@ This function is meant to be added to `embark-collect-mode-hook'." (defun embark-consult-goto-grep (location) "Go to LOCATION, which should be a string with a grep match." - ;; Actions are run in the target window, so in this case whatever - ;; window was selected when the command that produced the - ;; xref-location candidates ran. In particular, we inherit the - ;; default-directory of the buffer in that window, but we really - ;; want the default-directory of the minibuffer or collect window we - ;; call the action from, which is the previous window, since the - ;; location is given relative to that directory. - (let ((default-directory (with-selected-window (previous-window) - default-directory))) -(consult--jump (consult--grep-position location)) -(pulse-momentary-highlight-one-line (point + (consult--jump (consult--grep-position location)) + (pulse-momentary-highlight-one-line (point))) (setf (alist-get 'consult-grep embark-default-action-overrides) #'embark-consult-goto-grep) diff --git a/embark.el b/embark.el index 6838b32f8f..2f08fd7863 100644 --- a/embark.el +++ b/embark.el @@ -1904,6 +1904,7 @@ minibuffer before executing the action." (let* ((command embark--command) (prefix prefix-arg) (action-window (embark--target-window t)) + (directory default-directory) (inject (lambda () (let ((contents (minibuffer-contents))) @@ -1937,7 +1938,8 @@ minibuffer before executing the action." (prefix-arg prefix) ;; the next two avoid mouse dialogs (use-dialog-box nil) -(last-nonmenu-event 13)) +(last-nonmenu-event 13) +(default-directory directory)) (embark--run-action-hooks embark-pre-action-hooks action target quit) (minibuffer-with-setup-hook inject
[nongnu] elpa/eat 0586a84e52: Fix incompatiblity with Eshell on Emacs 28
branch: elpa/eat commit 0586a84e521fc7ed9febc430039c4baba95889d7 Author: Akib Azmain Turja Commit: Akib Azmain Turja Fix incompatiblity with Eshell on Emacs 28 * eat.el (eat--eshell-setup-proc-and-term): Set 'eat--input-process' terminal parameter on Emacs 28. * eat.el (eat-eshell-mode): Don't add advice 'eat--eshell-set-input-process' on Emacs 28. --- eat.el | 13 + 1 file changed, 9 insertions(+), 4 deletions(-) diff --git a/eat.el b/eat.el index 49599d0d03..e4a4a59499 100644 --- a/eat.el +++ b/eat.el @@ -5747,6 +5747,9 @@ PROGRAM can be a shell command." (setf (eat-term-set-cwd-function eat--terminal) #'eat--set-cwd) (setf (eat-term-set-cmd-function eat--terminal) #'eat--set-cmd) (setf (eat-term-parameter eat--terminal 'eat--process) proc) +(unless (>= emacs-major-version 29) + (setf (eat-term-parameter eat--terminal 'eat--input-process) +proc)) (setf (eat-term-parameter eat--terminal 'eat--output-process) proc) (when-let* ((window (get-buffer-window nil t))) @@ -6082,8 +6085,9 @@ symbol `buffer', in which case the point of current buffer is set." ,@eshell-variable-aliases-list)) (advice-add #'eshell-gather-process-output :around #'eat--eshell-adjust-make-process-args) -(advice-add #'eshell-resume-eval :after -#'eat--eshell-set-input-process)) +(when (>= emacs-major-version 29) + (advice-add #'eshell-resume-eval :after + #'eat--eshell-set-input-process))) (t (let ((buffers nil)) (setq eat-eshell-mode t) @@ -6115,8 +6119,9 @@ symbol `buffer', in which case the point of current buffer is set." eshell-variable-aliases-list)) (advice-remove #'eshell-gather-process-output #'eat--eshell-adjust-make-process-args) -(advice-remove #'eshell-resume-eval - #'eat--eshell-set-input-process +(when (>= emacs-major-version 29) + (advice-remove #'eshell-resume-eval + #'eat--eshell-set-input-process) Eshell Visual Command Handling.
[nongnu] elpa/subed 0519eb16ad: 1.2.1: Adjust loops when setting start or stop time
branch: elpa/subed
commit 0519eb16ad618880fbc9cfd272ebb13e2ceab619
Author: Sacha Chua
Commit: Sacha Chua
1.2.1: Adjust loops when setting start or stop time
* NEWS.org: Document 1.2.1.
* subed/subed-common.el (set-subtitle-time-start): Update loop start
if it's within the current subtitle.
(set-subtitle-time-stop): Update loop end if it's within the current
subtitle.
* subed/subed.el: Increase version.
* tests/test-subed-common.el ("COMMON"): Add tests for setting the
start/stop time when looping.
* tests/test-subed-vtt.el ("VTT"): Add test for updating the loop time
when merging.
* subed/subed-ass.el (subed--merge-with-next): Always set the stop
time, ignoring time boundaries.
* subed/subed-srt.el (subed--merge-with-next): Always set the stop
time, ignoring time boundaries.
* subed/subed-tsv.el (subed--merge-with-next): Always set the stop
time, ignoring time boundaries.
* subed/subed-vtt.el (subed--merge-with-next): Always set the stop
time, ignoring time boundaries.
Fixes #63.
---
NEWS.org | 5 ++
subed/subed-ass.el | 3 +-
subed/subed-common.el | 16
subed/subed-srt.el | 3 +-
subed/subed-tsv.el | 3 +-
subed/subed-vtt.el | 3 +-
subed/subed.el | 2 +-
tests/test-subed-common.el | 212 -
tests/test-subed-vtt.el| 14 ++-
9 files changed, 175 insertions(+), 86 deletions(-)
diff --git a/NEWS.org b/NEWS.org
index e9586a853c..818ffb53db 100644
--- a/NEWS.org
+++ b/NEWS.org
@@ -1,6 +1,11 @@
#+OPTIONS: toc:nil
* subed news
+** Version 1.2.1 - 2023-03-21 - Sacha Chua
+
+Adjusting the starting or stopping timestamp (including via merges)
+should now also update the looping start and stop times.
+
** Version 1.2.0 - 2023-03-10 - Sacha Chua
I changed ~subed-mode~ so that it doesn't add functions to local
diff --git a/subed/subed-ass.el b/subed/subed-ass.el
index 4898af12b1..9f534ad0b3 100644
--- a/subed/subed-ass.el
+++ b/subed/subed-ass.el
@@ -273,7 +273,8 @@ function for MAJOR-MODE."
(subed-jump-to-subtitle-text)
(delete-region pos (point))
(insert " ")
-(subed-set-subtitle-time-stop new-end))
+ (let
((subed-enforce-time-boundaries nil))
+
(subed-set-subtitle-time-stop new-end)))
(error "No subtitle to merge into")
(cl-defmethod subed--auto-insert (&context (major-mode subed-ass-mode))
diff --git a/subed/subed-common.el b/subed/subed-common.el
index 77483ebeb2..5940467a3b 100644
--- a/subed/subed-common.el
+++ b/subed/subed-common.el
@@ -411,6 +411,14 @@ Return the new subtitle start time in milliseconds."
(subed-set-subtitle-time-stop (- msecs subed-subtitle-spacing))
(message
"Adjusted previous stop time to %s to maintain spacing"
(subed-msecs-to-timestamp (subed-subtitle-msecs-stop)
+ ;; Update loop start if it's within the current subtitle
+ (when (and subed--subtitle-loop-start
+(>=
subed--subtitle-loop-start
+
(floor (- (subed-subtitle-msecs-start)
+
(* 1000 (or subed-loop-seconds-before
0)
+(<
subed--subtitle-loop-start (subed-subtitle-msecs-stop)))
+ (setq subed--subtitle-loop-start
+ (floor (- msecs (* 1000
(or subed-loop-seconds-before 0))
(when (and (subed-jump-to-subtitle-time-start sub-id)
(looking-at subed--regexp-timestamp))
(replace-match
@@ -477,6 +485,14 @@ Return the new subtitle stop time in milliseconds."
(subed-set-subtitle-time-start (+ msecs subed-subtitle-spacing))
(message
"Adjusted next start time to %s to maintain spacing"
(subed-msecs-to-timestamp (subed-subtitle-msecs-start)
+ ;; Update loop end if it's within the current subtitle
+ (when (and subed--subtitle-loop-stop
+(>
subed--subtitle-loop-stop (subed-subt
[nongnu] elpa/racket-mode 3d12285869: Avoid backward-delete-char
branch: elpa/racket-mode commit 3d122858696f2c81101e52d2f191dd2d11a11daa Author: Greg Hendershott Commit: Greg Hendershott Avoid backward-delete-char Bleeding edge Emacs starting to warn this is for interactive use only. Instead use delete-char with negative argument. --- racket-parens.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/racket-parens.el b/racket-parens.el index 736422de9d..1ecf2c04c5 100644 --- a/racket-parens.el +++ b/racket-parens.el @@ -146,7 +146,7 @@ This function is a suitable element for the list variable (insert open) (backward-char 1) (forward-sexp 1) - (backward-delete-char 1) + (delete-char -1) (insert close)) (_ (user-error "Don't know that paren shape")
[elpa] externals/realgud-trepan-xpy updated (9888ed6472 -> 9fae50636f)
elpasync pushed a change to branch externals/realgud-trepan-xpy. from 9888ed6472 Add NEWS and misc updates new 87bd24dc43 fix links in commentary new 51668106e8 adjust pypi link in commentary new 9fae50636f Merge pull request #1 from mplscorwin/patch-1 Summary of changes: realgud-trepan-xpy.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-)
[elpa] externals/realgud-trepan-xpy 87bd24dc43 1/3: fix links in commentary
branch: externals/realgud-trepan-xpy commit 87bd24dc43f64445725b1f522840a4a415cc55ad Author: Corwin Commit: GitHub fix links in commentary Trivial documentation change fixing two broken links in commentary. feel free to ignore if this doesn't make life easier :) PS, I do have a copyright assignment on file with FSF for Emacs. --- realgud-trepan-xpy.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/realgud-trepan-xpy.el b/realgud-trepan-xpy.el index 4e309f9e55..da3e1c9878 100644 --- a/realgud-trepan-xpy.el +++ b/realgud-trepan-xpy.el @@ -4,7 +4,7 @@ ;; Version: 1.0.0 ;; Package-Type: multi ;; Package-Requires: ((realgud "1.5.0") (load-relative "1.3.1") (emacs "25")) -;; URL: http://github.com/rocky/realgud-trepan-xpy +;; URL: https://github.com/realgud/realgud-trepan-xpy ;; Compatibility: GNU Emacs 25.x ;; Copyright (C) 2019 Free Software Foundation, Inc @@ -27,7 +27,7 @@ ;;; Commentary: ;; realgud support for the Python trepan-xpy -;; See https://pypi.org/project/trepan-xpy/ +;; See https://pypi.org/project/trepan2/ ;;; Code:
[elpa] externals/realgud-trepan-xpy 51668106e8 2/3: adjust pypi link in commentary
branch: externals/realgud-trepan-xpy commit 51668106e8647e039fe444d99835bf2e9ae76aea Author: Corwin Commit: GitHub adjust pypi link in commentary fix pypi link in elisp header commentary --- realgud-trepan-xpy.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/realgud-trepan-xpy.el b/realgud-trepan-xpy.el index da3e1c9878..cc620acf79 100644 --- a/realgud-trepan-xpy.el +++ b/realgud-trepan-xpy.el @@ -27,7 +27,7 @@ ;;; Commentary: ;; realgud support for the Python trepan-xpy -;; See https://pypi.org/project/trepan2/ +;; See https://pypi.org/project/trepanxpy/ ;;; Code:
[elpa] externals/realgud-trepan-xpy 9fae50636f 3/3: Merge pull request #1 from mplscorwin/patch-1
branch: externals/realgud-trepan-xpy commit 9fae50636f6f614b70c4f1251d10a4bd7e6bfbb2 Merge: 9888ed6472 51668106e8 Author: R. Bernstein Commit: GitHub Merge pull request #1 from mplscorwin/patch-1 fix links in commentary --- realgud-trepan-xpy.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/realgud-trepan-xpy.el b/realgud-trepan-xpy.el index 4e309f9e55..cc620acf79 100644 --- a/realgud-trepan-xpy.el +++ b/realgud-trepan-xpy.el @@ -4,7 +4,7 @@ ;; Version: 1.0.0 ;; Package-Type: multi ;; Package-Requires: ((realgud "1.5.0") (load-relative "1.3.1") (emacs "25")) -;; URL: http://github.com/rocky/realgud-trepan-xpy +;; URL: https://github.com/realgud/realgud-trepan-xpy ;; Compatibility: GNU Emacs 25.x ;; Copyright (C) 2019 Free Software Foundation, Inc @@ -27,7 +27,7 @@ ;;; Commentary: ;; realgud support for the Python trepan-xpy -;; See https://pypi.org/project/trepan-xpy/ +;; See https://pypi.org/project/trepanxpy/ ;;; Code:
[elpa] externals/xeft 24ddfefc30 2/2: Allow following symlinks when recursively listing files (issue#6)
branch: externals/xeft commit 24ddfefc307037a0dc418c9bc3d80cc1e0b450f9 Author: Yuan Fu Commit: Yuan Fu Allow following symlinks when recursively listing files (issue#6) * xeft.el (xeft-recursive): Add a new possible value 'follow-symlinks'. (xeft--file-list): Follow symlinks if xeft-recursive is 'follow-symlinks'. --- xeft.el | 11 --- 1 file changed, 8 insertions(+), 3 deletions(-) diff --git a/xeft.el b/xeft.el index e083302176..b5f126925e 100644 --- a/xeft.el +++ b/xeft.el @@ -219,12 +219,16 @@ point at the beginning of body text (ie, end of title)." Xeft doesn’t follow symlinks and ignores inaccessible directories. Customize ‘xeft-directory-filter’ to exclude -subdirectories. +subdirectories. Set this variable to ‘follow-symlinks’ to follow +symlinks, note that this might lead to infinite recursion. Changing this variable along doesn’t remove already-indexed files from the database, you need to delete the database on disk and let xeft recreate it." - :type 'boolean) + :type '(choice (const :tag "No" nil) + (const :tag "Yes" t) + (const :tag "Yes, and follow symlinks" +follow-symlinks ))) (defcustom xeft-file-list-function #'xeft--file-list "A function that returns files that xeft should search from. @@ -732,7 +736,8 @@ files and directories and check for ‘xeft-ignore-extension’." xeft-file-filter (if xeft-recursive (directory-files-recursively -xeft-directory "" nil xeft-directory-filter) +xeft-directory "" nil xeft-directory-filter +(eq xeft-recursive 'follow-symlinks)) (directory-files xeft-directory t nil t
[elpa] externals/xeft 9bf39a6b02 1/2: Don't trim "version strings" from file extensions (issue#24)
branch: externals/xeft commit 9bf39a6b028f999064dbb0c21766baa5d7f1521a Author: Yuan Fu Commit: Yuan Fu Don't trim "version strings" from file extensions (issue#24) * xeft.el (xeft--file-name-extension): New function. (xeft-default-file-filter): Use xeft--file-name-extension. --- xeft.el | 11 ++- 1 file changed, 10 insertions(+), 1 deletion(-) diff --git a/xeft.el b/xeft.el index 2af36e59b8..e083302176 100644 --- a/xeft.el +++ b/xeft.el @@ -697,6 +697,15 @@ The score is the number of search phrases that appears in TITLE." (interactive) (xeft-refresh t)) +(defun xeft--file-name-extension (path) + "Return the extension part of PATH. +This differs from ‘file-name-extension’ in that it doesn’t remove +trailing \"version strings\"." + (let ((filename (file-name-nondirectory path))) +(when (string-match (rx (not ".") "." (group (* (not "."))) eos) +filename) + (match-string 1 filename + (defun xeft-default-file-filter (file) "Return nil if FILE should be ignored. @@ -706,7 +715,7 @@ directories, dot files, and files matched by (and (file-regular-p file) (not (string-prefix-p "." (file-name-base file))) - (not (member (file-name-extension file) + (not (member (xeft--file-name-extension file) xeft-ignore-extension (defun xeft-default-directory-filter (dir)
[elpa] externals/xeft updated (2655af67d2 -> 24ddfefc30)
elpasync pushed a change to branch externals/xeft. from 2655af67d2 ; Improve docstring new 9bf39a6b02 Don't trim "version strings" from file extensions (issue#24) new 24ddfefc30 Allow following symlinks when recursively listing files (issue#6) Summary of changes: xeft.el | 22 ++ 1 file changed, 18 insertions(+), 4 deletions(-)
[nongnu] elpa/spacemacs-theme 5a453a9d73 2/3: more update on face attributes
branch: elpa/spacemacs-theme commit 5a453a9d7394a3f2b1747c440241cb83ada8fef5 Author: Lucius Hu Commit: Lucius Hu more update on face attributes --- spacemacs-common.el | 30 +++--- 1 file changed, 15 insertions(+), 15 deletions(-) diff --git a/spacemacs-common.el b/spacemacs-common.el index 9e033403ea..8f999e0f64 100644 --- a/spacemacs-common.el +++ b/spacemacs-common.el @@ -178,7 +178,7 @@ to 'auto, tags may not be properly aligned. " `(eval-sexp-fu-flash ((,class (:background ,suc :foreground ,bg1 `(eval-sexp-fu-flash-error ((,class (:background ,err :foreground ,bg1 `(font-lock-builtin-face ((,class (:foreground ,keyword - `(font-lock-comment-face ((,class (:foreground ,(if spacemacs-theme-comment-italic comment-light comment) :background ,(when spacemacs-theme-comment-bg comment-bg) :slant ,(if spacemacs-theme-comment-italic 'italic 'normal) + `(font-lock-comment-face ((,class (:foreground ,(if spacemacs-theme-comment-italic comment-light comment) :background ,(if spacemacs-theme-comment-bg comment-bg 'unspecified) :slant ,(if spacemacs-theme-comment-italic 'italic 'normal) `(font-lock-constant-face ((,class (:foreground ,const `(font-lock-doc-face ((,class (:foreground ,meta `(font-lock-function-name-face ((,class (:foreground ,func :inherit bold @@ -614,12 +614,12 @@ to 'auto, tags may not be properly aligned. " `(font-latex-italic-face ((,class (:foreground ,keyword :slant italic `(font-latex-match-reference-keywords ((,class (:foreground ,const `(font-latex-match-variable-keywords ((,class (:foreground ,var - `(font-latex-sectioning-0-face ((,class (:inherit bold :foreground ,head3 :height ,(if spacemacs-theme-org-height 1.3 1.0) :background ,(when spacemacs-theme-org-highlight head3-bg) - `(font-latex-sectioning-1-face ((,class (:inherit bold :foreground ,head4 :height ,(if spacemacs-theme-org-height 1.3 1.0) :background ,(when spacemacs-theme-org-highlight head4-bg) - `(font-latex-sectioning-2-face ((,class (:inherit bold :foreground ,head1 :height ,(if spacemacs-theme-org-height 1.3 1.0) :background ,(when spacemacs-theme-org-highlight head1-bg) - `(font-latex-sectioning-3-face ((,class (:inherit bold :foreground ,head2 :height ,(if spacemacs-theme-org-height 1.2 1.0) :background ,(when spacemacs-theme-org-highlight head2-bg) - `(font-latex-sectioning-4-face ((,class (:weight normal :foreground ,head3 :height ,(if spacemacs-theme-org-height 1.1 1.0) :background ,(when spacemacs-theme-org-highlight head3-bg) - `(font-latex-sectioning-5-face ((,class (:weight normal :foreground ,head4 :background ,(when spacemacs-theme-org-highlight head4-bg) + `(font-latex-sectioning-0-face ((,class (:inherit bold :foreground ,head3 :height ,(if spacemacs-theme-org-height 1.3 1.0) :background ,(if spacemacs-theme-org-highlight head3-bg 'unspecified) + `(font-latex-sectioning-1-face ((,class (:inherit bold :foreground ,head4 :height ,(if spacemacs-theme-org-height 1.3 1.0) :background ,(if spacemacs-theme-org-highlight head4-bg 'unspecified) + `(font-latex-sectioning-2-face ((,class (:inherit bold :foreground ,head1 :height ,(if spacemacs-theme-org-height 1.3 1.0) :background ,(if spacemacs-theme-org-highlight head1-bg 'unspecified) + `(font-latex-sectioning-3-face ((,class (:inherit bold :foreground ,head2 :height ,(if spacemacs-theme-org-height 1.2 1.0) :background ,(if spacemacs-theme-org-highlight head2-bg 'unspecified) + `(font-latex-sectioning-4-face ((,class (:weight normal :foreground ,head3 :height ,(if spacemacs-theme-org-height 1.1 1.0) :background ,(if spacemacs-theme-org-highlight head3-bg 'unspecified) + `(font-latex-sectioning-5-face ((,class (:weight normal :foreground ,head4 :background ,(if spacemacs-theme-org-highlight head4-bg 'unspecified) `(font-latex-string-face ((,class (:foreground ,str `(font-latex-warning-face ((,class (:foreground ,war @@ -695,10 +695,10 @@ to 'auto, tags may not be properly aligned. " `(Man-underline ((,class (:foreground ,comp :underline t ; markdown - `(markdown-header-face-1 ((,class (:inherit bold :foreground ,head1 :height ,(if spacemacs-theme-org-height 1.3 1.0) :background ,(when spacemacs-theme-org-highlight head1-bg) - `(markdown-header-face-2 ((,class (:inherit bold :foreground ,head2 :height ,(if spacemacs-theme-org-height 1.2 1.0) :background ,(when spacemacs-theme-org-highlight head2-bg) - `(markdown-header-face-3 ((,class (:weight normal :foreground ,head3 :height ,(if spacemacs-theme-org-height 1.1 1.0) :background ,(when spacemacs-theme-org-highlight head3-bg) - `(markdown-header-face-4 ((,class (:weight normal :foreground ,head4 :background ,(when spacemacs-theme-org-highlight head4-bg) + `(markdown-header-face-1
[nongnu] elpa/spacemacs-theme 05fe9bc750 3/3: Merge pull request #200 from lebensterben/master
branch: elpa/spacemacs-theme commit 05fe9bc750203960179d456ae4079d582561659c Merge: 1ec73d68b0 5a453a9d73 Author: Nasser Alshammari Commit: GitHub Merge pull request #200 from lebensterben/master update face-attributes to latest conventions --- spacemacs-common.el | 102 ++-- 1 file changed, 51 insertions(+), 51 deletions(-) diff --git a/spacemacs-common.el b/spacemacs-common.el index 591e782ef3..8f999e0f64 100644 --- a/spacemacs-common.el +++ b/spacemacs-common.el @@ -173,12 +173,12 @@ to 'auto, tags may not be properly aligned. " `(cursor ((,class (:background ,cursor `(custom-button ((,class :background ,bg2 :foreground ,base :box (:line-width 2 :style released-button `(default ((,class (:background ,bg1 :foreground ,base - `(default-italic ((,class (:italic t + `(default-italic ((,class (:slant italic `(error ((,class (:foreground ,err `(eval-sexp-fu-flash ((,class (:background ,suc :foreground ,bg1 `(eval-sexp-fu-flash-error ((,class (:background ,err :foreground ,bg1 `(font-lock-builtin-face ((,class (:foreground ,keyword - `(font-lock-comment-face ((,class (:foreground ,(if spacemacs-theme-comment-italic comment-light comment) :background ,(when spacemacs-theme-comment-bg comment-bg) :slant ,(if spacemacs-theme-comment-italic 'italic 'normal) + `(font-lock-comment-face ((,class (:foreground ,(if spacemacs-theme-comment-italic comment-light comment) :background ,(if spacemacs-theme-comment-bg comment-bg 'unspecified) :slant ,(if spacemacs-theme-comment-italic 'italic 'normal) `(font-lock-constant-face ((,class (:foreground ,const `(font-lock-doc-face ((,class (:foreground ,meta `(font-lock-function-name-face ((,class (:foreground ,func :inherit bold @@ -205,7 +205,7 @@ to 'auto, tags may not be properly aligned. " `(secondary-selection ((,class (:background ,bg3 `(shadow ((,class (:foreground ,base-dim `(success ((,class (:foreground ,suc - `(tooltip ((,class (:background ,ttip-sl :foreground ,base :bold nil :italic nil :underline nil + `(tooltip ((,class (:background ,ttip-sl :foreground ,base :weight normal :slant normal :underline nil `(vertical-border ((,class (:foreground ,border `(warning ((,class (:foreground ,war `(widget-button-pressed ((,class (:foreground ,green @@ -277,11 +277,11 @@ to 'auto, tags may not be properly aligned. " `(centaur-tabs-modified-marker-unselected ((,class (:inherit 'centaur-tabs-unselected :foreground,keyword ; cider - `(cider-enlightened ((,class (:background nil :box (:color ,yellow :line-width -1 :style nil) :foreground ,yellow + `(cider-enlightened ((,class (:background unspecified :box (:color ,yellow :line-width -1 :style nil) :foreground ,yellow `(cider-enlightened-local ((,class (:foreground ,yellow `(cider-fringe-good-face ((,class (:foreground ,suc - `(cider-instrumented-face ((,class (:background nil :box (:color ,red :line-width -1 :style nil) :foreground ,red - `(cider-result-overlay-face ((,class (:background nil :box (:color ,blue :line-width -1 :style nil) :foreground ,blue + `(cider-instrumented-face ((,class (:background unspecified :box (:color ,red :line-width -1 :style nil) :foreground ,red + `(cider-result-overlay-face ((,class (:background unspecified :box (:color ,blue :line-width -1 :style nil) :foreground ,blue `(cider-test-error-face ((,class (:background ,war :foreground ,bg1 `(cider-test-failure-face ((,class (:background ,err :foreground ,bg1 `(cider-test-success-face ((,class (:background ,suc :foreground ,bg1 @@ -304,17 +304,17 @@ to 'auto, tags may not be properly aligned. " `(company-tooltip-selection ((,class (:background ,ttip-sl :foreground ,base ; diff - `(diff-added ((,class :background nil :foreground ,green :extend t))) - `(diff-changed ((,class :background nil :foreground ,blue))) + `(diff-added ((,class :background unspecified :foreground ,green :extend t))) + `(diff-changed ((,class :background unspecified :foreground ,blue))) `(diff-header((,class :background ,cblk-ln-bg :foreground ,func :extend t))) `(diff-file-header ((,class :background ,cblk-ln-bg :foreground ,cblk :extend t))) - `(diff-indicator-added ((,class :background nil :foreground ,green :extend t))) - `(diff-indicator-changed ((,class :background nil :foreground ,blue))) - `(diff-indicator-removed ((,class :background nil :foreground ,red))) + `(diff-indicator-added ((,class :background unspecified :foreground ,green :extend t))) + `(diff-indicator-changed ((,class :background unspecified :foreground ,blue))) + `(diff-
[nongnu] elpa/xah-fly-keys b011c3d9e4: new var xah-temp-dir-path. now xah-save-close-current-buffer saves non-file buffers to that dir.
branch: elpa/xah-fly-keys commit b011c3d9e49dcb97014695352fbf3740bce88bb0 Author: Xah Lee Commit: Xah Lee new var xah-temp-dir-path. now xah-save-close-current-buffer saves non-file buffers to that dir. --- xah-fly-keys.el | 15 --- 1 file changed, 12 insertions(+), 3 deletions(-) diff --git a/xah-fly-keys.el b/xah-fly-keys.el index 0bd988f5a5..bdb3fb2ffb 100644 --- a/xah-fly-keys.el +++ b/xah-fly-keys.el @@ -4,7 +4,7 @@ ;; Author: Xah Lee ( http://xahlee.info/ ) ;; Maintainer: Xah Lee -;; Version: 23.1.20230318191051 +;; Version: 23.2.20230321155840 ;; Created: 10 Sep 2013 ;; Package-Requires: ((emacs "24.1")) ;; Keywords: convenience, emulations, vim, ergoemacs @@ -2213,9 +2213,18 @@ Version: 2023-03-02" (when (> (length xah-recently-closed-buffers) xah-recently-closed-buffers-max) (setq xah-recently-closed-buffers (butlast xah-recently-closed-buffers 1 +(defvar xah-temp-dir-path nil "Path to temp dir used by xah commands. +by default, the value is (concat user-emacs-directory \"temp/\"). +Version 2023-03-21") + +(setq xah-temp-dir-path + (if xah-temp-dir-path + xah-temp-dir-path +(concat user-emacs-directory "temp/"))) + (defun xah-save-close-current-buffer () "Save and close current buffer. -If the buffer is not a file, save it to `user-emacs-directory' and named untitled_‹datetime›_‹randomhex›.txt +If the buffer is not a file, save it to `xah-temp-dir-path' and named untitled_‹datetime›_‹randomhex›.txt Version 2022-12-29 2023-01-09" (interactive) @@ -2229,7 +2238,7 @@ Version 2022-12-29 2023-01-09" (when (not (equal (point-max) 1)) (write-file (format "%suntitled_%s_%x.txt" - user-emacs-directory + xah-temp-dir-path (format-time-string "%Y%m%d_%H%M%S") (random #xf))) (kill-buffer))
[nongnu] elpa/spacemacs-theme updated (1ec73d68b0 -> 05fe9bc750)
elpasync pushed a change to branch elpa/spacemacs-theme. from 1ec73d68b0 Merge pull request #198 from eeshugerman/patch-1 new 5d3ccc192f update face-attributes to latest conventions new 5a453a9d73 more update on face attributes new 05fe9bc750 Merge pull request #200 from lebensterben/master Summary of changes: spacemacs-common.el | 102 ++-- 1 file changed, 51 insertions(+), 51 deletions(-)
[nongnu] elpa/spacemacs-theme 5d3ccc192f 1/3: update face-attributes to latest conventions
branch: elpa/spacemacs-theme commit 5d3ccc192ff5785e5a9e960c48252e0b3ab9e88c Author: Lucius Hu Commit: Lucius Hu update face-attributes to latest conventions Changed `nil` values in `:foreground` and `:background` attributes to `'unspecified`. Changed `:bold t` and `:bold nil` to `:weight 'bold` and `:weight 'normal` respectively. Changed `:italic t` and `:italic nil` to `:slant 'italic` and `:slant 'normal` respectively. --- spacemacs-common.el | 88 ++--- 1 file changed, 44 insertions(+), 44 deletions(-) diff --git a/spacemacs-common.el b/spacemacs-common.el index 591e782ef3..9e033403ea 100644 --- a/spacemacs-common.el +++ b/spacemacs-common.el @@ -173,7 +173,7 @@ to 'auto, tags may not be properly aligned. " `(cursor ((,class (:background ,cursor `(custom-button ((,class :background ,bg2 :foreground ,base :box (:line-width 2 :style released-button `(default ((,class (:background ,bg1 :foreground ,base - `(default-italic ((,class (:italic t + `(default-italic ((,class (:slant italic `(error ((,class (:foreground ,err `(eval-sexp-fu-flash ((,class (:background ,suc :foreground ,bg1 `(eval-sexp-fu-flash-error ((,class (:background ,err :foreground ,bg1 @@ -205,7 +205,7 @@ to 'auto, tags may not be properly aligned. " `(secondary-selection ((,class (:background ,bg3 `(shadow ((,class (:foreground ,base-dim `(success ((,class (:foreground ,suc - `(tooltip ((,class (:background ,ttip-sl :foreground ,base :bold nil :italic nil :underline nil + `(tooltip ((,class (:background ,ttip-sl :foreground ,base :weight normal :slant normal :underline nil `(vertical-border ((,class (:foreground ,border `(warning ((,class (:foreground ,war `(widget-button-pressed ((,class (:foreground ,green @@ -277,11 +277,11 @@ to 'auto, tags may not be properly aligned. " `(centaur-tabs-modified-marker-unselected ((,class (:inherit 'centaur-tabs-unselected :foreground,keyword ; cider - `(cider-enlightened ((,class (:background nil :box (:color ,yellow :line-width -1 :style nil) :foreground ,yellow + `(cider-enlightened ((,class (:background unspecified :box (:color ,yellow :line-width -1 :style nil) :foreground ,yellow `(cider-enlightened-local ((,class (:foreground ,yellow `(cider-fringe-good-face ((,class (:foreground ,suc - `(cider-instrumented-face ((,class (:background nil :box (:color ,red :line-width -1 :style nil) :foreground ,red - `(cider-result-overlay-face ((,class (:background nil :box (:color ,blue :line-width -1 :style nil) :foreground ,blue + `(cider-instrumented-face ((,class (:background unspecified :box (:color ,red :line-width -1 :style nil) :foreground ,red + `(cider-result-overlay-face ((,class (:background unspecified :box (:color ,blue :line-width -1 :style nil) :foreground ,blue `(cider-test-error-face ((,class (:background ,war :foreground ,bg1 `(cider-test-failure-face ((,class (:background ,err :foreground ,bg1 `(cider-test-success-face ((,class (:background ,suc :foreground ,bg1 @@ -304,17 +304,17 @@ to 'auto, tags may not be properly aligned. " `(company-tooltip-selection ((,class (:background ,ttip-sl :foreground ,base ; diff - `(diff-added ((,class :background nil :foreground ,green :extend t))) - `(diff-changed ((,class :background nil :foreground ,blue))) + `(diff-added ((,class :background unspecified :foreground ,green :extend t))) + `(diff-changed ((,class :background unspecified :foreground ,blue))) `(diff-header((,class :background ,cblk-ln-bg :foreground ,func :extend t))) `(diff-file-header ((,class :background ,cblk-ln-bg :foreground ,cblk :extend t))) - `(diff-indicator-added ((,class :background nil :foreground ,green :extend t))) - `(diff-indicator-changed ((,class :background nil :foreground ,blue))) - `(diff-indicator-removed ((,class :background nil :foreground ,red))) + `(diff-indicator-added ((,class :background unspecified :foreground ,green :extend t))) + `(diff-indicator-changed ((,class :background unspecified :foreground ,blue))) + `(diff-indicator-removed ((,class :background unspecified :foreground ,red))) `(diff-refine-added ((,class :background ,green :foreground ,bg1))) `(diff-refine-changed((,class :background ,blue :foreground ,bg1))) `(diff-refine-removed((,class :background ,red :foreground ,bg1))) - `(diff-removed ((,class :background nil :foreground ,red :extend t))) + `(diff-removed ((,class :background unspecified :foreground ,red :extend t))) ; diff-hl `(diff-hl-insert ((,class :background ,green
[nongnu] elpa/org-mime 3cbd663066 1/2: Added support for In-Reply-To header
branch: elpa/org-mime commit 3cbd663066c90a2953013d0a7e8e08b5c842d757 Author: Nick Anderson Commit: Nick Anderson Added support for In-Reply-To header This change adds support for the In-Reply-To header. This allows you to leverage a capture template when reading an email in something like mu4e so that your response to an email thread is associated with the appropriate previous message. --- README.org | 3 ++- org-mime.el | 21 ++--- 2 files changed, 16 insertions(+), 8 deletions(-) diff --git a/README.org b/README.org index 2330c65ceb..0a0d70e78b 100644 --- a/README.org +++ b/README.org @@ -50,7 +50,7 @@ The following key bindings are suggested, which bind the C-c M-o key sequence to ** =M-x org-mime-org-subtree-htmlize= =org-mime-org-subtree-htmlize= is similar to =org-mime-org-buffer-htmlize= but works on subtree. It can also read subtree properties MAIL_SUBJECT, -MAIL_TO, MAIL_CC, and MAIL_BCC. Here is the sample of subtree: +MAIL_TO, MAIL_CC, MAIL_BCC, and MAIL_IN_REPLY_TO. Here is the sample of subtree: #+begin_example * mail one :PROPERTIES: @@ -58,6 +58,7 @@ MAIL_TO, MAIL_CC, and MAIL_BCC. Here is the sample of subtree: :MAIL_TO: pers...@gmail.com :MAIL_CC: pers...@gmail.com :MAIL_BCC: pers...@gmail.com + :MAIL_IN_REPLY_TO: :END: some text here ... #+end_example diff --git a/org-mime.el b/org-mime.el index c0154f4594..0187b987ad 100644 --- a/org-mime.el +++ b/org-mime.el @@ -43,7 +43,7 @@ ;; ;; `org-mime-org-subtree-htmlize' is similar to `org-mime-org-buffer-htmlize' ;; but works on current subtree. It can read following subtree properties: -;; MAIL_SUBJECT, MAIL_TO, MAIL_FROM, MAIL_CC, and MAIL_BCC. +;; MAIL_SUBJECT, MAIL_TO, MAIL_FROM, MAIL_CC, and MAIL_BCC. MAIL_IN_REPLY_TO ;; ;; Here is the sample of a subtree: ;; * mail one @@ -53,6 +53,7 @@ ;; :MAIL_FROM: sen...@gmail.com ;; :MAIL_CC: pers...@gmail.com ;; :MAIL_BCC: pers...@gmail.com +;; :MAIL_IN_REPLY_TO: ;; :END: ;; ;; To avoid exporting the table of contents, you can setup @@ -625,7 +626,7 @@ If called with an active region only export that region, otherwise entire body." (org-element-map (org-element-parse-buffer) 'keyword (lambda (keyword) (when (and (string= (org-element-property :key keyword) "PROPERTY") - (string-match "^MAIL_\\(TO\\|SUBJECT\\|CC\\|BCC\\|FROM\\) +" + (string-match "^MAIL_\\(TO\\|SUBJECT\\|CC\\|BCC\\|IN_REPLY_TO\\|FROM\\) +" (setq value (org-element-property :value keyword))) (setq key (concat "MAIL_" (match-string 1 value))) (setq rlt @@ -634,9 +635,9 @@ If called with an active region only export that region, otherwise entire body." (string-trim (replace-regexp-in-string key "" value rlt)) -(defun org-mime-build-mail-other-headers (cc bcc from) - "Build mail header from CC, BCC, and FROM." - (let* ((arr (list (cons "Cc" cc) (cons "Bcc" bcc) (cons "From" from ))) +(defun org-mime-build-mail-other-headers (cc bcc from in-reply-to) + "Build mail header from CC, BCC, IN_REPLY_TO and FROM." + (let* ((arr (list (cons "Cc" cc) (cons "Bcc" bcc) (cons "From" from ) (cons "In-Reply-To" in-reply-to ))) rlt) (dolist (e arr) (when (cdr e) @@ -655,6 +656,8 @@ The following file keywords can be used to control the headers: #+MAIL_CC: some2@some.place #+MAIL_BCC: some3@some.place #+MAIL_FROM: sender@some.place +#+MAIL_FROM: sender@some.place +#+MAIL_IN_REPLY_TO: The cursor ends in the TO field." (interactive) @@ -672,9 +675,11 @@ The cursor ends in the TO field." (cc (plist-get props :MAIL_CC)) (bcc (plist-get props :MAIL_BCC)) (from (plist-get props :MAIL_FROM)) + (in-reply-to (plist-get props :MAIL_IN_REPLY_TO)) (other-headers (org-mime-build-mail-other-headers cc bcc - from))) + from + in-reply-to))) (org-mime-compose exported file to subject other-headers) (message-goto-to))) @@ -722,10 +727,12 @@ Following headline properties can determine the mail headers. (plist-get props :MAIL_CC))) (bcc (or (org-mime-attr "MAIL_BCC") (plist-get props :MAIL_BCC))) + (in-reply-to (or (org-mime-attr "MAIL_IN_REPLY_TO") + (plist-get props :MAIL_BCC))) (from (or (org-mime-attr "MAIL_FROM") (plist-get props :MAIL_FROM))) ;; Thanks to Matt Price improving handling of cc & bcc headers - (other-headers (org-mime-build-mail-other-headers cc bcc from)) + (other-headers
[nongnu] elpa/org-mime d368bd4119 2/2: Merge pull request #86 from nickanderson/issue-85/master
branch: elpa/org-mime commit d368bd4119bfcf2997a6a23bbf5f41e043164d29 Merge: cc00afcf02 3cbd663066 Author: Chen Bin Commit: GitHub Merge pull request #86 from nickanderson/issue-85/master Added support for In-Reply-To header --- README.org | 3 ++- org-mime.el | 21 ++--- 2 files changed, 16 insertions(+), 8 deletions(-) diff --git a/README.org b/README.org index 2330c65ceb..0a0d70e78b 100644 --- a/README.org +++ b/README.org @@ -50,7 +50,7 @@ The following key bindings are suggested, which bind the C-c M-o key sequence to ** =M-x org-mime-org-subtree-htmlize= =org-mime-org-subtree-htmlize= is similar to =org-mime-org-buffer-htmlize= but works on subtree. It can also read subtree properties MAIL_SUBJECT, -MAIL_TO, MAIL_CC, and MAIL_BCC. Here is the sample of subtree: +MAIL_TO, MAIL_CC, MAIL_BCC, and MAIL_IN_REPLY_TO. Here is the sample of subtree: #+begin_example * mail one :PROPERTIES: @@ -58,6 +58,7 @@ MAIL_TO, MAIL_CC, and MAIL_BCC. Here is the sample of subtree: :MAIL_TO: pers...@gmail.com :MAIL_CC: pers...@gmail.com :MAIL_BCC: pers...@gmail.com + :MAIL_IN_REPLY_TO: :END: some text here ... #+end_example diff --git a/org-mime.el b/org-mime.el index c0154f4594..0187b987ad 100644 --- a/org-mime.el +++ b/org-mime.el @@ -43,7 +43,7 @@ ;; ;; `org-mime-org-subtree-htmlize' is similar to `org-mime-org-buffer-htmlize' ;; but works on current subtree. It can read following subtree properties: -;; MAIL_SUBJECT, MAIL_TO, MAIL_FROM, MAIL_CC, and MAIL_BCC. +;; MAIL_SUBJECT, MAIL_TO, MAIL_FROM, MAIL_CC, and MAIL_BCC. MAIL_IN_REPLY_TO ;; ;; Here is the sample of a subtree: ;; * mail one @@ -53,6 +53,7 @@ ;; :MAIL_FROM: sen...@gmail.com ;; :MAIL_CC: pers...@gmail.com ;; :MAIL_BCC: pers...@gmail.com +;; :MAIL_IN_REPLY_TO: ;; :END: ;; ;; To avoid exporting the table of contents, you can setup @@ -625,7 +626,7 @@ If called with an active region only export that region, otherwise entire body." (org-element-map (org-element-parse-buffer) 'keyword (lambda (keyword) (when (and (string= (org-element-property :key keyword) "PROPERTY") - (string-match "^MAIL_\\(TO\\|SUBJECT\\|CC\\|BCC\\|FROM\\) +" + (string-match "^MAIL_\\(TO\\|SUBJECT\\|CC\\|BCC\\|IN_REPLY_TO\\|FROM\\) +" (setq value (org-element-property :value keyword))) (setq key (concat "MAIL_" (match-string 1 value))) (setq rlt @@ -634,9 +635,9 @@ If called with an active region only export that region, otherwise entire body." (string-trim (replace-regexp-in-string key "" value rlt)) -(defun org-mime-build-mail-other-headers (cc bcc from) - "Build mail header from CC, BCC, and FROM." - (let* ((arr (list (cons "Cc" cc) (cons "Bcc" bcc) (cons "From" from ))) +(defun org-mime-build-mail-other-headers (cc bcc from in-reply-to) + "Build mail header from CC, BCC, IN_REPLY_TO and FROM." + (let* ((arr (list (cons "Cc" cc) (cons "Bcc" bcc) (cons "From" from ) (cons "In-Reply-To" in-reply-to ))) rlt) (dolist (e arr) (when (cdr e) @@ -655,6 +656,8 @@ The following file keywords can be used to control the headers: #+MAIL_CC: some2@some.place #+MAIL_BCC: some3@some.place #+MAIL_FROM: sender@some.place +#+MAIL_FROM: sender@some.place +#+MAIL_IN_REPLY_TO: The cursor ends in the TO field." (interactive) @@ -672,9 +675,11 @@ The cursor ends in the TO field." (cc (plist-get props :MAIL_CC)) (bcc (plist-get props :MAIL_BCC)) (from (plist-get props :MAIL_FROM)) + (in-reply-to (plist-get props :MAIL_IN_REPLY_TO)) (other-headers (org-mime-build-mail-other-headers cc bcc - from))) + from + in-reply-to))) (org-mime-compose exported file to subject other-headers) (message-goto-to))) @@ -722,10 +727,12 @@ Following headline properties can determine the mail headers. (plist-get props :MAIL_CC))) (bcc (or (org-mime-attr "MAIL_BCC") (plist-get props :MAIL_BCC))) + (in-reply-to (or (org-mime-attr "MAIL_IN_REPLY_TO") + (plist-get props :MAIL_BCC))) (from (or (org-mime-attr "MAIL_FROM") (plist-get props :MAIL_FROM))) ;; Thanks to Matt Price improving handling of cc & bcc headers - (other-headers (org-mime-build-mail-other-headers cc bcc from)) + (other-headers (org-mime-build-mail-other-headers cc bcc from in-reply-to)) (org-export-show-temporary-export-buffer nil) (org-export-show-temporary-export-buffer nil)
[elpa] externals/realgux-trepan-xpy f758f48266: Get ready for release 1.0.1
branch: externals/realgux-trepan-xpy commit f758f48266d90775643454e72214e40a4ed320b8 Author: rocky Commit: rocky Get ready for release 1.0.1 --- .gitignore| 2 ++ NEWS | 6 ++ THANKS| 0 configure.ac | 2 +- realgud-trepan-xpy.el | 4 ++-- 5 files changed, 11 insertions(+), 3 deletions(-) diff --git a/.gitignore b/.gitignore index 98b94ebf0f..14a45ea398 100644 --- a/.gitignore +++ b/.gitignore @@ -5,6 +5,7 @@ /.byebug_history /.python-version /.ruby-version +/ChangeLog /README /aclocal.m4 /autom4te.cache @@ -13,6 +14,7 @@ /config.status /configure /configure.lineno +/dist /elpa /install-sh /missing diff --git a/NEWS b/NEWS index 7a504b98ab..988d99e0c2 100644 --- a/NEWS +++ b/NEWS @@ -1,3 +1,9 @@ +1.0.1 March 21 2021 +=== + +Minor corrections + + 1.0.0 = diff --git a/THANKS b/THANKS new file mode 100644 index 00..e69de29bb2 diff --git a/configure.ac b/configure.ac index d8437906d5..73c89d424a 100644 --- a/configure.ac +++ b/configure.ac @@ -1,5 +1,5 @@ dnl FIXME: pick up from realgud.el -AC_INIT([realgud-trepan-xpy],[1.0.0],[]) +AC_INIT([realgud-trepan-xpy],[1.0.1],[]) AC_CONFIG_SRCDIR(trepan-xpy/trepan-xpy.el) AM_INIT_AUTOMAKE([foreign]) AM_MAINTAINER_MODE diff --git a/realgud-trepan-xpy.el b/realgud-trepan-xpy.el index cc620acf79..05c91da66a 100644 --- a/realgud-trepan-xpy.el +++ b/realgud-trepan-xpy.el @@ -1,13 +1,13 @@ ;;; realgud-trepan-xpy.el --- Realgud front-end to trepan-xpy -*- lexical-binding: t -*- ;; Author: Rocky Bernstein -;; Version: 1.0.0 +;; Version: 1.0.1 ;; Package-Type: multi ;; Package-Requires: ((realgud "1.5.0") (load-relative "1.3.1") (emacs "25")) ;; URL: https://github.com/realgud/realgud-trepan-xpy ;; Compatibility: GNU Emacs 25.x -;; Copyright (C) 2019 Free Software Foundation, Inc +;; Copyright (C) 2019, 2023 Free Software Foundation, Inc ;; Author: Rocky Bernstein
[elpa] branch externals/realgux-trepan-xpy created (now f758f48266)
rocky pushed a change to branch externals/realgux-trepan-xpy. at f758f48266 Get ready for release 1.0.1 This branch includes the following new commits: new f758f48266 Get ready for release 1.0.1
[elpa] externals/realgud-trepan-xpy updated (9fae50636f -> f758f48266)
elpasync pushed a change to branch externals/realgud-trepan-xpy. from 9fae50636f Merge pull request #1 from mplscorwin/patch-1 adds f758f48266 Get ready for release 1.0.1 No new revisions were added by this update. Summary of changes: .gitignore| 2 ++ NEWS | 6 ++ THANKS| 0 configure.ac | 2 +- realgud-trepan-xpy.el | 4 ++-- 5 files changed, 11 insertions(+), 3 deletions(-) create mode 100644 THANKS
[nongnu] elpa/telephone-line 202f9c94f7 2/2: Merge pull request #138 from gcentauri/master
branch: elpa/telephone-line commit 202f9c94f7b86827ab7ebb6dbce8302b0447d6ff Merge: 314187790b 35086a65af Author: Daniel Bordak Commit: GitHub Merge pull request #138 from gcentauri/master Fix: quote flymake--mode-line-format symbol boundp check --- telephone-line-segments.el | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/telephone-line-segments.el b/telephone-line-segments.el index 80266d08fb..35eefbe221 100644 --- a/telephone-line-segments.el +++ b/telephone-line-segments.el @@ -288,8 +288,7 @@ Configure the face group telephone-line-evil to change the colors per-mode." "Wraps `flymake-mode' mode-line information in a telephone-line segment." (when (bound-and-true-p flymake-mode) (telephone-line-raw - (if (boundp flymake--mode-line-format) - flymake--mode-line-format + (if (boundp 'flymake--mode-line-format) flymake--mode-line-format flymake-mode-line-format) t))) (telephone-line-defsegment telephone-line-flycheck-segment ()
[nongnu] elpa/telephone-line 35086a65af 1/2: Fix: quote flymake--mode-line-format symbol boundp check
branch: elpa/telephone-line commit 35086a65aff4d7aa2c8e878b29159050a7d74a64 Author: Grant Shangreaux Commit: Grant Shangreaux Fix: quote flymake--mode-line-format symbol boundp check It seems like the symbol flymake--mode-line-format is no longer found in the flymake package's code, so this was raising a void symbol error. Quoting it should keep it backwards compatible for whatever behavior this was using previously, and prevent the error from making it so the flymake-mode-line-format variable was not being processed. --- telephone-line-segments.el | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/telephone-line-segments.el b/telephone-line-segments.el index 80266d08fb..35eefbe221 100644 --- a/telephone-line-segments.el +++ b/telephone-line-segments.el @@ -288,8 +288,7 @@ Configure the face group telephone-line-evil to change the colors per-mode." "Wraps `flymake-mode' mode-line information in a telephone-line segment." (when (bound-and-true-p flymake-mode) (telephone-line-raw - (if (boundp flymake--mode-line-format) - flymake--mode-line-format + (if (boundp 'flymake--mode-line-format) flymake--mode-line-format flymake-mode-line-format) t))) (telephone-line-defsegment telephone-line-flycheck-segment ()
[elpa] externals/async 3f91ce8b96 2/2: Merge pull request #174 from Fuco1/bugfix/autoclose-err-buffer
branch: externals/async commit 3f91ce8b963cd6909c6578f87b5545fd761f1547 Merge: aee2947bd5 7df20ed3b8 Author: Thierry Volpiatto Commit: GitHub Merge pull request #174 from Fuco1/bugfix/autoclose-err-buffer feat: automatically close error buffer when process finishes --- async.el| 9 ++--- tests/test-async.el | 50 ++ 2 files changed, 56 insertions(+), 3 deletions(-) diff --git a/async.el b/async.el index ffbd99ef6b..aa0ccaba0c 100644 --- a/async.el +++ b/async.el @@ -401,17 +401,20 @@ object will return the process object when the program is finished. Set DEFAULT-DIRECTORY to change PROGRAM's current working directory." (let* ((buf (generate-new-buffer (concat "*" name "*"))) - (buf-err (and async-debug - (generate-new-buffer (concat "*" name "*:err" + (buf-err (generate-new-buffer (concat "*" name ":err*"))) (proc (let ((process-connection-type nil)) (make-process :name name :buffer buf :stderr buf-err :command (cons program program-args) +(set-process-sentinel + (get-buffer-process buf-err) + (lambda (proc _change) + (unless (or async-debug (buffer-live-p proc)) + (kill-buffer (process-buffer proc) (with-current-buffer buf (set (make-local-variable 'async-callback) finish-func) - (set (make-local-variable 'async-read-marker) (set-marker (make-marker) (point-min) buf)) (set-marker-insertion-type async-read-marker nil) diff --git a/tests/test-async.el b/tests/test-async.el index 7bc9ef0e4c..eda5c616c0 100644 --- a/tests/test-async.el +++ b/tests/test-async.el @@ -1,4 +1,5 @@ ;; -*- lexical-binding: t -*- +(require 'subr-x) (require 'buttercup) (require 'async) @@ -206,6 +207,55 @@ (expect (car messages) :to-equal t) (expect (cadr messages) :to-equal (make-string 10485760 ?x)) + (describe "Handling process buffers" + +(it "should automatically close stdout and stderr buffer when process exits" + + (let ((messages nil)) +(async-start + (lambda () + (message "This is a test") + (sleep-for 0.5) + 222) + + (lambda (result) + (push (format "Async process done, result should be 222: %s" result) messages))) + +(sleep-for 1) + +(expect (string-join (nreverse messages) "\n") +:to-equal "Async process done, result should be 222: 222") +(expect (cl-find-if (lambda (x) (string-match-p "emacs" x)) (mapcar #'buffer-name (buffer-list))) +:to-be nil) +(expect (cl-find-if (lambda (x) (string-match-p "emacs:err" x)) (mapcar #'buffer-name (buffer-list))) +:to-be nil))) + +(it "should keep stdout and stderr buffer when process exits if debug is active" + + (unwind-protect + (let ((messages nil) +(async-debug t)) +(async-start + (lambda () + (message "This is a test") + (sleep-for 0.5) + 222) + + (lambda (result) + (push (format "Async process done, result should be 222: %s" result) messages))) + +(sleep-for 1) + +(expect (string-join (nreverse messages) "\n") +:to-equal "Async process done, result should be 222: 222") +(expect (cl-find-if (lambda (x) (string-match-p "emacs" x)) (mapcar #'buffer-name (buffer-list))) +:to-be-truthy) +(expect (cl-find-if (lambda (x) (string-match-p "emacs:err" x)) (mapcar #'buffer-name (buffer-list))) +:to-be-truthy)) +(let ((kill-buffer-query-functions nil)) + (kill-buffer "*emacs*") + (kill-buffer "*emacs:err*") + (describe "Injecting environment" (it "should construct a form for injecting the current environment"
[elpa] externals/async 7df20ed3b8 1/2: feat: automatically close error buffer when process finishes
branch: externals/async commit 7df20ed3b8aeb24f7e1683d6d488d59bc4922031 Author: Matus Goljer Commit: Matus Goljer feat: automatically close error buffer when process finishes --- async.el| 9 ++--- tests/test-async.el | 50 ++ 2 files changed, 56 insertions(+), 3 deletions(-) diff --git a/async.el b/async.el index ffbd99ef6b..aa0ccaba0c 100644 --- a/async.el +++ b/async.el @@ -401,17 +401,20 @@ object will return the process object when the program is finished. Set DEFAULT-DIRECTORY to change PROGRAM's current working directory." (let* ((buf (generate-new-buffer (concat "*" name "*"))) - (buf-err (and async-debug - (generate-new-buffer (concat "*" name "*:err" + (buf-err (generate-new-buffer (concat "*" name ":err*"))) (proc (let ((process-connection-type nil)) (make-process :name name :buffer buf :stderr buf-err :command (cons program program-args) +(set-process-sentinel + (get-buffer-process buf-err) + (lambda (proc _change) + (unless (or async-debug (buffer-live-p proc)) + (kill-buffer (process-buffer proc) (with-current-buffer buf (set (make-local-variable 'async-callback) finish-func) - (set (make-local-variable 'async-read-marker) (set-marker (make-marker) (point-min) buf)) (set-marker-insertion-type async-read-marker nil) diff --git a/tests/test-async.el b/tests/test-async.el index 7bc9ef0e4c..eda5c616c0 100644 --- a/tests/test-async.el +++ b/tests/test-async.el @@ -1,4 +1,5 @@ ;; -*- lexical-binding: t -*- +(require 'subr-x) (require 'buttercup) (require 'async) @@ -206,6 +207,55 @@ (expect (car messages) :to-equal t) (expect (cadr messages) :to-equal (make-string 10485760 ?x)) + (describe "Handling process buffers" + +(it "should automatically close stdout and stderr buffer when process exits" + + (let ((messages nil)) +(async-start + (lambda () + (message "This is a test") + (sleep-for 0.5) + 222) + + (lambda (result) + (push (format "Async process done, result should be 222: %s" result) messages))) + +(sleep-for 1) + +(expect (string-join (nreverse messages) "\n") +:to-equal "Async process done, result should be 222: 222") +(expect (cl-find-if (lambda (x) (string-match-p "emacs" x)) (mapcar #'buffer-name (buffer-list))) +:to-be nil) +(expect (cl-find-if (lambda (x) (string-match-p "emacs:err" x)) (mapcar #'buffer-name (buffer-list))) +:to-be nil))) + +(it "should keep stdout and stderr buffer when process exits if debug is active" + + (unwind-protect + (let ((messages nil) +(async-debug t)) +(async-start + (lambda () + (message "This is a test") + (sleep-for 0.5) + 222) + + (lambda (result) + (push (format "Async process done, result should be 222: %s" result) messages))) + +(sleep-for 1) + +(expect (string-join (nreverse messages) "\n") +:to-equal "Async process done, result should be 222: 222") +(expect (cl-find-if (lambda (x) (string-match-p "emacs" x)) (mapcar #'buffer-name (buffer-list))) +:to-be-truthy) +(expect (cl-find-if (lambda (x) (string-match-p "emacs:err" x)) (mapcar #'buffer-name (buffer-list))) +:to-be-truthy)) +(let ((kill-buffer-query-functions nil)) + (kill-buffer "*emacs*") + (kill-buffer "*emacs:err*") + (describe "Injecting environment" (it "should construct a form for injecting the current environment"
