5FLRDDUAB7NCOKJKK57IVQBETGX7JTT7GVKFT46ORSZ7OJ7Q2UFQC
IUA6MCZWWCFQ4EJ4GBWYAPLM4IE7SFB34CGSJJTBVOAFTSL4EDEAC
RXCY7LD6ZRIOIKZEYKLMCYPMQPXF4DOEEFBDLVR2B22BXLZJFFBQC
A3TVGLVHSVLMEHLHB3TPBSD3QGNVGX3DIK6BEBDTTHWBNW4ALMRAC
HGGMS7P6BRIGWP6DZS3KLRXQPRETMB2GUULCQZAED6IYD5ENK2DQC
IOVPOFAVXEQIZ7BCFVVAWFW3RYFXPK2GOILDWA6N6QHQHLAJ4XTAC
PZ5HUCRXCTUXIKAFUFDGMVSZVV4MIDZ2EE7OC3TBZTTQ7HZCMUYAC
ABDQA6HCTOUQXY5IDGDTCDBR5DA2WAHUWHBS5EIRYNUJNQCM6GOQC
QHGU5YX5J6OFWM2QH6ZVCMW5J4MVPPK5JGESEYKJZXFN2NEYQOCQC
NWXFEA3LHLS5YE6BUVB2IXMIA6ARTVH5PU3FD4I4M5UCDYMC6INAC
NLKO2HJ55FV76MQCUCSJBSSZFI4NK6ROLQ323F2RDFDTLU5IFLDQC
DZNNVEMP3EYFGAEFWMBSMPU55VQT7QVAVNNOG473CN3FAT4TTARQC
YZB5M5LUC7P6UJQTLIX45W4EDXOT4PUXQ4J5UEELFXWQTW2XTB2QC
XJLV3OIIPQ6V6YHJGFI7RRDYI5MXTXCXSVKPOZFUOGMV4B2DEJSQC
77GFHLOOX3JBBHHHSSR7TFOMOFUCIT5P6A7PQQOVNCZULXKMERMAC
ZIZORUH6UNA67S6DRRGGCTSOCYENTHGODHJ5JP3UUPLIKGYU5UVAC
(defmacro defparedit-wrapper (name invoked-wrapper)
`(defun ,name ()
(interactive)
(paredit-wiggle-back)
(,invoked-wrapper)))
(comment
(defun paredit-wiggle-back ()
(paredit-forward)
(paredit-backward))
(defmacro defparedit-wrapper (name invoked-wrapper)
`(defun ,name ()
(interactive)
(paredit-wiggle-back)
(,invoked-wrapper))))
(defun load-package-configuration (package)
(load (concat "~/.emacs.d/lisp/configurations/"
(symbol-name package)
".el")))
(defmacro ensure-use-packages (&rest packages)
(list* 'progn
(mapcar (lambda (pck)
`(use-package ,(car pck)
:ensure t
,@(cdr pck)))
packages)))
(defun do-init ()
;;;;; INDENTATION SETUP {{{
(progn
(setq-default indent-tabs-mode nil
tab-width 2)
(defvaralias 'c-basic-offset 'tab-width)
(defvaralias 'sh-basic-offset 'tab-width)
(defvaralias 'js2-basic-offset 'tab-width)
(defvaralias 'sgml-basic-offset 'tab-width)
(defvaralias 'cperl-indent-level 'tab-width))
;;;;; }}}
;;(let ((file-name-handler-alist nil))
;; (require 'projectile)
;; (require 'evil-numbers)
(unless (fboundp 'server-running-p)
(require 'server))
(let ((server-name (if fwoar.is-ordinary
server-name
"notes")))
(unless (server-running-p)
(server-start)))
(projectile-mode)
(evil-mode)
;; (paredit-mode)
;;(global-company-mode)
;; (setq linum-format "%5d\u2502")
(global-linum-mode)
(set-exec-path-from-shell-PATH)
;; NOTE: this must be here...
(global-company-mode 1)
(slime-setup))
(add-hook 'after-init-hook
(lambda ()
;; (require 'projectile)
;; (require 'evil-numbers)
(unless (fboundp 'server-running-p)
(require 'server))
(let ((server-name (if fwoar.is-ordinary
server-name
"notes")))
(unless (server-running-p)
(server-start)))
(projectile-mode)
(evil-mode)
(paredit-mode)
;;(global-company-mode)
;; (setq linum-format "%5d\u2502")
(global-linum-mode)
(set-exec-path-from-shell-PATH)
;; NOTE: this must be here...
(slime-setup)
(global-company-mode 1)
))
(add-hook 'after-init-hook 'do-init)
;(use-package erc
; :config
; (add-hook 'erc-insert-post-hook 'erc-truncate-buffer))
(use-package evil
:ensure t
:config
(advice-add 'evil-delete-marks :after
(lambda (&rest args)
(evil-visual-mark-render)))
(define-key evil-normal-state-map " o" 'slime-selector)
(define-key evil-insert-state-map (kbd "TAB") 'company-indent-or-complete-common)
(evil-mode)
(use-package evil-paredit
:ensure t
:after paredit
:config
(evil-paredit-mode))
;;(use-package evil-numbers
;; :ensure t
;; :config
;; (global-set-key (kbd "C-c +") 'evil-numbers/inc-at-pt)
;; (global-set-key (kbd "C-c -") 'evil-numbers/dec-at-pt))
(use-package evil-surround
:ensure t
:config
(global-evil-surround-mode))
(use-package evil-leader
:ensure t
:config
(global-evil-leader-mode)
(evil-leader/set-leader ",")))
(setq org-directory "~/org")
(setq org-default-notes-file (concat org-directory "/scratch.org"))
(setq org-directory "~/org"
org-default-notes-file (concat org-directory "/scratch.org")
org-refile-use-outline-path 'file
org-outline-path-complete-in-steps nil
org-capture-templates '(("t" "Todo" entry (file+headline "~/org/gtd.org" "Tasks")
"* TODO %?\n %i\n %a")
("j" "Journal" entry (file+olp+datetree "~/org/journal.org")
"* %?\nEntered on %U\n %i\n %a")
("s" "Snippet" entry (file "~/org/snippets.org")
"* %?\n#+BEGIN_SRC\n%i\n#+END_SRC")
("b" "Bookmarks" entry (file+olp+datetree "~/org/bookmarks.org")
"* %? %^g\n%c\n"))
org-refile-targets '((nil . (:maxlevel . 2))))
(setq org-capture-templates
'(("t" "Todo" entry (file+headline "~/org/gtd.org" "Tasks")
"* TODO %?\n %i\n %a")
("j" "Journal" entry (file+olp+datetree "~/org/journal.org")
"* %?\nEntered on %U\n %i\n %a")
("s" "Snippet" entry (file "~/org/snippets.org")
"* %?\n#+BEGIN_SRC\n%i\n#+END_SRC")
("b" "Bookmarks" entry (file+olp+datetree "~/org/bookmarks.org")
"* %? %^g\n%c\n")))
;;;;; INDENTATION SETUP {{{
(progn
(setq-default indent-tabs-mode nil
tab-width 2)
(defvaralias 'c-basic-offset 'tab-width)
(defvaralias 'sh-basic-offset 'tab-width)
(defvaralias 'js2-basic-offset 'tab-width)
(defvaralias 'sgml-basic-offset 'tab-width)
(defvaralias 'cperl-indent-level 'tab-width))
;;;;; }}}
(add-hook 'cider-mode-hook 'rainbow-delimiters-mode)
(add-hook 'cider-mode-hook 'evil-paredit-mode)
(add-hook 'cider-mode-hook 'paredit-mode)
(evil-define-key 'normal clojure-mode-map " '" 'helm-cider-apropos)
(evil-define-key 'normal clojure-mode-map " o" 'cider-selector)
(evil-define-key 'normal cider-repl-mode-map " o" 'cider-selector)
(add-hook 'cider-mode-hook
(lambda ()
(rainbow-delimiters-mode)
;; (evil-paredit-mode)
;; (paredit-mode)
(aggressive-indent-mode)
(helm-cider-mode)))
(progn ; helm
(require 'helm-config)
(helm-mode)
(global-set-key (kbd "C-x C-f") 'helm-find-files)
(define-key evil-normal-state-map " f" 'helm-projectile)
(define-key evil-normal-state-map " j" 'helm-buffers-list)
(define-key evil-normal-state-map " s" 'helm-occur)
(global-set-key (kbd "M-x") 'helm-M-x))
(use-package paredit
:ensure t
:config
(defparedit-wrapper back-then-wrap paredit-wrap-sexp)
(defparedit-wrapper back-then-wrap-square paredit-wrap-square)
(defparedit-wrapper back-then-wrap-curly paredit-wrap-curly)
(defparedit-wrapper back-then-wrap-angled paredit-wrap-angled)
(defparedit-wrapper back-then-wrap-doublequote paredit-meta-doublequote)
(define-key evil-normal-state-map ",W" 'back-then-wrap)
(define-key evil-normal-state-map ",w]" 'back-then-wrap-square)
(define-key evil-normal-state-map ",w}" 'back-then-wrap-curly)
(define-key evil-normal-state-map ",w>" 'back-then-wrap-angled)
(define-key evil-normal-state-map ",w\"" 'back-then-wrap-doublequote)
(progn ; helm
(require 'helm-config)
(helm-mode)
(global-set-key (kbd "C-x C-f") 'helm-find-files)
(define-key evil-normal-state-map " f" 'helm-projectile)
(define-key evil-normal-state-map " j" 'helm-buffers-list)
(define-key evil-normal-state-map " s" 'helm-occur)
(global-set-key (kbd "M-x") 'helm-M-x))
(define-key evil-normal-state-map ",S" 'paredit-splice-sexp)
(define-key evil-normal-state-map ",A" 'paredit-splice-sexp-killing-backward)
(define-key evil-normal-state-map ",D" 'paredit-splice-sexp-killing-forward)
(define-key evil-normal-state-map ",|" 'paredit-split-sexp)
(define-key evil-normal-state-map ",J" 'paredit-join-sexps)
(define-key evil-normal-state-map ",<" 'paredit-backward-slurp-sexp)
(define-key evil-normal-state-map ",," 'paredit-backward-barf-sexp)
(define-key evil-normal-state-map ",>" 'paredit-forward-slurp-sexp)
(define-key evil-normal-state-map ",." 'paredit-forward-barf-sexp)
(define-key evil-normal-state-map ",~" 'paredit-convolute-sexp))
;; (use-package ansi-term :no-require t
;; :config
;; (eval-after-load 'evil
;; (evil-set-initial-state 'term-mode 'emacs)))
;; (defun ansi-term-post (&rest r)
;; (message "Loading ansi term...")
;; (evil-set-initial-state 'term-mode 'emacs))
;; (advice-add 'ansi-term :after 'ansi-term-post)
;; (use-package org-brain :ensure t
;; :init
;; (setq org-brain-path "~/org-brain/")
;;
;; :config
;; ;; For Evil users
;; (eval-after-load 'evil
;; (evil-set-initial-state 'org-brain-visualize-mode 'emacs))
;;
;; (setq org-id-track-globally t)
;; (setq org-id-locations-file "~/.emacs.d/.org-id-locations")
;; (push '("b" "Brain" plain (function org-brain-goto-end)
;; "* %i%?" :empty-lines 1)
;; org-capture-templates)
;; (setq org-brain-visualize-default-choices 'all)
;; (setq org-brain-title-max-length 12))
;;;;; junk drawer ....
(comment
(use-package paredit
:ensure t
:config
(defparedit-wrapper back-then-wrap paredit-wrap-sexp)
(defparedit-wrapper back-then-wrap-square paredit-wrap-square)
(defparedit-wrapper back-then-wrap-curly paredit-wrap-curly)
(defparedit-wrapper back-then-wrap-angled paredit-wrap-angled)
(defparedit-wrapper back-then-wrap-doublequote paredit-meta-doublequote)
(define-key evil-normal-state-map ",W" 'back-then-wrap)
(define-key evil-normal-state-map ",w]" 'back-then-wrap-square)
(define-key evil-normal-state-map ",w}" 'back-then-wrap-curly)
(define-key evil-normal-state-map ",w>" 'back-then-wrap-angled)
(define-key evil-normal-state-map ",w\"" 'back-then-wrap-doublequote)
(define-key evil-normal-state-map ",S" 'paredit-splice-sexp)
(define-key evil-normal-state-map ",A" 'paredit-splice-sexp-killing-backward)
(define-key evil-normal-state-map ",D" 'paredit-splice-sexp-killing-forward)
(define-key evil-normal-state-map ",|" 'paredit-split-sexp)
(define-key evil-normal-state-map ",J" 'paredit-join-sexps)
(define-key evil-normal-state-map ",<" 'paredit-backward-slurp-sexp)
(define-key evil-normal-state-map ",," 'paredit-backward-barf-sexp)
(define-key evil-normal-state-map ",>" 'paredit-forward-slurp-sexp)
(define-key evil-normal-state-map ",." 'paredit-forward-barf-sexp)
(define-key evil-normal-state-map ",~" 'paredit-convolute-sexp))
(use-package erc
:config
(add-hook 'erc-insert-post-hook 'erc-truncate-buffer))
(use-package ansi-term :no-require t
:config
(eval-after-load 'evil
(evil-set-initial-state 'term-mode 'emacs)))
(defun ansi-term-post (&rest r)
(message "Loading ansi term...")
(evil-set-initial-state 'term-mode 'emacs))
(advice-add 'ansi-term :after 'ansi-term-post)
(use-package org-brain :ensure t
:init
(setq org-brain-path "~/org-brain/")
:config
;; For Evil users
(eval-after-load 'evil
(evil-set-initial-state 'org-brain-visualize-mode 'emacs))
(setq org-id-track-globally t)
(setq org-id-locations-file "~/.emacs.d/.org-id-locations")
(push '("b" "Brain" plain (function org-brain-goto-end)
"* %i%?" :empty-lines 1)
org-capture-templates)
(setq org-brain-visualize-default-choices 'all)
(setq org-brain-title-max-length 12)))
(deftheme el-zenburn
"Created 2018-09-13.")
(custom-theme-set-variables
'el-zenburn
'(ansi-color-faces-vector [default bold shadow italic underline bold bold-italic bold])
'(ansi-color-names-vector ["#3F3F3F" "#CC9393" "#7F9F7F" "#F0DFAF" "#8CD0D3" "#DC8CC3" "#93E0E3" "#DCDCCC"])
'(blink-matching-paren-distance 1024)
'(hl-paren-background-colors nil)
'(hl-paren-colors (quote ("yellow1" "gold1" "gold2" "gold3" "gold4")))
'(initial-frame-alist nil)
'(mac-command-modifier (quote super))
'(mac-option-modifier (quote meta))
'(nrepl-message-colors (quote ("#CC9393" "#DFAF8F" "#F0DFAF" "#7F9F7F" "#BFEBBF" "#93E0E3" "#94BFF3" "#DC8CC3"))))
(custom-theme-set-faces
'el-zenburn
'(default ((t (:inherit nil :stipple nil :background "#3F3F3F" :foreground "#DCDCCC" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight ultra-light :height 131 :width normal :foundry "nil" :family "Source Code Pro"))))
'(fringe ((t (:background "#3f3f3f" :foreground "#DCDCCC"))))
'(header-line ((t (:background "#2B2B2B" :foreground "#F0DFAF" :box nil))))
'(linum ((t (:foreground "gray45" :box nil :underline nil))))
'(mode-line ((t (:background "dark slate gray" :foreground "#8FB28F" :box nil))))
'(mode-line-highlight ((t nil)))
'(mode-line-inactive ((t (:background "slate gray" :foreground "#5F7F5F" :box nil))))
'(region ((t (:inverse-video t))))
'(show-paren-mismatch ((t (:background "#6F6F6F" :foreground "red" :weight bold))))
'(tool-bar ((t (:background "grey75" :foreground "black" :box nil))))
'(variable-pitch ((t (:family "Lato"))))
'(vertical-border ((t (:foreground "slate gray")))))
(provide-theme 'el-zenburn)
(deftheme el-zenburn
"Created 2018-09-13.")
(custom-theme-set-variables
'el-zenburn
'(ansi-color-faces-vector [default bold shadow italic underline bold bold-italic bold])
'(ansi-color-names-vector ["#3F3F3F" "#CC9393" "#7F9F7F" "#F0DFAF" "#8CD0D3" "#DC8CC3" "#93E0E3" "#DCDCCC"])
'(blink-matching-paren-distance 1024)
'(hl-paren-background-colors nil)
'(hl-paren-colors (quote ("yellow1" "gold1" "gold2" "gold3" "gold4")))
'(initial-frame-alist nil)
'(mac-command-modifier (quote super))
'(mac-option-modifier (quote meta))
'(nrepl-message-colors (quote ("#CC9393" "#DFAF8F" "#F0DFAF" "#7F9F7F" "#BFEBBF" "#93E0E3" "#94BFF3" "#DC8CC3"))))
(custom-theme-set-faces
'el-zenburn
'(default ((t (:inherit nil :stipple nil :background "#3F3F3F" :foreground "#DCDCCC" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight ultra-light :height 131 :width normal :foundry "nil" :family "Source Code Pro"))))
'(fringe ((t (:background "#3f3f3f" :foreground "#DCDCCC"))))
'(header-line ((t (:background "#2B2B2B" :foreground "#F0DFAF" :box nil))))
'(linum ((t (:foreground "gray45" :box nil :underline nil))))
'(mode-line ((t (:background "dark slate gray" :foreground "#8FB28F" :box nil))))
'(mode-line-highlight ((t nil)))
'(mode-line-inactive ((t (:background "slate gray" :foreground "#5F7F5F" :box nil))))
'(region ((t (:inverse-video t))))
'(show-paren-mismatch ((t (:background "#6F6F6F" :foreground "red" :weight bold))))
'(tool-bar ((t (:background "grey75" :foreground "black" :box nil))))
'(variable-pitch ((t (:family "Lato"))))
'(vertical-border ((t (:foreground "slate gray")))))
(provide-theme 'el-zenburn)