TakeV/spacemacs
Archived
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Disable large file check for certain major-modes

Browse source 
Introduce a variable spacemacs-large-file-modes-list to determine these
modes.
This commit is contained in:
Martin Yrjölä 2016-03-25 13:55:14 +02:00 committed by Eivind Fonn
parent ceef7f8650
commit 169d6873c9
1 changed files with 14 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

14
layers/+distribution/spacemacs-base/funcs.el
View file

@ -132,6 +132,16 @@ the current state and point position."
:type 'number
:group 'spacemacs)
(defcustom spacemacs-large-file-modes-list
'(archive-mode tar-mode jka-compr git-commit-mode image-mode
doc-view-mode doc-view-mode-maybe ebrowse-tree-mode
pdf-view-mode)
"Major modes which `spacemacs/check-large-file' will not be
automatically applied to."
:group 'spacemacs
:type '(list symbol))
(defun spacemacs/indent-region-or-buffer ()
"Indent a region if selected, otherwise the whole buffer."
(interactive)
@ -324,7 +334,9 @@ argument takes the kindows rotate backwards."
;; check when opening large files - literal file open
(defun spacemacs/check-large-file ()
(let ((size (nth 7 (file-attributes (buffer-file-name)))))
(when (and size (> size (* 1024 1024 dotspacemacs-large-file-size))
(when (and
(not (memq major-mode spacemacs-large-file-modes-list))
size (> size (* 1024 1024 dotspacemacs-large-file-size))
(y-or-n-p "This is a large file, open literally to avoid performance issues?"))
(setq buffer-read-only t)
(buffer-disable-undo)