From 49f18bccba0bc666c50057831862d224639deeb2 Mon Sep 17 00:00:00 2001 From: Mathias Dahl Date: Thu, 9 Feb 2006 23:08:19 +0000 Subject: [PATCH] Tried to make docstring less `colloquial'... --- lisp/tumme.el | 36 ++++++++++++++++-------------------- 1 file 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'." (defcustom tumme-show-all-from-dir-max-files 50 "*Maximum number of files to show using`tumme-show-all-from-dir'. - before warning the user." +before warning the user." :type 'integer :group 'tumme) @@ -1025,8 +1025,8 @@ Convenience command that: - Set `truncate-lines' to t After the command has finished, you would typically mark some -image files in dired and call `tumme-display-thumbs' (by default -bound to C-t d). +image files in dired and type +\\[tumme-display-thumbs] (`tumme-display-thumbs'). If called with prefix argument ARG, skip splitting of windows. @@ -1119,7 +1119,7 @@ displayed." (and (> (length files) tumme-show-all-from-dir-max-files) (y-or-n-p (format - "Directory contains more than %d image files. Proceed? " + "Directory contains more than %d image files. Proceed? " tumme-show-all-from-dir-max-files)))) (progn (tumme-display-thumbs) @@ -1832,7 +1832,7 @@ Note that n, p and and will be hijacked and bound to (defun tumme-create-thumbs (&optional arg) "Create thumbnail images for all marked files in dired. With prefix argument ARG, create thumbnails even if they already exist -\(i.e. use this to refresh your thumbnails)." +\(i.e. use this to refresh your thumbnails)." (interactive "P") (let (curr-file thumb-name files count) (setq files (dired-get-marked-files)) @@ -2248,21 +2248,17 @@ default value at the prompt." (defun tumme-copy-with-exif-file-name () "Copy file with unique name to main image directory. -Copy current or all marked files in dired to a new file in your main -image directory, using a file name generated by -`tumme-get-exif-file-name'. This might or might not be useful for -other people, but I use it each time I fetch images from my digital -camera, for copying the images into my main image directory. - -Typically I open up the folder where I store my incoming digital -images, with file names like dscn0319.jpg, dscn0320.jpg etc., mark the -files I want to copy into my main image directory, and execute this -function. The result is a couple of new files in -`tumme-main-image-directory' called 2005_05_08_12_52_00_dscn0319.jpg, -2005_05_08_14_27_45_dscn0320.jpg etc. +Copy current or all marked files in dired to a new file in your +main image directory, using a file name generated by +`tumme-get-exif-file-name'. A typical usage for this if when +copying images from a digital camera into the image directory. -When the images are safely in my main image directory I start to -browse and tag them using rest of the functionality in `tumme'." + Typically, you would open up the folder with the incoming +digital images, mark the files to be copied, and execute this +function. The result is a couple of new files in +`tumme-main-image-directory' called +2005_05_08_12_52_00_dscn0319.jpg, +2005_05_08_14_27_45_dscn0320.jpg etc." (interactive) (let (new-name (files (dired-get-marked-files))) @@ -2605,7 +2601,7 @@ when using per-directory thumbnail file storage")) ;; Make sure gallery root exist (if (file-exists-p tumme-gallery-dir) (if (not (file-directory-p tumme-gallery-dir)) - (error "tumme-gallery-dir is not a directory")) + (error "Variable tumme-gallery-dir is not a directory")) (make-directory tumme-gallery-dir)) ;; Open index file (setq index-buf (find-file -- 2.39.2