107 lines
8.5 KiB
EmacsLisp
107 lines
8.5 KiB
EmacsLisp
;; (C) Copyright Collin J. Doering 2014
|
|
;;
|
|
;; This program is free software: you can redistribute it and/or modify
|
|
;; it under the terms of the GNU General Public License as published by
|
|
;; the Free Software Foundation, either version 3 of the License, or
|
|
;; (at your option) any later version.
|
|
;;
|
|
;; This program is distributed in the hope that it will be useful,
|
|
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
;; GNU General Public License for more details.
|
|
;;
|
|
;; You should have received a copy of the GNU General Public License
|
|
;; along with this program. If not, see <http://www.gnu.org/licenses/>.
|
|
|
|
;; File: init.el
|
|
;; Author: Collin J. Doering <collin.doering@rekahsoft.ca>
|
|
;; Date: Oct 21, 2014
|
|
|
|
(defun load-directory (directory)
|
|
"Load recursively all `.el' files in DIRECTORY."
|
|
(dolist (element (directory-files-and-attributes directory nil nil nil))
|
|
(let* ((path (car element))
|
|
(fullpath (concat directory "/" path))
|
|
(isdir (car (cdr element)))
|
|
(ignore-dir (or (string= path ".") (string= path ".."))))
|
|
(cond
|
|
((and (eq isdir t) (not ignore-dir))
|
|
(load-directory fullpath))
|
|
((and (eq isdir nil) (string= (substring path -3) ".el"))
|
|
(load (file-name-sans-extension fullpath)))))))
|
|
|
|
;; Set repos for package.el
|
|
(setq package-archives '(("gnu" . "http://elpa.gnu.org/packages/")
|
|
("marmalade" . "http://marmalade-repo.org/packages/")
|
|
("melpa" . "http://melpa.milkbox.net/packages/")
|
|
("ELPA" . "http://tromey.com/elpa/")))
|
|
|
|
;; This needs to be a the start of ~/.emacs since package-initialize is run after the user
|
|
;; init file is read but before after-init-hook. It autoloads packages installed by
|
|
;; package.el including updating the load-path and running/loading/requiring
|
|
;; pkgname-autoload.el for all packages (where pkgname is replaced with the appropriate
|
|
;; package name). To disable package.el's autoloading functionality use:
|
|
;; (setq package-enabled-at-startup nil)
|
|
;; The reason to use package-initialize here is so one can modify the installed modules
|
|
;; later in this .emacs file but still retain the autoloading functionality of package.el
|
|
(package-initialize)
|
|
|
|
;; Variables and functions that will be used in files in config folder
|
|
;; Note: This should be put into another file (eg. lib.el) that could be loaded from here
|
|
;; adds the given function mode to each element of the given-hooks
|
|
|
|
(defun activate-mode-with-hooks (mode given-hooks)
|
|
(while given-hooks
|
|
(add-hook (car given-hooks)
|
|
mode)
|
|
(setq given-hooks (cdr given-hooks))))
|
|
|
|
;; code-modes is a list of mode hooks (for programming langs only)
|
|
(defvar code-modes '(sml-mode-hook scheme-mode-hook emacs-lisp-mode-hook c-mode-hook c++-mode-hook python-mode-hook lua-mode-hook python-mode-hook haskell-mode-hook php-mode-hook perl-mode-hook lisp-mode-hook clojure-mode-hook ruby-mode-hook erlang-mode-hook sh-mode-hook java-mode-hook scala-mode-hook js-mode-hook))
|
|
|
|
;; Load ~/.emacs.d/site-list-extra which contains various .el files
|
|
;; that aren't (yet) available through packages
|
|
(add-to-list 'load-path "~/.emacs.d/site-lisp-extra")
|
|
|
|
;; Load all .el config files
|
|
(load-directory "~/.emacs.d/config")
|
|
|
|
(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.
|
|
'(TeX-command-list (quote (("TeX" "%(PDF)%(tex) %`%S%(PDFout)%(mode)%' %t" TeX-run-TeX nil (plain-tex-mode texinfo-mode ams-tex-mode) :help "Run plain TeX") ("LaTeX" "%`%l%(mode)%' %t" TeX-run-TeX nil (latex-mode doctex-mode) :help "Run LaTeX") ("Makeinfo" "makeinfo %t" TeX-run-compile nil (texinfo-mode) :help "Run Makeinfo with Info output") ("Makeinfo HTML" "makeinfo --html %t" TeX-run-compile nil (texinfo-mode) :help "Run Makeinfo with HTML output") ("AmSTeX" "%(PDF)amstex %`%S%(PDFout)%(mode)%' %t" TeX-run-TeX nil (ams-tex-mode) :help "Run AMSTeX") ("ConTeXt" "texexec --once --texutil %(execopts)%t" TeX-run-TeX nil (context-mode) :help "Run ConTeXt once") ("ConTeXt Full" "texexec %(execopts)%t" TeX-run-TeX nil (context-mode) :help "Run ConTeXt until completion") ("BibTeX" "bibtex %s" TeX-run-BibTeX nil t :help "Run BibTeX") ("Biber" "biber %s" TeX-run-Biber nil t :help "Run Biber") ("View" "zathura %s.pdf" TeX-run-discard-or-function t t :help "Run Viewer") ("Print" "%p" TeX-run-command t t :help "Print the file") ("Queue" "%q" TeX-run-background nil t :help "View the printer queue" :visible TeX-queue-command) ("File" "%(o?)dvips %d -o %f " TeX-run-command t t :help "Generate PostScript file") ("Index" "makeindex %s" TeX-run-command nil t :help "Create index file") ("Check" "lacheck %s" TeX-run-compile nil (latex-mode) :help "Check LaTeX file for correctness") ("Spell" "(TeX-ispell-document \"\")" TeX-run-function nil t :help "Spell-check the document") ("Clean" "TeX-clean" TeX-run-function nil t :help "Delete generated intermediate files") ("Clean All" "(TeX-clean t)" TeX-run-function nil t :help "Delete generated intermediate and output files") ("Other" "" TeX-run-command t t :help "Run an arbitrary command"))))
|
|
'(bmkp-last-as-first-bookmark-file "/home/collin/.emacs.d/bookmarks")
|
|
'(coffee-tab-width 2)
|
|
'(confirm-kill-emacs (quote y-or-n-p))
|
|
'(custom-safe-themes (quote ("96b54f35e473769a388f12984d735092f9163c63aa6724ee49176d865c46071b" "fc5fcb6f1f1c1bc01305694c59a1a861b008c534cae8d0e48e4d5e81ad718bc6" "b5aaedbcd4d81925c8b2bc21dbed6d0a5a6854b6ad745e948efd55e42b48bd04" "8aebf25556399b58091e533e455dd50a6a9cba958cc4ebb0aab175863c25b9a4" "36a309985a0f9ed1a0c3a69625802f87dee940767c9e200b89cdebdb737e5b29" "dc8693659115ea453f849f47509b903da3801b5f1521a73fa31556a9a3558517" default)))
|
|
'(fill-column 95)
|
|
'(geiser-default-implementation (quote racket))
|
|
'(geiser-racket-collects (quote ("/usr/share/racket/collects")))
|
|
'(hl-sexp-background-color "#19202B")
|
|
'(ido-enable-flex-matching t)
|
|
'(magit-commit-signoff t t)
|
|
'(mpc-host "patchMeIn@localhost")
|
|
'(org-agenda-files (quote ("~/.org/tech/notes.org" "~/.org/todo/rekahsoft-mini-todo.org" "~/.org/todo/rekahsoft-todo.org" "~/.org/todo/general.org" "~/.org/todo/work.org")))
|
|
'(quack-default-program "racket")
|
|
'(quack-fontify-style (quote plt))
|
|
'(quack-programs (quote ("mzscheme" "bigloo" "csi" "csi -hygienic" "gosh" "gracket" "gsi" "gsi ~~/syntax-case.scm -" "guile" "kawa" "mit-scheme" "racket" "racket -il typed/racket" "rs" "scheme" "scheme48" "scsh" "sisc" "stklos" "sxi")))
|
|
'(quack-remap-find-file-bindings-p nil)
|
|
'(rcirc-kill-channel-buffers t)
|
|
'(scroll-bar-mode nil)
|
|
'(send-mail-function (quote smtpmail-send-it))
|
|
'(show-paren-mode t)
|
|
'(w3m-content-type-alist (quote (("text/plain" "\\.\\(?:txt\\|tex\\|el\\)\\'" nil nil) ("text/html" "\\.s?html?\\'" ("conkeror" file) nil) ("text/sgml" "\\.sgml?\\'" nil "text/plain") ("text/xml" "\\.xml\\'" nil "text/plain") ("image/jpeg" "\\.jpe?g\\'" ("/usr/bin/display" file) nil) ("image/png" "\\.png\\'" ("/usr/bin/display" file) nil) ("image/gif" "\\.gif\\'" ("/usr/bin/display" file) nil) ("image/tiff" "\\.tif?f\\'" ("/usr/bin/display" file) nil) ("image/x-xwd" "\\.xwd\\'" ("/usr/bin/display" file) nil) ("image/x-xbm" "\\.xbm\\'" ("/usr/bin/display" file) nil) ("image/x-xpm" "\\.xpm\\'" ("/usr/bin/display" file) nil) ("image/x-bmp" "\\.bmp\\'" ("/usr/bin/display" file) nil) ("video/mpeg" "\\.mpe?g\\'" nil nil) ("video/quicktime" "\\.mov\\'" nil nil) ("application/dvi" "\\.dvi\\'" ("xdvi" file) nil) ("application/postscript" "\\.e?ps\\'" ("gs" file) nil) ("application/pdf" "\\.pdf\\'" nil nil) ("application/x-pdf" "\\.pdf\\'" nil nil) ("application/xml" "\\.xml\\'" nil w3m-detect-xml-type) ("application/rdf+xml" "\\.rdf\\'" nil "text/plain") ("application/rss+xml" "\\.rss\\'" nil "text/plain") ("application/xhtml+xml" nil nil "text/html"))))
|
|
'(yas-prompt-functions (quote (shk-yas/helm-prompt))))
|
|
(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.
|
|
'(mode-line ((t (:background "grey20" :foreground "#00afff" :box 1 :slant normal :weight normal :height 111 :width normal :foundry "xos4" :family "Terminus"))))
|
|
'(mode-line-inactive ((t (:inherit mode-line :background "grey5" :foreground "grey80" :box 1 :slant normal :weight normal :height 111 :width normal :foundry "xos4" :family "Terminus"))))
|
|
'(show-paren-match ((t (:background "dark violet")))))
|
|
(put 'dired-find-alternate-file 'disabled nil)
|
|
(put 'downcase-region 'disabled nil)
|