Add utils.

Author: HairyRabbit

Cask

@@ -1,3 +1,5 @@
+;;-*- mode: emacs-lisp -*-
+
 (package "rabbitmacs" "0.0.1" "Rabbit personal emacs config.")
 
 (source "gnu" "http://elpa.emacs-china.org/gnu/")
@@ -14,6 +16,19 @@
 (depends-on "nyan-mode")
 (depends-on "ido-vertical-mode")
 
+
+
+;; chinese
+(depends-on "chinese-pyim")
+(depends-on "pangu-spacing")
+
+
+
+;; AutoHotKey script.
+(depends-on "ahk-mode")
+(depends-on "js2-mode")
+
+
 ;; (depends-on "bind-key")
 ;; (depends-on "cask")
 ;; (depends-on "dash")

src/rabbit-chinese.el

@@ -0,0 +1,15 @@
+(defun rabbit/chinese ()
+  ""
+  
+  (require 'chinese-pyim)
+  (require 'chinese-pyim-basedict)
+  (chinese-pyim-basedict-enable)
+  (setq-default default-input-method "chinese-pyim")
+
+  ;; chinese space
+  (require 'pangu-spacing)
+  (global-pangu-spacing-mode 1)
+  )
+
+
+(provide 'rabbit-chinese)

src/rabbit-core.el

@@ -1,5 +1,7 @@
 (provide 'rabbit-core)
 
-(require 'rabbit-default)
-(require 'rabbit-face)
-(require 'rabbit-edit)
+(require 'rabbit-util)
+
+(import 'rabbit-default)
+(import 'rabbit-face)
+(import 'rabbit-edit)

src/rabbit-default.el

@@ -1,12 +1,15 @@
-;; Auto revert
-(global-auto-revert-mode 1)
+(provide 'rabbit-default)
 
-;; Disable foo~ file
-(setq make-backup-files nil)
+(defun rabbit/default ()
+  ;; Auto revert
+  (global-auto-revert-mode 1)
 
-;; Disable auto save
-;;(setq auto-save-default nil)
+  ;; Disable foo~ file
+  (setq make-backup-files nil)
+
+  ;; Disable auto save
+  ;;(setq auto-save-default nil)
+
+  (fset 'yes-or-no-p 'y-or-n-p))
 
-(fset 'yes-or-no-p 'y-or-n-p)
 
-(provide 'rabbit-default)

src/rabbit-edit.el

@@ -1,15 +1,14 @@
-(require 'rabbit-region)
-(require 'rabbit-parens)
-(require 'rabbit-utf8)
+(provide 'rabbit-edit)
 
 
 (defun rabbit/edit ()
   ""
-  (rabbit/marker)
-  (rabbit/parens))
 
-(rabbit/edit)
+  (import 'rabbit-region)
+  (import 'rabbit-parens)
+  (import 'rabbit-utf8)
+  (import 'rabbit-chinese)
 
+  )
 
 
-(provide 'rabbit-edit)

src/rabbit-face.el

@@ -1,10 +1,10 @@
 (provide 'rabbit-face)
 
-(require 'rabbit-modeline)
-(require 'rabbit-ido)
 
 (defun rabbit/clear-face ()
   "Clear default emacs face."
+
+  (require 'rabbit-modeline)
 
   ;; No tool bar
   (tool-bar-mode 0)
@@ -16,11 +16,8 @@
 
 
 
-(defun main ()
+(defun rabbit/face ()
   (rabbit/clear-face)
   ;;(rabbit/modeline)
-  (rabbit/ido)
+  (import 'rabbit-ido)
   )
-
-
-(main)

src/rabbit-modeline.el

@@ -1,3 +1,5 @@
+
+
 (defun rabbit/modeline-buffer-name ()
   ""
   (propertize " %b " 'face '((:foreground "black") (:background "lightgray")))

src/rabbit-region.el

@@ -1,6 +1,6 @@
 (provide 'rabbit-region)
 
-(defun rabbit/marker ()
+(defun rabbit/region ()
   ""
   (global-set-key (kbd "C-<") 'mc/mark-previous-like-this)
   (global-set-key (kbd "C->") 'mc/mark-next-like-this)

src/rabbit-utf8.el

@@ -1,7 +1,9 @@
+
 (provide 'rabbit-utf8)
 
+
 (defun rabbit/utf8 ()
   ""
   (prefer-coding-system 'utf-8)
-  (set-buffer-file-coding-system 'utf-8)
-  (setq file-name-coding-system 'utf-8))
+  ;;(set-buffer-file-coding-system 'utf-8)
+  (setq-default file-name-coding-system 'utf-8))

src/rabbit-util.el

@@ -0,0 +1,11 @@
+(provide 'rabbit-util)
+
+(require 's)
+
+(defmacro import (require-name)
+  ""
+  (let* ((name (symbol-name (cadr require-name)))
+	 (fx-name (intern (s-replace "-" "/" name))))
+    (list 'progn
+	  (list 'require require-name)
+	  (list fx-name))))