;ELC
;;; Compiled
;;; in Emacs version 28.2
;;; with all optimizations.



(byte-code "\300\301!\210\300\302!\210\303\304\305\306\307\310\311\312&\210\313\314\315\316\317DD\320\321\322%\210\313\323\315\316\324DD\325\321\326%\210\313\327\315\316\330DD\331\321\332%\210\313\333\315\316\334DD\335\321\332%\210\313\336\315\316\337DD\340\321\332%\210\313\341\315\316\342DD\343\321\326\307\344&\210\313\345\315\316\346DD\347\321\326%\210\313\350\315\316\351DD\352\321\332%\210\313\353\315\316\354DD\355\321\332%\210\313\356\315\316\357DD\360\321\361%\210\313\362\315\316\363DD\364\321\332%\210\313\365\315\316\366DD\367\321\322%\210\313\370\315\316\371DD\372\321\326%\207" [require dired cl-lib custom-declare-group thumbs nil "Thumbnails previewer." :version "22.1" :group multimedia custom-declare-variable thumbs-thumbsdir funcall function #[0 "\300\301!\207" [locate-user-emacs-file "thumbs"] 2 #1=""] "Directory to store thumbnails." :type directory thumbs-geometry #[0 "\300\207" ["100x100"] 1 #1#] "Size of thumbnails." string thumbs-per-line #[0 "\300\207" [4] 1 #1#] "Number of thumbnails per line to show in directory." integer thumbs-max-image-number #[0 "\300\207" [16] 1 #1#] "Maximum number of images initially displayed in thumbs buffer." thumbs-thumbsdir-max-size #[0 "\300\207" [50000000] 1 #1#] "Maximum size for thumbnails directory.\nWhen it reaches that size (in bytes), a warning is sent." thumbs-conversion-program #[0 "\301=\203\302\207\303\207" [system-type windows-nt "convert.exe" "convert"] 2 #1#] "Name of conversion program for thumbnails generation.\nThis must be the ImageMagick \"convert\" utility." "28.1" thumbs-setroot-command #[0 "\300\207" ["xloadimage -onroot -fullscreen *"] 1 #1#] "Command to set the root window." thumbs-relief #[0 "\300\207" [5] 1 #1#] "Size of button-like border around thumbnails." thumbs-margin #[0 "\300\207" [2] 1 #1#] "Size of the margin around thumbnails.\nThis is where you see the cursor." thumbs-thumbsdir-auto-clean #[0 "\300\207" [t] 1 #1#] "If set, delete older file in the thumbnails directory.\nDeletion is done at load time when the directory size is bigger\nthan `thumbs-thumbsdir-max-size'." boolean thumbs-image-resizing-step #[0 "\300\207" [10] 1 #1#] "Step by which to resize image as a percentage." thumbs-temp-dir #[0 "\207" [temporary-file-directory] 1 #1#] "Temporary directory to use.\nDefaults to `temporary-file-directory'.  Leaving it to\nthis value can let another user see some of your images." thumbs-temp-prefix #[0 "\300\207" ["emacsthumbs"] 1 #1#] "Prefix to add to temp files."] 8)
#@38 Temporary filename of current image.
(defvar thumbs-current-tmp-filename nil (#$ . 2587))
(make-variable-buffer-local 'thumbs-current-tmp-filename)
#@28 Filename of current image.
(defvar thumbs-current-image-filename nil (#$ . 2741))
(make-variable-buffer-local 'thumbs-current-image-filename)
#@52 Counter for showing extra images in thumbs buffer.
(defvar thumbs-extra-images 1 (#$ . 2889))
(byte-code "\300\301!\210\302\301\303\304#\207" [make-variable-buffer-local thumbs-extra-images put permanent-local t] 4)
#@24 Size of current image.
(defvar thumbs-current-image-size nil (#$ . 3111))
#@26 Number of current image.
(defvar thumbs-image-num nil (#$ . 3191))
(make-variable-buffer-local 'thumbs-image-num)
#@61 Name of buffer containing thumbnails associated with image.
(defvar thumbs-buffer nil (#$ . 3311))
(make-variable-buffer-local 'thumbs-buffer)
#@20 Current directory.
(defvar thumbs-current-dir nil (#$ . 3460))
#@23 List of marked files.
(defvar thumbs-marked-list nil (#$ . 3529))
(byte-code "\300\301!\210\302\301\303\304#\207" [make-variable-buffer-local thumbs-marked-list put permanent-local t] 4)
(defalias 'thumbs-temp-dir #[0 "\301\302!!\207" [thumbs-temp-dir file-name-as-directory expand-file-name] 3])
(byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put thumbs-temp-dir speed -1 put byte-optimizer byte-compile-inline-expand] 5)
#@50 Return a unique temporary filename for an image.
(defalias 'thumbs-temp-file #[0 "\302\303\304\305!!	\306\307!$\207" [thumbs-temp-dir thumbs-temp-prefix format "%s%s-%s.jpg" file-name-as-directory expand-file-name cl-gensym "T"] 6 (#$ . 3974)])
#@122 Return the current thumbnails directory (from `thumbs-thumbsdir').
Create the thumbnails directory if it does not exist.
(defalias 'thumbs-thumbsdir #[0 "\301\302!!\303!\204\304\305\"\210\306\307!\210)\207" [thumbs-thumbsdir file-name-as-directory expand-file-name file-directory-p make-directory t message "Creating thumbnails directory"] 3 (#$ . 4227)])
#@179 Clean the thumbnails directory.
If the total size of all files in `thumbs-thumbsdir' is bigger than
`thumbs-thumbsdir-max-size', files are deleted until the max size is
reached.
(defalias 'thumbs-cleanup-thumbsdir #[0 "\302!\205B\303\304\305\306\300 \307\310 #\"\311\"\312\313\304\314\"\"\211	V\205@\315\316@AA@\"\210\317@AA@!\210\211@A@Z\262

A\262\202\266\202\207" [thumbs-thumbsdir thumbs-thumbsdir-max-size file-directory-p sort mapcar #[257 "\300
!\211\301
8\262

\302
8\262
E\207" [file-attributes 4 7] 6 "\n\n(fn F)"] directory-files t image-file-name-regexp #[514 "\300@@\"\207" [time-less-p] 5 "\n\n(fn L1 L2)"] apply + #[257 "\211A@\207" [] 2 "\n\n(fn X)"] message "Deleting file %s" delete-file] 7 (#$ . 4597)])
(byte-code "\203\301 \210\301\207" [thumbs-thumbsdir-auto-clean thumbs-cleanup-thumbsdir] 1)
#@441 Call the convert program.
FILEIN is the input file,
FILEOUT is the output file,
ACTION is the command to send to convert.
Optional arguments are:
ARG any arguments to the ACTION command,
OUTPUT-FORMAT is the file format to output (default is jpeg),
ACTION-PREFIX is the symbol to place before the ACTION command
              (defaults to `-' but can sometimes be `+').

(fn FILEIN FILEOUT ACTION &optional ARG OUTPUT-FORMAT ACTION-PREFIX)
(defalias 'thumbs-call-convert #[1539 "\301\302\211\211\206\n\303		\206\304
\305\306\f\206\307#&	\207" [thumbs-conversion-program call-process nil "-" "" format "%s:%s" "jpeg"] 19 (#$ . 5436)])
#@57 New image (a cons of width x height).

(fn S INCREMENT)
(defalias 'thumbs-new-image-size #[514 "\211_\301@@_\302\245\\!\301AA_\302\245\\!B\207" [thumbs-image-resizing-step round 100] 8 (#$ . 6089)])
#@180 Resize image in current buffer.
If SIZE is specified use it.  Otherwise make the image larger or
smaller according to whether INCREMENT is 1 or -1.

(fn &optional INCREMENT SIZE)
(defalias 'thumbs-resize-image-1 #[512 "\304	
\206\305\n\"\306 \307 \210\310\206\311\312@!\313\312A!Q$\210\212\314
\315\316#\210)\211\211)\207" [buffer-read-only thumbs-current-tmp-filename thumbs-current-image-size thumbs-current-image-filename nil thumbs-new-image-size thumbs-temp-file erase-buffer thumbs-call-convert "sample" number-to-string "x" thumbs-insert-image jpeg 0] 13 (#$ . 6303)])
#@78 Resize image interactively to specified WIDTH and HEIGHT.

(fn WIDTH HEIGHT)
(defalias 'thumbs-resize-image #[514 "\300\301B\"\207" [thumbs-resize-image-1 nil] 6 (#$ . 6899) "nWidth: \nnHeight: "])
#@25 Resize image (smaller).
(defalias 'thumbs-shrink-image #[0 "\300\301!\207" [thumbs-resize-image-1 -1] 2 (#$ . 7105) nil])
#@24 Resize image (bigger).
(defalias 'thumbs-enlarge-image #[0 "\300\301!\207" [thumbs-resize-image-1 1] 2 (#$ . 7233) nil])
#@54 Return a thumbnail name for the image IMG.

(fn IMG)
(defalias 'thumbs-thumbname #[257 "\300\301!\302\303\304 \305!\306\307\310\311\312\313\n\314\"\"#$\262
!\207" [convert-standard-filename expand-file-name format "%s%08x-%s.jpg" thumbs-thumbsdir sxhash subst-char-in-string 32 95 apply concat split-string "/"] 15 (#$ . 7360)])
#@41 Create the thumbnail for IMG.

(fn IMG)
(defalias 'thumbs-make-thumb #[257 "\301
!\302!\303
!\204\304\305$\210\207" [thumbs-geometry expand-file-name thumbs-thumbname file-exists-p thumbs-call-convert "sample"] 8 (#$ . 7698)])
#@48 Return image type from filename IMG.

(fn IMG)
(defalias 'thumbs-image-type #[257 "\300\301\"\203	\302\207\300\303\"\203\304\207\300\305\"\203\306\207\300\307\"\203$\310\207\300\311\"\203-\312\207\300\313\"\2036\314\207\300\315\"\203?\316\207\300\317\"\205G\320\207" [string-match ".*\\.jpe?g\\'" jpeg ".*\\.xpm\\'" xpm ".*\\.xbm\\'" xbm ".*\\.pbm\\'" pbm ".*\\.gif\\'" gif ".*\\.bmp\\'" bmp ".*\\.png\\'" png ".*\\.tiff?\\'" tiff] 4 (#$ . 7937)])
#@12 

(fn IMG)
(defalias 'thumbs-file-size #[257 "\300\301\302\303!\304FC!\305\"\306\307@!!\310\306\307A!!Q\207" [image-size find-image :type thumbs-image-type :file t number-to-string round "x"] 7 (#$ . 8409)])
#@42 Display the thumbnail for IMG.

(fn IMG)
(defalias 'thumbs-find-thumb #[257 "\300\301!!\207" [find-file thumbs-make-thumb] 4 (#$ . 8627) "f"])
#@230 Insert image IMG at point.
TYPE and RELIEF will be used in constructing the image; see `image'
in the emacs-lisp manual for further documentation.
If MARKED is non-nil, the image is marked.

(fn IMG TYPE RELIEF &optional MARKED)
(defalias 'thumbs-insert-image #[1027 "\302\303\304\305\306\205\307\310\257\311
!\210\312\301!\210\313
\314\"\211\207" [thumbs-margin thumbs-current-image-size image :type :file :relief :conversion disabled :margin insert-image make-local-variable image-size t] 15 (#$ . 8778)])
#@110 Insert the thumbnail for IMG at point.
If MARKED is non-nil, the image is marked.

(fn IMG &optional MARKED)
(defalias 'thumbs-insert-thumb #[513 "\301\302!\303$\210\304`S`\305\306\307!\310BBBB#\207" [thumbs-relief thumbs-insert-image thumbs-make-thumb jpeg add-text-properties thumb-image-file help-echo file-name-nondirectory (rear-nonsticky help-echo)] 10 (#$ . 9305)])
#@54 Insert all thumbnails into thumbs buffer.

(fn LIST)
(defalias 'thumbs-do-thumbs-insertion #[257 "\304
G\211	_Z\305\"\210\211\2032\211@\306
\211\n\235\"\210\307T\211\262\"\304U\203+\310 \210
A\266\202\202\210o\204:\310 \210\211\304V\205C\311\312!\207" [thumbs-max-image-number thumbs-extra-images thumbs-marked-list thumbs-per-line 0 nbutlast thumbs-insert-thumb mod newline message "Type + to display more images."] 10 (#$ . 9690)])
#@39 

(fn LIST &optional DIR SAME-WINDOW)
(defalias 'thumbs-show-thumbs-list #[769 "\304 \203\305\306!\204\307\310!\210\211\203\311\202\312\203\"\313P\202#\314!\210\315\316 \210\317 \210p
\2035
\320!\210eb\210\321\303!\210\n\211)\207" [inhibit-read-only thumbs-buffer default-directory thumbs-current-dir display-images-p image-type-available-p jpeg error "Required image type is not supported in this Emacs session" switch-to-buffer pop-to-buffer "*Thumbs: " "*THUMB-View*" t erase-buffer thumbs-mode thumbs-do-thumbs-insertion make-local-variable] 6 (#$ . 10143)])
#@189 Make a preview buffer for all images in DIR.
Optional argument REG to select file matching a regexp,
and SAME-WINDOW to show thumbs in the same window.

(fn DIR &optional REG SAME-WINDOW)
(defalias 'thumbs-show-from-dir #[769 "\300\301\302\206\n\303 ##\207" [thumbs-show-thumbs-list directory-files t image-file-name-regexp] 8 (#$ . 10731) "DThumbs (directory): "])
#@51 In dired, make a thumbs buffer with marked files.
(defalias 'thumbs-dired-show-marked #[0 "\300\301 \302\303#\207" [thumbs-show-thumbs-list dired-get-marked-files nil t] 4 (#$ . 11108) nil])
#@69 In dired, make a thumbs buffer with all files in current directory.
(defalias 'thumbs-dired-show #[0 "\301\302\303#\207" [default-directory thumbs-show-from-dir nil t] 4 (#$ . 11305) nil])
(defalias 'thumbs 'thumbs-show-from-dir)
#@35 

(fn IMG &optional NUM OTHERWIN)
(defalias 'thumbs-find-image #[769 "p
\203	\306\202\n\307\310!\210\311 \210\312\313!\314\315!R\211\316\317\206(\320ed|\210\212\321\322!\320#*\207" [mode-name thumbs-buffer inhibit-read-only thumbs-current-image-filename thumbs-current-tmp-filename thumbs-image-num switch-to-buffer-other-window switch-to-buffer "*Image*" thumbs-view-image-mode "image-view-mode: " file-name-nondirectory " - " number-to-string t nil 0 thumbs-insert-image thumbs-image-type] 9 (#$ . 11542)])
#@109 Display image IMG for thumbnail at point.
Use another window if OTHERWIN is t.

(fn &optional IMG OTHERWIN)
(defalias 'thumbs-find-image-at-point #[512 "
\206\300 \301
`#\207" [thumbs-current-image thumbs-find-image] 7 (#$ . 12075) nil])
#@82 Display image for thumbnail at point in the preview buffer.
Open another window.
(defalias 'thumbs-find-image-at-point-other-window #[0 "\300\301\302\"\207" [thumbs-find-image-at-point nil t] 3 (#$ . 12322) nil])
#@63 Display image for thumbnail at mouse click EVENT.

(fn EVENT)
(defalias 'thumbs-mouse-find-image #[257 "\300
!\210\301 \207" [mouse-set-point thumbs-find-image-at-point] 3 (#$ . 12541) "e"])
#@45 Call the setroot program for IMG.

(fn IMG)
(defalias 'thumbs-call-setroot-command #[257 "\301\302!\210\303\304\305\306\307!!#!\210\301\310!\207" [thumbs-setroot-command run-hooks thumbs-before-setroot-hook shell-command string-replace "*" shell-quote-argument expand-file-name thumbs-after-setroot-hook] 7 (#$ . 12738)])
#@50 Set the image at point as the desktop wallpaper.
(defalias 'thumbs-set-image-at-point-to-root-window #[0 "\300\301 !\207" [thumbs-call-setroot-command thumbs-current-image] 2 (#$ . 13068) nil])
#@32 Set the current image as root.
(defalias 'thumbs-set-root #[0 "\302\206	!\207" [thumbs-current-tmp-filename thumbs-current-image-filename thumbs-call-setroot-command] 2 (#$ . 13268) nil])
#@76 Make an alist of elements (POS . FILENAME) for all images in thumb buffer.
(defalias 'thumbs-file-alist #[0 "rq\210\212\301eb\210m\204%l\204\302 \203\303 \302 B
B\262
\304u\210\202	\211\237\262
*\207" [thumbs-buffer nil thumbs-current-image point-marker 1] 3 (#$ . 13465)])
#@59 Make a list of file names for all images in thumb buffer.
(defalias 'thumbs-file-list #[0 "\212\300eb\210m\204\301 \203\301 
B\262
\302u\210\202\211\237\262
)\207" [nil thumbs-current-image 1] 3 (#$ . 13752)])
#@73 Delete the image at point (and its thumbnail) (or marked files if any).
(defalias 'thumbs-delete-images #[0 "\206\302 C\303\304\305G\"!\205\\\306 \307
\211\205W\211@\310\3111/\312!\210\312\313!!0\210\2023\210\307\262
\211\204O\314\"\203J\314\"@b\210``T|\210\315\"\210
A\266\202\202\262
)\262
\207" [thumbs-marked-list inhibit-read-only thumbs-current-image yes-or-no-p format "Really delete %d files? " thumbs-file-alist t nil (file-error) delete-file thumbs-thumbname rassoc delq] 8 (#$ . 13974) nil])
#@87 Rename the image at point (and its thumbnail) (or marked files if any).

(fn NEWFILE)
(defalias 'thumbs-rename-images #[257 "\206\302 C\303\203\304\305\"\210\306!\262\307\310\311G\"!\203j\312 \305\211\203g\211@\303\3131:\314\"0\210\202C\210\305\262

B\262\211\204_\315\"\203Z\315\"@b\210``T|\210\316\"\210
A\266\202\202%\210)\210\211\205x\317\320\310\321#\322#\207" [thumbs-marked-list inhibit-read-only thumbs-current-image nil make-directory t file-name-as-directory yes-or-no-p format "Really rename %d files? " thumbs-file-alist (file-error) rename-file rassoc delq display-warning file-error "Rename failures for %s into %s" :error] 10 (#$ . 14505) "FRename to file or directory: "])
#@26 Kill the current buffer.
(defalias 'thumbs-kill-buffer #[0 "\300\301\302 \"\207" [quit-window t selected-window] 3 (#$ . 15235) nil])
#@43 Show the image with number NUM.

(fn NUM)
(defalias 'thumbs-show-image-num #[257 "\304\305!
S\306 8Ar
q\210\307\310!\311\312!R\313\314 \210\315
\316!\317#\210eb\210*\211\211\207" [mode-name inhibit-read-only thumbs-image-num thumbs-current-image-filename get-buffer-create "*Image*" thumbs-file-alist "image-view-mode: " file-name-nondirectory " - " number-to-string t erase-buffer thumbs-insert-image thumbs-image-type 0] 8 (#$ . 15375)])
#@26 Show the previous image.
(defalias 'thumbs-previous-image #[0 "S\301 G
\302U\203\211S\262\303!\207" [thumbs-image-num thumbs-file-alist 0 thumbs-show-image-num] 4 (#$ . 15830) nil])
#@22 Show the next image.
(defalias 'thumbs-next-image #[0 "T\301 G

U\203\302\262\303!\207" [thumbs-image-num thumbs-file-alist 1 thumbs-show-image-num] 4 (#$ . 16023) nil])
#@39 Display the associated thumbs buffer.
(defalias 'thumbs-display-thumbs-buffer #[0 "\301!\207" [thumbs-buffer display-buffer] 2 (#$ . 16204) nil])
#@35 Redraw the current thumbs buffer.
(defalias 'thumbs-redraw-buffer #[0 "`\301\302 
\303 \210\304
!\210b)\207" [inhibit-read-only t thumbs-file-list erase-buffer thumbs-do-thumbs-insertion] 5 (#$ . 16357)])
#@26 Mark the image at point.
(defalias 'thumbs-mark #[0 "\302 \211\204\n\303\304!\210\211B\305\306\307!\210\310
\305\"\210)\210l\205!\311u\207" [thumbs-marked-list inhibit-read-only thumbs-current-image error "No image here" t delete-char 1 thumbs-insert-thumb nil] 4 (#$ . 16570) nil])
#@28 Unmark the image at point.
(defalias 'thumbs-unmark #[0 "\302 \211\204\n\303\304!\210\305
\"\306\307\310!\210\311
\312\"\210)\210l\205\"\312u\207" [thumbs-marked-list inhibit-read-only thumbs-current-image error "No image here" delete t delete-char 1 thumbs-insert-thumb nil] 4 (#$ . 16864) nil])
(byte-code "\302\303\304\305\306!!\307	#\"\207" [thumbs-temp-dir thumbs-temp-prefix mapc delete-file directory-files file-name-as-directory expand-file-name t] 6)
#@132 Call convert to do ACTION on image with argument ARG.
ACTION and ARG should be a valid convert command.

(fn ACTION &optional ARG)
(defalias 'thumbs-modify-image #[513 "\303	\304 \305 \210\306\206\n\206\307$\210\212\310
\311\312#\210)\211\211)\207" [buffer-read-only thumbs-current-tmp-filename thumbs-current-image-filename nil thumbs-temp-file erase-buffer thumbs-call-convert "" thumbs-insert-image jpeg 0] 9 (#$ . 17337) "sAction: \nsValue: "])
#@50 Emboss the image with value EMBOSS.

(fn EMBOSS)
(defalias 'thumbs-emboss-image #[257 "\211\300W\204\211\301V\204\211\302\246\303U\203\304\305!\210\306\307\310!\"\207" [3 31 2 0 error "Arg must be an odd number between 3 and 31" thumbs-modify-image "emboss" number-to-string] 5 (#$ . 17804) "nEmboss value: "])
#@31 Turn the image to monochrome.
(defalias 'thumbs-monochrome-image #[0 "\300\301!\207" [thumbs-modify-image "monochrome"] 2 (#$ . 18128) nil])
#@19 Negate the image.
(defalias 'thumbs-negate-image #[0 "\300\301!\207" [thumbs-modify-image "negate"] 2 (#$ . 18275) nil])
#@48 Rotate the image 90 degrees counter-clockwise.
(defalias 'thumbs-rotate-left #[0 "\300\301\302\"\207" [thumbs-modify-image "rotate" "270"] 3 (#$ . 18402) nil])
#@40 Rotate the image 90 degrees clockwise.
(defalias 'thumbs-rotate-right #[0 "\300\301\302\"\207" [thumbs-modify-image "rotate" "90"] 3 (#$ . 18568) nil])
#@50 Return the name of the image file name at point.
(defalias 'thumbs-current-image #[0 "\300`\301\"\207" [get-text-property thumb-image-file] 3 (#$ . 18726)])
#@25 Move forward one image.
(defalias 'thumbs-forward-char #[0 "\300u\210m\204\301 \204\300u\210\202\302 \207" [nil thumbs-current-image thumbs-show-name] 1 (#$ . 18889) nil])
#@26 Move backward one image.
(defalias 'thumbs-backward-char #[0 "\300u\210o\204\301 \204\300u\210\202\302 \207" [-1 thumbs-current-image thumbs-show-name] 1 (#$ . 19073) nil])
#@19 Move up one line.
(defalias 'thumbs-backward-line #[0 "\300y\210\301 \207" [-1 thumbs-show-name] 1 (#$ . 19258) nil])
#@21 Move down one line.
(defalias 'thumbs-forward-line #[0 "\300y\210\301 \207" [1 thumbs-show-name] 1 (#$ . 19382) nil])
#@82 Show more than `thumbs-max-image-number' images, if present.

(fn &optional ARG)
(defalias 'thumbs-show-more-images #[256 "\211\204\301\262

\\\302 \207" [thumbs-extra-images 1 thumbs-dired-show] 3 (#$ . 19506) "P"])
#@36 Show the name of the current file.
(defalias 'thumbs-show-name #[0 "\300 \211\205
\301\302\303!#\207" [thumbs-current-image message "%s [%s]" thumbs-file-size] 6 (#$ . 19733) nil])
#@25 Save the current image.
(defalias 'thumbs-save-current-image #[0 "\206	\302\303	\"\304\"\207" [thumbs-current-tmp-filename thumbs-current-image-filename read-from-minibuffer "Save image file as: " copy-file] 5 (#$ . 19923) nil])
#@46 Use `dired' on the current thumbs directory.
(defalias 'thumbs-dired #[0 "\301!\207" [thumbs-current-dir dired] 2 (#$ . 20163) nil])
#@27 Keymap for `thumbs-mode'.
(defvar thumbs-mode-map (byte-code "\300 \301
\302\303#\210\301
\304\305#\210\301
\306\307#\210\301
\310\311#\210\301
\312\313#\210\301
\314\315#\210\301
\316\317#\210\301
\320\321#\210\301
\322\323#\210\301
\324\325#\210\301
\326\327#\210\301
\330\331#\210\301
\332\333#\210\301
\334\335#\210\301
\336\313#\210\301
\337\340#\210\301
\341\342#\210\207" [make-sparse-keymap define-key [return] thumbs-find-image-at-point [mouse-2] thumbs-mouse-find-image [(meta return)] thumbs-find-image-at-point-other-window [(control return)] thumbs-set-image-at-point-to-root-window [delete] thumbs-delete-images [right] thumbs-forward-char [left] thumbs-backward-char [up] thumbs-backward-line [down] thumbs-forward-line "+" thumbs-show-more-images "d" thumbs-dired "m" thumbs-mark "u" thumbs-unmark "R" thumbs-rename-images "x" "s" thumbs-show-name "q" thumbs-kill-buffer] 5) (#$ . 20303))
(put 'thumbs-mode 'mode-class 'special)
(defvar thumbs-mode-hook nil)
(byte-code "\300\301N\204\f\302\300\301\303#\210\304\305!\204\302\305\306\307#\210\300\207" [thumbs-mode-hook variable-documentation put "Hook run after entering thumbs mode.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it.  (This is true for all hook variables.)" boundp thumbs-mode-map definition-name thumbs-mode] 4)
(defvar thumbs-mode-map (make-sparse-keymap))
(byte-code "\301\302N\204\303\301\302\304\305!#\210\306\307!\204\303\307\310\311#\210\312\313 !\210\307\302N\204-\303\307\302\304\314!#\210\306\300!\204B\303\300\310\311#\210\315\316\300\317\"\210!\210\300\302N\204P\303\300\302\304\320!#\210\303\311\321\317#\207" [thumbs-mode-abbrev-table thumbs-mode-map variable-documentation put purecopy "Keymap for `thumbs-mode'." boundp thumbs-mode-syntax-table definition-name thumbs-mode (lambda (#1=#:def-tmp-var) (defvar thumbs-mode-syntax-table #1#)) make-syntax-table "Syntax table for `thumbs-mode'." (lambda (#1#) (defvar thumbs-mode-abbrev-table #1#)) define-abbrev-table nil "Abbrev table for `thumbs-mode'." derived-mode-parent] 5)
#@161 Preview images in a thumbnails buffer.

This mode runs the hook `thumbs-mode-hook', as the final or
penultimate step during initialization.

\{thumbs-mode-map}
(defalias 'thumbs-mode #[0 "\306\300!\210\307\310 \210\311\312\313!\210\314\f!\210
\307)\315\316!\207" [delay-mode-hooks major-mode mode-name thumbs-mode-map thumbs-mode-syntax-table thumbs-mode-abbrev-table make-local-variable t kill-all-local-variables thumbs-mode "thumbs" use-local-map set-syntax-table run-mode-hooks thumbs-mode-hook local-abbrev-table buffer-read-only] 2 (#$ . 22383) nil])
#@38 Keymap for `thumbs-view-image-mode'.
(defvar thumbs-view-image-mode-map (byte-code "\300 \301
\302\303#\210\301
\304\305#\210\301
\306\307#\210\301
\310\311#\210\301
\312\313#\210\301
\314\315#\210\301
\316\317#\210\301
\320\321#\210\301
\322\323#\210\301
\324\325#\210\301
\326\327#\210\301
\330\331#\210\207" [make-sparse-keymap define-key [prior] thumbs-previous-image [next] thumbs-next-image "^" thumbs-display-thumbs-buffer "-" thumbs-shrink-image "+" thumbs-enlarge-image "<" thumbs-rotate-left ">" thumbs-rotate-right "e" thumbs-emboss-image "r" thumbs-resize-image "s" thumbs-save-current-image "q" thumbs-kill-buffer "w" thumbs-set-root] 5) (#$ . 22954))
(put 'thumbs-view-image-mode 'mode-class 'special)
(defvar thumbs-view-image-mode-hook nil)
(byte-code "\300\301N\204\f\302\300\301\303#\210\304\305!\204\302\305\306\307#\210\300\207" [thumbs-view-image-mode-hook variable-documentation put "Hook run after entering image-view-mode mode.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it.  (This is true for all hook variables.)" boundp thumbs-view-image-mode-map definition-name thumbs-view-image-mode] 4)
(defvar thumbs-view-image-mode-map (make-sparse-keymap))
(byte-code "\301\302N\204\303\301\302\304\305!#\210\306\307!\204\303\307\310\311#\210\312\313 !\210\307\302N\204-\303\307\302\304\314!#\210\306\300!\204B\303\300\310\311#\210\315\316\300\317\"\210!\210\300\302N\204P\303\300\302\304\320!#\210\303\311\321\317#\207" [thumbs-view-image-mode-abbrev-table thumbs-view-image-mode-map variable-documentation put purecopy "Keymap for `thumbs-view-image-mode'." boundp thumbs-view-image-mode-syntax-table definition-name thumbs-view-image-mode (lambda (#1=#:def-tmp-var) (defvar thumbs-view-image-mode-syntax-table #1#)) make-syntax-table "Syntax table for `thumbs-view-image-mode'." (lambda (#1#) (defvar thumbs-view-image-mode-abbrev-table #1#)) define-abbrev-table nil "Abbrev table for `thumbs-view-image-mode'." derived-mode-parent] 5)
#@305 Major-mode.
Uses keymap `thumbs-view-image-mode-map', abbrev table
`thumbs-view-image-mode-abbrev-table' and syntax-table
`thumbs-view-image-mode-syntax-table'.

This mode runs the hook `thumbs-view-image-mode-hook', as the final or
penultimate step during initialization.

\{thumbs-view-image-mode-map}
(defalias 'thumbs-view-image-mode #[0 "\306\300!\210\307\310 \210\311\312\313!\210\314\f!\210
\307)\315\316!\207" [delay-mode-hooks major-mode mode-name thumbs-view-image-mode-map thumbs-view-image-mode-syntax-table thumbs-view-image-mode-abbrev-table make-local-variable t kill-all-local-variables thumbs-view-image-mode "image-view-mode" use-local-map set-syntax-table run-mode-hooks thumbs-view-image-mode-hook local-abbrev-table buffer-read-only] 2 (#$ . 24968) nil])
#@59 In dired, call the setroot program on the image at point.
(defalias 'thumbs-dired-setroot #[0 "\300\301 !\207" [thumbs-call-setroot-command dired-get-filename] 2 (#$ . 25758) nil])
(byte-code "\301\302\303#\210\301\304\305#\210\301\306\307#\210\310\311!\207" [dired-mode-map define-key "a" thumbs-dired-show "m" thumbs-dired-show-marked "w" thumbs-dired-setroot provide thumbs] 4)