Lines Matching +defs:thumb +defs:name
187 The name is made by appending a number to PREFIX, default \"G\"."
196 (file-name-as-directory (expand-file-name thumbs-temp-dir)))
208 (let ((thumbs-thumbsdir (file-name-as-directory
209 (expand-file-name thumbs-thumbsdir))))
226 (directory-files (thumbs-thumbsdir) t (image-file-name-regexp)))
259 (call-process shell-file-name nil nil nil shell-command-switch command)))
302 "Return a thumbnail name for the image IMG."
304 (let ((filename (expand-file-name img)))
314 (defun thumbs-make-thumb (img)
316 (let ((fn (expand-file-name img))
345 (defun thumbs-find-thumb (img)
348 (find-file (thumbs-make-thumb img)))
364 (defun thumbs-insert-thumb (img &optional marked)
368 (thumbs-make-thumb img) 'jpeg thumbs-relief marked)
370 `(thumb-image-file ,img
371 help-echo ,(file-name-nondirectory img)
381 (thumbs-insert-thumb img
410 (directory-files dir t (or reg (image-file-name-regexp)))
434 (setq mode-name
435 (concat "image-view-mode: " (file-name-nondirectory img)
470 (shell-quote-argument (expand-file-name img))
488 "Make an alist of elements (POS . FILENAME) for all images in thumb buffer."
503 "Make a list of file names for all images in thumb buffer."
542 (error "Renaming marked files to file name `%s'" newfile)
552 (expand-file-name
553 (file-name-nondirectory file)
580 (setq mode-name
581 (concat "image-view-mode: " (file-name-nondirectory img)
629 (thumbs-insert-thumb elt t)))
641 (thumbs-insert-thumb elt nil)))
694 "Return the name of the image file name at point."
695 (get-text-property (point) 'thumb-image-file))
703 (thumbs-show-name))
711 (thumbs-show-name))
717 (thumbs-show-name))
723 (thumbs-show-name))
732 (defun thumbs-show-name ()
733 "Show the name of the current file."
771 (define-key map "s" 'thumbs-show-name)