aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorMathias Dahl2006-02-09 23:08:19 +0000
committerMathias Dahl2006-02-09 23:08:19 +0000
commit49f18bccba0bc666c50057831862d224639deeb2 (patch)
tree737fa4f08263774d6f009330d1bafd455f556c98
parent13664bec59d325535eb280ed3fe2b8a69d5b6876 (diff)
downloademacs-49f18bccba0bc666c50057831862d224639deeb2.tar.gz
emacs-49f18bccba0bc666c50057831862d224639deeb2.zip
Tried to make docstring less `colloquial'...
-rw-r--r--lisp/tumme.el36
1 files changed, 16 insertions, 20 deletions
diff --git a/lisp/tumme.el b/lisp/tumme.el
index 2fd4a09777a..0436a0cb55e 100644
--- a/lisp/tumme.el
+++ b/lisp/tumme.el
@@ -847,7 +847,7 @@ Used by `tumme-copy-with-exif-file-name'."
847 847
848(defcustom tumme-show-all-from-dir-max-files 50 848(defcustom tumme-show-all-from-dir-max-files 50
849 "*Maximum number of files to show using`tumme-show-all-from-dir'. 849 "*Maximum number of files to show using`tumme-show-all-from-dir'.
850 before warning the user." 850before warning the user."
851 :type 'integer 851 :type 'integer
852 :group 'tumme) 852 :group 'tumme)
853 853
@@ -1025,8 +1025,8 @@ Convenience command that:
1025 - Set `truncate-lines' to t 1025 - Set `truncate-lines' to t
1026 1026
1027After the command has finished, you would typically mark some 1027After the command has finished, you would typically mark some
1028image files in dired and call `tumme-display-thumbs' (by default 1028image files in dired and type
1029bound to C-t d). 1029\\[tumme-display-thumbs] (`tumme-display-thumbs').
1030 1030
1031If called with prefix argument ARG, skip splitting of windows. 1031If called with prefix argument ARG, skip splitting of windows.
1032 1032
@@ -1119,7 +1119,7 @@ displayed."
1119 (and (> (length files) tumme-show-all-from-dir-max-files) 1119 (and (> (length files) tumme-show-all-from-dir-max-files)
1120 (y-or-n-p 1120 (y-or-n-p
1121 (format 1121 (format
1122 "Directory contains more than %d image files. Proceed? " 1122 "Directory contains more than %d image files. Proceed? "
1123 tumme-show-all-from-dir-max-files)))) 1123 tumme-show-all-from-dir-max-files))))
1124 (progn 1124 (progn
1125 (tumme-display-thumbs) 1125 (tumme-display-thumbs)
@@ -1832,7 +1832,7 @@ Note that n, p and <down> and <up> will be hijacked and bound to
1832(defun tumme-create-thumbs (&optional arg) 1832(defun tumme-create-thumbs (&optional arg)
1833 "Create thumbnail images for all marked files in dired. 1833 "Create thumbnail images for all marked files in dired.
1834With prefix argument ARG, create thumbnails even if they already exist 1834With prefix argument ARG, create thumbnails even if they already exist
1835\(i.e. use this to refresh your thumbnails)." 1835\(i.e. use this to refresh your thumbnails)."
1836 (interactive "P") 1836 (interactive "P")
1837 (let (curr-file thumb-name files count) 1837 (let (curr-file thumb-name files count)
1838 (setq files (dired-get-marked-files)) 1838 (setq files (dired-get-marked-files))
@@ -2248,21 +2248,17 @@ default value at the prompt."
2248 2248
2249(defun tumme-copy-with-exif-file-name () 2249(defun tumme-copy-with-exif-file-name ()
2250 "Copy file with unique name to main image directory. 2250 "Copy file with unique name to main image directory.
2251Copy current or all marked files in dired to a new file in your main 2251Copy current or all marked files in dired to a new file in your
2252image directory, using a file name generated by 2252main image directory, using a file name generated by
2253`tumme-get-exif-file-name'. This might or might not be useful for 2253`tumme-get-exif-file-name'. A typical usage for this if when
2254other people, but I use it each time I fetch images from my digital 2254copying images from a digital camera into the image directory.
2255camera, for copying the images into my main image directory.
2256
2257Typically I open up the folder where I store my incoming digital
2258images, with file names like dscn0319.jpg, dscn0320.jpg etc., mark the
2259files I want to copy into my main image directory, and execute this
2260function. The result is a couple of new files in
2261`tumme-main-image-directory' called 2005_05_08_12_52_00_dscn0319.jpg,
22622005_05_08_14_27_45_dscn0320.jpg etc.
2263 2255
2264When the images are safely in my main image directory I start to 2256 Typically, you would open up the folder with the incoming
2265browse and tag them using rest of the functionality in `tumme'." 2257digital images, mark the files to be copied, and execute this
2258function. The result is a couple of new files in
2259`tumme-main-image-directory' called
22602005_05_08_12_52_00_dscn0319.jpg,
22612005_05_08_14_27_45_dscn0320.jpg etc."
2266 (interactive) 2262 (interactive)
2267 (let (new-name 2263 (let (new-name
2268 (files (dired-get-marked-files))) 2264 (files (dired-get-marked-files)))
@@ -2605,7 +2601,7 @@ when using per-directory thumbnail file storage"))
2605 ;; Make sure gallery root exist 2601 ;; Make sure gallery root exist
2606 (if (file-exists-p tumme-gallery-dir) 2602 (if (file-exists-p tumme-gallery-dir)
2607 (if (not (file-directory-p tumme-gallery-dir)) 2603 (if (not (file-directory-p tumme-gallery-dir))
2608 (error "tumme-gallery-dir is not a directory")) 2604 (error "Variable tumme-gallery-dir is not a directory"))
2609 (make-directory tumme-gallery-dir)) 2605 (make-directory tumme-gallery-dir))
2610 ;; Open index file 2606 ;; Open index file
2611 (setq index-buf (find-file 2607 (setq index-buf (find-file