emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

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


From: ELPA Syncer
Subject: [elpa] externals/logos feeea154fc 14/25: Tweak glue code samples
Date: Fri, 11 Mar 2022 08:58:01 -0500 (EST)

branch: externals/logos
commit feeea154fc746c0385a7f8e9f4806b0c8a413063
Author: Protesilaos Stavrou <info@protesilaos.com>
Commit: Protesilaos Stavrou <info@protesilaos.com>

    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:



reply via email to

[Prev in Thread] Current Thread [Next in Thread]