phundrak/dotfiles
1
0
Fork 0
Code Issues Pull Requests Activity

added dired-phundrak layer for Spacemacs

Browse Source
This commit is contained in:
Phuntsok Drak-pa 2019-09-29 18:14:14 +02:00
parent d92253315e
commit 1dcf57d1b4
3 changed files with 5 additions and 91 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
.emacs.d/private/dired-phundrak Submodule

@ -0,0 +1 @@
Subproject commit 28b6443817be1308383cb6e453839e3c8402e0a9

3
.gitmodules vendored
View File

@ -13,3 +13,6 @@
[submodule "spacemacs"]
path = .emacs.d
url = https://github.com/syl20bnr/spacemacs
[submodule "dired-phundrak"]
path = .emacs.d/private/dired-phundrak
url = https://labs.phundrak.fr/phundrak/dired-phundrak.git

92
.spacemacs
View File

@ -58,6 +58,7 @@ This function should only modify configuration layer settings."
conlanging
csv
colors
dired-phundrak
django
docker
emacs-lisp
@ -156,7 +157,6 @@ This function should only modify configuration layer settings."
;; configuration in `dotspacemacs/user-config'.
dotspacemacs-additional-packages '(atomic-chrome
cmake-mode
dired-x
dionysos
doom-themes
edit-indirect
@ -164,7 +164,6 @@ This function should only modify configuration layer settings."
evil
eshell-git-prompt
fireplace
image-dired+
kaolin-themes
meson-mode
modern-cpp-font-lock
@ -703,7 +702,6 @@ dump."
(global-set-key (kbd "<C-tab>") 'evil-close-fold)
(global-set-key (kbd "<S-C-tab>") 'evil-close-folds)
(global-set-key (kbd "<C-iso-lefttab>") 'evil-open-fold)
(global-set-key (kbd "<s-f1>") (lambda () (interactive) (dired "~/")))
(spacemacs/declare-prefix "o" "custom")
(spacemacs/declare-prefix "oa" "applications")
(spacemacs/declare-prefix "oc" "comments")
@ -786,94 +784,6 @@ dump."
; Dired ;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(eval-after-load "dired"
'(progn
(define-key dired-mode-map "F" 'xah/open-in-external-app)
(define-key dired-mode-map "f" 'phundrak/open-marked-files)
(define-key dired-mode-map "s" 'xah/dired-sort)
(define-key dired-mode-map "-" 'xah/dired-rename-space-to-hyphen)
(define-key dired-mode-map "_" 'xah/dired-rename-space-to-underscore)
(defun phundrak/open-marked-files (&optional @fname)
"Open all marked files in dired buffer as new Emacs
buffers"
(interactive)
(let* (($file-list (if @fname
(progn (list @fname))
(if (string-equal major-mode "dired-mode")
(dired-get-marked-files)
(list (buffer-file-name))))))
(mapc (lambda ($fpath)
(find-file $fpath))
$file-list)))
(defun xah/open-in-external-app (&optional @fname)
"Open the current file or dired marked file in external app.
The app is chosen from your OS’ preference.
When called in emacs lisp, if @fname is given, open that.
URL `http://ergoemacs.org/emacs/emacs_dired_open_file_in_ext_apps.html'
Version 2019-01-18"
(interactive)
(let* (($file-list (if @fname
(progn (list @fname))
(if (string-equal major-mode "dired-mode")
(dired-get-marked-files)
(list (buffer-file-name)))))
($do-it-p (if (<= (length $file-list) 5)
t
(y-or-n-p "Open more than 5 files? "))))
(when $do-it-p
(mapc (lambda ($fpath)
(let ((process-connection-type nil))
(start-process "" nil "xdg-open" $fpath)))
$file-list))))
(defun xah/dired-sort ()
"Sort dired dir listing in different ways.
Prompt for a choice.
URL `http://ergoemacs.org/emacs/dired_sort.html'
Version 2018-12-23, modified by Phundrak on 2019-08-06"
(interactive)
(let ($sort-by $arg)
(setq $sort-by (ido-completing-read "Sort by:" '( "name" "size" "date" "extension" )))
(cond
((equal $sort-by "name") (setq $arg "-ahl --group-directories-first"))
((equal $sort-by "date") (setq $arg "-ahl -t --group-directories-first"))
((equal $sort-by "size") (setq $arg "-ahl -S --group-directories-first"))
((equal $sort-by "extension") (setq $arg "-ahlD -X --group-directories-first"))
(t (error "logic error 09535" )))
(dired-sort-other $arg )))
(defun xah/dired-rename-space-to-underscore ()
"In dired, rename current or marked files by replacing
space to underscore _. If not in `dired', do nothing.
URL `http://ergoemacs.org/emacs/elisp_dired_rename_space_to_underscore.html'
Version 2017-01-02"
(interactive)
(require 'dired-aux)
(if (equal major-mode 'dired-mode)
(progn
(mapc (lambda (x)
(when (string-match " " x )
(dired-rename-file x (replace-regexp-in-string " " "_" x) nil)))
(dired-get-marked-files ))
(revert-buffer))
(user-error "Not in dired.")))
(defun xah/dired-rename-space-to-hyphen ()
"In dired, rename current or marked files by replacing
space to hyphen -. If not in `dired', do nothing.
URL `http://ergoemacs.org/emacs/elisp_dired_rename_space_to_underscore.html'
Version 2016-12-22"
(interactive)
(require 'dired-aux)
(if (equal major-mode 'dired-mode)
(progn
(mapc (lambda (x)
(when (string-match " " x )
(dired-rename-file x (replace-regexp-in-string " " "_" x) nil)))
(dired-get-marked-files ))
(revert-buffer))
(user-error "Not in dired")))))
(setq dired-recursive-copies (quote always)
dired-dwim-target t
dired-listing-switches "-ahl --group-directories-first")