2012-12-18 05:48:12 +00:00
|
|
|
(require 'cl)
|
|
|
|
|
|
|
|
|
|
(defvar user-home-directory
|
|
|
|
|
(expand-file-name (concat user-emacs-directory "../"))
|
|
|
|
|
"The user's home directory.")
|
|
|
|
|
|
|
|
|
|
(defvar user-projects-dir
|
|
|
|
|
(expand-file-name (concat user-home-directory "Projects/"))
|
|
|
|
|
"The directory containing the user's checked out source code.")
|
|
|
|
|
|
|
|
|
|
(defvar user-dropbox-directory
|
|
|
|
|
(expand-file-name (concat user-home-directory "Dropbox/"))
|
|
|
|
|
"The user's Dropbox root directory.")
|
|
|
|
|
|
|
|
|
|
(add-to-list 'load-path user-emacs-directory)
|
|
|
|
|
|
|
|
|
|
(require 'my-funcs)
|
|
|
|
|
|
2012-12-18 22:24:55 +00:00
|
|
|
;;font size
|
|
|
|
|
(set-face-attribute 'default nil :height 110)
|
2012-12-18 05:48:12 +00:00
|
|
|
;;number colon mode
|
|
|
|
|
(global-linum-mode t)
|
|
|
|
|
;;no tool bar
|
2012-12-18 22:24:55 +00:00
|
|
|
(tool-bar-mode -1)
|
|
|
|
|
(menu-bar-mode -1)
|
|
|
|
|
(scroll-bar-mode -1)
|
|
|
|
|
(fringe-mode 0)
|
|
|
|
|
;;tool tips in echo area
|
|
|
|
|
(tooltip-mode -1)
|
|
|
|
|
(setq tooltip-use-echo-area t)
|
2012-12-18 05:48:12 +00:00
|
|
|
;; whitespace-mode
|
|
|
|
|
(setq-default show-trailing-whitespace t)
|
|
|
|
|
;; Inhibit startup message
|
2012-12-18 22:24:55 +00:00
|
|
|
(setq inhibit-startup-message t
|
|
|
|
|
inhibit-startup-echo-area-message t)
|
|
|
|
|
(setq initial-scratch-message "")
|
2012-12-18 05:48:12 +00:00
|
|
|
;; Cursor, please do not blink
|
|
|
|
|
(blink-cursor-mode nil)
|
|
|
|
|
;; Do not make backup files
|
|
|
|
|
(setq make-backup-files nil)
|
|
|
|
|
;; When emacs asks for "yes" or "no", let "y" or "n" sufficide
|
|
|
|
|
(fset 'yes-or-no-p 'y-or-n-p)
|
|
|
|
|
;; Show column number in mode line
|
|
|
|
|
(setq column-number-mode t)
|
|
|
|
|
;; When point is on paranthesis, highlight the matching one
|
|
|
|
|
(show-paren-mode t)
|
|
|
|
|
;; auto-save
|
|
|
|
|
(add-hook 'before-save-hook (lambda () (delete-trailing-whitespace)))
|
2012-12-18 22:24:55 +00:00
|
|
|
(setq redisplay-dont-pause t)
|
2012-12-18 05:48:12 +00:00
|
|
|
|
|
|
|
|
;; Config files
|
|
|
|
|
(progn
|
|
|
|
|
(setq user-emacs-config-dir (concat user-emacs-directory "config/"))
|
|
|
|
|
(when (file-exists-p user-emacs-config-dir)
|
|
|
|
|
(dolist (l (directory-files user-emacs-config-dir nil "^[^#].*el$"))
|
|
|
|
|
(load (concat user-emacs-config-dir l)))))
|
|
|
|
|
|
|
|
|
|
(require 'my-packages)
|
|
|
|
|
(require 'my-keybindings)
|
