("/ e" 'my-dired-filter-by-ext)
("/ /" 'my-dired-filter-by-name)
("/ h" 'my-dired-hide-by-ext)
+ ("/ i" 'my-dired-list-all-subdirs)
;; TODO: pridat C-b z totalcmd
+(defun my-dired-list-all-subdirs (arg)
+ (ido-read-directory-name "Directory: " default-directory default-directory)
(defun my-image-dired--with-image-in-dired (operation)
"OPERATION is a function of two arguments, the file we operate
on and associated dired buffer."
+;; FUCO PATCH image-dired
+(defun image-dired-track-original-file ()
+ "Track the original file in the associated dired buffer.
+See documentation for `image-dired-toggle-movement-tracking'.
+Interactive use only useful if `image-dired-track-movement' is nil."
+ (let ((old-buf (current-buffer))
+ (dired-buf (image-dired-associated-dired-buffer))
+ (file-name (image-dired-original-file-name)))
+ (when (and (buffer-live-p dired-buf) file-name)
+ (with-current-buffer dired-buf
+ (if (not (dired-goto-file file-name))
+ (message "Could not track file")
+ (lambda (w) (set-window-point w p))
+ (lambda (w) (equal (window-buffer w) dired-buf))
+ (cl-mapcan 'window-list (frame-list))))))))))
(defadvice select-window (after image-dired-resize-image activate)
(when (eq major-mode 'image-dired-display-image-mode)