[elpa] externals/eev updated (615e832 -> d915fec)
elpasync pushed a change to branch externals/eev. from 615e832 Make "eev-rcirc.el" support the LiberaChat server. new 89d6093 New file: eev-compose-hash.el. new d915fec Bumped the version in eev.el. Summary of changes: ChangeLog | 7 + VERSION | 4 +- eepitch.el | 2 + eev-blinks.el | 34 +++- eev-compose-hash.el | 500 eev-intro.el| 59 +-- eev-template0.el| 9 +- eev.el | 2 +- 8 files changed, 593 insertions(+), 24 deletions(-) create mode 100644 eev-compose-hash.el
[elpa] externals/eev d915fec 2/2: Bumped the version in eev.el.
branch: externals/eev commit d915fecc22b723d4dd8f717a57d34db4d32df9d7 Author: Eduardo Ochs Commit: Eduardo Ochs Bumped the version in eev.el. --- VERSION | 4 ++-- eev.el | 2 +- 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/VERSION b/VERSION index 0bed689..bc42da5 100644 --- a/VERSION +++ b/VERSION @@ -1,2 +1,2 @@ -Mon Jun 7 07:32:41 GMT 2021 -Mon Jun 7 04:32:42 -03 2021 +Mon Jun 7 07:38:02 GMT 2021 +Mon Jun 7 04:38:02 -03 2021 diff --git a/eev.el b/eev.el index 765287f..8698d27 100644 --- a/eev.el +++ b/eev.el @@ -6,7 +6,7 @@ ;; Package-Requires: ((emacs "24.4")) ;; Keywords: lisp e-scripts ;; URL: http://angg.twu.net/#eev -;; Version: 20210529 +;; Version: 20210607 ;; 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/eev 89d6093 1/2: New file: eev-compose-hash.el.
branch: externals/eev commit 89d609307161361699af52c4f59964e8e4af7097 Author: Eduardo Ochs Commit: Eduardo Ochs New file: eev-compose-hash.el. --- ChangeLog | 7 + VERSION | 4 +- eepitch.el | 2 + eev-blinks.el | 34 +++- eev-compose-hash.el | 500 eev-intro.el| 59 +-- eev-template0.el| 9 +- 7 files changed, 592 insertions(+), 23 deletions(-) diff --git a/ChangeLog b/ChangeLog index 3d42334..c9c2124 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,10 @@ +2021-06-07 Eduardo Ochs + + * eev-compose-hash.el: new file. + + * eev-blinks.el (ee-hashtable-to-string, find-ehashtable): new + functions. + 2021-05-28 Eduardo Ochs * eev-pdflike.el (find-pdf-page): make it an alias to diff --git a/VERSION b/VERSION index 0bdc9ca..0bed689 100644 --- a/VERSION +++ b/VERSION @@ -1,2 +1,2 @@ -Sat May 29 04:31:39 GMT 2021 -Sat May 29 01:31:39 -03 2021 +Mon Jun 7 07:32:41 GMT 2021 +Mon Jun 7 04:32:42 -03 2021 diff --git a/eepitch.el b/eepitch.el index 56311c1..f7ca025 100644 --- a/eepitch.el +++ b/eepitch.el @@ -249,6 +249,8 @@ This function is used by `eepitch-this-line'." ;; ;; «eepitch» (to ".eepitch") ;; See: (find-eepitch-intro "2.3. `(eepitch)'") +;; See this for a way to use red bullets insted of red stars: +;; https://lists.gnu.org/archive/html/help-gnu-emacs/2021-05/msg01080.html (defvar eepitch-regexp "^\\(.*\\)" "The regexp used by `eepitch-this-line' to determine what is a red-star line. diff --git a/eev-blinks.el b/eev-blinks.el index 4a2b803..e69252d 100644 --- a/eev-blinks.el +++ b/eev-blinks.el @@ -21,7 +21,7 @@ ;; ;; Author: Eduardo Ochs ;; Maintainer: Eduardo Ochs -;; Version:20210516 +;; Version:20210607 ;; Keywords: e-scripts ;; ;; Latest version: <http://angg.twu.net/eev-current/eev-blinks.el> @@ -52,6 +52,7 @@ ;; «.find-ebuffer» (to "find-ebuffer") ;; «.find-eoutput» (to "find-eoutput") ;; «.find-estring» (to "find-estring") +;; «.find-ehashtable» (to "find-ehashtable") ;; «.find-sh» (to "find-sh") ;; «.find-man» (to "find-man") ;; «.find-man-bug» (to "find-man-bug") @@ -588,6 +589,37 @@ The \"Local variables:\" section in the buffer is processed." +;;; _ _ __ _ +;;; | |__ __ _ ___| |__ | |_ __ _| |__ | | ___ ___ +;;; | '_ \ / _` / __| '_ \ | __/ _` | '_ \| |/ _ \/ __| +;;; | | | | (_| \__ \ | | | | || (_| | |_) | | __/\__ \ +;;; |_| |_|\__,_|___/_| |_| \__\__,_|_.__/|_|\___||___/ +;;; +;; «find-ehashtable» (to ".find-ehashtable") + +(defun ee-hashtable-to-string (f hashtable) + "Apply F to each key-value pair of HASHTABLE, and return a big string. +The function F should be a function that expects three arguments +- the key, the value, and the hashtable - and returns either a +line terminated by a newline or an empty string. The lines +returned by F are collected in a list, then sorted, and then the +duplicates are removed; the result after that is concatenated +into a big string, and returned. The key-value pairs for which F +returned an empty string disappear in the concatenation. + +If F is nil then use a default function. + +I often refer to strings that may have, and usually do have, +newlines, as \"big strings\". This is a bit childish, I know..." + (setq f (or f (lambda (k v h) (format "%S -> %S\n" k v + (let ((lines (cl-loop for k being the hash-keys of hashtable + collect (funcall f k (gethash k hashtable) hashtable +(apply 'concat (seq-uniq (sort lines 'string<) + +(defun find-ehashtable (hashtable &rest pos-spec-list) + (apply 'find-estring (ee-hashtable-to-string nil hashtable) pos-spec-list)) + + diff --git a/eev-compose-hash.el b/eev-compose-hash.el new file mode 100644 index 000..1407863 --- /dev/null +++ b/eev-compose-hash.el @@ -0,0 +1,500 @@ +;;; eev-compose-hash.el --- `M-,' as a compose key (version with hash tables) + +;; Copyright (C) 2021 Free Software Foundation, Inc. +;; +;; This file is part of GNU eev. +;; +;; GNU eev is free software: you can redistribute it and/or modify +;; it under the terms of the GNU General Public License as published by +;; the Free Software Foundation, either version 3 of the License, or +;; (at your option) any later version. +;; +;; GNU eev is distributed in the hope that it will be useful, +;; but WITHOUT ANY WARRANTY; without even the implied warranty of +;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +;; GNU General Public License for more details. +;
[nongnu] elpa/org-contrib updated (2a8f569 -> e489046)
elpasync pushed a change to branch elpa/org-contrib. from 2a8f569 README*: Announce ox-rss.el will be removed from next release new afc7633 lisp/org-attach-embedded-images.el: Add a Homepage header new 2fcaec3 README*: Announce org-attach-embedded-images.el will be removed new a5179fd lisp/org-velocity.el: Add a maintainer new e489046 lisp/ox-koma-letter.el: Add a maintainer Summary of changes: README.md | 1 + README.org | 1 + lisp/org-attach-embedded-images.el | 1 + lisp/org-velocity.el | 1 + lisp/ox-koma-letter.el | 1 + 5 files changed, 5 insertions(+)
[nongnu] elpa/org-contrib afc7633 1/4: lisp/org-attach-embedded-images.el: Add a Homepage header
branch: elpa/org-contrib commit afc7633c84aa3b5ea5f2214c980b4d37e6a7279f Author: Bastien Guerry Commit: Bastien Guerry lisp/org-attach-embedded-images.el: Add a Homepage header --- lisp/org-attach-embedded-images.el | 1 + 1 file changed, 1 insertion(+) diff --git a/lisp/org-attach-embedded-images.el b/lisp/org-attach-embedded-images.el index 45fd004..5beb37a 100644 --- a/lisp/org-attach-embedded-images.el +++ b/lisp/org-attach-embedded-images.el @@ -3,6 +3,7 @@ ;; Copyright 2018-2021 Free Software Foundation, Inc. ;; ;; Author: Marco Wahl +;; Homepage: https://gitlab.com/marcowahl/org-attach-embedded-imagse ;; Version: 0.1 ;; Keywords: org, media ;;
[nongnu] elpa/org-contrib e489046 4/4: lisp/ox-koma-letter.el: Add a maintainer
branch: elpa/org-contrib commit e489046174d90e872e172496a6c169e38dfbaae0 Author: Bastien Guerry Commit: Bastien Guerry lisp/ox-koma-letter.el: Add a maintainer --- lisp/ox-koma-letter.el | 1 + 1 file changed, 1 insertion(+) diff --git a/lisp/ox-koma-letter.el b/lisp/ox-koma-letter.el index 003df31..00ab8da 100644 --- a/lisp/ox-koma-letter.el +++ b/lisp/ox-koma-letter.el @@ -6,6 +6,7 @@ ;; Alan Schmitt ;; Viktor Rosenfeld ;; Rasmus Pank Roulund +;; Maintainer: Marco Wahl ;; Keywords: org, wp, tex ;; This program is free software: you can redistribute it and/or modify
[nongnu] elpa/org-contrib 2fcaec3 2/4: README*: Announce org-attach-embedded-images.el will be removed
branch: elpa/org-contrib commit 2fcaec3221328bfbb4ac5e0282593d6eb33f923e Author: Bastien Guerry Commit: Bastien Guerry README*: Announce org-attach-embedded-images.el will be removed --- README.md | 1 + README.org | 1 + 2 files changed, 2 insertions(+) diff --git a/README.md b/README.md index 593d259..89c65d6 100644 --- a/README.md +++ b/README.md @@ -49,6 +49,7 @@ find after the "Homepage:" keyword in the files themselves: - **ob-smiles.el:** Org-mode Babel support for SMILES - **ob-clojure-literate.el:** Clojure's Org-mode Literate Programming - **ox-rss.el:** RSS 2.0 Back-End for Org Export Engine +- **org-attach-embedded-images.el:** Transmute images to attachments # Other files diff --git a/README.org b/README.org index e781125..0a373e0 100644 --- a/README.org +++ b/README.org @@ -46,6 +46,7 @@ find after the "Homepage:" keyword in the files themselves: - ob-smiles.el :: Org-mode Babel support for SMILES - ob-clojure-literate.el :: Clojure's Org-mode Literate Programming - ox-rss.el :: RSS 2.0 Back-End for Org Export Engine +- org-attach-embedded-images.el :: Transmute images to attachments ** Other files *** Org utils
[nongnu] elpa/org-contrib a5179fd 3/4: lisp/org-velocity.el: Add a maintainer
branch: elpa/org-contrib commit a5179fd6620571ef26ffe7c8a48e633e4606d250 Author: Bastien Guerry Commit: Bastien Guerry lisp/org-velocity.el: Add a maintainer --- lisp/org-velocity.el | 1 + 1 file changed, 1 insertion(+) diff --git a/lisp/org-velocity.el b/lisp/org-velocity.el index 61c4ddc..e018b54 100644 --- a/lisp/org-velocity.el +++ b/lisp/org-velocity.el @@ -3,6 +3,7 @@ ;; Copyright (C) 2010-2014, 2021 Paul M. Rodriguez ;; Author: Paul M. Rodriguez +;; Maintainer: Marco Wahl ;; Created: 2010-05-05 ;; Version: 4.1
[elpa] externals/corfu 9295472: README: Fix example configuration (Fix #26)
branch: externals/corfu commit 929547292b273972cded50bb0bc4858489800749 Author: Daniel Mendler Commit: Daniel Mendler README: Fix example configuration (Fix #26) --- README.org | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/README.org b/README.org index 191f0ff..285c0b8 100644 --- a/README.org +++ b/README.org @@ -74,12 +74,14 @@ Orderless is not a necessity. Here is an example configuration: ;;(shell-mode . corfu-mode) ;;(eshell-mode . corfu-mode)) -:config ;; Recommended: Enable Corfu globally. ;; This is recommended since dabbrev can be used globally (M-/). +:init (corfu-global-mode) +:config + ;; Optionally enable cycling for `corfu-next' and `corfu-previous'. ;; (setq corfu-cycle t) )
[elpa] externals/emms c360a89: * emms-tag-tracktag.el Fix: typo in docstring
branch: externals/emms commit c360a8934c1e07ddab4e12d28800d362d254ccbd Author: Grant Shangreaux Commit: Grant Shangreaux * emms-tag-tracktag.el Fix: typo in docstring --- emms-tag-tracktag.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/emms-tag-tracktag.el b/emms-tag-tracktag.el index 3be8e6c..4ffabb0 100644 --- a/emms-tag-tracktag.el +++ b/emms-tag-tracktag.el @@ -44,7 +44,7 @@ "An alist mapping info-* fields to tracktag fields.") (defvar emms-tag-tracktag-log-buffer "*EMMS-LOG*" - "Name of emms-tag-tractack's log buffer. + "Name of emms-tag-tracktag's log buffer. Defaults to the same value as emms-tag-editor-log-buffer") (defun emms-tag-tracktag--map-track-info (track)
[elpa] externals/javaimp 07e1327: Add javaimp--rsb-outside-context and use it
branch: externals/javaimp
commit 07e1327afdb02832bf1964554b41499ede1415fb
Author: Filipp Gunbin
Commit: Filipp Gunbin
Add javaimp--rsb-outside-context and use it
---
javaimp-parse.el | 81 +++-
javaimp-util.el | 12 +
2 files changed, 57 insertions(+), 36 deletions(-)
diff --git a/javaimp-parse.el b/javaimp-parse.el
index 1784493..2a17d3b 100644
--- a/javaimp-parse.el
+++ b/javaimp-parse.el
@@ -60,7 +60,7 @@ present."
(member (symbol-name (javaimp-scope-type scope))
javaimp--parse-class-keywords))
(defvar javaimp--arglist-syntax-table
- (let ((st (make-syntax-table java-mode-syntax-table)))
+ (let ((st (make-syntax-table java-mode-syntax-table))) ;TODO don't depend
(modify-syntax-entry ?< "(>" st)
(modify-syntax-entry ?> ")<" st)
(modify-syntax-entry ?. "_" st) ; separates parts of fully-qualified type
@@ -179,13 +179,13 @@ present."
javaimp--parse-scope-unknown; catch-all
))
+
(defun javaimp--parse-scope-class (state)
(save-excursion
-(if (and (re-search-backward javaimp--parse-class-re nil t)
- ;; if there's no paren in between - assume we're looking at
- ;; class declaration
- (not (save-match-data
-(search-forward "(" (nth 1 state) t
+(if (and (javaimp--rsb-outside-context javaimp--parse-class-re nil t)
+ ;; Does found declaration belong to the right block?
+ (= (scan-lists (match-end 0) 1 -1)
+(1+ (nth 1 state
(make-javaimp-scope :type (intern (match-string 1))
:name (match-string 2)
:start (match-beginning 1)
@@ -202,13 +202,16 @@ present."
(scan-lists (point) -1 0
(skip-syntax-backward "-")
(let ((end (point)))
-(when (and (re-search-backward "\\" nil t)
+ ;; Does found "new" belong to the right block?
+ (= (scan-lists (match-end 0) 1 -1)
+ (1+ (nth 1 state
+ (goto-char (match-end 0))
+ (skip-syntax-forward "-")
(make-javaimp-scope :type 'anonymous-class
:name (concat "Anon_"
(buffer-substring-no-properties
- (match-end 0) end))
+ (point) end))
:start (match-beginning 0)
:open-brace (nth 1 state)))
@@ -256,13 +259,16 @@ element component will be present). Point is left at the
position from where method signature parsing may be continued.
Returns t if parsing failed and should not be continued."
(let ((pos (point)))
-(when (re-search-backward "\\" nil t)
(if (ignore-errors
-;; Does our found throws belong to the right block?
+;; Does found "throws" belong to the right block?
(= (scan-lists (match-end 0) 1 -1)
(1+ (nth 1 state
(let ((res (save-match-data
- (javaimp--parse-arglist (match-end 0)
+ (javaimp--parse-arglist (save-excursion
+ (goto-char (match-end 0))
+ (skip-syntax-forward "-")
+ (point))
(save-excursion
(goto-char pos)
(skip-syntax-backward "-")
@@ -319,33 +325,36 @@ Returns t if parsing failed and should not be continued."
;; Main
(defun javaimp--parse-get-package ()
- (save-excursion
-(save-restriction
- (widen)
- (goto-char (point-min))
- (catch 'found
-(while (re-search-forward "^\\s *package\\s +\\([^;]+\\)\\s *;" nil t)
- (let ((state (syntax-ppss)))
-(unless (syntax-ppss-context state)
- (throw 'found (match-string 1)
+ (let ((parse-sexp-ignore-comments t) ;TODO set in mode
+(parse-sexp-lookup-properties nil))
+(save-excursion
+ (save-restriction
+(widen)
+(goto-char (point-max))
+(when (javaimp--rsb-outside-context
+ "^\\s *package\\s +\\([^;]+\\)\\s *;" nil t 1)
+ (match-string 1))
(defun javaimp--parse-get-file-classes (file)
(with-temp-buffer
(insert-file-contents file)
-(let ((parse-sexp-ignore-comments t)
- (package (javaimp--parse-get-package))
+(goto-char (point-max))
+(let ((package (javaimp--parse-get-package))
+ (parse-sexp-ignore-comments t) ;TODO set in mode
+ (parse-sexp-lookup-properties nil)
res)
- (while (re-search-forward javaimp--parse-class-re nil t)
-(when (and (ignore-errors
-
