;UTF-8 magic (setq locale-coding-system 'utf-8) (set-terminal-coding-system 'utf-8) (set-keyboard-coding-system 'utf-8) (set-selection-coding-system 'utf-8) (prefer-coding-system 'utf-8) ;Simplify the GUI, thanks http://www.masteringemacs.org/articles/2010/10/04/beginners-guide-to-emacs/ (menu-bar-mode -1) (tool-bar-mode -1) (scroll-bar-mode -1) ;Tab settings (setq default-tab-width 4) (define-key text-mode-map (kbd "TAB") 'self-insert-command) ;Fix scrolling (setq scroll-conservatively 1) ;Fix Emacs' definition of a sentence (setq sentence-end-double-space nil) ;Shiny wrap style, thanks Xah Lee (global-visual-line-mode 1) ;Highlight current line and show line numbers (global-hl-line-mode 1) (global-linum-mode 1) ; linum-relative ;(require 'linum-relative) ;(linum-mode 1) ;Custom keys ;(global-set-key (kbd "") 'god-mode-all) (global-set-key (kbd "C-y") 'whole-line-or-region-yank) (global-set-key (kbd "M-w") 'whole-line-or-region-kill-ring-save) (global-set-key (kbd "C-w") 'whole-line-or-region-kill-region) (global-set-key (kbd "C-x C-1") 'delete-other-windows) (global-set-key (kbd "C-x C-2") 'split-window-below) (global-set-key (kbd "C-x C-3") 'split-window-right) (global-set-key (kbd "C-x C-0") 'delete-window) ;(global-set-key (kbd "C-`") 'point-to-register) ;(global-set-key (kbd "C-'") 'jump-to-register) (global-set-key (kbd "C-h") 'backward-delete-char) (global-set-key (kbd "C-c n") 'helm-mini) ;(global-set-key (kbd "C-x") 'backward-kill-word) ;(global-set-key (kbd "C-,") 'string-rectangle 'TAB) (global-unset-key (kbd "C-u")) ;Fix multi-line indenting - thanks forcer! (defun hn/add-tab-in-front-of-every-line-in-region (beg end) (interactive "r") (save-excursion (goto-char beg) (goto-char (point-at-bol)) (while (re-search-forward "^" end t) (insert "\t")))) (global-set-key (kbd "C-.") 'hn/add-tab-in-front-of-every-line-in-region) ;Indicate god-mode with cursor color (defun my-update-cursor () (set-cursor-color (if (or god-local-mode buffer-read-only) "#ffffff" "#ff0000") ) ) (add-hook 'god-mode-enabled-hook 'my-update-cursor) (add-hook 'god-mode-disabled-hook 'my-update-cursor) ; Transparent Emacs window ;;(set-frame-parameter (selected-frame) 'alpha '( [])) (set-frame-parameter (selected-frame) 'alpha '(85 50)) (add-to-list 'default-frame-alist '(alpha 85 50)) (add-to-list 'load-path "~/.emacs.d/elisp/") ;MELPA (require 'package) (add-to-list 'package-archives '("melpa" . "http://melpa.milkbox.net/packages/") t) (require 'package) (add-to-list 'package-archives '("melpa-stable" . "http://melpa-stable.milkbox.net/packages/") t) ;//// //// //// //// //// //// ;//// PACKAGE INITIALIZE //// ;//// //// //// //// //// //// (package-initialize) ; Set theme (load-theme 'distinguished t) ; God Mode ;(require 'god-mode) ; Evil mode (require 'evil) (evil-mode 1) ; Ace Jump mode ;(require 'ace-jump-mode) ;(define-key global-map (kbd "C-c SPC") 'ace-jump-mode) ; Emms (add-to-list 'load-path "~/elisp/emms/") (require 'emms-setup) (emms-standard) (emms-default-players) ;Enable Ido mode (require 'ido) (ido-mode t) ;(global-set-key (kbd "DEL") 'ido-delete-backward-updir) (define-key ido-buffer-completion-map (kbd "C-h") 'ido-delete-backward-updir) (setq ido-enable-flex-matching t) ;Ido-ubiquitous ;(require 'ido-ubiquitous) ;(ido-ubiquitous-mode 1) ; Helm ;(require 'helm-config) ;(helm-mode 1) ; zlc ;(require 'zlc) ;(zlc-mode t) ; smex - Ido for Alt-x (M-x) (require 'smex) (smex-initialize) (global-set-key (kbd "M-x") 'smex) ; Session.el (require 'session) (add-hook 'after-init-hook 'session-initialize) ; Recentf-mode (require 'recentf) (recentf-mode 1) (setq recentf-max-menu-items 25) (global-set-key "\C-x\ \C-r" 'recentf-open-files) ; text size change (set-face-attribute 'default nil :font "-outline-Bitstream Vera Sans Mono-normal-normal-normal-mono-12-*-*-*-c-*-iso8859-1") ; Ediff stuff (setq ediff-window-setup-function 'ediff-setup-windows-plain) ; ERC ;(setq erc-log-channels-directory "~/.emacs.d/erc/logs/") ;(setq erc-log-write-after-insert t) ; yafolding.el (add-hook 'prog-mode-hook (lambda () (yafolding-mode))) ;Here be customize dragons (custom-set-variables ;; custom-set-variables was added by Custom. ;; If you edit it by hand, you could mess it up, so be careful. ;; Your init file should contain only one such instance. ;; If there is more than one, they won't work right. '(custom-safe-themes (quote ("1011be33e9843afd22d8d26b031fbbb59036b1ce537d0b250347c19e1bd959d0" "784d5ee4d33befba6a21702ead67f98346770be7cc17ab64952ae3866a403743" "930a202ae41cb4417a89bc3a6f969ebb7fcea5ffa9df6e7313df4f7a2a631434" "0e121ff9bef6937edad8dfcff7d88ac9219b5b4f1570fd1702e546a80dba0832" "442c946bc5c40902e11b0a56bd12edc4d00d7e1c982233545979968e02deb2bc" "e16a771a13a202ee6e276d06098bc77f008b73bbac4d526f160faa2d76c1dd0e" "9eb5269753c507a2b48d74228b32dcfbb3d1dbfd30c66c0efed8218d28b8f0dc" "c4e6fe8f5728a5d5fd0e92538f68c3b4e8b218bcfb5e07d8afff8731cc5f3df0" "c739f435660ca9d9e77312cbb878d5d7fd31e386a7758c982fa54a49ffd47f6e" "97a2b10275e3e5c67f46ddaac0ec7969aeb35068c03ec4157cf4887c401e74b1" "024b0033a950d6a40bbbf2b1604075e6c457d40de0b52debe3ae994f88c09a4a" default))) '(debug-on-error nil) '(erc-fill-mode nil) '(erc-generate-log-file-name-function (quote erc-generate-log-file-name-network)) '(erc-log-channels-directory "~/.emacs.d/erc/logs/") '(erc-log-mode t) '(erc-log-write-after-insert t) '(erc-modules (quote (autojoin completion list log menu ring stamp ercn netsplit fill button match track readonly networks autojoin noncommands irccontrols move-to-prompt stamp))) '(erc-nick (quote ("HisaoNakai" "[Batou]" "[Togusa]" "[2501]"))) '(erc-stamp-mode t) '(erc-timestamp-format-left " [%Y %m %e %T %N] ") '(erc-timestamp-format-right nil) '(session-registers (quote (t 45 61 92 96 region (97 . 122)))) '(session-use-package t nil (session))) (custom-set-faces ;; custom-set-faces was added by Custom. ;; If you edit it by hand, you could mess it up, so be careful. ;; Your init file should contain only one such instance. ;; If there is more than one, they won't work right. )