emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

autoload/format: add doom-format-indent-increment

Browse source
This commit is contained in:
Henrik Lissner 2019-10-07 12:57:18 -04:00
parent fa051797f2
commit d9945d8964
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395
1 changed files with 4 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

5
core/autoload/format.el
View file

@ -81,6 +81,9 @@ Any of these classes can be called like functions from within `format!' and
(defvar doom-format-indent 0 (defvar doom-format-indent 0
"Level to rigidly indent text returned by `format!' and `print!'.") "Level to rigidly indent text returned by `format!' and `print!'.")
(defvar doom-format-indent-increment 2
"Steps in which to increment `doom-format-indent' for consecutive levels.")
(defvar doom-format-backend (defvar doom-format-backend
(if noninteractive 'ansi 'text-properties) (if noninteractive 'ansi 'text-properties)
"Determines whether to print colors with ANSI codes or with text properties. "Determines whether to print colors with ANSI codes or with text properties.
@ -205,7 +208,7 @@ into faces or ANSI codes depending on the type of sesssion we're in."
;;;###autoload ;;;###autoload
(defmacro print-group! (&rest body) (defmacro print-group! (&rest body)
"Indents any `print!' or `format!' output within BODY." "Indents any `print!' or `format!' output within BODY."
`(let ((doom-format-indent (+ 2 doom-format-indent))) `(let ((doom-format-indent (+ doom-format-indent-increment doom-format-indent)))
,@body)) ,@body))
;;;###autoload ;;;###autoload