fiddlerwoaroof/dotfiles - Change HGGMS7P6BRIGWP6DZS3KLRXQPRETMB2GUULCQZAED6IYD5ENK2DQC

Miscellaneous changes

git-update-repos added amongst other things
emacs startup time optimizations

Created by Ed Langley on March 1, 2018

HGGMS7P6BRIGWP6DZS3KLRXQPRETMB2GUULCQZAED6IYD5ENK2DQC

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]
Replacement in zsh/zsh_plugins/dependencies/utils.zsh at line 1 [5.20747]
B:BD[5.20747] → [6.997:1017]
```
#:depends-on:foobar
```
[5.20747]
[5.20748]
```
interactive_echo() {
  case "$-" in
    *i*) echo $*
  esac
}
```
Insertion in zsh/zsh_plugins/dependencies/foobar.zsh at line 1 [7.46]
[7.46]
```
echo foobar
```
Insertion in zsh/zsh_plugins/dependencies/detect-gnu.zsh at line 1 [8.1897]
[8.1897]
[8.1898]
```
#:depends-on:utils
```
Replacement in zsh/zsh_plugins/dependencies/detect-gnu.zsh at line 4 [8.1897]
B:BD[8.1942] → [8.1942:1975]
```
echo the platform is "$platform"
```
[8.1942]
[8.1975]
```
interactive_echo the platform is "$platform"
```
Insertion in zsh/zsh_plugins/99-interaction.zsh at line 4 [10.1143]
[9.1650]
[8.2460]

Insertion in zsh/zsh_plugins/01-git.zsh at line 2 [12.145]

[11.25]

[5.18415]


git-update-repos() {
  find . -name .git | (
    while read -r repo; do
      printf "---\n$repo\n";
      git --work-tree="${repo%/*}" --git-dir="$repo" pull --ff-only ;
      printf "\n\n"
    done
  )
}

Insertion in zsh/zsh_plugins/00-aaa.zsh at line 1 [7.476]
[7.476]
[9.1702]
```
#:depends-on:path-setup
```

Replacement in zsh/zsh_plugins/00-aaa.zsh at line 10 [7.476]

∅:D[13.222] → [7.790:874]

B:BD[7.790] → [7.790:874]

echo "shell session started for $USER on $TTY at `date`" | tee /dev/stderr | logger

[13.222]

[7.874]


interactive_echo "shell session started for $USER on $TTY at `date`" | tee /dev/stderr | logger

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

[14.152]

(require 'cl)
(defun op--collect-args (body)
  (cl-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))
(defun blank-line-p ()
  (= (current-indentation)
     (- (line-end-position) (line-beginning-position))))
(defun helm-generate-lisp-skeleton ()
  (interactive)
  (let ((skeletons '(("defunction" . skel-defun)
                     ("defmacro" . skel-defmacro)
                     ("defsystem" . skel-defsystem)
                     ("defpackage" . skel-defpackage)
                     ("defparameter" . skel-defparameter)
                     ("defvar" . skel-defvar))))
    (funcall (helm-comp-read "code template: " skeletons))
    (evil-insert 1)))
(defun create-system-files ()
    (interactive)
    (mapcar (lambda (it) (save-buffer (find-file (format "%s.lisp" (cadr it)))))
            (getf (cddar (read-from-string
                          (buffer-substring (point)
                                            (mark))))
                  :components)))
(defun slime-ecl ()
  (interactive)
  (let ((inferior-lisp-program "ecl"))
    (slime)))
(defun slime-cmucl ()
  (interactive)
  (let ((inferior-lisp-program "cmucl"))
    (slime)))
(defun slime-sbcl ()
  (interactive)
  (let ((inferior-lisp-program "sbcl"))
    (slime)))
(defun slime-ccl ()
  (interactive)
  (let ((inferior-lisp-program "ccl"))
    (slime)))
(defun find-use-clause (current-form)
  (when current-form
    (destructuring-bind (discriminator . packages) current-form
      (case discriminator
        (:use (remove-if (op (or (eql :cl _)))
                         (cdr current-form)))
        (defpackage (find-use-clause
                     (find-if (lambda (f)
                                (and (listp f)
                                     (eql (car f) :use)))
                              '(defpackage :tracking-sim (:use :cl :alexandria :serapeum) (:export)))))))))
(defun load-package-uses ()
  (interactive)
  (slime-eval-async `(ql:quickload ',(find-use-clause (list-at-point)))))
(defun paredit-wiggle-back ()
  (paredit-forward)
  (paredit-backward))
(defmacro defparedit-wrapper (name invoked-wrapper)
  `(defun ,name ()
     (interactive)
     (paredit-wiggle-back)
     (,invoked-wrapper)))
(defun set-exec-path-from-shell-PATH ()
  "Set up Emacs' `exec-path' and PATH environment variable to match
that used by the user's shell.
  This is particularly useful under Mac OSX, where GUI apps are not
started from a shell."
  (interactive)
  (let ((path-from-shell
         (replace-regexp-in-string "[ \t\n]*$" ""
                                   (shell-command-to-string
                                    "zsh -c 'source ~/.zsh.d/dependencies/utils.zsh;source ~/.zsh.d/dependencies/path-setup.zsh;echo $PATH'")
)))
    (setenv "PATH" path-from-shell)
    (setq exec-path (split-string path-from-shell path-separator))))

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

[14.152]

;;; cjpad.el --- Skeletons for interacting with cjpad
;; Copyright (C) 2017 Edward Langley
;; Author: Edward Langley <fwoar@elangley.org>
;; Keywords: cjpad
;; Version: 0.0.1
;; 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/>.
;;; Commentary:
;; Put a description of the package here
;;; Code:
;; code goes here
(defun extract-pad-name (pad-url)
  (replace-regexp-in-string "^https?://cjpad.cj.com/\\([^/]+\\)/?$"
                            "\\1"
                            pad-url))
(defun get-pad-url (name)
  (format "http://cjpad.cj.com/ep/pad/export/%s/latest?format=txt"
          name))
(defun convert-to-export (pad-url)
  (format "http://cjpad.cj.com/ep/pad/export/%s/latest?format=txt"
          (extract-pad-name pad-url)))
(defvar *cjpad-exports* "~/cjpad-imports/")
(defun get-cjpad (pad-name)
  (interactive "M")
  (let ((file-name (format "%s%s" *cjpad-exports* pad-name))
        (pad-url (get-pad-url pad-name)))
    (with-current-buffer (url-retrieve-synchronously (get-pad-url pad-name))
      (write-region nil nil file-name))
    (find-file file-name)))
(defun import-cjpad (s e)
  (interactive "r")
  (message "=============================")
  (let* ((pad-url (buffer-substring s e)))
    (get-cjpad (extract-pad-name pad-url))
    (save-excursion
      (end-of-line)
      (insert " [" file-name "]")
      (message "foo")))
  (message "============================="))
(defun update-cjpad-file (fn)
  (interactive "F")
  (message fn)
  (let* ((pad-name (file-name-base fn))
         (pad-url (get-pad-url pad-name))
         (file-name (format "%s%s" *cjpad-exports* pad-name)))
    (with-current-buffer (url-retrieve-synchronously pad-url)
      (write-region nil nil file-name))))
(defun update-cjpad ()
  (interactive)
  (update-cjpad-file (buffer-file-name (current-buffer))))
(defun browse-cjpad ()
  (interactive)
  (browse-url (format "http://cjpad.cj.com/%s"
                      (file-name-base (buffer-file-name (current-buffer))))))
(provide 'cjpad)

Replacement in emacs.d/init.el at line 1 [15.136]

B:BD[15.136] → [16.1123:1189]

;;;; -*- mode: Emacs-Lisp;tab-width: 8;indent-tabs-mode: nil; -*-

[15.136]

[15.167]

;; -*- mode: Emacs-Lisp;tab-width: 8;indent-tabs-mode: nil; -*-
(setq gc-cons-threshold 100000000)
(message invocation-name)
(setq inhibit-splash-screen t)
(setq inhibit-startup-message t)
;;(let ((file-name-handler-alist nil))
(add-hook 'after-init-hook
          (lambda ()
            ;; (require 'projectile)
            ;; (require 'evil-numbers)
            (unless (fboundp 'server-running-p)
              (require 'server))
            (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)

Insertion in emacs.d/init.el at line 31 [15.136]
[15.168]
[17.436]
```
            ))
```
Deletion in emacs.d/init.el at line 37 [15.136]
∅:D[17.536] → [15.168:246]
B:BD[15.168] → [15.168:246]
```
(setq default-directory "~/emacs-home/")
(make-directory default-directory t)
```

Replacement in emacs.d/init.el at line 41 [15.136]

B:BD[15.378] → [15.378:425]

  (normal-top-level-add-subdirs-to-load-path))

[15.378]

[15.425]

  (normal-top-level-add-subdirs-to-load-path)
  (load "utils"))
(setq default-directory "~/emacs-home/")
(make-directory default-directory t)

Insertion in emacs.d/init.el at line 51 [15.136]
[15.474]
[15.474]
Insertion in emacs.d/init.el at line 66 [15.136]
[15.1022]
[15.1022]

Insertion in emacs.d/init.el at line 69 [15.136]

[15.1045]

(use-package color-theme :ensure t)
(use-package zenburn-theme :ensure t)
(color-theme-initialize)
(load-theme 'zenburn t)

Insertion in emacs.d/init.el at line 78 [15.136]

[18.3396]

[15.1085]

  (advice-add 'evil-delete-marks :after
              (lambda (&rest args)
                (evil-visual-mark-render)))

Replacement in emacs.d/init.el at line 83 [15.136]
B:BD[15.1143] → [15.1143:1210]
B:BD[16.1458] → [16.1458:1459]
∅:D[19.560] → [20.136:137]
∅:D[16.2194] → [20.136:137]
B:BD[15.1805] → [20.136:137]
```
  (define-key evil-insert-state-map (kbd "TAB") 'company-complete)
```
[15.1143]
[20.137]
```
  (define-key evil-insert-state-map (kbd "TAB") 'company-indent-or-complete-common)
  (evil-mode)
```

Replacement in emacs.d/init.el at line 91 [15.136]

B:BD[20.237] → [20.237:410]

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

[20.237]

[20.410]


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

Insertion in emacs.d/init.el at line 109 [15.136]

[19.562]

(use-package emmet-mode
  :ensure t
  :config
  (define-key evil-insert-state-map (kbd "C-c ,") 'emmet-expand-line)
  )

Replacement in emacs.d/init.el at line 116 [15.136]

B:BD[19.590] → [19.590:659]

    :config
    (add-hook 'skeleton-end-hook 'skeleton-make-markers)

[19.590]

[19.659]

  :config
  (add-hook 'skeleton-end-hook 'skeleton-make-markers)

Insertion in emacs.d/init.el at line 119 [15.136]

[19.660]

[17.537]

  (define-key evil-insert-state-map (kbd "C-c j") 'skeleton-next-position)
  (define-key evil-insert-state-map (kbd "C-c k") 'skeleton-prev-position)
  (define-key evil-normal-state-map " g" 'helm-generate-lisp-skeleton)
  (define-key evil-visual-state-map " g" 'helm-generate-lisp-skeleton))

Deletion in emacs.d/init.el at line 124 [15.136]

∅:D[17.538] → [19.660:1453]

B:BD[19.660] → [19.660:1453]

∅:D[20.618] → [15.1809:1810]

∅:D[19.1453] → [15.1809:1810]

B:BD[15.1809] → [15.1809:1810]

    (defun helm-generate-lisp-skeleton ()
      (interactive)
      (let ((skeletons '(("defunction" . skel-defun)
                         ("defmacro" . skel-defmacro)
                         ("defsystem" . skel-defsystem)
                         ("defpackage" . skel-defpackage)
                         ("defparameter" . skel-defparameter)
                         ("defvar" . skel-defvar))))
        (funcall (helm-comp-read "code template: " skeletons))
        (evil-insert 1)))
    
    (define-key evil-insert-state-map (kbd "C-c j") 'skeleton-next-position)
    (define-key evil-insert-state-map (kbd "C-c k") 'skeleton-prev-position)
    (define-key evil-normal-state-map " g" 'helm-generate-lisp-skeleton)
    (define-key evil-visual-state-map " g" 'helm-generate-lisp-skeleton))

Replacement in emacs.d/init.el at line 139 [15.136]

B:BD[15.2150] → [15.2150:2316]

;;;;; SLIME SETUP {{{
(progn ;slime isn't loaded via use-package because quicklisp-helper keeps it uptodate
  (load (expand-file-name "~/quicklisp/slime-helper.el"))

[15.2150]

[18.3456]

 ;;;;; SLIME SETUP {{{
(use-package slime-company
  :no-require t
  :ensure t)

Replacement in emacs.d/init.el at line 144 [15.136]

B:BD[18.3457] → [18.3457:3665]

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

[18.3457]

[15.2316]

(load (expand-file-name "~/quicklisp/slime-helper.el"))

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

B:BD[15.2317] → [15.2317:2423]

  ;; Replace "sbcl" with the path to your implementation
  (setq inferior-lisp-program "~/sbcl/bin/sbcl")

[15.2317]

[16.2195]

(run-with-idle-timer
 5 nil  ;slime isn't loaded via use-package because quicklisp-helper keeps it uptodate
 (lambda ()

Replacement in emacs.d/init.el at line 150 [15.136]

B:BD[16.2196] → [16.2196:2509]

  (defun create-system-files ()
    (interactive)
    (mapcar (lambda (it) (save-buffer (find-file (format "%s.lisp" (cadr it)))))
            (getf (cddar (read-from-string
                          (buffer-substring (point)
                                            (mark))))
                  :components)))

[16.2196]

[15.2423]

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

Replacement in emacs.d/init.el at line 155 [15.136]

B:BD[15.2424] → [15.2424:2521]

  (defun slime-ecl ()
    (interactive)
    (let ((inferior-lisp-program "ecl"))
      (slime)))

[15.2424]

[15.2521]

   ;; Replace "sbcl" with the path to your implementation
   (setq inferior-lisp-program "~/sbcl/bin/sbcl")

Replacement in emacs.d/init.el at line 158 [15.136]

B:BD[15.2522] → [15.2522:2623]

  (defun slime-cmucl ()
    (interactive)
    (let ((inferior-lisp-program "cmucl"))
      (slime)))

[15.2522]

[15.2623]

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

Replacement in emacs.d/init.el at line 173 [15.136]

B:BD[15.2624] → [15.2624:2723]

  (defun slime-sbcl ()
    (interactive)
    (let ((inferior-lisp-program "sbcl"))
      (slime)))

[15.2624]

[15.2723]

   (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 ?@ "w" lisp-mode-syntax-table)

Replacement in emacs.d/init.el at line 186 [15.136]

B:BD[15.2724] → [15.2724:2821]

  (defun slime-ccl ()
    (interactive)
    (let ((inferior-lisp-program "ccl"))
      (slime)))

[15.2724]

[15.2821]

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

Replacement in emacs.d/init.el at line 191 [15.136]

B:BD[15.2822] → [15.2822:2850]

B:BD[15.2850] → [16.2510:2810]

∅:D[16.2810] → [15.3094:3117]

B:BD[15.3094] → [15.3094:3117]

B:BD[15.3117] → [16.2811:2939]

∅:D[16.2939] → [15.3210:3278]

B:BD[15.3210] → [15.3210:3278]

  (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)))
(use-package slime-company
  :no-require t
  :defer t
  :ensure t)

[15.2822]

[15.3278]

))

Replacement in emacs.d/init.el at line 193 [15.136]
B:BD[15.3279] → [15.3279:3289]
```
;;;;; }}}
```
[15.3279]
[15.3289]
```
 ;;;;; }}}
```
Replacement in emacs.d/init.el at line 195 [15.136]
B:BD[15.3310] → [15.3310:3322]
```
  :ensure t
```
[15.3310]
[15.3322]
```
  :defer 5
```
Replacement in emacs.d/init.el at line 204 [15.136]
B:BD[15.3682] → [15.3682:3726]
```
  (message "backends: %s" company-backends)
```
[15.3682]
[15.3726]
```
  ;;(message "backends: %s" company-backends)
```
Deletion in emacs.d/init.el at line 221 [15.136]
B:BD[15.4009] → [15.4009:4054]
```
;; NOTE: this must be here...
(slime-setup)
```
Deletion in emacs.d/init.el at line 222 [15.136]
B:BD[15.4055] → [15.4055:4080]
```
(global-company-mode 1)
```

Insertion in emacs.d/init.el at line 226 [15.136]

[17.597]

   'lisp '("*.asd"))
  
  (projectile-register-project-type

Deletion in emacs.d/init.el at line 234 [15.136]

∅:D[17.715] → [15.4117:4252]

B:BD[15.4117] → [15.4117:4252]

B:BD[15.4252] → [17.716:749]


(use-package sbt-mode
  :ensure t
  :pin melpa-stable)
(use-package scala-mode
  :ensure t
  :pin melpa-stable)
(use-package ensime
  :ensure t
  :pin melpa-stable)

Replacement in emacs.d/init.el at line 235 [15.136]

B:BD[15.4266] → [15.4266:4299]

(use-package intero
  :ensure t)

[15.4266]

[15.4299]

(defmacro ensure-use-packages (&rest packages)
  (list* 'progn
         (mapcar (op `(use-package ,_
                        :ensure t))
                 packages)))

Replacement in emacs.d/init.el at line 241 [15.136]

B:BD[15.4300] → [15.4300:4337]

;; (use-package jdee
;;   :ensure t)

[15.4300]

[15.4337]

(use-package css-eldoc :ensure t)
(use-package ag :ensure t)
(use-package rainbow-delimiters :ensure t)
(use-package helm :ensure t)
(use-package helm-projectile :ensure t)
(use-package eldoc-eval :ensure t)
(use-package csv-mode :ensure t)
(use-package yaml-mode :ensure t)
(use-package web-mode :ensure t)
(use-package vue-mode :ensure t)
(use-package scss-mode :ensure t)
(use-package markdown-mode :ensure t)
(use-package magit :ensure t :defer 2)
(use-package highlight-parentheses :ensure t)
(use-package helm-projectile :ensure t)
(use-package helm-ls-git :ensure t)
(use-package helm-css-scss :ensure t)
;;(use-package ac-js2 :ensure t)
;;(use-package helm-cider :ensure t :defer 5)
(use-package helm-ag-r :ensure t)
(use-package helm-ag :ensure t)
(use-package project-explorer :ensure t)

Deletion in emacs.d/init.el at line 264 [15.136]
B:BD[15.4338] → [15.4338:4368]
```
(use-package mvn
  :ensure t)
```

Replacement in emacs.d/init.el at line 265 [15.136]

B:BD[15.4369] → [15.4369:4754]

(use-package css-eldoc
  :ensure t)
(use-package ag
  :ensure t)
(use-package evil-vimish-fold
  :ensure t
  :config
  (evil-vimish-fold-mode 1))
(use-package zenburn-theme
  :ensure t)
(use-package zeal-at-point
  :ensure t)
(use-package rainbow-delimiters
  :ensure t)
(use-package tabbar
  :ensure t)
(use-package helm
  :ensure t)
(use-package helm-projectile
  :ensure t)

[15.4369]

[15.4754]

(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)
  (global-set-key (kbd "M-x") 'helm-M-x))

Deletion in emacs.d/init.el at line 273 [15.136]
B:BD[15.4755] → [15.4755:4803]
```
(use-package evil-visual-mark-mode
  :ensure t)
```

Deletion in emacs.d/init.el at line 274 [15.136]

B:BD[15.4804] → [15.4804:4842]

B:BD[15.4842] → [16.3567:3642]

∅:D[16.3642] → [15.4903:4990]

B:BD[15.4903] → [15.4903:4990]

(advice-add 'evil-delete-marks :after
            (lambda (&rest args)
              (evil-visual-mark-render)))
(use-package evil-nerd-commenter
  :ensure t
  :config
  (evilnc-default-hotkeys t))

Deletion in emacs.d/init.el at line 277 [15.136]

B:BD[15.5033] → [15.5033:5266]

  (defun paredit-wiggle-back ()
    (paredit-forward)
    (paredit-backward))
  (defmacro defparedit-wrapper (name invoked-wrapper)
    `(defun ,name ()
       (interactive)
       (paredit-wiggle-back)
       (,invoked-wrapper)))

Deletion in emacs.d/init.el at line 282 [15.136]
B:BD[15.5590] → [15.5590:5591]
Deletion in emacs.d/init.el at line 299 [15.136]
B:BD[15.6820] → [15.6820:6858]
```
(use-package eldoc-eval
  :ensure t)
```

Deletion in emacs.d/init.el at line 303 [15.136]

B:BD[15.6931] → [15.6931:7666]


(use-package csv-mode
  :ensure t)
(use-package color-theme
  :ensure t)
(use-package ansible
  :ensure t)
(use-package alect-themes
  :ensure t)
(use-package ac-js2
  :ensure t)
(use-package yaml-mode
  :ensure t)
(use-package web-mode
  :ensure t)
(use-package vue-mode
  :ensure t)
(use-package typescript-mode
  :ensure t)
(use-package scss-mode
  :ensure t)
(use-package rust-mode
  :ensure t)
(use-package  markdown-mode
  :ensure t)
(use-package magit
  :ensure t)
(use-package highlight-parentheses
  :ensure t)
(use-package helm-projectile
  :ensure t)
(use-package helm-ls-git
  :ensure t)
;;(use-package helm-git
;;  :ensure t)
(use-package helm-css-scss
  :ensure t)
(use-package helm-cider
  :ensure t)

Deletion in emacs.d/init.el at line 304 [15.136]

B:BD[15.7667] → [15.7667:7725]

B:BD[15.7805] → [15.7805:7843]

B:BD[15.7843] → [18.3666:3762]

∅:D[18.3762] → [15.7856:8746]

B:BD[15.7856] → [15.7856:8746]

B:BD[15.8771] → [15.8771:8902]

(use-package helm-ag-r
  :ensure t)
(use-package helm-ag
  :ensure t)
(use-package emmet-mode
  :ensure t
  :config
  (define-key evil-insert-state-map (kbd "C-c ,") 'emmet-expand-line)
  )
(use-package project-explorer
  :ensure t
  )
(use-package ggtags
  :ensure t
  :config
  (ggtags-mode 1)
  (add-hook 'c-mode-common-hook
	    (lambda ()
	      (when (derived-mode-p 'c-mode 'c++-mode 'java-mode 'asm-mode)
		(ggtags-mode 1)))))
(use-package pollen-mode
  :config
  (defun insert-lozenge ()
    (interactive)
    (insert-char 9674))
  (define-key evil-insert-state-map (kbd "C-c C-l") 'insert-lozenge))
(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)
  (global-set-key (kbd "M-x") 'helm-M-x))
(require 'js2-mode)
(require 'projectile)
(projectile-mode)
(add-hook 'after-init-hook
	  (lambda ()
	    (unless (server-running-p)
	      (server-start))
	    (evil-mode)
	    (paredit-mode)
	    (global-company-mode)
	    (global-linum-mode)))
(progn ; linum
  (setq linum-format "%5d\u2502"))
(require 'evil-numbers)

Replacement in emacs.d/init.el at line 306 [15.136]

B:BD[15.8956] → [15.8956:10103]

(define-key evil-normal-state-map ",zz" 'zeal-at-point)
(modify-syntax-entry ?_ "w" js-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 ?> "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)

[15.8956]

[15.10103]

;;(modify-syntax-entry ?_ "w" js-mode-syntax-table)

Deletion in emacs.d/init.el at line 310 [15.136]

B:BD[15.10220] → [15.10220:10356]

B:BD[15.10717] → [15.10717:12175]


(let ((default-directory  "~/.emacs.d/lisp/"))
  (make-directory default-directory t)
  (normal-top-level-add-subdirs-to-load-path))
(setq erc-hide-list '("JOIN" "PART" "QUIT"))
;; (defun znc-erc ()
;;   (interactive)
;;   (erc-ssl :server "localhost" :port 6697 :nick "edwlan/freenode" :password "t31ch3rtb"))
(add-to-list 'auto-mode-alist '("\\.cljs\\.hl\\'" . clojurescript-mode))
(add-hook 'ruby-mode-hook
	  '(lambda ()
	     (eldoc-mode)
	     (robe-mode)))
(add-hook 'clojure-mode-hook
	  '(lambda ()
	     ;; Hoplon functions and macros
	     (paredit-mode)
	     (define-key evil-insert-state-map "^N" 'helm-cider-apropos)
	     (dolist (pair '((page . 'defun)
			     (loop-tpl . 'defun)
			     (if-tpl . '1)
			     (for-tpl . '1)
			     (case-tpl . '1)
			     (cond-tpl . 'defun)))
	       (put-clojure-indent (car pair)
				   (car (last pair))))))
(setq tls-program '("openssl s_client -connect %h:%p -no_ssl2 -ign_eof"))
(global-auto-revert-mode t)
 ;;; Use auto-complete for ensime
(defun scala/enable-eldoc ()
  "Show error message or type name at point by Eldoc."
  (setq-local eldoc-documentation-function
	      #'(lambda ()
		  (when (ensime-connected-p)
		    (let ((err (ensime-print-errors-at-point)))
		      (or (and err (not (string= err "")) err)
			  (ensime-print-type-at-point))))))
  (eldoc-mode +1))
(defun scala/completing-dot-company ()
  (cond (company-backend
	 (company-complete-selection)
	 (scala/completing-dot))
	(t
	 (insert ".")
	 (company-complete))))
(defun scala/completing-dot-ac ()
  (insert ".")
  (ac-trigger-key-command t))

Replacement in emacs.d/init.el at line 311 [15.136]
B:BD[15.12176] → [15.12176:12200]
```
;; Interactive commands
```
[15.12176]
[15.12200]
```
;;)
```

Deletion in emacs.d/init.el at line 313 [15.136]

B:BD[15.12201] → [15.12201:14173]

(defun scala/completing-dot ()
  "Insert a period and show company completions."
  (interactive "*")
  (eval-and-compile (require 'ensime))
  (eval-and-compile (require 's))
  (when (s-matches? (rx (+ (not space)))
		    (buffer-substring (line-beginning-position) (point)))
    (delete-horizontal-space t))
  (cond ((not (and (ensime-connected-p) ensime-completion-style))
	 (insert "."))
	((eq ensime-completion-style 'company)
	 (scala/completing-dot-company))
	((eq ensime-completion-style 'auto-complete)
	 (scala/completing-dot-ac))))
;; Initialization
(add-hook 'ensime-mode-hook #'scala/enable-eldoc)
(add-hook 'scala-mode-hook 'ensime-scala-mode-hook)
(add-hook 'scala-mode-hook 'flycheck-mode)
(add-hook 'haskell-mode-hook 'intero-mode)
(add-hook 'c-mode-common-hook
	  (lambda ()
	    (when (derived-mode-p 'c-mode 'c++-mode 'java-mode)
	      (semantic-mode 1)
	      
	      (global-semanticdb-minor-mode 1)
	      (global-semantic-idle-scheduler-mode 1)
	      (global-semantic-stickyfunc-mode 1)
	      
	      (helm-gtags-mode)
	      (ggtags-mode 1))))
(setq company-backends (delete 'company-semantic company-backends))
(defun alexott/cedet-hook ()
  (local-set-key "\C-c\C-j" 'semantic-ia-fast-jump)
  (local-set-key "\C-c\C-s" 'semantic-ia-show-summary))
(add-hook 'c-mode-common-hook 'alexott/cedet-hook)
(add-hook 'c-mode-hook 'alexott/cedet-hook)
(add-hook 'c++-mode-hook 'alexott/cedet-hook)
(defun set-exec-path-from-shell-PATH ()
  "Set up Emacs' `exec-path' and PATH environment variable to match that used by the user's shell.
 
 This is particularly useful under Mac OSX, where GUI apps are not started from a shell."
  (interactive)
  (let ((path-from-shell (replace-regexp-in-string "[ \t\n]*$" "" (shell-command-to-string "$SHELL --login -i -c 'echo $PATH'"))))
    (setenv "PATH" path-from-shell)
    (setq exec-path (split-string path-from-shell path-separator))))
(set-exec-path-from-shell-PATH)
(require 'ede)
(global-ede-mode)

Insertion in emacs.d/init.el at line 316 [15.136]
[21.288]
[21.288]
```
(setq gc-cons-threshold (* 100 1024))
```

Insertion in emacs.d/init.el at line 318 [15.136]

[21.289]

(setq fwoar.is-ordinary (not (string= invocation-name "EmacsNotes")))
(unless fwoar.is-ordinary
  (setq with-editor-emacsclient-executable "/usr/local/bin/emacsclient")
  (require 'cjpad)
  (find-file "~/notes.org"))

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

[14.152]

(require 'cl)
(defun op--collect-args (body)
  (cl-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))
(defun blank-line-p ()
  (= (current-indentation)
     (- (line-end-position) (line-beginning-position))))
(defun helm-generate-lisp-skeleton ()
  (interactive)
  (let ((skeletons '(("defunction" . skel-defun)
                     ("defmacro" . skel-defmacro)
                     ("defsystem" . skel-defsystem)
                     ("defpackage" . skel-defpackage)
                     ("defparameter" . skel-defparameter)
                     ("defvar" . skel-defvar))))
    (funcall (helm-comp-read "code template: " skeletons))
    (evil-insert 1)))
(defun create-system-files ()
    (interactive)
    (mapcar (lambda (it) (save-buffer (find-file (format "%s.lisp" (cadr it)))))
            (getf (cddar (read-from-string
                          (buffer-substring (point)
                                            (mark))))
                  :components)))
(defun slime-ecl ()
  (interactive)
  (let ((inferior-lisp-program "ecl"))
    (slime)))
(defun slime-cmucl ()
  (interactive)
  (let ((inferior-lisp-program "cmucl"))
    (slime)))
(defun slime-sbcl ()
  (interactive)
  (let ((inferior-lisp-program "sbcl"))
    (slime)))
(defun slime-ccl ()
  (interactive)
  (let ((inferior-lisp-program "ccl"))
    (slime)))
(defun find-use-clause (current-form)
  (when current-form
    (destructuring-bind (discriminator . packages) current-form
      (case discriminator
        (:use (remove-if (op (or (eql :cl _)))
                         (cdr current-form)))
        (defpackage (find-use-clause
                     (find-if (lambda (f)
                                (and (listp f)
                                     (eql (car f) :use)))
                              '(defpackage :tracking-sim (:use :cl :alexandria :serapeum) (:export)))))))))
(defun load-package-uses ()
  (interactive)
  (slime-eval-async `(ql:quickload ',(find-use-clause (list-at-point)))))
(defun paredit-wiggle-back ()
  (paredit-forward)
  (paredit-backward))
(defmacro defparedit-wrapper (name invoked-wrapper)
  `(defun ,name ()
     (interactive)
     (paredit-wiggle-back)
     (,invoked-wrapper)))
(defun set-exec-path-from-shell-PATH ()
  "Set up Emacs' `exec-path' and PATH environment variable to match
that used by the user's shell.
  This is particularly useful under Mac OSX, where GUI apps are not
started from a shell."
  (interactive)
  (let ((path-from-shell
         (replace-regexp-in-string "[ \t\n]*$" ""
                                   (shell-command-to-string
                                    "zsh -c 'source ~/.zsh.d/dependencies/utils.zsh;source ~/.zsh.d/dependencies/path-setup.zsh;echo $PATH'")
)))
    (setenv "PATH" path-from-shell)
    (setq exec-path (split-string path-from-shell path-separator))))

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

[14.152]

;;; cjpad.el --- Skeletons for interacting with cjpad
;; Copyright (C) 2017 Edward Langley
;; Author: Edward Langley <fwoar@elangley.org>
;; Keywords: cjpad
;; Version: 0.0.1
;; 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/>.
;;; Commentary:
;; Put a description of the package here
;;; Code:
;; code goes here
(defun extract-pad-name (pad-url)
  (replace-regexp-in-string "^https?://cjpad.cj.com/\\([^/]+\\)/?$"
                            "\\1"
                            pad-url))
(defun get-pad-url (name)
  (format "http://cjpad.cj.com/ep/pad/export/%s/latest?format=txt"
          name))
(defun convert-to-export (pad-url)
  (format "http://cjpad.cj.com/ep/pad/export/%s/latest?format=txt"
          (extract-pad-name pad-url)))
(defvar *cjpad-exports* "~/cjpad-imports/")
(defun get-cjpad (pad-name)
  (interactive "M")
  (let ((file-name (format "%s%s" *cjpad-exports* pad-name))
        (pad-url (get-pad-url pad-name)))
    (with-current-buffer (url-retrieve-synchronously (get-pad-url pad-name))
      (write-region nil nil file-name))
    (find-file file-name)))
(defun import-cjpad (s e)
  (interactive "r")
  (message "=============================")
  (let* ((pad-url (buffer-substring s e)))
    (get-cjpad (extract-pad-name pad-url))
    (save-excursion
      (end-of-line)
      (insert " [" file-name "]")
      (message "foo")))
  (message "============================="))
(defun update-cjpad-file (fn)
  (interactive "F")
  (message fn)
  (let* ((pad-name (file-name-base fn))
         (pad-url (get-pad-url pad-name))
         (file-name (format "%s%s" *cjpad-exports* pad-name)))
    (with-current-buffer (url-retrieve-synchronously pad-url)
      (write-region nil nil file-name))))
(defun update-cjpad ()
  (interactive)
  (update-cjpad-file (buffer-file-name (current-buffer))))
(defun browse-cjpad ()
  (interactive)
  (browse-url (format "http://cjpad.cj.com/%s"
                      (file-name-base (buffer-file-name (current-buffer))))))
(provide 'cjpad)

Miscellaneous changes

Dependencies

In channels

Change contents

File deletion: dependencies, dependencies

Replacement in zsh/zsh_plugins/dependencies/utils.zsh at line 1 [5.20747]

Insertion in zsh/zsh_plugins/dependencies/foobar.zsh at line 1 [7.46]

Insertion in zsh/zsh_plugins/dependencies/detect-gnu.zsh at line 1 [8.1897]

Replacement in zsh/zsh_plugins/dependencies/detect-gnu.zsh at line 4 [8.1897]

Insertion in zsh/zsh_plugins/99-interaction.zsh at line 4 [10.1143]

Insertion in zsh/zsh_plugins/01-git.zsh at line 2 [12.145]

Insertion in zsh/zsh_plugins/00-aaa.zsh at line 1 [7.476]

Replacement in zsh/zsh_plugins/00-aaa.zsh at line 10 [7.476]

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

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

Replacement in emacs.d/init.el at line 1 [15.136]

Insertion in emacs.d/init.el at line 31 [15.136]

Deletion in emacs.d/init.el at line 37 [15.136]

Replacement in emacs.d/init.el at line 41 [15.136]

Insertion in emacs.d/init.el at line 51 [15.136]

Insertion in emacs.d/init.el at line 66 [15.136]

Insertion in emacs.d/init.el at line 69 [15.136]

Insertion in emacs.d/init.el at line 78 [15.136]

Replacement in emacs.d/init.el at line 83 [15.136]

Replacement in emacs.d/init.el at line 91 [15.136]

Insertion in emacs.d/init.el at line 109 [15.136]

Replacement in emacs.d/init.el at line 116 [15.136]

Insertion in emacs.d/init.el at line 119 [15.136]

Deletion in emacs.d/init.el at line 124 [15.136]

Replacement in emacs.d/init.el at line 139 [15.136]

Replacement in emacs.d/init.el at line 144 [15.136]

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

Replacement in emacs.d/init.el at line 150 [15.136]

Replacement in emacs.d/init.el at line 155 [15.136]

Replacement in emacs.d/init.el at line 158 [15.136]

Replacement in emacs.d/init.el at line 173 [15.136]

Replacement in emacs.d/init.el at line 186 [15.136]

Replacement in emacs.d/init.el at line 191 [15.136]

Replacement in emacs.d/init.el at line 193 [15.136]

Replacement in emacs.d/init.el at line 195 [15.136]

Replacement in emacs.d/init.el at line 204 [15.136]

Deletion in emacs.d/init.el at line 221 [15.136]

Deletion in emacs.d/init.el at line 222 [15.136]

Insertion in emacs.d/init.el at line 226 [15.136]

Deletion in emacs.d/init.el at line 234 [15.136]

Replacement in emacs.d/init.el at line 235 [15.136]

Replacement in emacs.d/init.el at line 241 [15.136]

Deletion in emacs.d/init.el at line 264 [15.136]

Replacement in emacs.d/init.el at line 265 [15.136]

Deletion in emacs.d/init.el at line 273 [15.136]

Deletion in emacs.d/init.el at line 274 [15.136]

Deletion in emacs.d/init.el at line 277 [15.136]

Deletion in emacs.d/init.el at line 282 [15.136]

Deletion in emacs.d/init.el at line 299 [15.136]

Deletion in emacs.d/init.el at line 303 [15.136]

Deletion in emacs.d/init.el at line 304 [15.136]

Replacement in emacs.d/init.el at line 306 [15.136]

Deletion in emacs.d/init.el at line 310 [15.136]

Replacement in emacs.d/init.el at line 311 [15.136]

Deletion in emacs.d/init.el at line 313 [15.136]

Insertion in emacs.d/init.el at line 316 [15.136]

Insertion in emacs.d/init.el at line 318 [15.136]

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

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