* .emacs.d/init.el: Small cleanups.

diff --git a/.emacs.d/init.el b/.emacs.d/init.el
index 459dbe8..ce05ab4 100644 (file)
--- a/.emacs.d/init.el
+++ b/.emacs.d/init.el
@@ -194,24 +194,16 @@
 
 (setq
  ;; line-spacing 3
 
 (setq
  ;; line-spacing 3

- ;; completion case sensitivity

  completion-ignore-case t
  read-buffer-completion-ignore-case t
  completion-ignore-case t
  read-buffer-completion-ignore-case t

- ;; minibuffer

  enable-recursive-minibuffers t
  resize-mini-windows t
  enable-recursive-minibuffers t
  resize-mini-windows t

- ;; mode-line

  mode-line-compact t
  mode-line-compact t

+ ;; mouse-autoselect-window t
+ scroll-preserve-screen-position 1

  ;; i don't feel like jumping out of my chair every now and again;
  ;; so...don't *BEEP* at me, emacs =)
  ;; i don't feel like jumping out of my chair every now and again;
  ;; so...don't *BEEP* at me, emacs =)

- ring-bell-function 'ignore
- ;; better scrolling
- ;; scroll-conservatively 101
- scroll-conservatively 15
- ;; scroll-preserve-screen-position 1
- ;; focus follows mouse
- ;; mouse-autoselect-window t
- )
+ ring-bell-function 'ignore)

 
 (setq-default
  ;; case-sensitive search (and `dabbrev-expand')
 
 (setq-default
  ;; case-sensitive search (and `dabbrev-expand')


@@ -432,20 +424,11 @@
 ;; faces
 (when (display-graphic-p)
   (with-eval-after-load 'faces
 ;; faces
 (when (display-graphic-p)
   (with-eval-after-load 'faces

-    (let* ((grey "#e7e7e7")
-           ;; (darker-grey "#d9d9d9")
-           ;; (box ;; 'unspecified
-           ;;      `(;; :line-width -1
-           ;;        :style released-button))
-           )
-      ;; (set-face-attribute 'fixed-pitch nil :family "Source Code Pro")
-      (set-face-attribute 'fixed-pitch nil :family "Inconsolata")
+    (let ((grey "#e7e7e7"))
+      (set-face-attribute 'fixed-pitch nil :family "Source Code Pro")

       (set-face-attribute 'mode-line nil
       (set-face-attribute 'mode-line nil

-                          :background grey ;; :box box
-                          :inherit 'fixed-pitch)
-      ;; (set-face-attribute 'mode-line-inactive nil
-      ;;                     :background darker-grey :box box)
-      )))
+                          :background grey
+                          :inherit 'fixed-pitch))))

 
 \f
 ;;; Useful utilities
 
 \f
 ;;; Useful utilities