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

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

[elpa] externals/hyperbole 7e956000b4 2/4: Make hyrolo-helm-org-rifle sh


From: ELPA Syncer
Subject: [elpa] externals/hyperbole 7e956000b4 2/4: Make hyrolo-helm-org-rifle show leading asterisks in entries
Date: Mon, 31 Oct 2022 11:57:46 -0400 (EDT)

branch: externals/hyperbole
commit 7e956000b4983dd9375ef83dc269e599aa19a8d3
Author: Bob Weiner <rsw@gnu.org>
Commit: Bob Weiner <rsw@gnu.org>

    Make hyrolo-helm-org-rifle show leading asterisks in entries
---
 ChangeLog | 2 ++
 hyrolo.el | 6 ++++--
 2 files changed, 6 insertions(+), 2 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index ce6ef6f6de..ebf80eecae 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -12,6 +12,8 @@
             (hyrolo-next-visible-heading):     Add and bind to {n}.
             (hyrolo-previous-visible-heading): Add and bind to {p}.
            (hyrolo-up-heading):               Add and bind to {u}.
+           (hyrolo-helm-org-directory-rifle, hyrolo-helm-org-rifle):
+    Let new variable, 'helm-org-rifle-show-level-stars', be t.
 
 2022-10-24  Bob Weiner  <rsw@gnu.org>
 
diff --git a/hyrolo.el b/hyrolo.el
index 9030002a30..32ff831c53 100644
--- a/hyrolo.el
+++ b/hyrolo.el
@@ -3,7 +3,7 @@
 ;; Author:       Bob Weiner
 ;;
 ;; Orig-Date:     7-Jun-89 at 22:08:29
-;; Last-Mod:     25-Oct-22 at 02:06:30 by Bob Weiner
+;; Last-Mod:     27-Oct-22 at 18:47:16 by Bob Weiner
 ;;
 ;; Copyright (C) 1991-2022  Free Software Foundation, Inc.
 ;; See the "HY-COPY" file for license information.
@@ -1231,6 +1231,7 @@ around a matching line rather than entire entries."
   (require 'helm-org-rifle)
   (let ((files (seq-filter (lambda (f) (string-match "\\.\\(org\\|otl\\)$" f))
                           (seq-filter #'file-readable-p hyrolo-file-list)))
+       (helm-org-rifle-show-level-stars t)
        (helm-org-rifle-show-full-contents (not context-only-flag)))
     (save-excursion
       (mapc (lambda (file)
@@ -1253,7 +1254,8 @@ entries."
   (unless (file-readable-p org-directory)
     (make-directory org-directory))
   (if (file-readable-p org-directory)
-      (let ((helm-org-rifle-show-full-contents (not context-only-flag)))
+      (let ((helm-org-rifle-show-level-stars t)
+           (helm-org-rifle-show-full-contents (not context-only-flag)))
        (helm-org-rifle-org-directory))
     (error "(hyrolo-helm-org-directory-rifle): `org-directory', \"%s\", does 
not exist" org-directory)))
 



reply via email to

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