[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/taxy ce8d3eb 2/2: Change: (taxy-magit-section) Rename h
From: |
ELPA Syncer |
Subject: |
[elpa] externals/taxy ce8d3eb 2/2: Change: (taxy-magit-section) Rename heading-indent slot to level-indent |
Date: |
Fri, 24 Sep 2021 01:57:21 -0400 (EDT) |
branch: externals/taxy
commit ce8d3ebdecb353e1dc2fca418f2bace5184e5d4c
Author: Adam Porter <adam@alphapapa.net>
Commit: Adam Porter <adam@alphapapa.net>
Change: (taxy-magit-section) Rename heading-indent slot to level-indent
---
examples/bookmarky.el | 2 +-
examples/deffy.el | 2 +-
examples/diredy.el | 2 +-
taxy-magit-section.el | 15 +++++++--------
4 files changed, 10 insertions(+), 11 deletions(-)
diff --git a/examples/bookmarky.el b/examples/bookmarky.el
index 86aa65f..d89970b 100644
--- a/examples/bookmarky.el
+++ b/examples/bookmarky.el
@@ -126,7 +126,7 @@ a slash."
(apply #'make-taxy-magit-section
:make #'make-fn
:format-fn #'format-item
- :heading-indent bookmarky-level-indent
+ :level-indent bookmarky-level-indent
:visibility-fn visibility-fn
args)))
(with-current-buffer (get-buffer-create buffer-name)
diff --git a/examples/deffy.el b/examples/deffy.el
index 22157d0..62f8170 100644
--- a/examples/deffy.el
+++ b/examples/deffy.el
@@ -156,7 +156,7 @@ buffer."
(apply #'make-taxy-magit-section
:make #'make-fn
:format-fn #'format-item
- :heading-indent deffy-level-indent
+ :level-indent deffy-level-indent
:visibility-fn visibility-fn
;; :heading-face-fn #'heading-face
args))
diff --git a/examples/diredy.el b/examples/diredy.el
index 0425afd..8e79e8b 100644
--- a/examples/diredy.el
+++ b/examples/diredy.el
@@ -65,7 +65,7 @@
(make-fn (&rest args)
(apply #'make-taxy-magit-section
:make #'make-fn
- :heading-indent 1
+ :level-indent 1
:item-indent 2
args)))
(make-fn
diff --git a/taxy-magit-section.el b/taxy-magit-section.el
index 32fcad7..a233dbf 100644
--- a/taxy-magit-section.el
+++ b/taxy-magit-section.el
@@ -34,7 +34,7 @@
;;;; Variables
-(defvar taxy-magit-section-heading-indent 2
+(defvar taxy-magit-section-level-indent 2
"Default heading indentation per level.")
(defvar taxy-magit-section-item-indent 2
@@ -75,8 +75,7 @@ this does not disable indentation of section headings.")
;; performance, since slot accessors can't be optimized).
(visibility-fn #'taxy-magit-section-visibility)
(heading-face-fn (lambda (_depth) 'magit-section-heading))
- ;; TODO: Rename heading-indent slot to level-indent.
- (heading-indent 2)
+ (level-indent 2)
(item-indent 2)
(format-fn #'prin1-to-string))
@@ -110,7 +109,7 @@ which blank lines are inserted between sections at that
level."
(indent-size (if (or (not
taxy-magit-section-insert-indent-items)
(< depth 0))
0
- (+ (* depth
(taxy-magit-section-heading-indent taxy))
+ (+ (* depth
(taxy-magit-section-level-indent taxy))
(taxy-magit-section-item-indent
taxy))))
(indent-string (make-string indent-size ? )))
(add-text-properties 0 (length indent-string)
@@ -119,7 +118,7 @@ which blank lines are inserted between sections at that
level."
(insert indent-string formatted "\n")))))
(insert-taxy
(taxy depth) (let ((magit-section-set-visibility-hook
magit-section-set-visibility-hook)
- (taxy-magit-section-heading-indent
(taxy-magit-section-heading-indent taxy))
+ (taxy-magit-section-level-indent
(taxy-magit-section-level-indent taxy))
(taxy-magit-section-item-indent
(taxy-magit-section-item-indent taxy)))
(cl-typecase taxy
(taxy-magit-section
@@ -128,7 +127,7 @@ which blank lines are inserted between sections at that
level."
(magit-insert-section (magit-section taxy)
(magit-insert-heading
(make-string (* (if (< depth 0) 0 depth)
-
(taxy-magit-section-heading-indent taxy))
+
(taxy-magit-section-level-indent taxy))
? )
(propertize (taxy-name taxy)
'face (funcall
(taxy-magit-section-heading-face-fn taxy) depth))
@@ -187,8 +186,8 @@ Default visibility function for
The macro is named \"PREFIX-define-column\".
These customization options are defined, which are to be used in
-a `taxy-magit-section' in its `:heading-indent' and
-`:item-indent' slots, respectively:
+a `taxy-magit-section' in its `:level-indent' and `:item-indent'
+slots, respectively:
- PREFIX-level-indent
- PREFIX-item-indent