feat: add init-local mechainics

Author: coldnight

.gitignore

@@ -80,4 +80,5 @@ el-get/
 /workspace/
 /projects
 /data/autosave
-/librime/
+/librime/
+/lisp/init-local*

init.el

@@ -45,6 +45,7 @@
 
 
 ;;; Common
+(use-package init-local-early)
 (use-package init-common)
 (use-package init-my
   :bind
@@ -311,6 +312,7 @@
 (use-package init-optional)
 (use-package init-mu4e :commands mu4e)
 (use-package init-writing)
+(use-package init-local)
 
 (message "*** Emacs loaded in %s with %d garbage collections."
          (format "%.2f seconds"

lisp/init-common.el

@@ -105,7 +105,7 @@
 
 (when window-system
   (set-frame-position (selected-frame) 0 0)
-  (set-frame-size (selected-frame) 210 60))
+  (set-frame-size (selected-frame) lo-frame-width lo-frame-height))
 
 (provide 'init-common)
 ;;; init-common.el ends here

lisp/init-local-early.el

@@ -0,0 +1,24 @@
+;;; init-local-early --- A place to write local configurations.
+;;;
+;;; Commentary:
+;;;
+;;; Which means this file is ignored by .gitignore, any changes won't
+;;; commit to the repository.
+;;; Code:
+
+(defgroup lo nil
+  "Configurations of local."
+  :group 'convenience)
+
+(defcustom lo-frame-width
+  204
+  "Local frame width."
+  :type '(integer))
+
+(defcustom lo-frame-height
+  58
+  "Local frame height."
+  :type '(integer))
+
+(provide 'init-local-early)
+;;; init-local-early.el ends here.

lisp/init-local.el

@@ -0,0 +1,11 @@
+;;; init-local --- A place to write local configurations.
+;;;
+;;; Commentary:
+;;;
+;;; Which means this file is ignored by .gitignore, any changes won't
+;;; commit to the repository.
+;;; Code:
+
+
+(provide 'init-local)
+;;; init-local.el ends here.