branch: externals/logos
commit feeea154fc746c0385a7f8e9f4806b0c8a413063
Author: Protesilaos Stavrou <i...@protesilaos.com>
Commit: Protesilaos Stavrou <i...@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:
