init-dired.el

;; init-dired.el --- config for dired-mode -*- lexical-binding: t -*-
(keymap-set dired-mode-map "C-c C-o" 'crux-open-with)

(setq completion-ignored-extensions
      (append completion-ignored-extensions
	      '("./" "../" ".xlsx" ".docx" ".pptx" ".DS_Store")))

;; "dired-mode-map"
;; Use build-in `wdired-mode'.
;; (keymap-set dired-mode-map "R" 'wdired-change-to-wdired-mode)
;; http://elpa.gnu.org/packages/gited.html
(when (require 'gited nil t)
  (keymap-set dired-mode-map "C-x C-g" 'gited-list-branches))
;; https://github.com/Fuco1/dired-hacks
(when (require 'dired-narrow nil t)
  (keymap-set dired-mode-map "/" 'dired-narrow))
(require 'dired-du nil t)
(when (require 'ivy-dired-history nil t)
  ;; ivy-dired-history-variable は，session.el で明示的に管理中．
  ;; check session-globals-include
  (keymap-set dired-mode-map "," 'dired))
(declare-function dired-extra-startup "dired-x")
(when (require 'dired-x nil t)
  (dired-extra-startup))
(defun my-reveal-in-finder ()
  "Reveal the current buffer in Finder."
  (interactive)
  (shell-command-to-string "open ."))
;; dired-x を読み込んだあとじゃないとだめ
(keymap-set dired-mode-map "F" 'my-reveal-in-finder)
;; 上位ディレクトリへの移動
(keymap-set dired-mode-map "u" 'dired-up-directory)
;; Finder を使ったファイルオープン
(keymap-set dired-mode-map "f" 'ns-open-file-using-panel)

(keymap-set dired-mode-map "C-M-p" (lambda () (interactive) (other-window -1)))
(keymap-set dired-mode-map "C-M-n" (lambda () (interactive) (other-window 1)))

;; https://github.com/xuchunyang/emacs.d
;; type "!" or "X" in dired
(when (eq system-type 'darwin)
  (setq dired-guess-shell-alist-user
	(list
	 (list (rx (and "."
			(or
			 ;; Videos
			 "mp4" "avi" "mkv" "rmvb"
			 ;; Torrent
			 "torrent"
			 ;; PDF
			 "pdf"
			 ;; Image
			 "gif" "png" "jpg" "jpeg")
			string-end)) "open"))))

(provide 'init-dired)