fiddlerwoaroof/dotfiles - Change IOXOZB2VUXVUEINLFBT4SPSJV32X5ZFT5FKSVRAIEXEFQJLG6MHQC

Continued modularization

Created by Ed Langley on September 14, 2018

IOXOZB2VUXVUEINLFBT4SPSJV32X5ZFT5FKSVRAIEXEFQJLG6MHQC

Dependencies

In channels

main

Change contents

File deletion: dependencies, dependencies
BFD:BFD[3.1] → [4.129:152]
BFD:BFD[3.1] → [4.129:152]
BFD:BFD[4.152] → [4.128:128]

File deletion: utils.el

BF:BFD[5.131] → [6.2229:2261]

BF:BFD[6.2261] → [6.1495:1495]

B:BD[6.1495] → [6.1496:2228]

(defun op--collect-args (body)
  (flet ((walker (body &optional args)
                 (if (null body)
                     args
                   (if (symbolp body)
                       (when (eql ?\_ (elt (symbol-name body) 0))
                         (cons body args))
                     (if (listp body)
                         (append (op--collect-args (car body))
                                 (op--collect-args (cdr body))
                                 ))))))
    (sort (walker body)
          (lambda (a b)
            (< (string-to-number (subseq (symbol-name a) 1))
               (string-to-number (subseq (symbol-name b) 1)))))))
(defmacro op (&rest body)
  `(lambda ,(op--collect-args body)
     ,@body))

File deletion: utils.el

BF:BFD[5.131] → [6.3366:3398]

BF:BFD[6.3398] → [6.2632:2632]

B:BD[6.2632] → [6.2633:3365]

(defun op--collect-args (body)
  (flet ((walker (body &optional args)
                 (if (null body)
                     args
                   (if (symbolp body)
                       (when (eql ?\_ (elt (symbol-name body) 0))
                         (cons body args))
                     (if (listp body)
                         (append (op--collect-args (car body))
                                 (op--collect-args (cdr body))
                                 ))))))
    (sort (walker body)
          (lambda (a b)
            (< (string-to-number (subseq (symbol-name a) 1))
               (string-to-number (subseq (symbol-name b) 1)))))))
(defmacro op (&rest body)
  `(lambda ,(op--collect-args body)
     ,@body))

File deletion: el-zenburn-theme.el

BF:BFD[5.131] → [2.8174:8217]

BF:BFD[2.8217] → [2.6489:6489]

B:BD[2.6489] → [2.6490:8173]

(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)

File deletion: el-zenburn-theme.el

BF:BFD[5.131] → [2.9955:9998]

BF:BFD[2.9998] → [2.8270:8270]

B:BD[2.8270] → [2.8271:9954]

(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)

Insertion in emacs.d/lisp/utils.el at line 123 [7.629]

[2.815]


(defun post-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))
            ;;;;; }}}
  ;; (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))
(defun cold-boot ()
  (setq fwoar.is-ordinary (not (string= invocation-name "EmacsNotes")))
  (add-hook 'after-init-hook 'post-init)
  (when (file-exists-p "/usr/local/bin/gls")
    (setq insert-directory-program "/usr/local/bin/gls"))
  (setq default-directory "~/emacs-home/")
  (make-directory default-directory t)
  (setq vc-follow-symlinks t)
  (require 'package)
  (setq package-archives '(("gnu" . "http://elpa.gnu.org/packages/")
                           ("org" . "http://orgmode.org/elpa/")
                           ("melpa" . "https://melpa.org/packages/")
                           ("melpa-stable" . "http://stable.melpa.org/packages/"))
        package-archive-priorities '(("melpa-stable" . 1)
                                     ("gnu" . 0)
                                     ("melpa" . 2)
                                     ("org" . 3)))
  (package-initialize)
  (when (not (package-installed-p 'use-package))
    (package-refresh-contents)
    (package-install 'use-package))
  (setq browse-url-browser-function
        'eww-browse-url)
  (require 'use-package))

File addition: el-zenburn-theme.el (----------)

[5.152]

;;; el-zenburn-theme.el --- A low contrast color theme for Emacs.
;; Copyright (C) 2018- Edward Langley
;; Author: Edward Langley <el@nowhere.example.com>
;; URL: http://nowhere.example.com
;; Package-Version: 20180913.2210
;; Version: 0.1
(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)

File addition: configurations (d--x------)
[5.152]

File addition: slime.el (----------)

[0.4163]

;;;; SLIME SETUP {{{
;; (load (expand-file-name "~/quicklisp/slime-helper.el"))
(add-to-list 'load-path "~/git_repos/3dp/slime/")
(require 'slime)
(use-package slime-company
  :ensure t)
(global-set-key (kbd "C-c x") 'slime-export-symbol-at-point)
(when (and (boundp 'common-lisp-hyperspec-root)
           (string-prefix-p "/" common-lisp-hyperspec-root))
  (setq common-lisp-hyperspec-root
        (concat "file://" common-lisp-hyperspec-root)))
;; Replace "sbcl" with the path to your implementation
(setq inferior-lisp-program "~/sbcl/bin/sbcl")
(add-hook 'lisp-mode-hook
          '(lambda ()
             ;;(define-key evil-insert-state-map "^N" 'slime-fuzzy-indent-and-complete-symbol)
             ;; (unless (string= "*slime-scratch*" (buffer-name))
             ;;   (paredit-mode)
             ;;   (evil-paredit-mode))
             (rainbow-delimiters-mode))) 
(setq slime-contribs
      '(slime-fancy
        slime-company
        slime-macrostep
        slime-trace-dialog
        slime-mdot-fu))
(modify-syntax-entry ?- "w" lisp-mode-syntax-table)
(modify-syntax-entry ?* "w" lisp-mode-syntax-table)
(modify-syntax-entry ?+ "w" lisp-mode-syntax-table)
(modify-syntax-entry ?! "w" lisp-mode-syntax-table)
(modify-syntax-entry ?$ "w" lisp-mode-syntax-table)
(modify-syntax-entry ?% "w" lisp-mode-syntax-table)
(modify-syntax-entry ?& "w" lisp-mode-syntax-table)
(modify-syntax-entry ?% "w" lisp-mode-syntax-table)
(modify-syntax-entry ?= "w" lisp-mode-syntax-table)
(modify-syntax-entry ?< "w" lisp-mode-syntax-table)
(modify-syntax-entry ?> "w" lisp-mode-syntax-table)
(modify-syntax-entry 91 "(" lisp-mode-syntax-table)
(modify-syntax-entry 93 ")" lisp-mode-syntax-table)
;;(modify-syntax-entry ?@ "w" lisp-mode-syntax-table)
(modify-syntax-entry ?^ "w" lisp-mode-syntax-table)
(modify-syntax-entry ?_ "w" lisp-mode-syntax-table)
(modify-syntax-entry ?~ "w" lisp-mode-syntax-table)
(modify-syntax-entry ?. "w" lisp-mode-syntax-table)
(setq shr-inhibit-images t
      shr-use-fonts nil)
(defun fwoar--clhs-lookup (&rest args)
  (let ((browse-url-browser-function 'eww-browse-url))
    (hyperspec-lookup (word-at-point))))
(pushnew (list ?h "Check hyperspec" #'fwoar--clhs-lookup)
         slime-selector-methods
         :key #'car)
(defun fwoar--slime-find-system ()
  (let ((systems (directory-files
                  (locate-dominating-file default-directory
                                          (lambda (n)
                                            (directory-files n nil "^[^.#][^#]*[.]asd$")))
                  t "^[^.#][^#]*[.]asd$")))
    (find-file (if (not (null (cdr systems)))
                   (helm-comp-read "system:" systems)
                 (car systems)))))
(pushnew (list ?S "Goto System" #'fwoar--slime-find-system)
         slime-selector-methods
         :key #'car)
 ;;;;; }}}

File addition: evil.el (----------)

[0.4163]

(use-package evil
  :ensure t
  :config
  (advice-add 'evil-delete-marks :after
              (lambda (&rest args)
                (evil-visual-mark-render)))
  (evil-define-key 'normal lisp-mode-map " o" 'slime-selector)
  (define-key evil-insert-state-map (kbd "TAB") 'company-indent-or-complete-common)
  (evil-mode)
  (use-package evil-smartparens
    :ensure t
    :after smartparens
    :config
    (evil-smartparens-mode 1)
    (progn ;; wrapping
      (define-key evil-normal-state-map ",W" 'sp-wrap-round)
      (define-key evil-normal-state-map ",w(" 'sp-wrap-round)
      (define-key evil-normal-state-map ",w)" 'sp-wrap-round)
      (define-key evil-normal-state-map ",w{" 'sp-wrap-curly)
      (define-key evil-normal-state-map ",w}" 'sp-wrap-curly)
      (define-key evil-normal-state-map ",w[" 'sp-wrap-square)
      (define-key evil-normal-state-map ",w]" 'sp-wrap-square))
    (progn ;; splicing
      (define-key evil-normal-state-map ",S" 'sp-splice-sexp)
      (define-key evil-normal-state-map ",A" 'sp-splice-sexp-killing-backward)
      (define-key evil-normal-state-map ",D" 'sp-splice-sexp-killing-forward)
      (define-key evil-normal-state-map ",F" 'sp-splice-sexp-killing-around))
    (progn ;; barf/slurp
      (define-key evil-normal-state-map ",," 'sp-backward-barf-sexp)
      (define-key evil-normal-state-map ",." 'sp-forward-barf-sexp)
      (define-key evil-normal-state-map ",<" 'sp-backward-slurp-sexp)
      (define-key evil-normal-state-map ",>" 'sp-forward-slurp-sexp))
    (progn ;; misc
      (define-key evil-normal-state-map ",~" 'sp-convolute-sexp)
      (define-key evil-normal-state-map ",a" 'sp-absorb-sexp)
      (define-key evil-normal-state-map ",e" 'sp-emit-sexp)
      (define-key evil-normal-state-map ",`" 'sp-clone-sexp)
      (define-key evil-normal-state-map ",J" 'sp-join-sexp)
      (define-key evil-normal-state-map ",|" 'sp-split-sexp))
    (progn ;; narrowing
      (define-key evil-normal-state-map " n(" 'sp-narrow-to-sexp)
      (define-key evil-normal-state-map " n)" 'sp-narrow-to-sexp)
      (define-key evil-normal-state-map " nn" 'narrow-to-defun)
      (define-key evil-normal-state-map " nr" 'narrow-to-region)
      (define-key evil-normal-state-map " nw" 'widen)))
  (progn ;; navigation
    (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 " u" 'undo-tree-visualize))
  (progn ;; completion
    (define-key evil-normal-state-map (kbd "TAB") 'company-indent-or-complete-common)
    (define-key evil-insert-state-map (kbd "TAB") 'company-indent-or-complete-common))
  ;; (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
    :config (evil-leader/set-leader "ß")))

Deletion in emacs.d/init.el at line 6 [8.136]

B:BD[7.6977] → [2.855:1252]


(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))
            ;;;;; }}}

Deletion in emacs.d/init.el at line 7 [8.136]

B:BD[7.6978] → [2.1253:1786]

∅:D[2.1786] → [7.7017:7018]

B:BD[7.7017] → [7.7017:7018]

B:BD[7.7018] → [6.2267:2337]

B:BD[6.2337] → [2.1787:1824]

∅:D[2.1824] → [7.7652:7653]

B:BD[7.7652] → [7.7652:7653]

∅:D[7.7654] → [9.436:536]

B:BD[8.168] → [9.436:536]

  ;; (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))
(setq fwoar.is-ordinary (not (string= invocation-name "EmacsNotes")))
(add-hook 'after-init-hook 'do-init)
(when (file-exists-p "/usr/local/bin/gls")
  (setq insert-directory-program "/usr/local/bin/gls"))

Deletion in emacs.d/init.el at line 12 [8.136]
B:BD[7.7720] → [10.156:157]
B:BD[10.157] → [2.1825:1863]
```
(use-package smartparens
  :ensure t)
```
Replacement in emacs.d/init.el at line 13 [8.136]
B:BD[7.7721] → [7.7721:7799]
```
(setq default-directory "~/emacs-home/")
(make-directory default-directory t)
```
[7.7721]
[8.425]
```
(cold-boot)
```

Deletion in emacs.d/init.el at line 15 [8.136]

B:BD[8.426] → [8.426:474]

B:BD[8.474] → [7.7800:7801]

∅:D[7.7801] → [8.474:541]

B:BD[8.474] → [8.474:541]

B:BD[8.541] → [11.1190:1400]

∅:D[11.1400] → [8.688:1022]

B:BD[8.688] → [8.688:1022]

B:BD[8.1022] → [7.7802:7804]

∅:D[7.7804] → [8.1022:1045]

B:BD[8.1022] → [8.1022:1045]

(setq vc-follow-symlinks t)
(require 'package)
(setq package-archives '(("gnu" . "http://elpa.gnu.org/packages/")
                         ("org" . "http://orgmode.org/elpa/")
                         ("melpa" . "https://melpa.org/packages/")
                         ("melpa-stable" . "http://stable.melpa.org/packages/"))
      package-archive-priorities '(("melpa-stable" . 1)
                                   ("gnu" . 0)
                                   ("melpa" . 2)
                                   ("org" . 3)))
(package-initialize)
(when (not (package-installed-p 'use-package))
  (package-refresh-contents)
  (package-install 'use-package))
(require 'use-package)

Replacement in emacs.d/init.el at line 16 [8.136]

B:BD[7.7841] → [7.7841:7879]

B:BD[7.7879] → [2.1864:1904]

(use-package zenburn-theme :ensure t)
(load "~/.emacs.d/el-zenburn-theme.el")

[7.7841]

[7.7879]

;; (use-package zenburn-theme :ensure t)
(require 'el-zenburn-theme)

Replacement in emacs.d/init.el at line 25 [8.136]

B:BD[12.2904] → [12.2904:2981]

  (define-key evil-visual-state-map " m" 'mf/mirror-region-in-multifile)
  )

[12.2904]

[13.236]

  (define-key evil-visual-state-map " m" 'mf/mirror-region-in-multifile))

Replacement in emacs.d/init.el at line 52 [8.136]
B:BD[10.594] → [10.594:650]
B:BD[10.650] → [2.2822:2823]
∅:D[2.2823] → [10.1113:1118]
B:BD[10.1113] → [10.1113:1118]
```
  (define-key evil-visual-state-map " c" 'org-capture)
  )
```
[10.594]
[10.1118]
```
  (define-key evil-visual-state-map " c" 'org-capture))
```

Replacement in emacs.d/init.el at line 57 [8.136]

B:BD[10.1159] → [10.1159:1211]

  (define-key evil-normal-state-map " v" 'deft)
  )

[10.1159]

[10.1211]

  (define-key evil-normal-state-map " v" 'deft))

Replacement in emacs.d/init.el at line 62 [8.136]

B:BD[7.8381] → [7.8381:8455]

  (define-key evil-insert-state-map (kbd "C-c ,") 'emmet-expand-line)
  )

[7.8381]

[7.8455]

  (define-key evil-insert-state-map (kbd "C-c ,") 'emmet-expand-line))

Deletion in emacs.d/init.el at line 72 [8.136]
∅:D[7.8816] → [9.537:538]
B:BD[14.660] → [9.537:538]
B:BD[15.3398] → [15.3398:3455]
∅:D[15.3455] → [8.2149:2150]
B:BD[8.2149] → [8.2149:2150]
B:BD[8.2150] → [12.3121:3122]
∅:D[12.3122] → [16.156:177]
B:BD[8.2150] → [16.156:177]
B:BD[16.177] → [2.2824:2951]
∅:D[16.177] → [7.8840:8867]
∅:D[2.2951] → [7.8840:8867]
B:BD[7.8840] → [7.8840:8867]
B:BD[7.8883] → [7.8883:8896]
∅:D[7.8896] → [15.3456:3457]
B:BD[8.2316] → [15.3456:3457]
B:BD[12.3249] → [12.3249:3310]
∅:D[12.3310] → [8.2316:2317]
∅:D[15.3665] → [8.2316:2317]
∅:D[7.8953] → [8.2316:2317]
B:BD[8.2316] → [8.2316:2317]
B:BD[8.2317] → [12.3311:3511]
∅:D[12.3511] → [11.2195:2196]
∅:D[7.9074] → [11.2195:2196]
B:BD[8.2423] → [11.2195:2196]
B:BD[11.2196] → [12.3512:3614]
```
(setq browse-url-browser-function
      'eww-browse-url)
;;;; SLIME SETUP {{{
;; (load (expand-file-name "~/quicklisp/slime-helper.el"))
(add-to-list 'load-path "~/git_repos/3dp/slime/")
(require 'slime)
(use-package slime-company
  :ensure t)
(global-set-key (kbd "C-c x") 'slime-export-symbol-at-point)
(when (and (boundp 'common-lisp-hyperspec-root)
           (string-prefix-p "/" common-lisp-hyperspec-root))
  (setq common-lisp-hyperspec-root
        (concat "file://" common-lisp-hyperspec-root)))
;; Replace "sbcl" with the path to your implementation
(setq inferior-lisp-program "~/sbcl/bin/sbcl")
```

Replacement in emacs.d/init.el at line 73 [8.136]

B:BD[8.2424] → [12.3615:3758]

B:BD[12.3758] → [2.2952:3090]

∅:D[2.3090] → [12.3887:3929]

B:BD[12.3887] → [12.3887:3929]

(add-hook 'lisp-mode-hook
          '(lambda ()
             ;;(define-key evil-insert-state-map "^N" 'slime-fuzzy-indent-and-complete-symbol)
             ;; (unless (string= "*slime-scratch*" (buffer-name))
             ;;   (paredit-mode)
             ;;   (evil-paredit-mode))
             (rainbow-delimiters-mode)))

[8.2424]

[8.2521]

(load-package-configuration 'slime)

Deletion in emacs.d/init.el at line 75 [8.136]

B:BD[8.2522] → [12.3930:4068]

∅:D[12.4068] → [8.2623:2624]

∅:D[7.9892] → [8.2623:2624]

B:BD[8.2623] → [8.2623:2624]

∅:D[7.10555] → [8.2723:2724]

B:BD[8.2723] → [8.2723:2724]

B:BD[8.2724] → [12.4069:4799]

∅:D[12.4799] → [10.1324:1325]

B:BD[7.10776] → [10.1324:1325]

B:BD[10.1325] → [12.4800:5878]

∅:D[12.5878] → [10.1805:1806]

B:BD[10.1805] → [10.1805:1806]

∅:D[10.1928] → [8.2821:2822]

∅:D[7.10776] → [8.2821:2822]

B:BD[8.2821] → [8.2821:2822]

∅:D[7.10783] → [8.3278:3279]

B:BD[8.3278] → [8.3278:3279]

B:BD[8.3279] → [7.10784:10795]

(setq slime-contribs
      '(slime-fancy
        slime-company
        slime-macrostep
        slime-trace-dialog
        slime-mdot-fu))
(modify-syntax-entry ?- "w" lisp-mode-syntax-table)
(modify-syntax-entry ?* "w" lisp-mode-syntax-table)
(modify-syntax-entry ?+ "w" lisp-mode-syntax-table)
(modify-syntax-entry ?! "w" lisp-mode-syntax-table)
(modify-syntax-entry ?$ "w" lisp-mode-syntax-table)
(modify-syntax-entry ?% "w" lisp-mode-syntax-table)
(modify-syntax-entry ?& "w" lisp-mode-syntax-table)
(modify-syntax-entry ?% "w" lisp-mode-syntax-table)
(modify-syntax-entry ?= "w" lisp-mode-syntax-table)
(modify-syntax-entry ?< "w" lisp-mode-syntax-table)
(modify-syntax-entry ?> "w" lisp-mode-syntax-table)
(modify-syntax-entry 91 "(" lisp-mode-syntax-table)
(modify-syntax-entry 93 ")" lisp-mode-syntax-table)
;;(modify-syntax-entry ?@ "w" lisp-mode-syntax-table)
(modify-syntax-entry ?^ "w" lisp-mode-syntax-table)
(modify-syntax-entry ?_ "w" lisp-mode-syntax-table)
(modify-syntax-entry ?~ "w" lisp-mode-syntax-table)
(modify-syntax-entry ?. "w" lisp-mode-syntax-table)
(setq shr-inhibit-images t
      shr-use-fonts nil)
(defun fwoar--clhs-lookup (&rest args)
  (let ((browse-url-browser-function 'eww-browse-url))
    (hyperspec-lookup (word-at-point))))
(pushnew (list ?h "Check hyperspec" #'fwoar--clhs-lookup)
         slime-selector-methods
         :key #'car)
(defun fwoar--slime-find-system ()
  (let ((systems (directory-files
                  (locate-dominating-file default-directory
                                          (lambda (n)
                                            (directory-files n nil "^[^.#][^#]*[.]asd$")))
                  t "^[^.#][^#]*[.]asd$")))
    (find-file (if (not (null (cdr systems)))
                   (helm-comp-read "system:" systems)
                 (car systems)))))
(pushnew (list ?S "Goto System" #'fwoar--slime-find-system)
         slime-selector-methods
         :key #'car)
 ;;;;; }}}

Insertion in emacs.d/init.el at line 143 [8.136]
[10.1950]
[10.1950]
```
 ;;(ac-js2)
 (ag)
```
Replacement in emacs.d/init.el at line 146 [8.136]
B:BD[10.1963] → [10.1963:1991]
```
 (ag)
 (rainbow-delimiters)
```
[10.1963]
[10.1991]
```
 (csv-mode)
 (eldoc-eval)
```

Insertion in emacs.d/init.el at line 149 [8.136]

[10.1999]

 (helm-ag)
 (helm-ag-r)
 ;;(helm-cider :defer 5)
 (helm-css-scss)
 (helm-ls-git)

Deletion in emacs.d/init.el at line 155 [8.136]

B:BD[10.2018] → [10.2018:2154]

 (eldoc-eval)
 (csv-mode)
 (yaml-mode)
 (web-mode)
 (vue-mode)
 (scss-mode)
 (markdown-mode)
 (magit :defer 2)
 (highlight-parentheses)

Replacement in emacs.d/init.el at line 156 [8.136]

B:BD[10.2173] → [10.2173:2287]

 (helm-ls-git)
 (helm-css-scss)
 ;;(ac-js2)
 ;;(helm-cider :defer 5)
 (helm-ag-r)
 (helm-ag)
 (project-explorer))

[10.2173]

[8.4337]

 (highlight-parentheses)
 (magit :defer 2)
 (markdown-mode)
 (project-explorer)
 (rainbow-delimiters)
 (scss-mode)
 (smartparens :ensure t)
 (vue-mode)
 (web-mode)
 (yaml-mode))

Insertion in emacs.d/init.el at line 297 [8.136]

[2.6486]


(message (format "s-c-c is: %s" slime-company-completion))

File addition: el-zenburn-theme.el (----------)

[5.152]

;;; el-zenburn-theme.el --- A low contrast color theme for Emacs.
;; Copyright (C) 2018- Edward Langley
;; Author: Edward Langley <el@nowhere.example.com>
;; URL: http://nowhere.example.com
;; Package-Version: 20180913.2210
;; Version: 0.1
(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)

File addition: slime.el (----------)

[0.4163]

;;;; SLIME SETUP {{{
;; (load (expand-file-name "~/quicklisp/slime-helper.el"))
(add-to-list 'load-path "~/git_repos/3dp/slime/")
(require 'slime)
(use-package slime-company
  :ensure t)
(global-set-key (kbd "C-c x") 'slime-export-symbol-at-point)
(when (and (boundp 'common-lisp-hyperspec-root)
           (string-prefix-p "/" common-lisp-hyperspec-root))
  (setq common-lisp-hyperspec-root
        (concat "file://" common-lisp-hyperspec-root)))
;; Replace "sbcl" with the path to your implementation
(setq inferior-lisp-program "~/sbcl/bin/sbcl")
(add-hook 'lisp-mode-hook
          '(lambda ()
             ;;(define-key evil-insert-state-map "^N" 'slime-fuzzy-indent-and-complete-symbol)
             ;; (unless (string= "*slime-scratch*" (buffer-name))
             ;;   (paredit-mode)
             ;;   (evil-paredit-mode))
             (rainbow-delimiters-mode))) 
(setq slime-contribs
      '(slime-fancy
        slime-company
        slime-macrostep
        slime-trace-dialog
        slime-mdot-fu))
(modify-syntax-entry ?- "w" lisp-mode-syntax-table)
(modify-syntax-entry ?* "w" lisp-mode-syntax-table)
(modify-syntax-entry ?+ "w" lisp-mode-syntax-table)
(modify-syntax-entry ?! "w" lisp-mode-syntax-table)
(modify-syntax-entry ?$ "w" lisp-mode-syntax-table)
(modify-syntax-entry ?% "w" lisp-mode-syntax-table)
(modify-syntax-entry ?& "w" lisp-mode-syntax-table)
(modify-syntax-entry ?% "w" lisp-mode-syntax-table)
(modify-syntax-entry ?= "w" lisp-mode-syntax-table)
(modify-syntax-entry ?< "w" lisp-mode-syntax-table)
(modify-syntax-entry ?> "w" lisp-mode-syntax-table)
(modify-syntax-entry 91 "(" lisp-mode-syntax-table)
(modify-syntax-entry 93 ")" lisp-mode-syntax-table)
;;(modify-syntax-entry ?@ "w" lisp-mode-syntax-table)
(modify-syntax-entry ?^ "w" lisp-mode-syntax-table)
(modify-syntax-entry ?_ "w" lisp-mode-syntax-table)
(modify-syntax-entry ?~ "w" lisp-mode-syntax-table)
(modify-syntax-entry ?. "w" lisp-mode-syntax-table)
(setq shr-inhibit-images t
      shr-use-fonts nil)
(defun fwoar--clhs-lookup (&rest args)
  (let ((browse-url-browser-function 'eww-browse-url))
    (hyperspec-lookup (word-at-point))))
(pushnew (list ?h "Check hyperspec" #'fwoar--clhs-lookup)
         slime-selector-methods
         :key #'car)
(defun fwoar--slime-find-system ()
  (let ((systems (directory-files
                  (locate-dominating-file default-directory
                                          (lambda (n)
                                            (directory-files n nil "^[^.#][^#]*[.]asd$")))
                  t "^[^.#][^#]*[.]asd$")))
    (find-file (if (not (null (cdr systems)))
                   (helm-comp-read "system:" systems)
                 (car systems)))))
(pushnew (list ?S "Goto System" #'fwoar--slime-find-system)
         slime-selector-methods
         :key #'car)
 ;;;;; }}}

File addition: evil.el (----------)

[0.4163]

(use-package evil
  :ensure t
  :config
  (advice-add 'evil-delete-marks :after
              (lambda (&rest args)
                (evil-visual-mark-render)))
  (evil-define-key 'normal lisp-mode-map " o" 'slime-selector)
  (define-key evil-insert-state-map (kbd "TAB") 'company-indent-or-complete-common)
  (evil-mode)
  (use-package evil-smartparens
    :ensure t
    :after smartparens
    :config
    (evil-smartparens-mode 1)
    (progn ;; wrapping
      (define-key evil-normal-state-map ",W" 'sp-wrap-round)
      (define-key evil-normal-state-map ",w(" 'sp-wrap-round)
      (define-key evil-normal-state-map ",w)" 'sp-wrap-round)
      (define-key evil-normal-state-map ",w{" 'sp-wrap-curly)
      (define-key evil-normal-state-map ",w}" 'sp-wrap-curly)
      (define-key evil-normal-state-map ",w[" 'sp-wrap-square)
      (define-key evil-normal-state-map ",w]" 'sp-wrap-square))
    (progn ;; splicing
      (define-key evil-normal-state-map ",S" 'sp-splice-sexp)
      (define-key evil-normal-state-map ",A" 'sp-splice-sexp-killing-backward)
      (define-key evil-normal-state-map ",D" 'sp-splice-sexp-killing-forward)
      (define-key evil-normal-state-map ",F" 'sp-splice-sexp-killing-around))
    (progn ;; barf/slurp
      (define-key evil-normal-state-map ",," 'sp-backward-barf-sexp)
      (define-key evil-normal-state-map ",." 'sp-forward-barf-sexp)
      (define-key evil-normal-state-map ",<" 'sp-backward-slurp-sexp)
      (define-key evil-normal-state-map ",>" 'sp-forward-slurp-sexp))
    (progn ;; misc
      (define-key evil-normal-state-map ",~" 'sp-convolute-sexp)
      (define-key evil-normal-state-map ",a" 'sp-absorb-sexp)
      (define-key evil-normal-state-map ",e" 'sp-emit-sexp)
      (define-key evil-normal-state-map ",`" 'sp-clone-sexp)
      (define-key evil-normal-state-map ",J" 'sp-join-sexp)
      (define-key evil-normal-state-map ",|" 'sp-split-sexp))
    (progn ;; narrowing
      (define-key evil-normal-state-map " n(" 'sp-narrow-to-sexp)
      (define-key evil-normal-state-map " n)" 'sp-narrow-to-sexp)
      (define-key evil-normal-state-map " nn" 'narrow-to-defun)
      (define-key evil-normal-state-map " nr" 'narrow-to-region)
      (define-key evil-normal-state-map " nw" 'widen)))
  (progn ;; navigation
    (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 " u" 'undo-tree-visualize))
  (progn ;; completion
    (define-key evil-normal-state-map (kbd "TAB") 'company-indent-or-complete-common)
    (define-key evil-insert-state-map (kbd "TAB") 'company-indent-or-complete-common))
  ;; (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
    :config (evil-leader/set-leader "ß")))

Continued modularization

Dependencies

In channels

Change contents

File deletion: dependencies, dependencies

File deletion: utils.el

File deletion: utils.el

File deletion: el-zenburn-theme.el

File deletion: el-zenburn-theme.el

Insertion in emacs.d/lisp/utils.el at line 123 [7.629]

File addition: el-zenburn-theme.el (----------)

File addition: configurations (d--x------)

File addition: slime.el (----------)

File addition: evil.el (----------)

Deletion in emacs.d/init.el at line 6 [8.136]

Deletion in emacs.d/init.el at line 7 [8.136]

Deletion in emacs.d/init.el at line 12 [8.136]

Replacement in emacs.d/init.el at line 13 [8.136]

Deletion in emacs.d/init.el at line 15 [8.136]

Replacement in emacs.d/init.el at line 16 [8.136]

Replacement in emacs.d/init.el at line 25 [8.136]

Replacement in emacs.d/init.el at line 52 [8.136]

Replacement in emacs.d/init.el at line 57 [8.136]

Replacement in emacs.d/init.el at line 62 [8.136]

Deletion in emacs.d/init.el at line 72 [8.136]

Replacement in emacs.d/init.el at line 73 [8.136]

Deletion in emacs.d/init.el at line 75 [8.136]

Insertion in emacs.d/init.el at line 143 [8.136]

Replacement in emacs.d/init.el at line 146 [8.136]

Insertion in emacs.d/init.el at line 149 [8.136]

Deletion in emacs.d/init.el at line 155 [8.136]

Replacement in emacs.d/init.el at line 156 [8.136]

Insertion in emacs.d/init.el at line 297 [8.136]

File addition: el-zenburn-theme.el (----------)

File addition: slime.el (----------)

File addition: evil.el (----------)