(kill-buffer buf)
(split-string tags ";"))))
+;;;###autoload
(defun tumme-tag-files (arg)
"Tag marked file(s) in dired. With prefix ARG, tag file at point."
(interactive "P")
(tumme-update-property
'tags (tumme-list-tags (tumme-original-file-name))))
+;;;###autoload
(defun tumme-tag-remove (arg)
"Remove tag for selected file(s).
With prefix argument ARG, remove tag from file at point."
(select-window window))
(message "Associated dired buffer not visible"))))
+;;;###autoload
(defun tumme-jump-thumbnail-buffer ()
"Jump to thumbnail buffer."
(interactive)
(if (looking-at " ")
(delete-char 1))))
+;;;###autoload
(defun tumme-display-thumbs-append ()
"Append thumbnails to `tumme-thumbnail-buffer'."
(interactive)
(tumme-display-thumbs nil t))
+;;;###autoload
(defun tumme-display-thumb ()
"Shorthard for `tumme-display-thumbs' with prefix argument."
(interactive)
tumme-external-viewer
file))))))
+;;;###autoload
(defun tumme-dired-display-external ()
"Display file at point using an external viewer."
(interactive)
(tumme-display-image file arg)
(display-buffer tumme-display-image-buffer))))))
+;;;###autoload
(defun tumme-display-dired-image (&optional arg)
"Display current image file.
See documentation for `tumme-display-image' for more information.
prop
value)))
+;;;###autoload
(defun tumme-dired-comment-files ()
"Add comment to current or marked files in dired."
(interactive)
(kill-buffer buf)
comment)))
+;;;###autoload
(defun tumme-mark-tagged-files ()
"Use regexp to mark files with matching tag."
(interactive)