lucas/dotfiles
1
0
Fork 0
Code Activity

fix(emacs): resolve bug when in dired window

Browse source 
Signed-off-by: Lucas Sta Maria <lucas@priime.dev>
This commit is contained in:
Lucas Sta Maria 2024-02-02 17:44:16 -05:00
parent dc4bcb4d5f
commit a5632b9dc4
No known key found for this signature in database
GPG key ID: F07FB16A826E3B47
1 changed files with 3 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

4
.emacs.d/include/misc.el
View file

@ -189,7 +189,9 @@
(defun grade-file-format (num) (defun grade-file-format (num)
"Format NUM to a file in the grading directory." "Format NUM to a file in the grading directory."
(let* ((dir (file-name-directory (buffer-file-name))) (let* ((dir (if (eq 'dired-mode major-mode)
(dired-current-directory)
(file-name-directory (buffer-file-name))))
(dir-files (directory-files dir)) (dir-files (directory-files dir))
(extension ".rkt") (extension ".rkt")
(all-rkt-files (-filter (lambda (f) (string= (file-name-extension f) "rkt")) (all-rkt-files (-filter (lambda (f) (string= (file-name-extension f) "rkt"))