emacs.el

(require 'package)

(add-to-list
 'package-archives
 '("melpa" . "http://melpa.org/packages/") t)

(add-to-list
 'package-archives
 '("elpy" . "http://jorgenschaefer.github.io/packages/"))

(add-to-list 'package-archives
             '("melpa-stable" . "https://stable.melpa.org/packages/"))

(package-initialize)

(global-hl-line-mode +1)

;; start of configuration

(global-set-key (kbd "C-c <right>") 'pop-global-mark)
(global-set-key (kbd "C-c <down>") 'pop-to-mark-command)

(add-hook 'before-save-hook 'delete-trailing-whitespace)

;; transparence

;; (set-frame-parameter (selected-frame) 'alpha '(85 . 85))
;; (add-to-list 'default-frame-alist '(alpha . (85 . 85)))

;; elpy
;; http://elpy.readthedocs.org/en/latest/concepts.html
;;
;; bindings:
;; - M-. jump-to-def
;; - M-* back from last jump to def
;; - C-c C-c send buffer to interpreter

(elpy-enable)
(setq elpy-rpc-backend "jedi")
(global-set-key (kbd "M-.") 'elpy-goto-definition)
(global-set-key (kbd "M-,") 'pop-tag-mark)



;; Configure flymake for pylint

(setq-default flymake-no-changes-timeout '3)

;; Set as a minor mode for Python
;; (add-hook 'python-mode-hook '(lambda () (flymake-mode)))

;; Set as a minor mode for Scheme
(require 'rainbow-delimiters)
(add-hook 'scheme-mode-hook 'rainbow-delimiters-mode)
(add-hook 'python-mode-hook 'rainbow-delimiters-mode)
(add-hook 'emacs-lisp-mode-hook 'rainbow-delimiters-mode)

;; ;; python flycheck
;; (add-hook 'python-mode-hook (lambda ()
;; 			      (flycheck-mode 1)
;; 			      (semantic-mode 1)
;; 			      (setq flycheck-checker 'python-pylint
;; 				    flycheck-checker-error-threshold 900
;; 				    flycheck-pylintrc "~/.pylintrc")))

;;

(setq ediff-window-setup-function (quote ediff-setup-windows-plain))

;; tramp

(setq tramp-defaul-method "ssh")


;; Customize dired

(require 'dired-x)
(add-hook 'dired-mode-hook 'dired-hide-details-mode)
(setq-default dired-omit-files-p t)
(setq dired-omit-files (concat dired-omit-files "\\|^\\..+$" ".+\\.pyc"))


;; Bookmarks
(require 'bm)
(global-set-key (kbd "C-c b") 'bm-toggle)
(global-set-key (kbd "C-c n")   'bm-next)
(global-set-key (kbd "C-c p")   'bm-previous)

(setq bm-cycle-all-buffers t)


;; Pretty print xml

(defun bf-pretty-print-xml-region (begin end)
  "Pretty format XML markup in region. You need to have nxml-mode
http://www.emacswiki.org/cgi-bin/wiki/NxmlMode installed to do
this.  The function inserts linebreaks to separate tags that have
nothing but whitespace between them.  It then indents the markup
by using nxml's indentation rules."
  (interactive "r")
  (save-excursion
	  (nxml-mode)
	  (goto-char begin)
	  (while (search-forward-regexp "\>[ \\t]*\<" nil t)
		(backward-char) (insert "\n"))
	  (indent-region begin end))
	(message "Ah, much better!"))


;; Compile buffer

;; accept ansi escape sequence in compile buffer
(require 'ansi-color)
(defun colorize-compilation-buffer ()
  (toggle-read-only)
  (ansi-color-apply-on-region (point-min) (point-max))
  (toggle-read-only))
(add-hook 'compilation-filter-hook 'colorize-compilation-buffer)

(global-set-key (kbd "<f3>") 'goto-line)
(global-set-key (kbd "<f12>") 'whitespace-mode)
(global-set-key (kbd "C-x C-g") 'compile)
(global-set-key (kbd "C-x l") 'whitespace-cleanup)
(global-set-key (kbd "C-x C-r") 'rgrep)
(global-set-key (kbd "C-x r") 'find-name-dired) ;


;; web-mode
(require 'web-mode)
(add-to-list 'auto-mode-alist '("\\.js\\'" . web-mode))
(add-to-list 'auto-mode-alist '("\\.html\\'" . web-mode))
(add-to-list 'auto-mode-alist '("\\.jinja2\\'" . web-mode))

(setq web-mode-engines-alist
      '(("jinja2"    . "\\.jinja2\\'")))

;; (setq web-mode-enable-auto-pairing t)
;; (add-hook 'web-mode-hook
;;           (lambda ()
;;             ;; short circuit js mode and just do everything in jsx-mode
;;             (if (equal web-mode-content-type "javascript")
;;                 (web-mode-set-content-type "jsx")
;;               (message "now set to: %s" web-mode-content-type))))


;; store backup files in /tmp
(setq backup-directory-alist
      `((".*" . ,temporary-file-directory)))
(setq auto-save-file-name-transforms
      `((".*" ,temporary-file-directory t)))

;; replace "yes or no" question by "y or n"
(defalias '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.
 '(Linum-format "%7i ")
 '(ansi-color-faces-vector
   [default default default italic underline success warning error])
 '(ansi-color-names-vector
   ["black" "#d55e00" "#009e73" "#f8ec59" "#0072b2" "#cc79a7" "#56b4e9" "white"])
 '(ansi-term-color-vector
   [unspecified "#14191f" "#d15120" "#81af34" "#deae3e" "#7e9fc9" "#a878b5" "#7e9fc9" "#dcdddd"] t)
 '(auth-source-save-behavior nil)
 '(background-color "#202020")
 '(background-mode dark)
 '(bm-highlight-style (quote bm-highlight-only-fringe))
 '(compilation-message-face (quote default))
 '(cua-global-mark-cursor-color "#2aa198")
 '(cua-normal-cursor-color "#839496")
 '(cua-overwrite-cursor-color "#b58900")
 '(cua-read-only-cursor-color "#859900")
 '(cursor-color "#cccccc")
 '(custom-enabled-themes (quote (tango-dark)))
 '(custom-safe-themes
   (quote
    ("0e89bf7a9d5d2a327b291d5e646f58362b2386f948a594ca993e7b0016b8425a" "7e1fa2fd97e792390d0c2347f0eefa2d1679c68da56e6baf983b057cefa400b4" "6c7db7fdf356cf6bde4236248b17b129624d397a8e662cf1264e41dab87a4a9a" "66132890ee1f884b4f8e901f0c61c5ed078809626a547dbefbb201f900d03fd8" "f04122bbc305a202967fa1838e20ff741455307c2ae80a26035fbf5d637e325f" "7b4d9b8a6ada8e24ac9eecd057093b0572d7008dbd912328231d0cada776065a" "19ba41b6dc0b5dd34e1b8628ad7ae47deb19f968fe8c31853d64ea8c4df252b8" "51e228ffd6c4fff9b5168b31d5927c27734e82ec61f414970fc6bcce23bc140d" "5e2dc1360a92bb73dafa11c46ba0f30fa5f49df887a8ede4e3533c3ab6270e08" "95f80c9b1ae8afcc2c8d66750252b4d6ae19aef46c2d458c5fe5911e6f09d0ce" "f64c9f8b4241b680b186f4620afb9c82fa2a76cf4498a7431f90db59bb1892eb" "cedd3b4295ac0a41ef48376e16b4745c25fa8e7b4f706173083f16d5792bb379" "5999e12c8070b9090a2a1bbcd02ec28906e150bb2cdce5ace4f965c76cf30476" "8abee8a14e028101f90a2d314f1b03bed1cde7fd3f1eb945ada6ffc15b1d7d65" "b34636117b62837b3c0c149260dfebe12c5dad3d1177a758bb41c4b15259ed7e" "d8f76414f8f2dcb045a37eb155bfaa2e1d17b6573ed43fb1d18b936febc7bbc2" "bc40f613df8e0d8f31c5eb3380b61f587e1b5bc439212e03d4ea44b26b4f408a" "8288b9b453cdd2398339a9fd0cec94105bc5ca79b86695bd7bf0381b1fbe8147" "afc220610bee26945b7c750b0cca03775a8b73c27fdca81a586a0a62d45bbce2" "a632c5ce9bd5bcdbb7e22bf278d802711074413fd5f681f39f21d340064ff292" "1e67765ecb4e53df20a96fb708a8601f6d7c8f02edb09d16c838e465ebe7f51b" "8453c6ba2504874309bdfcda0a69236814cefb860a528eb978b5489422cb1791" "4980e5ddaae985e4bae004280bd343721271ebb28f22b3e3b2427443e748cd3f" "2bed8550c6f0a5ce635373176d5f0e079fb4fb5919005bfa743c71b5eed29d81" "6c0a087a4f49c04d4002393ffd149672f70e4ab38d69bbe8b39059b61682b61c" "39dd7106e6387e0c45dfce8ed44351078f6acd29a345d8b22e7b8e54ac25bac4" "fc0c179ce77997ecb6a7833310587131f319006ef2f630c5a1fec1a9307bff45" "b571f92c9bfaf4a28cb64ae4b4cdbda95241cd62cf07d942be44dc8f46c491f4" "4cbec5d41c8ca9742e7c31cc13d8d4d5a18bd3a0961c18eb56d69972bbcf3071" "cc0dbb53a10215b696d391a90de635ba1699072745bf653b53774706999208e3" "9d7e517b49068e9fef941fe4083ad3d2a4b040895dca5175b84be48739689707" "98cc377af705c0f2133bb6d340bf0becd08944a588804ee655809da5d8140de6" "5dc0ae2d193460de979a463b907b4b2c6d2c9c4657b2e9e66b8898d2592e3de5" "946e871c780b159c4bb9f580537e5d2f7dba1411143194447604ecbaf01bd90c" "47ac4658d9e085ace37e7d967ea1c7d5f3dfeb2f720e5dec420034118ba84e17" "ad30746a316d5fb6fedfb585c0aff4f795730d874e3cff87fe33120377a7b8de" "64f2981274fd8740b794bce9feee7949ed87b88fc0b4654bd98594e1aa81abcd" "7ceb8967b229c1ba102378d3e2c5fef20ec96a41f615b454e0dc0bfa1d326ea6" "954167e51a40f25c34406675eed636eabf7493d8d85e252bfa88ed3efe9ea226" "c1fb68aa00235766461c7e31ecfc759aa2dd905899ae6d95097061faeb72f9ee" "77bd459212c0176bdf63c1904c4ba20fce015f730f0343776a1a14432de80990" "7feeed063855b06836e0262f77f5c6d3f415159a98a9676d549bfeb6c49637c4" "cdd26fa6a8c6706c9009db659d2dffd7f4b0350f9cc94e5df657fa295fffec71" "a2e7b508533d46b701ad3b055e7c708323fb110b6676a8be458a758dd8f24e27" "9122dfb203945f6e84b0de66d11a97de6c9edf28b3b5db772472e4beccc6b3c5" "18a33cdb764e4baf99b23dcd5abdbf1249670d412c6d3a8092ae1a7b211613d5" "ff7625ad8aa2615eae96d6b4469fcc7d3d20b2e1ebc63b761a349bebbb9d23cb" "aae95fc700f9f7ff70efbc294fc7367376aa9456356ae36ec234751040ed9168" "1b1e54d9e0b607010937d697556cd5ea66ec9c01e555bb7acea776471da59055" "47744f6c8133824bdd104acc4280dbed4b34b85faa05ac2600f716b0226fb3f6" "a3132bd39a977ddde4c002f8bd0ef181414c3fbe9228e3643b999491192680ad" "89531935dc9c4620a06579e525d5365f94639cb4c5c328bcabbd22bc39a862ed" "3ff96689086ebc06f5f813a804f7114195b7c703ed2f19b51e10026723711e33" "b79104a19e95f10698badb711bd4ab25565af3ffcf18fa7d3c7db4de7d759ac8" "726dd9a188747664fbbff1cd9ab3c29a3f690a7b861f6e6a1c64462b64b306de" "ea489f6710a3da0738e7dbdfc124df06a4e3ae82f191ce66c2af3e0a15e99b90" "d5b121d69e48e0f2a84c8e4580f0ba230423391a78fcb4001ccb35d02494d79e" "83db918b06f0b1df1153f21c0d47250556c7ffb5b5e6906d21749f41737babb7" "f81a9aabc6a70441e4a742dfd6d10b2bae1088830dc7aba9c9922f4b1bd2ba50" "f9574c9ede3f64d57b3aa9b9cef621d54e2e503f4d75d8613cbcc4ca1c962c21" "cc210a8d0cc72968e7c8516c9c7bd5043cc47199755abc5c23cb295a6e715d35" "b51c2dda65e8e7e66ab1b06bc10b59e61c153b0cf928f296efab5a7574779fb6" "810ab30a73c460f5c49ede85d1b9af3429ff2dff652534518fa1de7adc83d0f6" "4486ade2acbf630e78658cd6235a5c6801090c2694469a2a2b4b0e12227a64b9" "a800120841da457aa2f86b98fb9fd8df8ba682cebde033d7dbf8077c1b7d677a" "71ecffba18621354a1be303687f33b84788e13f40141580fa81e7840752d31bf" "066d4710e40eeb85aa7c72afa6c23d09dee4795bf4e450d4869324e917b5f64d" "557c283f4f9d461f897b8cac5329f1f39fac785aa684b78949ff329c33f947ec" "cdbd0a803de328a4986659d799659939d13ec01da1f482d838b68038c1bb35e8" "9ff70d8009ce8da6fa204e803022f8160c700503b6029a8d8880a7a78c5ff2e5" "4cf3221feff536e2b3385209e9b9dc4c2e0818a69a1cdb4b522756bcdf4e00a4" "d677ef584c6dfc0697901a44b885cc18e206f05114c8a3b7fde674fce6180879" "8db4b03b9ae654d4a57804286eb3e332725c84d7cdab38463cb6b97d5762ad26" "8aebf25556399b58091e533e455dd50a6a9cba958cc4ebb0aab175863c25b9a4" "4aee8551b53a43a883cb0b7f3255d6859d766b6c5e14bcb01bed572fcbef4328" default)))
 '(elpy-rpc-backend "jedi" t)
 '(fci-rule-character-color "#192028")
 '(fci-rule-color "#073642" t)
 '(foreground-color "#cccccc")
 '(frame-brackground-mode (quote dark))
 '(fringe-mode 4 nil (fringe))
 '(highlight-changes-colors (quote ("#d33682" "#6c71c4")))
 '(highlight-symbol-colors
   (--map
    (solarized-color-blend it "#002b36" 0.25)
    (quote
     ("#b58900" "#2aa198" "#dc322f" "#6c71c4" "#859900" "#cb4b16" "#268bd2"))))
 '(highlight-symbol-foreground-color "#93a1a1")
 '(highlight-tail-colors
   (quote
    (("#073642" . 0)
     ("#546E00" . 20)
     ("#00736F" . 30)
     ("#00629D" . 50)
     ("#7B6000" . 60)
     ("#8B2C02" . 70)
     ("#93115C" . 85)
     ("#073642" . 100))))
 '(hl-bg-colors
   (quote
    ("#7B6000" "#8B2C02" "#990A1B" "#93115C" "#3F4D91" "#00629D" "#00736F" "#546E00")))
 '(hl-fg-colors
   (quote
    ("#002b36" "#002b36" "#002b36" "#002b36" "#002b36" "#002b36" "#002b36" "#002b36")))
 '(hl-paren-colors
   (quote
    ("#B9F" "#B8D" "#B7B" "#B69" "#B57" "#B45" "#B33" "#B11")))
 '(hl-sexp-background-color "#1c1f26")
 '(inhibit-startup-screen t)
 '(linum-format " %3i ")
 '(magit-diff-use-overlays nil)
 '(main-line-color1 "#1E1E1E")
 '(main-line-color2 "#111111")
 '(main-line-separator-style (quote chamfer))
 '(menu-bar-mode nil)
 '(minimap-display-semantic-overlays nil)
 '(minimap-mode t)
 '(notmuch-search-line-faces
   (quote
    (("unread" :foreground "#aeee00")
     ("flagged" :foreground "#0a9dff")
     ("deleted" :foreground "#ff2c4b" :bold t))))
 '(nrepl-message-colors
   (quote
    ("#CC9393" "#DFAF8F" "#F0DFAF" "#7F9F7F" "#BFEBBF" "#93E0E3" "#94BFF3" "#DC8CC3")))
 '(package-selected-packages
   (quote
    (lorem-ipsum web-mode-edit-element elpygen yaml-mode markdown-preview-mode markdown-mode+ jedi php-mode yoshi-theme zonokai-theme waher-theme underwater-theme twilight-theme twilight-anti-bright-theme ujelly-theme toxi-theme tronesque-theme tangotango-theme tango-2-theme subatomic-theme spacegray-theme soothe-theme smyx-theme slime-theme seti-theme paganini-theme obsidian-theme noctilux-theme niflheim-theme mustang-theme monochrome-theme mellow-theme molokai-theme moe-theme minimal-theme mbo70s-theme material-theme airline-themes lavender-theme kaolin-theme jbeans-theme ir-black-theme gruber-darker-theme hemisu-theme farmhouse-theme flatland-theme flatland-black-theme firecode-theme dracula-theme distinguished-theme dark-mint-theme darkburn-theme dark-krystal-theme danneskjold-theme dakrone-theme caroline-theme boron-theme bliss-theme blackboard-theme arjen-grey-theme dockerfile-mode web-mode jumplist abyss-theme kooten-theme kosmos-theme achievements oceanic-theme coffee-mode json-reformat markdown-mode flycheck cyberpunk-theme flymake-cursor badwolf-theme monokai-theme powerline zenburn-theme geiser js2-mode jsx-mode xcscope sr-speedbar smart-tabs-mode scss-mode sass-mode rainbow-delimiters naquadah-theme magit jinja2-mode flymake-jshint elpy bm ag ack-menu ack)))
 '(pdf-view-midnight-colors (quote ("#DCDCCC" . "#383838")))
 '(pos-tip-background-color "#073642")
 '(pos-tip-foreground-color "#93a1a1")
 '(powerline-color1 "#1E1E1E")
 '(powerline-color2 "#111111")
 '(py-isort-options (quote ("-sl")))
 '(python-check-command "flake8")
 '(safe-local-variable-values
   (quote
    ((web-mode-enable-auto-quoting)
     (web-mode-enable-auto-pairing)
     (web-mode-indent-style . 4)
     (eval progn
	   (put
	    (quote call-with-values)
	    (quote scheme-indent-function)
	    1)
	   (put
	    (quote package)
	    (quote scheme-indent-function)
	    1)
	   (put
	    (quote struct)
	    (quote scheme-indent-function)
	    0)
	   (put
	    (quote with-exception-handler)
	    (quote scheme-indent-function)
	    0)
	   (put
	    (quote call-with-mutex)
	    (quote scheme-indent-function)
	    1)
	   (put
	    (quote call-with-context)
	    (quote scheme-indent-function)
	    1)
	   (put
	    (quote with-transaction)
	    (quote scheme-indent-function)
	    1)
	   (put
	    (quote call-with-transaction*)
	    (quote scheme-indent-function)
	    3)
	   (put
	    (quote call-with-transaction)
	    (quote scheme-indent-function)
	    3)
	   (put
	    (quote call-with-references-cursor)
	    (quote scheme-indent-function)
	    1)
	   (put
	    (quote call-with-history-cursor)
	    (quote scheme-indent-function)
	    1)
	   (put
	    (quote call-with-table-cursor)
	    (quote scheme-indent-function)
	    1)
	   (put
	    (quote call-with-index-cursor)
	    (quote scheme-indent-function)
	    1)
	   (put
	    (quote call-with-store-cursor)
	    (quote scheme-indent-function)
	    1)
	   (put
	    (quote call-with-store-index-cursor)
	    (quote scheme-indent-function)
	    1)
	   (put
	    (quote call-with-subjects-cursor)
	    (quote scheme-indent-function)
	    1)
	   (put
	    (quote call-with-predicates-cursor)
	    (quote scheme-indent-function)
	    1)
	   (put
	    (quote call-with-graph-cursor)
	    (quote scheme-indent-function)
	    1)
	   (put
	    (quote call-with-merge)
	    (quote scheme-indent-function)
	    3)
	   (put
	    (quote call-with-merge*)
	    (quote scheme-indent-function)
	    3)
	   (put
	    (quote run*)
	    (quote scheme-indent-function)
	    1)
	   (put
	    (quote fresh)
	    (quote scheme-indent-function)
	    1)
	   (put
	    (quote conde)
	    (quote scheme-indent-function)
	    nil)
	   (put
	    (quote with-cursor)
	    (quote scheme-indent-function)
	    1)
	   (put
	    (quote with-directory)
	    (quote scheme-indent-function)
	    1)
	   (put
	    (quote with-env)
	    (quote scheme-indent-function)
	    1)
	   (put
	    (quote with-context)
	    (quote scheme-indent-function)
	    1)
	   (put
	    (quote match)
	    (quote scheme-indent-function)
	    1)
	   (put
	    (quote with-transaction)
	    (quote scheme-indent-function)
	    1)
	   (put
	    (quote test-check)
	    (quote scheme-indent-function)
	    1)
	   (put
	    (quote call-with-cursor)
	    (quote scheme-indent-function)
	    1)
	   (put
	    (quote with-cnx)
	    (quote scheme-indent-function)
	    1))
     (eval progn
	   (put
	    (quote run*)
	    (quote scheme-indent-function)
	    1)
	   (put
	    (quote fresh)
	    (quote scheme-indent-function)
	    1)
	   (put
	    (quote conde)
	    (quote scheme-indent-function)
	    nil)
	   (put
	    (quote with-cursor)
	    (quote scheme-indent-function)
	    1)
	   (put
	    (quote with-directory)
	    (quote scheme-indent-function)
	    1)
	   (put
	    (quote with-env)
	    (quote scheme-indent-function)
	    1)
	   (put
	    (quote with-context)
	    (quote scheme-indent-function)
	    1)
	   (put
	    (quote match)
	    (quote scheme-indent-function)
	    1)
	   (put
	    (quote with-transaction)
	    (quote scheme-indent-function)
	    1)
	   (put
	    (quote test-check)
	    (quote scheme-indent-function)
	    1)
	   (put
	    (quote call-with-cursor)
	    (quote scheme-indent-function)
	    1)
	   (put
	    (quote with-cnx)
	    (quote scheme-indent-function)
	    1))
     (eval progn
	   (put
	    (quote run*)
	    (quote scheme-indent-function)
	    1)
	   (put
	    (quote fresh)
	    (quote scheme-indent-function)
	    1)
	   (put
	    (quote conde)
	    (quote scheme-indent-function)
	    nil)
	   (put
	    (quote with-cursor)
	    (quote scheme-indent-function)
	    1)
	   (put
	    (quote with-directory)
	    (quote scheme-indent-function)
	    1)
	   (put
	    (quote with-env)
	    (quote scheme-indent-function)
	    1)
	   (put
	    (quote with-context)
	    (quote scheme-indent-function)
	    1)
	   (put
	    (quote match)
	    (quote scheme-indent-function)
	    1)
	   (put
	    (quote with-transaction)
	    (quote scheme-indent-function)
	    1)
	   (put
	    (quote test-check)
	    (quote scheme-indent-function)
	    1)
	   (put
	    (quote call-with-cursor*)
	    (quote scheme-indent-function)
	    1)
	   (put
	    (quote call-with-cursor)
	    (quote scheme-indent-function)
	    2)
	   (put
	    (quote with-cnx)
	    (quote scheme-indent-function)
	    1))
     (eval modify-syntax-entry 43 "'")
     (eval modify-syntax-entry 36 "'")
     (eval modify-syntax-entry 126 "'")
     (eval progn
	   (put
	    (quote run*)
	    (quote scheme-indent-function)
	    1)
	   (put
	    (quote fresh)
	    (quote scheme-indent-function)
	    1)
	   (put
	    (quote conde)
	    (quote scheme-indent-function)
	    nil)
	   (put
	    (quote run**)
	    (quote scheme-indent-function)
	    1)
	   (put
	    (quote fs:query)
	    (quote scheme-indent-function)
	    1)
	   (put
	    (quote with-cursor)
	    (quote scheme-indent-function)
	    1)
	   (put
	    (quote with-directory)
	    (quote scheme-indent-function)
	    1)
	   (put
	    (quote with-env)
	    (quote scheme-indent-function)
	    1)
	   (put
	    (quote with-context)
	    (quote scheme-indent-function)
	    1)
	   (put
	    (quote match)
	    (quote scheme-indent-function)
	    1)
	   (put
	    (quote with-transaction)
	    (quote scheme-indent-function)
	    1)
	   (put
	    (quote test-check)
	    (quote scheme-indent-function)
	    1)
	   (put
	    (quote call-with-cursor)
	    (quote scheme-indent-function)
	    1)
	   (put
	    (quote with-cnx)
	    (quote scheme-indent-function)
	    1))
     (eval progn
	   (put
	    (quote run*)
	    (quote scheme-indent-function)
	    1)
	   (put
	    (quote fresh)
	    (quote scheme-indent-function)
	    1)
	   (put
	    (quote conde)
	    (quote scheme-indent-function)
	    nil)
	   (put
	    (quote run**)
	    (quote scheme-indent-function)
	    1)
	   (put
	    (quote fs:query)
	    (quote scheme-indent-function)
	    1)
	   (put
	    (quote with-cursor)
	    (quote scheme-indent-function)
	    1)
	   (put
	    (quote with-directory)
	    (quote scheme-indent-function)
	    1)
	   (put
	    (quote with-env)
	    (quote scheme-indent-function)
	    1)
	   (put
	    (quote with-context)
	    (quote scheme-indent-function)
	    1)
	   (put
	    (quote with-context*)
	    (quote scheme-indent-function)
	    nil)
	   (put
	    (quote match)
	    (quote scheme-indent-function)
	    1)
	   (put
	    (quote with-transaction)
	    (quote scheme-indent-function)
	    0)
	   (put
	    (quote test-check)
	    (quote scheme-indent-function)
	    1)
	   (put
	    (quote call-with-cursor)
	    (quote scheme-indent-function)
	    1)
	   (put
	    (quote with-cnx)
	    (quote scheme-indent-function)
	    1)
	   (put
	    (quote match)
	    (quote scheme-indent-function)
	    1)
	   (put
	    (quote template)
	    (quote scheme-indent-function)
	    1))
     (bug-reference-bug-regexp . "<https?://\\(debbugs\\|bugs\\)\\.gnu\\.org/\\([0-9]+\\)>")
     (tab-width 4)
     (test-case-name . twisted\.trial\.test)
     (eval progn
	   (put
	    (quote test-check)
	    (quote scheme-indent-function)
	    1))
     (eval progn
	   (put
	    (quote with-cursor)
	    (quote scheme-indent-function)
	    1)
	   (put
	    (quote with-directory)
	    (quote scheme-indent-function)
	    1)
	   (put
	    (quote with-env)
	    (quote scheme-indent-function)
	    1)
	   (put
	    (quote with-context)
	    (quote scheme-indent-function)
	    1)
	   (put
	    (quote match)
	    (quote scheme-indent-function)
	    1)
	   (put
	    (quote with-transaction)
	    (quote scheme-indent-function)
	    1)
	   (put
	    (quote stream-let)
	    (quote scheme-indent-function)
	    2)
	   (put
	    (quote for-each-element-in-file)
	    (quote scheme-indent-function)
	    1)
	   (put
	    (quote test-check)
	    (quote scheme-indent-function)
	    1)
	   (put
	    (quote call-with-cursor)
	    (quote scheme-indent-function)
	    1)
	   (put
	    (quote with-cnx)
	    (quote scheme-indent-function)
	    1))
     (test-case-name . nevow\.test\.test_livepage)
     (test-case-name . nevow\.test\.test_appserver)
     (test-case-name . "nevow.test.test_url")
     (test-case-name . twisted\.test\.test_web))))
 '(scroll-bar-mode nil)
 '(send-mail-function (quote sendmail-send-it))
 '(show-paren-mode t)
 '(smartrep-mode-line-active-bg (solarized-color-blend "#859900" "#073642" 0.2))
 '(term-default-bg-color "#002b36")
 '(term-default-fg-color "#839496")
 '(tool-bar-mode nil)
 '(tooltip-mode nil)
 '(uniquify-buffer-name-style (quote forward) nil (uniquify))
 '(vc-annotate-background nil)
 '(vc-annotate-color-map
   (quote
    ((20 . "#dc322f")
     (40 . "#c85d17")
     (60 . "#be730b")
     (80 . "#b58900")
     (100 . "#a58e00")
     (120 . "#9d9100")
     (140 . "#959300")
     (160 . "#8d9600")
     (180 . "#859900")
     (200 . "#669b32")
     (220 . "#579d4c")
     (240 . "#489e65")
     (260 . "#399f7e")
     (280 . "#2aa198")
     (300 . "#2898af")
     (320 . "#2793ba")
     (340 . "#268fc6")
     (360 . "#268bd2"))))
 '(vc-annotate-very-old-color nil)
 '(weechat-color-list
   (quote
    (unspecified "#002b36" "#073642" "#990A1B" "#dc322f" "#546E00" "#859900" "#7B6000" "#b58900" "#00629D" "#268bd2" "#93115C" "#d33682" "#00736F" "#2aa198" "#839496" "#657b83")))
 '(when
      (or
       (not
	(boundp
	 (quote ansi-term-color-vector)))
       (not
	(facep
	 (aref ansi-term-color-vector 0))))))
(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 "DejaVu Sans Mono" :foundry "PfEd" :slant normal :weight normal :height 120 :width normal)))))