remove unnecessary nested guix dir

1 files changed, 0 insertions, 171 deletions

diff --git a/guix/kolwynia/home/bdunahu/files/.config/emacs/modules/bd--minibuffer.el b/guix/kolwynia/home/bdunahu/files/.config/emacs/modules/bd--minibuffer.el
deleted file mode 100644
index cf5641b..0000000
--- a/guix/kolwynia/home/bdunahu/files/.config/emacs/modules/bd--minibuffer.el
+++ /dev/null
@@ -1,171 +0,0 @@
-;;; -*- lexical-binding: t; -*-
-;;; Commentary:
-;;; Code:
-
-
-(require 's)
-(use-package icomplete
-  :demand t
-  :bind
-  ((:map icomplete-minibuffer-map
-         ("RET" . icomplete-force-complete-and-exit)))
-  :config
-  (setopt completing-read-function #'completing-read-default
-          read-file-name-function #'read-file-name-default
-          completion-styles '(basic
-                              substring
-                              initials
-                              flex)
-          icomplete-delay-completions-threshold 0
-          icomplete-compute-delay 0.10
-          icomplete-show-matches-on-no-input nil
-          icomplete-separator " | "
-          completions-max-height '30
-          completions-detailed t)
-  (icomplete-vertical-mode t))
-
-(use-package completion-preview
-  :hook
-  ((comint-mode . completion-preview-mode)
-   (c-mode . completion-preview-mode)
-   (c++-mode . completion-preview-mode)
-   (emacs-lisp-mode . completion-preview-mode)))
-
-(use-package selector
-  :demand t
-  :config
-  (setopt selector-minibuffer-lines 15)
-  (defvar bd/navigate-recent-display-number 6
-    "The number of recent buffers that show up in bd/navigate.")
-  (defvar bd/blacklisted-buffer-regexp-list
-    '(
-      "\\*Async Shell Command\\*"
-      "\\*http"
-      "\\magit-process"
-      "\\*Minibuf"
-      "\\*Echo Area"
-      "\\*newsticker"
-      "\\*Org Preview LaTeX Output\\*"
-      "\\*Shell Command Output\\*"
-      "\\*tramp"
-      "\\*eldoc"
-      "\\*server\\*"
-      )
-    "Buffers that should not show up in buffer-related
-selection commands.")
-
-  (defun bd/buffer-blacklisted-p (buf)
-    "Return non-nil if BUF is blacklisted."
-    (cl-reduce (lambda (x y) (or x y)) (mapcar (lambda (r) (string-match r buf))
-                                          bd/blacklisted-buffer-regexp-list)))
-
-  (defun bd/buffer-list ()
-    "Return a list of non-blacklisted buffers."
-    (cl-remove-if #'bd/buffer-blacklisted-p (mapcar 'buffer-name (buffer-list))))
-
-  (defun bd/selector-recent-buffers ()
-    (selector-source-create
-     "Recent"
-     :candidates
-     (take bd/navigate-recent-display-number
-           (cl-remove-if (lambda (b)
-                           (get-buffer-window b 'visible))
-                         (bd/buffer-list)))
-     :actions
-     selector-buffer-actions))
-
-  (defun bd/selector-project-files ()
-    (selector-source-create
-     "Project Files"
-     :candidates
-     (let ((proj (project-current)))
-       (when proj
-         (project-files proj)))
-     :actions
-     selector-file-actions))
-
-  (defmacro bd/selector-buffer-type (name c)
-    `(selector-source-create
-      ,name
-      :candidates
-      (cl-remove-if-not ,c (bd/buffer-list))
-      :actions
-      selector-buffer-actions))
-
-  (defun bd/navigate ()
-    (interactive)
-    (selector
-     (list
-      (bd/selector-recent-buffers)
-      (bd/selector-buffer-type "EWW" #'bd/buffer-eww-p)
-      (bd/selector-buffer-type "EXWM" #'bd/buffer-exwm-p)
-      (bd/selector-buffer-type "Shell" #'bd/buffer-shell-p)
-      (bd/selector-buffer-type "IRC" #'bd/buffer-irc-p)
-      (bd/selector-buffer-type "Text" #'bd/buffer-text-p)
-      (bd/selector-buffer-type "Source" #'bd/buffer-prog-p)
-      (bd/selector-buffer-type "Scratch" #'bd/buffer-scratch-p)
-      (bd/selector-buffer-type "Directories" #'bd/buffer-dired-p)
-      (bd/selector-buffer-type "Ordinary" #'bd/buffer-ordinary-p)
-      (bd/selector-project-files)
-      (selector-recentf-source))))
-  (keymap-global-set "C-x b" 'bd/navigate)
-
-  (defun bd/selector-rg ()
-    "Sources for lines found via grep (or a clone)."
-    (interactive)
-    (let ((query (read-string "rg: ")))
-      (defun conv (x)
-        (cons (car x) (cons (- (string-to-number (cadr x)) 1) (caddr x))))
-      (defun all-in-file (key list)
-        (--map (to-candidate (cdr it)) (--filter (s-equals? key (car it)) list)))
-      (defun to-candidate (x)
-        (selector-candidate-create (cdr x) :value (car x)))
-      (let* ((dir (expand-file-name (bd/get-directory-dwim)))
-             (result (with-temp-buffer
-                       (call-process "rg" nil t nil "-n" "-." query dir)
-                       (buffer-string)))
-             (lines (--map (conv (s-split-up-to ":" it 2)) (--filter (not (s-blank? it)) (s-split "\n" result))))
-             (files (-uniq (-map #'car lines)))
-             (sources (--map (selector-source-create
-                              it
-                              :candidates (all-in-file it lines)
-                              :actions (selector-file-contents-actions it))
-                             files)))
-        (when (not (null sources))
-          (selector sources)))))
-  (keymap-global-set "C-z s" 'bd/selector-rg)
-  (keymap-global-set "C-z d" 'bd/selector-occur))
-
-(defun bd/selector-occur ()
-  "Sources for lines in the current file."
-  (interactive)
-  (when-let ((file (buffer-file-name)))
-    (selector (list (selector-file-contents-source file)))))
-
-(defun bd/selector-rg ()
-  "Sources for lines found via grep (or a clone)."
-  (interactive)
-  (let ((query (read-string "rg: ")))
-    (defun conv (x)
-      (cons (car x) (cons (- (string-to-number (cadr x)) 1) (caddr x))))
-    (defun all-in-file (key list)
-      (--map (to-candidate (cdr it)) (--filter (s-equals? key (car it)) list)))
-    (defun to-candidate (x)
-      (selector-candidate-create (cdr x) :value (car x)))
-    (let* ((dir (expand-file-name (bd/get-directory-dwim)))
-           (result (with-temp-buffer
-                     (call-process "rg" nil t nil "-n" "-." query dir)
-                     (buffer-string)))
-           (lines (--map (conv (s-split-up-to ":" it 2)) (--filter (not (s-blank? it)) (s-split "\n" result))))
-           (files (-uniq (-map #'car lines)))
-           (sources (--map (selector-source-create
-                            it
-                            :candidates (all-in-file it lines)
-                            :actions (selector-file-contents-actions it))
-                           files)))
-      (when (not (null sources))
-        (selector sources)))))
-
-
-(provide 'bd--minibuffer)
-;;; bd--minibuffer.el ends here