139 lines
4.9 KiB
EmacsLisp
139 lines
4.9 KiB
EmacsLisp
;;; ivy-quick-find-files.el --- Quickly find files in directories and by extension -*- lexical-binding: t -*-
|
|
|
|
;; Author: Lucien Cartier-Tilet <lucien@phundrak.com>
|
|
;; Maintainer: Lucien Cartier-Tilet <lucien@phundrak.com>
|
|
;; Version: 0.1.0
|
|
;; Package-Requires: ((emacs "24") (ivy "0.13"))
|
|
;; Homepage: https://labs.phundrak.com/phundrak/ivy-quick-find-files.el
|
|
|
|
;; This file is not part of GNU Emacs
|
|
|
|
;; This program is free software: you can redistribute it and/or modify
|
|
;; it under the terms of the GNU General Public License as published by
|
|
;; the Free Software Foundation, either version 3 of the License, or
|
|
;; (at your option) any later version.
|
|
|
|
;; This program is distributed in the hope that it will be useful,
|
|
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
;; GNU General Public License for more details.
|
|
|
|
;; You should have received a copy of the GNU General Public License
|
|
;; along with this program. If not, see <https://www.gnu.org/licenses/>.
|
|
|
|
|
|
;;; Commentary:
|
|
|
|
;;; Code:
|
|
|
|
(require 'ivy)
|
|
|
|
; Group ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
|
|
(defgroup ivy-quick-find-files nil
|
|
"Quickly find files by directory and extension."
|
|
:prefix "ivy-quick-find-files-"
|
|
:link '(url-link :tag "Github" "https://github.com/phundrak/ivy-quick-find-files.el")
|
|
:link '(url-link :tag "Gitea" "https://labs.phundrak.com/phundrak/ivy-quick-find-files.el"))
|
|
|
|
; Custom variables ;;;;;;;;;;;;;;;;;;;;
|
|
|
|
(defcustom ivy-quick-find-files-program 'find
|
|
"Program to find files on your system.
|
|
|
|
By default, the value is 'fd, but you can change it to 'find too.
|
|
For now, no other program is supported.
|
|
|
|
By default, ivy-quick-find-files will try to find fd or find in your
|
|
path. You can customize the executable to use with
|
|
`ivy-quick-find-files-fd-executable' and
|
|
`quind-find-files-find-executable'."
|
|
:group 'ivy-quick-find-files
|
|
:type 'symbol)
|
|
|
|
(defcustom ivy-quick-find-files-fd-executable "fd"
|
|
"Executable name or path to the executable of fd."
|
|
:group 'ivy-quick-find-files
|
|
:type 'string)
|
|
|
|
(defcustom ivy-quick-find-files-find-executable "find"
|
|
"Executable name or path to the executable of find."
|
|
:group 'ivy-quick-find-files
|
|
:type 'string)
|
|
|
|
(defcustom ivy-quick-find-files-dirs-and-exts '()
|
|
"List of pairs of directories and extensions.
|
|
|
|
Each element should be a pair of a directory path and an
|
|
extension, such as
|
|
|
|
'((\"~/Documents/org/\" . \"org\"))"
|
|
:group 'ivy-quick-find-files
|
|
:type 'list)
|
|
|
|
; Internal functions ;;;;;;;;;;;;;;;;;;
|
|
|
|
(defun ivy-quick-find-files--split-lines (str &optional omit-null)
|
|
"Split a multilines `STR' into a list of strings.
|
|
|
|
If `OMIT-NULL' is non-null, ignore empty strings."
|
|
(declare (side-effect-free t))
|
|
(split-string str "\\(\r\n\\|[\n\r]\\)" omit-null))
|
|
|
|
(defun ivy-quick-find-files--fd (dir ext)
|
|
"Find files in directory `DIR' with extension `EXT' with fd.
|
|
|
|
Return a list of paths to files."
|
|
(declare (side-effect-free t))
|
|
(ivy-quick-find-files--split-lines
|
|
(shell-command-to-string (format "fd . %s -e %s -c never"
|
|
dir
|
|
ext))
|
|
t))
|
|
|
|
(defun ivy-quick-find-files--find (dir ext)
|
|
"Find files in directory `DIR' with extension `EXT' with find.
|
|
|
|
Return a list of paths to files."
|
|
(declare (side-effect-free t))
|
|
(ivy-quick-find-files--split-lines
|
|
(shell-command-to-string (format "find %s -name \"*.%s\""
|
|
dir
|
|
ext))
|
|
t))
|
|
|
|
; Public functions ;;;;;;;;;;;;;;;;;;;;
|
|
|
|
(defun ivy-quick-find-files-list-files ()
|
|
"List files in directories and with specific extensions.
|
|
|
|
The directories and extensions are specified in the variable
|
|
`ivy-quick-find-files-dirs-and-exts'.
|
|
|
|
Return a list of paths to files."
|
|
(declare (side-effect-free t))
|
|
(mapcan (lambda (dir-ext)
|
|
(pcase ivy-quick-find-files-program
|
|
('fd (ivy-quick-find-files--fd (car dir-ext)
|
|
(cdr dir-ext)))
|
|
('find (ivy-quick-find-files--find (car dir-ext)
|
|
(car dir-ext)))
|
|
(otherwise (error "%s not yet supported for finding files. Open an issue to request it"
|
|
otherwise))))
|
|
ivy-quick-find-files-dirs-and-exts))
|
|
|
|
(defun ivy-quick-find-files ()
|
|
"Quickly find and open files in directories with specific extensions.
|
|
|
|
Directories in which to look for files with specific extensions
|
|
are specified in `ivy-quick-find-files-dirs-and-exts'."
|
|
(interactive)
|
|
(find-file (ivy-completing-read "Open file: "
|
|
(ivy-quick-find-files-list-files))))
|
|
|
|
; Provides ;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
|
|
(provide 'ivy-quick-find-files)
|
|
|
|
;;; ivy-quick-find-files.el ends here
|