Lines Matching +refs:dired +refs:marked
32 ;; your images, use image-dired.el
51 ;; from dired, C-t m enter in thumbs-mode with all marked files
61 (require 'dired)
175 (defvar thumbs-marked-list nil
176 "List of marked files.")
177 (make-variable-buffer-local 'thumbs-marked-list)
178 (put 'thumbs-marked-list 'permanent-local t)
350 (defun thumbs-insert-image (img type relief &optional marked)
354 If MARKED is non-nil, the image is marked."
358 :conversion ,(if marked 'disabled)
364 (defun thumbs-insert-thumb (img &optional marked)
366 If MARKED is non-nil, the image is marked."
368 (thumbs-make-thumb img) 'jpeg thumbs-relief marked)
382 (member img thumbs-marked-list))
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."
514 "Delete the image at point (and its thumbnail) (or marked files if any)."
516 (let ((files (or thumbs-marked-list (list (thumbs-current-image)))))
531 (setq thumbs-marked-list
532 (delq x thumbs-marked-list)))))))))
535 "Rename the image at point (and its thumbnail) (or marked files if any)."
537 (let ((files (or thumbs-marked-list (list (thumbs-current-image))))
540 thumbs-marked-list)
542 (error "Renaming marked files to file name `%s'" newfile)
562 (setq thumbs-marked-list
563 (delq file thumbs-marked-list)))))))
626 (push elt thumbs-marked-list)
638 (setq thumbs-marked-list (delete elt thumbs-marked-list))
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)