forked from mirrors/org-mode
org-list: introduce a variable to distinguish sub-items better
* lisp/org-list.el (org-list-indent-offset): new variable. (org-list-struct-fix-ind): make use of the new variable.
This commit is contained in:
parent
aad4a7d4d3
commit
108bd48e25
|
@ -330,6 +330,13 @@ When the indentation would be larger than this, it will become
|
|||
:group 'org-plain-lists
|
||||
:type 'integer)
|
||||
|
||||
(defcustom org-list-indent-offset 0
|
||||
"Additional indentation for sub-items in a list.
|
||||
By setting this to a small number, usually 1 or 2, one can more
|
||||
clearly distinguish sub-items in a list."
|
||||
:group 'org-plain-lists
|
||||
:type 'integer)
|
||||
|
||||
(defcustom org-list-radio-list-templates
|
||||
'((latex-mode "% BEGIN RECEIVE ORGLST %n
|
||||
% END RECEIVE ORGLST %n
|
||||
|
@ -1662,12 +1669,14 @@ This function modifies STRUCT."
|
|||
(lambda (item)
|
||||
(let ((parent (org-list-get-parent item struct parents)))
|
||||
(if parent
|
||||
;; Indent like parent + length of parent's bullet.
|
||||
;; Indent like parent + length of parent's bullet +
|
||||
;; sub-list offset.
|
||||
(org-list-set-ind
|
||||
item struct (+ (or bullet-size
|
||||
(length
|
||||
(org-list-get-bullet parent struct)))
|
||||
(org-list-get-ind parent struct)))
|
||||
(org-list-get-ind parent struct)
|
||||
org-list-indent-offset))
|
||||
;; If no parent, indent like top-point.
|
||||
(org-list-set-ind item struct top-ind))))))
|
||||
(mapc new-ind (mapcar 'car (cdr struct)))))
|
||||
|
|
Loading…
Reference in a new issue