fiddlerwoaroof/dotfiles - Change ZZFY3WNU3EJBUIL7SFARDOKXNF4WGUUQHEB7DTNXM7JDNX6POERAC

refactor(emacs): split projectile config to its own file

Created by Edward on November 7, 2021

ZZFY3WNU3EJBUIL7SFARDOKXNF4WGUUQHEB7DTNXM7JDNX6POERAC

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]

Deletion in emacs.d/lisp/utils.el at line 138 [6.629]

B:BD[5.234] → [5.234:965]

B:BD[7.1033] → [7.1033:1034]

(defun helm-projectile-rg ()
  "Projectile version of `helm-rg'."
  (interactive)
  (if (require 'helm-rg nil t)
      (if (projectile-project-p)
          (let ((helm-rg-prepend-file-name-line-at-top-of-matches nil)
                (helm-rg-include-file-on-every-match-line t))
            (helm-rg (helm-projectile-rg--region-selection)
                     nil
                     (list (projectile-project-root))))
        (error "You're not in a project"))
    (when (yes-or-no-p "`helm-rg' is not installed. Install? ")
      (condition-case nil
          (progn
            (package-install 'helm-rg)
            (helm-projectile-rg))
        (error "`helm-rg' is not available.  Is MELPA in your `package-archives'?")))))

Deletion in emacs.d/lisp/utils.el at line 164 [6.629]
∅:D[8.233] → [9.599:621]
B:BD[9.599] → [9.599:621]
```
  (projectile-mode 1)
```

File addition: projectile-conf.el (----------)

[10.4163]

(use-package projectile
  :ensure t
  :config
  (setq
   ;;       projectile-enable-caching t
   projectile-generic-command "rg --files -0"
   )
  (projectile-register-project-type
   'clojure '("project.clj")
   :compile "lein uberjar"
   :test-dir "src/test/")
  (projectile-register-project-type
   'lisp '("*.asd"))
  (projectile-register-project-type
   'npm '("package.json")
   :compile "npm install"
   :test "npm test"
   :run "npm start"
   :test-suffix ".spec")
  (define-key evil-normal-state-map "gf" 'project-aware-ffap)
  (projectile-mode 1)
  )
(use-package org-projectile
  :ensure t
  :after projectile company
  :config
  (progn
    (org-projectile-per-project)
    (setq org-agenda-skip-unavailable-files t)
    (setq org-projectile-per-project-filepath
          "notes/README.org")
    (setq org-agenda-files (append org-agenda-files (org-projectile-todo-files)))
    (push (org-projectile-project-todo-entry) org-capture-templates)
    (define-key projectile-mode-map (kbd "C-c c") 'org-capture))
  :ensure t)
(use-package projectile-ripgrep
  :ensure t
  :after projectile)
(use-package treemacs-projectile
  :after treemacs projectile
  :ensure t)
(use-package org-projectile-helm
  :ensure t
  :after org-projectile helm helm-org
  :config
  (define-key projectile-mode-map (kbd "C-c n p") 'org-projectile-helm-template-or-project))
(use-package helm-projectile
  :after helm projectile
  :ensure t
  :config
  (evil-define-key 'normal 'global (kbd "<leader>f") 'helm-projectile)
  (evil-define-key 'normal 'global (kbd "<leader>S") 'helm-projectile-rg)
  (evil-define-key 'normal 'global (kbd "<leader>h") 'helm-projectile-find-file-dwim))
(defun more-than-one-project-file-p ()
  (= (length (projectile-select-files (projectile-current-project-files)))
     1))
(defun global-find-known-file ())
(defun helm-find-known-file (&optional arg)
  "Use projectile with Helm for finding files in project
With a prefix ARG invalidates the cache first."
  (interactive "P")
  (let ((projectile-enable-caching t))
    (if (projectile-project-p)
        (projectile-maybe-invalidate-cache arg)
      (unless t
        (error "You're not in a project"))))
  (let ((helm-ff-transformer-show-only-basename nil)
        (helm-boring-file-regexp-list nil))
    (helm :sources 'helm-source-projectile-files-in-all-projects-list
          :buffer (concat "*helm projectile: "
                          (projectile-project-name)
                          "*")
          :truncate-lines helm-projectile-truncate-lines
          :prompt (projectile-prepend-project-name "Find file in projects: "))))
(defun project-aware-ffap (&rest args)
  (interactive "F")
  (apply (if (and (projectile-project-p)
                  (more-than-one-project-file-p))
             'helm-projectile-find-file-dwim
           'find-file-at-point)
         args))
(defun edit-init-el ()
  (interactive)
  (let ((default-directory *dotfiles-repo*))
    (helm-projectile-find-file)))
(defun helm-projectile-rg ()
  "Projectile version of `helm-rg'."
  (interactive)
  (if (require 'helm-rg nil t)
      (if (projectile-project-p)
          (let ((helm-rg-prepend-file-name-line-at-top-of-matches nil)
                (helm-rg-include-file-on-every-match-line t))
            (helm-rg (helm-projectile-rg--region-selection)
                     nil
                     (list (projectile-project-root))))
        (error "You're not in a project"))
    (when (yes-or-no-p "`helm-rg' is not installed. Install? ")
      (condition-case nil
          (progn
            (package-install 'helm-rg)
            (helm-projectile-rg))
        (error "`helm-rg' is not available.  Is MELPA in your `package-archives'?")))))

Insertion in emacs.d/lisp/configurations/lsp-conf.el at line 13 [11.213]
[11.457]
[11.457]
```
(use-package lsp-treemacs
  :after treemacs lsp
  :ensure t)
```
Deletion in emacs.d/lisp/configurations/helm-conf.el at line 10 [7.2170]
B:BD[12.619] → [12.619:620]
Deletion in emacs.d/lisp/configurations/helm-conf.el at line 21 [7.2170]
B:BD[7.2340] → [7.2340:2411]
```
  (evil-define-key 'normal 'global (kbd "<leader>f") 'helm-projectile)
```
Deletion in emacs.d/lisp/configurations/helm-conf.el at line 23 [7.2170]
B:BD[7.2550] → [7.2550:2624]
```
  (evil-define-key 'normal 'global (kbd "<leader>S") 'helm-projectile-rg)
```

Replacement in emacs.d/lisp/configurations/helm-conf.el at line 25 [7.2170]

B:BD[7.2780] → [7.2780:2858]

  (define-key helm-map
    (kbd "<left>")
    'helm-find-files-up-one-level))

[7.2780]

[7.2858]

  (define-key helm-map (kbd "<left>") 'helm-find-files-up-one-level))

Deletion in emacs.d/lisp/configurations/helm-conf.el at line 28 [7.2170]

B:BD[7.2909] → [7.2909:2942]

B:BD[7.2956] → [7.2956:2968]

B:BD[7.2968] → [12.789:827]

∅:D[12.827] → [7.2992:3096]

B:BD[7.2992] → [7.2992:3096]

B:BD[7.3096] → [12.828:976]

∅:D[12.976] → [7.3187:3188]

B:BD[7.3187] → [7.3187:3188]

(use-package org-projectile-helm
  :ensure t
  :after org-projectile helm helm-org
  :config
  (define-key projectile-mode-map (kbd "C-c n p") 'org-projectile-helm-template-or-project))
(use-package helm-projectile :after helm :ensure t
  :config
  (evil-define-key 'normal 'global (kbd "<leader>h") 'helm-projectile-find-file-dwim))

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

∅:D[7.8209] → [13.191:238]

∅:D[15.8212] → [13.191:238]

B:BD[16.1968] → [13.191:238]

B:BD[13.312] → [13.312:806]


(use-package projectile
  :ensure t
  :config
  (setq
   ;;       projectile-enable-caching t
   projectile-generic-command "rg --files -0"
   )
  (projectile-register-project-type
   'clojure '("project.clj")
   :compile "lein uberjar"
   :test-dir "src/test/")
  (projectile-register-project-type
   'lisp '("*.asd"))
  (projectile-register-project-type
   'npm '("package.json")
   :compile "npm install"
   :test "npm test"
   :run "npm start"
   :test-suffix ".spec")
  (define-key evil-normal-state-map "gf" 'project-aware-ffap))

[15.8212]

[13.806]

(load-package-configuration 'projectile)

Deletion in emacs.d/init.el at line 332 [14.136]

∅:D[7.8365] → [17.1222:1251]

∅:D[15.8368] → [17.1222:1251]

B:BD[10.10444] → [17.1222:1251]

B:BD[17.1251] → [18.3155:3167]

B:BD[18.3167] → [19.1294:1311]

∅:D[19.1311] → [17.1251:1303]

∅:D[18.3167] → [17.1251:1303]

B:BD[17.1251] → [17.1251:1303]

B:BD[17.1303] → [20.261:308]

∅:D[20.308] → [17.1303:1595]

B:BD[17.1303] → [17.1303:1595]

B:BD[21.210] → [21.210:223]


(use-package org-projectile
  :ensure t
  :after company
  :config
  (progn
    (org-projectile-per-project)
    (setq org-agenda-skip-unavailable-files t)
    (setq org-projectile-per-project-filepath
          "notes/README.org")
    (setq org-agenda-files (append org-agenda-files (org-projectile-todo-files)))
    (push (org-projectile-project-todo-entry) org-capture-templates)
    (define-key projectile-mode-map (kbd "C-c c") 'org-capture))
  :ensure t)

Deletion in emacs.d/init.el at line 371 [14.136]

B:BD[22.1499] → [22.1499:1501]

∅:D[23.174] → [24.16889:18076]

∅:D[22.1502] → [24.16889:18076]

B:BD[24.16889] → [24.16889:18076]


(defun more-than-one-project-file-p ()
  (= (length (projectile-select-files (projectile-current-project-files)))
     1))
(defun global-find-known-file ())
(defun helm-find-known-file (&optional arg)
  "Use projectile with Helm for finding files in project
With a prefix ARG invalidates the cache first."
  (interactive "P")
  (let ((projectile-enable-caching t))
    (if (projectile-project-p)
        (projectile-maybe-invalidate-cache arg)
      (unless t
        (error "You're not in a project"))))
  (let ((helm-ff-transformer-show-only-basename nil)
        (helm-boring-file-regexp-list nil))
    (helm :sources 'helm-source-projectile-files-in-all-projects-list
          :buffer (concat "*helm projectile: "
                          (projectile-project-name)
                          "*")
          :truncate-lines helm-projectile-truncate-lines
          :prompt (projectile-prepend-project-name "Find file in projects: "))))
(defun project-aware-ffap (&rest args)
  (interactive "F")
  (apply (if (and (projectile-project-p)
                  (more-than-one-project-file-p))
             'helm-projectile-find-file-dwim
           'find-file-at-point)
         args))

Deletion in emacs.d/init.el at line 439 [14.136]
B:BD[25.1344] → [25.1344:1388]
```
(use-package projectile-ripgrep :ensure t)
```
Deletion in emacs.d/init.el at line 485 [14.136]
B:BD[20.1526] → [20.1526:1539]
∅:D[20.1539] → [26.6908:6909]
B:BD[26.6908] → [26.6908:6909]
B:BD[26.6909] → [20.1540:1602]
```
  :ensure t)
(use-package treemacs-projectile
  :after treemacs projectile
```
Deletion in emacs.d/init.el at line 494 [14.136]
B:BD[20.1778] → [20.1778:1792]
B:BD[20.1792] → [27.773:821]
```
  :ensure t)
(use-package lsp-treemacs
  :after treemacs lsp
```
Deletion in emacs.d/init.el at line 512 [14.136]
∅:D[28.1730] → [29.929:968]
∅:D[18.4068] → [29.929:968]
B:BD[29.929] → [29.929:968]
B:BD[29.968] → [28.1731:1810]
∅:D[28.1810] → [30.155:156]
B:BD[29.1004] → [30.155:156]
```
(defun edit-init-el ()
  (interactive)
  (let ((default-directory *dotfiles-repo*))
    (helm-projectile-find-file)))
```

File addition: projectile-conf.el (----------)

[10.4163]

(use-package projectile
  :ensure t
  :config
  (setq
   ;;       projectile-enable-caching t
   projectile-generic-command "rg --files -0"
   )
  (projectile-register-project-type
   'clojure '("project.clj")
   :compile "lein uberjar"
   :test-dir "src/test/")
  (projectile-register-project-type
   'lisp '("*.asd"))
  (projectile-register-project-type
   'npm '("package.json")
   :compile "npm install"
   :test "npm test"
   :run "npm start"
   :test-suffix ".spec")
  (define-key evil-normal-state-map "gf" 'project-aware-ffap)
  (projectile-mode 1)
  )
(use-package org-projectile
  :ensure t
  :after projectile company
  :config
  (progn
    (org-projectile-per-project)
    (setq org-agenda-skip-unavailable-files t)
    (setq org-projectile-per-project-filepath
          "notes/README.org")
    (setq org-agenda-files (append org-agenda-files (org-projectile-todo-files)))
    (push (org-projectile-project-todo-entry) org-capture-templates)
    (define-key projectile-mode-map (kbd "C-c c") 'org-capture))
  :ensure t)
(use-package projectile-ripgrep
  :ensure t
  :after projectile)
(use-package treemacs-projectile
  :after treemacs projectile
  :ensure t)
(use-package org-projectile-helm
  :ensure t
  :after org-projectile helm helm-org
  :config
  (define-key projectile-mode-map (kbd "C-c n p") 'org-projectile-helm-template-or-project))
(use-package helm-projectile
  :after helm projectile
  :ensure t
  :config
  (evil-define-key 'normal 'global (kbd "<leader>f") 'helm-projectile)
  (evil-define-key 'normal 'global (kbd "<leader>S") 'helm-projectile-rg)
  (evil-define-key 'normal 'global (kbd "<leader>h") 'helm-projectile-find-file-dwim))
(defun more-than-one-project-file-p ()
  (= (length (projectile-select-files (projectile-current-project-files)))
     1))
(defun global-find-known-file ())
(defun helm-find-known-file (&optional arg)
  "Use projectile with Helm for finding files in project
With a prefix ARG invalidates the cache first."
  (interactive "P")
  (let ((projectile-enable-caching t))
    (if (projectile-project-p)
        (projectile-maybe-invalidate-cache arg)
      (unless t
        (error "You're not in a project"))))
  (let ((helm-ff-transformer-show-only-basename nil)
        (helm-boring-file-regexp-list nil))
    (helm :sources 'helm-source-projectile-files-in-all-projects-list
          :buffer (concat "*helm projectile: "
                          (projectile-project-name)
                          "*")
          :truncate-lines helm-projectile-truncate-lines
          :prompt (projectile-prepend-project-name "Find file in projects: "))))
(defun project-aware-ffap (&rest args)
  (interactive "F")
  (apply (if (and (projectile-project-p)
                  (more-than-one-project-file-p))
             'helm-projectile-find-file-dwim
           'find-file-at-point)
         args))
(defun edit-init-el ()
  (interactive)
  (let ((default-directory *dotfiles-repo*))
    (helm-projectile-find-file)))
(defun helm-projectile-rg ()
  "Projectile version of `helm-rg'."
  (interactive)
  (if (require 'helm-rg nil t)
      (if (projectile-project-p)
          (let ((helm-rg-prepend-file-name-line-at-top-of-matches nil)
                (helm-rg-include-file-on-every-match-line t))
            (helm-rg (helm-projectile-rg--region-selection)
                     nil
                     (list (projectile-project-root))))
        (error "You're not in a project"))
    (when (yes-or-no-p "`helm-rg' is not installed. Install? ")
      (condition-case nil
          (progn
            (package-install 'helm-rg)
            (helm-projectile-rg))
        (error "`helm-rg' is not available.  Is MELPA in your `package-archives'?")))))

refactor(emacs): split projectile config to its own file

Dependencies

In channels

Change contents

File deletion: dependencies, dependencies

Deletion in emacs.d/lisp/utils.el at line 138 [6.629]

Deletion in emacs.d/lisp/utils.el at line 164 [6.629]

File addition: projectile-conf.el (----------)

Insertion in emacs.d/lisp/configurations/lsp-conf.el at line 13 [11.213]

Deletion in emacs.d/lisp/configurations/helm-conf.el at line 10 [7.2170]

Deletion in emacs.d/lisp/configurations/helm-conf.el at line 21 [7.2170]

Deletion in emacs.d/lisp/configurations/helm-conf.el at line 23 [7.2170]

Replacement in emacs.d/lisp/configurations/helm-conf.el at line 25 [7.2170]

Deletion in emacs.d/lisp/configurations/helm-conf.el at line 28 [7.2170]

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

Deletion in emacs.d/init.el at line 332 [14.136]

Deletion in emacs.d/init.el at line 371 [14.136]

Deletion in emacs.d/init.el at line 439 [14.136]

Deletion in emacs.d/init.el at line 485 [14.136]

Deletion in emacs.d/init.el at line 494 [14.136]

Deletion in emacs.d/init.el at line 512 [14.136]

File addition: projectile-conf.el (----------)