71 lines
2.1 KiB
EmacsLisp
71 lines
2.1 KiB
EmacsLisp
(defun super-emacs-reload-current-file ()
|
|
"Reload the file loaded in current buffer from the disk"
|
|
(interactive)
|
|
(cond (buffer-file-name (progn (find-alternate-file buffer-file-name)
|
|
(message "File reloaded")))
|
|
(t (message "You're not editing a file!"))))
|
|
|
|
;Disable splash message, start *scratch* buffer by default
|
|
(setq initial-buffer-choice
|
|
t)
|
|
(setq initial-scratch-message
|
|
"")
|
|
|
|
;Enforce spaces for indentation, instead of tabs
|
|
(setq-default indent-tabs-mode
|
|
nil)
|
|
|
|
;Enable show-paren-mode
|
|
(show-paren-mode)
|
|
|
|
;Enable whitespace mode
|
|
(global-whitespace-mode)
|
|
(setq whitespace-line-column 125)
|
|
|
|
;Enable winner-mode
|
|
(winner-mode t)
|
|
|
|
;Enable windmove
|
|
(windmove-default-keybindings)
|
|
|
|
;;keep search highlight
|
|
(setq lazy-highlight-cleanup nil)
|
|
|
|
|
|
|
|
;;cleanup buffers
|
|
|
|
(require 'midnight)
|
|
|
|
;;kill buffers if they were last disabled more than this seconds ago
|
|
(setq clean-buffer-list-delay-special 900)
|
|
|
|
(defvar clean-buffer-list-timer nil
|
|
"Stores clean-buffer-list timer if there is one. You can disable clean-buffer-list by (cancel-timer clean-buffer-list-timer).")
|
|
|
|
;; run clean-buffer-list every 2 hours
|
|
(setq clean-buffer-list-timer (run-at-time t 7200 'clean-buffer-list))
|
|
|
|
;; kill everything, clean-buffer-list is very intelligent at not killing
|
|
;; unsaved buffer.
|
|
(setq clean-buffer-list-kill-regexps '("^.*$"))
|
|
|
|
;; keep these buffer untouched
|
|
;; prevent append multiple times
|
|
(defvar clean-buffer-list-kill-never-buffer-names-init
|
|
clean-buffer-list-kill-never-buffer-names
|
|
"Init value for clean-buffer-list-kill-never-buffer-names")
|
|
(setq clean-buffer-list-kill-never-buffer-names
|
|
(append
|
|
'("*Messages*" "*cmd*" "*scratch*" "*w3m*" "*w3m-cache*" "*Inferior Octave*")
|
|
clean-buffer-list-kill-never-buffer-names-init))
|
|
|
|
;; prevent append multiple times
|
|
(defvar clean-buffer-list-kill-never-regexps-init
|
|
clean-buffer-list-kill-never-regexps
|
|
"Init value for clean-buffer-list-kill-never-regexps")
|
|
;; append to *-init instead of itself
|
|
(setq clean-buffer-list-kill-never-regexps
|
|
(append '("^\\*EMMS Playlist\\*.*$")
|
|
clean-buffer-list-kill-never-regexps-init))
|