[nongnu] elpa/git-commit 9d8d5e5603: When toggling sections don't always go to section beginning

[ELPA Syncer]

branch: elpa/git-commit
commit 9d8d5e560394c001b866c00200ccea65b7d94a04
Author: Jonas Bernoulli 
Commit: Jonas Bernoulli 

When toggling sections don't always go to section beginning

In the case of `magit-section-toggle' the old behavior goes all the
way back to [1: c31519163].  In other words, it survived a few more
big rewrites, but now its time is finally over. ;P

1: 2008-09-07 c315191639f27ba6237d7adff5777a6e6271d8d2
   Big rewrite of the 'section' and 'item' machinery.
---
 lisp/magit-section.el | 15 +++
 1 file changed, 7 insertions(+), 8 deletions(-)

diff --git a/lisp/magit-section.el b/lisp/magit-section.el
index fcaae1d979..526a4b2ab8 100644
--- a/lisp/magit-section.el
+++ b/lisp/magit-section.el
@@ -621,6 +621,8 @@ With a prefix argument also expand it." heading)
 (oset section hidden t)
 (when-let ((beg (oref section content)))
   (let ((end (oref section end)))
+(when (< beg (point) end)
+  (goto-char (oref section start)))
 (remove-overlays beg end 'invisible t)
 (let ((o (make-overlay beg end)))
   (overlay-put o 'evaporate t)
@@ -631,17 +633,15 @@ With a prefix argument also expand it." heading)
 (defun magit-section-toggle (section)
   "Toggle visibility of the body of the current section."
   (interactive (list (magit-current-section)))
-  (if (eq section magit-root-section)
-  (user-error "Cannot hide root section")
-(goto-char (oref section start))
-(if (oref section hidden)
-(magit-section-show section)
-  (magit-section-hide section
+  (cond ((eq section magit-root-section)
+ (user-error "Cannot hide root section"))
+((oref section hidden)
+ (magit-section-show section))
+(t (magit-section-hide section
 
 (defun magit-section-toggle-children (section)
   "Toggle visibility of bodies of children of the current section."
   (interactive (list (magit-current-section)))
-  (goto-char (oref section start))
   (let* ((children (oref section children))
  (show (--any-p (oref it hidden) children)))
 (dolist (c children)
@@ -688,7 +688,6 @@ hidden."
 (defun magit-section-cycle (section)
   "Cycle visibility of current section and its children."
   (interactive (list (magit-current-section)))
-  (goto-char (oref section start))
   (if (oref section hidden)
   (progn (magit-section-show section)
  (magit-section-hide-children section))

[nongnu] elpa/magit updated (10b5407131 -> 9d8d5e5603)

[ELPA Syncer]

elpasync pushed a change to branch elpa/magit.

  from  10b5407131 magit-diff-highlight-list: Ensure delayed highlighting 
takes place
  adds  9d8d5e5603 When toggling sections don't always go to section 
beginning

No new revisions were added by this update.

Summary of changes:
 lisp/magit-section.el | 15 +++
 1 file changed, 7 insertions(+), 8 deletions(-)

[nongnu] elpa/magit-section updated (10b5407131 -> 9d8d5e5603)

[ELPA Syncer]

elpasync pushed a change to branch elpa/magit-section.

  from  10b5407131 magit-diff-highlight-list: Ensure delayed highlighting 
takes place
  adds  9d8d5e5603 When toggling sections don't always go to section 
beginning

No new revisions were added by this update.

Summary of changes:
 lisp/magit-section.el | 15 +++
 1 file changed, 7 insertions(+), 8 deletions(-)

[elpa] externals/eglot de3004fb52: Fix #863: Use new jdtls script for Eclipse JDT

[ELPA Syncer]

branch: externals/eglot
commit de3004fb52bc87eb7088894dbc4047101004e366
Author: Manuel Uberti 
Commit: GitHub 

Fix #863: Use new jdtls script for Eclipse JDT

Per #864.

* eglot.el (eglot-server-programs): use new jdtls
(eglot--eclipse-jdt-contact, eglot--eclipse-jdt). Remove.
(eglot-execute-command eglot-eclipse-jdt): Remove.
(eglot-initialization-options eglot-eclipse-jdt): Remove.
---
 eglot.el | 96 +---
 1 file changed, 1 insertion(+), 95 deletions(-)

diff --git a/eglot.el b/eglot.el
index b84e1449d7..5b4d419678 100644
--- a/eglot.el
+++ b/eglot.el
@@ -173,7 +173,7 @@ language-server/bin/php-language-server.php"))
 (go-mode . ("gopls"))
 ((R-mode ess-r-mode) . ("R" "--slave" "-e"
 
"languageserver::run()"))
-(java-mode . eglot--eclipse-jdt-contact)
+(java-mode . ("jdtls"))
 (dart-mode . ("dart_language_server"))
 (elixir-mode . ("language_server.sh"))
 (ada-mode . ("ada_language_server"))
@@ -3014,100 +3014,6 @@ If NOERROR, return predicate, else erroring function."
   `(,self () (re-search-forward ,(concat "\\=" arg)) (,next)))
 
 
-;;; eclipse-jdt-specific
-;;;
-(defclass eglot-eclipse-jdt (eglot-lsp-server) ()
-  :documentation "Eclipse's Java Development Tools Language Server.")
-
-(cl-defmethod eglot-initialization-options ((server eglot-eclipse-jdt))
-  "Passes through required jdt initialization options."
-  `(:workspaceFolders
-[,@(cl-delete-duplicates
-(mapcar #'eglot--path-to-uri
-(let* ((root (project-root (eglot--project server
-  (cons root
-(mapcar
- #'file-name-directory
- (append
-  (file-expand-wildcards (concat root "*/pom.xml"))
-  (file-expand-wildcards (concat root 
"*/build.gradle"))
-  (file-expand-wildcards (concat root 
"*/.project")))
-:test #'string=)]
-,@(if-let ((home (or (getenv "JAVA_HOME")
- (ignore-errors
-   (expand-file-name
-".."
-(file-name-directory
- (file-chase-links (executable-find "javac"
-  `(:settings (:java (:home ,home)))
-(ignore (eglot--warn "JAVA_HOME env var not set")
-
-(defun eglot--eclipse-jdt-contact (interactive)
-  "Return a contact for connecting to eclipse.jdt.ls server, as a cons cell.
-If INTERACTIVE, prompt user for details."
-  (cl-labels
-  ((is-the-jar
-(path)
-(and (string-match-p
-  "org\\.eclipse\\.equinox\\.launcher_.*\\.jar$"
-  (file-name-nondirectory path))
- (file-exists-p path
-(let* ((classpath (or (getenv "CLASSPATH") path-separator))
-   (cp-jar (cl-find-if #'is-the-jar (split-string classpath 
path-separator)))
-   (jar cp-jar)
-   (dir
-(cond
- (jar (file-name-as-directory
-   (expand-file-name ".." (file-name-directory jar
- (interactive
-  (expand-file-name
-   (read-directory-name
-(concat "Path to eclipse.jdt.ls directory (could not"
-" find it in CLASSPATH): ")
-nil nil t)))
- (t (error "Could not find eclipse.jdt.ls jar in CLASSPATH"
-   (repodir
-(concat dir
-"org.eclipse.jdt.ls.product/target/repository/"))
-   (repodir (if (file-directory-p repodir) repodir dir))
-   (config
-(concat
- repodir
- (cond
-  ((string= system-type "darwin") "config_mac")
-  ((string= system-type "windows-nt") "config_win")
-  (t "config_linux"
-   (workspace
-(expand-file-name (md5 (project-root (eglot--current-project)))
-  (locate-user-emacs-file
-   "eglot-eclipse-jdt-cache"
-  (unless jar
-(setq jar
-  (cl-find-if #'is-the-jar
-  (directory-files (concat repodir "plugins") t
-  (unless (and jar (file-exists-p jar) (file-directory-p config))
-(error "Could not find required eclipse.jdt.ls files (build 
required?)"))
-  (when (and interactive (not cp-jar)
- (y-or-n-p (concat "Add path to the server program "
-   "to CLASSPATH environment variable?")))
-(setenv "CLASSPATH" (concat (getenv "CLASSPATH") path-separator jar)))
-  (unless (file

[elpa] externals/osm 0cd30df38f 1/4: Fix mouse drag issue

[ELPA Syncer]

branch: externals/osm
commit 0cd30df38f5d9880f269ef82c4c025d8ff20bdad
Author: Daniel Mendler 
Commit: Daniel Mendler 

Fix mouse drag issue
---
 README.org |  2 +-
 osm.el | 13 -
 2 files changed, 9 insertions(+), 6 deletions(-)

diff --git a/README.org b/README.org
index 5231aaa369..cb8af85be1 100644
--- a/README.org
+++ b/README.org
@@ -82,7 +82,7 @@ Key bindings in =osm-mode= buffer:
 - ~~: =osm-org-link-click= - Store point as Org link
 - ~~: =osm-bookmark-set-click= - Store point as bookmark
 - ~~: =osm-bookmark-delete-click= - Click on bookmark at 
point to delete
-- ~~: =osm-drag= - Drag the map with the mouse
+- ~~: =osm-mouse-drag= - Drag the map with the mouse
 - ~d~, ~DEL~: =osm-bookmark-delete= - Delete selected bookmark
 - ~n~: =osm-bookmark-rename= - Rename selected bookmark
 - ~t~: =osm-goto= - Go to location
diff --git a/osm.el b/osm.el
index e35beca0e0..bfb81c74b2 100644
--- a/osm.el
+++ b/osm.el
@@ -170,9 +170,9 @@ Should be at least 7 days according to the server usage 
policies."
 (define-key map [mouse-1] #'osm-center-click)
 (define-key map [mouse-2] #'osm-org-link-click)
 (define-key map [mouse-3] #'osm-bookmark-set-click)
-(define-key map [down-mouse-1] #'osm-drag)
-(define-key map [down-mouse-2] #'osm-drag)
-(define-key map [down-mouse-3] #'osm-drag)
+(define-key map [down-mouse-1] #'osm-mouse-drag)
+(define-key map [down-mouse-2] #'osm-mouse-drag)
+(define-key map [down-mouse-3] #'osm-mouse-drag)
 (define-key map [up] #'osm-up)
 (define-key map [down] #'osm-down)
 (define-key map [left] #'osm-left)
@@ -380,7 +380,7 @@ Should be at least 7 days according to the server usage 
policies."
  (osm--download)
   (osm--download
 
-(defun osm-drag (event)
+(defun osm-mouse-drag (event)
   "Handle drag EVENT."
   (interactive "@e")
   (pcase-let ((`(,sx . ,sy) (posn-x-y (event-start event)))
@@ -396,6 +396,9 @@ Should be at least 7 days according to the server usage 
policies."
   (define-key map [mouse-1] #'ignore)
   (define-key map [mouse-2] #'ignore)
   (define-key map [mouse-3] #'ignore)
+  (define-key map [drag-mouse-1] #'ignore)
+  (define-key map [drag-mouse-2] #'ignore)
+  (define-key map [drag-mouse-3] #'ignore)
   (pcase-let ((`(,ex . ,ey) (posn-x-y event)))
 (setq osm--x (- sx ex)
   osm--y (- sy ey))
@@ -1243,7 +1246,7 @@ xmlns='http://www.w3.org/2000/svg' 
xmlns:xlink='http://www.w3.org/1999/xlink'>
#'osm-up-up #'osm-down-down #'osm-left-left 
#'osm-right-right
#'osm-zoom-out #'osm-zoom-in #'osm-bookmark-set))
   (put sym 'command-modes '(osm-mode)))
-(dolist (sym (list #'osm-drag #'osm-center-click #'osm-org-link-click
+(dolist (sym (list #'osm-mouse-drag #'osm-center-click #'osm-org-link-click
#'osm-bookmark-set-click #'osm-bookmark-select-click))
   (put sym 'completion-predicate #'ignore))
 

[elpa] externals/osm 6746d108a1 2/4: Improve error handling

[ELPA Syncer]

branch: externals/osm
commit 6746d108a1a7dd4e9a7b7048b45fb52155fcc62a
Author: Daniel Mendler 
Commit: Daniel Mendler 

Improve error handling
---
 osm.el | 17 +
 1 file changed, 13 insertions(+), 4 deletions(-)

diff --git a/osm.el b/osm.el
index bfb81c74b2..d51d6a6cb5 100644
--- a/osm.el
+++ b/osm.el
@@ -608,8 +608,19 @@ Should be at least 7 days according to the server usage 
policies."
   mwheel-scroll-left-function #'osm--zoom-out-wheel
   mwheel-scroll-right-function #'osm--zoom-in-wheel
   bookmark-make-record-function #'osm--make-bookmark)
+  (add-hook 'change-major-mode-hook #'osm--barf-unsupported nil 'local)
+  (add-hook 'write-contents-functions #'osm--barf-unsupported nil 'local)
   (add-hook 'window-size-change-functions #'osm--resize nil 'local))
 
+(defun osm--barf-unsupported ()
+  "Barf for unsupported operation."
+  (error "Operation is not supported"))
+
+(defun osm--barf-unless-osm ()
+  "Barf if not an `osm-mode' buffer."
+  (unless (eq major-mode #'osm-mode)
+(error "Not an osm-mode buffer")))
+
 (defun osm--pin-inside-p (x y p q)
   "Return non-nil if pin P/Q is inside tile X/Y."
   (setq x (* x 256) y (* y 256))
@@ -872,8 +883,7 @@ xmlns='http://www.w3.org/2000/svg' 
xmlns:xlink='http://www.w3.org/1999/xlink'>
 
 (defun osm--update ()
   "Update map display."
-  (unless (eq major-mode #'osm-mode)
-(error "Not an osm-mode buffer"))
+  (osm--barf-unless-osm)
   (rename-buffer (osm--buffer-name) 'unique)
   (osm--update-sizes)
   (osm--update-header)
@@ -1084,8 +1094,7 @@ xmlns='http://www.w3.org/2000/svg' 
xmlns:xlink='http://www.w3.org/1999/xlink'>
 (defun osm-bookmark-set ()
   "Create osm bookmark."
   (interactive)
-  (unless (eq major-mode #'osm-mode)
-(error "Not an osm-mode buffer"))
+  (osm--barf-unless-osm)
   (unwind-protect
   (pcase-let* ((`(,lat ,lon ,desc) (osm--location-data 
'osm-selected-bookmark "Bookmark"))
(def (osm--bookmark-name desc))

[elpa] externals/osm 9a24aa4159 4/4: Improve predicates

[ELPA Syncer]

branch: externals/osm
commit 9a24aa4159f86e03c597e0bc0e4bb2795aed2192
Author: Daniel Mendler 
Commit: Daniel Mendler 

Improve predicates
---
 README.org |  1 +
 osm.el | 16 +---
 2 files changed, 10 insertions(+), 7 deletions(-)

diff --git a/README.org b/README.org
index cb8af85be1..7c61bc6827 100644
--- a/README.org
+++ b/README.org
@@ -72,6 +72,7 @@ Top-level commands:
 - =osm-goto=: Go to coordinates
 - =osm-server=: Select server
 - =osm-bookmark-jump=: Jump to bookmark
+- =osm-gpx-show=: Show GPX file in map viewer
 
 Key bindings in =osm-mode= buffer:
 - ~~: Small step scrolling
diff --git a/osm.el b/osm.el
index 7e8b4728dc..b4f1f26106 100644
--- a/osm.el
+++ b/osm.el
@@ -495,6 +495,7 @@ Should be at least 7 days according to the server usage 
policies."
 (defun osm-zoom-in (&optional n)
   "Zoom N times into the map."
   (interactive "p")
+  (osm--barf-unless-osm)
   (setq n (or n 1))
   (cl-loop for i from n above 0
if (< osm--zoom (osm--server-property :max-zoom)) do
@@ -515,11 +516,11 @@ Should be at least 7 days according to the server usage 
policies."
 
 (defun osm--move (dx dy step)
   "Move by DX/DY with STEP size."
-  (setq
-   osm--x (min (* 256 (1- (expt 2 osm--zoom)))
-   (max 0 (+ osm--x (* dx step
-   osm--y (min (* 256 (1- (expt 2 osm--zoom)))
-   (max 0 (+ osm--y (* dy step)
+  (osm--barf-unless-osm)
+  (setq osm--x (min (* 256 (1- (expt 2 osm--zoom)))
+(max 0 (+ osm--x (* dx step
+osm--y (min (* 256 (1- (expt 2 osm--zoom)))
+(max 0 (+ osm--y (* dy step)
   (osm--update))
 
 (defun osm-right (&optional n)
@@ -1227,6 +1228,7 @@ xmlns='http://www.w3.org/2000/svg' 
xmlns:xlink='http://www.w3.org/1999/xlink'>
   (or osm--gpx-files
   (error "No GPX files shown"))
   nil t nil 'file-name-history)))
+  (osm--barf-unless-osm)
   (setq osm--gpx-files (assoc-delete-all file osm--gpx-files))
   (osm--revert))
 
@@ -1260,10 +1262,10 @@ xmlns='http://www.w3.org/2000/svg' 
xmlns:xlink='http://www.w3.org/1999/xlink'>
 
 (dolist (sym (list #'osm-up #'osm-down #'osm-left #'osm-right
#'osm-up-up #'osm-down-down #'osm-left-left 
#'osm-right-right
-   #'osm-zoom-out #'osm-zoom-in #'osm-bookmark-set))
+   #'osm-zoom-out #'osm-zoom-in #'osm-bookmark-set 
#'osm-gpx-hide))
   (put sym 'command-modes '(osm-mode)))
 (dolist (sym (list #'osm-mouse-drag #'osm-center-click #'osm-org-link-click
-   #'osm-bookmark-set-click #'osm-bookmark-select-click))
+   #'osm-poi-click #'osm-bookmark-set-click 
#'osm-bookmark-select-click))
   (put sym 'completion-predicate #'ignore))
 
 (provide 'osm)

[elpa] externals/osm f830a5a54f 3/4: Improve error handling

[ELPA Syncer]

branch: externals/osm
commit f830a5a54f9a7510f3785fc33a57f7cf98cf7933
Author: Daniel Mendler 
Commit: Daniel Mendler 

Improve error handling
---
 osm.el | 17 -
 1 file changed, 12 insertions(+), 5 deletions(-)

diff --git a/osm.el b/osm.el
index d51d6a6cb5..7e8b4728dc 100644
--- a/osm.el
+++ b/osm.el
@@ -608,13 +608,20 @@ Should be at least 7 days according to the server usage 
policies."
   mwheel-scroll-left-function #'osm--zoom-out-wheel
   mwheel-scroll-right-function #'osm--zoom-in-wheel
   bookmark-make-record-function #'osm--make-bookmark)
-  (add-hook 'change-major-mode-hook #'osm--barf-unsupported nil 'local)
-  (add-hook 'write-contents-functions #'osm--barf-unsupported nil 'local)
+  (add-hook 'change-major-mode-hook #'osm--barf-change-mode nil 'local)
+  (add-hook 'write-contents-functions #'osm--barf-write nil 'local)
   (add-hook 'window-size-change-functions #'osm--resize nil 'local))
 
-(defun osm--barf-unsupported ()
-  "Barf for unsupported operation."
-  (error "Operation is not supported"))
+(defun osm--barf-write ()
+  "Barf for write operation."
+  (set-buffer-modified-p nil)
+  (setq buffer-read-only t)
+  (set-visited-file-name nil)
+  (error "Writing the buffer to a file is not supported"))
+
+(defun osm--barf-change-mode ()
+  "Barf for change mode operation."
+  (error "Changing the major mode is not supported"))
 
 (defun osm--barf-unless-osm ()
   "Barf if not an `osm-mode' buffer."

[elpa] externals/osm updated (0527ba3c83 -> 9a24aa4159)

[ELPA Syncer]

elpasync pushed a change to branch externals/osm.

  from  0527ba3c83 Handle click on POI
   new  0cd30df38f Fix mouse drag issue
   new  6746d108a1 Improve error handling
   new  f830a5a54f Improve error handling
   new  9a24aa4159 Improve predicates


Summary of changes:
 README.org |  3 ++-
 osm.el | 53 +
 2 files changed, 39 insertions(+), 17 deletions(-)

[elpa] main be7c3e14d0: * elpa-packages (logos): New package

[Stefan Monnier via]

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

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

diff --git a/elpa-packages b/elpa-packages
index b324807973..7d1ddc7eac 100644
--- a/elpa-packages
+++ b/elpa-packages
@@ -351,6 +351,10 @@
  ("load-relative"  :url "https://github.com/rocky/emacs-load-relative";)
  ("loc-changes":url 
"https://github.com/rocky/emacs-loc-changes";)
  ("loccur" :url "https://github.com/fourier/loccur";)
+ ("logos"  :url "https://gitlab.com/protesilaos/logos";
+  :auto-sync t
+  :news "CHANGELOG.org"
+  :ignored-files ("COPYING" "doclicense.texi"))
  ("map" :core "lisp/emacs-lisp/map.el")
  ("marginalia" :url "https://github.com/minad/marginalia";
   :doc "README.org" :auto-sync t)

[elpa] externals/cape 0f222fc942: Fix typo

[ELPA Syncer]

branch: externals/cape
commit 0f222fc942503ffacec8a22c4466c5abfdc8fe71
Author: Daniel Mendler 
Commit: Daniel Mendler 

Fix typo
---
 cape.el | 17 -
 1 file changed, 8 insertions(+), 9 deletions(-)

diff --git a/cape.el b/cape.el
index 4be0bfd398..c87d2bf529 100644
--- a/cape.el
+++ b/cape.el
@@ -256,19 +256,18 @@ auto completion does not pop up too aggressively."
  "until" "use" "utime" "values" "vec" "wait" "waitpid"
  "wantarray" "warn" "while" "write" "x" "xor" "y")
 (php-mode ;; https://www.php.net/manual/reserved.php
- "Closure" "Generator" "Exception" "Error" "Throwable"
- "__CLASS__" "__DIR__" "__FILE__" "__FUNCTION__" "__LINE__" "__METHOD__"
- "__NAMESPACE__" "__TRAIT__"
- "abstract" "and" "array" "as" "bool" "break" "callable" "case" "catch"
- "class" "clone" "const" "continue" "declare" "default" "die" "do" "echo"
- "else" "elseif" "empty" "enddeclare" "endfor" "endforeach" "endif"
- "endswitch" "endwhile" "enum" "eval" "exit" "extends" "false" "float"
- "final" "finally" "for" "foreach" "fn" "function" "global" "goto" "if"
+ "Closure" "Error" "Exception" "Generator" "Throwable" "__CLASS__" 
"__DIR__"
+ "__FILE__" "__FUNCTION__" "__LINE__" "__METHOD__" "__NAMESPACE__"
+ "__TRAIT__" "abstract" "and" "array" "as" "bool" "break" "callable" "case"
+ "catch" "class" "clone" "const" "continue" "declare" "default" "die" "do"
+ "echo" "else" "elseif" "empty" "enddeclare" "endfor" "endforeach" "endif"
+ "endswitch" "endwhile" "enum" "eval" "exit" "extends" "false" "final"
+ "finally" "float" "fn" "for" "foreach" "function" "global" "goto" "if"
  "implements" "include" "include_once" "instanceof" "insteadof" "interface"
  "isset" "iterable" "list" "match" "namespace" "new" "null" "object" "or"
  "print" "private" "protected" "public" "readonly" "require" "require_once"
  "return" "self" "static" "string" "switch" "this" "throw" "trait" "true"
- "try" "unset" "use" "var" "void" "while" "xor" "yield" "yeild from")
+ "try" "unset" "use" "var" "void" "while" "xor" "yield" "yield from")
 (python-mode ;; 
https://docs.python.org/3/reference/lexical_analysis.html#keywords
  "False" "None" "True" "and" "as" "assert" "break" "class" "continue" "def"
  "del" "elif" "else" "except" "exec" "finally" "for" "from" "global" "if"

[elpa] externals/eglot b90d2f3925: Unbreak CI tests, use new jtdls for Eclipse JDT (per #863, #864, #868)

[ELPA Syncer]

branch: externals/eglot
commit b90d2f39259c9f6e7ec4cd964f3608a52a0f335b
Author: João Távora 
Commit: João Távora 

Unbreak CI tests, use new jtdls for Eclipse JDT (per #863, #864, #868)

* .github/workflows/test.yml (Install Python): tweak Python version
(Install Eclipse JDT): Tweak $GITHUB_PATH

* eglot-tests.el (eclipse-workspace-folders): Remove.
(eglot--have-eclipse-jdt-ls-p): Remove.
(eclipse-connect): Simplify.
---
 .github/workflows/test.yml |  4 ++--
 eglot-tests.el | 36 +---
 2 files changed, 3 insertions(+), 37 deletions(-)

diff --git a/.github/workflows/test.yml b/.github/workflows/test.yml
index e7344bd7c8..43f3c73b44 100644
--- a/.github/workflows/test.yml
+++ b/.github/workflows/test.yml
@@ -23,7 +23,7 @@ jobs:
 - name: Install Python
   uses: actions/setup-python@v2
   with:
-  python-version: "3.6"
+  python-version: "3.9"
   architecture: "x64"
 
 - name: Install Rust
@@ -38,6 +38,7 @@ jobs:
 curl -fSL 
https://download.eclipse.org/jdtls/snapshots/jdt-language-server-latest.tar.gz 
-o eclipse.tar.gz
 mkdir eclipse.jdt.ls
 tar -C eclipse.jdt.ls -xzf eclipse.tar.gz
+echo "$GITHUB_WORKSPACE/eclipse.jdt.ls/bin" >> $GITHUB_PATH
 
 - name: Install other depedencies
   run: |
@@ -49,5 +50,4 @@ jobs:
 
 - name: Test eglot
   run: |
-export CLASSPATH=$(pwd)/$(find eclipse.jdt.ls/ -regex 
eclipse.jdt.ls/plugins/org.eclipse.equinox.launcher_.*.jar):${CLASSPATH}
 make eglot-check
diff --git a/eglot-tests.el b/eglot-tests.el
index 255072f7d7..55967a4977 100644
--- a/eglot-tests.el
+++ b/eglot-tests.el
@@ -37,13 +37,6 @@
 
 ;;; Helpers
 
-(defun eglot--have-eclipse-jdt-ls-p ()
-  (and (getenv "CLASSPATH")
-   (cl-some
-(lambda (x)
-  (string-match-p "org\\.eclipse\\.equinox\\.launcher_.*\\.jar$" x))
-(split-string (getenv "CLASSPATH") ":"
-
 (defmacro eglot--with-fixture (fixture &rest body)
   "Setup FIXTURE, call BODY, teardown FIXTURE.
 FIXTURE is a list.  Its elements are of the form (FILE . CONTENT)
@@ -274,7 +267,7 @@ Pass TIMEOUT to `eglot--with-timeout'."
 
 (ert-deftest eclipse-connect ()
   "Connect to eclipse.jdt.ls server."
-  (skip-unless (eglot--have-eclipse-jdt-ls-p))
+  (skip-unless (executable-find "jdtls"))
   (eglot--with-fixture
   '(("project/src/main/java/foo" . (("Main.java" . "")))
 ("project/.git/" . nil))
@@ -286,33 +279,6 @@ Pass TIMEOUT to `eglot--with-timeout'."
 (&key _id method &allow-other-keys)
   (string= method "language/status"))
 
-(ert-deftest eclipse-workspace-folders ()
-  "Check eclipse connection with multi-root projects."
-  (skip-unless (eglot--have-eclipse-jdt-ls-p))
-  (eglot--with-fixture
-  '(("project/main/src/main/java/foo" . (("Main.java" . "")))
-("project/sub1/" . (("pom.xml" . "")))
-("project/sub2/" . (("build.gradle" . "")))
-("project/sub3/" . (("a.txt" . "")))
-("project/.git/" . nil))
-(let ((root (file-name-as-directory default-directory)))
-  (with-current-buffer
-  (eglot--find-file-noselect 
"project/main/src/main/java/foo/Main.java")
-(eglot--sniffing (:client-requests c-reqs)
-  (should (eglot--tests-connect 10))
-  (eglot--wait-for (c-reqs 10)
-  (&key _id method params &allow-other-keys)
-(when (string= method "initialize")
-  (let ((folders (plist-get
-  (plist-get params :initializationOptions)
-  :workspaceFolders))
-(default-directory root))
-(and
- (cl-find (eglot--path-to-uri "project/") folders :test 
#'equal)
- (cl-find (eglot--path-to-uri "project/sub1/") folders :test 
#'equal)
- (cl-find (eglot--path-to-uri "project/sub2/") folders :test 
#'equal)
- (= 3 (length folders)))
-
 (defun eglot-tests--auto-detect-running-server-1 ()
   (let (server)
 (eglot--with-fixture

[elpa] externals/logos f03cf3ebd9 06/25: Fix fallback value of logos-outline-regexp-alist

[ELPA Syncer]

branch: externals/logos
commit f03cf3ebd9480806f8d9bb456cd0c17582e4bd07
Author: Protesilaos Stavrou 
Commit: Protesilaos Stavrou 

Fix fallback value of logos-outline-regexp-alist
---
 logos.el | 10 +-
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/logos.el b/logos.el
index 9bcaa59d7b..326264b802 100644
--- a/logos.el
+++ b/logos.el
@@ -92,10 +92,13 @@ When this variable is nil, pages are demarcated by the
   :type 'boolean
   :group 'logos)
 
+(defconst logos--page-delimiter (default-value 'page-delimiter)
+  "The default value of `page-delimiter'.")
+
 (defcustom logos-outline-regexp-alist   ; TODO 2022-03-02: more sensible 
outlines?
-  '((emacs-lisp-mode . "^;;;+ ")
+  `((emacs-lisp-mode . "^;;;+ ")
 (org-mode . "^\\*+ +")
-(t . (or outline-regexp logos--page-delimiter)))
+(t . ,(or outline-regexp logos--page-delimiter)))
   "Alist of major mode and regular expression of the outline.
 Only used when `logos-outlines-are-pages' is non-nil."
   :type `(alist :key-type symbol :value-type string) ; TODO 2022-03-02: ensure 
symbol is mode?
@@ -135,9 +138,6 @@ This is only relevant when `logos-focus-mode' is enabled."
   (when (bound-and-true-p logos-focus-mode)
 (buffer-local-value 'logos-focus-mode (current-buffer
 
-(defconst logos--page-delimiter (default-value 'page-delimiter)
-  "The default value of `page-delimiter'.")
-
  Page motions
 
 (defun logos--outline-regexp ()

[elpa] externals/logos 95000cf597 04/25: Minor rewording in the Commentary

[ELPA Syncer]

branch: externals/logos
commit 95000cf5976c3b7a9f5211c391a53bb6fe0226ac
Author: Protesilaos Stavrou 
Commit: Protesilaos Stavrou 

Minor rewording in the Commentary
---
 logos.el | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/logos.el b/logos.el
index ff428cbffa..653c0e7ea0 100644
--- a/logos.el
+++ b/logos.el
@@ -50,7 +50,8 @@
 ;; when the buffer-local `logos-focus-mode' is enabled.  These will hide
 ;; the mode line (`logos-hide-mode-line'), enable `scroll-lock-mode'
 ;; (`logos-scroll-lock'), and use `variable-pitch-mode' in
-;; non-programming buffers (`logos-variable-pitch').
+;; non-programming buffers (`logos-variable-pitch').  All these
+;; variables are buffer-local.
 ;;
 ;; To position the buffer in the center of the window, use the
 ;; `olivetti' package by Paul W. Rankin.

[elpa] externals/logos 804f39e21e 03/25: Make the "focus mode" variables local

[ELPA Syncer]

branch: externals/logos
commit 804f39e21ebc33f509a57e613480abffda145c81
Author: Protesilaos Stavrou 
Commit: Protesilaos Stavrou 

Make the "focus mode" variables local
---
 README.org | 3 ++-
 logos.el   | 5 +
 2 files changed, 7 insertions(+), 1 deletion(-)

diff --git a/README.org b/README.org
index 826adad3f0..b393d65a81 100644
--- a/README.org
+++ b/README.org
@@ -101,7 +101,8 @@ Logos provides some optional aesthetic tweaks which come 
into effect
 when the buffer-local ~logos-focus-mode~ is enabled.  These will hide
 the mode line (~logos-hide-mode-line~), enable ~scroll-lock-mode~
 (~logos-scroll-lock~), and use ~variable-pitch-mode~ in non-programming
-buffers (~logos-variable-pitch~).
+buffers (~logos-variable-pitch~).  All these variables are
+buffer-local.
 
 To position the buffer in the center of the window, use the =olivetti=
 package by Paul W. Rankin.
diff --git a/logos.el b/logos.el
index 372529e8d9..ff428cbffa 100644
--- a/logos.el
+++ b/logos.el
@@ -97,6 +97,7 @@ This is only relevant when `logos-focus-mode' is enabled."
   :type 'boolean
   :group 'logos)
 
+(make-variable-buffer-local 'logos-hide-mode-line)
 
 (defcustom logos-scroll-lock nil
   "When non-nil, use `scroll-lock-mode'.
@@ -104,6 +105,8 @@ This is only relevant when `logos-focus-mode' is enabled."
   :type 'boolean
   :group 'logos)
 
+(make-variable-buffer-local 'logos-scroll-lock)
+
 (defcustom logos-variable-pitch nil
   "When non-nil, `text-mode' buffers use `variable-pitch-mode'.
 In programming modes the default font is always used, as that is
@@ -113,6 +116,8 @@ This is only relevant when `logos-focus-mode' is enabled."
   :type 'boolean
   :group 'logos)
 
+(make-variable-buffer-local 'logos-variable-pitch)
+
  General utilities
 
 (defun logos--focus-p ()

[elpa] externals/logos 28e2d2ae27 12/25: Reword comment

[ELPA Syncer]

branch: externals/logos
commit 28e2d2ae27421f6e4de2a40484a148119df771e4
Author: Protesilaos Stavrou 
Commit: Protesilaos Stavrou 

Reword comment
---
 logos.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/logos.el b/logos.el
index 6ec38b422c..588c45a91c 100644
--- a/logos.el
+++ b/logos.el
@@ -253,7 +253,7 @@ If narrowing is in effect, widen the view."
   "Buffer-local mode for focused editing."
   :init-value nil
   :global nil
-  :lighter " Λ" ; greek lambda majuscule
+  :lighter " Λ" ; lambda majuscule
   (logos--setup))
 
 (defun logos--setup ()

[elpa] externals/logos 7f5010f3a0 10/25: Add Org/Outline reveal sample; update docs

[ELPA Syncer]

branch: externals/logos
commit 7f5010f3a0e53a4328bab1d27184a361c0071962
Author: Protesilaos Stavrou 
Commit: Protesilaos Stavrou 

Add Org/Outline reveal sample; update docs
---
 README.org | 28 +---
 1 file changed, 21 insertions(+), 7 deletions(-)

diff --git a/README.org b/README.org
index 9c0c008de7..1b72b76bdd 100644
--- a/README.org
+++ b/README.org
@@ -205,21 +205,35 @@ changes out-of-the-box:
 (setq logos-scroll-lock nil)
 (setq logos-variable-pitch nil)
 
+(let ((map global-map))
+  (define-key map [remap narrow-to-region] #'logos-narrow-dwim)
+  (define-key map [remap forward-page] #'logos-forward-page-dwim)
+  (define-key map [remap backward-page] #'logos-backward-page-dwim)
+  (define-key map (kbd "") #'logos-focus-mode))
+
 ;; glue code for `logos-focus-mode' and `olivetti-mode'
-(defun prot/logos--olivetti-mode ()
+(defun my-logos--olivetti-mode ()
   "Toggle `olivetti-mode'."
   (if (or (bound-and-true-p olivetti-mode)
   (null (logos--focus-p)))
   (olivetti-mode -1)
 (olivetti-mode 1)))
 
-(add-hook 'logos-focus-mode-hook #'prot/logos--olivetti-mode)
+(add-hook 'logos-focus-mode-hook #'my-logos--olivetti-mode)
 
-(let ((map global-map))
-  (define-key map [remap narrow-to-region] #'logos-narrow-dwim)
-  (define-key map [remap forward-page] #'logos-forward-page-dwim)
-  (define-key map [remap backward-page] #'logos-backward-page-dwim)
-  (define-key map (kbd "") #'logos-focus-mode))
+;; glue code to expand an Org/Outline heading
+(defun my-logos--reveal ()
+  "Reveal Org or Outline entry."
+  (cond
+   ((and (eq major-mode 'org-mode)
+ (org-at-heading-p))
+(org-show-entry)
+(org-reveal t))
+   ((or (bound-and-true-p prot-outline-minor-mode)
+(bound-and-true-p outline-minor-mode))
+(outline-show-entry
+
+(add-hook 'logos-page-motion-hook #'my-logos--reveal)
 #+end_src
 
 * GNU Free Documentation License

[elpa] externals/logos d41217e007 05/25: Tweak documentation and Commentary

[ELPA Syncer]

branch: externals/logos
commit d41217e007550ad57def82e30ac64df3be150c4b
Author: Protesilaos Stavrou 
Commit: Protesilaos Stavrou 

Tweak documentation and Commentary
---
 README.org | 14 +-
 logos.el   | 19 ++-
 2 files changed, 27 insertions(+), 6 deletions(-)

diff --git a/README.org b/README.org
index b393d65a81..c21035586e 100644
--- a/README.org
+++ b/README.org
@@ -105,7 +105,19 @@ buffers (~logos-variable-pitch~).  All these variables are
 buffer-local.
 
 To position the buffer in the center of the window, use the =olivetti=
-package by Paul W. Rankin.
+package by Paul W. Rankin.  Sample glue code:
+
+#+begin_src emacs-lisp
+;; glue code for `logos-focus-mode' and `olivetti-mode'
+(defun my-logos--olivetti-mode ()
+  "Toggle `olivetti-mode'."
+  (if (or (bound-and-true-p olivetti-mode)
+  (null (logos--focus-p)))
+  (olivetti-mode -1)
+(olivetti-mode 1)))
+
+(add-hook 'logos-focus-mode-hook #'my-logos--olivetti-mode)
+#+end_src
 
 Logos is the familiar word derived from Greek (watch my presentation on
 philosophy about Cosmos, Logos, and the living universe:
diff --git a/logos.el b/logos.el
index 653c0e7ea0..9bcaa59d7b 100644
--- a/logos.el
+++ b/logos.el
@@ -37,10 +37,10 @@
 ;; Logos does not define any key bindings.  Try something like this, if
 ;; you want:
 ;;
-;; (let ((map global-map))
-;;   (define-key map [remap narrow-to-region] #'logos-narrow-dwim)
-;;   (define-key map [remap forward-page] #'logos-forward-page-dwim)
-;;   (define-key map [remap backward-page] #'logos-backward-page-dwim))
+;; (let ((map global-map))
+;;   (define-key map [remap narrow-to-region] #'logos-narrow-dwim)
+;;   (define-key map [remap forward-page] #'logos-forward-page-dwim)
+;;   (define-key map [remap backward-page] #'logos-backward-page-dwim))
 ;;
 ;; By default those key bindings are: C-x n n, C-x ], C-x [.  The
 ;; `logos-narrow-dwim' is not necessary if you already know how to
@@ -54,7 +54,16 @@
 ;; variables are buffer-local.
 ;;
 ;; To position the buffer in the center of the window, use the
-;; `olivetti' package by Paul W. Rankin.
+;; `olivetti' package by Paul W. Rankin.  Sample glue code:
+;;
+;; (defun my-logos--olivetti-mode ()
+;;   "Toggle `olivetti-mode'."
+;;   (if (or (bound-and-true-p olivetti-mode)
+;;   (null (logos--focus-p)))
+;;   (olivetti-mode -1)
+;; (olivetti-mode 1)))
+;; 
+;; (add-hook 'logos-focus-mode-hook #'my-logos--olivetti-mode)
 ;;
 ;; Logos is the familiar word derived from Greek (watch my presentation
 ;; on philosophy about Cosmos, Logos, and the living universe:

[elpa] externals/logos bbc89495e3 08/25: Add section with sample configuration

[ELPA Syncer]

branch: externals/logos
commit bbc89495e3fbd9b0a01cbcdb63276c8c36be2837
Author: Protesilaos Stavrou 
Commit: Protesilaos Stavrou 

Add section with sample configuration
---
 README.org | 57 +
 1 file changed, 57 insertions(+)

diff --git a/README.org b/README.org
index a585361e0c..9c0c008de7 100644
--- a/README.org
+++ b/README.org
@@ -165,6 +165,63 @@ Finally, in your =init.el= (or equivalent) evaluate this:
 
 Everything is in place to set up the package.
 
+* Sample configuration
+:PROPERTIES:
+:CUSTOM_ID: h:6ed7f2fd-faad-48c9-bdd2-7e909639128d
+:END:
+#+cindex: Package configuration
+
+Logos does not bind its own keys and does not make any opinionated
+changes out-of-the-box:
+
++ To get the do-what-I-mean page motions add your own key bindings.  In
+  the example below, they take the stead of ~forward-page~ (=C-x ]=) and
+  ~backward-page~ (=C-x [=).  The command ~logos-narrow-dwim~ need not
+  be bound, especially if you are already familiar with the various
+  narrowing commands (otherwise it maps to =C-x n n= in this example,
+  assuming the default keys).
+
++ To have quick access to ~logos-focus-mode~, bind it to a key.  This
+  mode checks the variables ~logos-hide-mode-line~, ~logos-scroll-lock~,
+  ~logos-variable-pitch~ and applies their effects if they are non-nil.
+  Note that everything is buffer-local, so it is possible to use file
+  variables as described in the Emacs manual.
+
++ If you want to center the buffer in its window, use the =olivetti=
+  package by Paul W. Rankin and simply apply some glue code to activate
+  ~olivetti-mode~ when ~logos-focus-mode~ is active.
+
+#+begin_src emacs-lisp
+(require 'logos)
+
+(setq logos-outlines-are-pages t)
+(setq logos-outline-regexp-alist
+  `((emacs-lisp-mode . "^;;;+ ")
+(org-mode . "^\\*+ +")
+(t . ,(or outline-regexp logos--page-delimiter
+
+;; These apply when `logos-focus-mode' is enabled
+(setq logos-hide-mode-line nil)
+(setq logos-scroll-lock nil)
+(setq logos-variable-pitch nil)
+
+;; glue code for `logos-focus-mode' and `olivetti-mode'
+(defun prot/logos--olivetti-mode ()
+  "Toggle `olivetti-mode'."
+  (if (or (bound-and-true-p olivetti-mode)
+  (null (logos--focus-p)))
+  (olivetti-mode -1)
+(olivetti-mode 1)))
+
+(add-hook 'logos-focus-mode-hook #'prot/logos--olivetti-mode)
+
+(let ((map global-map))
+  (define-key map [remap narrow-to-region] #'logos-narrow-dwim)
+  (define-key map [remap forward-page] #'logos-forward-page-dwim)
+  (define-key map [remap backward-page] #'logos-backward-page-dwim)
+  (define-key map (kbd "") #'logos-focus-mode))
+#+end_src
+
 * GNU Free Documentation License
 :PROPERTIES:
 :APPENDIX: t

[elpa] externals/logos af80df635c 18/25: Apply outline to derived modes

[ELPA Syncer]

branch: externals/logos
commit af80df635c00366c7b8f0ca668c4f60007821db3
Author: Protesilaos Stavrou 
Commit: Protesilaos Stavrou 

Apply outline to derived modes
---
 logos.el | 6 --
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/logos.el b/logos.el
index 3347d238fd..283fe82bd3 100644
--- a/logos.el
+++ b/logos.el
@@ -130,8 +130,10 @@ This is only relevant when `logos-focus-mode' is enabled."
 
 (defun logos--outline-regexp ()
   "Return page delimiter from `logos-outline-regexp-alist'."
-  (let ((outline logos-outline-regexp-alist))
-(or (alist-get major-mode outline)
+  (let ((outline logos-outline-regexp-alist)
+(mode major-mode))
+(or (alist-get mode outline)
+(alist-get (get mode 'derived-mode-parent) outline)
 (alist-get t outline
 
 (defun logos--page-delimiter ()

[elpa] externals/logos 19b18f1ab4 07/25: Add node on manul installation

[ELPA Syncer]

branch: externals/logos
commit 19b18f1ab4f2b9d6a0003449a294dba257c17ba8
Author: Protesilaos Stavrou 
Commit: Protesilaos Stavrou 

Add node on manul installation
---
 README.org | 37 +
 1 file changed, 37 insertions(+)

diff --git a/README.org b/README.org
index c21035586e..a585361e0c 100644
--- a/README.org
+++ b/README.org
@@ -128,6 +128,43 @@ backronyms about the mechanics of this package:
 1. =^L= Only Generates Ostensible Slides
 2. Logos Optionally Garners Outline Sections
 
+* Installation
+:PROPERTIES:
+:CUSTOM_ID: h:b0e78fe5-4e74-4959-be6f-10f7b631d5a0
+:END:
+#+cindex: Installation
+
+Logos is not in any package archive for the time being, though I plan to
+submit it to GNU ELPA (as such, any non-trivial patches require
+copyright assignment to the Free Software Foundation).  Users can rely
+on =straight.el=, =quelpa=, or equivalent to fetch the source.  Below
+are the essentials for those who prefer the manual method.
+
+Assuming your Emacs files are found in =~/.emacs.d/=, execute the
+following commands in a shell prompt:
+
+#+begin_src sh
+cd ~/.emacs.d
+
+# Create a directory for manually-installed packages
+mkdir manual-packages
+
+# Go to the new directory
+cd manual-packages
+
+# Clone this repo, naming it "logos"
+git clone https://gitlab.com/protesilaos/logos.git logos
+#+end_src
+
+Finally, in your =init.el= (or equivalent) evaluate this:
+
+#+begin_src emacs-lisp
+;; Make Elisp files in that directory available to the user.
+(add-to-list 'load-path "~/.emacs.d/manual-packages/logos")
+#+end_src
+
+Everything is in place to set up the package.
+
 * GNU Free Documentation License
 :PROPERTIES:
 :APPENDIX: t

[elpa] branch externals/logos created (now dc52fc3f04)

[ELPA Syncer]

elpasync pushed a change to branch externals/logos.

at  dc52fc3f04 Merge redundant make-variable-buffer-local calls into 
defcustom

This branch includes the following new commits:

   new  c0a2074a85 Initial commit for logos.el and related
   new  45c90aa845 Tweak manual's title
   new  804f39e21e Make the "focus mode" variables local
   new  95000cf597 Minor rewording in the Commentary
   new  d41217e007 Tweak documentation and Commentary
   new  f03cf3ebd9 Fix fallback value of logos-outline-regexp-alist
   new  19b18f1ab4 Add node on manul installation
   new  bbc89495e3 Add section with sample configuration
   new  69cabed870 Run hook after page motion
   new  7f5010f3a0 Add Org/Outline reveal sample; update docs
   new  88b2a7ca61 Tweak sample code for local variables
   new  28e2d2ae27 Reword comment
   new  60f7eaf5f7 Update Commentary with code sample for Org/Outline
   new  feeea154fc Tweak glue code samples
   new  7176d43377 Update Commentary; clarify logos-focus-mode docs
   new  230828bd2e Rewrite the manual
   new  07cd1b412f Update sample code for outline-mode
   new  af80df635c Apply outline to derived modes
   new  86ec38e795 Clarify manual's wording about outline regexp
   new  a63d1ab315 Always reveal Org/Outline entry
   new  90ec28cd10 Delete trailing parenthesis
   new  26ecd9b72f Update description
   new  d29b99c051 Clarify description and update docs
   new  6c2b3acb6b Update change log for version 0.1.0
   new  dc52fc3f04 Merge redundant make-variable-buffer-local calls into 
defcustom

[elpa] externals/logos c0a2074a85 01/25: Initial commit for logos.el and related

[ELPA Syncer]

branch: externals/logos
commit c0a2074a85b96a9690c9366b38a6fba91a702b84
Author: Protesilaos Stavrou 
Commit: Protesilaos Stavrou 

Initial commit for logos.el and related
---
 .gitignore  |   5 +
 CHANGELOG.org   |  25 +++
 COPYING | 674 
 README.org  | 607 ++
 doclicense.texi | 505 ++
 logos.el| 275 +++
 6 files changed, 2091 insertions(+)

diff --git a/.gitignore b/.gitignore
new file mode 100644
index 00..a29be5afd8
--- /dev/null
+++ b/.gitignore
@@ -0,0 +1,5 @@
+*.elc
+*-autoloads.el
+*-pkg.el
+logos.info
+logos.texi
diff --git a/CHANGELOG.org b/CHANGELOG.org
new file mode 100644
index 00..83b2b1d13f
--- /dev/null
+++ b/CHANGELOG.org
@@ -0,0 +1,25 @@
+#+TITLE: Change log of logos
+#+AUTHOR: Protesilaos Stavrou
+#+EMAIL: i...@protesilaos.com
+#+OPTIONS: ':nil toc:nil num:nil author:nil email:nil
+
+This document contains the release notes that are included in each
+tagged commit on the project's main git repository:
+.
+
+The newest release is at the top.  For further details, please consult
+the manual: .
+
+* Version 0.1.0 on N/A
+:PROPERTIES:
+:CUSTOM_ID: h:ca03557f-35c1-4342-b126-d08fd855dbf4
+:END:
+
+In the beginning, there was =prot-logos.el=.  A file that loaded some
+configurations I had for presentations (part of 
[[https://gitlab.com/protesilaos/dotfiles][my dotfiles]]).  On
+2022-03-02 I decided to take the code out of my personal setup and turn
+it into a package.  It occured to me that "logos" is a nice word though
+it might be a bit dull for an Emacs package, so I coined the backcronyms
+"^L Only Generates Ostensible Slides" and "Logos Optionally Garners
+Outline Sections", which hopefully describe what this is all about.
+Read the manual for the technicalities.
diff --git a/COPYING b/COPYING
new file mode 100644
index 00..89d9142746
--- /dev/null
+++ b/COPYING
@@ -0,0 +1,674 @@
+GNU GENERAL PUBLIC LICENSE
+   Version 3, 29 June 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 General Public License is a free, copyleft license for
+software and other kinds of works.
+
+  The licenses for most software and other practical works are designed
+to take away your freedom to share and change the works.  By contrast,
+the GNU General Public License is 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.  We, the Free Software Foundation, use the
+GNU General Public License for most of our software; it applies also to
+any other work released this way by its authors.  You can apply it to
+your programs, too.
+
+  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.
+
+  To protect your rights, we need to prevent others from denying you
+these rights or asking you to surrender the rights.  Therefore, you have
+certain responsibilities if you distribute copies of the software, or if
+you modify it: responsibilities to respect the freedom of others.
+
+  For example, if you distribute copies of such a program, whether
+gratis or for a fee, you must pass on to the recipients the same
+freedoms that you received.  You must make sure that they, too, receive
+or can get the source code.  And you must show them these terms so they
+know their rights.
+
+  Developers that use the GNU GPL protect your rights with two steps:
+(1) assert copyright on the software, and (2) offer you this License
+giving you legal permission to copy, distribute and/or modify it.
+
+  For the developers' and authors' protection, the GPL clearly explains
+that there is no warranty for this free software.  For both users' and
+authors' sake, the GPL requires that modified versions be marked as
+changed, so that their problems will not be attributed erroneously to
+authors of previous versions.
+
+  Some devices are designed to deny users access to install or run
+modified versions of the software inside them, although the manufacturer
+can do so.  This is fundamentally incompatible with the aim of
+protecting users' freedom to change the software.  The systematic
+pattern of such abuse occurs in the area of products for individuals to
+use, which is precisely where it i

[elpa] externals/logos 45c90aa845 02/25: Tweak manual's title

[ELPA Syncer]

branch: externals/logos
commit 45c90aa8454e7fa1b856160c1406ab707cf6c8b7
Author: Protesilaos Stavrou 
Commit: Protesilaos Stavrou 

Tweak manual's title
---
 README.org | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/README.org b/README.org
index aba17366fe..826adad3f0 100644
--- a/README.org
+++ b/README.org
@@ -1,4 +1,4 @@
-#+title: Logos for simple presentations with page breaks or outlines
+#+title: Simple presentations for Emacs with page breaks or outlines.
 #+author: Protesilaos Stavrou
 #+email: i...@protesilaos.com
 #+language: en

[elpa] externals/logos 60f7eaf5f7 13/25: Update Commentary with code sample for Org/Outline

[ELPA Syncer]

branch: externals/logos
commit 60f7eaf5f7e5f56384f4b5995c91523bae735dbc
Author: Protesilaos Stavrou 
Commit: Protesilaos Stavrou 

Update Commentary with code sample for Org/Outline
---
 logos.el | 16 
 1 file changed, 16 insertions(+)

diff --git a/logos.el b/logos.el
index 588c45a91c..12fbae7373 100644
--- a/logos.el
+++ b/logos.el
@@ -65,6 +65,22 @@
 ;; 
 ;; (add-hook 'logos-focus-mode-hook #'my-logos--olivetti-mode)
 ;;
+;; To automatically expand contracted Org/Outline headings, use
+;; something like:
+;;
+;; (defun my-logos--reveal ()
+;;   "Reveal Org or Outline entry."
+;;   (cond
+;;((and (eq major-mode 'org-mode)
+;;  (org-at-heading-p))
+;; (org-show-entry)
+;; (org-reveal t))
+;;((or (bound-and-true-p prot-outline-minor-mode)
+;; (bound-and-true-p outline-minor-mode))
+;; (outline-show-entry
+;; 
+;; (add-hook 'logos-page-motion-hook #'my-logos--reveal)
+;;
 ;; Logos is the familiar word derived from Greek (watch my presentation
 ;; on philosophy about Cosmos, Logos, and the living universe:
 ;; ),

[elpa] externals/logos 7176d43377 15/25: Update Commentary; clarify logos-focus-mode docs

[ELPA Syncer]

branch: externals/logos
commit 7176d43377a8727ca5fca15f49dae7a0cd8a60a9
Author: Protesilaos Stavrou 
Commit: Protesilaos Stavrou 

Update Commentary; clarify logos-focus-mode docs
---
 logos.el | 44 ++--
 1 file changed, 10 insertions(+), 34 deletions(-)

diff --git a/logos.el b/logos.el
index cfea641627..3347d238fd 100644
--- a/logos.el
+++ b/logos.el
@@ -46,39 +46,9 @@
 ;; `logos-narrow-dwim' is not necessary if you already know how to
 ;; narrow effectively.
 ;;
-;; Logos provides some optional aesthetic tweaks which come into effect
-;; when the buffer-local `logos-focus-mode' is enabled.  These will hide
-;; the mode line (`logos-hide-mode-line'), enable `scroll-lock-mode'
-;; (`logos-scroll-lock'), and use `variable-pitch-mode' in
-;; non-programming buffers (`logos-variable-pitch').  All these
-;; variables are buffer-local.
-;;
-;; To position the buffer in the center of the window, use the
-;; `olivetti' package by Paul W. Rankin.  Sample glue code:
-;;
-;;(defun my-logos--olivetti-mode ()
-;;  "Toggle `olivetti-mode'."
-;;  (if (or (bound-and-true-p olivetti-mode)
-;;  (null (logos--focus-p)))
-;;  (olivetti-mode -1)
-;;(olivetti-mode 1)))
-;;
-;;(add-hook 'logos-focus-mode-hook #'my-logos--olivetti-mode)
-;;
-;; To automatically expand contracted Org/Outline headings, use
-;; something like:
-;;
-;;(defun my-logos--reveal ()
-;;  "Reveal Org or Outline entry."
-;;  (cond
-;;   ((and (eq major-mode 'org-mode)
-;; (org-at-heading-p))
-;;(org-show-entry)
-;;(org-reveal t))
-;;   ((bound-and-true-p outline-minor-mode))
-;;(outline-show-entry)))
-;; 
-;;(add-hook 'logos-page-motion-hook #'my-logos--reveal)
+;; The `logos-focus-mode' tweaks the aesthetics of the current buffer.
+;; When enabled it sets the buffer-local value of these user options:
+;; `logos-scroll-lock', `logos-variable-pitch',`logos-hide-mode-line'.
 ;;
 ;; Logos is the familiar word derived from Greek (watch my presentation
 ;; on philosophy about Cosmos, Logos, and the living universe:
@@ -88,6 +58,9 @@
 ;;
 ;; 1. ^L Only Generates Ostensible Slides
 ;; 2. Logos Optionally Garners Outline Sections
+;;
+;; Consult the manual for all sorts of tweaks and extras:
+;; .
 
 ;;; Code:
 
@@ -265,7 +238,10 @@ If narrowing is in effect, widen the view."
  Optional "focus mode" and utilities
 
 (define-minor-mode logos-focus-mode
-  "Buffer-local mode for focused editing."
+  "Buffer-local mode for focused editing.
+When enabled it sets the buffer-local value of these user
+options: `logos-scroll-lock', `logos-variable-pitch',
+`logos-hide-mode-line'."
   :init-value nil
   :global nil
   :lighter " Λ" ; lambda majuscule

[elpa] externals/logos 07cd1b412f 17/25: Update sample code for outline-mode

[ELPA Syncer]

branch: externals/logos
commit 07cd1b412fdb7e2c70d03e19cf9b932301ac099a
Author: Protesilaos Stavrou 
Commit: Protesilaos Stavrou 

Update sample code for outline-mode
---
 README.org | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/README.org b/README.org
index 7cc9aa0681..4bbb5feac4 100644
--- a/README.org
+++ b/README.org
@@ -245,7 +245,7 @@ something like this:
((and (eq major-mode 'org-mode)
  (org-at-heading-p))
 (org-show-subtree))
-   ((or (bound-and-true-p prot-outline-minor-mode)
+   ((or (eq major-mode 'outline-mode)
 (bound-and-true-p outline-minor-mode))
 (outline-show-subtree
 

[elpa] externals/logos d29b99c051 23/25: Clarify description and update docs

[ELPA Syncer]

branch: externals/logos
commit d29b99c051f126dddba29e29aedaa4411d5a4c35
Author: Protesilaos Stavrou 
Commit: Protesilaos Stavrou 

Clarify description and update docs
---
 README.org | 15 +--
 logos.el   | 28 
 2 files changed, 21 insertions(+), 22 deletions(-)

diff --git a/README.org b/README.org
index c4071a2509..2b4ee4a0d1 100644
--- a/README.org
+++ b/README.org
@@ -64,10 +64,13 @@ modify this GNU manual.”
 :CUSTOM_ID: h:77518cc5-a7f4-4c5e-9c0f-7cf0f43b6317
 :END:
 
-With all user options disabled (the out-of-the-box design), this package
-provides a simple approach to handling presentations using nothing but
-the ~page-delimiter~ together with two commands to move between pages
-whether narrowing is in effect or not.
+This package provides a simple "focus mode" which can be applied to any
+buffer for reading, writing, or even doing a presentation.  The buffer
+can be divided in pages using the ~page-delimiter~, outline structure,
+or any other pattern.  Commands are provided to move between those
+pages.  These motions work even when narrowing is in effect (and they
+preserve it).  =logos.el= is designed to be simple by default and easy
+to extend.  This manual provides concrete examples to that end.
 
 #+vindex: logos-outlines-are-pages
 #+vindex: logos-outline-regexp-alist
@@ -90,8 +93,8 @@ want:
 #+end_src
 
 On stanard Emacs, those key bindings are: =C-x n n=, =C-x ]=, =C-x [=.
-The ~logos-narrow-dwim~ is not necessary if you already know how to
-narrow effectively.
+The ~logos-narrow-dwim~ is not necessary for users who already know how
+to narrow effectively.  Such users may still want to bind it to a key.
 
 #+findex: logos-focus-mode
 #+vindex: logos-hide-mode-line
diff --git a/logos.el b/logos.el
index f76809d1f7..bac4593590 100644
--- a/logos.el
+++ b/logos.el
@@ -1,4 +1,4 @@
-;;; logos.el --- Simple presentations with page breaks or outlines -*- 
lexical-binding: t -*-
+;;; logos.el --- Simple focus mode and extras -*- lexical-binding: t -*-
 
 ;; Copyright (C) 2022  Free Software Foundation, Inc.
 
@@ -24,27 +24,23 @@
 
 ;;; Commentary:
 ;;
-;; With all user options disabled (the out-of-the-box design), this
-;; package provides a simple approach to handling presentations using
-;; nothing but the `page-delimiter' together with some commands to move
-;; between pages whether narrowing is in effect or not.
+;; This package provides a simple "focus mode" which can be applied to
+;; any buffer for reading, writing, or even doing a presentation.  The
+;; buffer can be divided in pages using the `page-delimiter', outline
+;; structure, or any other pattern.  Commands are provided to move
+;; between those pages.  These motions work even when narrowing is in
+;; effect (and they preserve it).  `logos.el' is designed to be simple
+;; by default and easy to extend.  This manual provides concrete
+;; examples to that end.
 ;;
-;; What constitutes a page delimiter is determined by the user options
-;; `logos-outlines-are-pages' and `logos-outline-regexp-alist'.  By
-;; default, this only corresponds to the ^L character (which can be
-;; inserted using the standard keys with C-q C-l).
-;;
-;; Logos does not define any key bindings.  Try something like this, if
-;; you want:
+;; Logos does not define any key bindings.  Try something like this:
 ;;
 ;; (let ((map global-map))
 ;;   (define-key map [remap narrow-to-region] #'logos-narrow-dwim)
 ;;   (define-key map [remap forward-page] #'logos-forward-page-dwim)
 ;;   (define-key map [remap backward-page] #'logos-backward-page-dwim))
 ;;
-;; By default those key bindings are: C-x n n, C-x ], C-x [.  The
-;; `logos-narrow-dwim' is not necessary if you already know how to
-;; narrow effectively.
+;; By default those key bindings are: C-x n n, C-x ], C-x [.
 ;;
 ;; The `logos-focus-mode' tweaks the aesthetics of the current buffer.
 ;; When enabled it sets the buffer-local value of these user options:
@@ -67,7 +63,7 @@
  General utilities
 
 (defgroup logos ()
-  "Simple presentations with page breaks."
+  "Simple focus mode and extras."
   :group 'editing)
 
 (defcustom logos-outlines-are-pages nil

[elpa] externals/logos 69cabed870 09/25: Run hook after page motion

[ELPA Syncer]

branch: externals/logos
commit 69cabed87033931c6a71da9231dd17c7ffa947e9
Author: Protesilaos Stavrou 
Commit: Protesilaos Stavrou 

Run hook after page motion
---
 logos.el | 7 ++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/logos.el b/logos.el
index 326264b802..6ec38b422c 100644
--- a/logos.el
+++ b/logos.el
@@ -160,6 +160,10 @@ This is only relevant when `logos-focus-mode' is enabled."
   ;; Avoids the problem of skipping pages while cycling back and forth.
   (goto-char (point-min)))
 
+(defvar logos-page-motion-hook nil
+  "Hook that runs after a page motion.
+See `logos-forward-page-dwim' or `logos-backward-page-dwim'.")
+
 (defun logos--page-motion (&optional count back)
   "Routine for page motions.
 With optional numeric COUNT move by that many pages.  With
@@ -169,7 +173,8 @@ optional BACK perform the motion backwards."
 (if (buffer-narrowed-p)
 (logos--narrow-to-page count back)
   (funcall cmd count)
-  (setq this-command cmd
+  (setq this-command cmd))
+(run-hooks 'logos-page-motion-hook)))
 
 ;;;###autoload
 (defun logos-forward-page-dwim (&optional count)

[elpa] externals/logos 86ec38e795 19/25: Clarify manual's wording about outline regexp

[ELPA Syncer]

branch: externals/logos
commit 86ec38e7959719ed3a2da166696ba43e1f2e4524
Author: Protesilaos Stavrou 
Commit: Protesilaos Stavrou 

Clarify manual's wording about outline regexp
---
 README.org | 7 +--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/README.org b/README.org
index 4bbb5feac4..c4f25eec0a 100644
--- a/README.org
+++ b/README.org
@@ -318,8 +318,11 @@ Provided this:
 (setq logos-outlines-are-pages t)
 #+end_src
 
-The default value of ~logos-outline-regexp-alist~ will affect ~org-mode~
-and ~emacs-lisp-mode~.
+The default value of ~logos-outline-regexp-alist~ will affect
+~org-mode~, ~emacs-lisp-mode~, and any of their derivatives
+(e.g. ~lisp-interaction-mode~ (the standard scratch buffer) is based on
+~emacs-lisp-mode~).  Its fallback value is whatever the major mode sets
+as an outline, else the standard =^L=.
 
 #+begin_src emacs-lisp
 (setq logos-outline-regexp-alist

[elpa] externals/logos 88b2a7ca61 11/25: Tweak sample code for local variables

[ELPA Syncer]

branch: externals/logos
commit 88b2a7ca616a6e8a8a7c89479f32c022e11682f2
Author: Protesilaos Stavrou 
Commit: Protesilaos Stavrou 

Tweak sample code for local variables
---
 README.org | 9 +
 1 file changed, 5 insertions(+), 4 deletions(-)

diff --git a/README.org b/README.org
index 1b72b76bdd..54d650e1ea 100644
--- a/README.org
+++ b/README.org
@@ -200,10 +200,11 @@ changes out-of-the-box:
 (org-mode . "^\\*+ +")
 (t . ,(or outline-regexp logos--page-delimiter
 
-;; These apply when `logos-focus-mode' is enabled
-(setq logos-hide-mode-line nil)
-(setq logos-scroll-lock nil)
-(setq logos-variable-pitch nil)
+;; These apply when `logos-focus-mode' is enabled.  Their value is
+;; buffer-local.
+(setq-default logos-hide-mode-line nil)
+(setq-default logos-scroll-lock nil)
+(setq-default logos-variable-pitch nil)
 
 (let ((map global-map))
   (define-key map [remap narrow-to-region] #'logos-narrow-dwim)

[elpa] externals/logos feeea154fc 14/25: Tweak glue code samples

[ELPA Syncer]

branch: externals/logos
commit feeea154fc746c0385a7f8e9f4806b0c8a413063
Author: Protesilaos Stavrou 
Commit: Protesilaos Stavrou 

Tweak glue code samples
---
 README.org |  5 ++---
 logos.el   | 37 ++---
 2 files changed, 20 insertions(+), 22 deletions(-)

diff --git a/README.org b/README.org
index 54d650e1ea..caebb1373e 100644
--- a/README.org
+++ b/README.org
@@ -230,9 +230,8 @@ changes out-of-the-box:
  (org-at-heading-p))
 (org-show-entry)
 (org-reveal t))
-   ((or (bound-and-true-p prot-outline-minor-mode)
-(bound-and-true-p outline-minor-mode))
-(outline-show-entry
+   ((bound-and-true-p outline-minor-mode))
+(outline-show-entry)))
 
 (add-hook 'logos-page-motion-hook #'my-logos--reveal)
 #+end_src
diff --git a/logos.el b/logos.el
index 12fbae7373..cfea641627 100644
--- a/logos.el
+++ b/logos.el
@@ -56,30 +56,29 @@
 ;; To position the buffer in the center of the window, use the
 ;; `olivetti' package by Paul W. Rankin.  Sample glue code:
 ;;
-;; (defun my-logos--olivetti-mode ()
-;;   "Toggle `olivetti-mode'."
-;;   (if (or (bound-and-true-p olivetti-mode)
-;;   (null (logos--focus-p)))
-;;   (olivetti-mode -1)
-;; (olivetti-mode 1)))
-;; 
-;; (add-hook 'logos-focus-mode-hook #'my-logos--olivetti-mode)
+;;(defun my-logos--olivetti-mode ()
+;;  "Toggle `olivetti-mode'."
+;;  (if (or (bound-and-true-p olivetti-mode)
+;;  (null (logos--focus-p)))
+;;  (olivetti-mode -1)
+;;(olivetti-mode 1)))
+;;
+;;(add-hook 'logos-focus-mode-hook #'my-logos--olivetti-mode)
 ;;
 ;; To automatically expand contracted Org/Outline headings, use
 ;; something like:
 ;;
-;; (defun my-logos--reveal ()
-;;   "Reveal Org or Outline entry."
-;;   (cond
-;;((and (eq major-mode 'org-mode)
-;;  (org-at-heading-p))
-;; (org-show-entry)
-;; (org-reveal t))
-;;((or (bound-and-true-p prot-outline-minor-mode)
-;; (bound-and-true-p outline-minor-mode))
-;; (outline-show-entry
+;;(defun my-logos--reveal ()
+;;  "Reveal Org or Outline entry."
+;;  (cond
+;;   ((and (eq major-mode 'org-mode)
+;; (org-at-heading-p))
+;;(org-show-entry)
+;;(org-reveal t))
+;;   ((bound-and-true-p outline-minor-mode))
+;;(outline-show-entry)))
 ;; 
-;; (add-hook 'logos-page-motion-hook #'my-logos--reveal)
+;;(add-hook 'logos-page-motion-hook #'my-logos--reveal)
 ;;
 ;; Logos is the familiar word derived from Greek (watch my presentation
 ;; on philosophy about Cosmos, Logos, and the living universe:

[elpa] externals/logos 230828bd2e 16/25: Rewrite the manual

[ELPA Syncer]

branch: externals/logos
commit 230828bd2e82f234183c9d415fc823a32e6add92
Author: Protesilaos Stavrou 
Commit: Protesilaos Stavrou 

Rewrite the manual
---
 README.org | 178 ++---
 1 file changed, 147 insertions(+), 31 deletions(-)

diff --git a/README.org b/README.org
index caebb1373e..7cc9aa0681 100644
--- a/README.org
+++ b/README.org
@@ -5,9 +5,9 @@
 #+options: ':t toc:nil author:t email:t num:t
 #+startup: content
 
-#+macro: stable-version N/A
-#+macro: release-date N/A
-#+macro: development-version 0.1.0-dev
+#+macro: stable-version 0.1.0
+#+macro: release-date 2022-03-11
+#+macro: development-version 0.2.0-dev
 #+macro: file @@texinfo:@file{@@$1@@texinfo:}@@
 #+macro: space @@texinfo:@: @@
 #+macro: kbd @@texinfo:@kbd{@@$1@@texinfo:}@@
@@ -66,7 +66,7 @@ modify this GNU manual.”
 
 With all user options disabled (the out-of-the-box design), this package
 provides a simple approach to handling presentations using nothing but
-the ~page-delimiter~ together with some commands to move between pages
+the ~page-delimiter~ together with two commands to move between pages
 whether narrowing is in effect or not.
 
 #+vindex: logos-outlines-are-pages
@@ -89,9 +89,9 @@ want:
   (define-key map [remap backward-page] #'logos-backward-page-dwim))
 #+end_src
 
-By default those key bindings are: =C-x n n=, =C-x ]=, =C-x [=.  The
-~logos-narrow-dwim~ is not necessary if you already know how to narrow
-effectively.
+On stanard Emacs, those key bindings are: =C-x n n=, =C-x ]=, =C-x [=.
+The ~logos-narrow-dwim~ is not necessary if you already know how to
+narrow effectively.
 
 #+findex: logos-focus-mode
 #+vindex: logos-hide-mode-line
@@ -104,21 +104,6 @@ the mode line (~logos-hide-mode-line~), enable 
~scroll-lock-mode~
 buffers (~logos-variable-pitch~).  All these variables are
 buffer-local.
 
-To position the buffer in the center of the window, use the =olivetti=
-package by Paul W. Rankin.  Sample glue code:
-
-#+begin_src emacs-lisp
-;; glue code for `logos-focus-mode' and `olivetti-mode'
-(defun my-logos--olivetti-mode ()
-  "Toggle `olivetti-mode'."
-  (if (or (bound-and-true-p olivetti-mode)
-  (null (logos--focus-p)))
-  (olivetti-mode -1)
-(olivetti-mode 1)))
-
-(add-hook 'logos-focus-mode-hook #'my-logos--olivetti-mode)
-#+end_src
-
 Logos is the familiar word derived from Greek (watch my presentation on
 philosophy about Cosmos, Logos, and the living universe:
 ),
@@ -172,7 +157,7 @@ Everything is in place to set up the package.
 #+cindex: Package configuration
 
 Logos does not bind its own keys and does not make any opinionated
-changes out-of-the-box:
+changes out-of-the-box ([[#h:2bb57369-352a-43bf-afe3-0bed2fcc7359][Extra 
tweaks]]):
 
 + To get the do-what-I-mean page motions add your own key bindings.  In
   the example below, they take the stead of ~forward-page~ (=C-x ]=) and
@@ -187,13 +172,10 @@ changes out-of-the-box:
   Note that everything is buffer-local, so it is possible to use file
   variables as described in the Emacs manual.
 
-+ If you want to center the buffer in its window, use the =olivetti=
-  package by Paul W. Rankin and simply apply some glue code to activate
-  ~olivetti-mode~ when ~logos-focus-mode~ is active.
-
 #+begin_src emacs-lisp
 (require 'logos)
 
+;; If you want to use outlines instead of page breaks (the ^L)
 (setq logos-outlines-are-pages t)
 (setq logos-outline-regexp-alist
   `((emacs-lisp-mode . "^;;;+ ")
@@ -211,7 +193,29 @@ changes out-of-the-box:
   (define-key map [remap forward-page] #'logos-forward-page-dwim)
   (define-key map [remap backward-page] #'logos-backward-page-dwim)
   (define-key map (kbd "") #'logos-focus-mode))
+#+end_src
+
+* Extra tweaks
+:PROPERTIES:
+:CUSTOM_ID: h:2bb57369-352a-43bf-afe3-0bed2fcc7359
+:END:
+#+cindex: User-level configurations and glue code
+
+This section contains snippets of code that extend the functionality of
+=logos=.  These either apply to ~logos-focus-mode~ or enhance the page
+motions through the ~logos-page-motion-hook~.
+
+** Center the buffer in its window
+:PROPERTIES:
+:CUSTOM_ID: h:8864fb36-53d6-40a2-8e0a-2c609e06d70f
+:END:
+#+cindex: Automatically toggle olivetti-mode
+
+Use the excellent =olivetti= package by Paul W. Rankin.  Here we
+configure Olivetti to take effect when we enter ~logos-focus-mode~ and
+be disabled when we exit.
 
+#+begin_src emacs-lisp
 ;; glue code for `logos-focus-mode' and `olivetti-mode'
 (defun my-logos--olivetti-mode ()
   "Toggle `olivetti-mode'."
@@ -221,21 +225,133 @@ changes out-of-the-box:
 (olivetti-mode 1)))
 
 (add-hook 'logos-focus-mode-hook #'my-logos--olivetti-mode)
+#+end_src
 
+** Automatically reveal Org or Outline heading
+:PROPERTIES:
+:CUSTOM_ID: h:e18f828f-f9a8-4821-b73b-46793be57abb
+:END:
+#+cindex: Always show the Org or Outline subtree or entry
+
+The Logos page motions simply jump between positions.  

[elpa] externals/logos a63d1ab315 20/25: Always reveal Org/Outline entry

[ELPA Syncer]

branch: externals/logos
commit a63d1ab315ad6460836d7904824b96147d1f74a6
Author: Protesilaos Stavrou 
Commit: Protesilaos Stavrou 

Always reveal Org/Outline entry

Otherwise we have a bug where page motions can move inside a heading
with subheadings.
---
 README.org | 39 ++-
 logos.el   | 23 ++-
 2 files changed, 48 insertions(+), 14 deletions(-)

diff --git a/README.org b/README.org
index c4f25eec0a..4d04e7e2fc 100644
--- a/README.org
+++ b/README.org
@@ -227,19 +227,39 @@ be disabled when we exit.
 (add-hook 'logos-focus-mode-hook #'my-logos--olivetti-mode)
 #+end_src
 
-** Automatically reveal Org or Outline heading
+** Automatically reveal Org or Outline subtree
 :PROPERTIES:
 :CUSTOM_ID: h:e18f828f-f9a8-4821-b73b-46793be57abb
 :END:
-#+cindex: Always show the Org or Outline subtree or entry
+#+cindex: Always show the Org or Outline subtree
 
-The Logos page motions simply jump between positions.  If the heading is
-folded, they will keep it that way.  To always reveal the contents use
-something like this:
+The Logos page motions normally jump between positions.  Though Org and
+Outline require that Logos also reveals the headings' contents.  This is
+necessary to avoid invisible motions inside a folded heading that
+contains subheadings.  The unfolding only applies to the current entry.
+This is the relevant snippet from =logos.el=:
+
+#+begin_src emacs-lisp
+(defun logos--reveal-entry ()
+  "Reveal Org or Outline entry."
+  (cond
+   ((and (eq major-mode 'org-mode)
+ (org-at-heading-p))
+(org-show-entry))
+   ((or (eq major-mode 'outline-mode)
+(bound-and-true-p outline-minor-mode))
+(outline-show-entry
+
+(add-hook 'logos-page-motion-hook #'logos--reveal-entry)
+#+end_src
+
+Users may prefer to reveal the entire subtree instead of the current
+entry: the heading at point and all of its subheadings.  In this case,
+one may override the definition of ~logos--reveal-entry~:
 
 #+begin_src emacs-lisp
 ;; glue code to expand an Org/Outline heading
-(defun my-logos--reveal ()
+(defun logos--reveal-entry ()
   "Reveal Org or Outline entry."
   (cond
((and (eq major-mode 'org-mode)
@@ -248,15 +268,8 @@ something like this:
((or (eq major-mode 'outline-mode)
 (bound-and-true-p outline-minor-mode))
 (outline-show-subtree
-
-(add-hook 'logos-page-motion-hook #'my-logos--reveal)
 #+end_src
 
-Notice that it applies to the entire subtree (heading and subheadings).
-If the intent is to reveal just the current heading, replace
-~org-show-subtree~ and ~outline-show-subtree~ with ~org-show-entry~ and
-~outline-show-entry~.
-
 ** Recenter at the top upon page motion
 :PROPERTIES:
 :CUSTOM_ID: h:bba965c6-7451-4c76-84d6-7e03c99ed546
diff --git a/logos.el b/logos.el
index 283fe82bd3..f76809d1f7 100644
--- a/logos.el
+++ b/logos.el
@@ -88,7 +88,12 @@ When this variable is nil, pages are demarcated by the
 (org-mode . "^\\*+ +")
 (t . ,(or outline-regexp logos--page-delimiter)))
   "Alist of major mode and regular expression of the outline.
-Only used when `logos-outlines-are-pages' is non-nil."
+Only used when `logos-outlines-are-pages' is non-nil.
+
+The major mode also targets any of its derivatives.  For example,
+`lisp-interaction-mode' (the standard scratch buffer) is based on
+`emacs-lisp-mode' so one only needs to set the outline regexp of
+the latter."
   :type `(alist :key-type symbol :value-type string) ; TODO 2022-03-02: ensure 
symbol is mode?
   :group 'logos)
 
@@ -184,6 +189,22 @@ page."
   (interactive "p")
   (logos--page-motion count :back))
 
+(declare-function org-at-heading-p "org" (&optional _))
+(declare-function org-show-entry "org")
+(declare-function outline-show-entry "outline")
+
+(defun logos--reveal-entry ()
+  "Reveal Org or Outline entry."
+  (cond
+   ((and (eq major-mode 'org-mode)
+ (org-at-heading-p))
+(org-show-entry))
+   ((or (eq major-mode 'outline-mode)
+(bound-and-true-p outline-minor-mode))
+(outline-show-entry
+
+(add-hook 'logos-page-motion-hook #'logos--reveal-entry)
+
  Narrowing
 ;; NOTE 2022-03-02: This section is most likely unnecessary, but let's
 ;; keep it for now.

[elpa] externals/logos 26ecd9b72f 22/25: Update description

[ELPA Syncer]

branch: externals/logos
commit 26ecd9b72f7c3236eba82cd67d29a9ee00dfba40
Author: Protesilaos Stavrou 
Commit: Protesilaos Stavrou 

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

diff --git a/README.org b/README.org
index 64bcdaeec9..c4071a2509 100644
--- a/README.org
+++ b/README.org
@@ -1,4 +1,4 @@
-#+title: Simple presentations for Emacs with page breaks or outlines.
+#+title: logos.el: simple focus mode for Emacs with page breaks or outlines
 #+author: Protesilaos Stavrou
 #+email: i...@protesilaos.com
 #+language: en
@@ -17,7 +17,7 @@
 #+texinfo_filename: logos.info
 #+texinfo_dir_category: Emacs misc features
 #+texinfo_dir_title: Logos: (logos)
-#+texinfo_dir_desc: Simple presentations with page breaks or outlines
+#+texinfo_dir_desc: Simple focus mode with page breaks or outlines
 #+texinfo_header: @set MAINTAINERSITE @uref{https://protesilaos.com,maintainer 
webpage}
 #+texinfo_header: @set MAINTAINER Protesilaos Stavrou
 #+texinfo_header: @set MAINTAINEREMAIL @email{i...@protesilaos.com}

[elpa] externals/logos 90ec28cd10 21/25: Delete trailing parenthesis

[ELPA Syncer]

branch: externals/logos
commit 90ec28cd1093822521bc828b09b5e9712f1995e8
Author: Protesilaos Stavrou 
Commit: Protesilaos Stavrou 

Delete trailing parenthesis
---
 README.org | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/README.org b/README.org
index 4d04e7e2fc..64bcdaeec9 100644
--- a/README.org
+++ b/README.org
@@ -286,7 +286,7 @@ placement invoke the ~recenter~ function with a numeric 
argument.
   "Use `recenter' to reposition the view at the top."
   (recenter 0))
 
-(add-hook 'logos-page-motion-hook #'my-logos--recenter-top))
+(add-hook 'logos-page-motion-hook #'my-logos--recenter-top)
 #+end_src
 
 The =0= argument refers to the topmost line.  So =1= points to the line

[elpa] externals/logos dc52fc3f04 25/25: Merge redundant make-variable-buffer-local calls into defcustom

[ELPA Syncer]

branch: externals/logos
commit dc52fc3f043c8a900d9c9bce2e7b11a39bbe1672
Author: Philip Kaludercic 
Commit: Protesilaos Stavrou 

Merge redundant make-variable-buffer-local calls into defcustom
---
 logos.el | 15 ++-
 1 file changed, 6 insertions(+), 9 deletions(-)

diff --git a/logos.el b/logos.el
index bac4593590..84bbdec04a 100644
--- a/logos.el
+++ b/logos.el
@@ -97,17 +97,15 @@ the latter."
   "When non-nil hide the modeline.
 This is only relevant when `logos-focus-mode' is enabled."
   :type 'boolean
-  :group 'logos)
-
-(make-variable-buffer-local 'logos-hide-mode-line)
+  :group 'logos
+  :local t)
 
 (defcustom logos-scroll-lock nil
   "When non-nil, use `scroll-lock-mode'.
 This is only relevant when `logos-focus-mode' is enabled."
   :type 'boolean
-  :group 'logos)
-
-(make-variable-buffer-local 'logos-scroll-lock)
+  :group 'logos
+  :local t)
 
 (defcustom logos-variable-pitch nil
   "When non-nil, `text-mode' buffers use `variable-pitch-mode'.
@@ -116,9 +114,8 @@ assumed to be a monospaced typeface.
 
 This is only relevant when `logos-focus-mode' is enabled."
   :type 'boolean
-  :group 'logos)
-
-(make-variable-buffer-local 'logos-variable-pitch)
+  :group 'logos
+  :local t)
 
  General utilities
 

[elpa] externals/logos 6c2b3acb6b 24/25: Update change log for version 0.1.0

[ELPA Syncer]

branch: externals/logos
commit 6c2b3acb6bb406d644212326b7479daa0aad179d
Author: Protesilaos Stavrou 
Commit: Protesilaos Stavrou 

Update change log for version 0.1.0
---
 CHANGELOG.org | 19 +++
 1 file changed, 11 insertions(+), 8 deletions(-)

diff --git a/CHANGELOG.org b/CHANGELOG.org
index 83b2b1d13f..2fc7c1400b 100644
--- a/CHANGELOG.org
+++ b/CHANGELOG.org
@@ -10,16 +10,19 @@ tagged commit on the project's main git repository:
 The newest release is at the top.  For further details, please consult
 the manual: .
 
-* Version 0.1.0 on N/A
+* Version 0.1.0 on 2022-03-11
 :PROPERTIES:
 :CUSTOM_ID: h:ca03557f-35c1-4342-b126-d08fd855dbf4
 :END:
 
-In the beginning, there was =prot-logos.el=.  A file that loaded some
-configurations I had for presentations (part of 
[[https://gitlab.com/protesilaos/dotfiles][my dotfiles]]).  On
-2022-03-02 I decided to take the code out of my personal setup and turn
-it into a package.  It occured to me that "logos" is a nice word though
-it might be a bit dull for an Emacs package, so I coined the backcronyms
-"^L Only Generates Ostensible Slides" and "Logos Optionally Garners
-Outline Sections", which hopefully describe what this is all about.
+In the beginning, there was =prot-logos.el=.  A file that pieced
+together some code and configurations I had for presentations (part of
+[[https://gitlab.com/protesilaos/dotfiles][my dotfiles]]).  On 2022-03-02 I 
decided to take the code out of my
+personal setup and turn it into a general purpose package.
+
+It occured to me that "logos" is a nice word though it might be a bit
+dull for an Emacs package, so I coined the backcronyms "^L Only
+Generates Ostensible Slides" and "Logos Optionally Garners Outline
+Sections", which hopefully describe what this is all about.
+
 Read the manual for the technicalities.

[elpa] externals/logos 4482655c41: Use correct copyright year in the manual

[ELPA Syncer]

branch: externals/logos
commit 4482655c41e65f6d48253129d4d9e421c4c8d913
Author: Protesilaos Stavrou 
Commit: Protesilaos Stavrou 

Use correct copyright year in the manual
---
 README.org | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/README.org b/README.org
index 2b4ee4a0d1..901b1c0073 100644
--- a/README.org
+++ b/README.org
@@ -44,7 +44,7 @@ Current development target is {{{development-version}}}.
 :CUSTOM_ID: h:efc32d6b-9405-4f3c-9560-3229b3ce3866
 :END:
 
-Copyright (C) 2021  Free Software Foundation, Inc.
+Copyright (C) 2022  Free Software Foundation, Inc.
 
 #+begin_quote
 Permission is granted to copy, distribute and/or modify this document
@@ -58,7 +58,6 @@ included in the section entitled “GNU Free Documentation 
License.”
 modify this GNU manual.”
 #+end_quote
 
-
 * Overview
 :PROPERTIES:
 :CUSTOM_ID: h:77518cc5-a7f4-4c5e-9c0f-7cf0f43b6317

[elpa] externals/org-modern updated (5c50baecd7 -> 8f35dd1fdc)

[ELPA Syncer]

elpasync pushed a change to branch externals/org-modern.

  from  5c50baecd7 Update README
   new  502cdc3bd6 Add org-modern-agenda (Fix #6)
   new  85c08a0023 Remove mode
   new  8f35dd1fdc Fix README


Summary of changes:
 README.org|  6 --
 org-modern.el | 16 +++-
 2 files changed, 19 insertions(+), 3 deletions(-)

[elpa] externals/org-modern 502cdc3bd6 1/3: Add org-modern-agenda (Fix #6)

[ELPA Syncer]

branch: externals/org-modern
commit 502cdc3bd63affb6004331c78c6913d78d27746e
Author: Daniel Mendler 
Commit: Daniel Mendler 

Add org-modern-agenda (Fix #6)

Currently only TODO states are prettified.
---
 README.org|  4 +++-
 org-modern.el | 25 -
 2 files changed, 27 insertions(+), 2 deletions(-)

diff --git a/README.org b/README.org
index 3deba28847..f0864bc837 100644
--- a/README.org
+++ b/README.org
@@ -56,7 +56,8 @@ invoking =M-x org-modern-mode=. In order to enable 
=org-modern= for all your Org
 buffers, add =org-modern-mode= to the Org mode hooks.
 
 #+begin_src emacs-lisp
-(add-hook 'org-mode-hook #'org-modern-mode)
+  (add-hook 'org-mode-hook #'org-modern-mode)
+  (add-hook 'org-agenda-finalize-hook 'org-modern-agenda)
 #+end_src
 
 Try the following minimal setup in =emacs -Q= to emulate the looks of the
@@ -97,6 +98,7 @@ screenshot above.
 
   ;; Enable org-modern-mode
   (add-hook 'org-mode-hook 'org-modern-mode)
+  (add-hook 'org-agenda-finalize-hook 'org-modern-agenda)
 #+end_src
 
 * Contributions
diff --git a/org-modern.el b/org-modern.el
index 431be7905a..7c06ebf6a9 100644
--- a/org-modern.el
+++ b/org-modern.el
@@ -301,7 +301,8 @@ Set to nil to disable the indicator."
 (put-text-property
  beg end
  'face
- (if (member todo org-done-keywords)
+ (if (member todo (or org-done-keywords
+  org-done-keywords-for-agenda))
  'org-modern-done
'org-modern-todo
 
@@ -514,5 +515,27 @@ Set to nil to disable the indicator."
'(display face invisible)
  '(wrap-prefix line-prefix display face invisible))
 
+;;;###autoload
+(define-minor-mode org-modern-agenda-mode
+  "Modern looks for Org agenda highlighting."
+  :global nil
+  :group 'org-modern
+  (if org-modern-agenda-mode
+  (add-hook 'org-agenda-finalize-hook #'org-modern--agenda-finalize)
+(remove-hook 'org-agenda-finalize-hook #'org-modern--agenda-finalize)))
+
+;;;###autoload
+(defun org-modern-agenda ()
+  "Finalize Org agenda highlighting."
+  (save-excursion
+(save-match-data
+  (goto-char (point-min))
+  (let ((re (format " %s "
+(regexp-opt
+ (append org-todo-keywords-for-agenda
+ org-done-keywords-for-agenda) t
+(while (re-search-forward re nil 'noerror)
+  (org-modern--todo))
+
 (provide 'org-modern)
 ;;; org-modern.el ends here

[elpa] externals/org-modern 8f35dd1fdc 3/3: Fix README

[ELPA Syncer]

branch: externals/org-modern
commit 8f35dd1fdcc2fa9f853823b572d28974ccd1a859
Author: Daniel Mendler 
Commit: Daniel Mendler 

Fix README
---
 README.org | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/README.org b/README.org
index f0864bc837..2ee1c77c48 100644
--- a/README.org
+++ b/README.org
@@ -57,7 +57,7 @@ buffers, add =org-modern-mode= to the Org mode hooks.
 
 #+begin_src emacs-lisp
   (add-hook 'org-mode-hook #'org-modern-mode)
-  (add-hook 'org-agenda-finalize-hook 'org-modern-agenda)
+  (add-hook 'org-agenda-finalize-hook #'org-modern-agenda)
 #+end_src
 
 Try the following minimal setup in =emacs -Q= to emulate the looks of the
@@ -97,8 +97,8 @@ screenshot above.
 org-insert-heading-respect-content t)
 
   ;; Enable org-modern-mode
-  (add-hook 'org-mode-hook 'org-modern-mode)
-  (add-hook 'org-agenda-finalize-hook 'org-modern-agenda)
+  (add-hook 'org-mode-hook #'org-modern-mode)
+  (add-hook 'org-agenda-finalize-hook #'org-modern-agenda)
 #+end_src
 
 * Contributions

[elpa] externals/org-modern 85c08a0023 2/3: Remove mode

[ELPA Syncer]

branch: externals/org-modern
commit 85c08a00234ab27338c1067ea0ac3988e68c4b62
Author: Daniel Mendler 
Commit: Daniel Mendler 

Remove mode
---
 org-modern.el | 9 -
 1 file changed, 9 deletions(-)

diff --git a/org-modern.el b/org-modern.el
index 7c06ebf6a9..75cc56ca8e 100644
--- a/org-modern.el
+++ b/org-modern.el
@@ -515,15 +515,6 @@ Set to nil to disable the indicator."
'(display face invisible)
  '(wrap-prefix line-prefix display face invisible))
 
-;;;###autoload
-(define-minor-mode org-modern-agenda-mode
-  "Modern looks for Org agenda highlighting."
-  :global nil
-  :group 'org-modern
-  (if org-modern-agenda-mode
-  (add-hook 'org-agenda-finalize-hook #'org-modern--agenda-finalize)
-(remove-hook 'org-agenda-finalize-hook #'org-modern--agenda-finalize)))
-
 ;;;###autoload
 (defun org-modern-agenda ()
   "Finalize Org agenda highlighting."

[elpa] externals/logos 37138ce540: Bump version

[ELPA Syncer]

branch: externals/logos
commit 37138ce54044d04eaad5d5f81d42eefceef0df01
Author: Protesilaos Stavrou 
Commit: Protesilaos Stavrou 

Bump version
---
 logos.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/logos.el b/logos.el
index 84bbdec04a..a07b5dd93a 100644
--- a/logos.el
+++ b/logos.el
@@ -4,7 +4,7 @@
 
 ;; Author: Protesilaos Stavrou 
 ;; URL: https://gitlab.com/protesilaos/logos
-;; Version: 0.1.0
+;; Version: 0.1.2
 ;; Package-Requires: ((emacs "27.1"))
 
 ;; This file is NOT part of GNU Emacs.

[elpa] externals/osm 0eb51edc72: Configurable curl options

[ELPA Syncer]

branch: externals/osm
commit 0eb51edc72139d5dab5e547d1124bfec738d0302
Author: Daniel Mendler 
Commit: Daniel Mendler 

Configurable curl options
---
 osm.el | 25 -
 1 file changed, 16 insertions(+), 9 deletions(-)

diff --git a/osm.el b/osm.el
index b4f1f26106..256becd7b3 100644
--- a/osm.el
+++ b/osm.el
@@ -39,9 +39,15 @@
   :group 'web
   :prefix "osm-")
 
-(defvar osm--server-defaults
+(defcustom osm-curl-options
+  "--fail --location --silent"
+  "Additional Curl command line options."
+  :type 'string)
+
+(defcustom osm-server-defaults
   '(:min-zoom 2 :max-zoom 19 :max-connections 2 :subdomains ("a" "b" "c"))
-  "Default server properties.")
+  "Default server properties."
+  :type 'plist)
 
 (defcustom osm-server-list
   '((default
@@ -315,7 +321,7 @@ Should be at least 7 days according to the server usage 
policies."
 (defun osm--server-property (prop)
   "Return server property PROP."
   (or (plist-get (alist-get osm-server osm-server-list) prop)
-  (plist-get osm--server-defaults prop)))
+  (plist-get osm-server-defaults prop)))
 
 (defun osm--tile-url (x y zoom)
   "Return tile url for coordinate X, Y and ZOOM."
@@ -364,7 +370,7 @@ Should be at least 7 days according to the server usage 
policies."
:connection-type 'pipe
:noquery t
:command
-   (list "curl" "-f" "-s" "-o" tmp (osm--tile-url x y zoom))
+   `("curl" ,@(split-string osm-curl-options) "--output" ,tmp 
,(osm--tile-url x y zoom))
:filter #'ignore
:sentinel
(lambda (_proc status)
@@ -1130,7 +1136,7 @@ xmlns='http://www.w3.org/2000/svg' 
xmlns:xlink='http://www.w3.org/1999/xlink'>
  (json-parse-string
   (shell-command-to-string
(concat
-"curl -f -s "
+"curl " osm-curl-options " "
 (shell-quote-argument
  (format 
"https://nominatim.openstreetmap.org/reverse?format=json&zoom=%s&lat=%s&lon=%s";
  (min 18 (max 3 osm--zoom)) lat lon
@@ -1148,10 +1154,11 @@ xmlns='http://www.w3.org/2000/svg' 
xmlns:xlink='http://www.w3.org/1999/xlink'>
   nil nil nil 'osm--search-history))
  (json (json-parse-string
 (shell-command-to-string
- (concat "curl -f -s "
- (shell-quote-argument
-  (concat 
"https://nominatim.openstreetmap.org/search?format=json&q=";
-  (url-encode-url search)
+ (concat
+  "curl " osm-curl-options " "
+  (shell-quote-argument
+   (concat 
"https://nominatim.openstreetmap.org/search?format=json&q=";
+   (url-encode-url search)
 :array-type 'list
 :object-type 'alist))
  (results (mapcar

[elpa] externals/org-modern a0172a06a6: Minor cleanup

[ELPA Syncer]

branch: externals/org-modern
commit a0172a06a6b1290dbc58e7b8361e5854d5779005
Author: Daniel Mendler 
Commit: Daniel Mendler 

Minor cleanup
---
 README.org| 1 +
 org-modern.el | 6 +++---
 2 files changed, 4 insertions(+), 3 deletions(-)

diff --git a/README.org b/README.org
index 2ee1c77c48..9b1727822f 100644
--- a/README.org
+++ b/README.org
@@ -92,6 +92,7 @@ screenshot above.
 org-auto-align-tags nil
 org-tags-column 0
 org-ellipsis "…"
+org-agenda-block-separator ?─
 org-catch-invisible-edits 'show-and-error
 org-special-ctrl-a/e t
 org-insert-heading-respect-content t)
diff --git a/org-modern.el b/org-modern.el
index 75cc56ca8e..c56f6fd196 100644
--- a/org-modern.el
+++ b/org-modern.el
@@ -301,8 +301,7 @@ Set to nil to disable the indicator."
 (put-text-property
  beg end
  'face
- (if (member todo (or org-done-keywords
-  org-done-keywords-for-agenda))
+ (if (member todo org-done-keywords)
  'org-modern-done
'org-modern-todo
 
@@ -524,7 +523,8 @@ Set to nil to disable the indicator."
   (let ((re (format " %s "
 (regexp-opt
  (append org-todo-keywords-for-agenda
- org-done-keywords-for-agenda) t
+ org-done-keywords-for-agenda) t)))
+(org-done-keywords org-done-keywords-for-agenda))
 (while (re-search-forward re nil 'noerror)
   (org-modern--todo))
 

[elpa] externals/corfu e4814c4e68: corfu--in-region: Handle case when no completion candidates are returned

[ELPA Syncer]

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

corfu--in-region: Handle case when no completion candidates are returned
---
 corfu.el | 7 ---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/corfu.el b/corfu.el
index 51065ae0f1..e834f0254c 100644
--- a/corfu.el
+++ b/corfu.el
@@ -1133,10 +1133,11 @@ See `completion-in-region' for the arguments BEG, END, 
TABLE, PRED."
(when exit
  (funcall exit newstr
   ;; If completion is finished and cannot be further 
completed,
-  ; return 'finished. Otherwise return 'exact.
+  ;; return 'finished. Otherwise return 'exact.
   (if (eq (try-completion (car candidates) table pred) 
t)
-  'finished 'exact)))
- (if (not (and threshold (or (eq threshold t) (>= threshold 
total
+  'finished 'exact)))
+ (if (or (= total 0) (not threshold)
+ (and (not (eq threshold t)) (< threshold total)))
  (corfu--setup)
(corfu--cycle-candidates total candidates (+ base beg) end)
;; Do not show Corfu when "trivially" cycling, i.e.,

[elpa] externals/logos d0dbc8eeaf: Reference GNU ELPA package

[ELPA Syncer]

branch: externals/logos
commit d0dbc8eeaf72b141279871f43700419926afcbe5
Author: Protesilaos Stavrou 
Commit: Protesilaos Stavrou 

Reference GNU ELPA package
---
 README.org | 23 +--
 1 file changed, 17 insertions(+), 6 deletions(-)

diff --git a/README.org b/README.org
index 901b1c0073..9eed35ae7d 100644
--- a/README.org
+++ b/README.org
@@ -119,13 +119,24 @@ backronyms about the mechanics of this package:
 :PROPERTIES:
 :CUSTOM_ID: h:b0e78fe5-4e74-4959-be6f-10f7b631d5a0
 :END:
-#+cindex: Installation
+#+cindex: Installation instructions
 
-Logos is not in any package archive for the time being, though I plan to
-submit it to GNU ELPA (as such, any non-trivial patches require
-copyright assignment to the Free Software Foundation).  Users can rely
-on =straight.el=, =quelpa=, or equivalent to fetch the source.  Below
-are the essentials for those who prefer the manual method.
+** GNU ELPA package
+:PROPERTIES:
+:CUSTOM_ID: h:35926213-4825-4933-932c-5183628d25ac
+:END:
+
+The package is available as =logos=.  Simply do:
+
+: M-x package-refresh-contents
+: M-x package-install
+
+And search for it.
+
+** Manual installation
+:PROPERTIES:
+:CUSTOM_ID: h:d9184e23-5a20-4efa-a8c4-1dfdd1e23dbe
+:END:
 
 Assuming your Emacs files are found in =~/.emacs.d/=, execute the
 following commands in a shell prompt:

[nongnu] elpa/git-commit ca7504a12d: manual: Correct description of remote.NAME.pushurl variable

[ELPA Syncer]

branch: elpa/git-commit
commit ca7504a12d0e899d7a82f3b0cbe2598d8d376fb8
Author: Angel de Vicente 
Commit: Kyle Meyer 

manual: Correct description of remote.NAME.pushurl variable
---
 docs/magit.org  | 2 +-
 docs/magit.texi | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/docs/magit.org b/docs/magit.org
index bc33f2b67e..87e8ad5a36 100644
--- a/docs/magit.org
+++ b/docs/magit.org
@@ -6444,7 +6444,7 @@ These variables can be set from the transient prefix 
command
 
 - Variable: remote.NAME.pushurl ::
 
-  This variable specifies the url used for fetching from the remote
+  This variable specifies the url used for pushing to the remote
   named NAME.  If it is not specified, then ~remote.NAME.url~ is used
   instead.  It can have multiple values.
 
diff --git a/docs/magit.texi b/docs/magit.texi
index fde3650684..92e3199962 100644
--- a/docs/magit.texi
+++ b/docs/magit.texi
@@ -7979,7 +7979,7 @@ have multiple values.
 @end defvar
 
 @defvar remote.NAME.pushurl
-This variable specifies the url used for fetching from the remote
+This variable specifies the url used for pushing to the remote
 named NAME@.  If it is not specified, then @code{remote.NAME.url} is used
 instead.  It can have multiple values.
 @end defvar

[nongnu] elpa/magit updated (9d8d5e5603 -> ca7504a12d)

[ELPA Syncer]

elpasync pushed a change to branch elpa/magit.

  from  9d8d5e5603 When toggling sections don't always go to section 
beginning
  adds  ca7504a12d manual: Correct description of remote.NAME.pushurl 
variable

No new revisions were added by this update.

Summary of changes:
 docs/magit.org  | 2 +-
 docs/magit.texi | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

[nongnu] elpa/magit-section updated (9d8d5e5603 -> ca7504a12d)

[ELPA Syncer]

elpasync pushed a change to branch elpa/magit-section.

  from  9d8d5e5603 When toggling sections don't always go to section 
beginning
  adds  ca7504a12d manual: Correct description of remote.NAME.pushurl 
variable

No new revisions were added by this update.

Summary of changes:
 docs/magit.org  | 2 +-
 docs/magit.texi | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

[elpa] externals/logos 5d2f471324: Check for outline-on-heading-p

[ELPA Syncer]

branch: externals/logos
commit 5d2f47132473903f0cda663122b92991a29e0135
Author: Protesilaos Stavrou 
Commit: Protesilaos Stavrou 

Check for outline-on-heading-p
---
 logos.el | 6 --
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/logos.el b/logos.el
index a07b5dd93a..78c3d6ba91 100644
--- a/logos.el
+++ b/logos.el
@@ -184,6 +184,7 @@ page."
 
 (declare-function org-at-heading-p "org" (&optional _))
 (declare-function org-show-entry "org")
+(declare-function outline-on-heading-p "outline" (&optional invisible-ok))
 (declare-function outline-show-entry "outline")
 
 (defun logos--reveal-entry ()
@@ -192,8 +193,9 @@ page."
((and (eq major-mode 'org-mode)
  (org-at-heading-p))
 (org-show-entry))
-   ((or (eq major-mode 'outline-mode)
-(bound-and-true-p outline-minor-mode))
+   ((and (or (eq major-mode 'outline-mode)
+ (bound-and-true-p outline-minor-mode))
+ (outline-on-heading-p))
 (outline-show-entry
 
 (add-hook 'logos-page-motion-hook #'logos--reveal-entry)

[nongnu] elpa/projectile 1fbce79c86: Add Pijul support (#1757)

[ELPA Syncer]

branch: elpa/projectile
commit 1fbce79c86a8f713286ce5fbf47b62fa4041e7c4
Author: Daniel Ziltener 
Commit: GitHub 

Add Pijul support (#1757)
---
 CHANGELOG.md  |  1 +
 projectile.el | 10 ++
 2 files changed, 11 insertions(+)

diff --git a/CHANGELOG.md b/CHANGELOG.md
index d8884fc46d..dea93c600e 100644
--- a/CHANGELOG.md
+++ b/CHANGELOG.md
@@ -4,6 +4,7 @@
 
 ### New features
 
+* [#1757](https://github.com/bbatsov/projectile/pull/1757) Add support for the 
Pijul VCS
 * [#1745](https://github.com/bbatsov/projectile/pull/1745) Allow 
`projectile-update-project-type` to change project type precendence and remove 
project options.
 * [#1699](https://github.com/bbatsov/projectile/pull/1699): 
`projectile-ripgrep` now supports [`rg.el`](https://github.com/dajva/rg.el).
 * [#1712](https://github.com/bbatsov/projectile/issues/1712): Make it possible 
to hide Projectile's menu. See `projectile-show-menu`.
diff --git a/projectile.el b/projectile.el
index b5f3bae13a..e58a0d5e23 100644
--- a/projectile.el
+++ b/projectile.el
@@ -327,6 +327,7 @@ See `projectile-register-project-type'."
 "_FOSSIL_"; Fossil VCS root DB on Windows
 ".bzr"; Bazaar VCS root dir
 "_darcs"  ; Darcs VCS root dir
+".pijul"  ; Pijul VCS root dir
 )
   "A list of files considered to mark the root of a project.
 The bottommost (parentmost) match has precedence."
@@ -405,6 +406,7 @@ is set to 'alien'."
 "_FOSSIL_"
 ".bzr"
 "_darcs"
+".pijul"
 ".tox"
 ".svn"
 ".stack-work"
@@ -684,6 +686,11 @@ Set to nil to disable listing submodules contents."
   :group 'projectile
   :type 'string)
 
+(defcustom projectile-pijul-command "pijul list | tr '\\n' '\\0'"
+   "Command used by projectile to get the files in a pijul project."
+   :group 'projectile
+   :type 'string)
+
 (defcustom projectile-svn-command "svn list -R . | grep -v '$/' | tr '\\n' 
'\\0'"
   "Command used by projectile to get the files in a svn project."
   :group 'projectile
@@ -1334,6 +1341,7 @@ Fallback to a generic command when not in a 
VCS-controlled project."
 ('fossil projectile-fossil-command)
 ('bzr projectile-bzr-command)
 ('darcs projectile-darcs-command)
+('pijul projectile-pijul-command)
 ('svn projectile-svn-command)
 (_ projectile-generic-command)))
 
@@ -3366,6 +3374,7 @@ PROJECT-ROOT is the targeted directory.  If nil, use
((projectile-file-exists-p (expand-file-name "_FOSSIL_" project-root)) 
'fossil)
((projectile-file-exists-p (expand-file-name ".bzr" project-root)) 'bzr)
((projectile-file-exists-p (expand-file-name "_darcs" project-root)) 'darcs)
+   ((projectile-file-exists-p (expand-file-name ".pijul" project-root)) 'pijul)
((projectile-file-exists-p (expand-file-name ".svn" project-root)) 'svn)
;; then we check if there's a VCS marker up the directory tree
;; that covers the case when a project is part of a multi-project repository
@@ -3377,6 +3386,7 @@ PROJECT-ROOT is the targeted directory.  If nil, use
((projectile-locate-dominating-file project-root "_FOSSIL_") 'fossil)
((projectile-locate-dominating-file project-root ".bzr") 'bzr)
((projectile-locate-dominating-file project-root "_darcs") 'darcs)
+   ((projectile-locate-dominating-file project-root ".pijul") 'pijul)
((projectile-locate-dominating-file project-root ".svn") 'svn)
(t 'none)))