.emacs

(load "~/src/gtd/config")

;; Source: http://www.emacswiki.org/emacs-en/download/misc-cmds.el
(defun revert-buffer-no-confirm ()
    "Revert buffer without confirmation."
    (interactive)
    (revert-buffer :ignore-auto :noconfirm))

(defun toggle-kbd-macro-recording-on ()
  "One-key keyboard macros: turn recording on."
  (interactive)
  (substitute-key-definition 'toggle-kbd-macro-recording-on 'toggle-kbd-macro-recording-off (current-global-map))
  (start-kbd-macro nil))

(defun toggle-kbd-macro-recording-off ()
  "One-key keyboard macros: turn recording off."
  (interactive)
  (substitute-key-definition 'toggle-kbd-macro-recording-off 'toggle-kbd-macro-recording-on (current-global-map))
  (end-kbd-macro))

(global-set-key [f5] 'revert-buffer-no-confirm)
(global-set-key [f7] 'toggle-kbd-macro-recording-on)
(global-set-key [f8] 'call-last-kbd-macro)
(global-set-key (kbd "s-s") 'slime-repl)
(global-set-key (kbd "s-l") 'magit-log-all)
(global-set-key (kbd "C-s-s") 'magit-status)
(global-set-key "\C-\M-j" 'goto-line)
(global-set-key "\C-\M-c" 'comment-region)
(global-set-key "\C-\M-u" 'uncomment-region)
(global-set-key (kbd "s-b") 'eww-browse-url)
(global-set-key (kbd "s-n") 'next-error)
(global-set-key (kbd "s-p") 'previous-error)

(global-set-key [?\M-\C-=] 'recompile)
(global-set-key [?\M-\C-+] 'compile)

(global-set-key [( control meta _ )] 'eval-region)

(global-set-key (kbd "M-l") (lambda () (interactive) (insert (make-char 'greek-iso8859-7 107))))


;; (defvaralias 'c-basic-offset 'tab-width)
;; (defvaralias 'cperl-indent-level 'tab-width)
;; (defvaralias 'js-indent-level 'tab-width)

(fset 'yes-or-no-p 'y-or-n-p)

(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.
 '(backup-directory-alist '((".*" . "~/.backups")))
 '(browse-url-browser-function 'eww-browse-url)
 '(c-default-style
   '((c-mode . "k&r")
     (c++-mode . "java")
     (java-mode . "java")
     (awk-mode . "awk")
     (other . "gnu")))
 '(c-hanging-braces-alist
   '((block-open after)
     (block-close . c-snug-do-while)
     (statement-cont)
     (substatement-open after)
     (brace-list-open)
     (brace-entry-open)
     (extern-lang-open after)
     (namespace-open after)
     (module-open after)
     (composition-open after)
     (inexpr-class-open after)
     (inexpr-class-close before)
     (arglist-cont-nonempty)))
 '(c-offsets-alist
   '((substatement-open . 0)
     (substatement-open . 0)
     (access-label . -)
     (statement-case-open . 0)))
 '(column-number-mode t)
 '(compilation-scroll-output t)
 '(describe-char-unidata-list
   '(name old-name general-category canonical-combining-class bidi-class decomposition decimal-digit-value digit-value numeric-value mirrored iso-10646-comment uppercase lowercase titlecase))
 '(diary-file "~/src/gtd/diary")
 '(erc-fill-column 132)
 '(erc-nick "jlarocco")
 '(font-lock-maximum-size nil)
 '(grep-command "grep -i -n -e ")
 '(grep-find-use-xargs 'exec-plus)
 '(grep-highlight-matches t)
 '(grep-use-null-device t)
 '(grep-use-null-filename-separator t)
 '(horizontal-scroll-bar-mode nil)
 '(indent-tabs-mode nil)
 '(inhibit-startup-screen t)
 '(lisp-mode-hook '(slime-editing-mode))
 '(menu-bar-mode nil)
 '(package-archives
   '(("gnu" . "https://elpa.gnu.org/packages/")
     ("marmalade" . "http://marmalade-repo.org/packages/")
     ("melpa" . "http://melpa.milkbox.net/packages/")))
 '(package-selected-packages
   '(diredfl ada-mode ada-ref-man ag grep-a-lot dired-quick-sort git-timemachine magit farmhouse-theme erlang flycheck-pycheckers flycheck-pyflakes elpy htmlize lua-mode abyss-theme w3m slime-docker dylan-mode julia-shell geiser gopher markdown-mode haskell-mode))
 '(pos-tip-tab-width 4)
 '(safe-local-variable-values
   '((Syntax . Common-lisp)
     (package . CL-GDAL)
     (Package . CLIM-GUI)
     (Package . URL)
     (Readtable . GLISP)
     (Encoding . utf-8)
     (Package . RENDERER)
     (Package . CLOSURE/CLIM-DEVICE)
     (Package . CLIM-INTERNALS)
     (Syntax . Common-Lisp)
     (Lowercase . Yes)
     (Base . 10)
     (Package . CLIM-DEMO)
     (Syntax . ANSI-Common-Lisp)))
 '(shell-file-name "zsh")
 '(show-paren-mode t)
 '(size-indication-mode t)
 '(slime-enable-evaluate-in-emacs t)
 '(tab-width 4)
 '(tool-bar-mode nil)
 '(transient-mark-mode nil)
 '(use-file-dialog nil)
 '(vc-handled-backends '(Git))
 '(visible-cursor t)
 '(when
      (or
       (not
        (boundp 'ansi-term-color-vector))
       (not
        (facep
         (aref ansi-term-color-vector 0)))))
 '(which-func-modes t)
 '(which-function-mode t)
 '(x-stretch-cursor t))

;; (add-to-list 'auto-mode-alist '("\\.json" . javascript-mode))
;; (add-to-list 'auto-mode-alist '("\\.h" . c++-mode))
;; (add-to-list 'auto-mode-alist '("\\.ipp" . c++-mode))

(require 'package)

(setq frame-title-format
	  '("Emacs - " (buffer-file-name "%f" (dired-directory dired-directory "%b"))))

(add-to-list 'load-path "~/src/lisp/slime")
(require 'slime-autoloads)

(setq inferior-lisp-program "/usr/local/bin/sbcl --noinform --control-stack-size 4 --merge-core-pages")


(setf slime-lisp-implementations
      '((sbcl ("/usr/local/bin/sbcl" "--noinform --control-stack-size 4 --merge-core-pages") :coding-system utf-8-unix)
        (ccl ("/home/jeremiah/oss_src/ccl/lx86cl64"))
        (clisp ("/usr/bin/clisp"))))

(slime-setup '(slime-fancy slime-mrepl slime-sprof slime-tramp))

(setq slime-default-lisp 'sbcl)
(setq slime-description-autofocus t)
(setq slime-net-coding-system 'utf-8-unix)
(setf slime-scratch-file (expand-file-name "~/.slime-scratch.lisp"))

(setq erc-hide-list '("JOIN" "PART" "QUIT"))

(add-hook 'nim-mode-hook 'nimsuggest-mode)
(setq nimsuggest-path "/home/jeremiah/oss_src/Nim/bin/nimsuggest")

(add-hook 'prog-mode-hook 'flyspell-prog-mode)

(autoload 'run-prolog "prolog" "Start a Prolog sub-process." t)
(autoload 'prolog-mode "prolog" "Major mode for editing Prolog programs." t)
(add-to-list 'auto-mode-alist '("\\.pl\\'" . prolog-mode))

(setq disabled-command-function nil)

(server-start)

(slime)

(defun toggle-window-dedicated ()
"Toggle whether the current active window is dedicated or not"
(interactive)
(message
(if (let (window (get-buffer-window (current-buffer)))
(set-window-dedicated-p window (not (window-dedicated-p window))))
"Window '%s' is dedicated"
"Window '%s' is normal")
(current-buffer)))

(global-set-key [insertchar] 'toggle-window-dedicated)