add

Author: 梁俊杰

.gitignore

@@ -1,5 +1,8 @@
 ## autogenerated files
 .starter-kit-*.part.*.org
+bookmarks
+recentf
+smex-items
 
 ## misc
 loaddefs.el*
@@ -25,7 +28,6 @@ url/*
 
 ## exported and encrypted files
 *gpg
-*el
 *elc
 *html
 *tex

starter-kit-bindings.el

@@ -0,0 +1,47 @@
+
+(global-set-key (kbd "C-M-h") 'backward-kill-word)
+
+(global-set-key (kbd "C-x \\") 'align-regexp)
+
+(global-set-key (kbd "M-/") 'hippie-expand)
+
+(global-set-key [f1] 'menu-bar-mode)
+
+(define-key global-map (kbd "C-+") 'text-scale-increase)
+(define-key global-map (kbd "C--") 'text-scale-decrease)
+
+(global-set-key (kbd "C-s") 'isearch-forward-regexp)
+(global-set-key (kbd "\C-r") 'isearch-backward-regexp)
+(global-set-key (kbd "C-M-s") 'isearch-forward)
+(global-set-key (kbd "C-M-r") 'isearch-backward)
+
+(global-set-key (kbd "C-x M-f") 'ido-find-file-other-window)
+(global-set-key (kbd "C-x C-p") 'find-file-at-point)
+(global-set-key (kbd "C-c y") 'bury-buffer)
+(global-set-key (kbd "C-c r") 'revert-buffer)
+(global-set-key (kbd "M-`") 'file-cache-minibuffer-complete)
+(global-set-key (kbd "C-x C-b") 'ibuffer)
+(global-set-key (kbd "C-x f") 'recentf-ido-find-file)
+
+(windmove-default-keybindings) ;; Shift+direction
+(global-set-key (kbd "C-x O") (lambda () (interactive) (other-window -1))) ;; back one
+(global-set-key (kbd "C-x C-o") (lambda () (interactive) (other-window 2))) ;; forward two
+
+(global-set-key (kbd "C-x ^") 'join-line)
+
+(global-set-key (kbd "C-x C-m") 'execute-extended-command)
+
+(global-set-key (kbd "C-h a") 'apropos)
+
+(define-key isearch-mode-map (kbd "C-o")
+  (lambda () (interactive)
+    (let ((case-fold-search isearch-case-fold-search))
+      (occur (if isearch-regexp
+                 isearch-string
+               (regexp-quote isearch-string))))))
+
+(define-key global-map "\C-ca" 'org-agenda)
+
+(define-key global-map "\C-cl" 'org-store-link)
+
+(define-key global-map "\C-x\C-r" 'rgrep)

starter-kit-defuns.el

@@ -0,0 +1,44 @@
+
+(defun starter-kit-local-column-number-mode ()
+  (make-local-variable 'column-number-mode)
+  (column-number-mode t))
+
+(defun starter-kit-local-comment-auto-fill ()
+  (set (make-local-variable 'comment-auto-fill-only-comments) t)
+  (auto-fill-mode t))
+
+(defun starter-kit-turn-on-save-place-mode ()
+  (setq save-place t))
+
+(defun starter-kit-turn-on-whitespace ()
+  (whitespace-mode t))
+
+(add-hook 'starter-kit-coding-hook 'starter-kit-local-column-number-mode)
+
+(add-hook 'starter-kit-coding-hook 'starter-kit-local-comment-auto-fill)
+
+(when (window-system)
+  (add-hook 'starter-kit-coding-hook 'starter-kit-pretty-lambdas))
+
+(defun run-starter-kit-coding-hook ()
+  "Enable things that are convenient across all coding buffers."
+  (run-hooks 'starter-kit-coding-hook))
+
+(defun recentf-ido-find-file () 
+  "Find a recent file using Ido." 
+  (interactive) 
+  (let* ((file-assoc-list 
+          (mapcar (lambda (x) 
+                    (cons (file-name-nondirectory x) 
+                          x)) 
+                  recentf-list)) 
+         (filename-list 
+          (remove-duplicates (mapcar #'car file-assoc-list) 
+                             :test #'string=)) 
+         (filename (ido-completing-read "Choose recent file: " 
+                                        filename-list 
+                                        nil 
+                                        t))) 
+    (when filename 
+      (find-file (cdr (assoc filename 
+                             file-assoc-list))))))

starter-kit-misc.el

@@ -0,0 +1,83 @@
+
+(starter-kit-install-if-needed 'magit)
+
+(when window-system
+  (setq frame-title-format '(buffer-file-name "%f" ("%b")))
+  (blink-cursor-mode -1)
+  (when (require 'mwheel nil 'no-error) (mouse-wheel-mode t)))
+
+(set-terminal-coding-system 'utf-8)
+(set-keyboard-coding-system 'utf-8)
+(prefer-coding-system 'utf-8)
+
+(setq visible-bell t
+      echo-keystrokes 0.1
+      font-lock-maximum-decoration t
+      inhibit-startup-message t
+      transient-mark-mode t
+      color-theme-is-global t
+      delete-by-moving-to-trash t
+      shift-select-mode nil
+      truncate-partial-width-windows nil
+      uniquify-buffer-name-style 'forward
+      whitespace-style '(trailing lines space-before-tab
+                                  indentation space-after-tab)
+      whitespace-line-column 100
+      ediff-window-setup-function 'ediff-setup-windows-plain
+      oddmuse-directory (concat starter-kit-dir "oddmuse")
+      xterm-mouse-mode t
+      save-place-file (concat starter-kit-dir "places"))
+
+(auto-compression-mode t)
+
+(show-paren-mode 1)
+
+(when (> emacs-major-version 21)
+  (ido-mode t)
+  (setq ido-enable-prefix nil
+        ido-enable-flex-matching t
+        ido-create-new-buffer 'always
+        ido-use-filename-at-point t
+        ido-max-prospects 10))
+
+(set-default 'indent-tabs-mode nil)
+(set-default 'indicate-empty-lines t)
+(set-default 'imenu-auto-rescan t)
+
+(add-hook 'text-mode-hook 'turn-on-auto-fill)
+(eval-after-load "ispell"
+  '(when (executable-find ispell-program-name)
+     (add-hook 'text-mode-hook 'turn-on-flyspell)))
+
+(defvar starter-kit-coding-hook nil
+  "Hook that gets run on activation of any programming mode.")
+
+(defalias 'yes-or-no-p 'y-or-n-p)
+;; Seed the random-number generator
+(random t)
+
+(defun starter-kit-pretty-lambdas ()
+  (font-lock-add-keywords
+   nil `(("(\\(lambda\\>\\)"
+          (0 (progn (compose-region (match-beginning 1) (match-end 1)
+                                    ,(make-char 'greek-iso8859-7 107))
+                    nil))))))
+
+(when (boundp 'hippie-expand-try-functions-list)
+  (delete 'try-expand-line hippie-expand-try-functions-list)
+  (delete 'try-expand-list hippie-expand-try-functions-list))
+
+(setq backup-directory-alist `(("." . ,(expand-file-name
+                                        (concat starter-kit-dir "backups")))))
+
+(setq diff-switches "-u")
+
+(eval-after-load 'diff-mode
+  '(progn
+     (set-face-foreground 'diff-added "green4")
+     (set-face-foreground 'diff-removed "red3")))
+
+(eval-after-load 'magit
+  '(progn
+     (set-face-foreground 'magit-diff-add "green3")
+     (set-face-foreground 'magit-diff-del "red3")))

starter-kit-registers.el

@@ -0,0 +1,14 @@
+
+(dolist
+    (r `((?i (file . ,(concat starter-kit-dir "init.el")))
+         (?I (file . ,(let* ((user user-login-name)
+                             (org (expand-file-name (concat user ".org") starter-kit-dir))
+                             (el  (expand-file-name (concat user ".el") starter-kit-dir))
+                             (dir (expand-file-name user starter-kit-dir)))
+                        (cond
+                         ((file-exists-p org) org)
+                         ((file-exists-p el)  el)
+                         (t dir)))))
+         (?s (file . ,(concat starter-kit-dir "starter-kit.org")))
+         (?r (file . ,(concat starter-kit-dir "starter-kit-registers.org")))))
+  (set-register (car r) (cadr r)))

starter-kit.el

@@ -0,0 +1,140 @@
+
+(let ((elisp-dir (expand-file-name "src" starter-kit-dir)))
+  ;; add the src directory to the load path
+  (add-to-list 'load-path elisp-dir)
+  ;; load specific files
+  (when (file-exists-p elisp-dir)
+    (let ((default-directory elisp-dir))
+      (normal-top-level-add-subdirs-to-load-path))))
+(setq autoload-file (concat starter-kit-dir "loaddefs.el"))
+(setq package-user-dir (concat starter-kit-dir "elpa"))
+(setq custom-file (concat starter-kit-dir "custom.el"))
+
+(require 'cl)
+(require 'cl-lib)
+(require 'saveplace)
+(require 'ffap)
+(require 'uniquify)
+(require 'ansi-color)
+(require 'recentf)
+
+(defun starter-kit-loadable-p (package)
+  "Check if PACKAGE is loadable from a directory in `load-path'."
+  (let ((load-file (concat (symbol-name package) ".el")))
+    (catch 'file-found
+      (dolist (dir load-path)
+        (let ((path (expand-file-name load-file dir)))
+          (when (file-exists-p path)
+            (throw 'file-found path)))))))
+
+(setq package-archives
+      '(("gnu"         . "http://elpa.gnu.org/packages/")
+        ("org"         . "http://orgmode.org/elpa/")
+        ("melpa"       . "http://melpa.org/packages/")
+        ("marmalade"   . "http://marmalade-repo.org/packages/")))
+(package-initialize)
+
+(defvar starter-kit-packages nil
+  "Libraries that should be installed by default (currently none).")
+
+(defun starter-kit-install-if-needed (&rest packages)
+  "Install PACKAGES using ELPA if they are not loadable or installed locally."
+  (when packages
+    (unless package-archive-contents
+      (package-refresh-contents))
+    (dolist (package packages)
+      (unless (or (starter-kit-loadable-p package)
+                  (package-installed-p package))
+        (package-install package)))))
+
+(defun starter-kit-load (file &optional header-or-tag)
+  "Load configuration from other starter-kit-*.org files.
+If the optional argument is the id of a subtree then only
+configuration from within that subtree will be loaded.  If it is
+not an id then it will be interpreted as a tag, and only subtrees
+marked with the given tag will be loaded.
+
+For example, to load all of starter-kit-lisp.org simply
+add (starter-kit-load \"lisp\") to your configuration.
+
+To load only the 'window-system' config from
+starter-kit-misc-recommended.org add
+ (starter-kit-load \"misc-recommended\" \"window-system\")
+to your configuration."
+  (let ((file (expand-file-name (if (string-match "starter-kit-.+\.org" file)
+                                    file
+                                  (format "starter-kit-%s.org" file))
+                                starter-kit-dir)))
+    (org-babel-load-file
+     (if header-or-tag
+         (let* ((base (file-name-nondirectory file))
+                (dir  (file-name-directory file))
+                (partial-file (expand-file-name
+                               (concat "." (file-name-sans-extension base)
+                                       ".part." header-or-tag ".org")
+                               dir)))
+           (unless (file-exists-p partial-file)
+             (with-temp-file partial-file
+               (insert
+                (with-temp-buffer
+                  (insert-file-contents file)
+                  (save-excursion
+                    (condition-case nil ;; collect as a header
+                        (progn
+                          (org-link-search (concat"#"header-or-tag))
+                          (org-narrow-to-subtree)
+                          (buffer-string))
+                      (error ;; collect all entries with as tags
+                       (let (body)
+                         (org-map-entries
+                          (lambda ()
+                            (save-restriction
+                              (org-narrow-to-subtree)
+                              (setq body (concat body "\n" (buffer-string)))))
+                          header-or-tag)
+                         body))))))))
+           partial-file)
+       file))))
+
+(if (or
+    (eq system-type 'darwin)
+    (eq system-type 'berkeley-unix))
+    (setq system-name (car (split-string system-name "\\."))))
+
+(starter-kit-load "starter-kit-defuns.org")
+
+(starter-kit-load "starter-kit-bindings.org")
+
+(starter-kit-load "starter-kit-misc.org")
+
+(starter-kit-load "starter-kit-registers.org")
+
+(cl-flet ((sk-load (base)
+         (let* ((path          (expand-file-name base starter-kit-dir))
+                (literate      (concat path ".org"))
+                (encrypted-org (concat path ".org.gpg"))
+                (plain         (concat path ".el"))
+                (encrypted-el  (concat path ".el.gpg")))
+           (cond
+            ((file-exists-p encrypted-org) (org-babel-load-file encrypted-org))
+            ((file-exists-p encrypted-el)  (load encrypted-el))
+            ((file-exists-p literate)      (org-babel-load-file literate))
+            ((file-exists-p plain)         (load plain)))))
+       (remove-extension (name)
+         (string-match "\\(.*?\\)\.\\(org\\(\\.el\\)?\\|el\\)\\(\\.gpg\\)?$" name)
+         (match-string 1 name)))
+  (let ((user-dir (expand-file-name user-login-name starter-kit-dir)))
+    ;; load system-specific config
+    (sk-load system-name)
+    ;; load user-specific config
+    (sk-load user-login-name)
+    ;; load any files in the user's directory
+    (when (file-exists-p user-dir)
+      (add-to-list 'load-path user-dir)
+      (mapc #'sk-load
+            (remove-duplicates
+             (mapcar #'remove-extension
+                     (directory-files user-dir t ".*\.\\(org\\|el\\)\\(\\.gpg\\)?$"))
+             :test #'string=)))))
+
+(load custom-file 'noerror)