Emacs configuration

;; start in read-only mode
(add-hook 'find-file-hook (lambda () (setq buffer-read-only t)))

;; disable splash screen and startup message
(setq inhibit-startup-message t)
(setq initial-scratch-message nil)

;; set up layout
(if window-system
    (setq default-frame-alist
      '((height . 42)
        (width . 90)
        (cursor-type . box)
        (foreground-color . "black")
        (background-color . "#FAF9DE")
        (font . "Consolas-13")
        )))
;; disable cursor blink
(blink-cursor-mode 0)

;; set autoload path
(add-to-list 'load-path "~/.emacs.d/lisp/")

;; use y/n to replace yes/no
(fset 'yes-or-no-p 'y-or-n-p)

;; show line number
(setq column-number-mode t)
(global-linum-mode t)
(setq linum-format "%d ")


;; global keys
(global-set-key (kbd "M-p") (lambda () (interactive) (scroll-down 1)))
(global-set-key (kbd "M-n") (lambda () (interactive) (scroll-up 1)))
(global-set-key (kbd "C-x k") 'kill-this-buffer)

(global-set-key "\C-x2"
(lambda () (interactive)(split-window-vertically) (other-window 1)))
(global-set-key "\C-x3"
(lambda () (interactive)(split-window-horizontally) (other-window 1)))

(global-set-key (kbd "C-x l") 'windmove-left)
(global-set-key (kbd "C-x r") 'windmove-right)
(global-set-key (kbd "C-x u") 'windmove-up)
(global-set-key (kbd "C-x d") 'windmove-down)

(global-set-key (kbd "C-c <left>") 'shrink-window-horizontally)
(global-set-key (kbd "C-c <right>") 'enlarge-window-horizontally)
(global-set-key (kbd "C-c <down>") 'shrink-window)
(global-set-key (kbd "C-c <up>") 'enlarge-window)

(global-set-key (kbd "C-c p") 'previous-buffer)
(global-set-key (kbd "C-c n") 'next-buffer)

;; do not show hidden files
(require 'dired-x)
(setq dired-omit-files "^\\...+$")
(add-hook 'dired-mode-hook (lambda () (dired-omit-mode 1)))

;; do not generate backup file
(setq-default make-backup-files nil)
(setq-default c-basic-offset 4)

;; highlight .pbs using sh mode
(add-to-list 'auto-mode-alist '("\\.pbs\\'" . sh-mode))