diff options
| author | Craig Jennings <c@cjennings.net> | 2025-10-23 00:26:17 -0500 |
|---|---|---|
| committer | Craig Jennings <c@cjennings.net> | 2025-10-23 00:26:17 -0500 |
| commit | 57bd5af172f8d6c91ebac0b8edf1f8458fa47f08 (patch) | |
| tree | f48f70eb74cadc2c54e4c251a22b16dba0ecf5da | |
| parent | c3f0e939a3559dfc5dc3cd5c240755ccf2091ddf (diff) | |
feat:dirvish-config: Add absolute path copy functionality
Introduce the 'L' key binding to copy the absolute file path in
Dirvish. Extend `cj/dired-copy-path-as-kill` function to support
force copying of absolute paths with the new `force-absolute`
argument. This enhances the path copying capabilities by allowing
users to directly copy absolute paths when needed.
| -rw-r--r-- | modules/dirvish-config.el | 12 |
1 files changed, 10 insertions, 2 deletions
diff --git a/modules/dirvish-config.el b/modules/dirvish-config.el index 100fa7bc..1f67564d 100644 --- a/modules/dirvish-config.el +++ b/modules/dirvish-config.el @@ -12,6 +12,7 @@ ;; - f: Open system file manager in current directory ;; - o/O: Open file with xdg-open/custom command ;; - l: Copy file path (project-relative or home-relative) +;; - L: Copy absolute file path ;; - P: Create M3U playlist from marked audio files ;; - M-D: DWIM menu (context actions for files) ;; - TAB: Toggle subtree expansion @@ -273,6 +274,7 @@ regardless of what file or subdirectory the point is on." ("F" . dirvish-file-info-menu) ("G" . revert-buffer) ("l" . (lambda () (interactive) (cj/dired-copy-path-as-kill))) ;; overwrites dired-do-redisplay + ("L" . (lambda () (interactive) (cj/dired-copy-path-as-kill nil t))) ;; copy absolute path ("h" . cj/dirvish-open-html-in-eww) ;; it does what it says it does ("M" . cj/dired-mark-all-visible-files) ("M-e" . dirvish-emerge-menu) @@ -335,11 +337,12 @@ regardless of what file or subdirectory the point is on." ;; --------------------------------- Copy Path --------------------------------- -(defun cj/dired-copy-path-as-kill (&optional as-org-link) +(defun cj/dired-copy-path-as-kill (&optional as-org-link force-absolute) "Copy path of file at point in Dired/Dirvish. Copies relative path from project root if in a project, otherwise from home directory (with ~ prefix) if applicable, otherwise the absolute path. -With prefix arg or when AS-ORG-LINK is non-nil, format as \='org-mode\=' link." +With prefix arg or when AS-ORG-LINK is non-nil, format as \='org-mode\=' link. +When FORCE-ABSOLUTE is non-nil, always copy the absolute path." (interactive "P") (unless (derived-mode-p 'dired-mode) (user-error "Not in a Dired buffer")) @@ -354,6 +357,11 @@ With prefix arg or when AS-ORG-LINK is non-nil, format as \='org-mode\=' link." (user-error "No file at point")) (cond + ;; Force absolute path + (force-absolute + (setq path file + path-type "absolute")) + ;; Project-relative path (project-root (setq path (file-relative-name file project-root) |