fiddlerwoaroof/dotfiles - Change IUA6MCZWWCFQ4EJ4GBWYAPLM4IE7SFB34CGSJJTBVOAFTSL4EDEAC

misc updates

Created by Ed Langley on September 7, 2018

IUA6MCZWWCFQ4EJ4GBWYAPLM4IE7SFB34CGSJJTBVOAFTSL4EDEAC

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]
Insertion in lispworks/lispworks at line 1 [5.27068]
[5.27068]
[5.27069]
```
(in-package :cl-user)
```

Insertion in lispworks/lispworks at line 24 [5.27068]

[6.366]


(editor:bind-key "Insert Space And Show Arglist" "Space")
(defun ed-asdf-component (system component)
  (let ((component (asdf:find-component system component)))
    (ed (asdf:component-pathname component))))

Replacement in lispworks/lispworks at line 31 [5.27068]

B:BD[6.367] → [6.367:424]

(editor:bind-key "Insert Space And Show Arglist" "Space")

[6.367]


(defun utf-8-file-encoding (pathname ef-spec buffer length)
  (declare (ignore pathname buffer length))
  (system:merge-ef-specs ef-spec :utf-8))
(setq system:*file-encoding-detection-algorithm*
      (substitute 'utf-8-file-encoding
                  'system:locale-file-encoding
                  system:*file-encoding-detection-algorithm*))
(set-default-character-element-type 'simple-char)

Insertion in git/gitignore at line 10 [7.849]
[7.942]
```
.ensime*
```
File addition: gap-dates (d--x------)
[8.2]

File addition: gap-dates.lisp (----------)

[0.792]

(defpackage :gap-dates
  (:use :cl))
(in-package :gap-dates)
(defun gap-sequence (seq diff-fun diff)
  (reverse (reduce (lambda (accum next)
                     (let ((prev (car accum)))
                       (if (>= (funcall diff-fun next prev) diff)
                           (cons next accum)
                           accum)))
                   (cdr seq)
                   :initial-value (list (elt seq 0)))))
(defun read-dates (dates)
  (mapcar (lambda (date)
            (local-time:parse-timestring date))
          dates))
(defun prune-dates (dates exclude-last-n)
  (let ((last-date-idx (- (length dates) 
                          exclude-last-n)))
    (append (gap-sequence (subseq dates 0 last-date-idx)
                          'local-time:timestamp-difference
                          #.(* 60 60 24 7))
            (subseq dates last-date-idx))))
(defun get-dates ()
  (mapcar (alexandria:compose 'car
                              'last
                              'pathname-directory)
          (uiop:directory* "~/.feed-archive/????-??-??")))
(defun main (inp)
  (let ((local-time:*default-timezone* local-time:+utc-zone+))
    (let* ((dates (read-dates inp))
           (keep (prune-dates dates 31)))
      (mapcar (serapeum:op
                (local-time:format-timestring nil _ :format local-time:+iso-8601-date-format+))
              (set-difference dates keep :test 'equal)))))

File addition: gap-dates.asd (----------)

[0.792]

;;; -*- Mode:Lisp; Syntax:ANSI-Common-Lisp; Package: ASDF-USER -*-
(in-package :asdf-user)
(defsystem :gap-dates 
  :description ""
  :author "Ed L <edward@elangley.org>"
  :license "MIT"
  :depends-on (#:alexandria
               #:uiop
               #:serapeum
               #:alexandria
               #:fwoar.lisputils)
  :serial t
  :components ((:file "gap-dates")))

File addition: .gitignore (----------)
[0.792]
```
*.fasl
```
Deletion in emacs.d/init.el at line 14 [10.136]
B:BD[9.7142] → [9.7142:7143]

Replacement in emacs.d/init.el at line 19 [10.136]

B:BD[11.2482] → [11.2482:2572]

                               (unless (server-running-p)
               (server-start)))

[11.2482]

[9.7293]

              (unless (server-running-p)
                (server-start)))

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

B:BD[9.7410] → [9.7410:7454]

            (setq linum-format "%5d\u2502")

[9.7410]

[9.7454]

            ;; (setq linum-format "%5d\u2502")

Deletion in emacs.d/init.el at line 28 [10.136]
B:BD[9.7530] → [9.7530:7531]
Deletion in emacs.d/init.el at line 30 [10.136]
B:BD[9.7599] → [9.7599:7600]
Deletion in emacs.d/init.el at line 31 [10.136]
∅:D[12.1189] → [10.167:168]
∅:D[9.7636] → [10.167:168]
B:BD[10.167] → [10.167:168]

Insertion in emacs.d/init.el at line 82 [10.136]

[9.7929]

[13.183]

(use-package multifiles
  :config
  (define-key evil-visual-state-map " m" 'mf/mirror-region-in-multifile)
  )

Insertion in emacs.d/init.el at line 125 [10.136]

[14.562]

[15.394]

(use-package tern
  :config
  (add-hook 'js-mode-hook (lambda () (tern-mode t)))
  (add-hook 'js2-mode-hook (lambda () (tern-mode t))))

Insertion in emacs.d/init.el at line 187 [10.136]
[10.2150]
[16.156]

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

B:BD[17.3457] → [9.8897:8953]

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

[17.3457]

[10.2316]

;; (load (expand-file-name "~/quicklisp/slime-helper.el"))
(add-to-list 'load-path "~/git_repos/3dp/slime/")
(require 'slime)
(global-set-key (kbd "C-c x") 'slime-export-symbol-at-point)

Replacement in emacs.d/init.el at line 198 [10.136]

B:BD[10.2317] → [9.8954:9074]

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

[10.2317]

[12.2195]

(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 203 [10.136]

B:BD[12.2196] → [9.9075:9287]

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

[12.2196]

[10.2423]

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

Replacement in emacs.d/init.el at line 206 [10.136]

B:BD[10.2424] → [9.9288:9396]

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

[10.2424]

[10.2521]

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

Replacement in emacs.d/init.el at line 214 [10.136]

B:BD[10.2522] → [9.9397:9892]

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

[10.2522]

[10.2623]

(setq slime-contribs
      '(slime-fancy
        slime-company
        slime-macrostep
        slime-trace-dialog
        slime-mdot-fu))

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

B:BD[10.2624] → [9.9893:10498]

B:BD[9.10498] → [15.1213:1323]

∅:D[15.1323] → [9.10498:10555]

B:BD[9.10498] → [9.10498:10555]

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

Replacement in emacs.d/init.el at line 222 [10.136]

B:BD[10.2724] → [9.10556:10776]

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

[10.2724]

[15.1324]

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

Replacement in emacs.d/init.el at line 237 [10.136]

B:BD[15.1325] → [15.1325:1805]

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

[15.1325]

[15.1805]

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

Deletion in emacs.d/init.el at line 268 [10.136]

B:BD[15.1806] → [15.1806:1928]

   (pushnew (list ?S "Goto System" #'fwoar--slime-find-system)
            slime-selector-methods
            :key #'car)

Deletion in emacs.d/init.el at line 269 [10.136]
B:BD[10.2822] → [9.10777:10783]
```
   ))
```

Insertion in emacs.d/init.el at line 311 [10.136]

[10.4266]

[15.1929]

(use-package cider
  :config
  (define-key evil-normal-state-map " t" 'cider-test-run-ns-tests)
  (add-hook 'cider-mode-hook 'rainbow-delimiters-mode)
  (add-hook 'cider-mode-hook 'evil-paredit-mode)
  (add-hook 'cider-mode-hook 'paredit-mode)
  (modify-syntax-entry ?_ "w" clojure-mode-syntax-table)
  (modify-syntax-entry ?- "w" clojure-mode-syntax-table)
  (modify-syntax-entry ?~ "w" clojure-mode-syntax-table)
  (modify-syntax-entry ?. "w" clojure-mode-syntax-table)
  )

Insertion in emacs.d/init.el at line 355 [10.136]
[15.2519]
[15.2519]
```
   (define-key evil-normal-state-map " s" 'helm-occur)
```

Insertion in emacs.d/init.el at line 389 [10.136]

[10.7667]

[10.8902]

(use-package js2-mode
  :ensure t
  :defer t
  :commands js2-mode
  :init
  (progn
    (add-to-list 'interpreter-mode-alist (cons "node" 'js2-mode))
    (setq-default js2-basic-offset 4)
    (setq-default js-indent-level 4)
    (customize-set-variable 'js2-mode-show-parse-errors nil)
    (customize-set-variable 'js2-strict-missing-semi-warning nil)
    (customize-set-variable 'js2-strict-trailing-comma-warning nil)
    (customize-set-variable 'js2-strict-inconsistent-return-warning nil)))
(use-package rjsx-mode
  :ensure t
  :config
  (add-to-list 'auto-mode-alist '("\\.js$" . rjsx-mode)))

Replacement in emacs.d/init.el at line 410 [10.136]

B:BD[10.8956] → [9.12150:12202]

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

[10.8956]

[10.10103]

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

Insertion in emacs.d/init.el at line 469 [10.136]
[18.302]
```
(setq org-agenda-files '("~/org/notes.org"))
```

File addition: gap-dates.lisp (----------)

[0.792]

(defpackage :gap-dates
  (:use :cl))
(in-package :gap-dates)
(defun gap-sequence (seq diff-fun diff)
  (reverse (reduce (lambda (accum next)
                     (let ((prev (car accum)))
                       (if (>= (funcall diff-fun next prev) diff)
                           (cons next accum)
                           accum)))
                   (cdr seq)
                   :initial-value (list (elt seq 0)))))
(defun read-dates (dates)
  (mapcar (lambda (date)
            (local-time:parse-timestring date))
          dates))
(defun prune-dates (dates exclude-last-n)
  (let ((last-date-idx (- (length dates) 
                          exclude-last-n)))
    (append (gap-sequence (subseq dates 0 last-date-idx)
                          'local-time:timestamp-difference
                          #.(* 60 60 24 7))
            (subseq dates last-date-idx))))
(defun get-dates ()
  (mapcar (alexandria:compose 'car
                              'last
                              'pathname-directory)
          (uiop:directory* "~/.feed-archive/????-??-??")))
(defun main (inp)
  (let ((local-time:*default-timezone* local-time:+utc-zone+))
    (let* ((dates (read-dates inp))
           (keep (prune-dates dates 31)))
      (mapcar (serapeum:op
                (local-time:format-timestring nil _ :format local-time:+iso-8601-date-format+))
              (set-difference dates keep :test 'equal)))))

File addition: gap-dates.asd (----------)

[0.792]

;;; -*- Mode:Lisp; Syntax:ANSI-Common-Lisp; Package: ASDF-USER -*-
(in-package :asdf-user)
(defsystem :gap-dates 
  :description ""
  :author "Ed L <edward@elangley.org>"
  :license "MIT"
  :depends-on (#:alexandria
               #:uiop
               #:serapeum
               #:alexandria
               #:fwoar.lisputils)
  :serial t
  :components ((:file "gap-dates")))

File addition: .gitignore (----------)
[0.792]
```
*.fasl
```

misc updates

Dependencies

In channels

Change contents

File deletion: dependencies, dependencies

Insertion in lispworks/lispworks at line 1 [5.27068]

Insertion in lispworks/lispworks at line 24 [5.27068]

Replacement in lispworks/lispworks at line 31 [5.27068]

Insertion in git/gitignore at line 10 [7.849]

File addition: gap-dates (d--x------)

File addition: gap-dates.lisp (----------)

File addition: gap-dates.asd (----------)

File addition: .gitignore (----------)

Deletion in emacs.d/init.el at line 14 [10.136]

Replacement in emacs.d/init.el at line 19 [10.136]

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

Deletion in emacs.d/init.el at line 28 [10.136]

Deletion in emacs.d/init.el at line 30 [10.136]

Deletion in emacs.d/init.el at line 31 [10.136]

Insertion in emacs.d/init.el at line 82 [10.136]

Insertion in emacs.d/init.el at line 125 [10.136]

Insertion in emacs.d/init.el at line 187 [10.136]

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

Replacement in emacs.d/init.el at line 198 [10.136]

Replacement in emacs.d/init.el at line 203 [10.136]

Replacement in emacs.d/init.el at line 206 [10.136]

Replacement in emacs.d/init.el at line 214 [10.136]

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

Replacement in emacs.d/init.el at line 222 [10.136]

Replacement in emacs.d/init.el at line 237 [10.136]

Deletion in emacs.d/init.el at line 268 [10.136]

Deletion in emacs.d/init.el at line 269 [10.136]

Insertion in emacs.d/init.el at line 311 [10.136]

Insertion in emacs.d/init.el at line 355 [10.136]

Insertion in emacs.d/init.el at line 389 [10.136]

Replacement in emacs.d/init.el at line 410 [10.136]

Insertion in emacs.d/init.el at line 469 [10.136]

File addition: gap-dates.lisp (----------)

File addition: gap-dates.asd (----------)

File addition: .gitignore (----------)