diff options
| author | Mathias Dahl | 2006-02-09 23:08:19 +0000 |
|---|---|---|
| committer | Mathias Dahl | 2006-02-09 23:08:19 +0000 |
| commit | 49f18bccba0bc666c50057831862d224639deeb2 (patch) | |
| tree | 737fa4f08263774d6f009330d1bafd455f556c98 | |
| parent | 13664bec59d325535eb280ed3fe2b8a69d5b6876 (diff) | |
| download | emacs-49f18bccba0bc666c50057831862d224639deeb2.tar.gz emacs-49f18bccba0bc666c50057831862d224639deeb2.zip | |
Tried to make docstring less `colloquial'...
| -rw-r--r-- | lisp/tumme.el | 36 |
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." | 850 | before 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 | ||
| 1027 | After the command has finished, you would typically mark some | 1027 | After the command has finished, you would typically mark some |
| 1028 | image files in dired and call `tumme-display-thumbs' (by default | 1028 | image files in dired and type |
| 1029 | bound to C-t d). | 1029 | \\[tumme-display-thumbs] (`tumme-display-thumbs'). |
| 1030 | 1030 | ||
| 1031 | If called with prefix argument ARG, skip splitting of windows. | 1031 | If 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. |
| 1834 | With prefix argument ARG, create thumbnails even if they already exist | 1834 | With 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. |
| 2251 | Copy current or all marked files in dired to a new file in your main | 2251 | Copy current or all marked files in dired to a new file in your |
| 2252 | image directory, using a file name generated by | 2252 | main 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 |
| 2254 | other people, but I use it each time I fetch images from my digital | 2254 | copying images from a digital camera into the image directory. |
| 2255 | camera, for copying the images into my main image directory. | ||
| 2256 | |||
| 2257 | Typically I open up the folder where I store my incoming digital | ||
| 2258 | images, with file names like dscn0319.jpg, dscn0320.jpg etc., mark the | ||
| 2259 | files I want to copy into my main image directory, and execute this | ||
| 2260 | function. The result is a couple of new files in | ||
| 2261 | `tumme-main-image-directory' called 2005_05_08_12_52_00_dscn0319.jpg, | ||
| 2262 | 2005_05_08_14_27_45_dscn0320.jpg etc. | ||
| 2263 | 2255 | ||
| 2264 | When the images are safely in my main image directory I start to | 2256 | Typically, you would open up the folder with the incoming |
| 2265 | browse and tag them using rest of the functionality in `tumme'." | 2257 | digital images, mark the files to be copied, and execute this |
| 2258 | function. The result is a couple of new files in | ||
| 2259 | `tumme-main-image-directory' called | ||
| 2260 | 2005_05_08_12_52_00_dscn0319.jpg, | ||
| 2261 | 2005_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 |