emacs.el

;; Added by Package.el.  This must come before configurations of
;; installed packages.  Don't delete this line.  If you don't want it,
;; just comment it out by adding a semicolon to the start of the line.
;; You may delete these explanatory comments.
(package-initialize)

(global-font-lock-mode 't)
(transient-mark-mode 't)
(which-function-mode 't)
(cua-selection-mode 't)
(winner-mode 't)
(put 'narrow-to-region 'disabled nil)
(server-start)

(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.
 '(ansi-color-names-vector
   ["#212526" "#ff4b4b" "#b4fa70" "#fce94f" "#729fcf" "#ad7fa8" "#8cc4ff" "#eeeeec"])
 '(column-number-mode t)
 '(cua-mode t nil (cua-base))
 '(custom-enabled-themes '(wombat))
 '(debian-changelog-allowed-distributions
   '("UNRELEASED" "unstable" "testing" "testing-security" "stable" "stable-security" "oldstable-security" "experimental"))
 '(display-battery-mode t)
 '(display-time-24hr-format t)
 '(display-time-mode t)
 '(focus-follows-mouse t)
 '(indent-tabs-mode nil)
 '(indicate-buffer-boundaries 'left)
 '(indicate-empty-lines t)
 '(inhibit-startup-screen t)
 '(kill-do-not-save-duplicates t)
 '(mouse-sel-mode t)
 '(mouse-yank-at-point nil)
 '(safe-local-variable-values '((eval table-recognize) (truncate-lines . true)))
 '(save-interprogram-paste-before-kill t)
 '(save-place t nil (saveplace))
 '(scroll-bar-mode 'right)
 '(select-enable-primary t)
 '(send-mail-function 'sendmail-send-it)
 '(show-paren-mode t)
 '(size-indication-mode t)
 '(text-mode-hook '(turn-on-auto-fill text-mode-hook-identify))
 '(tool-bar-mode nil)
 '(tramp-shell-prompt-pattern
   "\\(?:^\\|
\\)[^#$%>→
]*#?[#$%>→] *\\(\\[[0-9;]*[a-zA-Z] *\\)*")
 '(uniquify-buffer-name-style 'forward nil (uniquify))
 '(xterm-mouse-mode t))

; Restore interprogram-{cut,paste}-function's values because
; mouse-sel-mode resets it to nil and while I want most of
; mouse-sel-mode's feature, but IMHO resetting these is annoying.
;(setq interprogram-cut-function 'x-set-cut-buffer)

; Markdown Mode for .md files
(autoload 'markdown-mode "markdown-mode.el"
   "Major mode for editing Markdown files" t)
(setq auto-mode-alist
      (append
       (list
        '("\\.md" . markdown-mode)
        '("\\.mdwn" . markdown-mode)
        '("\\.markdown" . markdown-mode)
        '("\\.mdt" . markdown-mode))
       auto-mode-alist))

; Tell mmm-mode about Embperl
(mmm-add-group
 'embperl
 '((embperl-perl
    :submode perl
    :front "\\[\\([-\\+!\\*\\$]\\)"
    :front-offset -2
    :back "~1\\]"
    :back-offset 2
    :save-matches 1
    :match-face (("[+" . mmm-output-submode-face)
                 ("[-" . mmm-code-submode-face)
                 ("[!" . mmm-init-submode-face)
                 ("[*" . mmm-code-submode-face)
                 ("[$" . mmm-special-submode-face))
    :insert ((?p embperl "Region Type (Character): " @ "[" str
                 @ " " _ " " @ str "]" @)
             (?+ embperl+ ?p . "+")
             (?- embperl- ?p . "-")
             (?! embperl! ?p . "!")
             (?* embperl* ?p . "*")
             (?$ embperl$ ?p . "$")))
   (embperl-comment
    :submode text-mode
    :face mmm-comment-submode-face
    :front "\\[#"
    :front-offset -2
    :back "#\\]"
    :back-offset 2
    :insert ((?# embperl-comment nil @ "[#" @ " " _ " " @ "#]" @)))))

(or (assoc "\\.epl?$" auto-mode-alist)
    (setq auto-mode-alist (cons '("\\.epl?$" . html-mode)
                                auto-mode-alist)))

(mmm-add-mode-ext-class 'html-mode "\\.epl?$" 'embperl)

; Scroll left and right with the 2D mouse wheel
(setq wheel-scroll-interval 5)
(defun wheel-scroll-left-some-lines ()
  (interactive)
  (scroll-left wheel-scroll-interval))
(defun wheel-scroll-right-some-lines ()
  (interactive)
  (scroll-right wheel-scroll-interval))
(global-set-key [mouse-6] 'wheel-scroll-left-some-lines)
(global-set-key [mouse-7] 'wheel-scroll-right-some-lines)

; Occur inside isearch with easier keybinding.
; Via http://irreal.org/blog/?p=1540
(define-key isearch-mode-map (kbd "C-o") 'isearch-occur)

; magit-status has no keybinding by default
(global-set-key (kbd "C-x g") 'magit-status)
(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.
 '(default ((t (:family "Agave" :foundry "agrc" :slant normal :weight normal :height 120 :width normal)))))