Lines Matching +refs:dired +refs:directory
32 ;; your images, use image-dired.el
49 ;; Type M-x thumbs RET DIR RET to view the directory DIR in Thumbs mode.
50 ;; That should be a directory containing image files.
51 ;; from dired, C-t m enter in thumbs-mode with all marked files
52 ;; C-t a enter in thumbs-mode with all files in current-directory
61 (require 'dired)
72 :type 'directory
81 "Number of thumbnails per line to show in directory."
91 "Maximum size for thumbnails directory.
124 "If set, delete older file in the thumbnails directory.
125 Deletion is done at load time when the directory size is bigger
135 (defcustom thumbs-temp-dir temporary-file-directory
136 "Temporary directory to use.
137 Defaults to `temporary-file-directory'. Leaving it to
139 :type 'directory
173 "Current directory.")
196 (file-name-as-directory (expand-file-name thumbs-temp-dir)))
206 "Return the current thumbnails directory (from `thumbs-thumbsdir').
207 Create the thumbnails directory if it does not exist."
208 (let ((thumbs-thumbsdir (file-name-as-directory
210 (unless (file-directory-p thumbs-thumbsdir)
211 (make-directory thumbs-thumbsdir t)
212 (message "Creating thumbnails directory"))
216 "Clean the thumbnails directory.
226 (directory-files (thumbs-thumbsdir) t (image-file-name-regexp)))
236 ;; Check the thumbsnail directory size and clean it if necessary.
398 (if dir (setq default-directory dir))
401 (set (make-local-variable 'thumbs-current-dir) default-directory)))
410 (directory-files dir t (or reg (image-file-name-regexp)))
414 (defun thumbs-dired-show-marked ()
415 "In dired, make a thumbs buffer with marked files."
417 (thumbs-show-thumbs-list (dired-get-marked-files) nil t))
420 (defun thumbs-dired-show ()
421 "In dired, make a thumbs buffer with all files in current directory."
423 (thumbs-show-from-dir default-directory nil t))
536 (interactive "FRename to file or directory: ")
539 (if (and (not (file-directory-p newfile))
543 (make-directory newfile t)))
550 (if (file-directory-p newfile)
646 (directory-files (thumbs-temp-dir) t thumbs-temp-prefix))
730 (thumbs-dired-show))
747 (defun thumbs-dired ()
748 "Use `dired' on the current thumbs directory."
750 (dired thumbs-current-dir))
766 (define-key map "d" 'thumbs-dired)
806 (defun thumbs-dired-setroot ()
807 "In dired, call the setroot program on the image at point."
809 (thumbs-call-setroot-command (dired-get-filename)))
811 ;; Modif to dired mode map
812 (define-key dired-mode-map "\C-ta" 'thumbs-dired-show)
813 (define-key dired-mode-map "\C-tm" 'thumbs-dired-show-marked)
814 (define-key dired-mode-map "\C-tw" 'thumbs-dired-setroot)