diff options
| author | Thanos Apollo <[email protected]> | 2024-07-10 13:38:51 +0300 |
|---|---|---|
| committer | Thanos Apollo <[email protected]> | 2024-07-10 13:38:51 +0300 |
| commit | 2a4acc646379e5614af15d006b9ff23abc936cf8 (patch) | |
| tree | a24eb700f13368c5ac437ae29c81d0270f8616d4 | |
| parent | a5633f9014f5707ff3bce50c782ac0f7d638e0ec (diff) | |
emacs: init: Add thanos/dired-gnosis-rename
| -rw-r--r-- | .config/emacs/init.el | 31 |
1 files changed, 18 insertions, 13 deletions
diff --git a/.config/emacs/init.el b/.config/emacs/init.el index 9fe89de..90439f4 100644 --- a/.config/emacs/init.el +++ b/.config/emacs/init.el @@ -93,24 +93,23 @@ (setf straight-use-package-by-default t) (setf straight-recipe-overrides - '((transmission :type git :host nil :repo "[email protected]:/var/git/transmission.git") - (gnosis :type git :host nil :repo "[email protected]:/var/git/gnosis.git") - (pcmpl-emerge :type git :host nil :repo "[email protected]:/var/git/pcmpl-emerge.git") - (pcmpl-rc :type git :host nil :repo "[email protected]:/var/git/pcmpl-rc.git"))) + '((transmission :type git :host nil :repo "[email protected]:/var/git/transmission.git"))) + +(setf browse-url-browser-function 'browse-url-generic + browse-url-generic-program "librewolf" + backup-directory-alist '((".*" . "~/.Trash")) + sentence-end-double-space t + default-input-method "bulgarian-phonetic" + gc-cons-threshold 5000000 + disabled-command-function nil ;; Enable all commands + url-privacy-level 'high) + +(setq calendar-date-style 'european) (use-package emacs :ensure t :config - (setf browse-url-browser-function 'browse-url-generic - browse-url-generic-program "librewolf" - backup-directory-alist '((".*" . "~/.Trash")) - sentence-end-double-space t - default-input-method "bulgarian-phonetic" - gc-cons-threshold 5000000 - disabled-command-function nil ;; Enable all commands - url-privacy-level 'high - calendar-date-style 'european) (if is-zeus (display-battery-mode 0) (display-battery-mode 1)) @@ -118,6 +117,12 @@ ;; use ssh for tramp, faster for small files (setf tramp-default-method "ssh") + (defun thanos/dired-gnosis-rename (&optional file) + (interactive) + (let ((file (or file (dired-get-filename))) + (name (read-string "File name: "))) + (dired-rename-file file (expand-file-name name gnosis-images-dir) nil))) + (savehist-mode) (save-place-mode 1) (recentf-mode 1) |