From 19ea9c29fd924b7c023abd99e76fcdd3c6c3f66a Mon Sep 17 00:00:00 2001 From: yuzu-eva Date: Sat, 9 Sep 2023 00:46:10 +0200 Subject: added a find-next-file function. useful for viewing images or skimming through text files --- config.org | 24 +++++++++++++++++++++--- 1 file changed, 21 insertions(+), 3 deletions(-) (limited to 'config.org') diff --git a/config.org b/config.org index d0fa8a8..0c95f9b 100644 --- a/config.org +++ b/config.org @@ -319,11 +319,10 @@ My preferred org-mode defaults (set-frame-parameter nil 'alpha (if (eql (cond ((numberp alpha) alpha) - ((numberp (cdr alpha)) (cdr alpha)) - ;; Also handle undocumented ( ) form. - ((numberp (cadr alpha)) (cadr alpha))) + ((numberp (cdr alpha)) (cdr alpha))) 100) '(90 . 90) '(100 . 100))))) + (global-set-key (kbd "C-c t") 'toggle-transparency) #+end_src @@ -385,6 +384,25 @@ My preferred org-mode defaults (global-set-key (kbd "C-M-s-k") 'kill-all-buffers) #+end_src +** Find-next-file + +#+begin_src emacs-lisp + (defun find-next-file (&optional backward) + "Find the next file (by name) in the current directory. + + With prefix arg, find the previous file." + (interactive "P") + (when buffer-file-name + (let* ((file (expand-file-name buffer-file-name)) + (files (cl-remove-if (lambda (file) (cl-first (file-attributes file))) + (sort (directory-files (file-name-directory file) t nil t) 'string<))) + (pos (mod (+ (cl-position file files :test 'equal) (if backward -1 1)) + (length files)))) + (find-file (nth pos files))))) + + (global-set-key (kbd "C-c C-j") 'find-next-file) + (global-set-key (kbd "C-c C-k") (lambda () (interactive) (find-next-file :backward))) +#+end_src * Use-Package section ** Initialize =dashboard= -- cgit v1.2.3