From 4bcfb672357b5840249c72b28cb860001c4e3967 Mon Sep 17 00:00:00 2001
From: Kyle Meyer <kyle@kyleam.com>
Date: Sun, 26 Jan 2014 02:00:22 -0500
Subject: Reorganize and use require-package

`require-package' is from
https://github.com/purcell/emacs.d/blob/master/lisp/init-elpa.el.
---
 lisp/init-general.el | 72 +++++++++++++---------------------------------------
 1 file changed, 18 insertions(+), 54 deletions(-)

(limited to 'lisp/init-general.el')

diff --git a/lisp/init-general.el b/lisp/init-general.el
index 04541b1..8fedfd8 100644
--- a/lisp/init-general.el
+++ b/lisp/init-general.el
@@ -1,75 +1,40 @@
-(setq default-frame-alist '((font . "Droid Sans Mono-9")))
-
-(setq inhibit-splash-screen t
-      initial-scratch-message nil)
-
-(scroll-bar-mode -1)
-(tool-bar-mode -1)
-(menu-bar-mode -1)
+(setq echo-keystrokes 0.1
+      use-dialog-box nil
+      visible-bell t
+      shell-command-switch "-ic"
+      x-select-enable-clipboard t ; Share clipboard with system.
+      x-select-enable-primary t
+      ispell-program-name "aspell"
+      whitespace-style '(spaces tabs newline space-mark tab-mark newline-mark)
+      tramp-default-method "ssh"
+      sentence-end-double-space nil
+      browse-url-browser-function 'browse-url-generic
+      browse-url-generic-program "chromium")
 
 (setq-default indicate-empty-lines t)
-(when (not indicate-empty-lines)
-  (toggle-indicate-empty-lines))
 
-(setq echo-keystrokes 0.1
-      use-dialog-box nil
-      visible-bell t)
 (show-paren-mode t)
 
 (defalias 'yes-or-no-p 'y-or-n-p)
 
-;; Line info
-(line-number-mode t)
-(column-number-mode t)
-(size-indication-mode t)
-
 ;; Set location of custom.el.
 (setq custom-file "~/.emacs.d/custom.el")
 (load custom-file)
 
 ;; Store all backup and autosave files in tmp dir.
-(setq backup-directory-alist
-      `((".*" . ,temporary-file-directory)))
-(setq auto-save-file-name-transforms
-      `((".*" ,temporary-file-directory t)))
+(setq backup-directory-alist `((".*" . ,temporary-file-directory))
+      auto-save-file-name-transforms `((".*" ,temporary-file-directory t)))
 
-;; Revert buffers automatically when underlying files are changed
-;; externally.
 (global-auto-revert-mode t)
 
-;; Tramp
-(require 'tramp)
-(setq tramp-default-method "ssh")
-
-(setq browse-url-browser-function 'browse-url-generic
-          browse-url-generic-program "chromium")
-
-(setq x-select-enable-primary t)
-
 ;; Make scripts executable at save.
 (add-hook 'after-save-hook
   'executable-make-buffer-file-executable-if-script-p)
 
-(setq-default fill-column 72)
-(add-hook 'text-mode-hook 'turn-on-auto-fill)
-
-;; Make whitespace-mode use just basic coloring.
-;; http://ergoemacs.org/emacs/whitespace-mode.html
-(setq whitespace-style (quote
-                        (spaces tabs newline space-mark
-                                tab-mark newline-mark)))
-
 (transient-mark-mode -1)
 
-;; Share clipboard with system.
-(setq x-select-enable-clipboard t)
-
-(blink-cursor-mode -1)
-
 (put 'narrow-to-region 'disabled nil)
 
-(setq ispell-program-name "aspell")
-
 (global-set-key (kbd "M-/") 'hippie-expand)
 ;; http://www.emacswiki.org/emacs/HippieExpand#toc9
 (defadvice he-substitute-string (after he-paredit-fix activate)
@@ -77,18 +42,17 @@
   (if (and paredit-mode (equal (substring str -1) ")"))
       (progn (backward-delete-char 1) (forward-char))))
 
-(setq sentence-end-double-space nil)
-
-(eval-after-load "view"
+(eval-after-load 'view
   '(progn
      (define-key view-mode-map "l" 'recenter-top-bottom)
      (define-key view-mode-map "a" 'ace-jump-mode)))
 
-(setq shell-command-switch "-ic")
-
 ;; http://irreal.org/blog/?p=1536
 (autoload 'zap-up-to-char "misc"
   "Kill up to, but not including ARGth occurrence of CHAR.")
 (global-set-key (kbd "M-z") 'zap-up-to-char)
 
+(require-package 'key-chord)
+(key-chord-mode 1)
+
 (provide 'init-general)
-- 
cgit v1.2.3