[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/pulsar bc084499c4 04/28: Add function to reveal Org or
From: |
ELPA Syncer |
Subject: |
[elpa] externals/pulsar bc084499c4 04/28: Add function to reveal Org or Outline entry |
Date: |
Tue, 22 Mar 2022 06:58:01 -0400 (EDT) |
branch: externals/pulsar
commit bc084499c4e42699fcf7c20fbd8a6185383ed914
Author: Protesilaos Stavrou <info@protesilaos.com>
Commit: Protesilaos Stavrou <info@protesilaos.com>
Add function to reveal Org or Outline entry
---
pulsar.el | 19 +++++++++++++++++++
1 file changed, 19 insertions(+)
diff --git a/pulsar.el b/pulsar.el
index 0f040ef508..f1b8d9927e 100644
--- a/pulsar.el
+++ b/pulsar.el
@@ -265,5 +265,24 @@ The symbol is NAME, DOC for the doc string, and ARG is
passed to
"Reposition point at the center of the window and pulse line."
nil)
+;;;; Reveal contents of Org or Outline headings
+
+(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 pulsar-reveal-entry ()
+ "Reveal Org or Outline entry and pulse line."
+ (cond
+ ((and (eq major-mode 'org-mode)
+ (org-at-heading-p))
+ (org-show-entry))
+ ((and (or (eq major-mode 'outline-mode)
+ (bound-and-true-p outline-minor-mode))
+ (outline-on-heading-p))
+ (outline-show-entry)))
+ (pulsar-pulse-line))
+
(provide 'pulsar)
;;; pulsar.el ends here
- [elpa] externals/pulsar 7a17c1ab55 01/28: Add pulsar.el, (continued)
- [elpa] externals/pulsar 7a17c1ab55 01/28: Add pulsar.el, ELPA Syncer, 2022/03/22
- [elpa] externals/pulsar e0ae86378f 06/28: Remove recentering at bottom, ELPA Syncer, 2022/03/22
- [elpa] externals/pulsar a335e52505 03/28: Add commands to pulse+recenter, ELPA Syncer, 2022/03/22
- [elpa] externals/pulsar 0cc2f4af56 02/28: Make outline structure more detailed, ELPA Syncer, 2022/03/22
- [elpa] externals/pulsar de1fa21ae3 05/28: Refine pulsar-reveal-entry, ELPA Syncer, 2022/03/22
- [elpa] externals/pulsar 4748f55eee 08/28: Expand the pulsar-pulse-functions, ELPA Syncer, 2022/03/22
- [elpa] externals/pulsar a84b2d86f1 10/28: Document integration with other packages, ELPA Syncer, 2022/03/22
- [elpa] externals/pulsar a7b7ac4f7e 11/28: Document pulse-setup, ELPA Syncer, 2022/03/22
- [elpa] externals/pulsar 23a8ef7fbf 13/28: Release version 0.1.0, ELPA Syncer, 2022/03/22
- [elpa] externals/pulsar 54702c9e1f 12/28: Add package keywords, ELPA Syncer, 2022/03/22
- [elpa] externals/pulsar bc084499c4 04/28: Add function to reveal Org or Outline entry,
ELPA Syncer <=
- [elpa] externals/pulsar 98d970dcdf 09/28: Add minor rewording, ELPA Syncer, 2022/03/22
- [elpa] externals/pulsar fca0e53815 15/28: Exert control over the pulse effect, ELPA Syncer, 2022/03/22
- [elpa] externals/pulsar 486645f81b 16/28: Always ':extend t' the generic pulse face, ELPA Syncer, 2022/03/22
- [elpa] externals/pulsar dcc94662a9 07/28: Stop pulsing during pulsar-reveal-entry, ELPA Syncer, 2022/03/22
- [elpa] externals/pulsar 82946880b5 14/28: Add missing function to sample package setup, ELPA Syncer, 2022/03/22
- [elpa] externals/pulsar 42f8a03b8a 18/28: Fix typo, ELPA Syncer, 2022/03/22
- [elpa] externals/pulsar d654e552f0 19/28: Clarify doc strings of user options, ELPA Syncer, 2022/03/22
- [elpa] externals/pulsar 4cfc18a009 22/28: Update to version 0.2.0, ELPA Syncer, 2022/03/22
- [elpa] externals/pulsar d2174307b0 23/28: Simple fix for highlight behavior on last line, ELPA Syncer, 2022/03/22
- [elpa] externals/pulsar 2d666c7061 25/28: Update "Acknowledgements" in the manual, ELPA Syncer, 2022/03/22