fiddlerwoaroof/dotfiles - Change ABDQA6HCTOUQXY5IDGDTCDBR5DA2WAHUWHBS5EIRYNUJNQCM6GOQC

Setting up deft + org-capture

Created by Ed Langley on April 23, 2018

ABDQA6HCTOUQXY5IDGDTCDBR5DA2WAHUWHBS5EIRYNUJNQCM6GOQC

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 emacs.d/init.el at line 47 [6.136]

[5.7720]


(defmacro ensure-use-packages (&rest packages)
  (list* 'progn
         (mapcar (lambda (pck)
                   `(use-package ,(car pck)
                      :ensure t
                      ,@(cdr pck)))
                 packages)))

Insertion in emacs.d/init.el at line 124 [6.136]

[7.562]

[5.8335]

(use-package org
  :pin "org"
  :ensure t
  :config
  (setq org-directory "~/org")
  (setq org-default-notes-file (concat org-directory "/scratch.org"))
  (define-key global-map "\C-cc" 'org-capture)
  (define-key evil-visual-state-map " c" 'org-capture)
  (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")))
  )
(use-package deft
  :ensure t
  :config
  (define-key evil-normal-state-map " v" 'deft)
  )

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

[5.10498]

   (modify-syntax-entry 91 "(" lisp-mode-syntax-table)
   (modify-syntax-entry 93 ")" lisp-mode-syntax-table)

Insertion in emacs.d/init.el at line 234 [6.136]

[5.10776]

[6.2821]


   (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 257 [6.136]

B:BD[6.3436] → [8.2940:3009]

         (define-key company-active-map (kbd "SPC") (kbd "RET SPC"))

Replacement in emacs.d/init.el at line 292 [6.136]

B:BD[6.4266] → [5.10916:11082]

∅:D[5.11082] → [6.4299:4300]

B:BD[6.4299] → [6.4299:4300]

B:BD[6.4300] → [5.11083:11881]

(defmacro ensure-use-packages (&rest packages)
  (list* 'progn
         (mapcar (op `(use-package ,_
                        :ensure t))
                 packages)))
(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)

[6.4266]

[6.4337]

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

Replacement in emacs.d/init.el at line 317 [6.136]

B:BD[6.4369] → [5.11882:12149]

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

[6.4369]

[6.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))

Replacement in emacs.d/init.el at line 326 [6.136]

B:BD[6.4990] → [6.4990:5033]

B:BD[6.5266] → [6.5266:5590]

B:BD[6.5591] → [6.5591:5918]

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

[6.4804]

[6.5918]

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

Replacement in emacs.d/init.el at line 340 [6.136]

B:BD[6.5919] → [6.5919:6614]

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

[6.5919]

[6.6614]

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

Deletion in emacs.d/init.el at line 367 [6.136]

B:BD[5.12317] → [5.12317:12318]

B:BD[9.200] → [9.200:653]


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

Replacement in emacs.d/init.el at line 368 [6.136]

B:BD[9.654] → [9.654:767]

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

[9.654]

[9.767]

;; (use-package ansi-term :no-require t
;;   :config
;;   (eval-after-load 'evil
;;     (evil-set-initial-state 'term-mode 'emacs)))

Replacement in emacs.d/init.el at line 373 [6.136]

B:BD[9.768] → [9.768:880]

(defun ansi-term-post (&rest r)
  (message "Loading ansi term...")
  (evil-set-initial-state 'term-mod 'emacs))

[9.768]

[9.880]

;; (defun ansi-term-post (&rest r)
;;   (message "Loading ansi term...")
;;   (evil-set-initial-state 'term-mode 'emacs))

Replacement in emacs.d/init.el at line 377 [6.136]

B:BD[9.881] → [9.881:928]

(advice-add 'ansi-term :after 'ansi-term-post)

[9.881]

[9.928]

;; (advice-add 'ansi-term :after 'ansi-term-post)

Replacement in emacs.d/init.el at line 388 [6.136]

B:BD[10.384] → [10.384:413]

  (find-file "~/notes.org"))

[10.384]

  (find-file "~/org/notes.org"))
;; (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))
(put 'narrow-to-region 'disabled nil)