mmk2410/dotfiles
1
0
Fork 0
Code Issues Pull requests Releases Wiki Activity

Emacs: some restructuring

Browse source
This commit is contained in:
Marcel Kapfer 2018-02-23 09:34:41 +01:00
parent 0e39b07387
commit ce97fb3bf5
Signed by: mmk2410
GPG key ID: CADE6F0C09F21B09
1 changed files with 8 additions and 30 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

38
emacs/emacs.el
View file

@ -125,28 +125,21 @@
(name . "^\\*scratch\\*$") (name . "^\\*scratch\\*$")
(name . "^\\*Messages\\*$"))))))) (name . "^\\*Messages\\*$")))))))
;; activiate the above ibuffer configuration
(add-hook 'ibuffer-mode-hook (add-hook 'ibuffer-mode-hook
(lambda () (lambda ()
(ibuffer-auto-mode 1) (ibuffer-auto-mode 1)
(ibuffer-switch-to-saved-filter-groups "default"))) (ibuffer-switch-to-saved-filter-groups "default")))
;; Don't show filter groups if there are no buffers in that group ;; ibuffer options
(setq ibuffer-show-empty-filter-groups nil) (setq
;; Don't show filter groups if there are no buffers in that group
;; Don't ask for confirmation to delete marked buffers ibuffer-show-empty-filter-groups nil
(setq ibuffer-expert t) ;; Don't ask for confirmation to delete marked buffers
ibuffer-expert t)
;; put a new line at the end of every file
(setq require-final-newline t)
;; delete trailing whitespaces on save ;; delete trailing whitespaces on save
(add-hook 'before-save-hook 'delete-trailing-whitespace) (add-hook 'before-save-hook #'delete-trailing-whitespace)
;; use german directory in ispell
(setq ispell-dictionary "german-new8")
;;; always follow symlinks to git repos
(setq vc-follow-symlinks t)
;;; set default column width ;;; set default column width
(setq-default fill-column 80) (setq-default fill-column 80)
@ -156,21 +149,6 @@
(tool-bar-mode 0) (tool-bar-mode 0)
(scroll-bar-mode 0) (scroll-bar-mode 0)
;;; indent using spaces, not tabs
(setq indent-tabs-mode nil)
;; tab width
(setq tab-width 2)
;; Connecting StumpWM with emacsclient
(add-hook 'after-init-hook 'server-start)
(setq server-raise-frame t)
(if window-system
(add-hook 'server-done-hook
(lambda ()
(shell-command
"stumpish 'eval (stumpwm::return-es-called-win stumpwm::*es-win*)'"))))
;; auto-fill mode ;; auto-fill mode
(add-hook 'mail-mode-hook 'auto-fill-mode) (add-hook 'mail-mode-hook 'auto-fill-mode)
(add-hook 'mail-mode-hook (lambda () (setq fill-column 72))) (add-hook 'mail-mode-hook (lambda () (setq fill-column 72)))