[elpa] externals/minibuffer-header 5b5ffd9cbb 2/2: Merge pull request #2 from jcs-PR/feature/autoload

[ELPA Syncer]

branch: externals/minibuffer-header
commit 5b5ffd9cbb6a07eecb2b04118ca235657f85a8df
Merge: fe5d90d3f1 dcdbaebc65
Author: Nicolas P. Rougier 
Commit: GitHub 

Merge pull request #2 from jcs-PR/feature/autoload

feat(src): add autoload
---
 minibuffer-header.el | 1 +
 1 file changed, 1 insertion(+)

diff --git a/minibuffer-header.el b/minibuffer-header.el
index 745de1e494..987d0dd501 100644
--- a/minibuffer-header.el
+++ b/minibuffer-header.el
@@ -236,6 +236,7 @@
 (run-at-time minibuffer-message-timeout nil
  #'minibuffer-header-message)
 
+;;;###autoload
 (define-minor-mode minibuffer-header-mode
   "Minor mode for installing a header line in the minibuffer"
   :group 'minibuffer-header

[elpa] externals/org updated (4075662c29 -> 95df82c5fc)

[ELPA Syncer]

elpasync pushed a change to branch externals/org.

  from  4075662c29 org-diary-sexp-entry: Cache results
   new  c940b460c7 ox-texinfo: Include LaTeX in Texinfo exports
   new  95df82c5fc org.el: Support subtree-level org-image-actual-width 
overriding


Summary of changes:
 doc/org-manual.org  | 186 ++---
 etc/ORG-NEWS|  11 ++
 lisp/org.el |  90 ++--
 lisp/ox-texinfo.el  |  95 -
 testing/lisp/test-ox-texinfo.el | 296 
 5 files changed, 551 insertions(+), 127 deletions(-)
 create mode 100644 testing/lisp/test-ox-texinfo.el

[elpa] externals/org 95df82c5fc 2/2: org.el: Support subtree-level org-image-actual-width overriding

[ELPA Syncer]

branch: externals/org
commit 95df82c5fcf926088da2aaab9354a902956ae881
Author: stardiviner 
Commit: Ihor Radchenko 

org.el: Support subtree-level org-image-actual-width overriding

* lisp/org.el (org-display-inline-image--width): Support new property
"ORG-IMAGE-ACTUAL-WIDTH" overriding global variable
`org-image-actual-width'.
---
 doc/org-manual.org | 186 ++---
 etc/ORG-NEWS   |   4 ++
 lisp/org.el|  90 +-
 3 files changed, 155 insertions(+), 125 deletions(-)

diff --git a/doc/org-manual.org b/doc/org-manual.org
index a37b8390cf..4c9c087a75 100644
--- a/doc/org-manual.org
+++ b/doc/org-manual.org
@@ -11314,6 +11314,24 @@ command:
   startup by configuring the variable
   ~org-startup-with-inline-images~[fn:119].
 
+
+  #+vindex: org-image-actual-width
+  #+cindex: @samp{ORG-IMAGE-ACTUAL-WIDTH}, property
+  By default, Org mode displays inline images according to their actual width.
+  You can customize the displayed image width using ~org-image-actual-width~ 
variable (globally) or =ORG-IMAGE-ACTUAL-WIDTH= property 
(subtree-level)[fn:120].
+  Their value can be the following:
+  - (default) Non-nil, use the actual width of images when inlining them.
+  - When set to a number, use imagemagick (when available) to set the
+image's width to this value.
+  - When set to a number in a list, try to get the width from any
+=#+ATTR.*= keyword if it matches a width specification like:
+#+begin_example
+,#+ATTR_HTML: :width 300px
+#+end_example
+and fall back on that number if none is found.
+  - When set to nil, try to get the width from an =#+ATTR.*= keyword
+and fall back on the original width if none is found.
+
 ** Captions
 :PROPERTIES:
 :DESCRIPTION: Describe tables, images...
@@ -11404,7 +11422,7 @@ The following command handles footnotes:
   #+vindex: org-footnote-define-inline
   #+vindex: org-footnote-section
   Otherwise, create a new footnote.  Depending on the variable
-  ~org-footnote-define-inline~[fn:120], the definition is placed right
+  ~org-footnote-define-inline~[fn:121], the definition is placed right
   into the text as part of the reference, or separately into the
   location determined by the variable ~org-footnote-section~.
 
@@ -11419,7 +11437,7 @@ The following command handles footnotes:
   | {{{kbd(d)}}} | Delete the footnote at point, including definition and 
references. |
 
   #+vindex: org-footnote-auto-adjust
-  Depending on the variable ~org-footnote-auto-adjust~[fn:121],
+  Depending on the variable ~org-footnote-auto-adjust~[fn:122],
   renumbering and sorting footnotes can be automatic after each
   insertion or deletion.
 
@@ -11609,7 +11627,7 @@ global variables, include:
 
   #+cindex: @samp{DATE}, keyword
   #+vindex: org-export-date-timestamp-format
-  A date or a time-stamp[fn:122].
+  A date or a time-stamp[fn:123].
 
 - =EMAIL= ::
 
@@ -11624,7 +11642,7 @@ global variables, include:
   Language to use for translating certain strings
   (~org-export-default-language~).  With =#+LANGUAGE: fr=, for
   example, Org translates =Table of contents= to the French =Table des
-  matières=[fn:123].
+  matières=[fn:124].
 
 - =SELECT_TAGS= ::
 
@@ -11901,7 +11919,7 @@ keyword:
 #+cindex: excluding entries from table of contents
 #+cindex: table of contents, exclude entries
 Org includes both numbered and unnumbered headlines in the table of
-contents[fn:124].  If you need to exclude an unnumbered headline,
+contents[fn:125].  If you need to exclude an unnumbered headline,
 along with all its children, set the =UNNUMBERED= property to =notoc=
 value.
 
@@ -12020,7 +12038,7 @@ be omitted to use the obvious defaults.
 | =#+INCLUDE: "~/.emacs" :lines "10-"=  | Include lines from 10 to EOF   |
 
 Inclusions may specify a file-link to extract an object matched by
-~org-link-search~[fn:125] (see [[*Search Options in File Links]]).  The
+~org-link-search~[fn:126] (see [[*Search Options in File Links]]).  The
 ranges for =:lines= keyword are relative to the requested element.
 Therefore,
 
@@ -12060,7 +12078,7 @@ following syntax:
 : #+MACRO: name   replacement text; $1, $2 are arguments
 
 #+texinfo: @noindent
-which can be referenced using ={{{name(arg1, arg2)}}}=[fn:126].  For
+which can be referenced using ={{{name(arg1, arg2)}}}=[fn:127].  For
 example
 
 #+begin_example
@@ -12179,7 +12197,7 @@ are not exported.
 Finally, a =COMMENT= keyword at the beginning of an entry, but after
 any other keyword or priority cookie, comments out the entire subtree.
 In this case, the subtree is not exported and no code block within it
-is executed either[fn:127].  The command below helps changing the
+is executed either[fn:128].  The command below helps changing the
 comment status of a headline.
 
 - {{{kbd(C-c ;)}}} (~org-toggle-comment~) ::
@@ -12451,7 +12469,7 @@ should in principle be exportable as a Beamer 
presentation.
 
 - Org exports a Beamer frame's obje

[elpa] externals/minibuffer-header dcdbaebc65 1/2: feat(src): add autoload

[ELPA Syncer]

branch: externals/minibuffer-header
commit dcdbaebc653673e55cab3cdad6378fd3012df96e
Author: Jen-Chieh Shen 
Commit: Jen-Chieh Shen 

feat(src): add autoload
---
 minibuffer-header.el | 1 +
 1 file changed, 1 insertion(+)

diff --git a/minibuffer-header.el b/minibuffer-header.el
index 745de1e494..987d0dd501 100644
--- a/minibuffer-header.el
+++ b/minibuffer-header.el
@@ -236,6 +236,7 @@
 (run-at-time minibuffer-message-timeout nil
  #'minibuffer-header-message)
 
+;;;###autoload
 (define-minor-mode minibuffer-header-mode
   "Minor mode for installing a header line in the minibuffer"
   :group 'minibuffer-header

[elpa] externals/org c940b460c7 1/2: ox-texinfo: Include LaTeX in Texinfo exports

[ELPA Syncer]

branch: externals/org
commit c940b460c7bb31e98089286a5a45306cc27034cc
Author: Rudolf Adamkovič 
Commit: Ihor Radchenko 

ox-texinfo: Include LaTeX in Texinfo exports

* lisp/ox-texinfo.el (org-texinfo-with-latex): New customize.
* lisp/ox-texinfo.el (org-texinfo-latex-environment): New function.
* lisp/ox-texinfo.el (org-texinfo-latex-fragment): New function.
* lisp/ox-texinfo.el (org-texinfo-supports-math-p): New function.
* lisp/ox-texinfo.el (org-texinfo-supports-math--cache): New variable.
* lisp/ox-texinfo.el (texinfo): Set latex-environment.
* lisp/ox-texinfo.el (texinfo): Set latex-fragment.
* testing/lisp/test-ox-texinfo.el: Add basic tests.
---
 etc/ORG-NEWS|   7 +
 lisp/ox-texinfo.el  |  95 -
 testing/lisp/test-ox-texinfo.el | 296 
 3 files changed, 396 insertions(+), 2 deletions(-)

diff --git a/etc/ORG-NEWS b/etc/ORG-NEWS
index a7f32671e0..e51bb6233c 100644
--- a/etc/ORG-NEWS
+++ b/etc/ORG-NEWS
@@ -489,6 +489,13 @@ support in LaTeX.  The new =babel= syntax for loading 
languages via
 =ini= files and the new command =\babelprovide= (see:
 https://mirrors.ctan.org/macros/latex/required/babel/base/babel.pdf)
 are also supported.
+*** Texinfo exports include LaTeX
+
+With the new customization option ~org-texinfo-with-latex~ set to (its
+default value) ~'detect~, if the system runs Texinfo 6.8 (3 July 2021)
+or newer, Org will export all LaTeX fragments and environments using
+Texinfo ~@math~ and ~@displaymath~ commands respectively.
+
 * Version 9.5
 
 ** Important announcements and breaking changes
diff --git a/lisp/ox-texinfo.el b/lisp/ox-texinfo.el
index 623c1632cc..1f2e8d9a1f 100644
--- a/lisp/ox-texinfo.el
+++ b/lisp/ox-texinfo.el
@@ -33,7 +33,7 @@
 (require 'ox)
 
 (defvar orgtbl-exp-regexp)
-
+(defvar org-texinfo-supports-math--cache)
 
 
 ;;; Define Back-End
@@ -58,6 +58,8 @@
 (italic . org-texinfo-italic)
 (item . org-texinfo-item)
 (keyword . org-texinfo-keyword)
+(latex-environment . org-texinfo-latex-environment)
+(latex-fragment . org-texinfo-latex-fragment)
 (line-break . org-texinfo-line-break)
 (link . org-texinfo-link)
 (node-property . org-texinfo-node-property)
@@ -123,7 +125,9 @@
 (:texinfo-text-markup-alist nil nil org-texinfo-text-markup-alist)
 (:texinfo-format-drawer-function nil nil 
org-texinfo-format-drawer-function)
 (:texinfo-format-inlinetask-function nil nil 
org-texinfo-format-inlinetask-function)
-(:texinfo-compact-itemx nil "compact-itemx" org-texinfo-compact-itemx)))
+(:texinfo-compact-itemx nil "compact-itemx" org-texinfo-compact-itemx)
+;; Redefine regular options.
+(:with-latex nil "tex" org-texinfo-with-latex)))
 
 
 ;;; User Configurable Variables
@@ -358,6 +362,22 @@ The function should return the string to be exported."
   :group 'org-export-texinfo
   :type 'function)
 
+ LaTeX
+
+(defcustom org-texinfo-with-latex (and org-export-with-latex 'detect)
+  "When non-nil, the Texinfo exporter attempts to process LaTeX math.
+
+When set to t, the exporter will process LaTeX environments and
+fragments as Texinfo \"@displaymath\" and \"@math\" commands
+respectively.  Alternatively, when set to `detect', the exporter
+does so only if the installed version of Texinfo supports the
+necessary commands."
+  :group 'org-export-texinfo
+  :type '(choice
+  (const :tag "Detect" detect)
+  (const :tag "Yes" t)
+  (const :tag "No" nil)))
+
  Itemx
 
 (defcustom org-texinfo-compact-itemx nil
@@ -1215,6 +1235,52 @@ CONTENTS is nil.  INFO is a plist holding contextual 
information."
  (concat "@listoffloats "
  (org-export-translate "Listing" :utf-8 info
 
+ LaTeX Environment
+
+(defun org-texinfo-latex-environment (environment _contents info)
+  "Transcode a LaTeX ENVIRONMENT from Org to Texinfo.
+CONTENTS is ignored.  INFO is a plist holding contextual information."
+  (let ((with-latex (plist-get info :with-latex)))
+(when (or (eq with-latex t)
+  (and (eq with-latex 'detect)
+   (org-texinfo-supports-math-p)))
+  (let ((value (org-element-property :value environment)))
+(string-join (list "@displaymath"
+   (string-trim (org-remove-indentation value))
+   "@end displaymath")
+ "\n")
+
+ LaTeX Fragment
+
+(defun org-texinfo-latex-fragment (fragment _contents info)
+  "Transcode a LaTeX FRAGMENT from Org to Texinfo.
+INFO is a plist holding contextual information."
+  (let ((with-latex (plist-get info :with-latex)))
+(when (or (eq with-latex t)
+  (and (eq with-latex 'detect)
+   (org-texinfo-supports-math-p)))
+  (let ((value (org-remove-indentation
+(org-element-property :value fragment
+(cond
+ ((or (string-match-p "^\\

[elpa] externals/rcirc-color c50cfdf02e: * rcirc-color.el (color): Use `rcirc-define-command'

[Philip Kaludercic]

branch: externals/rcirc-color
commit c50cfdf02e0ae6527d2c9ca6b42c32e680a1ad86
Author: Philip Kaludercic 
Commit: Philip Kaludercic 

* rcirc-color.el (color): Use `rcirc-define-command'
---
 rcirc-color.el | 8 +++-
 1 file changed, 3 insertions(+), 5 deletions(-)

diff --git a/rcirc-color.el b/rcirc-color.el
index 872d1d8298..2eff965267 100644
--- a/rcirc-color.el
+++ b/rcirc-color.el
@@ -1,6 +1,6 @@
 ;;; rcirc-color.el --- color nicks  -*- lexical-binding:t -*-
 
-;; Copyright (C) 2005-2021  Free Software Foundation, Inc.
+;; Copyright (C) 2005-2022  Free Software Foundation, Inc.
 
 ;; Author: Alex Schroeder 
 ;; Maintainer: Alex Schroeder 
@@ -124,11 +124,9 @@ This ignores SENDER and RESPONSE."
 
 (add-hook 'rcirc-markup-text-functions #'rcirc-markup-nick-colors)
 
-(defun-rcirc-command color (args)
+(rcirc-define-command color (nick color)
   "Change one of the nick colors."
-  (interactive)
-  (setq args (split-string args))
-  (rcirc-do-color (car args) (cadr args) process target))
+  (rcirc-do-color nick color process target))
 
 (defun rcirc-do-color (nick color process target)
   "Implement the /color command.

[nongnu] elpa/helm 92f10d12e7: Notify when aborting mcp

[ELPA Syncer]

branch: elpa/helm
commit 92f10d12e779433cc9cfae938be12552bc101c10
Author: Thierry Volpiatto 
Commit: Thierry Volpiatto 

Notify when aborting mcp
---
 helm-files.el | 58 ++
 1 file changed, 30 insertions(+), 28 deletions(-)

diff --git a/helm-files.el b/helm-files.el
index 63cd3b7889..27ebeb7c55 100644
--- a/helm-files.el
+++ b/helm-files.el
@@ -6044,34 +6044,36 @@ be directories."
 (with-helm-display-marked-candidates
   helm-marked-buffer-name
   (mapcar #'abbreviate-file-name targets)
-  (when (y-or-n-p (format "Copy `%s' to directories?" file))
-(async-start
- `(lambda ()
-(require 'cl-lib)
-(cl-loop with copies = 0
- with skipped = ,skipped
- for (file dest overwrite) in ',operations
- do (condition-case _err
-(progn
-  (copy-file file dest overwrite)
-  (cl-incf copies))
-  (file-error (cl-incf skipped)))
- finally return (list file copies skipped)))
- (lambda (result)
-   (let ((copied (nth 1 result)))
- (dired-async--modeline-mode -1)
- (run-with-idle-timer
-  0.1 nil
-  (lambda ()
-(dired-async-mode-line-message
- "Mcp done, %s %s of %s done, %s files skipped"
- 'dired-async-message
- copied
- (if (> copied 1)
- "copies" "copy")
- (helm-basename (nth 0 result))
- (nth 2 result)))
-(dired-async--modeline-mode 1)))
+  (if (y-or-n-p (format "Copy `%s' to directories?" (helm-basename 
file)))
+  (progn
+(async-start
+ `(lambda ()
+(require 'cl-lib)
+(cl-loop with copies = 0
+ with skipped = ,skipped
+ for (file dest overwrite) in ',operations
+ do (condition-case _err
+(progn
+  (copy-file file dest overwrite)
+  (cl-incf copies))
+  (file-error (cl-incf skipped)))
+ finally return (list file copies skipped)))
+ (lambda (result)
+   (let ((copied (nth 1 result)))
+ (dired-async--modeline-mode -1)
+ (run-with-idle-timer
+  0.1 nil
+  (lambda ()
+(dired-async-mode-line-message
+ "Mcp done, %s %s of %s done, %s files skipped"
+ 'dired-async-message
+ copied
+ (if (> copied 1)
+ "copies" "copy")
+ (helm-basename (nth 0 result))
+ (nth 2 result)))
+(dired-async--modeline-mode 1))
+(message "Operation aborted")))
 
 (helm-make-command-from-action helm-ff-run-mcp
 "Copy the car of marked candidates to the remaining marked candidates."

[nongnu] elpa/helm-core updated (80b3a39da3 -> 92f10d12e7)

[ELPA Syncer]

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

  from  80b3a39da3 Stop removing inotify watchers from the callback
  adds  92f10d12e7 Notify when aborting mcp

No new revisions were added by this update.

Summary of changes:
 helm-files.el | 58 ++
 1 file changed, 30 insertions(+), 28 deletions(-)

[elpa] externals/svg-lib a2fc52ec3e 1/2: Fix custom types

[ELPA Syncer]

branch: externals/svg-lib
commit a2fc52ec3e30e80fe426ae39e3aac619f73284b6
Author: Jimmy Yuen Ho Wong 
Commit: Jimmy Yuen Ho Wong 

Fix custom types
---
 svg-lib.el | 24 ++--
 1 file changed, 22 insertions(+), 2 deletions(-)

diff --git a/svg-lib.el b/svg-lib.el
index 4b810ab250..cc9d2bdfa5 100644
--- a/svg-lib.el
+++ b/svg-lib.el
@@ -174,8 +174,28 @@ to the default face)."
 (defcustom svg-lib-style-default
   (svg-lib-style-compute-default)
   "Default style"
-  :type '(plist :key-type   (string :tag "Property")
-:value-type (string :tag "Value"))
+  :type '(plist :key-type (choice (const :tag "Background" :background)
+  (const :tag "Foreground" :foreground)
+  (const :tag "Padding" :padding)
+  (const :tag "Margin" :margin)
+  (const :tag "Stroke" :stroke)
+  (const :tag "Radius" :radius)
+  (const :tag "Ascent" :ascent)
+  (const :tag "Alignment" :alignment)
+  (const :tag "Width" :width)
+  (const :tag "Height" :height)
+  (const :tag "Scale" :scale)
+  (const :tag "Crop Left" :crop-left)
+  (const :tag "Crop Right" :crop-right)
+  (const :tag "Collection" :collection)
+  (const :tag "Font Family" :font-family)
+  (const :tag "Font Size" :font-size)
+  (const :tag "Font Weight" :font-weight))
+:value-type (choice (const :tag "None" nil)
+(number)
+(string)
+(boolean)
+(symbol)))
   :group 'svg-lib)
 
 

[elpa] externals/svg-lib 67d4a38bd7 2/2: Merge pull request #23 from wyuenho/fix-custom-types

[ELPA Syncer]

branch: externals/svg-lib
commit 67d4a38bd724c49ad15806e6ca118236cdb1cf26
Merge: 303f690389 a2fc52ec3e
Author: Nicolas P. Rougier 
Commit: GitHub 

Merge pull request #23 from wyuenho/fix-custom-types

Fix custom types
---
 svg-lib.el | 24 ++--
 1 file changed, 22 insertions(+), 2 deletions(-)

diff --git a/svg-lib.el b/svg-lib.el
index 4b810ab250..cc9d2bdfa5 100644
--- a/svg-lib.el
+++ b/svg-lib.el
@@ -174,8 +174,28 @@ to the default face)."
 (defcustom svg-lib-style-default
   (svg-lib-style-compute-default)
   "Default style"
-  :type '(plist :key-type   (string :tag "Property")
-:value-type (string :tag "Value"))
+  :type '(plist :key-type (choice (const :tag "Background" :background)
+  (const :tag "Foreground" :foreground)
+  (const :tag "Padding" :padding)
+  (const :tag "Margin" :margin)
+  (const :tag "Stroke" :stroke)
+  (const :tag "Radius" :radius)
+  (const :tag "Ascent" :ascent)
+  (const :tag "Alignment" :alignment)
+  (const :tag "Width" :width)
+  (const :tag "Height" :height)
+  (const :tag "Scale" :scale)
+  (const :tag "Crop Left" :crop-left)
+  (const :tag "Crop Right" :crop-right)
+  (const :tag "Collection" :collection)
+  (const :tag "Font Family" :font-family)
+  (const :tag "Font Size" :font-size)
+  (const :tag "Font Weight" :font-weight))
+:value-type (choice (const :tag "None" nil)
+(number)
+(string)
+(boolean)
+(symbol)))
   :group 'svg-lib)
 
 

[elpa] main aab0bef937: * elpa-packages (hcel): New package

[Stefan Monnier via]

branch: main
commit aab0bef9373c98ad4310d0c7cc2ea5c0a0e04e89
Author: Stefan Monnier 
Commit: Stefan Monnier 

* elpa-packages (hcel): New package
---
 elpa-packages | 7 +++
 1 file changed, 7 insertions(+)

diff --git a/elpa-packages b/elpa-packages
index db576667b6..edc5259760 100644
--- a/elpa-packages
+++ b/elpa-packages
@@ -377,6 +377,8 @@
  ("gtags-mode" :url "https://github.com/Ergus/gtags-mode";
   :auto-sync t)
  ("guess-language" :url "https://github.com/tmalsburg/guess-language.el";)
+ ("hcel"   :url "https://g.ypei.me/hc.el.git";
+  :auto-sync t)
  ("heap"   :url "http://www.dr-qubit.org/git/predictive.git";)
  ("hiddenquote":url 
"https://gitlab.com/mauroaranda/hiddenquote/hiddenquote";)
  ("highlight-escape-sequences"
@@ -738,6 +740,11 @@
   :doc "README.org"
   :news "CHANGELOG.org"
   :ignored-files ("COPYING" "doclicense.texi" "Makefile"))
+ ;; FIXME: Basically ready, but waiting for the maintainer to decide whether
+ ;; to keep this name or rename the package before inclusion.
+ ;;("toc-mode" :url "https://github.com/dalanicolai/toc-mode";
+ ;; :ignore-files ("LICENSE")
+ ;; :auto-sync t)
  ("tomelr" :url "https://github.com/kaushalmodi/tomelr";
   :ignored-files ("LICENSE")
   :news "CHANGELOG.org"

[elpa] branch externals/hcel created (now dae8c96bfd)

[ELPA Syncer]

elpasync pushed a change to branch externals/hcel.

at  dae8c96bfd Fixing some compile warnings

This branch includes the following new commits:

   new  bbc38aad99 first commit, moving out of hcel.
   new  ea78d007ce updated readme with features
   new  d7c27826e9 minor wording
   new  cc43ecd801 minor fix var name
   new  c14271c373 minor fix
   new  3da82c44a4 find definition / references / eldoc now look at 
previous point too.
   new  8632869b89 small tweaks to find references
   new  1b0817abd5 Patch from Stefan Monnier.
   new  8e23867bee adding "foo ends here", and provide hcel instead of hc
   new  73bd6e9bd9 fix a fixme Make sure all definitions have an `hcel-' 
prefix.
   new  9dc18bef43 fixing header comments
   new  0d47d10cfe fixing a renamed function
   new  dae8c96bfd Fixing some compile warnings

[elpa] externals/hcel bbc38aad99 01/13: first commit, moving out of hcel.

[ELPA Syncer]

branch: externals/hcel
commit bbc38aad99945bf5ec9acaa163c6149b4443a412
Author: Yuchen Pei 
Commit: Yuchen Pei 

first commit, moving out of hcel.
---
 .gitignore  |   1 +
 COPYING.agpl3   | 661 
 README.org  |  42 
 hc.el   |  58 +
 hcel-client.el  | 161 ++
 hcel-haddorg.el |  46 
 hcel-outline.el | 215 ++
 hcel-results.el | 393 +
 hcel-source.el  | 523 
 hcel-utils.el   | 169 +++
 10 files changed, 2269 insertions(+)

diff --git a/.gitignore b/.gitignore
new file mode 100644
index 00..e4e5f6c8b2
--- /dev/null
+++ b/.gitignore
@@ -0,0 +1 @@
+*~
\ No newline at end of file
diff --git a/COPYING.agpl3 b/COPYING.agpl3
new file mode 100644
index 00..be3f7b28e5
--- /dev/null
+++ b/COPYING.agpl3
@@ -0,0 +1,661 @@
+GNU AFFERO GENERAL PUBLIC LICENSE
+   Version 3, 19 November 2007
+
+ Copyright (C) 2007 Free Software Foundation, Inc. 
+ Everyone is permitted to copy and distribute verbatim copies
+ of this license document, but changing it is not allowed.
+
+Preamble
+
+  The GNU Affero General Public License is a free, copyleft license for
+software and other kinds of works, specifically designed to ensure
+cooperation with the community in the case of network server software.
+
+  The licenses for most software and other practical works are designed
+to take away your freedom to share and change the works.  By contrast,
+our General Public Licenses are intended to guarantee your freedom to
+share and change all versions of a program--to make sure it remains free
+software for all its users.
+
+  When we speak of free software, we are referring to freedom, not
+price.  Our General Public Licenses are designed to make sure that you
+have the freedom to distribute copies of free software (and charge for
+them if you wish), that you receive source code or can get it if you
+want it, that you can change the software or use pieces of it in new
+free programs, and that you know you can do these things.
+
+  Developers that use our General Public Licenses protect your rights
+with two steps: (1) assert copyright on the software, and (2) offer
+you this License which gives you legal permission to copy, distribute
+and/or modify the software.
+
+  A secondary benefit of defending all users' freedom is that
+improvements made in alternate versions of the program, if they
+receive widespread use, become available for other developers to
+incorporate.  Many developers of free software are heartened and
+encouraged by the resulting cooperation.  However, in the case of
+software used on network servers, this result may fail to come about.
+The GNU General Public License permits making a modified version and
+letting the public access it on a server without ever releasing its
+source code to the public.
+
+  The GNU Affero General Public License is designed specifically to
+ensure that, in such cases, the modified source code becomes available
+to the community.  It requires the operator of a network server to
+provide the source code of the modified version running there to the
+users of that server.  Therefore, public use of a modified version, on
+a publicly accessible server, gives the public access to the source
+code of the modified version.
+
+  An older license, called the Affero General Public License and
+published by Affero, was designed to accomplish similar goals.  This is
+a different license, not a version of the Affero GPL, but Affero has
+released a new version of the Affero GPL which permits relicensing under
+this license.
+
+  The precise terms and conditions for copying, distribution and
+modification follow.
+
+   TERMS AND CONDITIONS
+
+  0. Definitions.
+
+  "This License" refers to version 3 of the GNU Affero General Public License.
+
+  "Copyright" also means copyright-like laws that apply to other kinds of
+works, such as semiconductor masks.
+
+  "The Program" refers to any copyrightable work licensed under this
+License.  Each licensee is addressed as "you".  "Licensees" and
+"recipients" may be individuals or organizations.
+
+  To "modify" a work means to copy from or adapt all or part of the work
+in a fashion requiring copyright permission, other than the making of an
+exact copy.  The resulting work is called a "modified version" of the
+earlier work or a work "based on" the earlier work.
+
+  A "covered work" means either the unmodified Program or a work based
+on the Program.
+
+  To "propagate" a work means to do anything with it that, without
+permission, would make you directly or secondarily liable for
+infringement under applicable copyright law, except executing it on a
+computer or modifying a private copy.  Propagation includes copying,
+distribution (with or witho

[elpa] externals/hcel 9dc18bef43 11/13: fixing header comments

[ELPA Syncer]

branch: externals/hcel
commit 9dc18bef43897820b0b9e40ac301a82eedf7e28a
Author: Yuchen Pei 
Commit: Yuchen Pei 

fixing header comments
---
 hcel-haddorg.el | 2 +-
 hcel-utils.el   | 4 ++--
 hcel.el | 4 +---
 3 files changed, 4 insertions(+), 6 deletions(-)

diff --git a/hcel-haddorg.el b/hcel-haddorg.el
index d3aa016f84..afb783f1c7 100644
--- a/hcel-haddorg.el
+++ b/hcel-haddorg.el
@@ -1,4 +1,4 @@
-;; -*- lexical-binding: t; -*-
+;;; hcel-haddorg.el --- jumping between hcel and org generated from haddorg. 
-*- lexical-binding: t; -*-
 ;; Copyright (C) 2022 Yuchen Pei.
 ;; 
 ;; This file is part of hcel.
diff --git a/hcel-utils.el b/hcel-utils.el
index 2c3d51fbce..b44f88504f 100644
--- a/hcel-utils.el
+++ b/hcel-utils.el
@@ -1,4 +1,4 @@
-;;; hc-utils.el --- Commonly used utilities -*- lexical-binding: t; -*-
+;;; hcel-utils.el --- Commonly used utilities -*- lexical-binding: t; -*-
 
 ;; Copyright (C) 2022 Yuchen Pei.
 ;; 
@@ -169,7 +169,7 @@ Example of an idSrcSpan:
 (defun hcel-text-property-near-point (prop)
   "Find property prop at point, or just before point."
   (or (get-text-property (point) prop)
-  (get-text-property (1- (point)) prop)))
+  (get-text-property (max 0 (1- (point))) prop)))
 
 (provide 'hcel-utils)
 ;;; hcel-utils.el ends here.
diff --git a/hcel.el b/hcel.el
index d8dfe6e2a4..1edc3ee96b 100644
--- a/hcel.el
+++ b/hcel.el
@@ -7,7 +7,7 @@
 ;; Keywords: haskell
 ;; Package-Requires: ((emacs "28"))
 ;; Package-Type: multi
-;; Homepage: https://g.ypei.me/hcel.git
+;; Homepage: https://g.ypei.me/hc.el.git
 
 ;; Copyright (C) 2022 Yuchen Pei.
 ;; 
@@ -27,8 +27,6 @@
 ;; License along with hcel.  If not, see .
 
 (require 'hcel-source)
-(require 'hcel-outline)
-(require 'hcel-results)
 (require 'hcel-utils)
 
 (defun hcel-package (package-id)

[elpa] externals/hcel 1b0817abd5 08/13: Patch from Stefan Monnier.

[ELPA Syncer]

branch: externals/hcel
commit 1b0817abd54e4ff050240bee47b28e66e843eb66
Author: Yuchen Pei 
Commit: Yuchen Pei 

Patch from Stefan Monnier.

https://lists.gnu.org/archive/html/emacs-devel/2022-09/msg01378.html
---
 .gitignore   |  5 +++-
 hcel-client.el   |  2 +-
 hcel-haddorg.el  |  2 +-
 hcel-outline.el  | 34 +-
 hcel-results.el  | 48 -
 hcel-source.el   | 72 ++--
 hcel-utils.el|  1 +
 hc.el => hcel.el | 10 
 8 files changed, 90 insertions(+), 84 deletions(-)

diff --git a/.gitignore b/.gitignore
index e4e5f6c8b2..bd5709fcb0 100644
--- a/.gitignore
+++ b/.gitignore
@@ -1 +1,4 @@
-*~
\ No newline at end of file
+*~
+*.elc
+/hcel-autoloads.el
+/hcel-pkg.el
diff --git a/hcel-client.el b/hcel-client.el
index ab64ea3293..5ec605574b 100644
--- a/hcel-client.el
+++ b/hcel-client.el
@@ -138,7 +138,7 @@
 (goto-char (point-max))
 (insert "[" (current-time-string) "] Request: " url "\n"))
   (with-current-buffer (url-retrieve-synchronously url t)
-(let ((header) (status) (fields) (json))
+(let ((header) (status) (fields))
   (delete-http-header)
   (setq header (hcel-parse-http-header (car kill-ring))
 status (alist-get 'status header)
diff --git a/hcel-haddorg.el b/hcel-haddorg.el
index ad797e0b10..be97e423a2 100644
--- a/hcel-haddorg.el
+++ b/hcel-haddorg.el
@@ -29,7 +29,7 @@
(module-name (car splitted))
(entity (if (equal "v" (cadr splitted)) "Val" "Typ"))
(name (caddr splitted))
-   (package) (unparsed) (package-id))
+   (package) (package-id))
   (goto-char (point-min))
   (setq package (org-entry-get (point) "ITEM"))
   (setq package-id
diff --git a/hcel-outline.el b/hcel-outline.el
index a46db147f6..78aad54156 100644
--- a/hcel-outline.el
+++ b/hcel-outline.el
@@ -17,31 +17,33 @@
 ;; You should have received a copy of the GNU Affero General Public
 ;; License along with hcel.  If not, see .
 
+(require 'hcel-source)
+
 (defvar hcel-outline-buffer-name "*hcel-outline*")
 (defvar hcel-outline-indentation 2)
 
 (defvar hcel-outline-mode-map
   (let ((kmap (make-sparse-keymap)))
-(define-key kmap "n" 'outline-next-visible-heading)
-(define-key kmap "p" 'outline-previous-visible-heading)
-(define-key kmap "f" 'outline-forward-same-level)
-(define-key kmap "F" 'hcel-outline-follow-mode)
-(define-key kmap "b" 'outline-backward-same-level)
-(define-key kmap "u" 'outline-up-heading)
-(define-key kmap "\t" 'hcel-outline-toggle-children)
-(define-key kmap "\r" 'hcel-outline-open-thing-at-point)
-(define-key kmap "o" 'hcel-outline-open-thing-at-point-other-window)
-(define-key kmap "q" 'quit-window)
+(define-key kmap "n"  #'outline-next-visible-heading)
+(define-key kmap "p"  #'outline-previous-visible-heading)
+(define-key kmap "f"  #'outline-forward-same-level)
+(define-key kmap "F"  #'hcel-outline-follow-mode)
+(define-key kmap "b"  #'outline-backward-same-level)
+(define-key kmap "u"  #'outline-up-heading)
+(define-key kmap "\t" #'hcel-outline-toggle-children)
+(define-key kmap "\r" #'hcel-outline-open-thing-at-point)
+(define-key kmap "o"  #'hcel-outline-open-thing-at-point-other-window)
+(define-key kmap "q"  #'quit-window)
 kmap))
 (define-derived-mode hcel-outline-mode outline-mode "hcel-outline"
-  "Major mode for browsing Haskell codebases"
+  "Major mode for browsing Haskell codebases."
   (setq-local package-filter nil
   module-filter nil
   outline-regexp "\\( *\\)."
   outline-level (lambda () (1+ (/ (length (match-string 1))
   hcel-outline-indentation)))
-  buffer-read-only t))
-(add-hook 'hcel-outline-mode-hook 'hcel-minor-mode)
+  buffer-read-only t)
+  (hcel-minor-mode 1))
 
 (defun hcel ()
   (interactive)
@@ -61,7 +63,7 @@
  (hcel-api-packages)))
   (hcel-outline-mode
 
-(define-key hcel-mode-map "o" 'hcel)
+(define-key hcel-mode-map "o" #'hcel)
 
 ;; TODO: maybe remove
 (defun hcel-outline-update-opened (package-id module-path)
@@ -208,8 +210,8 @@ update in the outline mode too."
   (if (not (eq major-mode 'hcel-outline-mode))
   (error "Not in hcel-outline mode!")
 (add-hook 'post-command-hook
-  'hcel-outline-open-thing-at-point-other-window nil t))
+  #'hcel-outline-open-thing-at-point-other-window nil t))
 (remove-hook 'post-command-hook
- 'hcel-outline-open-thing-at-point-other-window t)))
+ #'hcel-outline-open-thing-at-point-other-window t)))
 
 (provide 'hcel-outline)
diff --git a/hcel-results.el b/hcel-results.el
index a0ce11b049..ff19d26799 100644
--- a/hcel-results.el
+++ b/hcel-results.el
@@ -24,6 +24,7 @@
 
 ;;; Code:
 (require 'hcel-

[nongnu] elpa/geiser-guile f9b0828e15 2/2: new option geiser-guile-debug-backwards-backtrace

[ELPA Syncer]

branch: elpa/geiser-guile
commit f9b0828e1599078c596df0100886d4199b9b62bc
Author: jao 
Commit: jao 

new option geiser-guile-debug-backwards-backtrace

Fixes #24
---
 geiser-guile.el | 23 +--
 1 file changed, 17 insertions(+), 6 deletions(-)

diff --git a/geiser-guile.el b/geiser-guile.el
index e5f6476517..4bb014cb46 100644
--- a/geiser-guile.el
+++ b/geiser-guile.el
@@ -79,15 +79,22 @@ exported modules."
   :type 'boolean
   :link '(info-link "(guile) Declarative Modules"))
 
+(geiser-custom--defcustom geiser-guile-debug-backwards-backtrace t
+  "Whether to configure backtraces using the 'backwards' ordering."
+  :type 'boolean)
+
+(geiser-custom--defcustom geiser-guile-debug-terminal-width 999
+  "Maximum number of columns shown in backtraces.
+Normally, you'd want a big value here so that messages are not
+truncated.  Set to a negative value if you prefer that geiser
+does not set it on startup."
+  :type 'integer)
+
 (geiser-custom--defcustom geiser-guile-debug-show-bt-p t
   "Whether to automatically show a full backtrace when entering the debugger.
 If nil, only the last frame is shown."
   :type 'boolean)
 
-(geiser-custom--defcustom geiser-guile-debug-backwards-backtrace t
-  "Whether to configure backtraces using the 'backwards' ordering."
-  :type 'boolean)
-
 (geiser-custom--defcustom geiser-guile-debug-show-full-bt-p t
   "Whether to show full backtraces in the debugger, including local variables."
   :type 'boolean)
@@ -502,9 +509,13 @@ See `geiser-guile-use-declarative-modules-p'."
   (geiser-eval--send/wait code
 
 (defun geiser-guile--set-up-backtrace ()
-  "Set up Guile's backtrace ordering."
+  "Set up Guile's backtrace properties."
   (when geiser-guile-debug-backwards-backtrace
-(geiser-eval--send/wait '(debug-enable 'backwards
+(geiser-eval--send/wait '(debug-enable 'backwards)))
+  (when (> geiser-guile-debug-terminal-width 0)
+(geiser-eval--send/wait `(begin ((@ (system repl debug) terminal-width)
+ ,geiser-guile-debug-terminal-width)
+'ok
 
 (defun geiser-guile--startup (remote)
   "Startup function, for a remote connection if REMOTE is t."

[elpa] externals/hcel ea78d007ce 02/13: updated readme with features

[ELPA Syncer]

branch: externals/hcel
commit ea78d007ce4e820932c5cf3c8e252b0e8fc4e9d0
Author: Yuchen Pei 
Commit: Yuchen Pei 

updated readme with features
---
 README.org | 12 +++-
 1 file changed, 11 insertions(+), 1 deletion(-)

diff --git a/README.org b/README.org
index 290455e326..0fdc3453fa 100644
--- a/README.org
+++ b/README.org
@@ -1,6 +1,16 @@
 #+title: hc.el
 
-hc.el is the emacs client for hcel.
+hc.el is a client to [[https://g.ypei.me/hcel.git/][hcel]] and Emacs package 
for Haskell code
+exploring.  Features include:
+
+- Jump to definition (using xref)
+- Find references (based on compilation mode)
+- Search identifiers in a package or globally (based on compilation mode)
+- Highlight the identifier at point
+- Browse packages, modules and identifiers in an outline mode buffer
+- Eldoc integration, showing type and documentation of the identifier
+  at point, or the selected expression.
+- Syntax highlight (requires haskell-mode)
 
 * Install
 

[elpa] externals/hcel c14271c373 05/13: minor fix

[ELPA Syncer]

branch: externals/hcel
commit c14271c3732f02ae391c3847ed7a687171ef4013
Author: Yuchen Pei 
Commit: Yuchen Pei 

minor fix
---
 hcel-client.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/hcel-client.el b/hcel-client.el
index 2061be96de..ab64ea3293 100644
--- a/hcel-client.el
+++ b/hcel-client.el
@@ -18,7 +18,7 @@
 ;; License along with hcel.  If not, see .
 
 (defcustom hcel-host "localhost:8080"
-  "hcel endpoint"
+  "hcel server host"
   :group 'hcel)
 (defcustom hcel-indexed-dir "/.haskell-code-explorer"
   "hcel indexed dir"

[elpa] externals/hcel 3da82c44a4 06/13: find definition / references / eldoc now look at previous point too.

[ELPA Syncer]

branch: externals/hcel
commit 3da82c44a4a6ed7e3760fe2e9d37ebf2cfd669d1
Author: Yuchen Pei 
Commit: Yuchen Pei 

find definition / references / eldoc now look at previous point too.
---
 hcel-results.el | 28 +-
 hcel-source.el  | 61 +++--
 hcel-utils.el   |  5 +
 3 files changed, 48 insertions(+), 46 deletions(-)

diff --git a/hcel-results.el b/hcel-results.el
index 5f27b6a4ff..06eddbbfde 100644
--- a/hcel-results.el
+++ b/hcel-results.el
@@ -23,6 +23,7 @@
 ;; compilation-mode.
 
 ;;; Code:
+(require 'hcel-utils)
 
 (defun hcel-results-next-error-no-open (n)
   (interactive "p")
@@ -202,24 +203,23 @@ Start by choosing a package."
   "Find references of the identifier at point."
   (interactive)
   (hcel-find-references-internal hcel-package-id hcel-module-path
- (get-text-property (point) 'identifier)))
+ (hcel-text-property-near-point 'identifier)))
 (define-key hcel-mode-map (kbd "M-?") 'hcel-find-references-at-point)
 
 (defun hcel-minor-find-references-at-point ()
   (interactive)
-  (let ((props (text-properties-at (point
-(cond ((or (eq major-mode 'hcel-outline-mode)
-   (eq (current-buffer) eldoc--doc-buffer))
-   (hcel-find-references-internal
-(plist-get props 'package-id)
-(plist-get props 'module-path)
-(plist-get props 'internal-id)))
-  ((eq major-mode 'hcel-ids-mode)
-   (hcel-find-references-internal
-(alist-get 'packageId (plist-get props 'location-info))
-(alist-get 'modulePath (plist-get props 'location-info))
-(plist-get props 'internal-id)))
-  (t (error "%S not supported and not in eldoc doc buffer." 
major-mode)
+  (cond ((or (eq major-mode 'hcel-outline-mode)
+ (eq (current-buffer) eldoc--doc-buffer))
+ (hcel-find-references-internal
+  (hcel-text-property-near-point 'package-id)
+  (hcel-text-property-near-point 'module-path)
+  (hcel-text-property-near-point 'internal-id)))
+((eq major-mode 'hcel-ids-mode)
+ (hcel-find-references-internal
+  (alist-get 'packageId (hcel-text-property-near-point 'location-info))
+  (alist-get 'modulePath (hcel-text-property-near-point 
'location-info))
+  (hcel-text-property-near-point 'internal-id)))
+(t (error "%S not supported and not in eldoc doc buffer." 
major-mode
 
 (defun hcel-find-references-internal (package-id module-path identifier)
   (when (and package-id module-path identifier)
diff --git a/hcel-source.el b/hcel-source.el
index 688fff191e..7a793c6ade 100644
--- a/hcel-source.el
+++ b/hcel-source.el
@@ -130,7 +130,7 @@ If NO-JUMP is non-nil, just open the source and does not 
jump to the location wi
   (when occ (alist-get 'contents (alist-get 'sort occ)
 
 (defun hcel-occ-symbol-at-point ()
-  (when-let* ((occ (get-text-property (point) 'occurrence))
+  (when-let* ((occ (hcel-text-property-near-point 'occurrence))
   (splitted (split-string occ "-"))
   (line (string-to-number (car splitted)))
   (col-beg (string-to-number (cadr splitted)))
@@ -140,7 +140,7 @@ If NO-JUMP is non-nil, just open the source and does not 
jump to the location wi
 (defun hcel-type-at-point ()
   (interactive)
   (hcel-render-type-internal hcel-package-id hcel-module-path
- (get-text-property (point) 'identifier)))
+ (hcel-text-property-near-point 'identifier)))
 
 (defun hcel-render-type-internal (package-id module-path identifier)
   (when (and package-id module-path identifier)
@@ -169,7 +169,7 @@ If NO-JUMP is non-nil, just open the source and does not 
jump to the location wi
 
 (defun hcel-id-docs-at-point ()
   (hcel-id-docs-internal hcel-package-id hcel-module-path
- (get-text-property (point) 'identifier)))
+ (hcel-text-property-near-point 'identifier)))
 
 (defun hcel-id-docs-internal (package-id module-path identifier)
   (when (and package-id module-path identifier)
@@ -242,8 +242,7 @@ If NO-JUMP is non-nil, just open the source and does not 
jump to the location wi
   (hcel-minor-mode
 
 (defun hcel-minor-eldoc-id-type (cb)
-  (when-let* ((props (text-properties-at (point)))
-  (identifier (plist-get props 'internal-id))
+  (when-let* ((identifier (hcel-text-property-near-point 'internal-id))
   (symbol (save-excursion
 (buffer-substring
  (progn
@@ -257,13 +256,13 @@ If NO-JUMP is non-nil, just open the source and does not 
jump to the location wi
   (docstring
(cond ((eq major-mode 'hcel-outline-mode)
   (hcel-render-type-internal
-   (plist-get props 'package-id)
-   (

[elpa] externals/hcel 0d47d10cfe 12/13: fixing a renamed function

[ELPA Syncer]

branch: externals/hcel
commit 0d47d10cfe4ed7fb8ea7b8013b6593c868be8391
Author: Yuchen Pei 
Commit: Yuchen Pei 

fixing a renamed function
---
 hcel-client.el  | 11 ++-
 hcel-outline.el |  2 +-
 2 files changed, 7 insertions(+), 6 deletions(-)

diff --git a/hcel-client.el b/hcel-client.el
index 5ec605574b..775d8782c3 100644
--- a/hcel-client.el
+++ b/hcel-client.el
@@ -38,14 +38,15 @@
  packages)))
 
 (defun hcel-api-package-info (package-id)
+  (hcel-url-fetch-json (concat
+hcel-host "/files/" (hcel-format-package-id package-id 
"-")
+hcel-indexed-dir "/packageInfo.json")))
+
+(defun hcel-list-modules (package-id)
   (mapcar
(lambda (tuple)
  (prin1-to-string (car tuple) t))
-   (alist-get
-'modules
-(hcel-url-fetch-json (concat
- hcel-host "/files/" (hcel-format-package-id package-id 
"-")
- hcel-indexed-dir "/packageInfo.json")
+   (alist-get 'modules (hcel-api-package-info package-id
 
 (defun hcel-api-definition-site
 (package-id component-id module-name entity name)
diff --git a/hcel-outline.el b/hcel-outline.el
index 4cfa6cee4e..c40ccf161a 100644
--- a/hcel-outline.el
+++ b/hcel-outline.el
@@ -116,7 +116,7 @@ update in the outline mode too."
 'package-id package-id
 'module-path module
 'folded t)))
- (hcel-api-package-info package-id))
+ (hcel-list-modules (print package-id)))
 
 (defun hcel-outline-toggle-children ()
   (interactive)

[elpa] externals/hcel 8632869b89 07/13: small tweaks to find references

[ELPA Syncer]

branch: externals/hcel
commit 8632869b89a60f4cd0a4d3f0975469512fb76087
Author: Yuchen Pei 
Commit: Yuchen Pei 

small tweaks to find references
---
 hcel-results.el | 6 --
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/hcel-results.el b/hcel-results.el
index 06eddbbfde..a0ce11b049 100644
--- a/hcel-results.el
+++ b/hcel-results.el
@@ -123,8 +123,9 @@
   (number-to-string hcel-results-page-number)
   (number-to-string hcel-refs-per-page
 (erase-buffer)
-(insert (format "References of %s, Page %d of %d.\n"
+(insert (format "References of %s in %s, Page %d of %d.\n"
 (hcel-refs-format-id hcel-refs-id)
+(hcel-format-package-id hcel-refs-package-id)
 hcel-results-page-number hcel-results-max-page-number))
 (mapc
  (lambda (module-refs)
@@ -189,7 +190,8 @@ Start by choosing a package."
   (format "%s (%s)"
   (alist-get 'packageId pkg-count)
   (alist-get 'count pkg-count)))
-global-refs
+global-refs)
+nil t)))
  (package-id (car package-id-and-count))
  (count (string-to-number (substring (cadr package-id-and-count) 1 
-1)))
  (max-page-number (1+ (/ count hcel-refs-per-page

[nongnu] elpa/geiser-guile 44f40a6db6 1/2: new option geiser-guile-debug-backwards-backtrace

[ELPA Syncer]

branch: elpa/geiser-guile
commit 44f40a6db656e4c33ce7b42099d3c09073c2c2b8
Author: jao 
Commit: jao 

new option geiser-guile-debug-backwards-backtrace

Fixes #22
---
 geiser-guile.el | 10 ++
 1 file changed, 10 insertions(+)

diff --git a/geiser-guile.el b/geiser-guile.el
index 273e1970d3..e5f6476517 100644
--- a/geiser-guile.el
+++ b/geiser-guile.el
@@ -84,6 +84,10 @@ exported modules."
 If nil, only the last frame is shown."
   :type 'boolean)
 
+(geiser-custom--defcustom geiser-guile-debug-backwards-backtrace t
+  "Whether to configure backtraces using the 'backwards' ordering."
+  :type 'boolean)
+
 (geiser-custom--defcustom geiser-guile-debug-show-full-bt-p t
   "Whether to show full backtraces in the debugger, including local variables."
   :type 'boolean)
@@ -497,6 +501,11 @@ See `geiser-guile-use-declarative-modules-p'."
 (let ((code '(begin (eval-when (expand) (user-modules-declarative? :f)) 
'ok)))
   (geiser-eval--send/wait code
 
+(defun geiser-guile--set-up-backtrace ()
+  "Set up Guile's backtrace ordering."
+  (when geiser-guile-debug-backwards-backtrace
+(geiser-eval--send/wait '(debug-enable 'backwards
+
 (defun geiser-guile--startup (remote)
   "Startup function, for a remote connection if REMOTE is t."
   (geiser-guile--set-up-error-links)
@@ -507,6 +516,7 @@ See `geiser-guile-use-declarative-modules-p'."
 (when (or geiser-guile--conn-address remote)
   (geiser-guile--set-geiser-load-path))
 (geiser-guile--set-up-declarative-modules)
+(geiser-guile--set-up-backtrace)
 (geiser-eval--send/wait ",use (geiser emacs)\n'done")
 (dolist (dir g-load-path)
   (let ((dir (expand-file-name dir)))

[elpa] externals/hcel dae8c96bfd 13/13: Fixing some compile warnings

[ELPA Syncer]

branch: externals/hcel
commit dae8c96bfdcf81ff6e39890de2d3d1be788e552f
Author: Yuchen Pei 
Commit: Yuchen Pei 

Fixing some compile warnings
---
 hcel-client.el  | 14 +++---
 hcel-haddorg.el |  1 +
 hcel-outline.el |  8 
 hcel-results.el | 35 ++-
 hcel-source.el  | 26 --
 hcel-utils.el   |  7 ---
 6 files changed, 54 insertions(+), 37 deletions(-)

diff --git a/hcel-client.el b/hcel-client.el
index 775d8782c3..eb43dc98d5 100644
--- a/hcel-client.el
+++ b/hcel-client.el
@@ -17,12 +17,13 @@
 ;; You should have received a copy of the GNU Affero General Public
 ;; License along with hcel.  If not, see .
 
+(require 'hcel-utils)
 (defcustom hcel-host "localhost:8080"
   "hcel server host"
-  :group 'hcel)
+  :group 'hcel :type '(string))
 (defcustom hcel-indexed-dir "/.haskell-code-explorer"
   "hcel indexed dir"
-  :group 'hcel)
+  :group 'hcel :type '(string))
 
 (defvar hcel-client-buffer-name "*hcel-client*")
 
@@ -140,7 +141,8 @@
 (insert "[" (current-time-string) "] Request: " url "\n"))
   (with-current-buffer (url-retrieve-synchronously url t)
 (let ((header) (status) (fields))
-  (delete-http-header)
+  (hcel-delete-http-header)
+  (goto-char (point-min))
   (setq header (hcel-parse-http-header (car kill-ring))
 status (alist-get 'status header)
 fields (alist-get 'fields header))
@@ -159,4 +161,10 @@
   (json-read)))
 (error "HTTP error: %s" (buffer-substring (point) (point-max)))
 
+(defun hcel-delete-http-header ()
+  (save-excursion
+(goto-char (point-min))
+(kill-region (point) (progn (re-search-forward "\r?\n\r?\n")
+(point)
+
 (provide 'hcel-client)
diff --git a/hcel-haddorg.el b/hcel-haddorg.el
index afb783f1c7..732c6d09c5 100644
--- a/hcel-haddorg.el
+++ b/hcel-haddorg.el
@@ -19,6 +19,7 @@
 (require 'hcel-source)
 (require 'hcel-client)
 (require 'hcel-utils)
+(require 'org)
 
 (defun hcel-haddorg-to-hcel-definition ()
   (interactive)
diff --git a/hcel-outline.el b/hcel-outline.el
index c40ccf161a..d485844523 100644
--- a/hcel-outline.el
+++ b/hcel-outline.el
@@ -17,7 +17,9 @@
 ;; You should have received a copy of the GNU Affero General Public
 ;; License along with hcel.  If not, see .
 
+(require 'hcel-utils)
 (require 'hcel-source)
+(require 'outline)
 
 (defvar hcel-outline-buffer-name "*hcel-outline*")
 (defvar hcel-outline-indentation 2)
@@ -37,9 +39,7 @@
 kmap))
 (define-derived-mode hcel-outline-mode outline-mode "hcel-outline"
   "Major mode for browsing Haskell codebases."
-  (setq-local package-filter nil
-  module-filter nil
-  outline-regexp "\\( *\\)."
+  (setq-local outline-regexp "\\( *\\)."
   outline-level (lambda () (1+ (/ (length (match-string 1))
   hcel-outline-indentation)))
   buffer-read-only t)
@@ -116,7 +116,7 @@ update in the outline mode too."
 'package-id package-id
 'module-path module
 'folded t)))
- (hcel-list-modules (print package-id)))
+ (hcel-list-modules package-id))
 
 (defun hcel-outline-toggle-children ()
   (interactive)
diff --git a/hcel-results.el b/hcel-results.el
index 8e5091cf1f..39644d0836 100644
--- a/hcel-results.el
+++ b/hcel-results.el
@@ -23,6 +23,7 @@
 ;; compilation-mode.
 
 ;;; Code:
+(require 'hcel-source)
 (require 'hcel-utils)
 (eval-when-compile (require 'compile))
 
@@ -70,6 +71,7 @@
   (hcel-load-module-location-info (get-text-property (point) 'location-info)))
 
 (defvar-local hcel-results-page-number nil)
+(defvar-local hcel-results-max-page-number nil)
 
 (defun hcel-results-next-page ()
   (interactive)
@@ -100,15 +102,14 @@
 ;; hcel-refs-mode
 (defcustom hcel-refs-per-page 50
   "hcel refs number of results per page."
-  :group 'hcel-refs)
+  :group 'hcel-refs :type '(natnum))
+
+(defvar-local hcel-refs-id nil)
+(defvar-local hcel-refs-package-id nil)
 
 (define-compilation-mode hcel-refs-mode "hcel-refs"
   "Major mode for showing references"
-  (setq-local next-error-function #'hcel-results-next-error
-  hcel-refs-id nil
-  hcel-refs-package-id nil
-  hcel-results-page-number nil
-  hcel-results-max-page-number nil))
+  (setq-local next-error-function #'hcel-results-next-error))
 
 (define-key hcel-refs-mode-map (kbd "M-n")
   #'hcel-results-next-error-no-open)
@@ -247,19 +248,19 @@ Start by choosing a package."
 ;; hcel-ids-mode
 (defcustom hcel-ids-per-page 20
   "hcel-ids mode number of results per page."
-  :group 'hcel-ids)
+  :group 'hcel-ids :type '(natnum))
 (defcustom hcel-ids-live-per-page 10
   "hcel-ids live search results per page."
-  :group 'hcel-ids)
+  :group 'hcel-ids :type '(natnum))
+
+(defvar-local hcel-ids-scope n

[elpa] externals/hcel 73bd6e9bd9 10/13: fix a fixme Make sure all definitions have an `hcel-' prefix.

[ELPA Syncer]

branch: externals/hcel
commit 73bd6e9bd92fa57877f2d894f43725a4a0abf1a8
Author: Yuchen Pei 
Commit: Yuchen Pei 

fix a fixme Make sure all definitions have an `hcel-' prefix.
---
 hcel-source.el | 12 ++--
 hcel-utils.el  | 17 -
 2 files changed, 14 insertions(+), 15 deletions(-)

diff --git a/hcel-source.el b/hcel-source.el
index ee42346b59..6000d26bab 100644
--- a/hcel-source.el
+++ b/hcel-source.el
@@ -49,7 +49,7 @@ When FORCE is non-nil, kill existing source buffer if any."
 (with-current-buffer (get-buffer-create buffer-name)
   ;; (hcel-write-source-to-buffer (alist-get 'tokenizedLines json))
   (hcel-write-html-source-to-buffer (hcel-source-html json))
-  (fontify-with-haskell-mode)
+  (hcel-fontify-with-haskell-mode)
   ;; it is important the setq of local vars are after the (hcel-mode)
   ;; otherwise they may be rewritten
   (hcel-mode)
@@ -102,10 +102,10 @@ If NO-JUMP is non-nil, just open the source and does not 
jump to the location wi
  (buffer (hcel-load-module-source package-id module-path)))
 (unless no-jump
   (switch-to-buffer-other-window buffer)
-  (goto-line-column line-beg (1- col-beg))
+  (hcel-goto-line-column line-beg (1- col-beg))
   (pulse-momentary-highlight-region
(point) (save-excursion
- (goto-line-column line-end (1- col-end))
+ (hcel-goto-line-column line-end (1- col-end))
  (point))
'next-error))
 buffer))
@@ -138,7 +138,7 @@ If NO-JUMP is non-nil, just open the source and does not 
jump to the location wi
   (line (string-to-number (car splitted)))
   (col-beg (string-to-number (cadr splitted)))
   (col-end (string-to-number (caddr splitted
-(buffer-substring-line-column line (1- col-beg) line (1- col-end
+(hcel-buffer-substring-line-column line (1- col-beg) line (1- col-end
 
 (defun hcel-type-at-point ()
   (interactive)
@@ -468,9 +468,9 @@ If NO-JUMP is non-nil, just open the source and does not 
jump to the location wi
  (buffer (hcel-load-module-location-info location-info 
t)))
  (with-current-buffer buffer
(save-excursion
- (goto-line-column line-beg col-beg)
+ (hcel-goto-line-column line-beg col-beg)
  (setq pos (1- (point)))
- (goto-line-column line-end col-end)
+ (hcel-goto-line-column line-end col-end)
  (setq len (- (point) pos 1
  (list (xref-make-match
 "hcel match"
diff --git a/hcel-utils.el b/hcel-utils.el
index 686da8d29d..2c3d51fbce 100644
--- a/hcel-utils.el
+++ b/hcel-utils.el
@@ -75,11 +75,10 @@ Example of an idSrcSpan:
   (col-beg (alist-get 'column (alist-get 'start span)))
   (line-end (alist-get 'line (alist-get 'end span)))
   (col-end (alist-get 'column (alist-get 'end span
-(buffer-substring-line-column line-beg (1- col-beg) line-end (1- 
col-end
+(hcel- buffer-substring-line-column line-beg (1- col-beg) line-end (1- 
col-end
 
-;; FIXME: Make sure all your definitions have an `hcel-' prefix!
 ;; buffers and strings manipulation
-(defun goto-line-column (line column)
+(defun hcel-goto-line-column (line column)
   (goto-line line)
   (move-to-column column))
 
@@ -95,13 +94,13 @@ Example of an idSrcSpan:
   (replace-regexp-in-string
"<" "<" html))
 
-(defun buffer-substring-line-column (line-beg col-beg line-end col-end)
+(defun hcel-buffer-substring-line-column (line-beg col-beg line-end col-end)
   (save-excursion
 (buffer-substring
- (progn (goto-line-column line-beg col-beg) (point))
- (progn (goto-line-column line-end col-end) (point)
+ (progn (hcel-goto-line-column line-beg col-beg) (point))
+ (progn (hcel-goto-line-column line-end col-end) (point)
 
-(defun fontify-with-haskell-mode ()
+(defun hcel-fontify-with-haskell-mode ()
   "Fontify using haskell-mode"
   (require 'haskell)
   (let ((text (buffer-string)))
@@ -115,12 +114,12 @@ Example of an idSrcSpan:
 (erase-buffer)
 (insert text)))
 
-(defun remove-html-markup (html)
+(defun hcel-remove-html-markup (html)
   (replace-regexp-in-string
"<.*?>" "" 
(replace-regexp-in-string "" "\n\n" html)))
 
-(defun fill-string (text)
+(defun hcel-fill-string (text)
   (with-temp-buffer
 (insert text)
 (fill-region (point-min) (point-max))

[nongnu] elpa/geiser-guile updated (e540e14db5 -> f9b0828e15)

[ELPA Syncer]

elpasync pushed a change to branch elpa/geiser-guile.

  from  e540e14db5 version bump
   new  44f40a6db6 new option geiser-guile-debug-backwards-backtrace
   new  f9b0828e15 new option geiser-guile-debug-backwards-backtrace


Summary of changes:
 geiser-guile.el | 21 +
 1 file changed, 21 insertions(+)

[elpa] externals/hcel cc43ecd801 04/13: minor fix var name

[ELPA Syncer]

branch: externals/hcel
commit cc43ecd801fd6759d574d2f8ea846265565b507a
Author: Yuchen Pei 
Commit: Yuchen Pei 

minor fix var name
---
 README.org |  2 +-
 hcel-client.el | 20 ++--
 2 files changed, 11 insertions(+), 11 deletions(-)

diff --git a/README.org b/README.org
index 3eaab61427..8c7cbe8b39 100644
--- a/README.org
+++ b/README.org
@@ -33,7 +33,7 @@ indexed packages, do the following and you are all set.
 
 #+begin_src elisp
 (require 'hc)
-(setq hcel-endpoint "localhost:8080")
+(setq hcel-host "localhost:8080")
 #+end_src
 
 * Use
diff --git a/hcel-client.el b/hcel-client.el
index 1aa0d0f6ef..2061be96de 100644
--- a/hcel-client.el
+++ b/hcel-client.el
@@ -17,7 +17,7 @@
 ;; You should have received a copy of the GNU Affero General Public
 ;; License along with hcel.  If not, see .
 
-(defcustom hcel-endpoint "localhost:8080"
+(defcustom hcel-host "localhost:8080"
   "hcel endpoint"
   :group 'hcel)
 (defcustom hcel-indexed-dir "/.haskell-code-explorer"
@@ -28,7 +28,7 @@
 
 (defun hcel-api-packages ()
   (let ((packages
- (hcel-url-fetch-json (concat hcel-endpoint "/api/packages"
+ (hcel-url-fetch-json (concat hcel-host "/api/packages"
 (mapcan
  (lambda (package)
(mapcar
@@ -44,13 +44,13 @@
(alist-get
 'modules
 (hcel-url-fetch-json (concat
- hcel-endpoint "/files/" (hcel-format-package-id 
package-id "-")
+ hcel-host "/files/" (hcel-format-package-id package-id 
"-")
  hcel-indexed-dir "/packageInfo.json")
 
 (defun hcel-api-definition-site
 (package-id component-id module-name entity name)
   (hcel-url-fetch-json
-   (concat hcel-endpoint "/api/definitionSite/"
+   (concat hcel-host "/api/definitionSite/"
(hcel-format-package-id package-id "-")
"/" component-id "/" module-name "/" entity "/" name)))
 
@@ -68,7 +68,7 @@
 (defun hcel-api-module-info (package-id module-path)
   (hcel-url-fetch-json
(concat
-hcel-endpoint "/files/" (hcel-format-package-id package-id "-")
+hcel-host "/files/" (hcel-format-package-id package-id "-")
 hcel-indexed-dir
 "/" (replace-regexp-in-string "/" "%252F" module-path) ".json.gz")
t))
@@ -77,7 +77,7 @@
 (package-id module-path line-beg col-beg line-end col-end)
   (hcel-url-fetch-json
(concat
-hcel-endpoint "/api/expressions/" (hcel-format-package-id package-id "-")
+hcel-host "/api/expressions/" (hcel-format-package-id package-id "-")
 "/" (replace-regexp-in-string "/" "%2F" module-path)
 "/" (number-to-string (1+ line-beg))
 "/" (number-to-string (1+ col-beg))
@@ -86,7 +86,7 @@
 
 (defun hcel-api-hoogle-docs (package-id module-name entity name)
   (hcel-url-fetch-json
-   (concat hcel-endpoint "/api/hoogleDocs/"
+   (concat hcel-host "/api/hoogleDocs/"
(hcel-format-package-id package-id "-") "/"
module-name "/" entity "/" name)))
 
@@ -101,7 +101,7 @@
 
 (defun hcel-api-references (package-id name &optional page per-page)
   (hcel-url-fetch-json
-   (concat hcel-endpoint "/api/references/"
+   (concat hcel-host "/api/references/"
(hcel-format-package-id package-id "-") "/"
name
(hcel-format-pagination-query page per-page
@@ -109,7 +109,7 @@
 (defun hcel-api-identifiers (scope query package-id &optional page per-page
with-header)
   (hcel-url-fetch-json
-   (concat hcel-endpoint
+   (concat hcel-host
(if (eq scope 'global)
"/api/globalIdentifiers/"
  (concat "/api/identifiers/"
@@ -120,7 +120,7 @@
nil with-header))
 
 (defun hcel-api-global-references (name)
-  (hcel-url-fetch-json (concat hcel-endpoint "/api/globalReferences/" name)))
+  (hcel-url-fetch-json (concat hcel-host "/api/globalReferences/" name)))
 
 (defun hcel-parse-http-header (text)
   (let ((status) (fields))

[elpa] externals/hcel 8e23867bee 09/13: adding "foo ends here", and provide hcel instead of hc

[ELPA Syncer]

branch: externals/hcel
commit 8e23867beeaa4f6b786fd6a046ba52fe5d38df67
Author: Yuchen Pei 
Commit: Yuchen Pei 

adding "foo ends here", and provide hcel instead of hc
---
 hcel-haddorg.el | 1 +
 hcel-outline.el | 1 +
 hcel-results.el | 1 +
 hcel-source.el  | 1 +
 hcel-utils.el   | 1 +
 hcel.el | 2 +-
 6 files changed, 6 insertions(+), 1 deletion(-)

diff --git a/hcel-haddorg.el b/hcel-haddorg.el
index be97e423a2..d3aa016f84 100644
--- a/hcel-haddorg.el
+++ b/hcel-haddorg.el
@@ -44,3 +44,4 @@
package-id "lib" module-name entity name))
 
 (provide 'hcel-haddorg)
+;;; hcel-haddorg.el ends here.
diff --git a/hcel-outline.el b/hcel-outline.el
index 78aad54156..4cfa6cee4e 100644
--- a/hcel-outline.el
+++ b/hcel-outline.el
@@ -215,3 +215,4 @@ update in the outline mode too."
  #'hcel-outline-open-thing-at-point-other-window t)))
 
 (provide 'hcel-outline)
+;;; hcel-outline.el ends here.
diff --git a/hcel-results.el b/hcel-results.el
index ff19d26799..8e5091cf1f 100644
--- a/hcel-results.el
+++ b/hcel-results.el
@@ -397,3 +397,4 @@ Start by choosing a package."
 (define-key hcel-mode-map "i" #'hcel-package-ids)
 
 (provide 'hcel-results)
+;;; hcel-results.el ends here.
diff --git a/hcel-source.el b/hcel-source.el
index 2d51672b00..ee42346b59 100644
--- a/hcel-source.el
+++ b/hcel-source.el
@@ -512,3 +512,4 @@ If NO-JUMP is non-nil, just open the source and does not 
jump to the location wi
 (setq-local eldoc-documentation-strategy 'eldoc-documentation-compose
 
 (provide 'hcel-source)
+;;; hcel-source.el ends here.
diff --git a/hcel-utils.el b/hcel-utils.el
index 1e1afea1eb..686da8d29d 100644
--- a/hcel-utils.el
+++ b/hcel-utils.el
@@ -173,3 +173,4 @@ Example of an idSrcSpan:
   (get-text-property (1- (point)) prop)))
 
 (provide 'hcel-utils)
+;;; hcel-utils.el ends here.
diff --git a/hcel.el b/hcel.el
index bdfe65cbe6..d8dfe6e2a4 100644
--- a/hcel.el
+++ b/hcel.el
@@ -56,5 +56,5 @@
 (switch-to-buffer
  (hcel-load-module-source package-id module-path
 
-(provide 'hc)
+(provide 'hcel)
 ;;; hcel.el ends here.

[elpa] externals/hcel d7c27826e9 03/13: minor wording

[ELPA Syncer]

branch: externals/hcel
commit d7c27826e9e4e7b07b332f36f143ef36b71a3aca
Author: Yuchen Pei 
Commit: Yuchen Pei 

minor wording
---
 README.org | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/README.org b/README.org
index 0fdc3453fa..3eaab61427 100644
--- a/README.org
+++ b/README.org
@@ -1,6 +1,6 @@
 #+title: hc.el
 
-hc.el is a client to [[https://g.ypei.me/hcel.git/][hcel]] and Emacs package 
for Haskell code
+hc.el is a client to [[https://g.ypei.me/hcel.git/][hcel]] and an Emacs 
package for Haskell code
 exploring.  Features include:
 
 - Jump to definition (using xref)

[elpa] externals/ef-themes updated (ae4854dd39 -> 0ab64ddca9)

[ELPA Syncer]

elpasync pushed a change to branch externals/ef-themes.

  from  ae4854dd39 ef-trio-light: tweak bg-inactive
   new  44d2ae6ac5 ef-light-theme: make bg-paren less red
   new  fc61f74969 ef-light-theme: slightly brighten bg-paren
   new  0ab64ddca9 ef-dark: slightly decrease intensity of cursor hue


Summary of changes:
 ef-dark-theme.el  | 2 +-
 ef-light-theme.el | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

[elpa] externals/ef-themes 0ab64ddca9 3/3: ef-dark: slightly decrease intensity of cursor hue

[ELPA Syncer]

branch: externals/ef-themes
commit 0ab64ddca950b023f1fb1c86f9bbcb5e62169299
Author: Protesilaos Stavrou 
Commit: Protesilaos Stavrou 

ef-dark: slightly decrease intensity of cursor hue
---
 ef-dark-theme.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/ef-dark-theme.el b/ef-dark-theme.el
index 719b58094d..15c85a8a6c 100644
--- a/ef-dark-theme.el
+++ b/ef-dark-theme.el
@@ -133,7 +133,7 @@
   (bg-info   "#002212") ; check with info
 
   (border"#4a4a5a")
-  (cursor"#ff66ff")
+  (cursor"#ff76ff")
   (fg-intense"#ff")
 
   (modeline-err "#ff80af")

[elpa] externals/ef-themes 44d2ae6ac5 1/3: ef-light-theme: make bg-paren less red

[ELPA Syncer]

branch: externals/ef-themes
commit 44d2ae6ac52f23248759d47f080ad3ef1d382ba2
Author: Protesilaos Stavrou 
Commit: Protesilaos Stavrou 

ef-light-theme: make bg-paren less red

The previous colour could be misinterpreted for an error/mismatch.
---
 ef-light-theme.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/ef-light-theme.el b/ef-light-theme.el
index 8cf425adba..717d5a727c 100644
--- a/ef-light-theme.el
+++ b/ef-light-theme.el
@@ -127,7 +127,7 @@
   (bg-hover-alt  "#b4cfff")
   (bg-hl-line"#e4efd8")
   (bg-region "#bfefff")
-  (bg-paren  "#efa09f")
+  (bg-paren  "#bfa0cf")
   (bg-err"#ffd5ea") ; check with err
   (bg-warning"#ffeabb") ; check with warning
   (bg-info   "#d0efda") ; check with info

[elpa] externals/ef-themes fc61f74969 2/3: ef-light-theme: slightly brighten bg-paren

[ELPA Syncer]

branch: externals/ef-themes
commit fc61f749692e39bf09e39dae3cc4b67d82fa1b75
Author: Protesilaos Stavrou 
Commit: Protesilaos Stavrou 

ef-light-theme: slightly brighten bg-paren

Refines commit 44d2ae6.
---
 ef-light-theme.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/ef-light-theme.el b/ef-light-theme.el
index 717d5a727c..e12dc86e44 100644
--- a/ef-light-theme.el
+++ b/ef-light-theme.el
@@ -127,7 +127,7 @@
   (bg-hover-alt  "#b4cfff")
   (bg-hl-line"#e4efd8")
   (bg-region "#bfefff")
-  (bg-paren  "#bfa0cf")
+  (bg-paren  "#dfa0f3")
   (bg-err"#ffd5ea") ; check with err
   (bg-warning"#ffeabb") ; check with warning
   (bg-info   "#d0efda") ; check with info

[elpa] externals/ement bdc69bb20b 2/2: Fix: (ement-room-list--entry)

[ELPA Syncer]

branch: externals/ement
commit bdc69bb20bba9ccfb29f754f4ccfbbdf89944ff6
Author: Adam Porter 
Commit: Adam Porter 

Fix: (ement-room-list--entry)

Oops.
---
 ement-room-list.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/ement-room-list.el b/ement-room-list.el
index b95efd3fe3..0669bc59ce 100644
--- a/ement-room-list.el
+++ b/ement-room-list.el
@@ -334,7 +334,7 @@ To be called in `ement-sync-callback-hook'."
(e-unread (if (and buffer (buffer-modified-p buffer))
  (propertize "U" 'help-echo "Unread") ""))
(e-buffer (if buffer (propertize "B" 'help-echo "Room has 
buffer") ""))
-   (e-avatar (if ement-room-list-avatars
+   (e-avatar (if (and ement-room-list-avatars avatar)
  (or room-list-avatar
  (if-let* ((avatar-image (get-text-property 0 
'display avatar))
(new-avatar-string (propertize " " 
'display

[elpa] externals/ement e046f66ba2 1/2: Fix: (ement-room-list--entry) When room avatar image fails to load

[ELPA Syncer]

branch: externals/ement
commit e046f66ba2c1c3c6be2ce64d8955af0c42458a02
Author: Adam Porter 
Commit: Adam Porter 

Fix: (ement-room-list--entry) When room avatar image fails to load

Thanks to @trevdev:matrix.org for reporting.
---
 README.org |  1 +
 ement-room-list.el | 23 +++
 2 files changed, 16 insertions(+), 8 deletions(-)

diff --git a/README.org b/README.org
index f251568323..bd43e6759c 100644
--- a/README.org
+++ b/README.org
@@ -288,6 +288,7 @@ Note that, while ~matrix-client~ remains usable, and 
probably will for some time
 *Fixes*
 + Links to only rooms (as opposed to links to events in rooms) may be 
activated to join them.
 + Read receipts mark the last completely visible event (rather than one that's 
only partially displayed).
++ Prevent error when a room avatar image fails to load.
 
 ** 0.1.4
 
diff --git a/ement-room-list.el b/ement-room-list.el
index 7b33410e41..b95efd3fe3 100644
--- a/ement-room-list.el
+++ b/ement-room-list.el
@@ -334,15 +334,22 @@ To be called in `ement-sync-callback-hook'."
(e-unread (if (and buffer (buffer-modified-p buffer))
  (propertize "U" 'help-echo "Unread") ""))
(e-buffer (if buffer (propertize "B" 'help-echo "Room has 
buffer") ""))
-   (e-avatar (if (and ement-room-list-avatars avatar)
+   (e-avatar (if ement-room-list-avatars
  (or room-list-avatar
- (let ((new-avatar (propertize " " 'display
-   
(ement--resize-image (get-text-property 0 'display avatar)
-   
 nil (frame-char-height)
-   ;; alist-get doesn't seem to return the new 
value when used with setf?
-   (setf (alist-get 'room-list-avatar 
(ement-room-local room))
- new-avatar)
-   new-avatar))
+ (if-let* ((avatar-image (get-text-property 0 
'display avatar))
+   (new-avatar-string (propertize " " 
'display
+  
(ement--resize-image avatar-image
+   
nil (frame-char-height)
+ (progn
+   ;; alist-get doesn't seem to return the 
new value when used with setf?
+   (setf (alist-get 'room-list-avatar 
(ement-room-local room))
+ new-avatar-string)
+   new-avatar-string)
+   ;; If a room avatar image fails to download 
or decode
+   ;; and ends up nil, we return the empty 
string.
+   (ement-debug "nil avatar for room: " 
(ement-room-display-name room) (ement-room-canonical-alias room))
+   ""))
+   ;; Room avatars disabled.
""))
;; We have to copy the list, otherwise using `setf' on it
;; later causes its value to be mutated for every entry.

[elpa] externals/ement updated (24c83355ff -> bdc69bb20b)

[ELPA Syncer]

elpasync pushed a change to branch externals/ement.

  from  24c83355ff Fix: (ement-room-goto-fully-read-marker) For missing 
marker node
   new  e046f66ba2 Fix: (ement-room-list--entry) When room avatar image 
fails to load
   new  bdc69bb20b Fix: (ement-room-list--entry)


Summary of changes:
 README.org |  1 +
 ement-room-list.el | 21 ++---
 2 files changed, 15 insertions(+), 7 deletions(-)

[nongnu] elpa/xah-fly-keys 65d98bf998 1/2: return these emacs default keys. C-1, C-@, C-b, C-d, C-e, C-f, C-k, C-l, C-p. seems some people are not happy with removing them. they were removed on 2021-0

[ELPA Syncer]

branch: elpa/xah-fly-keys
commit 65d98bf9987648be7c99d638c2530245120ca92a
Author: Xah Lee 
Commit: Xah Lee 

return these emacs default keys. C-1, C-@, C-b, C-d, C-e, C-f, C-k, C-l, 
C-p. seems some people are not happy with removing them. they were removed on 
2021-08-07 commit id ed33fa3e5e852666881dd5b4936db5ce815d9563
---
 xah-fly-keys.el | 20 ++--
 1 file changed, 10 insertions(+), 10 deletions(-)

diff --git a/xah-fly-keys.el b/xah-fly-keys.el
index a055964c8f..2d1d4fec09 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: 18.0.20220918232928
+;; Version: 18.1.20220921110635
 ;; Created: 10 Sep 2013
 ;; Package-Requires: ((emacs "24.1"))
 ;; Keywords: convenience, emulations, vim, ergoemacs
@@ -3888,7 +3888,7 @@ minor modes loaded later may override bindings in this 
map.")
 
   (global-set-key (kbd "") 'xah-fly-leader-key-map)
 
-  (global-set-key (kbd "C-1") 'nil)
+  ;; (global-set-key (kbd "C-1") 'nil)
   (global-set-key (kbd "C-2") #'pop-global-mark)
   (global-set-key (kbd "C-3") #'previous-error)
   (global-set-key (kbd "C-4") #'next-error)
@@ -3908,24 +3908,24 @@ minor modes loaded later may override bindings in this 
map.")
   (global-set-key (kbd "C-S-s") #'write-file)
   (global-set-key (kbd "C-S-t") #'xah-open-last-closed)
 
-  (global-set-key (kbd "C-@") 'nil)
+  ;; (global-set-key (kbd "C-@") 'nil)
 
   (global-set-key (kbd "C-a") #'mark-whole-buffer)
-  (global-set-key (kbd "C-b") 'nil)
+  ;; (global-set-key (kbd "C-b") 'nil)
   ;; (global-set-key (kbd "C-c") 'nil)
-  (global-set-key (kbd "C-d") 'nil)
-  (global-set-key (kbd "C-e") 'nil)
-  (global-set-key (kbd "C-f") 'nil)
+  ;; (global-set-key (kbd "C-d") 'nil)
+  ;; (global-set-key (kbd "C-e") 'nil)
+  ;; (global-set-key (kbd "C-f") 'nil)
   ;; (global-set-key (kbd "C-g") 'nil) ; cancel
   ;; (global-set-key (kbd "C-h") 'nil) ; help
   ;; (global-set-key (kbd "C-i") 'nil) ; tab
   ;; (global-set-key (kbd "C-j") 'nil) ; newline
-  (global-set-key (kbd "C-k") 'nil)
-  (global-set-key (kbd "C-l") 'nil)
+  ;; (global-set-key (kbd "C-k") 'nil)
+  ;; (global-set-key (kbd "C-l") 'nil)
   ;; (global-set-key (kbd "C-m") 'nil)
   (global-set-key (kbd "C-n") #'xah-new-empty-buffer)
   (global-set-key (kbd "C-o") #'find-file)
-  (global-set-key (kbd "C-p") 'nil)
+  ;; (global-set-key (kbd "C-p") 'nil)
   ;; (global-set-key (kbd "C-q") 'nil)
   ;; (global-set-key (kbd "C-r") 'nil)
   (global-set-key (kbd "C-s") #'save-buffer)

[nongnu] elpa/xah-fly-keys updated (054a56cb44 -> a74417c7d5)

[ELPA Syncer]

elpasync pushed a change to branch elpa/xah-fly-keys.

  from  054a56cb44 .gitignore, added ELPA-generated files
   new  65d98bf998 return these emacs default keys. C-1, C-@, C-b, C-d, 
C-e, C-f, C-k, C-l, C-p. seems some people are not happy with removing them. 
they were removed on 2021-08-07 commit id 
ed33fa3e5e852666881dd5b4936db5ce815d9563
   new  a74417c7d5 update README.md


Summary of changes:
 README.md   | 42 +++---
 xah-fly-keys.el | 20 ++--
 2 files changed, 21 insertions(+), 41 deletions(-)

[nongnu] elpa/xah-fly-keys a74417c7d5 2/2: update README.md

[ELPA Syncer]

branch: elpa/xah-fly-keys
commit a74417c7d54889bb3325e1d69fd866493b8cdd2e
Author: Xah Lee 
Commit: Xah Lee 

update README.md
---
 README.md | 42 +++---
 1 file changed, 11 insertions(+), 31 deletions(-)

diff --git a/README.md b/README.md
index 4f9bc9cd53..0f3ec53340 100755
--- a/README.md
+++ b/README.md
@@ -26,35 +26,19 @@ create the dir if doesn't exist.
 put the following in your emacs init file:
 
 ```elisp
+
 (add-to-list 'load-path "~/.emacs.d/lisp/")
+
 (require 'xah-fly-keys)
-(xah-fly-keys-set-layout "qwerty") ; required
-```
 
-The following keyboard layouts are supported:
-
-* adnw
-* azerty
-* azerty-be
-* beopy
-* bepo
-* carpalx-qfmlwy
-* carpalx-qgmlwb
-* carpalx-qgmlwy
-* colemak
-* colemak-mod-dh
-* colemak-mod-dh-new
-* dvorak
-* koy
-* neo2
-* norman
-* programer-dvorak
-* pt-nativo
-* qwerty
-* qwerty-abnt
-* qwerty-no (qwerty Norwegian)
-* qwertz
-* workman
+;; specify a layout
+(xah-fly-keys-set-layout "qwerty")
+
+;; possible values
+;; adnw , azerty , azerty-be , beopy , bepo , carpalx-qfmlwy , carpalx-qgmlwb 
, carpalx-qgmlwy , colemak , colemak-dhm , colemak-dhm-angle , colemak-dhk , 
dvorak , koy , neo2 , norman , programer-dvorak , pt-nativo , qwerty , 
qwerty-abnt , qwerty-no (qwerty Norwegian) , qwertz , workman
+
+(xah-fly-keys 1)
+```
 
 Full Documentation
 ---
@@ -63,10 +47,6 @@ http://xahlee.info/emacs/misc/xah-fly-keys.html
 
 Been working on this since 2013, and since 2007 on ergoemacs-mode.
 
-Put in 5 bucks in my patreon.
-https://www.patreon.com/xahlee
-
-or https://paypal.com
-pay to x...@xahlee.org
+give me 5 bucks https://paypal.com pay to x...@xahlee.org
 
 Thanks.

[elpa] elpa-admin e15eb8bbe2: Revert "Run emacs with --no-site-lisp"

[Stefan Kangas]

branch: elpa-admin
commit e15eb8bbe25755cd6617e66c13ca4fd95f714451
Author: Stefan Kangas 
Commit: Stefan Kangas 

Revert "Run emacs with --no-site-lisp"

This reverts commit d870f8491850bf640c00c4e555092206f96b5f5a.

This made the output a bit cleaner, but unfortunately breaks the
scripts on elpa.gnu.org.
Problem reported by Stefan Monnier .
---
 GNUmakefile | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/GNUmakefile b/GNUmakefile
index a7d078a1a8..affba15e36 100644
--- a/GNUmakefile
+++ b/GNUmakefile
@@ -2,8 +2,7 @@
 #
 
 EMACSBIN=emacs
-EMACSFLAGS=--no-site-lisp
-EMACS=$(EMACSBIN) $(EMACSFLAGS) --batch
+EMACS=$(EMACSBIN) --batch
 RM=rm -f
 
 PKG_DESCS_MK=.pkg-descs.mk

[elpa] externals/ement 9fa6c59836: Release: v0.2

[ELPA Syncer]

branch: externals/ement
commit 9fa6c59836e6e284548d43aa6d7fa60d2473bf14
Author: Adam Porter 
Commit: Adam Porter 

Release: v0.2
---
 README.org | 2 +-
 ement.el   | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/README.org b/README.org
index bd43e6759c..383d8460d6 100644
--- a/README.org
+++ b/README.org
@@ -278,7 +278,7 @@ Note that, while ~matrix-client~ remains usable, and 
probably will for some time
 :TOC:  :depth 0
 :END:
 
-** 0.2-pre
+** 0.2
 
 *Changes*
 + Read receipts are re-enabled.  (They're now implemented with a global idle 
timer rather than ~window-scroll-functions~, which sometimes caused a strange 
race condition that could cause Emacs to become unresponsive or crash.)
diff --git a/ement.el b/ement.el
index 7e67648e62..6fabfbd7f0 100644
--- a/ement.el
+++ b/ement.el
@@ -5,7 +5,7 @@
 ;; Author: Adam Porter 
 ;; Maintainer: Adam Porter 
 ;; URL: https://github.com/alphapapa/ement.el
-;; Version: 0.2-pre
+;; Version: 0.2
 ;; Package-Requires: ((emacs "27.1") (map "2.1") (plz "0.2") (taxy "0.9") 
(taxy-magit-section "0.9") (svg-lib "0.2.5") (transient "0.3.7"))
 ;; Keywords: comm
 

[elpa] externals/corfu 3490a42c30: Put preview overlay behind base

[ELPA Syncer]

branch: externals/corfu
commit 3490a42c30e4e32fe2d76dfc7736b649d37950db
Author: Daniel Mendler 
Commit: Daniel Mendler 

Put preview overlay behind base
---
 corfu.el | 7 +++
 1 file changed, 3 insertions(+), 4 deletions(-)

diff --git a/corfu.el b/corfu.el
index 26863ae972..1c27a38e9f 100644
--- a/corfu.el
+++ b/corfu.el
@@ -801,12 +801,11 @@ there hasn't been any input, then quit."
   (when-let (cand (and corfu-preview-current (>= corfu--index 0)
(/= corfu--index corfu--preselect)
(nth corfu--index corfu--candidates)))
-(setq corfu--preview-ov (make-overlay beg end nil t t))
+(setq beg (+ beg (length corfu--base))
+  corfu--preview-ov (make-overlay beg end nil))
 (overlay-put corfu--preview-ov 'priority 1000)
 (overlay-put corfu--preview-ov 'window (selected-window))
-(overlay-put corfu--preview-ov
- (if (= beg end) 'after-string 'display)
- (concat corfu--base cand
+(overlay-put corfu--preview-ov (if (= beg end) 'after-string 'display) 
cand)))
 
 (defun corfu--echo-cancel (&optional msg)
   "Cancel echo timer and refresh MSG to prevent flicker during redisplay."

[nongnu] elpa/geiser-guile 8f0ffecb43: obsolete names of boolean customization flags ending in -p

[ELPA Syncer]

branch: elpa/geiser-guile
commit 8f0ffecb430fffc8e32bb49bdc33becfa6846647
Author: jao 
Commit: jao 

obsolete names of boolean customization flags ending in -p

The -p suffix, meaning predicate, is meant for functions (which is what a
predicate is).
---
 geiser-guile.el | 35 ---
 readme.org  |  2 +-
 2 files changed, 29 insertions(+), 8 deletions(-)

diff --git a/geiser-guile.el b/geiser-guile.el
index 4bb014cb46..6db40fa057 100644
--- a/geiser-guile.el
+++ b/geiser-guile.el
@@ -65,22 +65,29 @@ If all you want is to load ~/.guile, set
 `geiser-guile-load-init-file-p' instead."
   :type 'string)
 
-(geiser-custom--defcustom geiser-guile-load-init-file-p nil
+(geiser-custom--defcustom geiser-guile-load-init-file nil
   "Whether to load ~/.guile when starting Guile.
 Note that, due to peculiarities in the way Guile loads its init
 file, using `geiser-guile-init-file' is not equivalent to setting
 this variable to t."
   :type 'boolean)
 
-(geiser-custom--defcustom geiser-guile-use-declarative-modules-p nil
+(define-obsolete-variable-alias
+  'geiser-guile-load-init-file-p 'geiser-guile-load-init-file "0.26.2")
+
+(geiser-custom--defcustom geiser-guile-use-declarative-modules nil
   "Whether Guile should use \"declarative\" modules limiting mutability.
 When set to `t', Guile will enforce immutable bindings in
 exported modules."
   :type 'boolean
   :link '(info-link "(guile) Declarative Modules"))
 
+(define-obsolete-variable-alias
+  'geiser-guile-use-declarative-modules-p 'geiser-guile-use-declarative-modules
+  "0.26.2")
+
 (geiser-custom--defcustom geiser-guile-debug-backwards-backtrace t
-  "Whether to configure backtraces using the 'backwards' ordering."
+  "Whether to configure backtraces using the \\='backwards ordering."
   :type 'boolean)
 
 (geiser-custom--defcustom geiser-guile-debug-terminal-width 999
@@ -90,19 +97,30 @@ truncated.  Set to a negative value if you prefer that 
geiser
 does not set it on startup."
   :type 'integer)
 
-(geiser-custom--defcustom geiser-guile-debug-show-bt-p t
+(geiser-custom--defcustom geiser-guile-debug-show-bt t
   "Whether to automatically show a full backtrace when entering the debugger.
 If nil, only the last frame is shown."
   :type 'boolean)
 
-(geiser-custom--defcustom geiser-guile-debug-show-full-bt-p t
+(define-obsolete-variable-alias
+  'geiser-guile-debug-show-bt-p 'geiser-guile-debug-show-bt "0.26.2")
+
+
+(geiser-custom--defcustom geiser-guile-debug-show-full-bt t
   "Whether to show full backtraces in the debugger, including local variables."
   :type 'boolean)
 
-(geiser-custom--defcustom geiser-guile-show-debug-help-p t
+(define-obsolete-variable-alias
+  'geiser-guile-debug-show-full-bt-p 'geiser-guile-debug-show-full-bt "0.26.2")
+
+
+(geiser-custom--defcustom geiser-guile-show-debug-help t
   "Whether to show brief help in the echo area when entering the debugger."
   :type 'boolean)
 
+(define-obsolete-variable-alias
+  'geiser-guile-show-debug-help-p 'geiser-guile-show-debug-help "0.26.2")
+
 (geiser-custom--defcustom geiser-guile-warning-level 'medium
   "Verbosity of the warnings reported by Guile.
 
@@ -129,10 +147,13 @@ effect on new REPLs.  For existing ones, use the command
   "Extra keywords highlighted in Guile scheme buffers."
   :type '(repeat string))
 
-(geiser-custom--defcustom geiser-guile-case-sensitive-p t
+(geiser-custom--defcustom geiser-guile-case-sensitive t
   "Non-nil means keyword highlighting is case-sensitive."
   :type 'boolean)
 
+(define-obsolete-variable-alias
+  'geiser-guile-case-sensitive-p 'geiser-guile-case-sensitive "0.26.2")
+
 (geiser-custom--defcustom geiser-guile-manual-lookup-other-window-p nil
   "Non-nil means pop up the Info buffer in another window."
   :type 'boolean)
diff --git a/readme.org b/readme.org
index b275d985fd..538be89a34 100644
--- a/readme.org
+++ b/readme.org
@@ -42,7 +42,7 @@ geiser-guile.
   in the way Guile loads the initialization file versus how it loads
   a file specified via the =-l= flag.  If what you want is just
   loading =~/.guile=, leave ~geiser-guile-init-file~ alone and set
-  ~geiser-guile-load-init-file-p~ to ~t~ instead.
+  ~geiser-guile-load-init-file~ to ~t~ instead.
 
   One can also provide a global list of paths to add to Guile's
   =%load-path= via ~geiser-guile-load-path~.

[elpa] externals/org 4657cea495 2/3: org-agenda-get-timestamps: Improve performance

[ELPA Syncer]

branch: externals/org
commit 4657cea495cd8e2163d14e53e5e07d97e4bf47c6
Author: Ihor Radchenko 
Commit: Ihor Radchenko 

org-agenda-get-timestamps: Improve performance

* lisp/org-agenda.el (org-agenda-get-timestamps): Pass element at
point to `org-agenda-skip'.
---
 lisp/org-agenda.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lisp/org-agenda.el b/lisp/org-agenda.el
index 44af6aa1e6..c45fd45465 100644
--- a/lisp/org-agenda.el
+++ b/lisp/org-agenda.el
@@ -5794,7 +5794,7 @@ displayed in agenda view."
 (org-at-clock-log-p))
 (not (org-at-timestamp-p 'agenda)))
(throw :skip nil))
- (org-agenda-skip))
+ (org-agenda-skip (org-element-at-point)))
(let* ((pos (match-beginning 0))
   (repeat (match-string 1))
   (sexp-entry (match-string 3))

[elpa] externals/org updated (95df82c5fc -> d4fde298b9)

[ELPA Syncer]

elpasync pushed a change to branch externals/org.

  from  95df82c5fc org.el: Support subtree-level org-image-actual-width 
overriding
   new  3e3588dc75 org-agenda-skip: Improve performance
   new  4657cea495 org-agenda-get-timestamps: Improve performance
   new  d4fde298b9 org-agenda-get-sexps: Improve performance


Summary of changes:
 lisp/org-agenda.el | 46 +++---
 1 file changed, 27 insertions(+), 19 deletions(-)

[elpa] externals/org 3e3588dc75 1/3: org-agenda-skip: Improve performance

[ELPA Syncer]

branch: externals/org
commit 3e3588dc756bad62a99e6a6aea8e3b62d25240b8
Author: Ihor Radchenko 
Commit: Ihor Radchenko 

org-agenda-skip: Improve performance

* lisp/org-agenda.el: Remove unnecessary variable assignment.  Prefer
checking ELEMENT type over regexp match when checking if we are inside
comment.  Postpone let-binding until it is strictly necessary.
---
 lisp/org-agenda.el | 35 +++
 1 file changed, 19 insertions(+), 16 deletions(-)

diff --git a/lisp/org-agenda.el b/lisp/org-agenda.el
index 1d8b871d89..44af6aa1e6 100644
--- a/lisp/org-agenda.el
+++ b/lisp/org-agenda.el
@@ -4212,22 +4212,25 @@ Also moves point to the end of the skipped region, so 
that search can
 continue from there.
 
 Optional argument ELEMENT contains element at point."
-  (let ((p (line-beginning-position)) to)
-(when (or
-  (save-excursion (goto-char p) (looking-at comment-start-skip))
-  (and org-agenda-skip-archived-trees (not org-agenda-archives-mode)
-   (or (and (save-match-data (org-in-archived-heading-p nil 
element))
-(org-end-of-subtree t element))
-   (and (member org-archive-tag org-file-tags)
-(goto-char (point-max)
-  (and org-agenda-skip-comment-trees
-(org-in-commented-heading-p nil element)
-   (org-end-of-subtree t element))
-  (and (setq to (or (org-agenda-skip-eval 
org-agenda-skip-function-global)
-(org-agenda-skip-eval org-agenda-skip-function)))
-   (goto-char to))
-  (org-in-src-block-p t element))
-  (throw :skip t
+  (when (or
+ (if element
+ (eq (org-element-type element) 'comment)
+  (save-excursion
+ (goto-char (line-beginning-position))
+ (looking-at comment-start-skip)))
+(and org-agenda-skip-archived-trees (not org-agenda-archives-mode)
+ (or (and (save-match-data (org-in-archived-heading-p nil element))
+  (org-end-of-subtree t element))
+ (and (member org-archive-tag org-file-tags)
+  (goto-char (point-max)
+(and org-agenda-skip-comment-trees
+  (org-in-commented-heading-p nil element)
+ (org-end-of-subtree t element))
+ (let ((to (or (org-agenda-skip-eval org-agenda-skip-function-global)
+  (org-agenda-skip-eval org-agenda-skip-function
+   (and to (goto-char to)))
+(org-in-src-block-p t element))
+(throw :skip t)))
 
 (defun org-agenda-skip-eval (form)
   "If FORM is a function or a list, call (or eval) it and return the result.

[elpa] externals/org d4fde298b9 3/3: org-agenda-get-sexps: Improve performance

[ELPA Syncer]

branch: externals/org
commit d4fde298b9a3b4a460e0fc232263662d9ebb1660
Author: Ihor Radchenko 
Commit: Ihor Radchenko 

org-agenda-get-sexps: Improve performance

* lisp/org-agenda.el (org-agenda-get-sexps): Remove trailing
whitespaces in SEXP-ENTRY via buffer movements.  It is faster than
re-creating string objects in `org-trim'.
---
 lisp/org-agenda.el | 9 +++--
 1 file changed, 7 insertions(+), 2 deletions(-)

diff --git a/lisp/org-agenda.el b/lisp/org-agenda.el
index c45fd45465..696bb190d7 100644
--- a/lisp/org-agenda.el
+++ b/lisp/org-agenda.el
@@ -5919,8 +5919,13 @@ displayed in agenda view."
(setq b (point))
(forward-sexp 1)
(setq sexp (buffer-substring b (point)))
-   (setq sexp-entry (if (looking-at "[ \t]*\\(\\S-.*\\)")
-(org-trim (match-string 1))
+   (setq sexp-entry (if (org-looking-at "[ \t]*\\(\\S-.*\\)")
+ (buffer-substring
+  (match-beginning 1)
+  (save-excursion
+(goto-char (match-end 1))
+(skip-chars-backward "[:blank:]")
+(point)))
   ""))
(setq result (org-diary-sexp-entry sexp sexp-entry date))
(when result

[elpa] externals/ef-themes ad1b709629 1/2: Clarify wording of "advanced" DIY changes

[ELPA Syncer]

branch: externals/ef-themes
commit ad1b70962944e9ecd8fc177bf1acba3bc0b2f8b0
Author: Protesilaos Stavrou 
Commit: Protesilaos Stavrou 

Clarify wording of "advanced" DIY changes
---
 README.org | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/README.org b/README.org
index 6af51c6204..70b1fcedb9 100644
--- a/README.org
+++ b/README.org
@@ -534,7 +534,7 @@ code that uses ~ef-themes-with-colors~.
 This section documents how the user can further tweak the Ef themes to
 their liking.
 
-** The general approach to DIY changes
+** The general approach to advanced DIY changes
 :PROPERTIES:
 :CUSTOM_ID: h:ec0adf54-c037-4c53-81b8-7eab2303794d
 :END:

[elpa] externals/ef-themes updated (0ab64ddca9 -> 79bb1436f2)

[ELPA Syncer]

elpasync pushed a change to branch externals/ef-themes.

  from  0ab64ddca9 ef-dark: slightly decrease intensity of cursor hue
   new  ad1b709629 Clarify wording of "advanced" DIY changes
   new  79bb1436f2 Add DIY section about org-modern-label


Summary of changes:
 README.org | 43 ++-
 1 file changed, 42 insertions(+), 1 deletion(-)

[elpa] externals/ef-themes 79bb1436f2 2/2: Add DIY section about org-modern-label

[ELPA Syncer]

branch: externals/ef-themes
commit 79bb1436f2fd8ab07e850c247c5616490f619f52
Author: Protesilaos Stavrou 
Commit: Protesilaos Stavrou 

Add DIY section about org-modern-label
---
 README.org | 41 +
 1 file changed, 41 insertions(+)

diff --git a/README.org b/README.org
index 70b1fcedb9..aab22ec6b0 100644
--- a/README.org
+++ b/README.org
@@ -534,6 +534,47 @@ code that uses ~ef-themes-with-colors~.
 This section documents how the user can further tweak the Ef themes to
 their liking.
 
+** Style font of =org-modern= elements
+:PROPERTIES:
+:CUSTOM_ID: h:32e3b7b2-3b53-4ec2-bd4e-fa24235e447d
+:END:
+
+[ Part of {{{development-version}}} ]
+
+The =org-modern= package uses faces and text properties to make Org
+buffers more aesthetically pleasing.  It affects tables, timestamps,
+lists, headings, and more.  To achieve a uniform look, the package
+defines a face that applies to all of those restyled elements.  The face
+is ~org-modern-label~.
+
+Depending on the user's font configurations, some elements may not line
+up properly.  The Ef themes used to prevent that phenomenon by expressly
+disabling all attributes of the ~org-modern-label~.  However, that only
+works for users who do not tinker with their packages, as it has the
+adverse effect of impacting the user option ~org-modern-label-border~.
+
+As such, the Ef themes no longer touch the ~org-modern-label~.  Users
+who want the old behaviour, are advised to include the following snipet
+in their init file.  They can add it, for example, after the call to
+load their theme of choice ([[#h:75d74aea-d17f-497f-a3b8-f0bf4c372de0][Loading 
a theme]]).
+
+#+begin_src emacs-lisp
+;; Revert to previous style of ef-themes version 0.5.0.  This makes,
+;; e.g., timestamps align in tables since they have the same typographic
+;; attributes as the default typeface.
+(set-face-attribute 'org-modern-label nil
+:inherit 'unspecified
+:height 'unspecified
+:weight 'unspecified
+:width 'unspecified
+:underline 'unspecified
+:box 'unspecified)
+#+end_src
+
+Alignment in tables will also depend on the use of proportionately
+spaced fonts.  Enable the relevant option to work with those without any
+further trouble ([[#h:621d3bb9-5967-4f97-b253-7470bba9168c][Enable mixed 
fonts]]).
+
 ** The general approach to advanced DIY changes
 :PROPERTIES:
 :CUSTOM_ID: h:ec0adf54-c037-4c53-81b8-7eab2303794d

[elpa] externals/org 6a5f67567e: fixup! org-agenda-get-sexps: Improve performance

[ELPA Syncer]

branch: externals/org
commit 6a5f67567effc85255c9093501aa08e79efec65d
Author: Ihor Radchenko 
Commit: Ihor Radchenko 

fixup! org-agenda-get-sexps: Improve performance
---
 lisp/org-agenda.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lisp/org-agenda.el b/lisp/org-agenda.el
index 696bb190d7..4c3889d120 100644
--- a/lisp/org-agenda.el
+++ b/lisp/org-agenda.el
@@ -5919,7 +5919,7 @@ displayed in agenda view."
(setq b (point))
(forward-sexp 1)
(setq sexp (buffer-substring b (point)))
-   (setq sexp-entry (if (org-looking-at "[ \t]*\\(\\S-.*\\)")
+   (setq sexp-entry (if (looking-at "[ \t]*\\(\\S-.*\\)")
  (buffer-substring
   (match-beginning 1)
   (save-excursion

[elpa] externals/org ae2140b1e6: org-manual: Fix typo in beamer example

[ELPA Syncer]

branch: externals/org
commit ae2140b1e6bfeb3650303b8f1d8a7bcba8f8eb12
Author: TEC 
Commit: TEC 

org-manual: Fix typo in beamer example

* doc/org-manual.org (Beamer specific syntax): Fix closing keyword of
the beamer export example.
---
 doc/org-manual.org | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/doc/org-manual.org b/doc/org-manual.org
index 4c9c087a75..6f2e117d58 100644
--- a/doc/org-manual.org
+++ b/doc/org-manual.org
@@ -12538,7 +12538,7 @@ Insert Beamer-specific code using the following 
constructs:
 
 ,#+BEGIN_EXPORT beamer
   Only Beamer export back-end exports this.
-,#+END_BEAMER
+,#+END_EXPORT
 
 Text @@beamer:some code@@ within a paragraph.
 #+end_example