mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-21 07:30:50 -08:00
Code Issues Projects Releases Wiki Activity

(tumme-write-tags): Add.

Browse source 
(tumme-write-comments): Add.
(tumme-tag-files): Change to use `tumme-write-tags'.
(tumme-tag-thumbnail): Change to use `tumme-write-tags'.
(tumme-dired-comment-files): Change to use `tumme-write-comments'.
(tumme-save-information-from-widgets): Change to use
`tumme-write-comments' and `tumme-write-tags'.
(tumme-comment-thumbnail): Change to use `tumme-write-comments'.
(tumme-write-tag): Remove.
(tumme-write-comment): Remove.
(tumme-display-previous-thumbnail-original): Remove empty line.
(tumme-widget-list): Add punctuation.
This commit is contained in:
Mathias Dahl 2006-07-24 16:27:17 +00:00
parent dca90550b9
commit 41fdf678d8
2 changed files with 9 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

1
lisp/ChangeLog
View file

@ -11,6 +11,7 @@
(tumme-write-tag): Remove.
(tumme-write-comment): Remove.
(tumme-display-previous-thumbnail-original): Remove empty line.
(tumme-widget-list): Add punctuation.
2006-07-24 mathias <mathias.dahl@gmail.com>

16
lisp/tumme.el
View file

@ -84,7 +84,7 @@
;; USAGE
;; =====
;;
;; This information has been moved to the manual. Type `C-h r' to open
;; This information has been moved to the manual. Type `C-h r' to open
;; the Emacs manual and go to the node Thumbnails by typing `g
;; Thumbnails RET'.
;;
@ -648,7 +648,7 @@ according to the Thumbnail Managing Standard."
;; Can't use (overlays-at (point)), BUG?
(overlays-in (point) (1+ (point)))))
(put-image thumb-file image-pos)
(setq
(setq
overlay
(car (delq nil (mapcar (lambda (o) (and (overlay-get o 'put-image) o))
(overlays-in (point) (1+ (point)))))))
@ -2431,7 +2431,7 @@ when using per-directory thumbnail file storage"))
(kill-buffer buffer)))
(defvar tumme-widget-list nil
"List to keep track of meta data in edit buffer")
"List to keep track of meta data in edit buffer.")
;;;###autoload
(defun tumme-dired-edit-comment-and-tags ()
@ -2449,7 +2449,7 @@ easy-to-use form."
(erase-buffer))
(remove-overlays)
;; Some help for the user.
(widget-insert
(widget-insert
"\nEdit comments and tags for each image. Separate multiple tags
with a comma. Move forward between fields using TAB or RET.
Move to the previous field using backtab (S-TAB). Save by
@ -2483,15 +2483,15 @@ the operation by activating the Cancel button.\n\n")
",") "")))
;; Save information in all widgets so that we can use it when
;; the user saves the form.
(setq tumme-widget-list
(append tumme-widget-list
(setq tumme-widget-list
(append tumme-widget-list
(list (list file comment-widget tag-widget))))
(widget-insert "\n\n")))
;; Footer with Save and Cancel button.
(widget-insert "\n")
(widget-create 'push-button
:notify
:notify
(lambda (&rest ignore)
(tumme-save-information-from-widgets)
(bury-buffer)
@ -2499,7 +2499,7 @@ the operation by activating the Cancel button.\n\n")
"Save")
(widget-insert " ")
(widget-create 'push-button
:notify
:notify
(lambda (&rest ignore)
(bury-buffer)
(message "Operation canceled."))