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
|
:group 'org-plain-lists
|
||||||
:type 'integer)
|
: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
|
(defcustom org-list-radio-list-templates
|
||||||
'((latex-mode "% BEGIN RECEIVE ORGLST %n
|
'((latex-mode "% BEGIN RECEIVE ORGLST %n
|
||||||
% END RECEIVE ORGLST %n
|
% END RECEIVE ORGLST %n
|
||||||
|
@ -1662,12 +1669,14 @@ This function modifies STRUCT."
|
||||||
(lambda (item)
|
(lambda (item)
|
||||||
(let ((parent (org-list-get-parent item struct parents)))
|
(let ((parent (org-list-get-parent item struct parents)))
|
||||||
(if parent
|
(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
|
(org-list-set-ind
|
||||||
item struct (+ (or bullet-size
|
item struct (+ (or bullet-size
|
||||||
(length
|
(length
|
||||||
(org-list-get-bullet parent struct)))
|
(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.
|
;; If no parent, indent like top-point.
|
||||||
(org-list-set-ind item struct top-ind))))))
|
(org-list-set-ind item struct top-ind))))))
|
||||||
(mapc new-ind (mapcar 'car (cdr struct)))))
|
(mapc new-ind (mapcar 'car (cdr struct)))))
|
||||||
|
|
Loading…
Reference in New Issue