....................................../////.===Shadow-Here===./////................................................ > < > < > < > < > < > < > < > < > < > < > < > < > < > < > < > < > < > < > < > < > < > < > < > < > < > < > < > < > < ------------------------------------------------------------------------------------------------------------------- /////////////////////////////////////////////////////////////////////////////////////////////////////////////////// RIFF¤ WEBPVP8 ˜ ðÑ *ôô>‘HŸK¥¤"§£±¨àð enü¹%½_F‘åè¿2ºQú³íªú`N¿­3ÿƒügµJžaÿ¯ÿ°~¼ÎùnúîÞÖô•òíôÁÉß®Sm¥Ü/ ‡ó˜f£Ùà<˜„xëJ¢Ù€SO3x<ªÔ©4¿+ç¶A`q@Ì“Úñè™ÍÿJÌ´ª-˜ÆtÊÛL]Ïq*‘Ý”ì#ŸÌÏãY]@ê`¿ /ªfkØB4·®£ó z—Üw¥Pxù–ÞLШKÇN¾AkÙTf½è'‰g gÆv›Øuh~ a˜Z— ïj*á¥t d£“uÒ ¨`K˜¹ßþ]b>˜]_ÏÔ6W—è2r4x•íÖ…"ƒÖNîä!¦å Ú}ýxGøÌ —@ ;ÆÚŠ=ɾ1ý8lªË¥ô ^yf®Œ¢u&2©nÙÇ›ñÂñŒ³ aPo['½»øFùà­+4ê“$!lövlüÞ=;N®3ð‚õ›DÉKòÞ>ÄÍ ¥ˆuߤ#ˆ$6ù™¥îŠ‡y’ÍB¼ çxÛ;X"WL£R÷͝*ó-¶Zu}º.s¸sšXqù–DþÿvªhüïwyŸ ¯é³lÀ:KCûÄ£Ëá\…­ ~—ýóî ¼ûûÜTÓüÇy…ŽÆvc»¾×U ñ¸žþоP÷¦ó:Ò¨¨5;Ð#&#ÖúñläÿÁœ GxÉ­/ñ‡áQðìYÉtÒwŽ¼GÔ´zàÒò ð*ëzƒ•4~H]Ø‹f ñÓÈñ`NåWçs'ÆÏW^ø¹!XžµmQ5ÃËoLœÎ: ÞËÍ¥J ù…î èo£ßPÎñ¶ž8.Œ]ʵ~5›ÙË-ù*8ÙÖß±~ ©¹rÓê‚j¶d¸{^Q'˜±Crß ÚH—#¥¥QlÀ×ëã‡DÜ«èî þ&Çæžî;ŽÏºò6ÒLÃXy&ZŒ'j‚¢Ù€IßÚù+–MGi‰*jE€‘JcÜ ÓÌ EÏÚj]o˜ Þr <¾U ûŪæÍ/šÝH¥˜b”¼ ÁñßX GP›ï2›4WŠÏà×£…íÓk†¦H·ÅíMh–*nó÷à]ÁjCº€b7<ب‹¨5車bp2:Á[UªM„QŒçiNMa#<5›áËó¸HýÊ"…×Éw¹¦ì2º–x<›»a±¸3Weü®FÝ⑱ö–î–³|LPÈ~çð~Çå‡|º kD¢µÏàÆAI %1À% ¹Ò – ”ϝS¦‰4&¶£°à Öý”û_Ò Áw°A«Å€?mÇÛgHÉ/8)á¾ÛìáöŽP í¨PŸNÙµº¦‡§Ùš"ÿ«>+ªÕ`Ê÷‡‚ß Õû˜þãÇ-PÍ.¾XV‘€ dÜ"þ4¹ ±Oú‘©t¥¦FªÄÃÄ•b‚znýu½—#cDs˜ÃiÑOˆñ×QO=*IAÊ,¶ŽZƒ;‡wøXè%EÐk:F±Ú” .Ѽ+Áu&Ç`."pÈÉw o&¿dE6‘’EqTuK@Ì¥ã™À(Êk(h‰,H}RÀIXÛš3µ1©_OqÚÒJAñ$ÊÙÜ;D3çŒ[þùœh¬Ã³™ö6ç†NY".Ú‰ï[ªŸŒ '²Ð öø_¨ÂÉ9u鶳ÒŠõTàîMØ#û¯gN‡bÙ놚X„ö …ÉeüÌ^J ‹€.œ$Æ)βÄeæW#óüßĺŸ€ ÀzwV 9oä»f4V*uB «Ë†¹ì¯žR霓æHXa=&“I4K;¯ç‹h×·"UŠ~<•â•ªVêª&ÍSÃÆÅ?ÔqÎ*mTM ˜›µwêd#[C¡©§‘D<©àb†–ÁœøvH/,í:¯( ²£|4-„Æövv„Yͼ™^Á$ˆ„¢Û[6yB.åH*V¨æ?$=˜Ñ€•î¦ñ·­(VlŸ‘ nÀt8W÷´Bûba?q9ú¶Xƒl«ÿ\ù¶’þòUÐj/õ¢Ìµ³g$ƒÎR!¸»|Oߍë’BhîÚÑ¢ñåŒJ„®„£2Ð3•ô02Nt…!£Í]Ïc½Qÿ?ˆ<&ÃA¾Ú,JˆijÌ#5yz„‰Î|ÊŽ5QÏ:‹ÐaóVÔxW—CpeÏzÐïíçôÿÅ_[hãsÐ_/ŽTÝ?BîˆííV$<¿i>²F¬_Eß¿ †bÊŒº­ÿ®Z H“C}”¬,Mp ý/Bá£w>˜YV°aƒúh+cŠ- r/[%|üUMHäQ°X»|û/@|°¥Ð !BÔ Ç¢Ä©š+Õì D«7ìN¶ŽðÔ " ƶ’ÖçtA‰Û×}{tþz­¾GÍ›k¹OEJR$ Â׃ «ëÁ"oÉôž$oUK(Ä)Ãz³Ê-‹êN[Ò3Œñbï8P 4ƒ×q¢bo|?<ÛX¬òÄÍ°L–±›(™ûG?ýË©ÚÄ–ÂDØÐ_Ç¡ô ¾–ÄÏø ×e8Ë©$ÄF¹Å‹ì[©óìl:F¾f´‹‹Xì²ï®\¬ôùƒ ÿat¥óèÒùHß0äe‚;ü×h:ÆWðHž=Ã8骣"kœ'Y?³}Tûè€>?0l›e1Lòñ„aæKÆw…hÖŠùW…ÈÆÄ0ši·›[pcwËþñiêíY/~-Á5˜!¿†A›™Mÿþ(±“t@â“ö2­´TG5yé]çå僳 .·ÍïçÝ7UÚ±Ð/Nè»,_Ï ùdj7\ï Wì4›„»c¸àešg#ÒÊ⥭áØo5‘?ÌdÝô¯ ¹kzsƒ=´#ëÉK›Ø´±-¥eW?‡çßtòTã…$Ý+qÿ±ƒ÷_3Ô¥í÷:æ–ž<·Ö‡‰Å¢ š‡%Ô—utÌÈìðžgÖÀz²À—ï÷Óîäõ{K'´È÷³yaÏÁjƒô}ž§®æÊydÕÈë5¯èˆõvÕ©ã*çD„ “z„Ó‡^^xÂ3M§A´JG‚öï 3W'ˆ.OvXè¡ÊÕª?5º7†˜(˜Ç¶#çê’¶!ÌdZK§æ 0fãaN]òY³RV ™î$®K2R¨`W!1Ôó\;Ý ýB%qæK•&ÓÈe9È0êI±žeŸß -ú@žQr¦ ö4»M¼Áè¹µmw 9 EÆE_°2ó„ŸXKWÁ×Hóì^´²GѝF©óäR†¦‰ç"V»eØ<3ùd3ÿÚ¤Žú“Gi" —‘_ÙËÎ~Üö¯¥½Î»üŸEÚŽåmÞþí ;ÞólËΦMzA"Âf(´òá;Éï(/7½ûñÌ­cïÕçлþÝz¾-ÍvÑ“pH­–ðÓj$¸Äû¤‚‘ãUBË-n“2åPkS5&‹Â|+g^œ®Ì͆d!OïäîU«c;{Û!ÅŽ«ëZ9Ókóˆ]¯ƒ›né `ÇÒ+tÆš (ØKá¾—=3œ®•vuMñg²\ï Ec€ 05±d™‡×iÇ×›UúvÌ¢£Èþ¡ÕØô¶ßÎA"ß±#Ö²ˆÊŸ¦*Ä~ij|àø.-¼'»Ú¥£h ofº¦‡VsR=N½„Î v˜Z*SÌ{=jÑB‹tê…;’HžH¯8–îDù8ñ¢|Q•bÛçš–‹m³“ê¨ åÏ^m¬Žãþ©ïêO‡½6] µÆ„Ooòü ²x}N¦Ë3ïé¿»€›HA˜m%çÞ/¿í7Fø“‹léUk)É°Œµ8Q8›:ÀŠeT*šõ~ôڝG6 ¢}`ùH­–”¡k ‰P1>š†®9z11!X wKfmÁ¦xÑ,N1Q”–æB¶M…ÒÃv6SMˆhU¬ÊPŽï‘öj=·CŒ¯u¹ƒVIЃsx4’ömÛýc塶7ßŠß 57^\wÒÐÆ k§h,Œý î«q^R½3]J¸ÇðN ‚çU¬ôº^Áì} ³f©Õœ§ˆã:FÄÈ‚é(€™?àýÓüè1Gô£¼éj‚OÅñ  #>×—ßtà 0G¥Åa뀐kßhc™À_ÉñÞ#±)GD" YîäË-ÿÙ̪ ¹™a¯´¢E\ÝÒö‚;™„ë]_ p8‰o¡ñ+^÷ 3‘'dT4œŽ ðVë½° :¬víÑ«£tßÚS-3¶“þ2 †üüʨòrš¹M{É_¤`Û¨0ìjœøJ‡:÷ÃáZ˜†@GP&œÑDGÏs¡þ¦þDGú‘1Yá9Ôþ¼ ûø…§÷8&–ÜÑnÄ_m®^üÆ`;ÉVÁJ£?â€-ßê}suÍ2sõA NÌúA磸‘îÿÚ»ƒìö·á¿±tÑÐ"Tÿü˜[@/äj¬€uüªìù¥Ý˜á8Ý´sõj 8@rˆð äþZÇD®ÿUÏ2ùôõrBzÆÏÞž>Ì™xœ“ wiÎ×7_… ¸ \#€MɁV¶¥üÕÿPÔ9Z‡ø§É8#H:ƒ5ÀÝå9ÍIŒ5åKÙŠ÷qÄ>1AÈøžj"µÂд/ªnÀ qªã}"iŸBå˜ÓÛŽ¦…&ݧ;G@—³b¯“•"´4í¨ôM¨åñC‹ïùÉó¯ÓsSH2Ý@ßáM‡ˆKÀªÛUeø/4\gnm¥‹ŸŒ qÄ b9ÞwÒNÏ_4Ég³ú=܆‚´ •â¥õeíþkjz>éÚyU«Íӝ݃6"8/ø{=Ô¢»G¥ äUw°W«,ô—¿ãㆅү¢³xŠUû™yŒ (øSópÐ 9\åTâ»—*oG$/×ÍT†Y¿1¤Þ¢_‡ ¼ „±ÍçèSaÓ 3ÛMÁBkxs‰’R/¡¤ˆÙçª(*õ„üXÌ´ƒ E§´¬EF"Ù”R/ÐNyÆÂ^°?™6¡œïJ·±$§?º>ÖüœcNÌù¯G ‹ñ2ŠBB„^·úìaz¨k:#¨Æ¨8LÎõލ£^§S&cŒÐU€ü(‡F±Š¼&P>8ÙÁ ‰ p5?0ÊƃZl¸aô š¼¡}gÿ¶zÆC²¹¬ÎÖG*HB¡O<º2#ñŒAƒ–¡B˜´É$¥›É:FÀÔx¾u?XÜÏÓvN©RS{2ʈãk9rmP¼Qq̳ è¼ÐFׄ^¡Öì fE“F4A…!ì/…¦Lƒ… … $%´¾yã@CI¬ á—3PþBÏNÿ<ý°4Ü ËÃ#ØÍ~âW«rEñw‹eùMMHß²`¬Öó½íf³:‹k˜¯÷}Z!ã¿<¥,\#öµÀ¯aÒNÆIé,Ћ–lŽ#Àæ9ÀÒS·I’½-Ïp Äz¤Š Â* ­íÄ9­< h>׍3ZkËU¹§˜ŒŠ±f­’¤º³Q ÏB?‹#µíÃ¥®@(Gs«†vI¥Mµ‹Á©e~2ú³ÁP4ìÕi‚²Ê^ö@-DþÓàlÜOÍ]n"µã:žpsŽ¢:! Aõ.ç~ÓBûH÷JCÌ]õVƒd «ú´QÙEA–¯¯Œ!.ˆˆëQ±ù œ·Ì!Õâ )ùL„ÅÀlÚè5@B…o´Æ¸XÓ&Û…O«˜”_#‡ƒ„ûÈt!¤ÁÏ›ÎÝŠ?c9 â\>lÓÁVÄÑ™£eØY]:fÝ–—ù+p{™ðè û³”g±OƒÚSù£áÁÊ„ä,ï7š²G ÕÌBk)~ÑiCµ|h#u¤¶îK¨² #²vݯGãeÖ϶ú…¾múÀ¶þÔñ‚Š9'^($¤§ò “š½{éúp÷J›ušS¹áªCÂubÃH9™D™/ZöØÁ‡¦ÝÙŸ·kð*_”.C‹{áXó€‡c¡c€§/šò/&éš÷,àéJþ‰X›fµ“C¨œ®r¬"kL‰Â_q…Z–.ÉL~O µ›zn‚¹À¦Öª7\àHµšÖ %»ÇníV[¥*Õ;ƒ#½¾HK-ÖIÊdÏEÚ#=o÷Óò³´Š: Ç?{¾+9›–‘OEáU·S€˜j"ÄaÜ ŒÛWt› á–c#a»pÔZÞdŽtWê=9éöÊ¢µ~ ë ;Öe‡Œ®:bî3±ýê¢wà¼îpêñ¹¾4 zc¾ðÖÿzdêŒÑÒŝÀ‰s6¤í³ÎÙB¿OZ”+F¤á‡3@Ñëäg©·Ž ˆèª<ù@É{&S„œÕúÀA)‰h:YÀ5^ÂÓŒ°õäU\ ùËÍû#²?Xe¬tu‰^zÒÔãë¼ÛWtEtû …‚g¶Úüâî*moGè¨7%u!]PhÏd™Ý%Îx: VÒ¦ôÊD3ÀŽKÛËãvÆî…N¯ä>Eró–ð`5 Œ%u5XkñÌ*NU%¶áœÊ:Qÿú»“úzyÏ6å-၇¾ ´ ÒÊ]y žO‘w2Äøæ…H’²f±ÎÇ.ª|¥'gîV•Ü .̘¯€šòü¤U~Ù†*¢!?ò wý,}´°ÔÞnïoKq5µb!áÓ3"vAßH¡³¡·G(ÐÎ0Îò¼MG!/ài®@—¬04*`…«é8ªøøló“ˆÊ”èù¤…ßÊoÿé'ËuÌÖ5×È¡§ˆˆfŽë9}hìâ_!!¯  B&Ëö¶‰ÀAÙNVŸ Wh›¸®XÑJì¨ú“¿÷3uj²˜¨ÍÎìë±aúŠÝå¯ð*Ó¨ôJ“yºØ)m°WýOè68†ŸÏ2—‰Ïüꪫٚ¥‹l1 ø ÏÄFjêµvÌbü¦èÝx:X±¢H=MÐß—,ˆÉÇ´(9ú¾^ÅÚ4¿m‡$âX‘å%(AlZo@½¨UOÌÕ”1ø¸jÎÀÃÃ_ µ‘Ü.œº¦Ut: Æï’!=¯uwû#,“pþÇúŒø(é@?³ü¥‘Mo §—s@Œ#)§ŒùkL}NOÆêA›¸~r½¼ÙA—HJ«eˆÖ´*¡ÓpÌŸö.m<-"³ûÈ$¬_6­åf£ïÚâj1y§ÕJ½@dÞÁr&Í\Z%D£Íñ·AZ Û³øüd/ªAi†/Й~  ‡âĮҮÏh§°b—›Û«mJžòG'[ÈYýŒ¦9psl ýÁ ®±f¦x,‰½tN ‚Xª9 ÙÖH.«Lo0×?͹m¡å†Ѽ+›2ƒF ±Ê8 7Hցϓ²Æ–m9…òŸï]Â1äN†VLâCˆU .ÿ‰Ts +ÅÎx(%¦u]6AF Š ØF鈄‘ |¢¶c±soŒ/t[a¾–û:s·`i햍ê›ËchÈ…8ßÀUÜewŒðNOƒõD%q#éû\9¤x¹&UE×G¥ Í—™$ð E6-‡¼!ýpãÔM˜ Âsìe¯ñµK¢Ç¡ùôléœ4Ö£”À Š®Ðc ^¨À}ÙËŸ§›ºê{ÊuÉC ×Sr€¤’fÉ*j!úÓ’Gsùìoîßîn%ò· àc Wp÷$¨˜)û»H ×8ŽÒ€Zj¤3ÀÙºY'Ql¦py{-6íÔCeiØp‘‡XÊîÆUߢ܂ž£Xé¼Y8þ©ëgñß}é.ÎógÒ„ÃØËø¯»™§Xýy M%@NŠ À(~áÐvu7&•,Ù˜ó€uP‡^^®=_E„jt’ 403WebShell
403Webshell
Server IP : 66.235.200.170  /  Your IP : 18.222.21.218
Web Server : Apache
System : Linux gator4410.hostgator.com 5.14.0-162.23.1.9991722448259.nf.el9.x86_64 #1 SMP PREEMPT_DYNAMIC Wed Jul 31 18:11:45 UTC 2024 x86_64
User : bmgxafte ( 1214)
PHP Version : 8.2.28
Disable Function : NONE
MySQL : OFF  |  cURL : ON  |  WGET : ON  |  Perl : ON  |  Python : OFF  |  Sudo : ON  |  Pkexec : ON
Directory :  /usr/share/emacs/27.2/lisp/

Upload File :
current_dir [ Writeable ] document_root [ Writeable ]

 

Command :

[ Back ]     

Current File : /usr/share/emacs/27.2/lisp/thumbs.elc
;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; with all optimizations.

;;; This file uses dynamic docstrings, first added in Emacs 19.29.

;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


(byte-code "\300\301!\210\300\302!\210\303\304\305\306\307\310\311\312&\210\313\314\315\316\317\320\311\304&\210\313\321\322\323\317\324\311\304&\210\313\325\326\327\317\330\311\304&\210\313\331\332\333\317\330\311\304&\210\313\334\335\336\317\330\311\304&\210\313\337\340\341\317\324\311\304&\210\313\342\343\344\317\324\311\304&\210\313\345\346\347\317\330\311\304&\210\313\350\351\352\317\330\311\304&\210\313\353\354\355\317\356\311\304&\210\313\357\360\361\317\330\311\304&\210\313\362\363\364\317\320\311\304&\210\313\365\366\367\317\324\311\304&\207" [require dired cl-lib custom-declare-group thumbs nil "Thumbnails previewer." :version "22.1" :group multimedia custom-declare-variable thumbs-thumbsdir (locate-user-emacs-file "thumbs") "Directory to store thumbnails." :type directory thumbs-geometry "100x100" "Size of thumbnails." string thumbs-per-line 4 "Number of thumbnails per line to show in directory." integer thumbs-max-image-number 16 "Maximum number of images initially displayed in thumbs buffer." thumbs-thumbsdir-max-size 50000000 "Maximum size for thumbnails directory.\nWhen it reaches that size (in bytes), a warning is sent." thumbs-conversion-program (if (eq system-type 'windows-nt) "convert.exe" (or (executable-find "convert") "/usr/X11R6/bin/convert")) "Name of conversion program for thumbnails generation.\nIt must be \"convert\"." thumbs-setroot-command "xloadimage -onroot -fullscreen *" "Command to set the root window." thumbs-relief 5 "Size of button-like border around thumbnails." thumbs-margin 2 "Size of the margin around thumbnails.\nThis is where you see the cursor." thumbs-thumbsdir-auto-clean t "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 10 "Step by which to resize image as a percentage." thumbs-temp-dir temporary-file-directory "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 "emacsthumbs" "Prefix to add to temp files."] 8)
#@38 Temporary filename of current image.
(defvar thumbs-current-tmp-filename nil (#$ . 2564))
(make-variable-buffer-local 'thumbs-current-tmp-filename)
#@28 Filename of current image.
(defvar thumbs-current-image-filename nil (#$ . 2718))
(make-variable-buffer-local 'thumbs-current-image-filename)
#@52 Counter for showing extra images in thumbs buffer.
(defvar thumbs-extra-images 1 (#$ . 2866))
(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 (#$ . 3088))
#@26 Number of current image.
(defvar thumbs-image-num nil (#$ . 3168))
(make-variable-buffer-local 'thumbs-image-num)
#@61 Name of buffer containing thumbnails associated with image.
(defvar thumbs-buffer nil (#$ . 3288))
(make-variable-buffer-local 'thumbs-buffer)
#@20 Current directory.
(defvar thumbs-current-dir nil (#$ . 3437))
#@23 List of marked files.
(defvar thumbs-marked-list nil (#$ . 3506))
(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 #[nil "\301\302!!\207" [thumbs-temp-dir file-name-as-directory expand-file-name] 3])
(put 'thumbs-temp-dir 'byte-optimizer 'byte-compile-inline-expand)
#@50 Return a unique temporary filename for an image.
(defalias 'thumbs-temp-file #[nil "\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 (#$ . 3879)])
#@122 Return the current thumbnails directory (from `thumbs-thumbsdir').
Create the thumbnails directory if it does not exist.
(defalias 'thumbs-thumbsdir #[nil "\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 (#$ . 4134)])
#@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 #[nil "\303\304\305\306\307 \310\311 #\"\312\"\313\314\304\315\"\"	\nV\205:\316\317@AA@\"\210\320@AA@!\210	@A@ZA\202*\207" [files-list dirsize thumbs-thumbsdir-max-size sort mapcar #[(f) "\302!\211\3038\262	\3048\262E)\207" [f fattribs-list file-attributes 4 7] 5] directory-files thumbs-thumbsdir t image-file-name-regexp #[(l1 l2) "\302@	@\"\207" [l1 l2 time-less-p] 3] apply + #[(x) "A@\207" [x] 1] message "Deleting file %s" delete-file] 7 (#$ . 4506)])
(byte-code "\203\301 \210\301\207" [thumbs-thumbsdir-auto-clean thumbs-cleanup-thumbsdir] 1)
#@371 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 `+').
(defalias 'thumbs-call-convert #[(filein fileout action &optional arg output-format action-prefix) "\306\307\211\211	\206\n\310\n\206\311\f\312\313
\206\314
#&	\207" [thumbs-conversion-program action-prefix action arg filein output-format call-process nil "-" "" format "%s:%s" "jpeg" fileout] 13 (#$ . 5302)])
#@39 New image (a cons of width x height).
(defalias 'thumbs-new-image-size #[(s increment) "	_\304@\n@_\305\245\\!\304A\nA_\305\245\\!)B\207" [increment thumbs-image-resizing-step d s round 100] 5 (#$ . 5997)])
#@149 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.
(defalias 'thumbs-resize-image-1 #[(&optional increment size) "\306	\206\f\307\f
\"\310 \311 \210\312\n\206\313\314@!\315\314A!Q$\210\212\316\317\320#\210)\211,\207" [buffer-read-only thumbs-current-tmp-filename old size thumbs-current-image-size increment nil thumbs-new-image-size thumbs-temp-file erase-buffer thumbs-call-convert "sample" number-to-string "x" thumbs-insert-image jpeg 0 x tmp thumbs-current-image-filename] 8 (#$ . 6217)])
#@59 Resize image interactively to specified WIDTH and HEIGHT.
(defalias 'thumbs-resize-image #[(width height) "\302\303	B\"\207" [width height thumbs-resize-image-1 nil] 4 (#$ . 6837) "nWidth: \nnHeight: "])
#@25 Resize image (smaller).
(defalias 'thumbs-shrink-image #[nil "\300\301!\207" [thumbs-resize-image-1 -1] 2 (#$ . 7048) nil])
#@24 Resize image (bigger).
(defalias 'thumbs-enlarge-image #[nil "\300\301!\207" [thumbs-resize-image-1 1] 2 (#$ . 7178) nil])
#@44 Return a thumbnail name for the image IMG.
(defalias 'thumbs-thumbname #[(img) "\302\303!\304\305\306 \307	!\310\311\312\313\314\315	\316\"\"#$)!\207" [img filename convert-standard-filename expand-file-name format "%s%08x-%s.jpg" thumbs-thumbsdir sxhash subst-char-in-string 32 95 apply concat split-string "/"] 13 (#$ . 7307)])
#@31 Create the thumbnail for IMG.
(defalias 'thumbs-make-thumb #[(img) "\304!\305!\306	!\204\307\n	\310$\210	*\207" [img tn fn thumbs-geometry expand-file-name thumbs-thumbname file-exists-p thumbs-call-convert "sample"] 5 (#$ . 7645)])
#@38 Return image type from filename IMG.
(defalias 'thumbs-image-type #[(img) "\301\302\"\203	\303\207\301\304\"\203\305\207\301\306\"\203\307\207\301\310\"\203$\311\207\301\312\"\203-\313\207\301\314\"\2036\315\207\301\316\"\203?\317\207\301\320\"\205G\321\207" [img string-match ".*\\.jpe?g\\'" jpeg ".*\\.xpm\\'" xpm ".*\\.xbm\\'" xbm ".*\\.pbm\\'" pbm ".*\\.gif\\'" gif ".*\\.bmp\\'" bmp ".*\\.png\\'" png ".*\\.tiff?\\'" tiff] 3 (#$ . 7891)])
(defalias 'thumbs-file-size #[(img) "\302\303\304\305!\306FC!\307\"\310\311	@!!\312\310\311	A!!Q)\207" [img i image-size find-image :type thumbs-image-type :file t number-to-string round "x"] 6])
#@32 Display the thumbnail for IMG.
(defalias 'thumbs-find-thumb #[(img) "\301\302!!\207" [img find-file thumbs-make-thumb] 3 (#$ . 8558) "f"])
#@191 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.
(defalias 'thumbs-insert-image #[(img type relief &optional marked) "\306\307\310	\311\n\312\205
\313\314\f\257\315
!\210\316\317!\210\320
\321\"\211)\207" [type img relief marked thumbs-margin i image :type :file :relief :conversion disabled :margin insert-image make-local-variable thumbs-current-image-size image-size t] 11 (#$ . 8705)])
#@83 Insert the thumbnail for IMG at point.
If MARKED is non-nil, the image is marked.
(defalias 'thumbs-insert-thumb #[(img &optional marked) "\303\304!\305	\n$\210\306`S`\307\310\311!\312BBBB#\207" [img thumbs-relief marked thumbs-insert-image thumbs-make-thumb jpeg add-text-properties thumb-image-file help-echo file-name-nondirectory (rear-nonsticky help-echo)] 8 (#$ . 9249)])
#@43 Insert all thumbnails into thumbs buffer.
(defalias 'thumbs-do-thumbs-insertion #[(list) "\306	G\211\f_Z\307	
\"\210	\310\211\203A@\311\211\235\"\210\312T\211\"\306U\2038\313 \210A\211\204*o\204I\313 \210
\306V\205R\314\315!+\207" [i list length thumbs-max-image-number thumbs-extra-images diff 0 nbutlast nil thumbs-insert-thumb mod newline message "Type + to display more images." img --dolist-tail-- thumbs-marked-list thumbs-per-line] 5 (#$ . 9636)])
(defalias 'thumbs-show-thumbs-list #[(list &optional dir same-window) "\306 \203\307\310!\204\311\312!\210\203\313\202\314	\203\"\315	P\202#\316!\210\317\320 \210\321 \210p	\2035	\322
!\210eb\210\323\324!\210\f\211)\207" [same-window dir inhibit-read-only thumbs-buffer default-directory list 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 thumbs-current-dir] 3])
#@153 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.
(defalias 'thumbs-show-from-dir #[(dir &optional reg same-window) "\303\304\305	\206\n\306 #\n#\207" [dir reg same-window thumbs-show-thumbs-list directory-files t image-file-name-regexp] 5 (#$ . 10706) "DDir: "])
#@51 In dired, make a thumbs buffer with marked files.
(defalias 'thumbs-dired-show-marked #[nil "\300\301 \302\303#\207" [thumbs-show-thumbs-list dired-get-marked-files nil t] 4 (#$ . 11081) nil])
#@69 In dired, make a thumbs buffer with all files in current directory.
(defalias 'thumbs-dired-show #[nil "\301\302\303#\207" [default-directory thumbs-show-from-dir nil t] 4 (#$ . 11280) nil])
(defalias 'thumbs 'thumbs-show-from-dir)
(defalias 'thumbs-find-image #[(img &optional num otherwin) "p	\203\n\306\202\307\310!\210\311 \210\312\313\n!\314\315!R\316\n\317\206+\320ed|\210\212\321\n\322\n!\320#+\207" [buffer otherwin img num mode-name thumbs-buffer 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 inhibit-read-only thumbs-current-image-filename thumbs-current-tmp-filename thumbs-image-num] 5])
#@80 Display image IMG for thumbnail at point.
Use another window if OTHERWIN is t.
(defalias 'thumbs-find-image-at-point #[(&optional img otherwin) "\206\303 \304	`\n#)\207" [img i otherwin thumbs-current-image thumbs-find-image] 4 (#$ . 12051) nil])
#@82 Display image for thumbnail at point in the preview buffer.
Open another window.
(defalias 'thumbs-find-image-at-point-other-window #[nil "\300\301\302\"\207" [thumbs-find-image-at-point nil t] 3 (#$ . 12308) nil])
#@51 Display image for thumbnail at mouse click EVENT.
(defalias 'thumbs-mouse-find-image #[(event) "\301!\210\302 \207" [event mouse-set-point thumbs-find-image-at-point] 2 (#$ . 12529) "e"])
#@35 Call the setroot program for IMG.
(defalias 'thumbs-call-setroot-command #[(img) "\302\303!\210\304\305\306\307\310!!	\311\312%!\210\302\313!\207" [img thumbs-setroot-command run-hooks thumbs-before-setroot-hook shell-command replace-regexp-in-string "\\*" shell-quote-argument expand-file-name nil t thumbs-after-setroot-hook] 7 (#$ . 12724)])
#@50 Set the image at point as the desktop wallpaper.
(defalias 'thumbs-set-image-at-point-to-root-window #[nil "\300\301 !\207" [thumbs-call-setroot-command thumbs-current-image] 2 (#$ . 13076) nil])
#@32 Set the current image as root.
(defalias 'thumbs-set-root #[nil "\302\206	!\207" [thumbs-current-tmp-filename thumbs-current-image-filename thumbs-call-setroot-command] 2 (#$ . 13278) nil])
#@76 Make an alist of elements (POS . FILENAME) for all images in thumb buffer.
(defalias 'thumbs-file-alist #[nil "rq\210\212\302eb\210m\204%l\204\303 \203\304 \303 B	B\305u\210\202\n	\237+\207" [thumbs-buffer list nil thumbs-current-image point-marker 1] 2 (#$ . 13477)])
#@59 Make a list of file names for all images in thumb buffer.
(defalias 'thumbs-file-list #[nil "\212\301eb\210m\204\302 \203\302 B\303u\210\202\237*\207" [list nil thumbs-current-image 1] 2 (#$ . 13761)])
#@73 Delete the image at point (and its thumbnail) (or marked files if any).
(defalias 'thumbs-delete-images #[nil "\206\306 C\307\310\311	G\"!\205c\312 \313	\314\211\205b
@\314\31516\316\f!\210\316\317\f!!0\202;\210\313\211\210\204Y\320\f\"\203T\320\f\"@b\210``T|\210\321\f\")
A\211\204\314,)\207" [thumbs-marked-list files inhibit-read-only thumbs-file-list x --dolist-tail-- 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 failure] 5 (#$ . 13979) nil])
#@73 Rename the image at point (and its thumbnail) (or marked files if any).
(defalias 'thumbs-rename-images #[(newfile) "\206\306 C\307\203\310\311\"\210\312!\313\314\315\nG\"!\203{\316 \311\n\307\211\203z@\307\3171E\320\"0\202O\210\311	B\211\210\204p\321
\"\203j\321
\"@b\210``T|\210\322\")A\211\2040,	\205\210\323\324\314\325	#\326#*\207" [thumbs-marked-list failures files newfile inhibit-read-only thumbs-file-list 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 file --dolist-tail-- failure] 7 (#$ . 14561) "FRename to file or directory: "])
#@26 Kill the current buffer.
(defalias 'thumbs-kill-buffer #[nil "\300\301\302 \"\207" [quit-window t selected-window] 3 (#$ . 15349) nil])
#@33 Show the image with number NUM.
(defalias 'thumbs-show-image-num #[(num) "\306\307!	S\310 8Arq\210\311\312\n!\313\314	!R\315\316 \210\317\n\320\n!\321#\210eb\210*	\n\211*\207" [image-buffer num img mode-name inhibit-read-only thumbs-image-num 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 thumbs-current-image-filename] 5 (#$ . 15491)])
#@26 Show the previous image.
(defalias 'thumbs-previous-image #[nil "S\303 G	\304U\203\nS\305	!*\207" [thumbs-image-num i number thumbs-file-alist 0 thumbs-show-image-num] 2 (#$ . 15963) nil])
#@22 Show the next image.
(defalias 'thumbs-next-image #[nil "T\303 G	\nU\203\304\305	!*\207" [thumbs-image-num i number thumbs-file-alist 1 thumbs-show-image-num] 2 (#$ . 16164) nil])
#@39 Display the associated thumbs buffer.
(defalias 'thumbs-display-thumbs-buffer #[nil "\301!\207" [thumbs-buffer display-buffer] 2 (#$ . 16356) nil])
#@35 Redraw the current thumbs buffer.
(defalias 'thumbs-redraw-buffer #[nil "`\303\304 \305 \210\306!\210\nb+\207" [files inhibit-read-only p t thumbs-file-list erase-buffer thumbs-do-thumbs-insertion] 3 (#$ . 16511)])
#@26 Mark the image at point.
(defalias 'thumbs-mark #[nil "\303 \211\204\304\305!\210	B\306\307\310!\210\311\306\"\210*l\205!\312u\207" [elt thumbs-marked-list inhibit-read-only thumbs-current-image error "No image here" t delete-char 1 thumbs-insert-thumb nil] 4 (#$ . 16736) nil])
#@28 Unmark the image at point.
(defalias 'thumbs-unmark #[nil "\303 \211\204\304\305!\210\306	\"\307\310\311!\210\312\313\"\210*l\205\"\313u\207" [elt thumbs-marked-list inhibit-read-only thumbs-current-image error "No image here" delete t delete-char 1 thumbs-insert-thumb nil] 4 (#$ . 17029) 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)
#@105 Call convert to do ACTION on image with argument ARG.
ACTION and ARG should be a valid convert command.
(defalias 'thumbs-modify-image #[(action &optional arg) "\306	\307 \310 \210\311\n\206\f
\206\312$\210\212\313\314\315#\210)\211+\207" [buffer-read-only thumbs-current-tmp-filename old tmp thumbs-current-image-filename action nil thumbs-temp-file erase-buffer thumbs-call-convert "" thumbs-insert-image jpeg 0 arg] 5 (#$ . 17504) "sAction: \nsValue: "])
#@37 Emboss the image with value EMBOSS.
(defalias 'thumbs-emboss-image #[(emboss) "\301W\204\302V\204\303\246\304U\203\305\306!\210\307\310\311!\"\207" [emboss 3 31 2 0 error "Arg must be an odd number between 3 and 31" thumbs-modify-image "emboss" number-to-string] 4 (#$ . 17981) "nEmboss value: "])
#@31 Turn the image to monochrome.
(defalias 'thumbs-monochrome-image #[nil "\300\301!\207" [thumbs-modify-image "monochrome"] 2 (#$ . 18295) nil])
#@19 Negate the image.
(defalias 'thumbs-negate-image #[nil "\300\301!\207" [thumbs-modify-image "negate"] 2 (#$ . 18444) nil])
#@48 Rotate the image 90 degrees counter-clockwise.
(defalias 'thumbs-rotate-left #[nil "\300\301\302\"\207" [thumbs-modify-image "rotate" "270"] 3 (#$ . 18573) nil])
#@40 Rotate the image 90 degrees clockwise.
(defalias 'thumbs-rotate-right #[nil "\300\301\302\"\207" [thumbs-modify-image "rotate" "90"] 3 (#$ . 18741) nil])
#@50 Return the name of the image file name at point.
(defalias 'thumbs-current-image #[nil "\300`\301\"\207" [get-text-property thumb-image-file] 3 (#$ . 18901)])
#@25 Move forward one image.
(defalias 'thumbs-forward-char #[nil "\300u\210m\204\301 \204\300u\210\202\302 \207" [nil thumbs-current-image thumbs-show-name] 1 (#$ . 19066) nil])
#@26 Move backward one image.
(defalias 'thumbs-backward-char #[nil "\300u\210o\204\301 \204\300u\210\202\302 \207" [-1 thumbs-current-image thumbs-show-name] 1 (#$ . 19252) nil])
#@19 Move up one line.
(defalias 'thumbs-backward-line #[nil "\300y\210\301 \207" [-1 thumbs-show-name] 1 (#$ . 19439) nil])
#@21 Move down one line.
(defalias 'thumbs-forward-line #[nil "\300y\210\301 \207" [1 thumbs-show-name] 1 (#$ . 19565) nil])
#@62 Show more than `thumbs-max-image-number' images, if present.
(defalias 'thumbs-show-more-images #[(&optional arg) "\204\302	\\\303 \207" [arg thumbs-extra-images 1 thumbs-dired-show] 2 (#$ . 19691) "P"])
#@36 Show the name of the current file.
(defalias 'thumbs-show-name #[nil "\301 \211\205\302\303\304!#)\207" [f thumbs-current-image message "%s [%s]" thumbs-file-size] 6 (#$ . 19907) nil])
#@25 Save the current image.
(defalias 'thumbs-save-current-image #[nil "\206	\304\305	\"\306\n\"*\207" [thumbs-current-tmp-filename thumbs-current-image-filename sa f read-from-minibuffer "Save image file as: " copy-file] 4 (#$ . 20103) nil])
#@46 Use `dired' on the current thumbs directory.
(defalias 'thumbs-dired #[nil "\301!\207" [thumbs-current-dir dired] 2 (#$ . 20354) nil])
#@27 Keymap for `thumbs-mode'.
(defvar thumbs-mode-map (byte-code "\301 \302\303\304#\210\302\305\306#\210\302\307\310#\210\302\311\312#\210\302\313\314#\210\302\315\316#\210\302\317\320#\210\302\321\322#\210\302\323\324#\210\302\325\326#\210\302\327\330#\210\302\331\332#\210\302\333\334#\210\302\335\336#\210\302\337\314#\210\302\340\341#\210\302\342\343#\210)\207" [map 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] 4) (#$ . 20496))
(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 #[nil "\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 (#$ . 22583) nil])
#@38 Keymap for `thumbs-view-image-mode'.
(defvar thumbs-view-image-mode-map (byte-code "\301 \302\303\304#\210\302\305\306#\210\302\307\310#\210\302\311\312#\210\302\313\314#\210\302\315\316#\210\302\317\320#\210\302\321\322#\210\302\323\324#\210\302\325\326#\210\302\327\330#\210\302\331\332#\210)\207" [map 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] 4) (#$ . 23156))
(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 #[nil "\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 (#$ . 25177) nil])
#@59 In dired, call the setroot program on the image at point.
(defalias 'thumbs-dired-setroot #[nil "\300\301 !\207" [thumbs-call-setroot-command dired-get-filename] 2 (#$ . 25969) 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)

Youez - 2016 - github.com/yon3zu
LinuXploit