michael/lean2
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

fix(emacs): set pp.width to column width instead of buffer width of flycheck error list

Browse source
This commit is contained in:
Sebastian Ullrich 2016-05-29 23:04:34 -04:00
parent 9fa30e3f7d
commit 057935d844
2 changed files with 12 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
src/emacs/lean-flycheck.el
View file

@ -108,4 +108,15 @@
;; In worst case, just use the same width of current window
(t body-width))))
(defun lean-flycheck-error-list-message-width ()
"Return the width of error messages in the flycheck-error list buffer"
(let (;; assume 'Message' is last column and has size 0 (true for default config)
(other-columns-width (apply '+ (mapcar (apply-partially 'nth 1) flycheck-error-list-format)))
(margin (length flycheck-error-list-format)))
(cond
;; If lean-flycheck-msg-width is set, use it
(lean-flycheck-msg-width
lean-flycheck-msg-width)
(t (- (lean-flycheck-error-list-buffer-width) other-columns-width margin)))))
(provide 'lean-flycheck)

2
src/emacs/lean-option.el
View file

@ -35,7 +35,7 @@
(setq option-alist
(lean-update-option-alist option-alist
"pp.width"
(lean-flycheck-error-list-buffer-width))))
(lean-flycheck-error-list-message-width))))
((not pp-width-entry)
(setq option-alist
(lean-update-option-alist option-alist