fiddlerwoaroof/dotfiles - Change ISSNG5DAVEV7BCH3ZRUOCXUH5ZIN3WFUZGKZE4PENPGKZVBZ34IAC

chore(emacs): remove fwoar-helm-project from evil-conf

Created by Edward on January 11, 2022

ISSNG5DAVEV7BCH3ZRUOCXUH5ZIN3WFUZGKZE4PENPGKZVBZ34IAC

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/lisp/configurations/helm-conf.el at line 32 [5.2170]

[5.3232]


(use-package fwoar-helm-project
  :init
  (require 'fwoar-helm-project)
  (fwoar::initialize-fwoar-helm-project)
  :no-require t
  :ensure nil
  )

Deletion in emacs.d/lisp/configurations/evil-conf.el at line 19 [8.8110]

∅:D[6.268] → [7.227:433]

B:BD[7.227] → [7.227:433]

∅:D[9.252] → [10.203:204]

∅:D[7.433] → [10.203:204]

B:BD[8.8402] → [10.203:204]

B:BD[10.204] → [7.434:587]


(defun fwoar::get-candidates ()
  (funcall (-compose (fwoar/exclude
                      (fwoar/matches-regex "/\\(.*[#]\\)"))
                     'project-files
                     'project-current)))
(defun fwoar::browse-project ()
  (interactive)
  (if (package-installed-p 'projectile)
      (helm-projectile)
    (fwoar::helm-find-file-in-project)))

Deletion in emacs.d/lisp/configurations/evil-conf.el at line 20 [8.8110]

B:BD[7.588] → [7.588:1081]

B:BD[7.1081] → [11.226:1395]

∅:D[11.1395] → [7.1081:1140]

B:BD[7.1081] → [7.1081:1140]

B:BD[7.1140] → [11.1396:1538]

∅:D[11.1538] → [7.1188:1189]

B:BD[7.1188] → [7.1188:1189]

(defvar fwoar::*helm-project-files-source*
  `((name . "Project Files")
    (candidates . (lambda ()
                    (let* ((fwoar::project (project-current))
                           (fwoar::root (project-root fwoar::project)))
                      (mapcar (lambda (it)
                                (cons (f-relative it fwoar::root)
                                      it))
                              (project-files fwoar::project)))))
    (action . helm-find-files-actions)))
(defvar fwoar::*helm-project-buffers-source*
  `((name . "Project Buffers")
    (candidates . (lambda ()
                    (let* ((fwoar::project (project-current)))
                      (funcall (-compose (fwoar/over (lambda (it)
                                                       (cons (buffer-name it)
                                                             it)))
                                         (lambda (it)
                                           (cl-sort it 'string-lessp
                                                    :key 'buffer-name))
                                         (fwoar/exclude
                                          (fwoar/on (fwoar/matches-regex "^ ")
                                                    'buffer-name))
                                         'project-buffers)
                               fwoar::project))))
    (action . switch-to-buffer)))
(defvar fwoar::*helm-project-known-projects*
  `((name . "Projects")
    (candidates . project-known-project-roots)
    (action . (lambda (it)
                (let ((default-directory it))
                  (fwoar::helm-find-file-in-project))))))
(defun fwoar::helm-find-file-in-project ()
  (interactive)
  (helm '(fwoar::*helm-project-files-source*
          fwoar::*helm-project-buffers-source*
          fwoar::*helm-project-known-projects*)))