Cleaned up some requires here and there

This commit is contained in:
Bozhidar Batsov 2013-03-12 21:56:21 +02:00
parent 5a14cdb486
commit 02b3f27e65
4 changed files with 20 additions and 16 deletions

View file

@ -98,6 +98,9 @@
;; smart pairing for all ;; smart pairing for all
(electric-pair-mode t) (electric-pair-mode t)
;; diminish keeps the modeline tidy
(require 'diminish)
;; meaningful names for buffers with the same name ;; meaningful names for buffers with the same name
(require 'uniquify) (require 'uniquify)
(setq uniquify-buffer-name-style 'forward) (setq uniquify-buffer-name-style 'forward)
@ -106,12 +109,13 @@
(setq uniquify-ignore-buffers-re "^\\*") ; don't muck with special buffers (setq uniquify-ignore-buffers-re "^\\*") ; don't muck with special buffers
;; saveplace remembers your location in a file when saving files ;; saveplace remembers your location in a file when saving files
(require 'saveplace)
(setq save-place-file (expand-file-name "saveplace" prelude-savefile-dir)) (setq save-place-file (expand-file-name "saveplace" prelude-savefile-dir))
;; activate it for all buffers ;; activate it for all buffers
(setq-default save-place t) (setq-default save-place t)
(require 'saveplace)
;; savehist keeps track of some history ;; savehist keeps track of some history
(require 'savehist)
(setq savehist-additional-variables (setq savehist-additional-variables
;; search entries ;; search entries
'(search ring regexp-search-ring) '(search ring regexp-search-ring)
@ -119,21 +123,14 @@
savehist-autosave-interval 60 savehist-autosave-interval 60
;; keep the home clean ;; keep the home clean
savehist-file (expand-file-name "savehist" prelude-savefile-dir)) savehist-file (expand-file-name "savehist" prelude-savefile-dir))
(savehist-mode t) (savehist-mode +1)
;; save recent files ;; save recent files
(require 'recentf)
(setq recentf-save-file (expand-file-name "recentf" prelude-savefile-dir) (setq recentf-save-file (expand-file-name "recentf" prelude-savefile-dir)
recentf-max-saved-items 200 recentf-max-saved-items 200
recentf-max-menu-items 15) recentf-max-menu-items 15)
(recentf-mode t) (recentf-mode +1)
;; time-stamps
;; when there's "Time-stamp: <>" in the first 10 lines of the file
(setq time-stamp-active t
;; check first 10 buffer lines for Time-stamp: <>
time-stamp-line-limit 10
time-stamp-format "%04y-%02m-%02d %02H:%02M:%02S (%u)") ; date format
(add-hook 'write-file-hooks 'time-stamp) ; update when saving
;; use shift + arrow keys to switch between visible buffers ;; use shift + arrow keys to switch between visible buffers
(require 'windmove) (require 'windmove)
@ -163,8 +160,9 @@
(add-hook 'mouse-leave-buffer-hook 'prelude-auto-save-command) (add-hook 'mouse-leave-buffer-hook 'prelude-auto-save-command)
;; show-paren-mode: subtle highlighting of matching parens (global-mode) ;; show-paren-mode: subtle highlighting of matching parens (global-mode)
(show-paren-mode +1) (require 'paren)
(setq show-paren-style 'parenthesis) (setq show-paren-style 'parenthesis)
(show-paren-mode +1)
;; highlight the current line ;; highlight the current line
(global-hl-line-mode +1) (global-hl-line-mode +1)
@ -196,7 +194,7 @@
(setq tramp-default-method "ssh") (setq tramp-default-method "ssh")
;; ido-mode ;; ido-mode
(ido-mode t) (require 'ido)
(setq ido-enable-prefix nil (setq ido-enable-prefix nil
ido-enable-flex-matching t ido-enable-flex-matching t
ido-create-new-buffer 'always ido-create-new-buffer 'always
@ -204,6 +202,7 @@
ido-max-prospects 10 ido-max-prospects 10
ido-save-directory-list-file (expand-file-name "ido.hist" prelude-savefile-dir) ido-save-directory-list-file (expand-file-name "ido.hist" prelude-savefile-dir)
ido-default-file-method 'selected-window) ido-default-file-method 'selected-window)
(ido-mode +1)
;; auto-completion in minibuffer ;; auto-completion in minibuffer
(icomplete-mode +1) (icomplete-mode +1)
@ -211,9 +210,9 @@
(set-default 'imenu-auto-rescan t) (set-default 'imenu-auto-rescan t)
;; flyspell-mode does spell-checking on the fly as you type ;; flyspell-mode does spell-checking on the fly as you type
(require 'flyspell)
(setq ispell-program-name "aspell" ; use aspell instead of ispell (setq ispell-program-name "aspell" ; use aspell instead of ispell
ispell-extra-args '("--sug-mode=ultra")) ispell-extra-args '("--sug-mode=ultra"))
(autoload 'flyspell-mode "flyspell" "On-the-fly spelling checker." t)
(defun prelude-enable-flyspell () (defun prelude-enable-flyspell ()
(when (and prelude-flyspell (executable-find ispell-program-name)) (when (and prelude-flyspell (executable-find ispell-program-name))
@ -240,6 +239,7 @@
(require 'expand-region) (require 'expand-region)
;; bookmarks ;; bookmarks
(require 'bookmark)
(setq bookmark-default-file (expand-file-name "bookmarks" prelude-savefile-dir) (setq bookmark-default-file (expand-file-name "bookmarks" prelude-savefile-dir)
bookmark-save-flag 1) bookmark-save-flag 1)
@ -285,6 +285,7 @@
(put 'dired-find-alternate-file 'disabled nil) (put 'dired-find-alternate-file 'disabled nil)
;; ediff - don't start another frame ;; ediff - don't start another frame
(require 'ediff)
(setq ediff-window-setup-function 'ediff-setup-windows-plain) (setq ediff-window-setup-function 'ediff-setup-windows-plain)
;; clean up obsolete buffers automatically ;; clean up obsolete buffers automatically
@ -336,6 +337,7 @@ indent yanked text (with prefix arg don't indent)."
'executable-make-buffer-file-executable-if-script-p) 'executable-make-buffer-file-executable-if-script-p)
;; whitespace-mode config ;; whitespace-mode config
(require 'whitespace)
(setq whitespace-line-column 80) ;; limit line length (setq whitespace-line-column 80) ;; limit line length
(setq whitespace-style '(face tabs empty trailing lines-tail)) (setq whitespace-style '(face tabs empty trailing lines-tail))

View file

@ -91,8 +91,6 @@ by Prelude.")
(require 'prelude-osx)) (require 'prelude-osx))
;; the modules ;; the modules
(require 'prelude-programming)
(when (file-exists-p prelude-modules-file) (when (file-exists-p prelude-modules-file)
(load prelude-modules-file)) (load prelude-modules-file))

View file

@ -32,6 +32,8 @@
;;; Code: ;;; Code:
(require 'prelude-programming)
;; use cperl-mode instead of perl-mode ;; use cperl-mode instead of perl-mode
(defalias 'perl-mode 'cperl-mode) (defalias 'perl-mode 'cperl-mode)

View file

@ -32,6 +32,8 @@
;;; Code: ;;; Code:
(require 'nxml-mode)
(push '("<\\?xml" . nxml-mode) magic-mode-alist) (push '("<\\?xml" . nxml-mode) magic-mode-alist)
;; pom files should be treated as xml files ;; pom files should be treated as xml files