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

highlight-indentation: improve whitespace handling

Browse source
This commit is contained in:
Henrik Lissner 2016-04-14 12:55:17 -04:00
parent 11af0f487c
commit 843bc3e00d
2 changed files with 17 additions and 11 deletions
Download patch file Download diff file Expand all files Collapse all files

1
core/core-ui.el
View file

@ -159,6 +159,7 @@
(if highlight-indentation-mode
(progn
(narf/add-whitespace)
(highlight-indentation-set-offset tab-width)
(add-hook 'after-save-hook 'narf/add-whitespace nil t))
(remove-hook 'after-save-hook 'narf/add-whitespace t)))
(add-hook 'before-save-hook 'delete-trailing-whitespace))

23
core/defuns/defuns-ui.el
View file

@ -58,20 +58,25 @@
(start (or start (point-min))))
(goto-char start)
(while (and (re-search-forward "^$" end-marker t) (not (>= (point) end-marker)))
(let (line-start line-end)
(let (line-start line-end
next-start next-end)
(save-excursion
;; Check previous line indent
(forward-line -1)
(setq line-start (point)
line-end (save-excursion (back-to-indentation) (point)))
(if (and (= line-start line-end)
(/= line-end (line-end-position)))
(progn
;; Check next line indent
(forward-line 2)
(setq line-start (point)
line-end (save-excursion (back-to-indentation) (point)))
(forward-line -1))
(forward-line 1))
(insert (make-string (- line-end line-start) 32))))
(setq next-start (point)
next-end (save-excursion (back-to-indentation) (point)))
;; Back to origin
(forward-line -1)
;; Adjust indent
(let ((line-indent (- line-end line-start))
(next-indent (- next-end next-start))
indent)
(setq indent (min line-indent next-indent))
(insert (make-string indent 32)))))
(forward-line 1)))))
(set-buffer-modified-p nil)
nil)