summaryrefslogtreecommitdiff
path: root/localrepo/calibredb-20240331.409.tar
blob: 9ec0895d3ac7544261ac353cd73bfc252cb1a4e2 (plain)
ofshex dumpascii
0000 63 61 6c 69 62 72 65 64 62 2d 32 30 32 34 30 33 33 31 2e 34 30 39 2f 00 00 00 00 00 00 00 00 00 calibredb-20240331.409/.........
0020 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
0040 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
0060 00 00 00 00 30 30 30 30 37 35 35 00 30 30 30 30 30 30 30 00 30 30 30 30 30 30 30 00 30 30 30 30 ....0000755.0000000.0000000.0000
0080 30 30 30 30 30 30 30 00 30 30 30 30 30 30 30 30 30 30 30 00 30 31 32 36 33 33 00 20 35 00 00 00 0000000.00000000000.012633..5...
00a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
00c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
00e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
0100 00 75 73 74 61 72 20 20 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 .ustar...root...................
0120 00 00 00 00 00 00 00 00 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 .........root...................
0140 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
0160 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
0180 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
01a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
01c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
01e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
0200 63 61 6c 69 62 72 65 64 62 2d 32 30 32 34 30 33 33 31 2e 34 30 39 2f 63 61 6c 69 62 72 65 64 62 calibredb-20240331.409/calibredb
0220 2e 65 6c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 .el.............................
0240 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
0260 00 00 00 00 30 30 30 30 36 34 34 00 30 30 30 30 30 30 30 00 30 30 30 30 30 30 30 00 30 30 30 30 ....0000644.0000000.0000000.0000
0280 30 30 30 37 31 37 32 00 30 30 30 30 30 30 30 30 30 30 30 00 30 31 35 30 37 33 00 20 30 00 00 00 0007172.00000000000.015073..0...
02a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
02c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
02e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
0300 00 75 73 74 61 72 20 20 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 .ustar...root...................
0320 00 00 00 00 00 00 00 00 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 .........root...................
0340 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
0360 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
0380 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
03a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
03c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
03e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
0400 3b 3b 3b 20 63 61 6c 69 62 72 65 64 62 2e 65 6c 20 2d 2d 2d 20 59 65 74 20 61 6e 6f 74 68 65 72 ;;;.calibredb.el.---.Yet.another
0420 20 63 61 6c 69 62 72 65 20 63 6c 69 65 6e 74 20 2d 2a 2d 20 6c 65 78 69 63 61 6c 2d 62 69 6e 64 .calibre.client.-*-.lexical-bind
0440 69 6e 67 3a 20 74 3b 20 2d 2a 2d 0a 0a 3b 3b 20 43 6f 70 79 72 69 67 68 74 20 28 43 29 20 32 30 ing:.t;.-*-..;;.Copyright.(C).20
0460 32 30 20 44 61 6d 6f 6e 20 43 68 61 6e 0a 0a 3b 3b 20 41 75 74 68 6f 72 3a 20 44 61 6d 6f 6e 20 20.Damon.Chan..;;.Author:.Damon.
0480 43 68 61 6e 20 3c 65 6c 65 63 6d 69 6e 67 40 67 6d 61 69 6c 2e 63 6f 6d 3e 0a 3b 3b 20 55 52 4c Chan.<elecming@gmail.com>.;;.URL
04a0 3a 20 68 74 74 70 73 3a 2f 2f 67 69 74 68 75 62 2e 63 6f 6d 2f 63 68 65 6e 79 61 6e 6d 69 6e 67 :.https://github.com/chenyanming
04c0 2f 63 61 6c 69 62 72 65 64 62 2e 65 6c 0a 3b 3b 20 4b 65 79 77 6f 72 64 73 3a 20 74 6f 6f 6c 73 /calibredb.el.;;.Keywords:.tools
04e0 0a 3b 3b 20 43 72 65 61 74 65 64 3a 20 39 20 4d 61 79 20 32 30 32 30 0a 3b 3b 20 56 65 72 73 69 .;;.Created:.9.May.2020.;;.Versi
0500 6f 6e 3a 20 32 2e 31 32 2e 30 0a 3b 3b 20 50 61 63 6b 61 67 65 2d 52 65 71 75 69 72 65 73 3a 20 on:.2.12.0.;;.Package-Requires:.
0520 28 28 65 6d 61 63 73 20 22 32 35 2e 31 22 29 20 28 6f 72 67 20 22 39 2e 33 22 29 20 28 74 72 61 ((emacs."25.1").(org."9.3").(tra
0540 6e 73 69 65 6e 74 20 22 30 2e 31 2e 30 22 29 20 28 73 20 22 31 2e 31 32 2e 30 22 29 20 28 64 61 nsient."0.1.0").(s."1.12.0").(da
0560 73 68 20 22 32 2e 31 37 2e 30 22 29 20 28 72 65 71 75 65 73 74 20 22 30 2e 33 2e 33 22 29 20 28 sh."2.17.0").(request."0.3.3").(
0580 65 73 78 6d 6c 20 22 30 2e 33 2e 37 22 29 29 0a 0a 3b 3b 20 54 68 69 73 20 66 69 6c 65 20 69 73 esxml."0.3.7"))..;;.This.file.is
05a0 20 4e 4f 54 20 70 61 72 74 20 6f 66 20 47 4e 55 20 45 6d 61 63 73 2e 0a 0a 3b 3b 20 54 68 69 73 .NOT.part.of.GNU.Emacs...;;.This
05c0 20 70 72 6f 67 72 61 6d 20 69 73 20 66 72 65 65 20 73 6f 66 74 77 61 72 65 3b 20 79 6f 75 20 63 .program.is.free.software;.you.c
05e0 61 6e 20 72 65 64 69 73 74 72 69 62 75 74 65 20 69 74 20 61 6e 64 2f 6f 72 20 6d 6f 64 69 66 79 an.redistribute.it.and/or.modify
0600 0a 3b 3b 20 69 74 20 75 6e 64 65 72 20 74 68 65 20 74 65 72 6d 73 20 6f 66 20 74 68 65 20 47 4e .;;.it.under.the.terms.of.the.GN
0620 55 20 47 65 6e 65 72 61 6c 20 50 75 62 6c 69 63 20 4c 69 63 65 6e 73 65 20 61 73 20 70 75 62 6c U.General.Public.License.as.publ
0640 69 73 68 65 64 20 62 79 0a 3b 3b 20 74 68 65 20 46 72 65 65 20 53 6f 66 74 77 61 72 65 20 46 6f ished.by.;;.the.Free.Software.Fo
0660 75 6e 64 61 74 69 6f 6e 2c 20 65 69 74 68 65 72 20 76 65 72 73 69 6f 6e 20 33 20 6f 66 20 74 68 undation,.either.version.3.of.th
0680 65 20 4c 69 63 65 6e 73 65 2c 20 6f 72 0a 3b 3b 20 28 61 74 20 79 6f 75 72 20 6f 70 74 69 6f 6e e.License,.or.;;.(at.your.option
06a0 29 20 61 6e 79 20 6c 61 74 65 72 20 76 65 72 73 69 6f 6e 2e 0a 0a 3b 3b 20 54 68 69 73 20 70 72 ).any.later.version...;;.This.pr
06c0 6f 67 72 61 6d 20 69 73 20 64 69 73 74 72 69 62 75 74 65 64 20 69 6e 20 74 68 65 20 68 6f 70 65 ogram.is.distributed.in.the.hope
06e0 20 74 68 61 74 20 69 74 20 77 69 6c 6c 20 62 65 20 75 73 65 66 75 6c 2c 0a 3b 3b 20 62 75 74 20 .that.it.will.be.useful,.;;.but.
0700 57 49 54 48 4f 55 54 20 41 4e 59 20 57 41 52 52 41 4e 54 59 3b 20 77 69 74 68 6f 75 74 20 65 76 WITHOUT.ANY.WARRANTY;.without.ev
0720 65 6e 20 74 68 65 20 69 6d 70 6c 69 65 64 20 77 61 72 72 61 6e 74 79 20 6f 66 0a 3b 3b 20 4d 45 en.the.implied.warranty.of.;;.ME
0740 52 43 48 41 4e 54 41 42 49 4c 49 54 59 20 6f 72 20 46 49 54 4e 45 53 53 20 46 4f 52 20 41 20 50 RCHANTABILITY.or.FITNESS.FOR.A.P
0760 41 52 54 49 43 55 4c 41 52 20 50 55 52 50 4f 53 45 2e 20 20 53 65 65 20 74 68 65 0a 3b 3b 20 47 ARTICULAR.PURPOSE...See.the.;;.G
0780 4e 55 20 47 65 6e 65 72 61 6c 20 50 75 62 6c 69 63 20 4c 69 63 65 6e 73 65 20 66 6f 72 20 6d 6f NU.General.Public.License.for.mo
07a0 72 65 20 64 65 74 61 69 6c 73 2e 0a 0a 3b 3b 20 59 6f 75 20 73 68 6f 75 6c 64 20 68 61 76 65 20 re.details...;;.You.should.have.
07c0 72 65 63 65 69 76 65 64 20 61 20 63 6f 70 79 20 6f 66 20 74 68 65 20 47 4e 55 20 47 65 6e 65 72 received.a.copy.of.the.GNU.Gener
07e0 61 6c 20 50 75 62 6c 69 63 20 4c 69 63 65 6e 73 65 0a 3b 3b 20 61 6c 6f 6e 67 20 77 69 74 68 20 al.Public.License.;;.along.with.
0800 74 68 69 73 20 70 72 6f 67 72 61 6d 2e 20 20 49 66 20 6e 6f 74 2c 20 73 65 65 20 3c 68 74 74 70 this.program...If.not,.see.<http
0820 73 3a 2f 2f 77 77 77 2e 67 6e 75 2e 6f 72 67 2f 6c 69 63 65 6e 73 65 73 2f 3e 2e 0a 0a 3b 3b 3b s://www.gnu.org/licenses/>...;;;
0840 20 43 6f 6d 6d 65 6e 74 61 72 79 3a 0a 0a 3b 3b 20 59 65 74 20 61 6e 6f 74 68 65 72 20 5b 5b 68 .Commentary:..;;.Yet.another.[[h
0860 74 74 70 73 3a 2f 2f 63 61 6c 69 62 72 65 2d 65 62 6f 6f 6b 2e 63 6f 6d 2f 5d 5b 63 61 6c 69 62 ttps://calibre-ebook.com/][calib
0880 72 65 5d 5d 20 45 6d 61 63 73 20 63 6c 69 65 6e 74 2e 0a 3b 3b 20 54 68 69 73 20 70 61 63 6b 61 re]].Emacs.client..;;.This.packa
08a0 67 65 20 69 6e 74 65 67 72 61 74 65 73 20 63 61 6c 69 62 72 65 20 28 75 73 69 6e 67 20 2a 63 61 ge.integrates.calibre.(using.*ca
08c0 6c 69 62 72 65 64 62 2a 29 20 69 6e 74 6f 20 45 6d 61 63 73 2e 0a 3b 3b 20 31 2e 20 50 6f 77 65 libredb*).into.Emacs..;;.1..Powe
08e0 72 66 75 6c 20 65 62 6f 6f 6b 20 64 61 73 68 62 6f 61 72 64 2e 0a 3b 3b 20 32 2e 20 4d 61 6e 61 rful.ebook.dashboard..;;.2..Mana
0900 67 65 20 65 62 6f 6f 6b 73 2c 20 61 63 74 75 61 6c 6c 79 20 6e 6f 74 20 6f 6e 6c 79 20 65 62 6f ge.ebooks,.actually.not.only.ebo
0920 6f 6b 73 21 0a 3b 3b 20 33 2e 20 4d 61 6e 61 67 65 20 45 62 6f 6f 6b 20 6c 69 62 72 61 72 69 65 oks!.;;.3..Manage.Ebook.librarie
0940 73 2e 0a 3b 3b 20 34 2e 20 41 6e 6f 74 68 65 72 20 62 6f 6f 6b 6d 61 72 6b 73 20 73 6f 6c 75 74 s..;;.4..Another.bookmarks.solut
0960 69 6f 6e 2c 20 62 79 20 73 65 74 74 69 6e 67 20 74 68 65 20 74 61 67 73 20 61 6e 64 20 63 6f 6d ion,.by.setting.the.tags.and.com
0980 6d 65 6e 74 73 2e 0a 3b 3b 20 35 2e 20 51 75 69 63 6b 20 73 65 61 72 63 68 2c 20 66 69 6c 74 65 ments..;;.5..Quick.search,.filte
09a0 72 2c 20 6d 61 6b 65 20 61 63 74 69 6f 6e 73 20 6f 6e 20 69 74 65 6d 73 20 77 69 74 68 20 69 76 r,.make.actions.on.items.with.iv
09c0 79 20 61 6e 64 20 68 65 6c 6d 2e 0a 3b 3b 20 36 2e 20 4f 72 67 2d 72 65 66 20 73 75 70 70 6f 72 y.and.helm..;;.6..Org-ref.suppor
09e0 74 2e 0a 0a 0a 3b 3b 3b 20 43 6f 64 65 3a 0a 0a 28 72 65 71 75 69 72 65 20 27 63 61 6c 69 62 72 t....;;;.Code:..(require.'calibr
0a00 65 64 62 2d 63 6f 72 65 29 0a 28 72 65 71 75 69 72 65 20 27 63 61 6c 69 62 72 65 64 62 2d 66 61 edb-core).(require.'calibredb-fa
0a20 63 65 73 29 0a 28 72 65 71 75 69 72 65 20 27 63 61 6c 69 62 72 65 64 62 2d 73 65 61 72 63 68 29 ces).(require.'calibredb-search)
0a40 0a 28 72 65 71 75 69 72 65 20 27 63 61 6c 69 62 72 65 64 62 2d 73 68 6f 77 29 0a 28 72 65 71 75 .(require.'calibredb-show).(requ
0a60 69 72 65 20 27 63 61 6c 69 62 72 65 64 62 2d 68 65 6c 6d 29 0a 28 72 65 71 75 69 72 65 20 27 63 ire.'calibredb-helm).(require.'c
0a80 61 6c 69 62 72 65 64 62 2d 69 76 79 29 0a 28 72 65 71 75 69 72 65 20 27 63 61 6c 69 62 72 65 64 alibredb-ivy).(require.'calibred
0aa0 62 2d 75 74 69 6c 73 29 0a 28 72 65 71 75 69 72 65 20 27 63 61 6c 69 62 72 65 64 62 2d 61 6e 6e b-utils).(require.'calibredb-ann
0ac0 6f 74 61 74 69 6f 6e 29 0a 28 72 65 71 75 69 72 65 20 27 63 61 6c 69 62 72 65 64 62 2d 74 72 61 otation).(require.'calibredb-tra
0ae0 6e 73 69 65 6e 74 29 0a 28 72 65 71 75 69 72 65 20 27 63 61 6c 69 62 72 65 64 62 2d 6c 69 62 72 nsient).(require.'calibredb-libr
0b00 61 72 79 29 0a 28 72 65 71 75 69 72 65 20 27 63 61 6c 69 62 72 65 64 62 2d 6f 72 67 29 0a 28 72 ary).(require.'calibredb-org).(r
0b20 65 71 75 69 72 65 20 27 63 61 6c 69 62 72 65 64 62 2d 6f 70 64 73 29 0a 28 72 65 71 75 69 72 65 equire.'calibredb-opds).(require
0b40 20 27 63 61 6c 69 62 72 65 64 62 2d 63 6f 6e 73 75 6c 74 29 0a 28 72 65 71 75 69 72 65 20 27 63 .'calibredb-consult).(require.'c
0b60 61 6c 69 62 72 65 64 62 2d 64 69 72 65 64 29 0a 0a 3b 3b 3b 23 23 23 61 75 74 6f 6c 6f 61 64 0a alibredb-dired)..;;;###autoload.
0b80 28 64 65 66 75 6e 20 63 61 6c 69 62 72 65 64 62 20 28 29 0a 20 20 22 45 6e 74 65 72 20 63 61 6c (defun.calibredb.()..."Enter.cal
0ba0 69 62 72 65 20 53 65 61 72 63 68 20 42 75 66 66 65 72 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 ibre.Search.Buffer."...(interact
0bc0 69 76 65 29 0a 20 20 28 63 6f 6e 64 20 28 28 6e 75 6c 6c 20 63 61 6c 69 62 72 65 64 62 2d 64 62 ive)...(cond.((null.calibredb-db
0be0 2d 64 69 72 29 0a 20 20 20 20 20 20 20 20 20 28 6d 65 73 73 61 67 65 20 22 63 61 6c 69 62 72 65 -dir)..........(message."calibre
0c00 64 62 3a 20 63 61 6c 69 62 72 65 64 62 2d 64 62 2d 64 69 72 20 69 73 20 6e 69 6c 21 20 63 61 6c db:.calibredb-db-dir.is.nil!.cal
0c20 69 62 72 65 64 62 20 77 6f 6e 27 74 20 77 6f 72 6b 20 77 69 74 68 6f 75 74 20 69 74 2e 22 29 29 ibredb.won't.work.without.it."))
0c40 0a 20 20 20 20 20 20 20 20 28 28 6e 6f 74 20 28 66 69 6c 65 2d 72 65 67 75 6c 61 72 2d 70 20 63 .........((not.(file-regular-p.c
0c60 61 6c 69 62 72 65 64 62 2d 64 62 2d 64 69 72 29 29 0a 20 20 20 20 20 20 20 20 20 28 6d 65 73 73 alibredb-db-dir))..........(mess
0c80 61 67 65 20 22 63 61 6c 69 62 72 65 64 62 3a 20 25 73 20 64 6f 65 73 6e 27 74 20 65 78 69 73 74 age."calibredb:.%s.doesn't.exist
0ca0 21 22 20 63 61 6c 69 62 72 65 64 62 2d 64 62 2d 64 69 72 29 29 0a 20 20 20 20 20 20 20 20 28 74 !".calibredb-db-dir)).........(t
0cc0 0a 20 20 20 20 20 20 20 20 20 28 69 66 20 28 61 6e 64 20 28 66 75 6e 63 74 69 6f 6e 70 20 27 73 ..........(if.(and.(functionp.'s
0ce0 71 6c 69 74 65 2d 61 76 61 69 6c 61 62 6c 65 2d 70 29 20 28 73 71 6c 69 74 65 2d 61 76 61 69 6c qlite-available-p).(sqlite-avail
0d00 61 62 6c 65 2d 70 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 75 6e 6c 65 73 73 20 28 73 able-p))..............(unless.(s
0d20 71 6c 69 74 65 70 20 63 61 6c 69 62 72 65 64 62 2d 64 62 2d 63 6f 6e 6e 65 63 74 69 6f 6e 29 0a qlitep.calibredb-db-connection).
0d40 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 61 6c 69 62 72 65 64 62 2d 64 62 2d 63 6f 6e ...............(calibredb-db-con
0d60 6e 65 63 74 69 6f 6e 29 29 29 0a 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 63 61 6e 64 20 nection)))..........(let.((cand.
0d80 28 6f 72 20 63 61 6c 69 62 72 65 64 62 2d 73 65 61 72 63 68 2d 65 6e 74 72 69 65 73 0a 20 20 20 (or.calibredb-search-entries....
0da0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 63 61 6c 69 ......................(setq.cali
0dc0 62 72 65 64 62 2d 73 65 61 72 63 68 2d 65 6e 74 72 69 65 73 20 28 63 61 6c 69 62 72 65 64 62 2d bredb-search-entries.(calibredb-
0de0 63 61 6e 64 69 64 61 74 65 73 29 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 75 6e 6c 65 candidates)))))............(unle
0e00 73 73 20 63 61 6c 69 62 72 65 64 62 2d 66 75 6c 6c 2d 65 6e 74 72 69 65 73 0a 20 20 20 20 20 20 ss.calibredb-full-entries.......
0e20 20 20 20 20 20 20 20 28 73 65 74 71 20 63 61 6c 69 62 72 65 64 62 2d 66 75 6c 6c 2d 65 6e 74 72 .......(setq.calibredb-full-entr
0e40 69 65 73 20 63 61 6c 69 62 72 65 64 62 2d 73 65 61 72 63 68 2d 65 6e 74 72 69 65 73 29 29 0a 20 ies.calibredb-search-entries))..
0e60 20 20 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 28 67 65 74 2d 62 75 66 66 65 72 20 28 63 61 6c ..........(when.(get-buffer.(cal
0e80 69 62 72 65 64 62 2d 73 65 61 72 63 68 2d 62 75 66 66 65 72 29 29 0a 20 20 20 20 20 20 20 20 20 ibredb-search-buffer))..........
0ea0 20 20 20 20 28 6b 69 6c 6c 2d 62 75 66 66 65 72 20 28 63 61 6c 69 62 72 65 64 62 2d 73 65 61 72 ....(kill-buffer.(calibredb-sear
0ec0 63 68 2d 62 75 66 66 65 72 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 53 65 74 20 76 ch-buffer)))............;;.Set.v
0ee0 69 72 74 75 61 6c 20 6c 69 62 72 61 72 79 20 6e 61 6d 65 20 77 68 65 6e 20 74 68 65 20 66 69 72 irtual.library.name.when.the.fir
0f00 73 74 20 74 69 6d 65 20 74 6f 20 6c 61 75 6e 63 68 20 63 61 6c 69 62 72 65 64 62 0a 20 20 20 20 st.time.to.launch.calibredb.....
0f20 20 20 20 20 20 20 20 28 69 66 20 28 65 71 75 61 6c 20 63 61 6c 69 62 72 65 64 62 2d 73 65 61 72 .......(if.(equal.calibredb-sear
0f40 63 68 2d 66 69 6c 74 65 72 20 22 22 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 ch-filter."")................(se
0f60 74 71 20 63 61 6c 69 62 72 65 64 62 2d 76 69 72 74 75 61 6c 2d 6c 69 62 72 61 72 79 2d 6e 61 6d tq.calibredb-virtual-library-nam
0f80 65 20 63 61 6c 69 62 72 65 64 62 2d 76 69 72 74 75 61 6c 2d 6c 69 62 72 61 72 79 2d 64 65 66 61 e.calibredb-virtual-library-defa
0fa0 75 6c 74 2d 6e 61 6d 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 73 77 69 74 63 68 2d 74 6f ult-name))............(switch-to
0fc0 2d 62 75 66 66 65 72 20 28 63 61 6c 69 62 72 65 64 62 2d 73 65 61 72 63 68 2d 62 75 66 66 65 72 -buffer.(calibredb-search-buffer
0fe0 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 67 6f 74 6f 2d 63 68 61 72 20 28 70 6f 69 6e 74 2d ))............(goto-char.(point-
1000 6d 69 6e 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 75 6e 6c 65 73 73 20 28 65 71 75 61 6c 20 min))............(unless.(equal.
1020 63 61 6e 64 20 27 28 22 22 29 29 20 20 20 3b 20 6e 6f 74 20 65 6d 70 74 79 20 6c 69 62 72 61 72 cand.'(""))...;.not.empty.librar
1040 79 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 64 6f 6c 69 73 74 20 28 69 74 65 6d 20 63 61 6e y..............(dolist.(item.can
1060 64 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 62 65 67 20 65 6e 64 29 d)................(let.(beg.end)
1080 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 62 65 67 20 28 70 6f 69 ..................(setq.beg.(poi
10a0 6e 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 6e 73 65 72 74 20 28 63 nt))..................(insert.(c
10c0 61 72 20 69 74 65 6d 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 61 6c 69 ar.item))..................(cali
10e0 62 72 65 64 62 2d 64 65 74 61 69 6c 65 64 2d 76 69 65 77 2d 69 6e 73 65 72 74 2d 69 6d 61 67 65 bredb-detailed-view-insert-image
1100 20 69 74 65 6d 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 65 6e .item)..................(setq.en
1120 64 20 28 70 6f 69 6e 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 75 74 d.(point))..................(put
1140 2d 74 65 78 74 2d 70 72 6f 70 65 72 74 79 20 62 65 67 20 65 6e 64 20 27 63 61 6c 69 62 72 65 64 -text-property.beg.end.'calibred
1160 62 2d 65 6e 74 72 79 20 69 74 65 6d 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 b-entry.item)..................(
1180 69 6e 73 65 72 74 20 22 5c 6e 22 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 67 6f 74 insert."\n")))..............(got
11a0 6f 2d 63 68 61 72 20 28 70 6f 69 6e 74 2d 6d 69 6e 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 o-char.(point-min)))............
11c0 28 63 61 6c 69 62 72 65 64 62 2d 72 65 66 2d 64 65 66 61 75 6c 74 2d 62 69 62 6c 69 6f 67 72 61 (calibredb-ref-default-bibliogra
11e0 70 68 79 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 75 6e 6c 65 73 73 20 28 65 71 20 6d 61 6a 6f phy)............(unless.(eq.majo
1200 72 2d 6d 6f 64 65 20 27 63 61 6c 69 62 72 65 64 62 2d 73 65 61 72 63 68 2d 6d 6f 64 65 29 0a 20 r-mode.'calibredb-search-mode)..
1220 20 20 20 20 20 20 20 20 20 20 20 20 28 63 61 6c 69 62 72 65 64 62 2d 73 65 61 72 63 68 2d 6d 6f ............(calibredb-search-mo
1240 64 65 29 29 29 29 29 29 0a 0a 28 70 72 6f 76 69 64 65 20 27 63 61 6c 69 62 72 65 64 62 29 0a 3b de))))))..(provide.'calibredb).;
1260 3b 3b 20 63 61 6c 69 62 72 65 64 62 2e 65 6c 20 65 6e 64 73 20 68 65 72 65 0a 00 00 00 00 00 00 ;;.calibredb.el.ends.here.......
1280 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
12a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
12c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
12e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
1300 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
1320 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
1340 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
1360 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
1380 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
13a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
13c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
13e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
1400 63 61 6c 69 62 72 65 64 62 2d 32 30 32 34 30 33 33 31 2e 34 30 39 2f 63 61 6c 69 62 72 65 64 62 calibredb-20240331.409/calibredb
1420 2d 6f 70 64 73 2e 65 6c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -opds.el........................
1440 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
1460 00 00 00 00 30 30 30 30 36 34 34 00 30 30 30 30 30 30 30 00 30 30 30 30 30 30 30 00 30 30 30 30 ....0000644.0000000.0000000.0000
1480 30 30 32 33 31 33 37 00 30 30 30 30 30 30 30 30 30 30 30 00 30 31 36 30 33 35 00 20 30 00 00 00 0023137.00000000000.016035..0...
14a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
14c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
14e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
1500 00 75 73 74 61 72 20 20 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 .ustar...root...................
1520 00 00 00 00 00 00 00 00 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 .........root...................
1540 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
1560 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
1580 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
15a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
15c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
15e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
1600 3b 3b 3b 20 63 61 6c 69 62 72 65 64 62 2d 6f 70 64 73 2e 65 6c 20 2d 2d 2d 20 6f 70 64 73 20 66 ;;;.calibredb-opds.el.---.opds.f
1620 6f 72 20 63 61 6c 69 62 72 65 64 62 20 2d 2a 2d 20 6c 65 78 69 63 61 6c 2d 62 69 6e 64 69 6e 67 or.calibredb.-*-.lexical-binding
1640 3a 20 74 3b 20 2d 2a 2d 0a 0a 3b 3b 20 43 6f 70 79 72 69 67 68 74 20 28 43 29 20 32 30 32 30 20 :.t;.-*-..;;.Copyright.(C).2020.
1660 44 61 6d 6f 6e 20 43 68 61 6e 0a 0a 3b 3b 20 41 75 74 68 6f 72 3a 20 44 61 6d 6f 6e 20 43 68 61 Damon.Chan..;;.Author:.Damon.Cha
1680 6e 20 3c 65 6c 65 63 6d 69 6e 67 40 67 6d 61 69 6c 2e 63 6f 6d 3e 0a 3b 3b 20 55 52 4c 3a 20 68 n.<elecming@gmail.com>.;;.URL:.h
16a0 74 74 70 73 3a 2f 2f 67 69 74 68 75 62 2e 63 6f 6d 2f 63 68 65 6e 79 61 6e 6d 69 6e 67 2f 63 61 ttps://github.com/chenyanming/ca
16c0 6c 69 62 72 65 64 62 2e 65 6c 0a 3b 3b 20 4b 65 79 77 6f 72 64 73 3a 20 74 6f 6f 6c 73 0a 3b 3b libredb.el.;;.Keywords:.tools.;;
16e0 20 56 65 72 73 69 6f 6e 3a 20 32 2e 31 32 2e 30 0a 0a 3b 3b 20 54 68 69 73 20 66 69 6c 65 20 69 .Version:.2.12.0..;;.This.file.i
1700 73 20 4e 4f 54 20 70 61 72 74 20 6f 66 20 47 4e 55 20 45 6d 61 63 73 2e 0a 0a 3b 3b 20 54 68 69 s.NOT.part.of.GNU.Emacs...;;.Thi
1720 73 20 70 72 6f 67 72 61 6d 20 69 73 20 66 72 65 65 20 73 6f 66 74 77 61 72 65 3b 20 79 6f 75 20 s.program.is.free.software;.you.
1740 63 61 6e 20 72 65 64 69 73 74 72 69 62 75 74 65 20 69 74 20 61 6e 64 2f 6f 72 20 6d 6f 64 69 66 can.redistribute.it.and/or.modif
1760 79 0a 3b 3b 20 69 74 20 75 6e 64 65 72 20 74 68 65 20 74 65 72 6d 73 20 6f 66 20 74 68 65 20 47 y.;;.it.under.the.terms.of.the.G
1780 4e 55 20 47 65 6e 65 72 61 6c 20 50 75 62 6c 69 63 20 4c 69 63 65 6e 73 65 20 61 73 20 70 75 62 NU.General.Public.License.as.pub
17a0 6c 69 73 68 65 64 20 62 79 0a 3b 3b 20 74 68 65 20 46 72 65 65 20 53 6f 66 74 77 61 72 65 20 46 lished.by.;;.the.Free.Software.F
17c0 6f 75 6e 64 61 74 69 6f 6e 2c 20 65 69 74 68 65 72 20 76 65 72 73 69 6f 6e 20 33 20 6f 66 20 74 oundation,.either.version.3.of.t
17e0 68 65 20 4c 69 63 65 6e 73 65 2c 20 6f 72 0a 3b 3b 20 28 61 74 20 79 6f 75 72 20 6f 70 74 69 6f he.License,.or.;;.(at.your.optio
1800 6e 29 20 61 6e 79 20 6c 61 74 65 72 20 76 65 72 73 69 6f 6e 2e 0a 0a 3b 3b 20 54 68 69 73 20 70 n).any.later.version...;;.This.p
1820 72 6f 67 72 61 6d 20 69 73 20 64 69 73 74 72 69 62 75 74 65 64 20 69 6e 20 74 68 65 20 68 6f 70 rogram.is.distributed.in.the.hop
1840 65 20 74 68 61 74 20 69 74 20 77 69 6c 6c 20 62 65 20 75 73 65 66 75 6c 2c 0a 3b 3b 20 62 75 74 e.that.it.will.be.useful,.;;.but
1860 20 57 49 54 48 4f 55 54 20 41 4e 59 20 57 41 52 52 41 4e 54 59 3b 20 77 69 74 68 6f 75 74 20 65 .WITHOUT.ANY.WARRANTY;.without.e
1880 76 65 6e 20 74 68 65 20 69 6d 70 6c 69 65 64 20 77 61 72 72 61 6e 74 79 20 6f 66 0a 3b 3b 20 4d ven.the.implied.warranty.of.;;.M
18a0 45 52 43 48 41 4e 54 41 42 49 4c 49 54 59 20 6f 72 20 46 49 54 4e 45 53 53 20 46 4f 52 20 41 20 ERCHANTABILITY.or.FITNESS.FOR.A.
18c0 50 41 52 54 49 43 55 4c 41 52 20 50 55 52 50 4f 53 45 2e 20 20 53 65 65 20 74 68 65 0a 3b 3b 20 PARTICULAR.PURPOSE...See.the.;;.
18e0 47 4e 55 20 47 65 6e 65 72 61 6c 20 50 75 62 6c 69 63 20 4c 69 63 65 6e 73 65 20 66 6f 72 20 6d GNU.General.Public.License.for.m
1900 6f 72 65 20 64 65 74 61 69 6c 73 2e 0a 0a 3b 3b 20 59 6f 75 20 73 68 6f 75 6c 64 20 68 61 76 65 ore.details...;;.You.should.have
1920 20 72 65 63 65 69 76 65 64 20 61 20 63 6f 70 79 20 6f 66 20 74 68 65 20 47 4e 55 20 47 65 6e 65 .received.a.copy.of.the.GNU.Gene
1940 72 61 6c 20 50 75 62 6c 69 63 20 4c 69 63 65 6e 73 65 0a 3b 3b 20 61 6c 6f 6e 67 20 77 69 74 68 ral.Public.License.;;.along.with
1960 20 74 68 69 73 20 70 72 6f 67 72 61 6d 2e 20 20 49 66 20 6e 6f 74 2c 20 73 65 65 20 3c 68 74 74 .this.program...If.not,.see.<htt
1980 70 73 3a 2f 2f 77 77 77 2e 67 6e 75 2e 6f 72 67 2f 6c 69 63 65 6e 73 65 73 2f 3e 2e 0a 0a 3b 3b ps://www.gnu.org/licenses/>...;;
19a0 3b 20 43 6f 6d 6d 65 6e 74 61 72 79 3a 0a 0a 3b 3b 3b 20 43 6f 64 65 3a 0a 0a 28 72 65 71 75 69 ;.Commentary:..;;;.Code:..(requi
19c0 72 65 20 27 63 61 6c 69 62 72 65 64 62 2d 63 6f 72 65 29 0a 28 72 65 71 75 69 72 65 20 27 65 73 re.'calibredb-core).(require.'es
19e0 78 6d 6c 2d 71 75 65 72 79 29 0a 28 72 65 71 75 69 72 65 20 27 65 73 78 6d 6c 29 0a 28 72 65 71 xml-query).(require.'esxml).(req
1a00 75 69 72 65 20 27 64 6f 6d 29 0a 0a 28 64 65 66 76 61 72 20 63 61 6c 69 62 72 65 64 62 2d 6f 70 uire.'dom)..(defvar.calibredb-op
1a20 64 73 2d 72 6f 6f 74 2d 75 72 6c 20 6e 69 6c 29 0a 28 64 65 66 76 61 72 20 63 61 6c 69 62 72 65 ds-root-url.nil).(defvar.calibre
1a40 64 62 2d 6f 70 64 73 2d 64 6f 77 6e 6c 6f 61 64 2d 64 69 72 20 22 7e 2f 44 6f 77 6e 6c 6f 61 64 db-opds-download-dir."~/Download
1a60 73 22 29 0a 0a 28 64 65 63 6c 61 72 65 2d 66 75 6e 63 74 69 6f 6e 20 63 61 6c 69 62 72 65 64 62 s")..(declare-function.calibredb
1a80 20 22 63 61 6c 69 62 72 65 64 62 2e 65 6c 22 29 0a 0a 28 64 65 66 75 6e 20 63 61 6c 69 62 72 65 ."calibredb.el")..(defun.calibre
1aa0 64 62 2d 6f 70 64 73 2d 6d 61 69 6c 63 61 70 2d 6d 69 6d 65 2d 74 6f 2d 65 78 74 6e 20 28 6d 69 db-opds-mailcap-mime-to-extn.(mi
1ac0 6d 65 29 0a 20 20 22 52 65 74 75 72 6e 20 74 68 65 20 66 69 6c 65 20 65 78 74 65 6e 73 69 6f 6e me)..."Return.the.file.extension
1ae0 73 20 45 58 54 4e 20 62 61 73 65 64 20 6f 6e 20 74 68 65 20 4d 49 4d 45 20 63 6f 6e 74 65 6e 74 s.EXTN.based.on.the.MIME.content
1b00 20 74 79 70 65 2e 22 0a 20 20 28 6d 61 69 6c 63 61 70 2d 70 61 72 73 65 2d 6d 69 6d 65 74 79 70 .type."...(mailcap-parse-mimetyp
1b20 65 73 29 0a 20 20 28 69 66 20 28 73 74 72 69 6e 67 70 20 6d 69 6d 65 29 0a 20 20 20 20 20 20 28 es)...(if.(stringp.mime).......(
1b40 63 61 72 20 28 72 61 73 73 6f 63 20 28 64 6f 77 6e 63 61 73 65 20 6d 69 6d 65 29 20 6d 61 69 6c car.(rassoc.(downcase.mime).mail
1b60 63 61 70 2d 6d 69 6d 65 2d 65 78 74 65 6e 73 69 6f 6e 73 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 cap-mime-extensions))))..(defun.
1b80 63 61 6c 69 62 72 65 64 62 2d 6f 70 64 73 2d 68 6f 73 74 20 28 29 0a 20 20 22 4d 6f 64 69 66 79 calibredb-opds-host.()..."Modify
1ba0 20 60 75 72 6c 2d 72 65 63 72 65 61 74 65 2d 75 72 6c 27 20 74 6f 20 66 69 74 20 74 68 65 20 6e .`url-recreate-url'.to.fit.the.n
1bc0 65 65 64 73 2e 22 0a 20 20 28 6c 65 74 2a 20 28 28 75 72 6c 6f 62 6a 20 28 75 72 6c 2d 67 65 6e eeds."...(let*.((urlobj.(url-gen
1be0 65 72 69 63 2d 70 61 72 73 65 2d 75 72 6c 20 63 61 6c 69 62 72 65 64 62 2d 6f 70 64 73 2d 72 6f eric-parse-url.calibredb-opds-ro
1c00 6f 74 2d 75 72 6c 29 29 0a 20 20 20 20 20 20 20 20 20 28 74 79 70 65 20 28 75 72 6c 2d 74 79 70 ot-url))..........(type.(url-typ
1c20 65 20 75 72 6c 6f 62 6a 29 29 0a 20 20 20 20 20 20 20 20 20 28 75 73 65 72 20 28 75 72 6c 2d 75 e.urlobj))..........(user.(url-u
1c40 73 65 72 20 75 72 6c 6f 62 6a 29 29 0a 20 20 20 20 20 20 20 20 20 28 70 61 73 73 20 28 75 72 6c ser.urlobj))..........(pass.(url
1c60 2d 70 61 73 73 77 6f 72 64 20 75 72 6c 6f 62 6a 29 29 0a 20 20 20 20 20 20 20 20 20 28 68 6f 73 -password.urlobj))..........(hos
1c80 74 20 28 75 72 6c 2d 68 6f 73 74 20 75 72 6c 6f 62 6a 29 29 0a 20 20 20 20 20 20 20 20 20 3b 3b t.(url-host.urlobj))..........;;
1ca0 20 52 46 43 20 33 39 38 36 3a 20 22 6f 6d 69 74 20 74 68 65 20 70 6f 72 74 20 63 6f 6d 70 6f 6e .RFC.3986:."omit.the.port.compon
1cc0 65 6e 74 20 61 6e 64 20 69 74 73 20 3a 20 64 65 6c 69 6d 69 74 65 72 20 69 66 0a 20 20 20 20 20 ent.and.its.:.delimiter.if......
1ce0 20 20 20 20 3b 3b 20 70 6f 72 74 20 69 73 20 65 6d 70 74 79 20 6f 72 20 69 66 20 69 74 73 20 76 ....;;.port.is.empty.or.if.its.v
1d00 61 6c 75 65 20 77 6f 75 6c 64 20 62 65 20 74 68 65 20 73 61 6d 65 20 61 73 20 74 68 61 74 20 6f alue.would.be.the.same.as.that.o
1d20 66 0a 20 20 20 20 20 20 20 20 20 3b 3b 20 74 68 65 20 73 63 68 65 6d 65 27 73 20 64 65 66 61 75 f..........;;.the.scheme's.defau
1d40 6c 74 2e 22 0a 20 20 20 20 20 20 20 20 20 28 70 6f 72 74 20 28 75 72 6c 2d 70 6f 72 74 2d 69 66 lt."..........(port.(url-port-if
1d60 2d 6e 6f 6e 2d 64 65 66 61 75 6c 74 20 75 72 6c 6f 62 6a 29 29 0a 20 20 20 20 20 20 20 20 20 3b -non-default.urlobj))..........;
1d80 3b 20 28 66 69 6c 65 20 28 75 72 6c 2d 66 69 6c 65 6e 61 6d 65 20 75 72 6c 6f 62 6a 29 29 0a 20 ;.(file.(url-filename.urlobj))..
1da0 20 20 20 20 20 20 20 20 3b 3b 20 28 66 72 61 67 20 28 75 72 6c 2d 74 61 72 67 65 74 20 75 72 6c ........;;.(frag.(url-target.url
1dc0 6f 62 6a 29 29 0a 20 20 20 20 20 20 20 20 20 29 0a 20 20 20 20 28 63 6f 6e 63 61 74 20 28 69 66 obj))..........).....(concat.(if
1de0 20 74 79 70 65 20 28 63 6f 6e 63 61 74 20 74 79 70 65 20 22 3a 22 29 29 0a 20 20 20 20 20 20 20 .type.(concat.type.":"))........
1e00 20 20 20 20 20 28 69 66 20 28 75 72 6c 2d 66 75 6c 6c 6e 65 73 73 20 75 72 6c 6f 62 6a 29 20 22 .....(if.(url-fullness.urlobj)."
1e20 2f 2f 22 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 69 66 20 28 6f 72 20 75 73 65 72 20 70 61 //").............(if.(or.user.pa
1e40 73 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 6e 63 61 74 20 75 73 65 72 ss).................(concat.user
1e60 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 66 20 70 61 73 .........................(if.pas
1e80 73 20 28 63 6f 6e 63 61 74 20 22 3a 22 20 70 61 73 73 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 s.(concat.":".pass))............
1ea0 20 20 20 20 20 20 20 20 20 20 20 20 20 22 40 22 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 68 ............."@")).............h
1ec0 6f 73 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 69 66 20 70 6f 72 74 20 28 66 6f 72 6d 61 74 ost.............(if.port.(format
1ee0 20 22 3a 25 64 22 20 28 75 72 6c 2d 70 6f 72 74 20 75 72 6c 6f 62 6a 29 29 29 0a 20 20 20 20 20 .":%d".(url-port.urlobj)))......
1f00 20 20 20 20 20 20 20 3b 3b 20 28 6f 72 20 66 69 6c 65 20 22 2f 22 29 0a 20 20 20 20 20 20 20 20 .......;;.(or.file."/").........
1f20 20 20 20 20 3b 3b 20 28 69 66 20 66 72 61 67 20 28 63 6f 6e 63 61 74 20 22 23 22 20 66 72 61 67 ....;;.(if.frag.(concat."#".frag
1f40 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 29 29 29 0a 0a 28 64 65 66 75 6e 20 63 61 6c 69 62 )).............)))..(defun.calib
1f60 72 65 64 62 2d 6f 70 64 73 2d 72 65 71 75 65 73 74 2d 70 61 67 65 20 28 75 72 6c 20 26 6f 70 74 redb-opds-request-page.(url.&opt
1f80 69 6f 6e 61 6c 20 61 63 63 6f 75 6e 74 20 70 61 73 73 77 6f 72 64 29 0a 20 20 22 52 65 71 75 65 ional.account.password)..."Reque
1fa0 73 74 20 55 52 4c 2e 0a 4f 70 74 69 6f 6e 61 6c 20 61 72 67 75 6d 65 6e 74 20 41 43 43 4f 55 4e st.URL..Optional.argument.ACCOUN
1fc0 54 2e 0a 4f 70 74 69 6f 6e 61 6c 20 61 72 67 75 6d 65 6e 74 20 50 41 53 53 57 4f 52 44 2e 22 0a T..Optional.argument.PASSWORD.".
1fe0 20 20 28 72 65 71 75 69 72 65 20 27 72 65 71 75 65 73 74 29 0a 20 20 28 6d 65 73 73 61 67 65 20 ..(require.'request)...(message.
2000 22 4c 6f 61 64 69 6e 67 20 25 73 2e 2e 2e 22 20 75 72 6c 29 0a 20 20 28 6c 65 74 20 28 6f 75 74 "Loading.%s...".url)...(let.(out
2020 70 75 74 29 0a 20 20 20 20 28 73 65 74 71 20 63 61 6c 69 62 72 65 64 62 2d 6f 70 64 73 2d 72 6f put).....(setq.calibredb-opds-ro
2040 6f 74 2d 75 72 6c 20 75 72 6c 29 0a 20 20 20 20 28 69 66 20 28 66 62 6f 75 6e 64 70 20 27 72 65 ot-url.url).....(if.(fboundp.'re
2060 71 75 65 73 74 29 0a 20 20 20 20 20 20 20 20 28 72 65 71 75 65 73 74 20 75 72 6c 0a 20 20 20 20 quest).........(request.url.....
2080 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 70 61 72 73 65 72 20 27 62 75 66 66 65 72 2d 73 74 72 .............:parser.'buffer-str
20a0 69 6e 67 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 68 65 61 64 65 72 73 20 60 28 ing..................:headers.`(
20c0 28 22 55 73 65 72 2d 41 67 65 6e 74 22 20 2e 20 22 4d 6f 7a 69 6c 6c 61 2f 35 2e 30 20 28 57 69 ("User-Agent"..."Mozilla/5.0.(Wi
20e0 6e 64 6f 77 73 20 4e 54 20 36 2e 31 3b 20 57 4f 57 36 34 29 20 41 70 70 6c 65 57 65 62 4b 69 74 ndows.NT.6.1;.WOW64).AppleWebKit
2100 2f 35 33 37 2e 33 36 20 28 4b 48 54 4d 4c 2c 20 6c 69 6b 65 20 47 65 63 6b 6f 29 20 43 68 72 6f /537.36.(KHTML,.like.Gecko).Chro
2120 6d 65 2f 34 31 2e 30 2e 32 32 37 32 2e 31 30 31 20 53 61 66 61 72 69 2f 35 33 37 2e 33 36 22 29 me/41.0.2272.101.Safari/537.36")
2140 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 22 43 .............................("C
2160 6f 6e 74 65 6e 74 2d 54 79 70 65 22 20 2e 20 22 61 70 70 6c 69 63 61 74 69 6f 6e 2f 78 6d 6c 22 ontent-Type"..."application/xml"
2180 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2c 28 ).............................,(
21a0 69 66 20 28 61 6e 64 20 61 63 63 6f 75 6e 74 20 70 61 73 73 77 6f 72 64 29 0a 20 20 20 20 20 20 if.(and.account.password).......
21c0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 60 28 22 41 75 ...........................`("Au
21e0 74 68 6f 72 69 7a 61 74 69 6f 6e 22 20 2e 20 2c 28 63 6f 6e 63 61 74 20 22 42 61 73 69 63 20 22 thorization"...,(concat."Basic."
2200 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ................................
2220 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 ...............................(
2240 62 61 73 65 36 34 2d 65 6e 63 6f 64 65 2d 73 74 72 69 6e 67 0a 20 20 20 20 20 20 20 20 20 20 20 base64-encode-string............
2260 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ................................
2280 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 6e 63 61 74 20 61 63 63 6f ....................(concat.acco
22a0 75 6e 74 20 22 3a 22 20 70 61 73 73 77 6f 72 64 29 29 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 unt.":".password))))))..........
22c0 20 20 20 20 20 20 20 20 3a 73 79 6e 63 20 6e 69 6c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ........:sync.nil...............
22e0 20 20 20 3a 73 75 63 63 65 73 73 20 28 63 6c 2d 66 75 6e 63 74 69 6f 6e 0a 20 20 20 20 20 20 20 ...:success.(cl-function........
2300 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 61 6d 62 64 61 20 28 26 6b 65 ....................(lambda.(&ke
2320 79 20 64 61 74 61 20 26 61 6c 6c 6f 77 2d 6f 74 68 65 72 2d 6b 65 79 73 29 0a 20 20 20 20 20 20 y.data.&allow-other-keys).......
2340 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 2a 20 28 28 64 .......................(let*.((d
2360 6f 6d 20 28 77 69 74 68 2d 74 65 6d 70 2d 62 75 66 66 65 72 0a 20 20 20 20 20 20 20 20 20 20 20 om.(with-temp-buffer............
2380 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ................................
23a0 28 69 6e 73 65 72 74 20 64 61 74 61 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 (insert.data)...................
23c0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 69 62 78 6d 6c .........................(libxml
23e0 2d 70 61 72 73 65 2d 78 6d 6c 2d 72 65 67 69 6f 6e 20 28 70 6f 69 6e 74 2d 6d 69 6e 29 20 28 70 -parse-xml-region.(point-min).(p
2400 6f 69 6e 74 2d 6d 61 78 29 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 oint-max)))))...................
2420 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 63 61 6c 69 62 72 65 64 62 2d 73 65 61 .............(setq.calibredb-sea
2440 72 63 68 2d 65 6e 74 72 69 65 73 20 28 63 61 6c 69 62 72 65 64 62 2d 6f 70 64 73 2d 64 6f 6d 20 rch-entries.(calibredb-opds-dom.
2460 64 6f 6d 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 dom))...........................
2480 20 20 20 20 20 28 73 65 74 71 20 63 61 6c 69 62 72 65 64 62 2d 66 75 6c 6c 2d 65 6e 74 72 69 65 .....(setq.calibredb-full-entrie
24a0 73 20 63 61 6c 69 62 72 65 64 62 2d 73 65 61 72 63 68 2d 65 6e 74 72 69 65 73 29 0a 20 20 20 20 s.calibredb-search-entries).....
24c0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 61 6c 69 ...........................(cali
24e0 62 72 65 64 62 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 bredb)..........................
2500 20 20 20 20 20 20 28 73 65 74 71 20 63 61 6c 69 62 72 65 64 62 2d 74 61 67 2d 66 69 6c 74 65 72 ......(setq.calibredb-tag-filter
2520 2d 70 20 6e 69 6c 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 -p.nil).........................
2540 20 20 20 20 20 20 20 28 73 65 74 71 20 63 61 6c 69 62 72 65 64 62 2d 66 61 76 6f 72 69 74 65 2d .......(setq.calibredb-favorite-
2560 66 69 6c 74 65 72 2d 70 20 6e 69 6c 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 filter-p.nil)...................
2580 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 63 61 6c 69 62 72 65 64 62 2d 61 75 74 .............(setq.calibredb-aut
25a0 68 6f 72 2d 66 69 6c 74 65 72 2d 70 20 6e 69 6c 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 hor-filter-p.nil)...............
25c0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 63 61 6c 69 62 72 65 64 62 .................(setq.calibredb
25e0 2d 64 61 74 65 2d 66 69 6c 74 65 72 2d 70 20 6e 69 6c 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 -date-filter-p.nil).............
2600 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 63 61 6c 69 62 72 65 ...................(setq.calibre
2620 64 62 2d 66 6f 72 6d 61 74 2d 66 69 6c 74 65 72 2d 70 20 6e 69 6c 29 0a 20 20 20 20 20 20 20 20 db-format-filter-p.nil).........
2640 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 61 6c 69 62 72 65 64 .......................(calibred
2660 62 2d 73 65 61 72 63 68 2d 6b 65 79 77 6f 72 64 2d 66 69 6c 74 65 72 20 22 22 29 0a 20 20 20 20 b-search-keyword-filter."").....
2680 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6d 65 73 73 ...........................(mess
26a0 61 67 65 20 22 22 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 age."").........................
26c0 20 20 20 20 20 20 20 3b 3b 20 28 73 65 74 71 20 6f 75 74 70 75 74 20 28 6f 70 64 73 2d 70 61 67 .......;;.(setq.output.(opds-pag
26e0 65 20 64 6f 6d 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 e.dom)).........................
2700 20 20 20 20 20 20 20 29 29 29 29 29 0a 20 20 20 20 6f 75 74 70 75 74 29 29 0a 0a 28 64 65 66 75 .......))))).....output))..(defu
2720 6e 20 63 61 6c 69 62 72 65 64 62 2d 6f 70 64 73 2d 64 6f 77 6e 6c 6f 61 64 20 28 74 69 74 6c 65 n.calibredb-opds-download.(title
2740 20 75 72 6c 20 66 6f 72 6d 61 74 20 26 6f 70 74 69 6f 6e 61 6c 20 61 63 63 6f 75 6e 74 20 70 61 .url.format.&optional.account.pa
2760 73 73 77 6f 72 64 29 0a 20 20 22 44 6f 77 6e 6c 6f 61 64 20 66 69 6c 65 20 6f 66 20 54 49 54 4c ssword)..."Download.file.of.TITL
2780 45 20 55 52 4c 20 46 4f 52 4d 41 54 2e 0a 4f 70 74 69 6f 6e 61 6c 20 61 72 67 75 6d 65 6e 74 20 E.URL.FORMAT..Optional.argument.
27a0 41 43 43 4f 55 4e 54 2e 0a 4f 70 74 69 6f 6e 61 6c 20 61 72 67 75 6d 65 6e 74 20 50 41 53 53 57 ACCOUNT..Optional.argument.PASSW
27c0 4f 52 44 2e 22 0a 20 20 28 6c 65 74 2a 20 28 28 66 69 6c 65 20 28 65 78 70 61 6e 64 2d 66 69 6c ORD."...(let*.((file.(expand-fil
27e0 65 2d 6e 61 6d 65 20 28 66 6f 72 6d 61 74 20 22 25 73 25 73 22 20 74 69 74 6c 65 20 66 6f 72 6d e-name.(format."%s%s".title.form
2800 61 74 29 20 63 61 6c 69 62 72 65 64 62 2d 6f 70 64 73 2d 64 6f 77 6e 6c 6f 61 64 2d 64 69 72 29 at).calibredb-opds-download-dir)
2820 29 0a 20 20 20 20 20 20 20 20 20 28 63 6d 64 20 28 69 66 20 28 61 6e 64 20 61 63 63 6f 75 6e 74 )..........(cmd.(if.(and.account
2840 20 70 61 73 73 77 6f 72 64 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 6f .password)...................(fo
2860 72 6d 61 74 20 22 63 75 72 6c 20 2d 75 20 25 73 3a 5c 22 25 73 5c 22 20 2d 4c 20 25 73 20 2d 6f rmat."curl.-u.%s:\"%s\".-L.%s.-o
2880 20 25 73 22 20 61 63 63 6f 75 6e 74 20 70 61 73 73 77 6f 72 64 20 28 73 68 65 6c 6c 2d 71 75 6f .%s".account.password.(shell-quo
28a0 74 65 2d 61 72 67 75 6d 65 6e 74 20 75 72 6c 29 20 28 73 68 65 6c 6c 2d 71 75 6f 74 65 2d 61 72 te-argument.url).(shell-quote-ar
28c0 67 75 6d 65 6e 74 20 66 69 6c 65 20 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 gument.file.)).................(
28e0 66 6f 72 6d 61 74 20 22 63 75 72 6c 20 2d 4c 20 25 73 20 2d 6f 20 25 73 22 20 28 73 68 65 6c 6c format."curl.-L.%s.-o.%s".(shell
2900 2d 71 75 6f 74 65 2d 61 72 67 75 6d 65 6e 74 20 75 72 6c 29 20 28 73 68 65 6c 6c 2d 71 75 6f 74 -quote-argument.url).(shell-quot
2920 65 2d 61 72 67 75 6d 65 6e 74 20 66 69 6c 65 29 29 29 29 29 0a 20 20 20 20 28 6d 65 73 73 61 67 e-argument.file))))).....(messag
2940 65 20 63 6d 64 29 0a 20 20 20 20 28 69 66 20 28 66 69 6c 65 2d 65 78 69 73 74 73 2d 70 20 66 69 e.cmd).....(if.(file-exists-p.fi
2960 6c 65 29 0a 20 20 20 20 20 20 20 20 28 66 69 6e 64 2d 66 69 6c 65 20 66 69 6c 65 29 0a 20 20 20 le).........(find-file.file)....
2980 20 20 20 28 73 65 74 2d 70 72 6f 63 65 73 73 2d 73 65 6e 74 69 6e 65 6c 0a 20 20 20 20 20 20 20 ...(set-process-sentinel........
29a0 28 73 74 61 72 74 2d 70 72 6f 63 65 73 73 2d 73 68 65 6c 6c 2d 63 6f 6d 6d 61 6e 64 20 22 63 61 (start-process-shell-command."ca
29c0 6c 69 62 72 65 64 62 2d 6f 70 64 73 22 20 22 2a 63 61 6c 69 62 72 65 64 62 2d 6f 70 64 73 2a 22 libredb-opds"."*calibredb-opds*"
29e0 20 63 6d 64 29 0a 20 20 20 20 20 20 20 28 6c 61 6d 62 64 61 20 28 70 20 5f 65 29 0a 20 20 20 20 .cmd)........(lambda.(p._e).....
2a00 20 20 20 20 20 28 77 68 65 6e 20 28 3d 20 30 20 28 70 72 6f 63 65 73 73 2d 65 78 69 74 2d 73 74 .....(when.(=.0.(process-exit-st
2a20 61 74 75 73 20 70 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 69 66 20 28 66 69 6c 65 2d 65 78 atus.p))............(if.(file-ex
2a40 69 73 74 73 2d 70 20 66 69 6c 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 69 6e ists-p.file)................(fin
2a60 64 2d 66 69 6c 65 20 66 69 6c 65 29 29 29 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 63 61 6c 69 d-file.file))))))))..(defun.cali
2a80 62 72 65 64 62 2d 6f 70 64 73 2d 64 6f 6d 20 28 64 6f 6d 29 0a 20 20 22 50 61 72 73 65 20 44 4f bredb-opds-dom.(dom)..."Parse.DO
2aa0 4d 2e 22 0a 20 20 28 6c 65 74 20 28 28 65 6e 74 72 69 65 73 20 28 2d 63 6f 6e 63 61 74 0a 20 20 M."...(let.((entries.(-concat...
2ac0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 2d 6d 61 70 20 28 6c 61 6d 62 64 61 20 28 6c ................(-map.(lambda.(l
2ae0 69 6e 6b 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 60 ink)...........................`
2b00 28 65 6e 74 72 79 20 6e 69 6c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 (entry.nil......................
2b20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 74 69 74 6c 65 20 6e 69 6c 20 2c 28 65 73 78 6d 6c 2d .............(title.nil.,(esxml-
2b40 6e 6f 64 65 2d 61 74 74 72 69 62 75 74 65 20 27 72 65 6c 20 6c 69 6e 6b 29 29 0a 20 20 20 20 20 node-attribute.'rel.link))......
2b60 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2c 6c 69 .............................,li
2b80 6e 6b 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 65 73 nk)).........................(es
2ba0 78 6d 6c 2d 71 75 65 72 79 2d 61 6c 6c 20 22 66 65 65 64 3e 6c 69 6e 6b 22 20 64 6f 6d 29 29 0a xml-query-all."feed>link".dom)).
2bc0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 65 73 78 6d 6c 2d 71 75 65 72 79 2d 61 ..................(esxml-query-a
2be0 6c 6c 20 22 66 65 65 64 3e 65 6e 74 72 79 22 20 64 6f 6d 29 29 29 29 0a 20 20 20 20 28 6e 72 65 ll."feed>entry".dom)))).....(nre
2c00 76 65 72 73 65 20 28 63 61 6c 69 62 72 65 64 62 2d 67 65 74 62 6f 6f 6b 6c 69 73 74 0a 20 20 20 verse.(calibredb-getbooklist....
2c20 20 20 28 6c 65 74 20 28 28 6e 6f 20 30 29 29 0a 20 20 20 20 20 20 20 28 2d 6d 61 70 63 61 74 0a ..(let.((no.0))........(-mapcat.
2c40 20 20 20 20 20 20 20 20 28 6c 61 6d 62 64 61 20 28 65 6e 74 72 79 29 0a 20 20 20 20 20 20 20 20 ........(lambda.(entry).........
2c60 20 20 28 73 65 74 71 20 6e 6f 20 28 31 2b 20 6e 6f 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 6c ..(setq.no.(1+.no))...........(l
2c80 69 73 74 20 60 28 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 28 3a 69 64 ist.`(...................;;.(:id
2ca0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2c 28 64 6f 6d 2d 74 65 78 74 20 .....................,(dom-text.
2cc0 28 65 73 78 6d 6c 2d 71 75 65 72 79 20 22 69 64 22 20 65 6e 74 72 79 29 29 29 0a 20 20 20 20 20 (esxml-query."id".entry)))......
2ce0 20 20 20 20 20 20 20 20 20 20 20 20 20 28 3a 69 64 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .............(:id...............
2d00 20 20 20 20 20 20 2c 28 6e 75 6d 62 65 72 2d 74 6f 2d 73 74 72 69 6e 67 20 6e 6f 29 29 0a 20 20 ......,(number-to-string.no))...
2d20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 3a 61 75 74 68 6f 72 2d 73 6f 72 74 20 20 20 ................(:author-sort...
2d40 20 20 20 20 20 20 20 20 20 2c 28 64 6f 6d 2d 74 65 78 74 20 28 65 73 78 6d 6c 2d 71 75 65 72 79 .........,(dom-text.(esxml-query
2d60 20 22 61 75 74 68 6f 72 3e 6e 61 6d 65 22 20 65 6e 74 72 79 29 29 29 20 3b 20 54 4f 44 4f 3a 20 ."author>name".entry))).;.TODO:.
2d80 73 75 70 70 6f 72 74 20 6d 75 74 69 74 70 6c 65 20 61 75 74 68 6f 72 73 0a 20 20 20 20 20 20 20 support.mutitple.authors........
2da0 20 20 20 20 20 20 20 20 20 20 20 28 3a 62 6f 6f 6b 2d 64 69 72 20 20 20 20 20 20 20 20 20 20 20 ...........(:book-dir...........
2dc0 20 20 20 20 22 22 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 3a 62 6f 6f 6b ...."")...................(:book
2de0 2d 63 6f 76 65 72 20 20 20 20 20 20 20 20 20 20 20 20 20 2c 28 6c 65 74 20 28 28 75 72 6c 20 28 -cover.............,(let.((url.(
2e00 6f 72 20 28 64 6f 6d 2d 61 74 74 72 20 28 65 73 78 6d 6c 2d 71 75 65 72 79 20 22 5b 74 79 70 65 or.(dom-attr.(esxml-query."[type
2e20 5e 3d 69 6d 61 67 65 5d 22 20 65 6e 74 72 79 29 20 27 68 72 65 66 29 20 22 22 29 29 29 0a 20 20 ^=image]".entry).'href)."")))...
2e40 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ................................
2e60 20 20 20 20 20 20 20 20 20 20 20 20 28 69 66 20 28 61 6e 64 20 28 73 74 72 69 6e 67 70 20 75 72 ............(if.(and.(stringp.ur
2e80 6c 29 20 28 73 2d 63 6f 6e 74 61 69 6e 73 3f 20 22 68 74 74 70 22 20 75 72 6c 29 29 0a 20 20 20 l).(s-contains?."http".url))....
2ea0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ................................
2ec0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 75 72 6c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 ...............url..............
2ee0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ................................
2f00 20 20 20 28 63 6f 6e 64 20 28 28 73 2d 65 71 75 61 6c 73 2d 70 20 22 22 20 75 72 6c 29 20 6e 69 ...(cond.((s-equals-p."".url).ni
2f20 6c 29 20 3b 20 6e 6f 20 69 6d 61 67 65 20 75 72 6c 2c 20 72 65 74 75 72 6e 20 6e 69 6c 0a 20 20 l).;.no.image.url,.return.nil...
2f40 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ................................
2f60 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 28 73 2d 63 6f 6e 74 61 69 6e 73 ....................((s-contains
2f80 3f 20 22 62 61 73 65 36 34 22 20 75 72 6c 29 20 75 72 6c 29 20 3b 20 62 61 73 65 36 34 20 69 6d ?."base64".url).url).;.base64.im
2fa0 61 67 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 age.............................
2fc0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 74 20 28 66 6f ..........................(t.(fo
2fe0 72 6d 61 74 20 22 25 73 25 73 22 20 28 63 61 6c 69 62 72 65 64 62 2d 6f 70 64 73 2d 68 6f 73 74 rmat."%s%s".(calibredb-opds-host
3000 29 20 75 72 6c 29 29 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 3a ).url))))))...................(:
3020 62 6f 6f 6b 2d 6e 61 6d 65 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 22 29 0a 20 20 20 20 20 book-name.............."")......
3040 20 20 20 20 20 20 20 20 20 20 20 20 20 28 3a 62 6f 6f 6b 2d 66 6f 72 6d 61 74 20 20 20 20 20 20 .............(:book-format......
3060 20 20 20 20 20 20 2c 28 6f 72 20 28 64 6f 6d 2d 61 74 74 72 20 28 65 73 78 6d 6c 2d 71 75 65 72 ......,(or.(dom-attr.(esxml-quer
3080 79 20 22 5b 74 79 70 65 5e 3d 61 70 70 6c 69 63 61 74 69 6f 6e 5d 22 20 65 6e 74 72 79 29 20 27 y."[type^=application]".entry).'
30a0 74 79 70 65 29 20 22 22 29 29 20 3b 20 54 4f 44 4f 3a 20 73 75 70 70 6f 72 74 20 6d 6f 72 65 20 type)."")).;.TODO:.support.more.
30c0 66 6f 72 6d 61 74 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 3a 62 6f 6f 6b formats...................(:book
30e0 2d 70 75 62 64 61 74 65 20 20 20 20 20 20 20 20 20 20 20 2c 28 64 6f 6d 2d 74 65 78 74 20 28 6f -pubdate...........,(dom-text.(o
3100 72 20 28 65 73 78 6d 6c 2d 71 75 65 72 79 20 22 69 73 73 75 65 64 22 20 65 6e 74 72 79 29 0a 20 r.(esxml-query."issued".entry)..
3120 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ................................
3140 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 65 73 78 6d 6c 2d .........................(esxml-
3160 71 75 65 72 79 20 22 70 75 62 6c 69 73 68 65 64 22 20 65 6e 74 72 79 29 29 29 29 0a 20 20 20 20 query."published".entry)))).....
3180 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 3a 62 6f 6f 6b 2d 74 69 74 6c 65 20 20 20 20 20 20 ..............(:book-title......
31a0 20 20 20 20 20 20 20 2c 28 64 6f 6d 2d 74 65 78 74 20 28 65 73 78 6d 6c 2d 71 75 65 72 79 20 22 .......,(dom-text.(esxml-query."
31c0 74 69 74 6c 65 22 20 65 6e 74 72 79 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 title".entry))).................
31e0 20 20 28 3a 66 69 6c 65 2d 70 61 74 68 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2c 28 6c 65 74 ..(:file-path..............,(let
3200 20 28 28 75 72 6c 20 28 6f 72 20 28 64 6f 6d 2d 61 74 74 72 20 28 65 73 78 6d 6c 2d 71 75 65 72 .((url.(or.(dom-attr.(esxml-quer
3220 79 20 22 5b 74 79 70 65 5e 3d 61 70 70 6c 69 63 61 74 69 6f 6e 5d 22 20 65 6e 74 72 79 29 20 27 y."[type^=application]".entry).'
3240 68 72 65 66 29 20 22 22 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 href).""))).....................
3260 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 66 20 28 61 ..........................(if.(a
3280 6e 64 20 28 73 74 72 69 6e 67 70 20 75 72 6c 29 20 28 73 2d 63 6f 6e 74 61 69 6e 73 3f 20 22 68 nd.(stringp.url).(s-contains?."h
32a0 74 74 70 22 20 75 72 6c 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ttp".url))......................
32c0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 75 72 6c .............................url
32e0 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ................................
3300 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 6e 64 20 28 28 73 2d 65 71 75 61 6c .................(cond.((s-equal
3320 73 2d 70 20 22 22 20 75 72 6c 29 20 22 22 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 s-p."".url)."").................
3340 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ................................
3360 20 20 20 20 20 20 28 28 73 2d 65 71 75 61 6c 73 2d 70 20 28 73 2d 6c 65 66 74 20 31 20 75 72 6c ......((s-equals-p.(s-left.1.url
3380 29 20 22 2f 22 29 20 28 66 6f 72 6d 61 74 20 22 25 73 25 73 22 20 28 63 61 6c 69 62 72 65 64 62 )."/").(format."%s%s".(calibredb
33a0 2d 6f 70 64 73 2d 68 6f 73 74 29 20 75 72 6c 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 -opds-host).url))...............
33c0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ................................
33e0 20 20 20 20 20 20 20 20 28 74 20 28 66 6f 72 6d 61 74 20 22 25 73 2f 25 73 22 20 28 63 61 6c 69 ........(t.(format."%s/%s".(cali
3400 62 72 65 64 62 2d 6f 70 64 73 2d 68 6f 73 74 29 20 75 72 6c 29 29 29 29 29 29 0a 20 20 20 20 20 bredb-opds-host).url))))))......
3420 20 20 20 20 20 20 20 20 20 20 20 20 20 28 3a 74 61 67 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .............(:tag..............
3440 20 20 20 20 20 20 2c 28 6d 61 70 63 6f 6e 63 61 74 20 23 27 69 64 65 6e 74 69 74 79 0a 20 20 20 ......,(mapconcat.#'identity....
3460 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ................................
3480 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 2d 6d 61 70 20 28 6c 61 6d 62 64 ....................(-map.(lambd
34a0 61 20 28 63 61 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 a.(cat).........................
34c0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ................................
34e0 20 20 20 20 20 20 20 28 6f 72 20 28 65 73 78 6d 6c 2d 6e 6f 64 65 2d 61 74 74 72 69 62 75 74 65 .......(or.(esxml-node-attribute
3500 20 27 6c 61 62 65 6c 20 63 61 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .'label.cat)....................
3520 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ................................
3540 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 65 73 78 6d 6c 2d 6e 6f 64 65 2d 61 74 74 72 ................(esxml-node-attr
3560 69 62 75 74 65 20 27 74 65 72 6d 20 63 61 74 29 29 29 20 28 65 73 78 6d 6c 2d 71 75 65 72 79 2d ibute.'term.cat))).(esxml-query-
3580 61 6c 6c 20 22 63 61 74 65 67 6f 72 79 22 20 65 6e 74 72 79 29 29 20 22 2c 20 22 29 29 0a 20 20 all."category".entry)).",."))...
35a0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 3a 73 69 7a 65 20 20 20 20 20 20 20 20 20 20 ................(:size..........
35c0 20 20 20 20 20 20 20 20 20 2c 28 66 6f 72 6d 61 74 20 22 25 2e 32 66 22 20 28 2f 20 28 73 74 72 .........,(format."%.2f".(/.(str
35e0 69 6e 67 2d 74 6f 2d 6e 75 6d 62 65 72 20 28 6f 72 20 28 64 6f 6d 2d 61 74 74 72 20 28 65 73 78 ing-to-number.(or.(dom-attr.(esx
3600 6d 6c 2d 71 75 65 72 79 20 22 5b 74 79 70 65 5e 3d 61 70 70 6c 69 63 61 74 69 6f 6e 5d 22 20 65 ml-query."[type^=application]".e
3620 6e 74 72 79 29 20 27 6c 65 6e 67 74 68 20 29 20 22 30 22 20 29 20 29 20 31 30 34 38 35 37 36 2e ntry).'length.)."0".).).1048576.
3640 30 29 20 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 3a 63 6f 6d 6d 65 6e 0).))...................(:commen
3660 74 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2c 28 63 6f 6e 64 20 28 28 65 73 78 6d 6c 2d t................,(cond.((esxml-
3680 71 75 65 72 79 20 22 73 75 6d 6d 61 72 79 22 20 65 6e 74 72 79 29 0a 20 20 20 20 20 20 20 20 20 query."summary".entry)..........
36a0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ................................
36c0 20 20 20 20 20 20 20 20 20 20 28 64 6f 6d 2d 74 65 78 74 20 28 65 73 78 6d 6c 2d 71 75 65 72 79 ..........(dom-text.(esxml-query
36e0 20 22 73 75 6d 6d 61 72 79 22 20 65 6e 74 72 79 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 ."summary".entry))).............
3700 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ................................
3720 20 20 20 20 20 20 28 28 65 73 78 6d 6c 2d 71 75 65 72 79 20 22 63 6f 6e 74 65 6e 74 22 20 65 6e ......((esxml-query."content".en
3740 74 72 79 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 try)............................
3760 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 65 73 78 6d 6c 2d 74 ........................(esxml-t
3780 6f 2d 78 6d 6c 20 28 65 73 78 6d 6c 2d 71 75 65 72 79 20 22 63 6f 6e 74 65 6e 74 22 20 65 6e 74 o-xml.(esxml-query."content".ent
37a0 72 79 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ry)))...........................
37c0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 74 20 22 22 20 29 29 ........................(t."".))
37e0 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 3a 69 64 73 20 20 20 20 20 20 20 )...................(:ids.......
3800 20 20 20 20 20 20 20 20 20 20 20 20 20 2c 28 64 6f 6d 2d 74 65 78 74 20 28 6f 72 20 28 65 73 78 .............,(dom-text.(or.(esx
3820 6d 6c 2d 71 75 65 72 79 20 22 69 64 65 6e 74 69 66 69 65 72 22 20 65 6e 74 72 79 29 0a 20 20 20 ml-query."identifier".entry)....
3840 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ................................
3860 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 65 73 78 6d 6c 2d 71 75 .......................(esxml-qu
3880 65 72 79 20 22 69 64 22 20 65 6e 74 72 79 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 ery."id".entry))))..............
38a0 20 20 20 20 20 28 3a 70 75 62 6c 69 73 68 65 72 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2c 28 .....(:publisher..............,(
38c0 64 6f 6d 2d 74 65 78 74 20 28 6f 72 20 28 65 73 78 6d 6c 2d 71 75 65 72 79 20 22 70 75 62 6c 69 dom-text.(or.(esxml-query."publi
38e0 73 68 65 72 3e 6e 61 6d 65 22 20 65 6e 74 72 79 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 sher>name".entry)...............
3900 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ................................
3920 20 20 20 20 20 20 20 20 20 20 20 20 28 65 73 78 6d 6c 2d 71 75 65 72 79 20 22 70 75 62 6c 69 73 ............(esxml-query."publis
3940 68 65 72 22 20 65 6e 74 72 79 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 her".entry))))..................
3960 20 28 3a 73 65 72 69 65 73 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 22 29 0a 20 20 .(:series................."")...
3980 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 3a 6c 61 6e 67 5f 63 6f 64 65 20 20 20 20 20 ................(:lang_code.....
39a0 20 20 20 20 20 20 20 20 20 2c 28 64 6f 6d 2d 74 65 78 74 20 28 65 73 78 6d 6c 2d 71 75 65 72 79 .........,(dom-text.(esxml-query
39c0 20 22 6c 61 6e 67 75 61 67 65 22 20 65 6e 74 72 79 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 ."language".entry)))............
39e0 20 20 20 20 20 20 20 28 3a 6c 61 73 74 5f 6d 6f 64 69 66 69 65 64 20 20 20 20 20 20 20 20 20 20 .......(:last_modified..........
3a00 2c 28 64 6f 6d 2d 74 65 78 74 20 28 65 73 78 6d 6c 2d 71 75 65 72 79 20 22 75 70 64 61 74 65 64 ,(dom-text.(esxml-query."updated
3a20 22 20 65 6e 74 72 79 29 29 29 29 29 20 29 0a 20 20 20 20 20 20 20 20 65 6e 74 72 69 65 73 29 29 ".entry))))).).........entries))
3a40 29 20 29 29 29 0a 0a 28 64 65 66 75 6e 20 63 61 6c 69 62 72 65 64 62 2d 6f 70 64 73 2d 73 65 61 ).)))..(defun.calibredb-opds-sea
3a60 72 63 68 20 28 26 6f 70 74 69 6f 6e 61 6c 20 75 72 6c 29 0a 20 20 22 53 65 61 72 63 68 20 6c 69 rch.(&optional.url)..."Search.li
3a80 62 72 61 72 79 20 66 72 6f 6d 20 55 52 4c 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 brary.from.URL."...(interactive)
3aa0 0a 20 20 28 6c 65 74 2a 20 28 28 75 72 6c 20 28 6f 72 20 75 72 6c 20 28 63 6f 6d 70 6c 65 74 69 ...(let*.((url.(or.url.(completi
3ac0 6e 67 2d 72 65 61 64 20 22 53 65 61 72 63 68 20 6c 69 62 72 61 72 79 3a 20 22 20 63 61 6c 69 62 ng-read."Search.library:.".calib
3ae0 72 65 64 62 2d 6c 69 62 72 61 72 79 2d 61 6c 69 73 74 29 29 29 0a 20 20 20 20 20 20 20 20 20 28 redb-library-alist)))..........(
3b00 6c 69 62 72 61 72 79 20 28 2d 66 69 72 73 74 20 28 6c 61 6d 62 64 61 20 28 6c 69 62 29 0a 20 20 library.(-first.(lambda.(lib)...
3b20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 2d 63 6f 6e ..........................(s-con
3b40 74 61 69 6e 73 3f 20 28 66 69 6c 65 2d 6e 61 6d 65 2d 64 69 72 65 63 74 6f 72 79 20 28 63 61 72 tains?.(file-name-directory.(car
3b60 20 6c 69 62 29 29 20 75 72 6c 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .lib)).url))....................
3b80 20 20 20 20 20 20 20 63 61 6c 69 62 72 65 64 62 2d 6c 69 62 72 61 72 79 2d 61 6c 69 73 74 29 29 .......calibredb-library-alist))
3ba0 29 0a 20 20 20 20 28 63 61 6c 69 62 72 65 64 62 2d 6f 70 64 73 2d 72 65 71 75 65 73 74 2d 70 61 ).....(calibredb-opds-request-pa
3bc0 67 65 20 28 66 6f 72 6d 61 74 20 22 25 73 2f 73 65 61 72 63 68 5c 3f 71 75 65 72 79 3d 25 73 22 ge.(format."%s/search\?query=%s"
3be0 20 75 72 6c 20 20 28 72 65 61 64 2d 73 74 72 69 6e 67 20 22 53 65 61 72 63 68 3a 20 22 29 29 20 .url..(read-string."Search:.")).
3c00 28 6e 74 68 20 31 20 6c 69 62 72 61 72 79 29 20 28 6e 74 68 20 32 20 6c 69 62 72 61 72 79 29 29 (nth.1.library).(nth.2.library))
3c20 29 29 0a 0a 28 70 72 6f 76 69 64 65 20 27 63 61 6c 69 62 72 65 64 62 2d 6f 70 64 73 29 0a 0a 3b ))..(provide.'calibredb-opds)..;
3c40 3b 3b 20 63 61 6c 69 62 72 65 64 62 2d 6f 70 64 73 2e 65 6c 20 65 6e 64 73 20 68 65 72 65 0a 00 ;;.calibredb-opds.el.ends.here..
3c60 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
3c80 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
3ca0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
3cc0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
3ce0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
3d00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
3d20 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
3d40 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
3d60 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
3d80 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
3da0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
3dc0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
3de0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
3e00 63 61 6c 69 62 72 65 64 62 2d 32 30 32 34 30 33 33 31 2e 34 30 39 2f 63 61 6c 69 62 72 65 64 62 calibredb-20240331.409/calibredb
3e20 2d 63 6f 72 65 2e 65 6c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -core.el........................
3e40 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
3e60 00 00 00 00 30 30 30 30 36 34 34 00 30 30 30 30 30 30 30 00 30 30 30 30 30 30 30 00 30 30 30 30 ....0000644.0000000.0000000.0000
3e80 30 31 30 31 34 31 33 00 30 30 30 30 30 30 30 30 30 30 30 00 30 31 36 30 31 32 00 20 30 00 00 00 0101413.00000000000.016012..0...
3ea0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
3ec0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
3ee0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
3f00 00 75 73 74 61 72 20 20 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 .ustar...root...................
3f20 00 00 00 00 00 00 00 00 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 .........root...................
3f40 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
3f60 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
3f80 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
3fa0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
3fc0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
3fe0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
4000 3b 3b 3b 20 63 61 6c 69 62 72 65 64 62 2d 63 6f 72 65 2e 65 6c 20 2d 2d 2d 20 43 6f 72 65 20 66 ;;;.calibredb-core.el.---.Core.f
4020 6f 72 20 63 61 6c 69 62 72 65 64 62 20 2d 2a 2d 20 6c 65 78 69 63 61 6c 2d 62 69 6e 64 69 6e 67 or.calibredb.-*-.lexical-binding
4040 3a 20 74 3b 20 2d 2a 2d 0a 0a 3b 3b 20 43 6f 70 79 72 69 67 68 74 20 28 43 29 20 32 30 32 30 20 :.t;.-*-..;;.Copyright.(C).2020.
4060 44 61 6d 6f 6e 20 43 68 61 6e 0a 0a 3b 3b 20 41 75 74 68 6f 72 3a 20 44 61 6d 6f 6e 20 43 68 61 Damon.Chan..;;.Author:.Damon.Cha
4080 6e 20 3c 65 6c 65 63 6d 69 6e 67 40 67 6d 61 69 6c 2e 63 6f 6d 3e 0a 3b 3b 20 55 52 4c 3a 20 68 n.<elecming@gmail.com>.;;.URL:.h
40a0 74 74 70 73 3a 2f 2f 67 69 74 68 75 62 2e 63 6f 6d 2f 63 68 65 6e 79 61 6e 6d 69 6e 67 2f 63 61 ttps://github.com/chenyanming/ca
40c0 6c 69 62 72 65 64 62 2e 65 6c 0a 3b 3b 20 4b 65 79 77 6f 72 64 73 3a 20 74 6f 6f 6c 73 0a 3b 3b libredb.el.;;.Keywords:.tools.;;
40e0 20 56 65 72 73 69 6f 6e 3a 20 32 2e 31 32 2e 30 0a 0a 3b 3b 20 54 68 69 73 20 66 69 6c 65 20 69 .Version:.2.12.0..;;.This.file.i
4100 73 20 4e 4f 54 20 70 61 72 74 20 6f 66 20 47 4e 55 20 45 6d 61 63 73 2e 0a 0a 3b 3b 20 54 68 69 s.NOT.part.of.GNU.Emacs...;;.Thi
4120 73 20 70 72 6f 67 72 61 6d 20 69 73 20 66 72 65 65 20 73 6f 66 74 77 61 72 65 3b 20 79 6f 75 20 s.program.is.free.software;.you.
4140 63 61 6e 20 72 65 64 69 73 74 72 69 62 75 74 65 20 69 74 20 61 6e 64 2f 6f 72 20 6d 6f 64 69 66 can.redistribute.it.and/or.modif
4160 79 0a 3b 3b 20 69 74 20 75 6e 64 65 72 20 74 68 65 20 74 65 72 6d 73 20 6f 66 20 74 68 65 20 47 y.;;.it.under.the.terms.of.the.G
4180 4e 55 20 47 65 6e 65 72 61 6c 20 50 75 62 6c 69 63 20 4c 69 63 65 6e 73 65 20 61 73 20 70 75 62 NU.General.Public.License.as.pub
41a0 6c 69 73 68 65 64 20 62 79 0a 3b 3b 20 74 68 65 20 46 72 65 65 20 53 6f 66 74 77 61 72 65 20 46 lished.by.;;.the.Free.Software.F
41c0 6f 75 6e 64 61 74 69 6f 6e 2c 20 65 69 74 68 65 72 20 76 65 72 73 69 6f 6e 20 33 20 6f 66 20 74 oundation,.either.version.3.of.t
41e0 68 65 20 4c 69 63 65 6e 73 65 2c 20 6f 72 0a 3b 3b 20 28 61 74 20 79 6f 75 72 20 6f 70 74 69 6f he.License,.or.;;.(at.your.optio
4200 6e 29 20 61 6e 79 20 6c 61 74 65 72 20 76 65 72 73 69 6f 6e 2e 0a 0a 3b 3b 20 54 68 69 73 20 70 n).any.later.version...;;.This.p
4220 72 6f 67 72 61 6d 20 69 73 20 64 69 73 74 72 69 62 75 74 65 64 20 69 6e 20 74 68 65 20 68 6f 70 rogram.is.distributed.in.the.hop
4240 65 20 74 68 61 74 20 69 74 20 77 69 6c 6c 20 62 65 20 75 73 65 66 75 6c 2c 0a 3b 3b 20 62 75 74 e.that.it.will.be.useful,.;;.but
4260 20 57 49 54 48 4f 55 54 20 41 4e 59 20 57 41 52 52 41 4e 54 59 3b 20 77 69 74 68 6f 75 74 20 65 .WITHOUT.ANY.WARRANTY;.without.e
4280 76 65 6e 20 74 68 65 20 69 6d 70 6c 69 65 64 20 77 61 72 72 61 6e 74 79 20 6f 66 0a 3b 3b 20 4d ven.the.implied.warranty.of.;;.M
42a0 45 52 43 48 41 4e 54 41 42 49 4c 49 54 59 20 6f 72 20 46 49 54 4e 45 53 53 20 46 4f 52 20 41 20 ERCHANTABILITY.or.FITNESS.FOR.A.
42c0 50 41 52 54 49 43 55 4c 41 52 20 50 55 52 50 4f 53 45 2e 20 20 53 65 65 20 74 68 65 0a 3b 3b 20 PARTICULAR.PURPOSE...See.the.;;.
42e0 47 4e 55 20 47 65 6e 65 72 61 6c 20 50 75 62 6c 69 63 20 4c 69 63 65 6e 73 65 20 66 6f 72 20 6d GNU.General.Public.License.for.m
4300 6f 72 65 20 64 65 74 61 69 6c 73 2e 0a 0a 3b 3b 20 59 6f 75 20 73 68 6f 75 6c 64 20 68 61 76 65 ore.details...;;.You.should.have
4320 20 72 65 63 65 69 76 65 64 20 61 20 63 6f 70 79 20 6f 66 20 74 68 65 20 47 4e 55 20 47 65 6e 65 .received.a.copy.of.the.GNU.Gene
4340 72 61 6c 20 50 75 62 6c 69 63 20 4c 69 63 65 6e 73 65 0a 3b 3b 20 61 6c 6f 6e 67 20 77 69 74 68 ral.Public.License.;;.along.with
4360 20 74 68 69 73 20 70 72 6f 67 72 61 6d 2e 20 20 49 66 20 6e 6f 74 2c 20 73 65 65 20 3c 68 74 74 .this.program...If.not,.see.<htt
4380 70 73 3a 2f 2f 77 77 77 2e 67 6e 75 2e 6f 72 67 2f 6c 69 63 65 6e 73 65 73 2f 3e 2e 0a 0a 3b 3b ps://www.gnu.org/licenses/>...;;
43a0 3b 20 43 6f 6d 6d 65 6e 74 61 72 79 3a 0a 0a 3b 3b 3b 20 43 6f 64 65 3a 0a 0a 28 72 65 71 75 69 ;.Commentary:..;;;.Code:..(requi
43c0 72 65 20 27 73 29 0a 28 72 65 71 75 69 72 65 20 27 64 61 73 68 29 0a 28 72 65 71 75 69 72 65 20 re.'s).(require.'dash).(require.
43e0 27 63 6c 2d 6c 69 62 29 0a 28 72 65 71 75 69 72 65 20 27 63 6c 2d 6d 61 63 73 29 0a 28 72 65 71 'cl-lib).(require.'cl-macs).(req
4400 75 69 72 65 20 27 73 71 6c 29 0a 28 72 65 71 75 69 72 65 20 27 68 6c 2d 6c 69 6e 65 29 0a 28 72 uire.'sql).(require.'hl-line).(r
4420 65 71 75 69 72 65 20 27 74 72 61 6e 73 69 65 6e 74 29 0a 28 72 65 71 75 69 72 65 20 27 73 65 6e equire.'transient).(require.'sen
4440 64 6d 61 69 6c 29 0a 28 72 65 71 75 69 72 65 20 27 64 69 72 65 64 29 0a 28 72 65 71 75 69 72 65 dmail).(require.'dired).(require
4460 20 27 74 68 69 6e 67 61 74 70 74 29 0a 28 72 65 71 75 69 72 65 20 27 70 63 61 73 65 29 0a 28 72 .'thingatpt).(require.'pcase).(r
4480 65 71 75 69 72 65 20 27 6d 61 69 6c 63 61 70 29 0a 0a 28 69 67 6e 6f 72 65 2d 65 72 72 6f 72 73 equire.'mailcap)..(ignore-errors
44a0 0a 20 20 28 72 65 71 75 69 72 65 20 27 68 65 6c 6d 29 0a 20 20 28 72 65 71 75 69 72 65 20 27 69 ...(require.'helm)...(require.'i
44c0 76 79 29 0a 20 20 28 72 65 71 75 69 72 65 20 27 61 6c 6c 2d 74 68 65 2d 69 63 6f 6e 73 29 0a 20 vy)...(require.'all-the-icons)..
44e0 20 28 72 65 71 75 69 72 65 20 27 69 63 6f 6e 73 2d 69 6e 2d 74 65 72 6d 69 6e 61 6c 29 29 0a 0a .(require.'icons-in-terminal))..
4500 28 65 76 61 6c 2d 77 68 65 6e 2d 63 6f 6d 70 69 6c 65 20 28 64 65 66 76 61 72 20 63 61 6c 69 62 (eval-when-compile.(defvar.calib
4520 72 65 64 62 2d 64 65 74 61 69 6c 65 64 2d 76 69 65 77 29 29 0a 28 65 76 61 6c 2d 77 68 65 6e 2d redb-detailed-view)).(eval-when-
4540 63 6f 6d 70 69 6c 65 20 28 64 65 66 76 61 72 20 63 61 6c 69 62 72 65 64 62 2d 66 75 6c 6c 2d 65 compile.(defvar.calibredb-full-e
4560 6e 74 72 69 65 73 29 29 0a 28 64 65 63 6c 61 72 65 2d 66 75 6e 63 74 69 6f 6e 20 63 61 6c 69 62 ntries)).(declare-function.calib
4580 72 65 64 62 2d 63 6f 6e 64 65 6e 73 65 2d 63 6f 6d 6d 65 6e 74 73 20 22 63 61 6c 69 62 72 65 64 redb-condense-comments."calibred
45a0 62 2d 73 65 61 72 63 68 2e 65 6c 22 29 0a 28 64 65 63 6c 61 72 65 2d 66 75 6e 63 74 69 6f 6e 20 b-search.el").(declare-function.
45c0 63 61 6c 69 62 72 65 64 62 2d 61 74 74 61 63 68 2d 69 63 6f 6e 2d 66 6f 72 20 22 63 61 6c 69 62 calibredb-attach-icon-for."calib
45e0 72 65 64 62 2d 75 74 69 6c 73 2e 65 6c 22 29 0a 28 64 65 63 6c 61 72 65 2d 66 75 6e 63 74 69 6f redb-utils.el").(declare-functio
4600 6e 20 63 61 6c 69 62 72 65 64 62 2d 67 65 74 2d 66 69 6c 65 2d 70 61 74 68 20 22 63 61 6c 69 62 n.calibredb-get-file-path."calib
4620 72 65 64 62 2d 75 74 69 6c 73 2e 65 6c 22 29 0a 0a 0a 28 64 65 66 67 72 6f 75 70 20 63 61 6c 69 redb-utils.el")...(defgroup.cali
4640 62 72 65 64 62 20 6e 69 6c 0a 20 20 22 63 61 6c 69 62 72 65 64 62 20 67 72 6f 75 70 22 0a 20 20 bredb.nil..."calibredb.group"...
4660 3a 67 72 6f 75 70 20 27 63 61 6c 69 62 72 65 64 62 29 0a 0a 28 64 65 66 63 75 73 74 6f 6d 20 63 :group.'calibredb)..(defcustom.c
4680 61 6c 69 62 72 65 64 62 2d 64 62 2d 64 69 72 20 6e 69 6c 0a 20 20 22 4c 6f 63 61 74 69 6f 6e 20 alibredb-db-dir.nil..."Location.
46a0 6f 66 20 5c 22 6d 65 74 61 64 61 74 61 2e 64 62 5c 22 20 69 6e 20 79 6f 75 72 20 63 61 6c 69 62 of.\"metadata.db\".in.your.calib
46c0 72 65 20 6c 69 62 72 61 72 79 2e 22 0a 20 20 3a 74 79 70 65 20 27 66 69 6c 65 0a 20 20 3a 67 72 re.library."...:type.'file...:gr
46e0 6f 75 70 20 27 63 61 6c 69 62 72 65 64 62 29 0a 0a 0a 28 64 65 66 63 75 73 74 6f 6d 20 63 61 6c oup.'calibredb)...(defcustom.cal
4700 69 62 72 65 64 62 2d 72 65 66 2d 64 65 66 61 75 6c 74 2d 62 69 62 6c 69 6f 67 72 61 70 68 79 20 ibredb-ref-default-bibliography.
4720 6e 69 6c 0a 20 20 22 42 69 62 54 65 78 20 66 69 6c 65 20 66 6f 72 20 63 75 72 72 65 6e 74 20 6c nil..."BibTex.file.for.current.l
4740 69 62 72 61 72 79 2e 22 0a 20 20 3a 74 79 70 65 20 27 66 69 6c 65 0a 20 20 3a 67 72 6f 75 70 20 ibrary."...:type.'file...:group.
4760 27 63 61 6c 69 62 72 65 64 62 29 0a 0a 28 64 65 66 76 61 72 20 63 61 6c 69 62 72 65 64 62 2d 72 'calibredb)..(defvar.calibredb-r
4780 6f 6f 74 2d 64 69 72 2d 71 75 6f 74 65 20 6e 69 6c 0a 20 20 22 4c 6f 63 61 74 69 6f 6e 20 6f 66 oot-dir-quote.nil..."Location.of
47a0 20 69 6e 20 79 6f 75 72 20 63 61 6c 69 62 72 65 20 6c 69 62 72 61 72 79 20 28 65 78 70 61 6e 64 .in.your.calibre.library.(expand
47c0 65 64 20 61 6e 64 20 71 75 6f 74 65 64 29 2e 22 29 0a 0a 28 64 65 66 63 75 73 74 6f 6d 20 63 61 ed.and.quoted).")..(defcustom.ca
47e0 6c 69 62 72 65 64 62 2d 72 6f 6f 74 2d 64 69 72 20 22 7e 2f 44 6f 63 75 6d 65 6e 74 73 2f 43 61 libredb-root-dir."~/Documents/Ca
4800 6c 69 62 72 65 2f 22 0a 20 20 22 44 69 72 65 63 74 6f 72 79 20 63 6f 6e 74 61 69 6e 69 6e 67 20 libre/"..."Directory.containing.
4820 79 6f 75 72 20 63 61 6c 69 62 72 65 20 6c 69 62 72 61 72 79 2e 22 0a 20 20 3a 74 79 70 65 20 27 your.calibre.library."...:type.'
4840 64 69 72 65 63 74 6f 72 79 0a 20 20 3a 73 65 74 20 28 6c 61 6d 62 64 61 20 28 76 61 72 20 76 61 directory...:set.(lambda.(var.va
4860 6c 75 65 29 0a 20 20 20 20 20 20 20 20 20 28 73 65 74 20 76 61 72 20 76 61 6c 75 65 29 0a 20 20 lue)..........(set.var.value)...
4880 20 20 20 20 20 20 20 28 73 65 74 71 20 63 61 6c 69 62 72 65 64 62 2d 64 62 2d 64 69 72 20 28 65 .......(setq.calibredb-db-dir.(e
48a0 78 70 61 6e 64 2d 66 69 6c 65 2d 6e 61 6d 65 20 22 6d 65 74 61 64 61 74 61 2e 64 62 22 0a 20 20 xpand-file-name."metadata.db"...
48c0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ................................
48e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 61 6c 69 62 72 65 64 62 2d 72 6f 6f 74 2d 64 ................calibredb-root-d
4900 69 72 29 29 29 0a 20 20 3a 67 72 6f 75 70 20 27 63 61 6c 69 62 72 65 64 62 29 0a 0a 28 64 65 66 ir)))...:group.'calibredb)..(def
4920 63 75 73 74 6f 6d 20 63 61 6c 69 62 72 65 64 62 2d 76 69 72 74 75 61 6c 2d 6c 69 62 72 61 72 79 custom.calibredb-virtual-library
4940 2d 64 65 66 61 75 6c 74 2d 6e 61 6d 65 20 22 4c 69 62 72 61 72 79 22 0a 20 20 22 54 68 65 20 64 -default-name."Library"..."The.d
4960 65 66 61 75 6c 74 20 76 69 72 74 75 61 6c 20 6c 69 62 72 61 72 79 20 6e 61 6d 65 2e 22 0a 20 20 efault.virtual.library.name."...
4980 3a 67 72 6f 75 70 20 27 63 61 6c 69 62 72 65 64 62 0a 20 20 3a 74 79 70 65 20 27 73 74 72 69 6e :group.'calibredb...:type.'strin
49a0 67 29 0a 0a 28 64 65 66 76 61 72 20 63 61 6c 69 62 72 65 64 62 2d 76 69 72 74 75 61 6c 2d 6c 69 g)..(defvar.calibredb-virtual-li
49c0 62 72 61 72 79 2d 6e 61 6d 65 20 60 2c 63 61 6c 69 62 72 65 64 62 2d 76 69 72 74 75 61 6c 2d 6c brary-name.`,calibredb-virtual-l
49e0 69 62 72 61 72 79 2d 64 65 66 61 75 6c 74 2d 6e 61 6d 65 29 0a 0a 28 64 65 66 63 75 73 74 6f 6d ibrary-default-name)..(defcustom
4a00 20 63 61 6c 69 62 72 65 64 62 2d 64 6f 77 6e 6c 6f 61 64 2d 64 69 72 20 6e 69 6c 0a 20 20 22 53 .calibredb-download-dir.nil..."S
4a20 74 72 69 6e 67 20 77 69 74 68 20 74 68 65 20 70 61 74 68 20 74 6f 20 6d 61 69 6e 20 64 6f 77 6e tring.with.the.path.to.main.down
4a40 6c 6f 61 64 20 64 69 72 65 63 74 6f 72 79 20 66 6f 72 20 65 62 6f 6f 6b 73 2e 22 0a 20 20 3a 74 load.directory.for.ebooks."...:t
4a60 79 70 65 20 27 66 69 6c 65 0a 20 20 3a 67 72 6f 75 70 20 27 63 61 6c 69 62 72 65 64 62 29 0a 0a ype.'file...:group.'calibredb)..
4a80 28 64 65 66 63 75 73 74 6f 6d 20 63 61 6c 69 62 72 65 64 62 2d 61 64 64 2d 64 65 6c 65 74 65 2d (defcustom.calibredb-add-delete-
4aa0 6f 72 69 67 69 6e 61 6c 2d 66 69 6c 65 20 6e 69 6c 0a 20 20 22 41 66 74 65 72 20 61 64 64 69 6e original-file.nil..."After.addin
4ac0 67 20 66 69 6c 65 2c 20 64 65 6c 65 74 65 20 6f 72 69 67 69 6e 61 6c 20 66 69 6c 65 3f 20 28 73 g.file,.delete.original.file?.(s
4ae0 74 72 69 6e 67 20 5c 22 79 65 73 5c 22 2f 5c 22 6e 6f 5c 22 29 2e 0a 79 65 73 3a 20 44 65 6c 65 tring.\"yes\"/\"no\")..yes:.Dele
4b00 74 65 20 77 69 74 68 6f 75 74 20 70 72 6f 6d 70 74 2e 0a 6e 6f 3a 20 4e 6f 20 64 65 6c 65 74 69 te.without.prompt..no:.No.deleti
4b20 6f 6e 20 77 69 74 68 6f 75 74 20 70 72 6f 6d 70 74 2e 0a 6e 69 6c 3a 20 50 72 6f 6d 70 74 20 64 on.without.prompt..nil:.Prompt.d
4b40 65 6c 65 74 65 20 6f 72 20 6e 6f 74 2e 22 0a 20 20 3a 74 79 70 65 20 27 73 74 72 69 6e 67 0a 20 elete.or.not."...:type.'string..
4b60 20 3a 67 72 6f 75 70 20 27 63 61 6c 69 62 72 65 64 62 29 0a 0a 28 64 65 66 63 75 73 74 6f 6d 20 .:group.'calibredb)..(defcustom.
4b80 63 61 6c 69 62 72 65 64 62 2d 66 65 74 63 68 2d 63 6f 76 65 72 73 20 6e 69 6c 0a 20 20 22 46 65 calibredb-fetch-covers.nil..."Fe
4ba0 74 63 68 20 63 6f 76 65 72 20 77 68 65 6e 20 66 65 74 63 68 69 6e 67 20 6d 65 74 61 64 61 74 61 tch.cover.when.fetching.metadata
4bc0 3f 20 28 73 74 72 69 6e 67 20 5c 22 79 65 73 5c 22 2f 5c 22 6e 6f 5c 22 29 2e 22 0a 20 20 3a 74 ?.(string.\"yes\"/\"no\")."...:t
4be0 79 70 65 20 27 73 74 72 69 6e 67 0a 20 20 3a 67 72 6f 75 70 20 27 63 61 6c 69 62 72 65 64 62 29 ype.'string...:group.'calibredb)
4c00 0a 0a 28 64 65 66 63 75 73 74 6f 6d 20 63 61 6c 69 62 72 65 64 62 2d 73 68 6f 77 2d 72 65 73 75 ..(defcustom.calibredb-show-resu
4c20 6c 74 73 20 6e 69 6c 0a 20 20 22 53 65 74 20 4e 6f 6e 2d 6e 69 6c 20 74 6f 20 73 68 6f 77 20 72 lts.nil..."Set.Non-nil.to.show.r
4c40 65 73 75 6c 74 73 20 61 66 74 65 72 20 66 65 74 63 68 69 6e 67 20 6d 65 74 61 64 61 74 61 2e 22 esults.after.fetching.metadata."
4c60 0a 20 20 3a 74 79 70 65 20 27 62 6f 6f 6c 65 61 6e 0a 20 20 3a 67 72 6f 75 70 20 27 63 61 6c 69 ...:type.'boolean...:group.'cali
4c80 62 72 65 64 62 29 0a 0a 28 64 65 66 63 75 73 74 6f 6d 20 63 61 6c 69 62 72 65 64 62 2d 70 72 65 bredb)..(defcustom.calibredb-pre
4ca0 66 65 72 72 65 64 2d 66 6f 72 6d 61 74 20 6e 69 6c 0a 20 20 22 53 65 74 20 74 6f 20 79 6f 75 72 ferred-format.nil..."Set.to.your
4cc0 20 70 72 65 66 65 72 72 65 64 20 62 6f 6f 6b 20 66 6f 72 6d 61 74 2e 22 0a 20 20 3a 74 79 70 65 .preferred.book.format."...:type
4ce0 20 27 73 74 72 69 6e 67 0a 20 20 3a 67 72 6f 75 70 20 27 63 61 6c 69 62 72 65 64 62 29 0a 0a 28 .'string...:group.'calibredb)..(
4d00 64 65 66 63 75 73 74 6f 6d 20 63 61 6c 69 62 72 65 64 62 2d 6c 69 62 72 61 72 79 2d 61 6c 69 73 defcustom.calibredb-library-alis
4d20 74 20 60 28 28 2c 63 61 6c 69 62 72 65 64 62 2d 72 6f 6f 74 2d 64 69 72 29 29 0a 20 20 22 41 6c t.`((,calibredb-root-dir))..."Al
4d40 69 73 74 20 66 6f 72 20 61 6c 6c 20 79 6f 75 72 20 63 61 6c 69 62 72 65 20 6c 69 62 72 61 72 69 ist.for.all.your.calibre.librari
4d60 65 73 2e 22 0a 20 20 3a 74 79 70 65 20 27 61 6c 69 73 74 0a 20 20 3a 67 72 6f 75 70 20 27 63 61 es."...:type.'alist...:group.'ca
4d80 6c 69 62 72 65 64 62 29 0a 0a 28 64 65 66 63 75 73 74 6f 6d 20 63 61 6c 69 62 72 65 64 62 2d 76 libredb)..(defcustom.calibredb-v
4da0 69 72 74 75 61 6c 2d 6c 69 62 72 61 72 79 2d 61 6c 69 73 74 20 27 28 29 0a 20 20 22 41 6c 69 73 irtual-library-alist.'()..."Alis
4dc0 74 20 66 6f 72 20 61 6c 6c 20 79 6f 75 72 20 63 61 6c 69 62 72 65 20 76 69 72 74 75 61 6c 20 6c t.for.all.your.calibre.virtual.l
4de0 69 62 72 61 72 69 65 73 2e 0a 31 2e 20 4c 65 66 74 20 69 73 20 74 68 65 20 76 69 72 74 75 61 6c ibraries..1..Left.is.the.virtual
4e00 20 6c 69 62 72 61 72 79 20 6e 61 6d 65 20 74 68 61 74 20 73 68 6f 77 73 20 69 6e 20 74 68 65 20 .library.name.that.shows.in.the.
4e20 2a 63 61 6c 69 62 72 65 64 62 2d 73 65 61 72 63 68 2a 20 68 65 61 64 65 72 2e 0a 32 2e 20 52 69 *calibredb-search*.header..2..Ri
4e40 67 68 74 20 69 73 20 74 68 65 20 66 69 6c 74 65 72 20 6b 65 79 77 6f 72 64 73 20 2d 20 60 63 61 ght.is.the.filter.keywords.-.`ca
4e60 6c 69 62 72 65 64 62 2d 73 65 61 72 63 68 2d 66 69 6c 74 65 72 27 2e 22 0a 20 20 3a 74 79 70 65 libredb-search-filter'."...:type
4e80 20 27 61 6c 69 73 74 0a 20 20 3a 67 72 6f 75 70 20 27 63 61 6c 69 62 72 65 64 62 29 0a 0a 28 64 .'alist...:group.'calibredb)..(d
4ea0 65 66 63 75 73 74 6f 6d 20 63 61 6c 69 62 72 65 64 62 2d 70 72 6f 67 72 61 6d 0a 20 20 28 63 6f efcustom.calibredb-program...(co
4ec0 6e 64 0a 20 20 20 28 28 65 71 20 73 79 73 74 65 6d 2d 74 79 70 65 20 27 64 61 72 77 69 6e 29 0a nd....((eq.system-type.'darwin).
4ee0 20 20 20 20 22 2f 41 70 70 6c 69 63 61 74 69 6f 6e 73 2f 63 61 6c 69 62 72 65 2e 61 70 70 2f 43 ...."/Applications/calibre.app/C
4f00 6f 6e 74 65 6e 74 73 2f 4d 61 63 4f 53 2f 63 61 6c 69 62 72 65 64 62 22 29 0a 20 20 20 28 74 0a ontents/MacOS/calibredb")....(t.
4f20 20 20 20 20 22 63 61 6c 69 62 72 65 64 62 22 29 29 0a 20 20 22 45 78 65 63 75 74 61 62 6c 65 20 ...."calibredb"))..."Executable.
4f40 75 73 65 64 20 74 6f 20 61 63 63 65 73 73 20 74 68 65 20 63 61 6c 69 62 72 65 64 62 2e 22 0a 20 used.to.access.the.calibredb."..
4f60 20 3a 74 79 70 65 20 27 66 69 6c 65 0a 20 20 3a 67 72 6f 75 70 20 27 63 61 6c 69 62 72 65 64 62 .:type.'file...:group.'calibredb
4f80 29 0a 0a 28 64 65 66 63 75 73 74 6f 6d 20 63 61 6c 69 62 72 65 64 62 2d 63 6f 6e 76 65 72 74 2d )..(defcustom.calibredb-convert-
4fa0 70 72 6f 67 72 61 6d 0a 20 20 28 63 6f 6e 64 0a 20 20 20 28 28 65 71 20 73 79 73 74 65 6d 2d 74 program...(cond....((eq.system-t
4fc0 79 70 65 20 27 64 61 72 77 69 6e 29 0a 20 20 20 20 22 2f 41 70 70 6c 69 63 61 74 69 6f 6e 73 2f ype.'darwin)....."/Applications/
4fe0 63 61 6c 69 62 72 65 2e 61 70 70 2f 43 6f 6e 74 65 6e 74 73 2f 4d 61 63 4f 53 2f 65 62 6f 6f 6b calibre.app/Contents/MacOS/ebook
5000 2d 63 6f 6e 76 65 72 74 22 29 0a 20 20 20 28 74 0a 20 20 20 20 22 65 62 6f 6f 6b 2d 63 6f 6e 76 -convert")....(t....."ebook-conv
5020 65 72 74 22 29 29 0a 20 20 22 45 78 65 63 75 74 61 62 6c 65 20 75 73 65 64 20 74 6f 20 63 6f 6e ert"))..."Executable.used.to.con
5040 76 65 72 74 20 65 62 6f 6f 6b 73 2e 22 0a 20 20 3a 74 79 70 65 20 27 66 69 6c 65 0a 20 20 3a 67 vert.ebooks."...:type.'file...:g
5060 72 6f 75 70 20 27 63 61 6c 69 62 72 65 64 62 29 0a 0a 28 64 65 66 63 75 73 74 6f 6d 20 63 61 6c roup.'calibredb)..(defcustom.cal
5080 69 62 72 65 64 62 2d 64 65 76 69 63 65 2d 64 69 72 0a 20 20 28 63 6f 6e 64 20 28 28 65 71 20 73 ibredb-device-dir...(cond.((eq.s
50a0 79 73 74 65 6d 2d 74 79 70 65 20 27 67 6e 75 2f 6c 69 6e 75 78 29 0a 20 20 20 20 20 20 20 20 20 ystem-type.'gnu/linux)..........
50c0 22 2f 54 4f 44 4f 22 29 0a 20 20 20 20 20 20 20 20 28 28 65 71 20 73 79 73 74 65 6d 2d 74 79 70 "/TODO").........((eq.system-typ
50e0 65 20 27 77 69 6e 64 6f 77 73 2d 6e 74 29 0a 20 20 20 20 20 20 20 20 20 22 2f 54 4f 44 4f 22 29 e.'windows-nt).........."/TODO")
5100 0a 20 20 20 20 20 20 20 20 28 28 65 71 20 73 79 73 74 65 6d 2d 74 79 70 65 20 27 64 61 72 77 69 .........((eq.system-type.'darwi
5120 6e 29 0a 20 20 20 20 20 20 20 20 20 22 2f 56 6f 6c 75 6d 65 73 2f 4b 69 6e 64 6c 65 2f 64 6f 63 n).........."/Volumes/Kindle/doc
5140 75 6d 65 6e 74 73 2f 22 29 0a 20 20 20 20 20 20 20 20 28 74 20 22 2f 54 4f 44 4f 22 29 29 0a 20 uments/").........(t."/TODO"))..
5160 20 22 44 69 72 65 63 74 6f 72 79 20 6f 66 20 65 6c 65 63 74 72 6f 6e 69 63 20 64 65 76 69 63 65 ."Directory.of.electronic.device
5180 2c 20 65 2e 67 2e 20 6b 69 6e 64 6c 65 2e 22 0a 20 20 3a 74 79 70 65 20 27 64 69 72 65 63 74 6f ,.e.g..kindle."...:type.'directo
51a0 72 79 0a 20 20 3a 67 72 6f 75 70 20 27 63 61 6c 69 62 72 65 64 62 29 0a 0a 28 64 65 66 63 75 73 ry...:group.'calibredb)..(defcus
51c0 74 6f 6d 20 63 61 6c 69 62 72 65 64 62 2d 64 65 62 75 67 2d 70 72 6f 67 72 61 6d 0a 20 20 28 63 tom.calibredb-debug-program...(c
51e0 6f 6e 64 0a 20 20 20 28 28 65 71 20 73 79 73 74 65 6d 2d 74 79 70 65 20 27 64 61 72 77 69 6e 29 ond....((eq.system-type.'darwin)
5200 0a 20 20 20 20 22 2f 41 70 70 6c 69 63 61 74 69 6f 6e 73 2f 63 61 6c 69 62 72 65 2e 61 70 70 2f ....."/Applications/calibre.app/
5220 43 6f 6e 74 65 6e 74 73 2f 4d 61 63 4f 53 2f 63 61 6c 69 62 72 65 2d 64 65 62 75 67 22 29 0a 20 Contents/MacOS/calibre-debug")..
5240 20 20 28 74 0a 20 20 20 20 22 63 61 6c 69 62 72 65 2d 64 65 62 75 67 22 29 29 0a 20 20 22 45 78 ..(t....."calibre-debug"))..."Ex
5260 65 63 75 74 61 62 6c 65 20 66 6f 72 20 63 61 6c 69 62 72 65 64 62 2d 64 65 62 75 67 20 77 68 69 ecutable.for.calibredb-debug.whi
5280 63 68 20 69 73 20 75 73 65 64 20 66 6f 72 20 61 75 74 68 6f 72 5f 73 6f 72 74 20 61 6c 67 6f 72 ch.is.used.for.author_sort.algor
52a0 69 74 68 6d 2e 22 0a 20 20 3a 74 79 70 65 20 27 66 69 6c 65 0a 20 20 3a 67 72 6f 75 70 20 27 63 ithm."...:type.'file...:group.'c
52c0 61 6c 69 62 72 65 64 62 29 0a 0a 28 64 65 66 63 75 73 74 6f 6d 20 63 61 6c 69 62 72 65 64 62 2d alibredb)..(defcustom.calibredb-
52e0 66 65 74 63 68 2d 6d 65 74 61 64 61 74 61 2d 70 72 6f 67 72 61 6d 0a 20 20 28 63 6f 6e 64 0a 20 fetch-metadata-program...(cond..
5300 20 20 28 28 65 71 20 73 79 73 74 65 6d 2d 74 79 70 65 20 27 64 61 72 77 69 6e 29 0a 20 20 20 20 ..((eq.system-type.'darwin).....
5320 22 2f 41 70 70 6c 69 63 61 74 69 6f 6e 73 2f 63 61 6c 69 62 72 65 2e 61 70 70 2f 43 6f 6e 74 65 "/Applications/calibre.app/Conte
5340 6e 74 73 2f 4d 61 63 4f 53 2f 66 65 74 63 68 2d 65 62 6f 6f 6b 2d 6d 65 74 61 64 61 74 61 22 29 nts/MacOS/fetch-ebook-metadata")
5360 0a 20 20 20 28 74 0a 20 20 20 20 22 66 65 74 63 68 2d 65 62 6f 6f 6b 2d 6d 65 74 61 64 61 74 61 ....(t....."fetch-ebook-metadata
5380 22 29 29 0a 20 20 22 45 78 65 63 75 74 61 62 6c 65 20 75 73 65 64 20 74 6f 20 66 65 74 63 68 20 "))..."Executable.used.to.fetch.
53a0 65 62 6f 6f 6b 20 6d 65 74 61 64 61 74 61 2e 22 0a 20 20 3a 74 79 70 65 20 27 66 69 6c 65 0a 20 ebook.metadata."...:type.'file..
53c0 20 3a 67 72 6f 75 70 20 27 63 61 6c 69 62 72 65 64 62 29 0a 0a 28 64 65 66 63 75 73 74 6f 6d 20 .:group.'calibredb)..(defcustom.
53e0 63 61 6c 69 62 72 65 64 62 2d 66 65 74 63 68 2d 6d 65 74 61 64 61 74 61 2d 73 6f 75 72 63 65 2d calibredb-fetch-metadata-source-
5400 6c 69 73 74 20 27 28 22 47 6f 6f 67 6c 65 22 20 22 41 6d 61 7a 6f 6e 2e 63 6f 6d 22 29 0a 20 20 list.'("Google"."Amazon.com")...
5420 22 53 6f 75 72 63 65 20 61 6c 69 73 74 20 75 73 65 64 20 74 6f 20 66 65 74 63 68 20 65 62 6f 6f "Source.alist.used.to.fetch.eboo
5440 6b 20 6d 65 74 61 64 61 74 61 2e 22 0a 20 20 3a 74 79 70 65 20 27 73 65 78 70 0a 20 20 3a 67 72 k.metadata."...:type.'sexp...:gr
5460 6f 75 70 20 27 63 61 6c 69 62 72 65 64 62 29 0a 0a 28 64 65 66 63 75 73 74 6f 6d 20 63 61 6c 69 oup.'calibredb)..(defcustom.cali
5480 62 72 65 64 62 2d 73 71 6c 2d 73 65 70 61 72 61 74 6f 72 20 22 5c 33 22 0a 20 20 22 53 51 4c 20 bredb-sql-separator."\3"..."SQL.
54a0 73 65 70 61 72 61 74 6f 72 2c 20 75 73 65 64 20 69 6e 20 70 61 72 73 69 6e 67 20 53 51 4c 20 72 separator,.used.in.parsing.SQL.r
54c0 65 73 75 6c 74 20 69 6e 74 6f 20 6c 69 73 74 2e 22 0a 20 20 3a 67 72 6f 75 70 20 27 63 61 6c 69 esult.into.list."...:group.'cali
54e0 62 72 65 64 62 0a 20 20 3a 74 79 70 65 20 27 73 74 72 69 6e 67 29 0a 0a 28 64 65 66 63 75 73 74 bredb...:type.'string)..(defcust
5500 6f 6d 20 63 61 6c 69 62 72 65 64 62 2d 73 71 6c 2d 6e 65 77 6c 69 6e 65 20 22 5c 32 22 0a 20 20 om.calibredb-sql-newline."\2"...
5520 22 53 51 4c 20 6e 65 77 6c 69 6e 65 2c 20 75 73 65 64 20 69 6e 20 70 61 72 73 69 6e 67 20 53 51 "SQL.newline,.used.in.parsing.SQ
5540 4c 20 72 65 73 75 6c 74 20 69 6e 74 6f 20 6c 69 73 74 2e 22 0a 20 20 3a 67 72 6f 75 70 20 27 63 L.result.into.list."...:group.'c
5560 61 6c 69 62 72 65 64 62 0a 20 20 3a 74 79 70 65 20 27 73 74 72 69 6e 67 29 0a 0a 28 64 65 66 63 alibredb...:type.'string)..(defc
5580 75 73 74 6f 6d 20 63 61 6c 69 62 72 65 64 62 2d 69 64 2d 77 69 64 74 68 20 34 0a 20 20 22 57 69 ustom.calibredb-id-width.4..."Wi
55a0 64 74 68 20 66 6f 72 20 69 64 2e 0a 53 65 74 20 30 20 74 6f 20 68 69 64 65 2c 0a 53 65 74 20 6e dth.for.id..Set.0.to.hide,.Set.n
55c0 65 67 61 74 69 76 65 20 74 6f 20 6b 65 65 70 20 6f 72 69 67 69 6e 61 6c 20 6c 65 6e 67 74 68 2e egative.to.keep.original.length.
55e0 22 0a 20 20 3a 67 72 6f 75 70 20 27 63 61 6c 69 62 72 65 64 62 0a 20 20 3a 74 79 70 65 20 27 69 "...:group.'calibredb...:type.'i
5600 6e 74 65 67 65 72 29 0a 0a 28 64 65 66 63 75 73 74 6f 6d 20 63 61 6c 69 62 72 65 64 62 2d 66 6f nteger)..(defcustom.calibredb-fo
5620 72 6d 61 74 2d 77 69 64 74 68 20 35 0a 20 20 22 57 69 64 74 68 20 66 6f 72 20 66 69 6c 65 20 66 rmat-width.5..."Width.for.file.f
5640 6f 72 6d 61 74 2e 0a 53 65 74 20 30 20 74 6f 20 68 69 64 65 2c 0a 53 65 74 20 6e 65 67 61 74 69 ormat..Set.0.to.hide,.Set.negati
5660 76 65 20 74 6f 20 6b 65 65 70 20 6f 72 69 67 69 6e 61 6c 20 6c 65 6e 67 74 68 2e 22 0a 20 20 3a ve.to.keep.original.length."...:
5680 67 72 6f 75 70 20 27 63 61 6c 69 62 72 65 64 62 0a 20 20 3a 74 79 70 65 20 27 69 6e 74 65 67 65 group.'calibredb...:type.'intege
56a0 72 29 0a 0a 28 64 65 66 63 75 73 74 6f 6d 20 63 61 6c 69 62 72 65 64 62 2d 74 61 67 2d 77 69 64 r)..(defcustom.calibredb-tag-wid
56c0 74 68 20 2d 31 0a 20 20 22 57 69 64 74 68 20 66 6f 72 20 74 61 67 2e 0a 53 65 74 20 30 20 74 6f th.-1..."Width.for.tag..Set.0.to
56e0 20 68 69 64 65 2c 0a 53 65 74 20 6e 65 67 61 74 69 76 65 20 74 6f 20 6b 65 65 70 20 6f 72 69 67 .hide,.Set.negative.to.keep.orig
5700 69 6e 61 6c 20 6c 65 6e 67 74 68 2e 22 0a 20 20 3a 67 72 6f 75 70 20 27 63 61 6c 69 62 72 65 64 inal.length."...:group.'calibred
5720 62 0a 20 20 3a 74 79 70 65 20 27 69 6e 74 65 67 65 72 29 0a 0a 28 64 65 66 63 75 73 74 6f 6d 20 b...:type.'integer)..(defcustom.
5740 63 61 6c 69 62 72 65 64 62 2d 69 64 73 2d 77 69 64 74 68 20 30 0a 20 20 22 57 69 64 74 68 20 66 calibredb-ids-width.0..."Width.f
5760 6f 72 20 69 64 73 2e 0a 53 65 74 20 30 20 74 6f 20 68 69 64 65 2c 0a 53 65 74 20 6e 65 67 61 74 or.ids..Set.0.to.hide,.Set.negat
5780 69 76 65 20 74 6f 20 6b 65 65 70 20 6f 72 69 67 69 6e 61 6c 20 6c 65 6e 67 74 68 2e 22 0a 20 20 ive.to.keep.original.length."...
57a0 3a 67 72 6f 75 70 20 27 63 61 6c 69 62 72 65 64 62 0a 20 20 3a 74 79 70 65 20 27 69 6e 74 65 67 :group.'calibredb...:type.'integ
57c0 65 72 29 0a 0a 28 64 65 66 63 75 73 74 6f 6d 20 63 61 6c 69 62 72 65 64 62 2d 74 69 74 6c 65 2d er)..(defcustom.calibredb-title-
57e0 77 69 64 74 68 20 35 30 0a 20 20 22 57 69 64 74 68 20 66 6f 72 20 74 69 74 6c 65 2e 0a 53 65 74 width.50..."Width.for.title..Set
5800 20 30 20 74 6f 20 68 69 64 65 2c 0a 53 65 74 20 6e 65 67 61 74 69 76 65 20 74 6f 20 6b 65 65 70 .0.to.hide,.Set.negative.to.keep
5820 20 6f 72 69 67 69 6e 61 6c 20 6c 65 6e 67 74 68 2e 22 0a 20 20 3a 67 72 6f 75 70 20 27 63 61 6c .original.length."...:group.'cal
5840 69 62 72 65 64 62 0a 20 20 3a 74 79 70 65 20 27 69 6e 74 65 67 65 72 29 0a 0a 28 64 65 66 63 75 ibredb...:type.'integer)..(defcu
5860 73 74 6f 6d 20 63 61 6c 69 62 72 65 64 62 2d 61 75 74 68 6f 72 2d 77 69 64 74 68 20 2d 31 0a 20 stom.calibredb-author-width.-1..
5880 20 22 57 69 64 74 68 20 66 6f 72 20 61 75 74 68 6f 72 2e 0a 53 65 74 20 30 20 74 6f 20 68 69 64 ."Width.for.author..Set.0.to.hid
58a0 65 2c 0a 53 65 74 20 6e 65 67 61 74 69 76 65 20 74 6f 20 6b 65 65 70 20 6f 72 69 67 69 6e 61 6c e,.Set.negative.to.keep.original
58c0 20 6c 65 6e 67 74 68 2e 22 0a 20 20 3a 67 72 6f 75 70 20 27 63 61 6c 69 62 72 65 64 62 0a 20 20 .length."...:group.'calibredb...
58e0 3a 74 79 70 65 20 27 69 6e 74 65 67 65 72 29 0a 0a 28 64 65 66 63 75 73 74 6f 6d 20 63 61 6c 69 :type.'integer)..(defcustom.cali
5900 62 72 65 64 62 2d 63 6f 6d 6d 65 6e 74 2d 77 69 64 74 68 20 31 30 30 0a 20 20 22 57 69 64 74 68 bredb-comment-width.100..."Width
5920 20 66 6f 72 20 63 6f 6d 6d 65 6e 74 2e 0a 53 65 74 20 30 20 74 6f 20 68 69 64 65 2c 0a 53 65 74 .for.comment..Set.0.to.hide,.Set
5940 20 6e 65 67 61 74 69 76 65 20 74 6f 20 6b 65 65 70 20 6f 72 69 67 69 6e 61 6c 20 6c 65 6e 67 74 .negative.to.keep.original.lengt
5960 68 2e 22 0a 20 20 3a 67 72 6f 75 70 20 27 63 61 6c 69 62 72 65 64 62 0a 20 20 3a 74 79 70 65 20 h."...:group.'calibredb...:type.
5980 27 69 6e 74 65 67 65 72 29 0a 0a 28 64 65 66 63 75 73 74 6f 6d 20 63 61 6c 69 62 72 65 64 62 2d 'integer)..(defcustom.calibredb-
59a0 64 61 74 65 2d 77 69 64 74 68 20 31 31 0a 20 20 22 57 69 64 74 68 20 66 6f 72 20 6c 61 73 74 5f date-width.11..."Width.for.last_
59c0 6d 6f 64 69 66 69 65 64 20 64 61 74 65 2e 0a 53 65 74 20 30 20 74 6f 20 68 69 64 65 2c 0a 53 65 modified.date..Set.0.to.hide,.Se
59e0 74 20 6e 65 67 61 74 69 76 65 20 74 6f 20 6b 65 65 70 20 6f 72 69 67 69 6e 61 6c 20 6c 65 6e 67 t.negative.to.keep.original.leng
5a00 74 68 2e 22 0a 20 20 3a 67 72 6f 75 70 20 27 63 61 6c 69 62 72 65 64 62 0a 20 20 3a 74 79 70 65 th."...:group.'calibredb...:type
5a20 20 27 69 6e 74 65 67 65 72 29 0a 0a 28 64 65 66 63 75 73 74 6f 6d 20 63 61 6c 69 62 72 65 64 62 .'integer)..(defcustom.calibredb
5a40 2d 73 69 7a 65 2d 73 68 6f 77 20 6e 69 6c 0a 20 20 22 53 65 74 20 4e 6f 6e 2d 6e 69 6c 20 74 6f -size-show.nil..."Set.Non-nil.to
5a60 20 73 68 6f 77 20 73 69 7a 65 20 69 6e 64 69 63 61 74 6f 72 2e 22 0a 20 20 3a 67 72 6f 75 70 20 .show.size.indicator."...:group.
5a80 27 63 61 6c 69 62 72 65 64 62 0a 20 20 3a 74 79 70 65 20 27 62 6f 6f 6c 65 61 6e 29 0a 0a 28 64 'calibredb...:type.'boolean)..(d
5aa0 65 66 69 6e 65 2d 6f 62 73 6f 6c 65 74 65 2d 76 61 72 69 61 62 6c 65 2d 61 6c 69 61 73 20 27 63 efine-obsolete-variable-alias.'c
5ac0 61 6c 69 62 72 65 64 62 2d 66 6f 72 6d 61 74 2d 69 63 6f 6e 73 0a 20 20 27 63 61 6c 69 62 72 65 alibredb-format-icons...'calibre
5ae0 64 62 2d 66 6f 72 6d 61 74 2d 61 6c 6c 2d 74 68 65 2d 69 63 6f 6e 73 20 22 63 61 6c 69 62 72 65 db-format-all-the-icons."calibre
5b00 64 62 20 32 2e 33 2e 32 22 29 0a 0a 28 64 65 66 63 75 73 74 6f 6d 20 63 61 6c 69 62 72 65 64 62 db.2.3.2")..(defcustom.calibredb
5b20 2d 66 6f 72 6d 61 74 2d 61 6c 6c 2d 74 68 65 2d 69 63 6f 6e 73 20 6e 69 6c 0a 20 20 22 53 65 74 -format-all-the-icons.nil..."Set
5b40 20 4e 6f 6e 2d 6e 69 6c 20 74 6f 20 73 68 6f 77 20 66 69 6c 65 20 66 6f 72 6d 61 74 20 69 63 6f .Non-nil.to.show.file.format.ico
5b60 6e 73 20 77 69 74 68 20 61 6c 6c 2d 74 68 65 2d 69 63 6f 6e 73 2e 22 0a 20 20 3a 67 72 6f 75 70 ns.with.all-the-icons."...:group
5b80 20 27 63 61 6c 69 62 72 65 64 62 0a 20 20 3a 74 79 70 65 20 27 62 6f 6f 6c 65 61 6e 29 0a 0a 28 .'calibredb...:type.'boolean)..(
5ba0 64 65 66 63 75 73 74 6f 6d 20 63 61 6c 69 62 72 65 64 62 2d 66 6f 72 6d 61 74 2d 69 63 6f 6e 73 defcustom.calibredb-format-icons
5bc0 2d 69 6e 2d 74 65 72 6d 69 6e 61 6c 20 6e 69 6c 0a 20 20 22 53 65 74 20 4e 6f 6e 2d 6e 69 6c 20 -in-terminal.nil..."Set.Non-nil.
5be0 74 6f 20 73 68 6f 77 20 66 69 6c 65 20 66 6f 72 6d 61 74 20 69 63 6f 6e 73 20 77 69 74 68 20 69 to.show.file.format.icons.with.i
5c00 63 6f 6e 73 2d 69 6e 2d 74 65 72 6d 69 6e 61 6c 2e 22 0a 20 20 3a 67 72 6f 75 70 20 27 63 61 6c cons-in-terminal."...:group.'cal
5c20 69 62 72 65 64 62 0a 20 20 3a 74 79 70 65 20 27 62 6f 6f 6c 65 61 6e 29 0a 0a 28 64 65 66 63 75 ibredb...:type.'boolean)..(defcu
5c40 73 74 6f 6d 20 63 61 6c 69 62 72 65 64 62 2d 66 6f 72 6d 61 74 2d 63 68 61 72 61 63 74 65 72 2d stom.calibredb-format-character-
5c60 69 63 6f 6e 73 20 6e 69 6c 0a 20 20 22 53 65 74 20 4e 6f 6e 2d 6e 69 6c 20 74 6f 20 73 68 6f 77 icons.nil..."Set.Non-nil.to.show
5c80 20 66 69 6c 65 20 66 6f 72 6d 61 74 20 69 63 6f 6e 73 20 77 69 74 68 20 62 75 69 6c 74 2d 69 6e .file.format.icons.with.built-in
5ca0 20 63 68 61 72 61 63 74 65 72 20 69 63 6f 6e 73 2e 22 0a 20 20 3a 67 72 6f 75 70 20 27 63 61 6c .character.icons."...:group.'cal
5cc0 69 62 72 65 64 62 0a 20 20 3a 74 79 70 65 20 27 62 6f 6f 6c 65 61 6e 29 0a 0a 28 64 65 66 63 75 ibredb...:type.'boolean)..(defcu
5ce0 73 74 6f 6d 20 63 61 6c 69 62 72 65 64 62 2d 66 61 76 6f 72 69 74 65 2d 6b 65 79 77 6f 72 64 20 stom.calibredb-favorite-keyword.
5d00 22 66 61 76 6f 72 69 74 65 22 0a 20 20 22 54 68 65 20 66 61 76 6f 72 69 74 65 20 74 61 67 2e 22 "favorite"..."The.favorite.tag."
5d20 0a 20 20 3a 67 72 6f 75 70 20 27 63 61 6c 69 62 72 65 64 62 0a 20 20 3a 74 79 70 65 20 27 73 74 ...:group.'calibredb...:type.'st
5d40 72 69 6e 67 29 0a 0a 28 64 65 66 63 75 73 74 6f 6d 20 63 61 6c 69 62 72 65 64 62 2d 66 61 76 6f ring)..(defcustom.calibredb-favo
5d60 72 69 74 65 2d 69 63 6f 6e 20 22 e2 98 85 22 0a 20 20 22 54 68 65 20 66 61 76 6f 72 69 74 65 20 rite-icon."..."..."The.favorite.
5d80 69 63 6f 6e 2e 22 0a 20 20 3a 67 72 6f 75 70 20 27 63 61 6c 69 62 72 65 64 62 0a 20 20 3a 74 79 icon."...:group.'calibredb...:ty
5da0 70 65 20 27 73 74 72 69 6e 67 29 0a 0a 28 64 65 66 63 75 73 74 6f 6d 20 63 61 6c 69 62 72 65 64 pe.'string)..(defcustom.calibred
5dc0 62 2d 61 72 63 68 69 76 65 2d 6b 65 79 77 6f 72 64 20 22 61 72 63 68 69 76 65 22 0a 20 20 22 54 b-archive-keyword."archive"..."T
5de0 68 65 20 61 72 63 68 69 76 65 20 74 61 67 2e 22 0a 20 20 3a 67 72 6f 75 70 20 27 63 61 6c 69 62 he.archive.tag."...:group.'calib
5e00 72 65 64 62 0a 20 20 3a 74 79 70 65 20 27 73 74 72 69 6e 67 29 0a 0a 28 64 65 66 63 75 73 74 6f redb...:type.'string)..(defcusto
5e20 6d 20 63 61 6c 69 62 72 65 64 62 2d 68 69 67 68 6c 69 67 68 74 2d 6b 65 79 77 6f 72 64 20 22 68 m.calibredb-highlight-keyword."h
5e40 69 67 68 6c 69 67 68 74 22 0a 20 20 22 54 68 65 20 68 69 67 68 6c 69 67 68 74 20 74 61 67 2e 22 ighlight"..."The.highlight.tag."
5e60 0a 20 20 3a 67 72 6f 75 70 20 27 63 61 6c 69 62 72 65 64 62 0a 20 20 3a 74 79 70 65 20 27 73 74 ...:group.'calibredb...:type.'st
5e80 72 69 6e 67 29 0a 0a 28 64 65 66 63 75 73 74 6f 6d 20 63 61 6c 69 62 72 65 64 62 2d 61 6e 6e 6f ring)..(defcustom.calibredb-anno
5ea0 74 61 74 69 6f 6e 2d 66 69 65 6c 64 20 22 63 6f 6d 6d 65 6e 74 73 22 0a 20 20 22 54 68 65 20 66 tation-field."comments"..."The.f
5ec0 69 65 6c 64 20 74 6f 20 62 65 20 73 61 76 65 64 20 74 68 65 20 61 6e 6e 6f 74 61 74 69 6f 6e 2e ield.to.be.saved.the.annotation.
5ee0 22 0a 20 20 3a 67 72 6f 75 70 20 27 63 61 6c 69 62 72 65 64 62 0a 20 20 3a 74 79 70 65 20 27 73 "...:group.'calibredb...:type.'s
5f00 74 72 69 6e 67 29 0a 0a 28 64 65 66 63 75 73 74 6f 6d 20 63 61 6c 69 62 72 65 64 62 2d 63 6f 6e tring)..(defcustom.calibredb-con
5f20 64 65 6e 73 65 2d 63 6f 6d 6d 65 6e 74 73 20 74 0a 20 20 22 43 6f 6e 64 65 6e 73 65 20 63 6f 6d dense-comments.t..."Condense.com
5f40 6d 65 6e 74 73 20 69 6e 74 6f 20 6f 6e 65 20 6c 69 6e 65 2e 22 0a 20 20 3a 67 72 6f 75 70 20 27 ments.into.one.line."...:group.'
5f60 63 61 6c 69 62 72 65 64 62 0a 20 20 3a 74 79 70 65 20 27 62 6f 6f 6c 65 61 6e 29 0a 0a 28 64 65 calibredb...:type.'boolean)..(de
5f80 66 63 75 73 74 6f 6d 20 63 61 6c 69 62 72 65 64 62 2d 65 6e 74 72 79 2d 72 65 6e 64 65 72 2d 63 fcustom.calibredb-entry-render-c
5fa0 6f 6d 6d 65 6e 74 73 20 22 73 68 72 22 0a 20 20 22 52 65 6e 64 65 72 20 63 6f 6d 6d 65 6e 74 73 omments."shr"..."Render.comments
5fc0 20 69 6e 20 2a 63 61 6c 69 62 72 65 64 62 2d 65 6e 74 72 79 2a 20 62 75 66 66 65 72 2e 0a 31 2e .in.*calibredb-entry*.buffer..1.
5fe0 20 66 61 63 65 3a 20 52 65 6e 64 65 72 20 77 69 74 68 20 66 61 63 65 20 60 63 61 6c 69 62 72 65 .face:.Render.with.face.`calibre
6000 64 62 2d 63 6f 6d 6d 65 6e 74 2d 66 61 63 65 27 2e 0a 32 2e 20 73 68 72 3a 20 52 65 6e 64 65 72 db-comment-face'..2..shr:.Render
6020 20 77 69 74 68 20 73 68 72 20 28 53 69 6d 70 6c 65 20 48 54 4d 4c 20 52 65 6e 64 65 72 29 2e 0a .with.shr.(Simple.HTML.Render)..
6040 33 2e 20 61 6e 6e 6f 74 61 74 69 6f 6e 3a 20 52 65 6e 64 65 72 20 77 69 74 68 20 60 63 61 6c 69 3..annotation:.Render.with.`cali
6060 62 72 65 64 62 2d 65 64 69 74 2d 61 6e 6e 6f 74 61 74 69 6f 6e 2d 6d 6f 64 65 27 2e 22 0a 20 20 bredb-edit-annotation-mode'."...
6080 3a 67 72 6f 75 70 20 27 63 61 6c 69 62 72 65 64 62 0a 20 20 3a 74 79 70 65 20 27 73 74 72 69 6e :group.'calibredb...:type.'strin
60a0 67 29 0a 0a 28 64 65 66 63 75 73 74 6f 6d 20 63 61 6c 69 62 72 65 64 62 2d 61 64 64 2d 64 75 70 g)..(defcustom.calibredb-add-dup
60c0 6c 69 63 61 74 65 20 74 0a 20 20 22 41 64 64 20 66 69 6c 65 20 74 6f 20 63 61 6c 69 62 72 65 64 licate.t..."Add.file.to.calibred
60e0 62 20 65 76 65 6e 20 69 74 20 69 73 20 64 75 70 6c 69 63 61 74 65 64 2c 20 77 68 65 6e 20 75 73 b.even.it.is.duplicated,.when.us
6100 69 6e 67 20 60 63 61 6c 69 62 72 65 64 62 2d 61 64 64 27 2e 20 53 65 74 20 6e 69 6c 20 74 6f 20 ing.`calibredb-add'..Set.nil.to.
6120 44 69 73 61 62 6c 65 20 69 74 2e 22 0a 20 20 3a 74 79 70 65 20 27 62 6f 6f 6c 65 61 6e 0a 20 20 Disable.it."...:type.'boolean...
6140 3a 67 72 6f 75 70 20 27 63 61 6c 69 62 72 65 64 62 29 0a 0a 28 64 65 66 63 75 73 74 6f 6d 20 63 :group.'calibredb)..(defcustom.c
6160 61 6c 69 62 72 65 64 62 2d 73 6f 72 74 2d 62 79 20 27 69 64 0a 20 20 22 53 6f 72 74 20 74 68 65 alibredb-sort-by.'id..."Sort.the
6180 20 72 65 73 75 6c 74 73 20 62 79 20 6d 65 74 61 64 61 74 61 2e 22 0a 20 20 3a 74 79 70 65 20 27 .results.by.metadata."...:type.'
61a0 28 63 68 6f 69 63 65 0a 20 20 20 20 20 20 20 20 20 20 28 63 6f 6e 73 74 20 69 64 29 0a 20 20 20 (choice...........(const.id)....
61c0 20 20 20 20 20 20 20 28 63 6f 6e 73 74 20 74 69 74 6c 65 29 0a 20 20 20 20 20 20 20 20 20 20 28 .......(const.title)...........(
61e0 63 6f 6e 73 74 20 66 6f 72 6d 61 74 29 0a 20 20 20 20 20 20 20 20 20 20 28 63 6f 6e 73 74 20 61 const.format)...........(const.a
6200 75 74 68 6f 72 29 0a 20 20 20 20 20 20 20 20 20 20 28 63 6f 6e 73 74 20 64 61 74 65 29 0a 20 20 uthor)...........(const.date)...
6220 20 20 20 20 20 20 20 20 28 63 6f 6e 73 74 20 70 75 62 64 61 74 65 29 0a 20 20 20 20 20 20 20 20 ........(const.pubdate).........
6240 20 20 28 63 6f 6e 73 74 20 74 61 67 29 0a 20 20 20 20 20 20 20 20 20 20 28 63 6f 6e 73 74 20 73 ..(const.tag)...........(const.s
6260 69 7a 65 29 0a 20 20 20 20 20 20 20 20 20 20 28 63 6f 6e 73 74 20 6c 61 6e 67 75 61 67 65 29 29 ize)...........(const.language))
6280 0a 20 20 3a 67 72 6f 75 70 20 27 63 61 6c 69 62 72 65 64 62 29 0a 0a 28 64 65 66 63 75 73 74 6f ...:group.'calibredb)..(defcusto
62a0 6d 20 63 61 6c 69 62 72 65 64 62 2d 6f 72 64 65 72 20 27 64 65 73 63 0a 20 20 22 53 6f 72 74 20 m.calibredb-order.'desc..."Sort.
62c0 74 68 65 20 72 65 73 75 6c 74 73 20 62 79 20 6f 72 64 65 72 2e 22 0a 20 20 3a 74 79 70 65 20 27 the.results.by.order."...:type.'
62e0 28 63 68 6f 69 63 65 0a 20 20 20 20 20 20 20 20 20 20 28 63 6f 6e 73 74 20 61 73 63 29 0a 20 20 (choice...........(const.asc)...
6300 20 20 20 20 20 20 20 20 28 63 6f 6e 73 74 20 64 65 73 63 29 29 0a 20 20 3a 67 72 6f 75 70 20 27 ........(const.desc))...:group.'
6320 63 61 6c 69 62 72 65 64 62 29 0a 0a 28 64 65 66 76 61 72 20 63 61 6c 69 62 72 65 64 62 2d 71 75 calibredb)..(defvar.calibredb-qu
6340 65 72 79 2d 73 74 72 69 6e 67 2d 6f 6c 64 20 22 0a 53 45 4c 45 43 54 20 69 64 2c 20 61 75 74 68 ery-string-old.".SELECT.id,.auth
6360 6f 72 5f 73 6f 72 74 2c 20 70 61 74 68 2c 20 6e 61 6d 65 2c 20 66 6f 72 6d 61 74 2c 20 70 75 62 or_sort,.path,.name,.format,.pub
6380 64 61 74 65 2c 20 74 69 74 6c 65 2c 20 67 72 6f 75 70 5f 63 6f 6e 63 61 74 28 44 49 53 54 49 4e date,.title,.group_concat(DISTIN
63a0 43 54 20 74 61 67 29 20 41 53 20 74 61 67 2c 20 75 6e 63 6f 6d 70 72 65 73 73 65 64 5f 73 69 7a CT.tag).AS.tag,.uncompressed_siz
63c0 65 2c 20 74 65 78 74 2c 20 6c 61 73 74 5f 6d 6f 64 69 66 69 65 64 0a 46 52 4f 4d 0a 20 20 28 53 e,.text,.last_modified.FROM...(S
63e0 45 4c 45 43 54 20 73 75 62 32 2e 69 64 2c 20 73 75 62 32 2e 61 75 74 68 6f 72 5f 73 6f 72 74 2c ELECT.sub2.id,.sub2.author_sort,
6400 20 73 75 62 32 2e 70 61 74 68 2c 20 73 75 62 32 2e 6e 61 6d 65 2c 20 73 75 62 32 2e 66 6f 72 6d .sub2.path,.sub2.name,.sub2.form
6420 61 74 2c 20 73 75 62 32 2e 70 75 62 64 61 74 65 2c 20 73 75 62 32 2e 74 69 74 6c 65 2c 20 73 75 at,.sub2.pubdate,.sub2.title,.su
6440 62 32 2e 74 61 67 2c 20 73 75 62 32 2e 75 6e 63 6f 6d 70 72 65 73 73 65 64 5f 73 69 7a 65 2c 20 b2.tag,.sub2.uncompressed_size,.
6460 63 6f 6d 6d 65 6e 74 73 2e 74 65 78 74 2c 20 73 75 62 32 2e 6c 61 73 74 5f 6d 6f 64 69 66 69 65 comments.text,.sub2.last_modifie
6480 64 0a 20 20 46 52 4f 4d 0a 20 20 20 20 28 53 45 4c 45 43 54 20 63 68 69 6c 64 2e 69 64 2c 20 63 d...FROM.....(SELECT.child.id,.c
64a0 68 69 6c 64 2e 61 75 74 68 6f 72 5f 73 6f 72 74 2c 20 63 68 69 6c 64 2e 70 61 74 68 2c 20 63 68 hild.author_sort,.child.path,.ch
64c0 69 6c 64 2e 6e 61 6d 65 2c 20 63 68 69 6c 64 2e 66 6f 72 6d 61 74 2c 20 63 68 69 6c 64 2e 70 75 ild.name,.child.format,.child.pu
64e0 62 64 61 74 65 2c 20 63 68 69 6c 64 2e 74 69 74 6c 65 2c 20 63 68 69 6c 64 2e 6c 61 73 74 5f 6d bdate,.child.title,.child.last_m
6500 6f 64 69 66 69 65 64 2c 20 74 61 67 73 2e 6e 61 6d 65 20 41 53 20 74 61 67 2c 20 63 68 69 6c 64 odified,.tags.name.AS.tag,.child
6520 2e 75 6e 63 6f 6d 70 72 65 73 73 65 64 5f 73 69 7a 65 0a 20 20 20 20 46 52 4f 4d 0a 20 20 20 20 .uncompressed_size.....FROM.....
6540 20 20 28 53 45 4c 45 43 54 20 73 75 62 2e 69 64 2c 20 73 75 62 2e 61 75 74 68 6f 72 5f 73 6f 72 ..(SELECT.sub.id,.sub.author_sor
6560 74 2c 20 73 75 62 2e 70 61 74 68 2c 20 73 75 62 2e 6e 61 6d 65 2c 20 73 75 62 2e 66 6f 72 6d 61 t,.sub.path,.sub.name,.sub.forma
6580 74 2c 20 73 75 62 2e 70 75 62 64 61 74 65 2c 20 73 75 62 2e 74 69 74 6c 65 2c 20 73 75 62 2e 6c t,.sub.pubdate,.sub.title,.sub.l
65a0 61 73 74 5f 6d 6f 64 69 66 69 65 64 2c 20 73 75 62 2e 75 6e 63 6f 6d 70 72 65 73 73 65 64 5f 73 ast_modified,.sub.uncompressed_s
65c0 69 7a 65 2c 20 62 6f 6f 6b 73 5f 74 61 67 73 5f 6c 69 6e 6b 2e 74 61 67 0a 20 20 20 20 20 20 46 ize,.books_tags_link.tag.......F
65e0 52 4f 4d 0a 20 20 20 20 20 20 20 20 28 53 45 4c 45 43 54 20 62 2e 69 64 2c 20 62 2e 61 75 74 68 ROM.........(SELECT.b.id,.b.auth
6600 6f 72 5f 73 6f 72 74 2c 20 62 2e 70 61 74 68 2c 20 64 2e 6e 61 6d 65 2c 20 64 2e 66 6f 72 6d 61 or_sort,.b.path,.d.name,.d.forma
6620 74 2c 20 62 2e 70 75 62 64 61 74 65 2c 20 62 2e 74 69 74 6c 65 2c 20 62 2e 6c 61 73 74 5f 6d 6f t,.b.pubdate,.b.title,.b.last_mo
6640 64 69 66 69 65 64 2c 20 64 2e 75 6e 63 6f 6d 70 72 65 73 73 65 64 5f 73 69 7a 65 0a 20 20 20 20 dified,.d.uncompressed_size.....
6660 20 20 20 20 46 52 4f 4d 20 64 61 74 61 20 41 53 20 64 0a 20 20 20 20 20 20 20 20 4c 45 46 54 20 ....FROM.data.AS.d.........LEFT.
6680 4f 55 54 45 52 20 4a 4f 49 4e 20 62 6f 6f 6b 73 20 41 53 20 62 0a 20 20 20 20 20 20 20 20 4f 4e OUTER.JOIN.books.AS.b.........ON
66a0 20 64 2e 62 6f 6f 6b 20 3d 20 62 2e 69 64 29 20 41 53 20 73 75 62 0a 20 20 20 20 20 20 20 20 4c .d.book.=.b.id).AS.sub.........L
66c0 45 46 54 20 4f 55 54 45 52 20 4a 4f 49 4e 20 62 6f 6f 6b 73 5f 74 61 67 73 5f 6c 69 6e 6b 0a 20 EFT.OUTER.JOIN.books_tags_link..
66e0 20 20 20 20 20 20 20 4f 4e 20 73 75 62 2e 69 64 20 3d 20 62 6f 6f 6b 73 5f 74 61 67 73 5f 6c 69 .......ON.sub.id.=.books_tags_li
6700 6e 6b 2e 62 6f 6f 6b 29 20 41 53 20 63 68 69 6c 64 0a 20 20 20 20 20 20 4c 45 46 54 20 4f 55 54 nk.book).AS.child.......LEFT.OUT
6720 45 52 20 4a 4f 49 4e 20 74 61 67 73 0a 20 20 20 20 20 20 4f 4e 20 63 68 69 6c 64 2e 74 61 67 20 ER.JOIN.tags.......ON.child.tag.
6740 3d 20 74 61 67 73 2e 69 64 29 20 61 73 20 73 75 62 32 0a 20 20 20 20 4c 45 46 54 20 4f 55 54 45 =.tags.id).as.sub2.....LEFT.OUTE
6760 52 20 4a 4f 49 4e 20 63 6f 6d 6d 65 6e 74 73 0a 20 20 20 20 4f 4e 20 73 75 62 32 2e 69 64 20 3d R.JOIN.comments.....ON.sub2.id.=
6780 20 63 6f 6d 6d 65 6e 74 73 2e 62 6f 6f 6b 29 0a 47 52 4f 55 50 20 42 59 20 69 64 2c 20 66 6f 72 .comments.book).GROUP.BY.id,.for
67a0 6d 61 74 22 0a 20 20 22 54 4f 44 4f 20 63 61 6c 69 62 72 65 20 64 61 74 61 62 61 73 65 20 71 75 mat"..."TODO.calibre.database.qu
67c0 65 72 79 20 73 74 61 74 65 6d 65 6e 74 2e 22 29 0a 0a 28 64 65 66 76 61 72 20 63 61 6c 69 62 72 ery.statement.")..(defvar.calibr
67e0 65 64 62 2d 71 75 65 72 79 2d 73 74 72 69 6e 67 20 22 0a 57 49 54 48 20 64 20 41 53 20 28 0a 20 edb-query-string.".WITH.d.AS.(..
6800 20 20 20 53 45 4c 45 43 54 20 62 6f 6f 6b 73 2e 69 64 2c 20 62 6f 6f 6b 73 2e 69 64 20 61 73 20 ...SELECT.books.id,.books.id.as.
6820 62 6f 6f 6b 2c 20 66 6f 72 6d 61 74 2c 20 75 6e 63 6f 6d 70 72 65 73 73 65 64 5f 73 69 7a 65 2c book,.format,.uncompressed_size,
6840 20 6e 61 6d 65 0a 20 20 20 20 46 52 4f 4d 20 62 6f 6f 6b 73 0a 20 20 20 20 4c 45 46 54 20 4a 4f .name.....FROM.books.....LEFT.JO
6860 49 4e 20 64 61 74 61 0a 20 20 20 20 4f 4e 20 62 6f 6f 6b 73 2e 69 64 20 3d 20 64 61 74 61 2e 62 IN.data.....ON.books.id.=.data.b
6880 6f 6f 6b 0a 20 20 20 20 57 48 45 52 45 20 64 61 74 61 2e 62 6f 6f 6b 20 49 53 20 4e 55 4c 4c 0a ook.....WHERE.data.book.IS.NULL.
68a0 20 20 20 20 55 4e 49 4f 4e 0a 20 20 20 20 53 45 4c 45 43 54 20 2a 0a 20 20 20 20 46 52 4f 4d 20 ....UNION.....SELECT.*.....FROM.
68c0 64 61 74 61 0a 29 2c 20 74 20 41 53 20 28 0a 20 20 20 20 53 45 4c 45 43 54 20 62 6f 6f 6b 73 5f data.),.t.AS.(.....SELECT.books_
68e0 74 61 67 73 5f 6c 69 6e 6b 2e 62 6f 6f 6b 2c 20 67 72 6f 75 70 5f 63 6f 6e 63 61 74 28 44 49 53 tags_link.book,.group_concat(DIS
6900 54 49 4e 43 54 20 74 61 67 73 2e 6e 61 6d 65 29 20 41 53 20 74 61 67 0a 20 20 20 20 46 52 4f 4d TINCT.tags.name).AS.tag.....FROM
6920 20 62 6f 6f 6b 73 5f 74 61 67 73 5f 6c 69 6e 6b 0a 20 20 20 20 4c 45 46 54 20 4a 4f 49 4e 20 74 .books_tags_link.....LEFT.JOIN.t
6940 61 67 73 0a 20 20 20 20 4f 4e 20 62 6f 6f 6b 73 5f 74 61 67 73 5f 6c 69 6e 6b 2e 74 61 67 20 3d ags.....ON.books_tags_link.tag.=
6960 20 74 61 67 73 2e 69 64 0a 20 20 20 20 47 52 4f 55 50 20 42 59 20 62 6f 6f 6b 73 5f 74 61 67 73 .tags.id.....GROUP.BY.books_tags
6980 5f 6c 69 6e 6b 2e 62 6f 6f 6b 0a 29 2c 20 70 20 41 53 20 28 0a 20 20 20 20 53 45 4c 45 43 54 20 _link.book.),.p.AS.(.....SELECT.
69a0 62 6f 6f 6b 73 5f 70 75 62 6c 69 73 68 65 72 73 5f 6c 69 6e 6b 2e 62 6f 6f 6b 2c 20 70 75 62 6c books_publishers_link.book,.publ
69c0 69 73 68 65 72 73 2e 6e 61 6d 65 0a 20 20 20 20 46 52 4f 4d 20 62 6f 6f 6b 73 5f 70 75 62 6c 69 ishers.name.....FROM.books_publi
69e0 73 68 65 72 73 5f 6c 69 6e 6b 0a 20 20 20 20 4c 45 46 54 20 4a 4f 49 4e 20 70 75 62 6c 69 73 68 shers_link.....LEFT.JOIN.publish
6a00 65 72 73 0a 20 20 20 20 4f 4e 20 62 6f 6f 6b 73 5f 70 75 62 6c 69 73 68 65 72 73 5f 6c 69 6e 6b ers.....ON.books_publishers_link
6a20 2e 70 75 62 6c 69 73 68 65 72 20 3d 20 70 75 62 6c 69 73 68 65 72 73 2e 69 64 0a 29 2c 20 73 20 .publisher.=.publishers.id.),.s.
6a40 41 53 20 28 0a 20 20 20 20 53 45 4c 45 43 54 20 62 6f 6f 6b 73 5f 73 65 72 69 65 73 5f 6c 69 6e AS.(.....SELECT.books_series_lin
6a60 6b 2e 62 6f 6f 6b 2c 20 73 65 72 69 65 73 2e 6e 61 6d 65 0a 20 20 20 20 46 52 4f 4d 20 62 6f 6f k.book,.series.name.....FROM.boo
6a80 6b 73 5f 73 65 72 69 65 73 5f 6c 69 6e 6b 0a 20 20 20 20 4c 45 46 54 20 4a 4f 49 4e 20 73 65 72 ks_series_link.....LEFT.JOIN.ser
6aa0 69 65 73 0a 20 20 20 20 4f 4e 20 62 6f 6f 6b 73 5f 73 65 72 69 65 73 5f 6c 69 6e 6b 2e 73 65 72 ies.....ON.books_series_link.ser
6ac0 69 65 73 20 3d 20 73 65 72 69 65 73 2e 69 64 0a 29 2c 20 6c 20 41 53 20 28 0a 20 20 20 20 53 45 ies.=.series.id.),.l.AS.(.....SE
6ae0 4c 45 43 54 20 62 6f 6f 6b 73 5f 6c 61 6e 67 75 61 67 65 73 5f 6c 69 6e 6b 2e 62 6f 6f 6b 2c 20 LECT.books_languages_link.book,.
6b00 6c 61 6e 67 75 61 67 65 73 2e 6c 61 6e 67 5f 63 6f 64 65 0a 20 20 20 20 46 52 4f 4d 20 62 6f 6f languages.lang_code.....FROM.boo
6b20 6b 73 5f 6c 61 6e 67 75 61 67 65 73 5f 6c 69 6e 6b 0a 20 20 20 20 4c 45 46 54 20 4a 4f 49 4e 20 ks_languages_link.....LEFT.JOIN.
6b40 6c 61 6e 67 75 61 67 65 73 0a 20 20 20 20 4f 4e 20 62 6f 6f 6b 73 5f 6c 61 6e 67 75 61 67 65 73 languages.....ON.books_languages
6b60 5f 6c 69 6e 6b 2e 6c 61 6e 67 5f 63 6f 64 65 20 3d 20 6c 61 6e 67 75 61 67 65 73 2e 69 64 0a 29 _link.lang_code.=.languages.id.)
6b80 2c 20 62 20 41 53 20 28 0a 20 20 20 20 53 45 4c 45 43 54 20 2a 0a 20 20 20 20 46 52 4f 4d 20 62 ,.b.AS.(.....SELECT.*.....FROM.b
6ba0 6f 6f 6b 73 0a 29 0a 53 45 4c 45 43 54 20 64 2e 62 6f 6f 6b 20 41 53 20 69 64 2c 20 62 2e 61 75 ooks.).SELECT.d.book.AS.id,.b.au
6bc0 74 68 6f 72 5f 73 6f 72 74 2c 20 62 2e 70 61 74 68 2c 20 64 2e 6e 61 6d 65 2c 20 67 72 6f 75 70 thor_sort,.b.path,.d.name,.group
6be0 5f 63 6f 6e 63 61 74 28 44 49 53 54 49 4e 43 54 20 64 2e 66 6f 72 6d 61 74 29 20 61 73 20 66 6f _concat(DISTINCT.d.format).as.fo
6c00 72 6d 61 74 2c 20 62 2e 70 75 62 64 61 74 65 2c 20 62 2e 74 69 74 6c 65 2c 20 74 2e 74 61 67 2c rmat,.b.pubdate,.b.title,.t.tag,
6c20 20 64 2e 75 6e 63 6f 6d 70 72 65 73 73 65 64 5f 73 69 7a 65 2c 20 63 2e 74 65 78 74 2c 20 67 72 .d.uncompressed_size,.c.text,.gr
6c40 6f 75 70 5f 63 6f 6e 63 61 74 28 69 2e 74 79 70 65 20 7c 7c 20 27 3a 27 20 7c 7c 20 69 2e 76 61 oup_concat(i.type.||.':'.||.i.va
6c60 6c 29 20 41 53 20 69 64 73 2c 20 70 2e 6e 61 6d 65 20 41 53 20 70 75 62 6c 69 73 68 65 72 2c 20 l).AS.ids,.p.name.AS.publisher,.
6c80 73 2e 6e 61 6d 65 20 41 53 20 73 65 72 69 65 73 2c 20 6c 2e 6c 61 6e 67 5f 63 6f 64 65 2c 20 62 s.name.AS.series,.l.lang_code,.b
6ca0 2e 6c 61 73 74 5f 6d 6f 64 69 66 69 65 64 0a 46 52 4f 4d 20 64 0a 4c 45 46 54 20 4a 4f 49 4e 20 .last_modified.FROM.d.LEFT.JOIN.
6cc0 70 0a 4f 4e 20 64 2e 62 6f 6f 6b 20 3d 20 70 2e 62 6f 6f 6b 0a 4c 45 46 54 20 4a 4f 49 4e 20 73 p.ON.d.book.=.p.book.LEFT.JOIN.s
6ce0 0a 4f 4e 20 64 2e 62 6f 6f 6b 20 3d 20 73 2e 62 6f 6f 6b 0a 4c 45 46 54 20 4a 4f 49 4e 20 74 0a .ON.d.book.=.s.book.LEFT.JOIN.t.
6d00 4f 4e 20 64 2e 62 6f 6f 6b 20 3d 20 74 2e 62 6f 6f 6b 0a 4c 45 46 54 20 4a 4f 49 4e 20 6c 0a 4f ON.d.book.=.t.book.LEFT.JOIN.l.O
6d20 4e 20 64 2e 62 6f 6f 6b 20 3d 20 6c 2e 62 6f 6f 6b 0a 4c 45 46 54 20 4a 4f 49 4e 20 63 6f 6d 6d N.d.book.=.l.book.LEFT.JOIN.comm
6d40 65 6e 74 73 20 41 53 20 63 0a 4f 4e 20 64 2e 62 6f 6f 6b 20 3d 20 63 2e 62 6f 6f 6b 0a 4c 45 46 ents.AS.c.ON.d.book.=.c.book.LEF
6d60 54 20 4a 4f 49 4e 20 62 0a 4f 4e 20 64 2e 62 6f 6f 6b 20 3d 20 62 2e 69 64 0a 4c 45 46 54 20 4a T.JOIN.b.ON.d.book.=.b.id.LEFT.J
6d80 4f 49 4e 20 69 64 65 6e 74 69 66 69 65 72 73 20 41 53 20 69 0a 4f 4e 20 64 2e 62 6f 6f 6b 20 3d OIN.identifiers.AS.i.ON.d.book.=
6da0 20 69 2e 62 6f 6f 6b 0a 47 52 4f 55 50 20 42 59 20 64 2e 62 6f 6f 6b 22 0a 20 20 22 54 4f 44 4f .i.book.GROUP.BY.d.book"..."TODO
6dc0 20 63 61 6c 69 62 72 65 20 64 61 74 61 62 61 73 65 20 71 75 65 72 79 20 73 74 61 74 65 6d 65 6e .calibre.database.query.statemen
6de0 74 2e 22 29 0a 0a 28 64 65 66 75 6e 20 63 61 6c 69 62 72 65 64 62 2d 71 75 65 72 79 2d 73 65 61 t.")..(defun.calibredb-query-sea
6e00 72 63 68 2d 73 74 72 69 6e 67 20 28 66 69 6c 74 65 72 29 0a 20 20 22 44 45 50 52 45 43 41 54 45 rch-string.(filter)..."DEPRECATE
6e20 44 20 52 65 74 75 72 6e 20 74 68 65 20 77 68 65 72 65 20 70 61 72 74 20 6f 66 20 53 51 4c 20 62 D.Return.the.where.part.of.SQL.b
6e40 61 73 65 64 20 6f 6e 20 46 49 4c 54 45 52 2e 22 0a 20 20 28 66 6f 72 6d 61 74 0a 20 20 20 22 0a ased.on.FILTER."...(format....".
6e60 57 48 45 52 45 20 69 64 20 4c 49 4b 45 20 27 25 25 25 73 25 25 27 0a 4f 52 20 74 65 78 74 20 4c WHERE.id.LIKE.'%%%s%%'.OR.text.L
6e80 49 4b 45 20 27 25 25 25 73 25 25 27 0a 4f 52 20 74 61 67 20 4c 49 4b 45 20 27 25 25 25 73 25 25 IKE.'%%%s%%'.OR.tag.LIKE.'%%%s%%
6ea0 27 0a 4f 52 20 74 69 74 6c 65 20 4c 49 4b 45 20 27 25 25 25 73 25 25 27 0a 4f 52 20 66 6f 72 6d '.OR.title.LIKE.'%%%s%%'.OR.form
6ec0 61 74 20 4c 49 4b 45 20 27 25 25 25 73 25 25 27 0a 4f 52 20 61 75 74 68 6f 72 5f 73 6f 72 74 20 at.LIKE.'%%%s%%'.OR.author_sort.
6ee0 4c 49 4b 45 20 27 25 25 25 73 25 25 27 0a 22 20 66 69 6c 74 65 72 20 66 69 6c 74 65 72 20 66 69 LIKE.'%%%s%%'.".filter.filter.fi
6f00 6c 74 65 72 20 66 69 6c 74 65 72 20 66 69 6c 74 65 72 20 66 69 6c 74 65 72 29 29 0a 0a 28 64 65 lter.filter.filter.filter))..(de
6f20 66 75 6e 20 63 61 6c 69 62 72 65 64 62 2d 72 6f 6f 74 2d 64 69 72 2d 71 75 6f 74 65 20 28 29 0a fun.calibredb-root-dir-quote.().
6f40 20 20 22 52 65 74 75 72 6e 20 65 78 70 61 6e 64 65 64 20 61 6e 64 20 71 75 6f 74 65 64 20 63 61 .."Return.expanded.and.quoted.ca
6f60 6c 69 62 72 65 64 62 20 72 6f 6f 74 20 64 69 72 2e 22 0a 20 20 28 73 65 74 71 20 63 61 6c 69 62 libredb.root.dir."...(setq.calib
6f80 72 65 64 62 2d 72 6f 6f 74 2d 64 69 72 2d 71 75 6f 74 65 20 28 73 68 65 6c 6c 2d 71 75 6f 74 65 redb-root-dir-quote.(shell-quote
6fa0 2d 61 72 67 75 6d 65 6e 74 20 28 65 78 70 61 6e 64 2d 66 69 6c 65 2d 6e 61 6d 65 20 63 61 6c 69 -argument.(expand-file-name.cali
6fc0 62 72 65 64 62 2d 72 6f 6f 74 2d 64 69 72 29 29 29 29 0a 0a 28 63 6c 2d 64 65 66 73 74 72 75 63 bredb-root-dir))))..(cl-defstruc
6fe0 74 20 63 61 6c 69 62 72 65 64 62 2d 73 74 72 75 63 74 0a 20 20 63 6f 6d 6d 61 6e 64 20 6f 70 74 t.calibredb-struct...command.opt
7000 69 6f 6e 20 69 6e 70 75 74 20 69 64 20 6c 69 62 72 61 72 79 20 61 63 74 69 6f 6e 29 0a 0a 28 63 ion.input.id.library.action)..(c
7020 6c 2d 64 65 66 73 74 72 75 63 74 20 63 61 6c 69 62 72 65 64 62 2d 63 6f 6e 76 65 72 74 2d 73 74 l-defstruct.calibredb-convert-st
7040 72 75 63 74 0a 20 20 69 6e 70 75 74 20 6f 75 74 70 75 74 20 6f 70 74 69 6f 6e 29 0a 0a 28 64 65 ruct...input.output.option)..(de
7060 66 75 6e 20 63 61 6c 69 62 72 65 64 62 2d 67 65 74 2d 61 63 74 69 6f 6e 20 28 73 74 61 74 65 29 fun.calibredb-get-action.(state)
7080 0a 20 20 22 47 65 74 20 74 68 65 20 61 63 74 69 6f 6e 20 66 75 6e 63 74 69 6f 6e 20 66 72 6f 6d ..."Get.the.action.function.from
70a0 20 53 54 41 54 45 2e 22 0a 20 20 28 6c 65 74 20 28 28 61 63 74 69 6f 6e 20 28 63 61 6c 69 62 72 .STATE."...(let.((action.(calibr
70c0 65 64 62 2d 73 74 72 75 63 74 2d 61 63 74 69 6f 6e 20 73 74 61 74 65 29 29 29 0a 20 20 20 20 28 edb-struct-action.state))).....(
70e0 77 68 65 6e 20 61 63 74 69 6f 6e 0a 20 20 20 20 20 20 28 69 66 20 28 66 75 6e 63 74 69 6f 6e 70 when.action.......(if.(functionp
7100 20 61 63 74 69 6f 6e 29 0a 20 20 20 20 20 20 20 20 20 20 61 63 74 69 6f 6e 0a 20 20 20 20 20 20 .action)...........action.......
7120 20 20 28 63 61 64 72 20 28 6e 74 68 20 28 63 61 72 20 61 63 74 69 6f 6e 29 20 61 63 74 69 6f 6e ..(cadr.(nth.(car.action).action
7140 29 29 29 29 29 29 0a 0a 28 63 6c 2d 64 65 66 75 6e 20 63 61 6c 69 62 72 65 64 62 2d 63 6f 6d 6d ))))))..(cl-defun.calibredb-comm
7160 61 6e 64 20 28 26 6b 65 79 20 63 6f 6d 6d 61 6e 64 20 6f 70 74 69 6f 6e 20 69 6e 70 75 74 20 69 and.(&key.command.option.input.i
7180 64 20 6c 69 62 72 61 72 79 20 61 63 74 69 6f 6e 29 0a 20 20 28 6c 65 74 2a 20 28 28 63 6f 6d 6d d.library.action)...(let*.((comm
71a0 61 6e 64 2d 73 74 72 69 6e 67 20 28 6d 61 6b 65 2d 63 61 6c 69 62 72 65 64 62 2d 73 74 72 75 63 and-string.(make-calibredb-struc
71c0 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 63 6f 6d t...........................:com
71e0 6d 61 6e 64 20 63 6f 6d 6d 61 6e 64 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 mand.command....................
7200 20 20 20 20 20 20 20 3a 6f 70 74 69 6f 6e 20 6f 70 74 69 6f 6e 0a 20 20 20 20 20 20 20 20 20 20 .......:option.option...........
7220 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 69 6e 70 75 74 20 69 6e 70 75 74 0a 20 20 20 ................:input.input....
7240 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 69 64 20 69 64 0a 20 20 .......................:id.id...
7260 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 6c 69 62 72 61 72 79 ........................:library
7280 20 6c 69 62 72 61 72 79 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .library........................
72a0 20 20 20 3a 61 63 74 69 6f 6e 20 61 63 74 69 6f 6e 29 29 0a 20 20 20 20 20 20 20 20 20 28 6c 69 ...:action.action))..........(li
72c0 6e 65 20 28 6d 61 70 63 6f 6e 63 61 74 20 23 27 69 64 65 6e 74 69 74 79 0a 20 20 20 20 20 20 20 ne.(mapconcat.#'identity........
72e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 60 28 2c 63 61 6c 69 62 72 65 64 62 2d ...................`(,calibredb-
7300 70 72 6f 67 72 61 6d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 program.........................
7320 20 20 20 20 2c 28 63 61 6c 69 62 72 65 64 62 2d 73 74 72 75 63 74 2d 63 6f 6d 6d 61 6e 64 20 63 ....,(calibredb-struct-command.c
7340 6f 6d 6d 61 6e 64 2d 73 74 72 69 6e 67 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ommand-string)..................
7360 20 20 20 20 20 20 20 20 20 20 20 2c 28 63 61 6c 69 62 72 65 64 62 2d 73 74 72 75 63 74 2d 6f 70 ...........,(calibredb-struct-op
7380 74 69 6f 6e 20 63 6f 6d 6d 61 6e 64 2d 73 74 72 69 6e 67 29 0a 20 20 20 20 20 20 20 20 20 20 20 tion.command-string)............
73a0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2c 28 63 61 6c 69 62 72 65 64 62 2d 73 74 72 .................,(calibredb-str
73c0 75 63 74 2d 69 6e 70 75 74 20 63 6f 6d 6d 61 6e 64 2d 73 74 72 69 6e 67 29 0a 20 20 20 20 20 20 uct-input.command-string).......
73e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2c 28 63 61 6c 69 62 72 65 64 ......................,(calibred
7400 62 2d 73 74 72 75 63 74 2d 69 64 20 63 6f 6d 6d 61 6e 64 2d 73 74 72 69 6e 67 29 0a 20 20 20 20 b-struct-id.command-string).....
7420 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2c 28 63 61 6c 69 62 72 ........................,(calibr
7440 65 64 62 2d 73 74 72 75 63 74 2d 6c 69 62 72 61 72 79 20 63 6f 6d 6d 61 6e 64 2d 73 74 72 69 6e edb-struct-library.command-strin
7460 67 29 29 20 22 20 22 29 29 29 0a 20 20 20 20 28 73 65 74 71 2d 6c 6f 63 61 6c 20 69 6e 68 69 62 g))."."))).....(setq-local.inhib
7480 69 74 2d 6d 65 73 73 61 67 65 20 74 29 0a 20 20 20 20 28 6d 65 73 73 61 67 65 20 22 25 73 22 20 it-message.t).....(message."%s".
74a0 6c 69 6e 65 29 0a 20 20 20 20 28 6d 65 73 73 61 67 65 20 22 25 73 22 20 28 73 68 65 6c 6c 2d 63 line).....(message."%s".(shell-c
74c0 6f 6d 6d 61 6e 64 2d 74 6f 2d 73 74 72 69 6e 67 20 6c 69 6e 65 29 29 29 29 0a 0a 28 63 6c 2d 64 ommand-to-string.line))))..(cl-d
74e0 65 66 75 6e 20 63 61 6c 69 62 72 65 64 62 2d 70 72 6f 63 65 73 73 20 28 26 6b 65 79 20 63 6f 6d efun.calibredb-process.(&key.com
7500 6d 61 6e 64 20 6f 70 74 69 6f 6e 20 69 6e 70 75 74 20 69 64 20 6c 69 62 72 61 72 79 20 61 63 74 mand.option.input.id.library.act
7520 69 6f 6e 29 0a 20 20 28 6c 65 74 2a 20 28 28 63 6f 6d 6d 61 6e 64 2d 73 74 72 69 6e 67 20 28 6d ion)...(let*.((command-string.(m
7540 61 6b 65 2d 63 61 6c 69 62 72 65 64 62 2d 73 74 72 75 63 74 0a 20 20 20 20 20 20 20 20 20 20 20 ake-calibredb-struct............
7560 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 63 6f 6d 6d 61 6e 64 20 63 6f 6d 6d 61 6e 64 0a ...............:command.command.
7580 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 6f 70 74 69 6f ..........................:optio
75a0 6e 20 6f 70 74 69 6f 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 n.option........................
75c0 20 20 20 3a 69 6e 70 75 74 20 69 6e 70 75 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ...:input.input.................
75e0 20 20 20 20 20 20 20 20 20 20 3a 69 64 20 69 64 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..........:id.id................
7600 20 20 20 20 20 20 20 20 20 20 20 3a 6c 69 62 72 61 72 79 20 6c 69 62 72 61 72 79 0a 20 20 20 20 ...........:library.library.....
7620 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 61 63 74 69 6f 6e 20 61 63 ......................:action.ac
7640 74 69 6f 6e 29 29 0a 20 20 20 20 20 20 20 20 20 28 6c 69 6e 65 20 28 6d 61 70 63 6f 6e 63 61 74 tion))..........(line.(mapconcat
7660 20 23 27 69 64 65 6e 74 69 74 79 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .#'identity.....................
7680 20 20 20 20 20 20 60 28 2c 63 61 6c 69 62 72 65 64 62 2d 70 72 6f 67 72 61 6d 0a 20 20 20 20 20 ......`(,calibredb-program......
76a0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2c 28 63 61 6c 69 62 72 65 .......................,(calibre
76c0 64 62 2d 73 74 72 75 63 74 2d 63 6f 6d 6d 61 6e 64 20 63 6f 6d 6d 61 6e 64 2d 73 74 72 69 6e 67 db-struct-command.command-string
76e0 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2c 28 ).............................,(
7700 63 61 6c 69 62 72 65 64 62 2d 73 74 72 75 63 74 2d 6f 70 74 69 6f 6e 20 63 6f 6d 6d 61 6e 64 2d calibredb-struct-option.command-
7720 73 74 72 69 6e 67 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 string).........................
7740 20 20 20 20 2c 28 63 61 6c 69 62 72 65 64 62 2d 73 74 72 75 63 74 2d 69 6e 70 75 74 20 63 6f 6d ....,(calibredb-struct-input.com
7760 6d 61 6e 64 2d 73 74 72 69 6e 67 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 mand-string)....................
7780 20 20 20 20 20 20 20 20 20 2c 28 63 61 6c 69 62 72 65 64 62 2d 73 74 72 75 63 74 2d 69 64 20 63 .........,(calibredb-struct-id.c
77a0 6f 6d 6d 61 6e 64 2d 73 74 72 69 6e 67 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ommand-string)..................
77c0 20 20 20 20 20 20 20 20 20 20 20 2c 28 63 61 6c 69 62 72 65 64 62 2d 73 74 72 75 63 74 2d 6c 69 ...........,(calibredb-struct-li
77e0 62 72 61 72 79 20 63 6f 6d 6d 61 6e 64 2d 73 74 72 69 6e 67 29 29 20 22 20 22 29 29 29 0a 20 20 brary.command-string)).".")))...
7800 20 20 28 73 65 74 71 2d 6c 6f 63 61 6c 20 69 6e 68 69 62 69 74 2d 6d 65 73 73 61 67 65 20 74 29 ..(setq-local.inhibit-message.t)
7820 0a 20 20 20 20 28 6d 65 73 73 61 67 65 20 22 25 73 22 20 6c 69 6e 65 29 0a 20 20 20 20 28 73 74 .....(message."%s".line).....(st
7840 61 72 74 2d 70 72 6f 63 65 73 73 2d 73 68 65 6c 6c 2d 63 6f 6d 6d 61 6e 64 20 22 63 61 6c 69 62 art-process-shell-command."calib
7860 72 65 64 62 22 20 22 2a 63 61 6c 69 62 72 65 64 62 2a 22 20 6c 69 6e 65 29 29 29 0a 0a 3b 3b 20 redb"."*calibredb*".line)))..;;.
7880 54 4f 44 4f 0a 28 63 6c 2d 64 65 66 75 6e 20 63 61 6c 69 62 72 65 64 62 2d 63 6f 6e 76 65 72 74 TODO.(cl-defun.calibredb-convert
78a0 2d 70 72 6f 63 65 73 73 20 28 26 6b 65 79 20 69 6e 70 75 74 20 6f 75 74 70 75 74 20 6f 70 74 69 -process.(&key.input.output.opti
78c0 6f 6e 29 0a 20 20 28 6c 65 74 2a 20 28 28 63 6f 6d 6d 61 6e 64 2d 73 74 72 69 6e 67 20 28 6d 61 on)...(let*.((command-string.(ma
78e0 6b 65 2d 63 61 6c 69 62 72 65 64 62 2d 63 6f 6e 76 65 72 74 2d 73 74 72 75 63 74 0a 20 20 20 20 ke-calibredb-convert-struct.....
7900 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 69 6e 70 75 74 20 69 6e 70 ......................:input.inp
7920 75 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 6f 75 ut...........................:ou
7940 74 70 75 74 20 6f 75 74 70 75 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 tput.output.....................
7960 20 20 20 20 20 20 3a 6f 70 74 69 6f 6e 20 6f 70 74 69 6f 6e 29 29 0a 20 20 20 20 20 20 20 20 20 ......:option.option))..........
7980 28 6c 69 6e 65 20 28 6d 61 70 63 6f 6e 63 61 74 20 23 27 69 64 65 6e 74 69 74 79 0a 20 20 20 20 (line.(mapconcat.#'identity.....
79a0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 60 28 2c 63 61 6c 69 62 72 65 ......................`(,calibre
79c0 64 62 2d 63 6f 6e 76 65 72 74 2d 70 72 6f 67 72 61 6d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 db-convert-program..............
79e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2c 28 63 61 6c 69 62 72 65 64 62 2d 63 6f 6e 76 65 ...............,(calibredb-conve
7a00 72 74 2d 73 74 72 75 63 74 2d 69 6e 70 75 74 20 63 6f 6d 6d 61 6e 64 2d 73 74 72 69 6e 67 29 0a rt-struct-input.command-string).
7a20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2c 28 63 61 ............................,(ca
7a40 6c 69 62 72 65 64 62 2d 63 6f 6e 76 65 72 74 2d 73 74 72 75 63 74 2d 6f 75 74 70 75 74 20 63 6f libredb-convert-struct-output.co
7a60 6d 6d 61 6e 64 2d 73 74 72 69 6e 67 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 mmand-string)...................
7a80 20 20 20 20 20 20 20 20 20 20 2c 28 63 61 6c 69 62 72 65 64 62 2d 63 6f 6e 76 65 72 74 2d 73 74 ..........,(calibredb-convert-st
7aa0 72 75 63 74 2d 6f 70 74 69 6f 6e 20 63 6f 6d 6d 61 6e 64 2d 73 74 72 69 6e 67 29 29 20 22 20 22 ruct-option.command-string))."."
7ac0 29 29 29 0a 20 20 20 20 28 73 65 74 71 2d 6c 6f 63 61 6c 20 69 6e 68 69 62 69 74 2d 6d 65 73 73 ))).....(setq-local.inhibit-mess
7ae0 61 67 65 20 74 29 0a 20 20 20 20 28 6d 65 73 73 61 67 65 20 22 25 73 22 20 6c 69 6e 65 29 0a 20 age.t).....(message."%s".line)..
7b00 20 20 20 28 73 74 61 72 74 2d 70 72 6f 63 65 73 73 2d 73 68 65 6c 6c 2d 63 6f 6d 6d 61 6e 64 20 ...(start-process-shell-command.
7b20 22 65 62 6f 6f 6b 2d 63 6f 6e 76 65 72 74 22 20 22 2a 65 62 6f 6f 6b 2d 63 6f 6e 76 65 72 74 2a "ebook-convert"."*ebook-convert*
7b40 22 20 6c 69 6e 65 29 29 29 0a 0a 28 64 65 66 75 6e 20 63 61 6c 69 62 72 65 64 62 2d 63 68 6f 6d ".line)))..(defun.calibredb-chom
7b60 70 20 28 73 29 0a 20 20 22 41 72 67 75 6d 65 6e 74 20 53 20 69 73 20 73 74 72 69 6e 67 2e 22 0a p.(s)..."Argument.S.is.string.".
7b80 20 20 28 72 65 70 6c 61 63 65 2d 72 65 67 65 78 70 2d 69 6e 2d 73 74 72 69 6e 67 20 22 5b 5c 73 ..(replace-regexp-in-string."[\s
7ba0 5c 6e 5d 2b 24 22 20 22 22 20 73 29 29 0a 0a 28 64 65 66 76 61 72 20 63 61 6c 69 62 72 65 64 62 \n]+$"."".s))..(defvar.calibredb
7bc0 2d 64 62 2d 63 6f 6e 6e 65 63 74 69 6f 6e 20 6e 69 6c 0a 20 20 22 54 68 65 20 45 6d 61 63 53 51 -db-connection.nil..."The.EmacSQ
7be0 4c 20 64 61 74 61 62 61 73 65 20 63 6f 6e 6e 65 63 74 69 6f 6e 2e 22 29 0a 0a 28 64 65 66 75 6e L.database.connection.")..(defun
7c00 20 63 61 6c 69 62 72 65 64 62 2d 64 62 2d 63 6f 6e 6e 65 63 74 69 6f 6e 20 28 29 0a 20 20 28 73 .calibredb-db-connection.()...(s
7c20 65 74 71 20 63 61 6c 69 62 72 65 64 62 2d 64 62 2d 63 6f 6e 6e 65 63 74 69 6f 6e 20 28 66 75 6e etq.calibredb-db-connection.(fun
7c40 63 61 6c 6c 20 27 73 71 6c 69 74 65 2d 6f 70 65 6e 20 63 61 6c 69 62 72 65 64 62 2d 64 62 2d 64 call.'sqlite-open.calibredb-db-d
7c60 69 72 29 29 29 0a 0a 28 64 65 66 75 6e 20 63 61 6c 69 62 72 65 64 62 2d 71 75 65 72 79 20 28 73 ir)))..(defun.calibredb-query.(s
7c80 71 6c 2d 71 75 65 72 79 29 0a 20 20 22 51 75 65 72 79 20 63 61 6c 69 62 72 65 20 64 61 74 61 62 ql-query)..."Query.calibre.datab
7ca0 61 73 65 20 61 6e 64 20 72 65 74 75 72 6e 20 74 68 65 20 72 65 73 75 6c 74 2e 0a 41 72 67 75 6d ase.and.return.the.result..Argum
7cc0 65 6e 74 20 53 51 4c 2d 51 55 45 52 59 20 69 73 20 74 68 65 20 73 71 6c 69 74 65 20 73 71 6c 20 ent.SQL-QUERY.is.the.sqlite.sql.
7ce0 71 75 65 72 79 20 73 74 72 69 6e 67 2e 0a 0a 54 68 65 20 66 75 6e 63 74 69 6f 6e 20 77 6f 72 6b query.string...The.function.work
7d00 73 20 62 79 20 73 65 6e 64 69 6e 67 20 53 51 4c 2d 51 55 45 52 59 20 74 6f 20 60 73 71 6c 2d 73 s.by.sending.SQL-QUERY.to.`sql-s
7d20 71 6c 69 74 65 2d 70 72 6f 67 72 61 6d 27 20 69 66 20 65 6d 61 63 73 20 3c 20 32 39 20 66 6f 72 qlite-program'.if.emacs.<.29.for
7d40 20 74 68 65 0a 64 61 74 61 62 61 73 65 20 66 69 6c 65 20 64 65 66 69 6e 65 64 20 62 79 20 60 63 .the.database.file.defined.by.`c
7d60 61 6c 69 62 72 65 64 62 2d 64 62 2d 64 69 72 27 2c 20 64 75 6d 70 20 74 68 65 20 6f 75 74 70 75 alibredb-db-dir',.dump.the.outpu
7d80 74 20 74 6f 20 61 20 68 69 64 64 65 6e 0a 62 75 66 66 65 72 20 63 61 6c 6c 65 64 20 2a 63 61 6c t.to.a.hidden.buffer.called.*cal
7da0 69 62 72 65 64 62 2d 71 75 65 72 79 2d 6f 75 74 70 75 74 2a 2c 20 74 68 65 6e 20 69 66 20 74 68 ibredb-query-output*,.then.if.th
7dc0 65 20 73 71 6c 69 74 65 20 70 72 6f 67 72 61 6d 0a 74 65 72 6d 69 6e 61 74 65 73 20 73 75 63 63 e.sqlite.program.terminates.succ
7de0 65 73 73 66 75 6c 6c 79 2c 20 69 74 20 77 69 6c 6c 20 72 65 74 75 72 6e 20 74 68 65 20 73 74 72 essfully,.it.will.return.the.str
7e00 69 6e 67 20 6f 66 20 74 68 65 20 6f 75 74 70 75 74 0a 62 75 66 66 65 72 2e 20 49 66 20 74 68 65 ing.of.the.output.buffer..If.the
7e20 20 70 72 6f 67 72 61 6d 20 66 61 69 6c 73 2c 20 69 74 20 77 69 6c 6c 20 73 77 69 74 63 68 20 74 .program.fails,.it.will.switch.t
7e40 6f 20 74 68 65 20 6f 75 74 70 75 74 20 62 75 66 66 65 72 20 61 6e 64 0a 74 65 6c 6c 20 75 73 65 o.the.output.buffer.and.tell.use
7e60 72 20 73 6f 6d 65 74 68 69 6e 67 e2 80 99 73 20 77 72 6f 6e 67 2e 22 0a 20 20 28 69 66 20 28 61 r.something...s.wrong."...(if.(a
7e80 6e 64 20 28 66 75 6e 63 74 69 6f 6e 70 20 27 73 71 6c 69 74 65 2d 61 76 61 69 6c 61 62 6c 65 2d nd.(functionp.'sqlite-available-
7ea0 70 29 20 28 73 71 6c 69 74 65 2d 61 76 61 69 6c 61 62 6c 65 2d 70 29 29 0a 20 20 20 20 20 20 28 p).(sqlite-available-p)).......(
7ec0 73 71 6c 69 74 65 2d 65 78 65 63 75 74 65 20 63 61 6c 69 62 72 65 64 62 2d 64 62 2d 63 6f 6e 6e sqlite-execute.calibredb-db-conn
7ee0 65 63 74 69 6f 6e 20 73 71 6c 2d 71 75 65 72 79 29 0a 20 20 20 28 6c 65 74 20 28 28 6f 75 74 2d ection.sql-query)....(let.((out-
7f00 62 75 66 20 22 20 2a 63 61 6c 69 62 72 65 64 62 2d 71 75 65 72 79 2d 6f 75 74 70 75 74 2a 22 29 buf.".*calibredb-query-output*")
7f20 29 0a 20 20 20 20 28 77 68 65 6e 20 28 67 65 74 2d 62 75 66 66 65 72 20 6f 75 74 2d 62 75 66 29 ).....(when.(get-buffer.out-buf)
7f40 0a 20 20 20 20 20 20 28 6b 69 6c 6c 2d 62 75 66 66 65 72 20 6f 75 74 2d 62 75 66 29 29 0a 20 20 .......(kill-buffer.out-buf))...
7f60 20 20 28 69 66 20 28 6e 6f 74 20 28 66 69 6c 65 2d 65 78 69 73 74 73 2d 70 20 63 61 6c 69 62 72 ..(if.(not.(file-exists-p.calibr
7f80 65 64 62 2d 64 62 2d 64 69 72 29 29 0a 20 20 20 20 20 20 20 20 28 6d 65 73 73 61 67 65 20 22 63 edb-db-dir)).........(message."c
7fa0 61 6c 69 62 72 65 64 62 2d 71 75 65 72 79 3a 20 63 61 6c 69 62 72 65 64 62 2d 64 62 2d 64 69 72 alibredb-query:.calibredb-db-dir
7fc0 20 69 73 20 6e 69 6c 21 20 63 61 6c 69 62 72 65 64 62 2d 71 75 65 72 79 20 77 6f 6e 27 74 20 77 .is.nil!.calibredb-query.won't.w
7fe0 6f 72 6b 20 77 69 74 68 6f 75 74 20 69 74 2e 22 29 0a 20 20 20 20 20 20 28 69 66 20 28 7a 65 72 ork.without.it.").......(if.(zer
8000 6f 70 20 28 63 61 6c 6c 2d 70 72 6f 63 65 73 73 2d 73 68 65 6c 6c 2d 63 6f 6d 6d 61 6e 64 0a 20 op.(call-process-shell-command..
8020 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 6f 72 6d 61 74 20 22 25 73 20 2d 73 65 .................(format."%s.-se
8040 70 61 72 61 74 6f 72 20 25 73 20 2d 6e 65 77 6c 69 6e 65 20 25 73 20 2d 6c 69 73 74 20 2d 6e 75 parator.%s.-newline.%s.-list.-nu
8060 6c 6c 76 61 6c 75 65 20 27 27 20 2d 6e 6f 68 65 61 64 65 72 20 25 73 20 5c 22 25 73 5c 22 22 0a llvalue.''.-noheader.%s.\"%s\"".
8080 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 71 6c 2d 73 71 ..........................sql-sq
80a0 6c 69 74 65 2d 70 72 6f 67 72 61 6d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 lite-program....................
80c0 20 20 20 20 20 20 20 63 61 6c 69 62 72 65 64 62 2d 73 71 6c 2d 73 65 70 61 72 61 74 6f 72 0a 20 .......calibredb-sql-separator..
80e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 61 6c 69 62 72 65 .........................calibre
8100 64 62 2d 73 71 6c 2d 6e 65 77 6c 69 6e 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 db-sql-newline..................
8120 20 20 20 20 20 20 20 20 20 28 73 68 65 6c 6c 2d 71 75 6f 74 65 2d 61 72 67 75 6d 65 6e 74 20 28 .........(shell-quote-argument.(
8140 65 78 70 61 6e 64 2d 66 69 6c 65 2d 6e 61 6d 65 20 63 61 6c 69 62 72 65 64 62 2d 64 62 2d 64 69 expand-file-name.calibredb-db-di
8160 72 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 71 r))...........................sq
8180 6c 2d 71 75 65 72 79 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6e 69 6c 20 28 l-query)...................nil.(
81a0 6c 69 73 74 20 6f 75 74 2d 62 75 66 20 74 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 3b 3b 20 49 list.out-buf.t)))...........;;.I
81c0 66 20 74 68 69 73 20 63 6f 6d 6d 61 6e 64 20 74 65 72 6d 69 6e 61 74 65 73 20 73 75 63 63 65 73 f.this.command.terminates.succes
81e0 73 66 75 6c 6c 79 20 28 72 65 74 75 72 6e 20 30 29 0a 20 20 20 20 20 20 20 20 20 20 3b 3b 20 52 sfully.(return.0)...........;;.R
8200 65 74 75 72 6e 20 74 68 65 20 6f 75 74 70 75 74 27 73 20 73 74 72 69 6e 67 0a 20 20 20 20 20 20 eturn.the.output's.string.......
8220 20 20 20 20 28 77 69 74 68 2d 63 75 72 72 65 6e 74 2d 62 75 66 66 65 72 20 6f 75 74 2d 62 75 66 ....(with-current-buffer.out-buf
8240 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 62 75 66 66 65 72 2d 73 74 72 69 6e 67 29 29 0a 20 20 .............(buffer-string))...
8260 20 20 20 20 20 20 3b 3b 20 49 66 20 74 68 69 73 20 63 6f 6d 6d 61 6e 64 20 66 61 69 6c 73 20 72 ......;;.If.this.command.fails.r
8280 65 74 75 72 6e 20 27 65 72 72 6f 72 0a 20 20 20 20 20 20 20 20 28 73 77 69 74 63 68 2d 74 6f 2d eturn.'error.........(switch-to-
82a0 62 75 66 66 65 72 20 6f 75 74 2d 62 75 66 29 0a 20 20 20 20 20 20 20 20 28 67 6f 74 6f 2d 63 68 buffer.out-buf).........(goto-ch
82c0 61 72 20 28 70 6f 69 6e 74 2d 6d 69 6e 29 29 0a 20 20 20 20 20 20 20 20 28 65 72 72 6f 72 20 22 ar.(point-min)).........(error."
82e0 45 72 72 6f 72 3a 20 60 63 61 6c 69 62 72 65 64 62 2d 71 75 65 72 79 27 20 63 61 6e 27 74 20 71 Error:.`calibredb-query'.can't.q
8300 75 65 72 79 20 5c 22 25 73 5c 22 2e 20 73 77 69 74 63 68 69 6e 67 20 74 6f 20 69 74 73 20 65 72 uery.\"%s\"..switching.to.its.er
8320 72 6f 72 20 62 75 66 66 65 72 22 20 28 65 78 70 61 6e 64 2d 66 69 6c 65 2d 6e 61 6d 65 20 63 61 ror.buffer".(expand-file-name.ca
8340 6c 69 62 72 65 64 62 2d 64 62 2d 64 69 72 29 29 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 63 61 libredb-db-dir)))))))..(defun.ca
8360 6c 69 62 72 65 64 62 2d 71 75 65 72 79 2d 74 6f 2d 61 6c 69 73 74 20 28 71 75 65 72 79 2d 72 65 libredb-query-to-alist.(query-re
8380 73 75 6c 74 29 0a 20 20 22 42 75 69 6c 64 73 20 61 6c 69 73 74 20 6f 75 74 20 6f 66 20 61 20 66 sult)..."Builds.alist.out.of.a.f
83a0 75 6c 6c 20 60 63 61 6c 69 62 72 65 64 62 2d 71 75 65 72 79 27 20 71 75 65 72 79 20 72 65 63 6f ull.`calibredb-query'.query.reco
83c0 72 64 20 72 65 73 75 6c 74 2e 0a 41 72 67 75 6d 65 6e 74 20 51 55 45 52 59 2d 52 45 53 55 4c 54 rd.result..Argument.QUERY-RESULT
83e0 20 69 73 20 74 68 65 20 71 75 65 72 79 20 72 65 73 75 6c 74 20 67 65 6e 65 72 61 74 65 20 62 79 .is.the.query.result.generate.by
8400 20 73 71 6c 69 74 65 2e 22 0a 20 20 28 69 66 20 71 75 65 72 79 2d 72 65 73 75 6c 74 0a 20 20 20 .sqlite."...(if.query-result....
8420 20 20 20 28 6c 65 74 20 28 28 73 70 6c 2d 71 75 65 72 79 2d 72 65 73 75 6c 74 20 28 69 66 20 28 ...(let.((spl-query-result.(if.(
8440 61 6e 64 20 28 66 75 6e 63 74 69 6f 6e 70 20 27 73 71 6c 69 74 65 2d 61 76 61 69 6c 61 62 6c 65 and.(functionp.'sqlite-available
8460 2d 70 29 20 28 73 71 6c 69 74 65 2d 61 76 61 69 6c 61 62 6c 65 2d 70 29 29 0a 20 20 20 20 20 20 -p).(sqlite-available-p)).......
8480 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 71 75 65 72 ............................quer
84a0 79 2d 72 65 73 75 6c 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 y-result........................
84c0 20 20 20 20 20 20 20 20 20 28 73 70 6c 69 74 2d 73 74 72 69 6e 67 20 28 63 61 6c 69 62 72 65 64 .........(split-string.(calibred
84e0 62 2d 63 68 6f 6d 70 20 71 75 65 72 79 2d 72 65 73 75 6c 74 29 20 63 61 6c 69 62 72 65 64 62 2d b-chomp.query-result).calibredb-
8500 73 71 6c 2d 73 65 70 61 72 61 74 6f 72 29 29 29 29 0a 20 20 20 20 20 20 20 20 60 28 28 3a 69 64 sql-separator)))).........`((:id
8520 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2c 28 6c 65 74 20 28 28 69 64 20 .....................,(let.((id.
8540 28 6e 74 68 20 30 20 73 70 6c 2d 71 75 65 72 79 2d 72 65 73 75 6c 74 29 29 29 0a 20 20 20 20 20 (nth.0.spl-query-result)))......
8560 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ................................
8580 20 28 69 66 20 28 73 74 72 69 6e 67 70 20 69 64 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .(if.(stringp.id)...............
85a0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 64 0a 20 ............................id..
85c0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ................................
85e0 20 20 20 20 20 20 20 28 6e 75 6d 62 65 72 2d 74 6f 2d 73 74 72 69 6e 67 20 69 64 29 29 29 29 0a .......(number-to-string.id)))).
8600 20 20 20 20 20 20 20 20 20 20 28 3a 61 75 74 68 6f 72 2d 73 6f 72 74 20 20 20 20 20 20 20 20 20 ..........(:author-sort.........
8620 20 20 20 2c 28 6e 74 68 20 31 20 73 70 6c 2d 71 75 65 72 79 2d 72 65 73 75 6c 74 29 29 0a 20 20 ...,(nth.1.spl-query-result))...
8640 20 20 20 20 20 20 20 20 28 3a 62 6f 6f 6b 2d 64 69 72 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ........(:book-dir..............
8660 20 2c 28 6e 74 68 20 32 20 73 70 6c 2d 71 75 65 72 79 2d 72 65 73 75 6c 74 29 29 0a 20 20 20 20 .,(nth.2.spl-query-result)).....
8680 20 20 20 20 20 20 28 3a 62 6f 6f 6b 2d 6e 61 6d 65 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2c ......(:book-name..............,
86a0 28 6e 74 68 20 33 20 73 70 6c 2d 71 75 65 72 79 2d 72 65 73 75 6c 74 29 29 0a 20 20 20 20 20 20 (nth.3.spl-query-result)).......
86c0 20 20 20 20 28 3a 62 6f 6f 6b 2d 66 6f 72 6d 61 74 20 20 2c 28 64 6f 77 6e 63 61 73 65 20 28 6f ....(:book-format..,(downcase.(o
86e0 72 20 28 6e 74 68 20 34 20 73 70 6c 2d 71 75 65 72 79 2d 72 65 73 75 6c 74 29 20 22 22 29 29 29 r.(nth.4.spl-query-result)."")))
8700 0a 20 20 20 20 20 20 20 20 20 20 28 3a 62 6f 6f 6b 2d 70 75 62 64 61 74 65 20 20 20 20 20 20 20 ...........(:book-pubdate.......
8720 20 20 20 20 2c 28 6e 74 68 20 35 20 73 70 6c 2d 71 75 65 72 79 2d 72 65 73 75 6c 74 29 29 0a 20 ....,(nth.5.spl-query-result))..
8740 20 20 20 20 20 20 20 20 20 28 3a 62 6f 6f 6b 2d 74 69 74 6c 65 20 20 20 20 20 20 20 20 20 20 20 .........(:book-title...........
8760 20 20 2c 28 6e 74 68 20 36 20 73 70 6c 2d 71 75 65 72 79 2d 72 65 73 75 6c 74 29 29 0a 20 20 20 ..,(nth.6.spl-query-result))....
8780 20 20 20 20 20 20 20 28 3a 66 69 6c 65 2d 70 61 74 68 20 20 20 20 2c 28 63 6f 6e 63 61 74 20 28 .......(:file-path....,(concat.(
87a0 66 69 6c 65 2d 6e 61 6d 65 2d 61 73 2d 64 69 72 65 63 74 6f 72 79 20 63 61 6c 69 62 72 65 64 62 file-name-as-directory.calibredb
87c0 2d 72 6f 6f 74 2d 64 69 72 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 -root-dir)......................
87e0 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 69 6c 65 2d 6e 61 6d 65 2d 61 73 2d 64 69 72 65 63 .............(file-name-as-direc
8800 74 6f 72 79 20 28 6e 74 68 20 32 20 73 70 6c 2d 71 75 65 72 79 2d 72 65 73 75 6c 74 29 29 0a 20 tory.(nth.2.spl-query-result))..
8820 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ................................
8840 20 28 6e 74 68 20 33 20 73 70 6c 2d 71 75 65 72 79 2d 72 65 73 75 6c 74 29 20 22 2e 22 20 28 64 .(nth.3.spl-query-result).".".(d
8860 6f 77 6e 63 61 73 65 20 28 6f 72 20 28 6e 74 68 20 34 20 73 70 6c 2d 71 75 65 72 79 2d 72 65 73 owncase.(or.(nth.4.spl-query-res
8880 75 6c 74 29 20 22 22 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 3a 74 61 67 20 20 20 20 20 ult).""))))...........(:tag.....
88a0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2c 28 6f 72 20 28 6e 74 68 20 37 20 73 70 6c 2d 71 ...............,(or.(nth.7.spl-q
88c0 75 65 72 79 2d 72 65 73 75 6c 74 29 20 22 22 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 3a 73 69 uery-result).""))...........(:si
88e0 7a 65 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2c 28 66 6f 72 6d 61 74 20 22 25 ze...................,(format."%
8900 2e 32 66 22 20 28 2f 20 28 6c 65 74 20 28 28 73 69 7a 65 20 28 6f 72 20 28 6e 74 68 20 38 20 73 .2f".(/.(let.((size.(or.(nth.8.s
8920 70 6c 2d 71 75 65 72 79 2d 72 65 73 75 6c 74 29 20 22 22 29 29 29 0a 20 20 20 20 20 20 20 20 20 pl-query-result)."")))..........
8940 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ................................
8960 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 66 20 28 73 74 72 69 6e 67 70 20 73 69 7a 65 ...............(if.(stringp.size
8980 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 )...............................
89a0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 ..............................(s
89c0 74 72 69 6e 67 2d 74 6f 2d 6e 75 6d 62 65 72 20 73 69 7a 65 29 20 73 69 7a 65 29 29 20 31 30 34 tring-to-number.size).size)).104
89e0 38 35 37 36 2e 30 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 3a 63 6f 6d 6d 65 6e 74 20 20 20 8576.0)))...........(:comment...
8a00 20 20 20 20 20 20 20 20 20 20 20 20 20 2c 28 6f 72 20 28 6e 74 68 20 39 20 73 70 6c 2d 71 75 65 .............,(or.(nth.9.spl-que
8a20 72 79 2d 72 65 73 75 6c 74 29 20 22 22 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 3a 69 64 73 20 ry-result).""))...........(:ids.
8a40 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2c 28 6f 72 20 28 6e 74 68 20 31 30 20 ...................,(or.(nth.10.
8a60 73 70 6c 2d 71 75 65 72 79 2d 72 65 73 75 6c 74 29 20 22 22 29 29 0a 20 20 20 20 20 20 20 20 20 spl-query-result).""))..........
8a80 20 28 3a 70 75 62 6c 69 73 68 65 72 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2c 28 6f 72 20 28 .(:publisher..............,(or.(
8aa0 6e 74 68 20 31 31 20 73 70 6c 2d 71 75 65 72 79 2d 72 65 73 75 6c 74 29 20 22 22 29 29 0a 20 20 nth.11.spl-query-result).""))...
8ac0 20 20 20 20 20 20 20 20 28 3a 73 65 72 69 65 73 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ........(:series................
8ae0 20 2c 28 6f 72 20 28 6e 74 68 20 31 32 20 73 70 6c 2d 71 75 65 72 79 2d 72 65 73 75 6c 74 29 20 .,(or.(nth.12.spl-query-result).
8b00 22 22 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 3a 6c 61 6e 67 5f 63 6f 64 65 20 20 20 20 20 20 ""))...........(:lang_code......
8b20 20 20 20 20 20 20 20 20 2c 28 6f 72 20 28 6e 74 68 20 31 33 20 73 70 6c 2d 71 75 65 72 79 2d 72 ........,(or.(nth.13.spl-query-r
8b40 65 73 75 6c 74 29 20 22 22 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 3a 6c 61 73 74 5f 6d 6f 64 esult).""))...........(:last_mod
8b60 69 66 69 65 64 20 20 20 20 20 20 20 20 20 20 2c 28 6f 72 20 28 6e 74 68 20 31 34 20 73 70 6c 2d ified..........,(or.(nth.14.spl-
8b80 71 75 65 72 79 2d 72 65 73 75 6c 74 29 20 22 22 29 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 63 query-result).""))))))..(defun.c
8ba0 61 6c 69 62 72 65 64 62 2d 67 65 74 61 74 74 72 20 28 6d 79 2d 61 6c 69 73 74 20 6b 65 79 29 0a alibredb-getattr.(my-alist.key).
8bc0 20 20 22 47 65 74 20 74 68 65 20 61 74 74 72 69 62 75 74 65 2e 0a 41 72 67 75 6d 65 6e 74 20 4d .."Get.the.attribute..Argument.M
8be0 59 2d 41 4c 49 53 54 20 69 73 20 74 68 65 20 61 6c 69 73 74 2e 0a 41 72 67 75 6d 65 6e 74 20 4b Y-ALIST.is.the.alist..Argument.K
8c00 45 59 20 69 73 20 74 68 65 20 6b 65 79 2e 22 0a 20 20 28 63 61 64 72 20 28 61 73 73 71 20 6b 65 EY.is.the.key."...(cadr.(assq.ke
8c20 79 20 28 63 61 72 20 6d 79 2d 61 6c 69 73 74 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 63 61 6c 69 y.(car.my-alist))))..(defun.cali
8c40 62 72 65 64 62 2d 66 6f 72 6d 61 74 2d 63 6f 6c 75 6d 6e 20 28 73 74 72 69 6e 67 20 77 69 64 74 bredb-format-column.(string.widt
8c60 68 20 26 6f 70 74 69 6f 6e 61 6c 20 61 6c 69 67 6e 29 0a 20 20 22 52 65 74 75 72 6e 20 53 54 52 h.&optional.align)..."Return.STR
8c80 49 4e 47 20 74 72 75 6e 63 61 74 65 64 20 6f 72 20 70 61 64 64 65 64 20 74 6f 20 57 49 44 54 48 ING.truncated.or.padded.to.WIDTH
8ca0 20 66 6f 6c 6c 6f 77 69 6e 67 20 41 4c 49 47 4e 6d 65 6e 74 2e 0a 41 4c 49 47 4e 20 73 68 6f 75 .following.ALIGNment..ALIGN.shou
8cc0 6c 64 20 62 65 20 61 20 6b 65 79 77 6f 72 64 20 3a 6c 65 66 74 20 6f 72 20 3a 72 69 67 68 74 2e ld.be.a.keyword.:left.or.:right.
8ce0 22 0a 20 20 28 63 6f 6e 64 20 28 28 3c 20 77 69 64 74 68 20 30 29 20 73 74 72 69 6e 67 29 0a 20 "...(cond.((<.width.0).string)..
8d00 20 20 20 20 20 20 20 28 28 3d 20 77 69 64 74 68 20 30 29 20 22 22 29 0a 20 20 20 20 20 20 20 20 .......((=.width.0)."").........
8d20 28 74 20 28 66 6f 72 6d 61 74 20 28 66 6f 72 6d 61 74 20 22 25 25 25 73 25 64 2e 25 64 73 22 20 (t.(format.(format."%%%s%d.%ds".
8d40 28 69 66 20 28 65 71 20 61 6c 69 67 6e 20 3a 6c 65 66 74 29 20 22 2d 22 20 22 22 29 20 77 69 64 (if.(eq.align.:left)."-"."").wid
8d60 74 68 20 77 69 64 74 68 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 74 72 th.width)....................str
8d80 69 6e 67 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 63 61 6c 69 62 72 65 64 62 2d 74 69 74 6c 65 2d ing))))..(defun.calibredb-title-
8da0 66 61 63 65 20 28 29 0a 20 20 22 52 65 74 75 72 6e 20 74 68 65 20 74 69 74 6c 65 20 66 61 63 65 face.()..."Return.the.title.face
8dc0 20 62 61 73 65 20 6f 6e 20 74 68 65 20 76 69 65 77 2e 22 0a 20 20 28 69 66 20 63 61 6c 69 62 72 .base.on.the.view."...(if.calibr
8de0 65 64 62 2d 64 65 74 61 69 6c 65 64 2d 76 69 65 77 0a 20 20 20 20 20 20 27 63 61 6c 69 62 72 65 edb-detailed-view.......'calibre
8e00 64 62 2d 74 69 74 6c 65 2d 64 65 74 61 69 6c 65 64 2d 76 69 65 77 2d 66 61 63 65 0a 20 20 20 20 db-title-detailed-view-face.....
8e20 20 20 27 63 61 6c 69 62 72 65 64 62 2d 74 69 74 6c 65 2d 66 61 63 65 29 29 0a 0a 28 64 65 66 75 ..'calibredb-title-face))..(defu
8e40 6e 20 63 61 6c 69 62 72 65 64 62 2d 74 69 74 6c 65 2d 77 69 64 74 68 20 28 29 0a 20 20 22 52 65 n.calibredb-title-width.()..."Re
8e60 74 75 72 6e 20 74 68 65 20 74 69 74 6c 65 20 77 69 64 74 68 20 62 61 73 65 20 6f 6e 20 74 68 65 turn.the.title.width.base.on.the
8e80 20 76 69 65 77 2e 22 0a 20 20 28 69 66 20 63 61 6c 69 62 72 65 64 62 2d 64 65 74 61 69 6c 65 64 .view."...(if.calibredb-detailed
8ea0 2d 76 69 65 77 0a 20 20 20 20 20 20 2d 31 0a 20 20 20 20 63 61 6c 69 62 72 65 64 62 2d 74 69 74 -view.......-1.....calibredb-tit
8ec0 6c 65 2d 77 69 64 74 68 29 29 0a 0a 28 64 65 66 75 6e 20 63 61 6c 69 62 72 65 64 62 2d 66 6f 72 le-width))..(defun.calibredb-for
8ee0 6d 61 74 2d 77 69 64 74 68 20 28 29 0a 20 20 22 52 65 74 75 72 6e 20 74 68 65 20 66 6f 72 6d 61 mat-width.()..."Return.the.forma
8f00 74 20 77 69 64 74 68 20 62 61 73 65 20 6f 6e 20 74 68 65 20 76 69 65 77 2e 22 0a 20 20 28 69 66 t.width.base.on.the.view."...(if
8f20 20 63 61 6c 69 62 72 65 64 62 2d 64 65 74 61 69 6c 65 64 2d 76 69 65 77 0a 20 20 20 20 20 20 2d .calibredb-detailed-view.......-
8f40 31 0a 20 20 20 20 63 61 6c 69 62 72 65 64 62 2d 66 6f 72 6d 61 74 2d 77 69 64 74 68 29 29 0a 0a 1.....calibredb-format-width))..
8f60 28 64 65 66 75 6e 20 63 61 6c 69 62 72 65 64 62 2d 74 61 67 2d 77 69 64 74 68 20 28 29 0a 20 20 (defun.calibredb-tag-width.()...
8f80 22 52 65 74 75 72 6e 20 74 68 65 20 74 61 67 20 77 69 64 74 68 20 62 61 73 65 20 6f 6e 20 74 68 "Return.the.tag.width.base.on.th
8fa0 65 20 76 69 65 77 2e 22 0a 20 20 28 69 66 20 63 61 6c 69 62 72 65 64 62 2d 64 65 74 61 69 6c 65 e.view."...(if.calibredb-detaile
8fc0 64 2d 76 69 65 77 0a 20 20 20 20 20 20 2d 31 0a 20 20 20 20 63 61 6c 69 62 72 65 64 62 2d 74 61 d-view.......-1.....calibredb-ta
8fe0 67 2d 77 69 64 74 68 29 29 0a 0a 28 64 65 66 75 6e 20 63 61 6c 69 62 72 65 64 62 2d 69 64 73 2d g-width))..(defun.calibredb-ids-
9000 77 69 64 74 68 20 28 29 0a 20 20 22 52 65 74 75 72 6e 20 74 68 65 20 69 64 73 20 77 69 64 74 68 width.()..."Return.the.ids.width
9020 20 62 61 73 65 20 6f 6e 20 74 68 65 20 76 69 65 77 2e 22 0a 20 20 28 69 66 20 63 61 6c 69 62 72 .base.on.the.view."...(if.calibr
9040 65 64 62 2d 64 65 74 61 69 6c 65 64 2d 76 69 65 77 0a 20 20 20 20 20 20 2d 31 0a 20 20 20 20 63 edb-detailed-view.......-1.....c
9060 61 6c 69 62 72 65 64 62 2d 69 64 73 2d 77 69 64 74 68 29 29 0a 0a 28 64 65 66 75 6e 20 63 61 6c alibredb-ids-width))..(defun.cal
9080 69 62 72 65 64 62 2d 61 75 74 68 6f 72 2d 77 69 64 74 68 20 28 29 0a 20 20 22 52 65 74 75 72 6e ibredb-author-width.()..."Return
90a0 20 74 68 65 20 61 75 74 68 6f 72 20 77 69 64 74 68 20 62 61 73 65 20 6f 6e 20 74 68 65 20 76 69 .the.author.width.base.on.the.vi
90c0 65 77 2e 22 0a 20 20 28 69 66 20 63 61 6c 69 62 72 65 64 62 2d 64 65 74 61 69 6c 65 64 2d 76 69 ew."...(if.calibredb-detailed-vi
90e0 65 77 0a 20 20 20 20 20 20 2d 31 0a 20 20 20 20 63 61 6c 69 62 72 65 64 62 2d 61 75 74 68 6f 72 ew.......-1.....calibredb-author
9100 2d 77 69 64 74 68 29 29 0a 0a 28 64 65 66 75 6e 20 63 61 6c 69 62 72 65 64 62 2d 63 6f 6d 6d 65 -width))..(defun.calibredb-comme
9120 6e 74 2d 77 69 64 74 68 20 28 29 0a 20 20 22 52 65 74 75 72 6e 20 74 68 65 20 63 6f 6d 6d 65 6e nt-width.()..."Return.the.commen
9140 74 20 77 69 64 74 68 20 62 61 73 65 20 6f 6e 20 74 68 65 20 76 69 65 77 2e 22 0a 20 20 28 69 66 t.width.base.on.the.view."...(if
9160 20 63 61 6c 69 62 72 65 64 62 2d 64 65 74 61 69 6c 65 64 2d 76 69 65 77 0a 20 20 20 20 20 20 2d .calibredb-detailed-view.......-
9180 31 0a 20 20 20 20 63 61 6c 69 62 72 65 64 62 2d 63 6f 6d 6d 65 6e 74 2d 77 69 64 74 68 29 29 0a 1.....calibredb-comment-width)).
91a0 0a 28 64 65 66 75 6e 20 63 61 6c 69 62 72 65 64 62 2d 64 61 74 65 2d 77 69 64 74 68 20 28 29 0a .(defun.calibredb-date-width.().
91c0 20 20 22 52 65 74 75 72 6e 20 74 68 65 20 6c 61 73 74 5f 6d 6f 64 69 66 69 65 64 20 64 61 74 65 .."Return.the.last_modified.date
91e0 20 77 69 64 74 68 20 62 61 73 65 20 6f 6e 20 74 68 65 20 76 69 65 77 2e 22 0a 20 20 28 69 66 20 .width.base.on.the.view."...(if.
9200 63 61 6c 69 62 72 65 64 62 2d 64 65 74 61 69 6c 65 64 2d 76 69 65 77 0a 20 20 20 20 20 20 2d 31 calibredb-detailed-view.......-1
9220 0a 20 20 20 20 63 61 6c 69 62 72 65 64 62 2d 64 61 74 65 2d 77 69 64 74 68 29 29 0a 0a 28 64 65 .....calibredb-date-width))..(de
9240 66 75 6e 20 63 61 6c 69 62 72 65 64 62 2d 67 65 74 62 6f 6f 6b 6c 69 73 74 20 28 63 61 6c 69 62 fun.calibredb-getbooklist.(calib
9260 72 65 2d 69 74 65 6d 2d 6c 69 73 74 29 0a 20 20 22 47 65 74 20 62 6f 6f 6b 20 6c 69 73 74 2e 0a re-item-list)..."Get.book.list..
9280 41 72 67 75 6d 65 6e 74 20 43 41 4c 49 42 52 45 2d 49 54 45 4d 2d 4c 49 53 54 20 69 73 20 74 68 Argument.CALIBRE-ITEM-LIST.is.th
92a0 65 20 63 61 6c 69 62 72 65 64 20 69 74 65 6d 20 6c 69 73 74 2e 22 0a 20 20 28 6c 65 74 20 28 64 e.calibred.item.list."...(let.(d
92c0 69 73 70 6c 61 79 2d 61 6c 69 73 74 29 0a 20 20 20 20 28 64 6f 6c 69 73 74 20 28 69 74 65 6d 20 isplay-alist).....(dolist.(item.
92e0 63 61 6c 69 62 72 65 2d 69 74 65 6d 2d 6c 69 73 74 20 64 69 73 70 6c 61 79 2d 61 6c 69 73 74 29 calibre-item-list.display-alist)
9300 0a 20 20 20 20 20 20 28 73 65 74 71 20 64 69 73 70 6c 61 79 2d 61 6c 69 73 74 0a 20 20 20 20 20 .......(setq.display-alist......
9320 20 20 20 20 20 20 20 28 63 6f 6e 73 20 28 6c 69 73 74 20 28 63 61 6c 69 62 72 65 64 62 2d 66 6f .......(cons.(list.(calibredb-fo
9340 72 6d 61 74 2d 69 74 65 6d 20 69 74 65 6d 29 20 69 74 65 6d 29 20 64 69 73 70 6c 61 79 2d 61 6c rmat-item.item).item).display-al
9360 69 73 74 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 63 61 6c 69 62 72 65 64 62 2d 63 61 6e 64 69 ist)))))..(defun.calibredb-candi
9380 64 61 74 65 73 20 28 29 0a 20 20 22 47 65 6e 65 72 61 74 65 20 65 62 6f 6f 6b 73 20 63 61 6e 64 dates.()..."Generate.ebooks.cand
93a0 69 64 61 74 65 73 20 61 6c 69 73 74 2e 22 0a 20 20 28 6c 65 74 2a 20 28 28 71 75 65 72 79 2d 72 idates.alist."...(let*.((query-r
93c0 65 73 75 6c 74 20 28 63 61 6c 69 62 72 65 64 62 2d 71 75 65 72 79 20 28 63 6f 6e 63 61 74 20 63 esult.(calibredb-query.(concat.c
93e0 61 6c 69 62 72 65 64 62 2d 71 75 65 72 79 2d 73 74 72 69 6e 67 0a 20 20 20 20 20 20 20 20 20 20 alibredb-query-string...........
9400 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ................................
9420 20 20 20 20 20 20 28 70 63 61 73 65 20 63 61 6c 69 62 72 65 64 62 2d 73 6f 72 74 2d 62 79 0a 20 ......(pcase.calibredb-sort-by..
9440 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ................................
9460 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 27 69 64 20 22 20 4f 52 44 45 52 20 42 59 .................('id.".ORDER.BY
9480 20 69 64 22 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .id")...........................
94a0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 27 74 69 74 6c 65 20 ........................('title.
94c0 22 20 4f 52 44 45 52 20 42 59 20 74 69 74 6c 65 22 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 ".ORDER.BY.title")..............
94e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ................................
9500 20 20 20 20 20 28 27 61 75 74 68 6f 72 20 22 20 4f 52 44 45 52 20 42 59 20 61 75 74 68 6f 72 5f .....('author.".ORDER.BY.author_
9520 73 6f 72 74 22 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 sort")..........................
9540 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 27 66 6f 72 6d 61 .........................('forma
9560 74 20 22 20 4f 52 44 45 52 20 42 59 20 66 6f 72 6d 61 74 22 29 0a 20 20 20 20 20 20 20 20 20 20 t.".ORDER.BY.format")...........
9580 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ................................
95a0 20 20 20 20 20 20 20 20 28 27 64 61 74 65 20 22 20 4f 52 44 45 52 20 42 59 20 6c 61 73 74 5f 6d ........('date.".ORDER.BY.last_m
95c0 6f 64 69 66 69 65 64 22 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 odified").......................
95e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 27 70 75 ............................('pu
9600 62 64 61 74 65 20 22 20 4f 52 44 45 52 20 42 59 20 70 75 62 64 61 74 65 22 29 0a 20 20 20 20 20 bdate.".ORDER.BY.pubdate")......
9620 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ................................
9640 20 20 20 20 20 20 20 20 20 20 20 20 20 28 27 74 61 67 20 22 20 4f 52 44 45 52 20 42 59 20 74 61 .............('tag.".ORDER.BY.ta
9660 67 22 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 g").............................
9680 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 27 73 69 7a 65 20 22 20 4f ......................('size.".O
96a0 52 44 45 52 20 42 59 20 75 6e 63 6f 6d 70 72 65 73 73 65 64 5f 73 69 7a 65 22 29 0a 20 20 20 20 RDER.BY.uncompressed_size").....
96c0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ................................
96e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 27 6c 61 6e 67 75 61 67 65 20 22 20 4f 52 44 45 52 ..............('language.".ORDER
9700 20 42 59 20 6c 61 6e 67 5f 63 6f 64 65 22 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .BY.lang_code").................
9720 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ................................
9740 20 20 28 5f 20 22 20 4f 52 44 45 52 20 42 59 20 69 64 22 29 29 0a 20 20 20 20 20 20 20 20 20 20 ..(_.".ORDER.BY.id"))...........
9760 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ................................
9780 20 20 20 20 20 20 28 77 68 65 6e 20 28 65 71 20 63 61 6c 69 62 72 65 64 62 2d 6f 72 64 65 72 20 ......(when.(eq.calibredb-order.
97a0 27 64 65 73 63 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 'desc)..........................
97c0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 20 44 45 53 43 22 .........................".DESC"
97e0 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 28 6c 69 6e 65 2d 6c 69 73 74 20 28 69 66 20 28 61 6e ))))..........(line-list.(if.(an
9800 64 20 28 66 75 6e 63 74 69 6f 6e 70 20 27 73 71 6c 69 74 65 2d 61 76 61 69 6c 61 62 6c 65 2d 70 d.(functionp.'sqlite-available-p
9820 29 20 28 73 71 6c 69 74 65 2d 61 76 61 69 6c 61 62 6c 65 2d 70 29 29 0a 20 20 20 20 20 20 20 20 ).(sqlite-available-p)).........
9840 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 71 75 65 72 79 2d 72 65 73 75 6c 74 0a 20 20 20 ................query-result....
9860 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 70 6c 69 74 2d 73 74 72 69 6e 67 ...................(split-string
9880 20 28 63 61 6c 69 62 72 65 64 62 2d 63 68 6f 6d 70 20 71 75 65 72 79 2d 72 65 73 75 6c 74 29 20 .(calibredb-chomp.query-result).
98a0 63 61 6c 69 62 72 65 64 62 2d 73 71 6c 2d 6e 65 77 6c 69 6e 65 29 20 29 29 29 0a 20 20 20 20 28 calibredb-sql-newline).))).....(
98c0 63 6f 6e 64 20 28 28 65 71 75 61 6c 20 22 22 20 71 75 65 72 79 2d 72 65 73 75 6c 74 29 20 27 28 cond.((equal."".query-result).'(
98e0 22 22 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 28 65 71 75 61 6c 20 6e 69 6c 20 71 75 65 72 79 ""))...........((equal.nil.query
9900 2d 72 65 73 75 6c 74 29 20 27 28 22 22 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 74 20 28 6c 65 -result).'(""))...........(t.(le
9920 74 20 28 72 65 73 2d 6c 69 73 74 20 68 2d 6c 69 73 74 20 66 2d 6c 69 73 74 20 61 2d 6c 69 73 74 t.(res-list.h-list.f-list.a-list
9940 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 64 6f 6c 69 73 74 20 28 6c 69 6e 65 20 6c )................(dolist.(line.l
9960 69 6e 65 2d 6c 69 73 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 66 20 28 ine-list)..................(if.(
9980 61 6e 64 20 28 66 75 6e 63 74 69 6f 6e 70 20 27 73 71 6c 69 74 65 2d 61 76 61 69 6c 61 62 6c 65 and.(functionp.'sqlite-available
99a0 2d 70 29 20 28 73 71 6c 69 74 65 2d 61 76 61 69 6c 61 62 6c 65 2d 70 29 29 0a 20 20 20 20 20 20 -p).(sqlite-available-p)).......
99c0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 75 73 68 20 28 63 61 6c 69 62 72 65 64 62 2d ...............(push.(calibredb-
99e0 71 75 65 72 79 2d 74 6f 2d 61 6c 69 73 74 20 6c 69 6e 65 29 20 72 65 73 2d 6c 69 73 74 29 0a 20 query-to-alist.line).res-list)..
9a00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 76 61 6c 69 64 61 74 65 20 69 66 ..................;;.validate.if
9a20 20 69 74 20 69 73 20 72 69 67 68 74 20 66 6f 72 6d 61 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 .it.is.right.format.............
9a40 20 20 20 20 20 20 20 28 69 66 20 28 73 74 72 69 6e 67 2d 6d 61 74 63 68 2d 70 20 28 63 6f 6e 63 .......(if.(string-match-p.(conc
9a60 61 74 20 22 5e 5b 30 2d 39 5d 5c 5c 7b 31 2c 31 30 5c 5c 7d 22 20 63 61 6c 69 62 72 65 64 62 2d at."^[0-9]\\{1,10\\}".calibredb-
9a80 73 71 6c 2d 73 65 70 61 72 61 74 6f 72 29 20 6c 69 6e 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 sql-separator).line)............
9aa0 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 64 65 63 6f 64 65 20 61 6e 64 20 70 75 73 68 20 74 ............;;.decode.and.push.t
9ac0 6f 20 72 65 73 2d 6c 69 73 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 o.res-list......................
9ae0 20 20 28 70 75 73 68 20 28 63 61 6c 69 62 72 65 64 62 2d 71 75 65 72 79 2d 74 6f 2d 61 6c 69 73 ..(push.(calibredb-query-to-alis
9b00 74 20 6c 69 6e 65 29 20 72 65 73 2d 6c 69 73 74 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 t.line).res-list))))............
9b20 20 20 20 20 3b 3b 20 66 69 6c 74 65 72 20 61 72 63 68 69 76 65 2f 68 69 67 68 6c 69 67 68 74 2f ....;;.filter.archive/highlight/
9b40 66 61 76 6f 72 69 74 65 20 69 74 65 6d 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 64 favorite.items................(d
9b60 6f 6c 69 73 74 20 28 69 74 65 6d 20 72 65 73 2d 6c 69 73 74 29 0a 20 20 20 20 20 20 20 20 20 20 olist.(item.res-list)...........
9b80 20 20 20 20 20 20 20 28 63 6f 6e 64 20 28 28 73 74 72 69 6e 67 2d 6d 61 74 63 68 2d 70 20 22 61 .......(cond.((string-match-p."a
9ba0 72 63 68 69 76 65 22 20 28 63 61 6c 69 62 72 65 64 62 2d 67 65 74 61 74 74 72 20 28 6c 69 73 74 rchive".(calibredb-getattr.(list
9bc0 20 69 74 65 6d 29 20 3a 74 61 67 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .item).:tag))...................
9be0 20 20 20 20 20 20 28 73 65 74 71 20 72 65 73 2d 6c 69 73 74 20 28 72 65 6d 6f 76 65 20 69 74 65 ......(setq.res-list.(remove.ite
9c00 6d 20 72 65 73 2d 6c 69 73 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 m.res-list))....................
9c20 20 20 20 20 20 28 73 65 74 71 20 61 2d 6c 69 73 74 20 28 63 6f 6e 73 20 69 74 65 6d 20 61 2d 6c .....(setq.a-list.(cons.item.a-l
9c40 69 73 74 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 28 ist)))........................((
9c60 73 74 72 69 6e 67 2d 6d 61 74 63 68 2d 70 20 22 66 61 76 6f 72 69 74 65 22 20 28 63 61 6c 69 62 string-match-p."favorite".(calib
9c80 72 65 64 62 2d 67 65 74 61 74 74 72 20 28 6c 69 73 74 20 69 74 65 6d 29 20 3a 74 61 67 29 29 0a redb-getattr.(list.item).:tag)).
9ca0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 72 65 ........................(setq.re
9cc0 73 2d 6c 69 73 74 20 28 72 65 6d 6f 76 65 20 69 74 65 6d 20 72 65 73 2d 6c 69 73 74 29 29 0a 20 s-list.(remove.item.res-list))..
9ce0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 66 2d 6c .......................(setq.f-l
9d00 69 73 74 20 28 63 6f 6e 73 20 69 74 65 6d 20 66 2d 6c 69 73 74 29 29 29 0a 20 20 20 20 20 20 20 ist.(cons.item.f-list)))........
9d20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 28 73 74 72 69 6e 67 2d 6d 61 74 63 68 2d 70 ................((string-match-p
9d40 20 22 68 69 67 68 6c 69 67 68 74 22 20 28 63 61 6c 69 62 72 65 64 62 2d 67 65 74 61 74 74 72 20 ."highlight".(calibredb-getattr.
9d60 28 6c 69 73 74 20 69 74 65 6d 29 20 3a 74 61 67 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 (list.item).:tag))..............
9d80 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 72 65 73 2d 6c 69 73 74 20 28 72 65 6d 6f 76 ...........(setq.res-list.(remov
9da0 65 20 69 74 65 6d 20 72 65 73 2d 6c 69 73 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 e.item.res-list))...............
9dc0 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 68 2d 6c 69 73 74 20 28 63 6f 6e 73 20 69 74 65 ..........(setq.h-list.(cons.ite
9de0 6d 20 68 2d 6c 69 73 74 29 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 m.h-list)))))................;;.
9e00 6d 65 72 67 65 20 61 72 63 68 69 76 65 2f 68 69 67 68 6c 69 67 68 74 2f 66 61 76 6f 72 69 74 65 merge.archive/highlight/favorite
9e20 2f 72 65 73 74 20 69 74 65 6d 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 /rest.items................(setq
9e40 20 72 65 73 2d 6c 69 73 74 20 28 6e 63 6f 6e 63 20 61 2d 6c 69 73 74 20 72 65 73 2d 6c 69 73 74 .res-list.(nconc.a-list.res-list
9e60 20 68 2d 6c 69 73 74 20 66 2d 6c 69 73 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .h-list.f-list))................
9e80 28 63 61 6c 69 62 72 65 64 62 2d 67 65 74 62 6f 6f 6b 6c 69 73 74 20 72 65 73 2d 6c 69 73 74 29 (calibredb-getbooklist.res-list)
9ea0 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 63 61 6c 69 62 72 65 64 62 2d 63 61 6e 64 69 64 61 74 )))))..(defun.calibredb-candidat
9ec0 65 28 69 64 29 0a 20 20 22 47 65 6e 65 72 61 74 65 20 6f 6e 65 20 65 62 6f 6f 6b 20 63 61 6e 64 e(id)..."Generate.one.ebook.cand
9ee0 69 64 61 74 65 20 61 6c 69 73 74 2e 0a 41 52 47 55 4d 45 4e 54 20 49 44 20 69 73 20 74 68 65 20 idate.alist..ARGUMENT.ID.is.the.
9f00 69 64 20 6f 66 20 74 68 65 20 65 62 6f 6f 6b 20 69 6e 20 73 74 72 69 6e 67 2e 22 0a 20 20 28 6c id.of.the.ebook.in.string."...(l
9f20 65 74 2a 20 28 28 71 75 65 72 79 2d 72 65 73 75 6c 74 20 28 63 61 6c 69 62 72 65 64 62 2d 71 75 et*.((query-result.(calibredb-qu
9f40 65 72 79 20 28 66 6f 72 6d 61 74 20 22 53 45 4c 45 43 54 20 2a 20 46 52 4f 4d 20 28 25 73 29 20 ery.(format."SELECT.*.FROM.(%s).
9f60 57 48 45 52 45 20 69 64 20 3d 20 25 73 22 20 63 61 6c 69 62 72 65 64 62 2d 71 75 65 72 79 2d 73 WHERE.id.=.%s".calibredb-query-s
9f80 74 72 69 6e 67 20 69 64 29 29 29 0a 20 20 20 20 20 20 20 20 20 28 6c 69 6e 65 2d 6c 69 73 74 20 tring.id)))..........(line-list.
9fa0 28 69 66 20 28 61 6e 64 20 28 66 75 6e 63 74 69 6f 6e 70 20 27 73 71 6c 69 74 65 2d 61 76 61 69 (if.(and.(functionp.'sqlite-avai
9fc0 6c 61 62 6c 65 2d 70 29 20 28 73 71 6c 69 74 65 2d 61 76 61 69 6c 61 62 6c 65 2d 70 29 29 0a 20 lable-p).(sqlite-available-p))..
9fe0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 71 75 65 72 79 2d 72 65 73 .......................query-res
a000 75 6c 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 66 20 71 75 ult.......................(if.qu
a020 65 72 79 2d 72 65 73 75 6c 74 20 28 73 70 6c 69 74 2d 73 74 72 69 6e 67 20 28 63 61 6c 69 62 72 ery-result.(split-string.(calibr
a040 65 64 62 2d 63 68 6f 6d 70 20 71 75 65 72 79 2d 72 65 73 75 6c 74 29 20 63 61 6c 69 62 72 65 64 edb-chomp.query-result).calibred
a060 62 2d 73 71 6c 2d 6e 65 77 6c 69 6e 65 29 29 20 29 29 29 0a 20 20 20 20 28 63 6f 6e 64 20 28 28 b-sql-newline)).))).....(cond.((
a080 65 71 75 61 6c 20 22 22 20 71 75 65 72 79 2d 72 65 73 75 6c 74 29 20 27 28 22 22 29 29 0a 20 20 equal."".query-result).'(""))...
a0a0 20 20 20 20 20 20 20 20 28 28 65 71 75 61 6c 20 6e 69 6c 20 71 75 65 72 79 2d 72 65 73 75 6c 74 ........((equal.nil.query-result
a0c0 29 20 27 28 22 22 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 74 20 28 6c 65 74 20 28 72 65 73 2d ).'(""))...........(t.(let.(res-
a0e0 6c 69 73 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 64 6f 6c 69 73 74 20 28 6c 69 list)................(dolist.(li
a100 6e 65 20 6c 69 6e 65 2d 6c 69 73 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 ne.line-list)..................(
a120 69 66 20 28 61 6e 64 20 28 66 75 6e 63 74 69 6f 6e 70 20 27 73 71 6c 69 74 65 2d 61 76 61 69 6c if.(and.(functionp.'sqlite-avail
a140 61 62 6c 65 2d 70 29 20 28 73 71 6c 69 74 65 2d 61 76 61 69 6c 61 62 6c 65 2d 70 29 29 0a 20 20 able-p).(sqlite-available-p))...
a160 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 75 73 68 20 28 63 61 6c 69 62 72 ...................(push.(calibr
a180 65 64 62 2d 71 75 65 72 79 2d 74 6f 2d 61 6c 69 73 74 20 6c 69 6e 65 29 20 72 65 73 2d 6c 69 73 edb-query-to-alist.line).res-lis
a1a0 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 76 61 6c 69 64 61 74 t)....................;;.validat
a1c0 65 20 69 66 20 69 74 20 69 73 20 72 69 67 68 74 20 66 6f 72 6d 61 74 0a 20 20 20 20 20 20 20 20 e.if.it.is.right.format.........
a1e0 20 20 20 20 20 20 20 20 20 20 20 28 69 66 20 28 73 74 72 69 6e 67 2d 6d 61 74 63 68 2d 70 20 28 ...........(if.(string-match-p.(
a200 63 6f 6e 63 61 74 20 22 5e 5b 30 2d 39 5d 5c 5c 7b 31 2c 31 30 5c 5c 7d 22 20 63 61 6c 69 62 72 concat."^[0-9]\\{1,10\\}".calibr
a220 65 64 62 2d 73 71 6c 2d 73 65 70 61 72 61 74 6f 72 29 20 6c 69 6e 65 29 0a 20 20 20 20 20 20 20 edb-sql-separator).line)........
a240 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 64 65 63 6f 64 65 20 61 6e 64 20 70 75 ................;;.decode.and.pu
a260 73 68 20 74 6f 20 72 65 73 2d 6c 69 73 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 sh.to.res-list..................
a280 20 20 20 20 20 20 28 70 75 73 68 20 28 63 61 6c 69 62 72 65 64 62 2d 71 75 65 72 79 2d 74 6f 2d ......(push.(calibredb-query-to-
a2a0 61 6c 69 73 74 20 6c 69 6e 65 29 20 72 65 73 2d 6c 69 73 74 29 0a 20 20 20 20 20 20 20 20 20 20 alist.line).res-list)...........
a2c0 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 63 6f 6e 63 61 74 20 74 68 65 20 69 6e 76 61 6c 69 64 ...........;;.concat.the.invalid
a2e0 20 66 6f 72 6d 61 74 20 73 74 72 69 6e 67 73 20 69 6e 74 6f 20 6c 61 73 74 20 6c 69 6e 65 0a 20 .format.strings.into.last.line..
a300 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 28 73 65 74 66 20 28 63 61 ....................;;.(setf.(ca
a320 64 72 20 28 61 73 73 6f 63 20 3a 63 6f 6d 6d 65 6e 74 20 28 63 61 72 20 72 65 73 2d 6c 69 73 74 dr.(assoc.:comment.(car.res-list
a340 29 29 29 20 28 63 6f 6e 63 61 74 20 28 63 61 64 72 20 28 61 73 73 6f 63 20 3a 63 6f 6d 6d 65 6e ))).(concat.(cadr.(assoc.:commen
a360 74 20 28 63 61 72 20 72 65 73 2d 6c 69 73 74 29 29 29 20 6c 69 6e 65 29 29 0a 20 20 20 20 20 20 t.(car.res-list))).line)).......
a380 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 ...............)))..............
a3a0 20 20 28 63 61 6c 69 62 72 65 64 62 2d 67 65 74 62 6f 6f 6b 6c 69 73 74 20 72 65 73 2d 6c 69 73 ..(calibredb-getbooklist.res-lis
a3c0 74 29 29 20 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 63 61 6c 69 62 72 65 64 62 2d 63 61 6e 64 69 t)).))))..(defun.calibredb-candi
a3e0 64 61 74 65 2d 71 75 65 72 79 2d 66 69 6c 74 65 72 20 28 66 69 6c 74 65 72 29 0a 20 20 22 44 45 date-query-filter.(filter)..."DE
a400 50 52 45 43 41 54 45 44 20 47 65 6e 65 72 61 74 65 20 65 62 6f 6f 6b 20 63 61 6e 64 69 64 61 74 PRECATED.Generate.ebook.candidat
a420 65 20 61 6c 69 73 74 2e 0a 41 52 47 55 4d 45 4e 54 20 46 49 4c 54 45 52 20 69 73 20 74 68 65 20 e.alist..ARGUMENT.FILTER.is.the.
a440 66 69 6c 74 65 72 20 73 74 72 69 6e 67 2e 22 0a 20 20 28 6c 65 74 2a 20 28 28 71 75 65 72 79 2d filter.string."...(let*.((query-
a460 72 65 73 75 6c 74 20 28 63 61 6c 69 62 72 65 64 62 2d 71 75 65 72 79 20 28 66 6f 72 6d 61 74 20 result.(calibredb-query.(format.
a480 22 53 45 4c 45 43 54 20 2a 20 46 52 4f 4d 20 28 25 73 29 20 25 73 22 20 63 61 6c 69 62 72 65 64 "SELECT.*.FROM.(%s).%s".calibred
a4a0 62 2d 71 75 65 72 79 2d 73 74 72 69 6e 67 20 28 63 61 6c 69 62 72 65 64 62 2d 71 75 65 72 79 2d b-query-string.(calibredb-query-
a4c0 73 65 61 72 63 68 2d 73 74 72 69 6e 67 20 66 69 6c 74 65 72 29 29 29 29 0a 20 20 20 20 20 20 20 search-string.filter))))........
a4e0 20 20 28 6c 69 6e 65 2d 6c 69 73 74 20 28 69 66 20 71 75 65 72 79 2d 72 65 73 75 6c 74 20 28 73 ..(line-list.(if.query-result.(s
a500 70 6c 69 74 2d 73 74 72 69 6e 67 20 28 63 61 6c 69 62 72 65 64 62 2d 63 68 6f 6d 70 20 71 75 65 plit-string.(calibredb-chomp.que
a520 72 79 2d 72 65 73 75 6c 74 29 20 63 61 6c 69 62 72 65 64 62 2d 73 71 6c 2d 6e 65 77 6c 69 6e 65 ry-result).calibredb-sql-newline
a540 29 29 29 29 0a 20 20 20 20 28 63 6f 6e 64 20 28 28 65 71 75 61 6c 20 22 22 20 71 75 65 72 79 2d )))).....(cond.((equal."".query-
a560 72 65 73 75 6c 74 29 20 27 28 22 22 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 74 20 28 6c 65 74 result).'(""))...........(t.(let
a580 20 28 72 65 73 2d 6c 69 73 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 64 6f 6c 69 .(res-list)................(doli
a5a0 73 74 20 28 6c 69 6e 65 20 6c 69 6e 65 2d 6c 69 73 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 st.(line.line-list).............
a5c0 20 20 20 20 20 3b 3b 20 76 61 6c 69 64 61 74 65 20 69 66 20 69 74 20 69 73 20 72 69 67 68 74 20 .....;;.validate.if.it.is.right.
a5e0 66 6f 72 6d 61 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 66 20 28 73 74 72 format..................(if.(str
a600 69 6e 67 2d 6d 61 74 63 68 2d 70 20 28 63 6f 6e 63 61 74 20 22 5e 5b 30 2d 39 5d 5c 5c 7b 31 2c ing-match-p.(concat."^[0-9]\\{1,
a620 31 30 5c 5c 7d 22 20 63 61 6c 69 62 72 65 64 62 2d 73 71 6c 2d 73 65 70 61 72 61 74 6f 72 29 20 10\\}".calibredb-sql-separator).
a640 6c 69 6e 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 64 65 line)......................;;.de
a660 63 6f 64 65 20 61 6e 64 20 70 75 73 68 20 74 6f 20 72 65 73 2d 6c 69 73 74 0a 20 20 20 20 20 20 code.and.push.to.res-list.......
a680 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 75 73 68 20 28 63 61 6c 69 62 72 65 64 62 2d ...............(push.(calibredb-
a6a0 71 75 65 72 79 2d 74 6f 2d 61 6c 69 73 74 20 6c 69 6e 65 29 20 72 65 73 2d 6c 69 73 74 29 0a 20 query-to-alist.line).res-list)..
a6c0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 63 6f 6e 63 61 74 20 74 68 65 20 ..................;;.concat.the.
a6e0 69 6e 76 61 6c 69 64 20 66 6f 72 6d 61 74 20 73 74 72 69 6e 67 73 20 69 6e 74 6f 20 6c 61 73 74 invalid.format.strings.into.last
a700 20 6c 69 6e 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 28 73 65 74 .line....................;;.(set
a720 66 20 28 63 61 64 72 20 28 61 73 73 6f 63 20 3a 63 6f 6d 6d 65 6e 74 20 28 63 61 72 20 72 65 73 f.(cadr.(assoc.:comment.(car.res
a740 2d 6c 69 73 74 29 29 29 20 28 63 6f 6e 63 61 74 20 28 63 61 64 72 20 28 61 73 73 6f 63 20 3a 63 -list))).(concat.(cadr.(assoc.:c
a760 6f 6d 6d 65 6e 74 20 28 63 61 72 20 72 65 73 2d 6c 69 73 74 29 29 29 20 6c 69 6e 65 29 29 0a 20 omment.(car.res-list))).line))..
a780 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 ..................))............
a7a0 20 20 20 20 28 63 61 6c 69 62 72 65 64 62 2d 67 65 74 62 6f 6f 6b 6c 69 73 74 20 72 65 73 2d 6c ....(calibredb-getbooklist.res-l
a7c0 69 73 74 29 29 20 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 63 61 6c 69 62 72 65 64 62 2d 66 6f 72 ist)).))))..(defun.calibredb-for
a7e0 6d 61 74 2d 69 74 65 6d 20 28 62 6f 6f 6b 2d 61 6c 69 73 74 29 0a 20 20 22 46 6f 72 6d 61 74 20 mat-item.(book-alist)..."Format.
a800 74 68 65 20 63 61 6e 64 69 64 61 74 65 20 73 74 72 69 6e 67 20 73 68 6f 77 6e 20 69 6e 20 68 65 the.candidate.string.shown.in.he
a820 6c 6d 20 6f 72 20 69 76 79 2e 0a 41 72 67 75 6d 65 6e 74 20 42 4f 4f 4b 2d 41 4c 49 53 54 20 2e lm.or.ivy..Argument.BOOK-ALIST..
a840 22 0a 20 20 28 6c 65 74 20 28 28 69 64 20 28 63 61 6c 69 62 72 65 64 62 2d 67 65 74 61 74 74 72 "...(let.((id.(calibredb-getattr
a860 20 28 6c 69 73 74 20 62 6f 6f 6b 2d 61 6c 69 73 74 29 20 3a 69 64 29 29 0a 20 20 20 20 20 20 20 .(list.book-alist).:id))........
a880 20 28 74 69 74 6c 65 20 28 63 61 6c 69 62 72 65 64 62 2d 67 65 74 61 74 74 72 20 28 6c 69 73 74 .(title.(calibredb-getattr.(list
a8a0 20 62 6f 6f 6b 2d 61 6c 69 73 74 29 20 3a 62 6f 6f 6b 2d 74 69 74 6c 65 29 29 0a 20 20 20 20 20 .book-alist).:book-title))......
a8c0 20 20 20 28 66 6f 72 6d 61 74 20 28 63 61 6c 69 62 72 65 64 62 2d 67 65 74 61 74 74 72 20 28 6c ...(format.(calibredb-getattr.(l
a8e0 69 73 74 20 62 6f 6f 6b 2d 61 6c 69 73 74 29 20 3a 62 6f 6f 6b 2d 66 6f 72 6d 61 74 29 29 0a 20 ist.book-alist).:book-format))..
a900 20 20 20 20 20 20 20 28 61 75 74 68 6f 72 20 28 63 61 6c 69 62 72 65 64 62 2d 67 65 74 61 74 74 .......(author.(calibredb-getatt
a920 72 20 28 6c 69 73 74 20 62 6f 6f 6b 2d 61 6c 69 73 74 29 20 3a 61 75 74 68 6f 72 2d 73 6f 72 74 r.(list.book-alist).:author-sort
a940 29 29 0a 20 20 20 20 20 20 20 20 28 74 61 67 20 28 63 61 6c 69 62 72 65 64 62 2d 67 65 74 61 74 )).........(tag.(calibredb-getat
a960 74 72 20 28 6c 69 73 74 20 62 6f 6f 6b 2d 61 6c 69 73 74 29 20 3a 74 61 67 29 29 0a 20 20 20 20 tr.(list.book-alist).:tag)).....
a980 20 20 20 20 28 63 6f 6d 6d 65 6e 74 20 28 63 61 6c 69 62 72 65 64 62 2d 67 65 74 61 74 74 72 20 ....(comment.(calibredb-getattr.
a9a0 28 6c 69 73 74 20 62 6f 6f 6b 2d 61 6c 69 73 74 29 20 3a 63 6f 6d 6d 65 6e 74 29 29 0a 20 20 20 (list.book-alist).:comment))....
a9c0 20 20 20 20 20 28 73 69 7a 65 20 28 63 61 6c 69 62 72 65 64 62 2d 67 65 74 61 74 74 72 20 28 6c .....(size.(calibredb-getattr.(l
a9e0 69 73 74 20 62 6f 6f 6b 2d 61 6c 69 73 74 29 20 3a 73 69 7a 65 29 29 0a 20 20 20 20 20 20 20 20 ist.book-alist).:size)).........
aa00 28 69 64 73 20 28 63 61 6c 69 62 72 65 64 62 2d 67 65 74 61 74 74 72 20 28 6c 69 73 74 20 62 6f (ids.(calibredb-getattr.(list.bo
aa20 6f 6b 2d 61 6c 69 73 74 29 20 3a 69 64 73 29 29 0a 20 20 20 20 20 20 20 20 28 64 61 74 65 20 28 ok-alist).:ids)).........(date.(
aa40 63 61 6c 69 62 72 65 64 62 2d 67 65 74 61 74 74 72 20 28 6c 69 73 74 20 62 6f 6f 6b 2d 61 6c 69 calibredb-getattr.(list.book-ali
aa60 73 74 29 20 3a 6c 61 73 74 5f 6d 6f 64 69 66 69 65 64 29 29 0a 20 20 20 20 20 20 20 20 28 66 61 st).:last_modified)).........(fa
aa80 76 6f 72 69 74 65 2d 6d 61 70 20 28 6d 61 6b 65 2d 73 70 61 72 73 65 2d 6b 65 79 6d 61 70 29 29 vorite-map.(make-sparse-keymap))
aaa0 0a 20 20 20 20 20 20 20 20 28 74 61 67 2d 6d 61 70 20 28 6d 61 6b 65 2d 73 70 61 72 73 65 2d 6b .........(tag-map.(make-sparse-k
aac0 65 79 6d 61 70 29 29 0a 20 20 20 20 20 20 20 20 28 66 6f 72 6d 61 74 2d 6d 61 70 20 28 6d 61 6b eymap)).........(format-map.(mak
aae0 65 2d 73 70 61 72 73 65 2d 6b 65 79 6d 61 70 29 29 0a 20 20 20 20 20 20 20 20 28 61 75 74 68 6f e-sparse-keymap)).........(autho
ab00 72 2d 6d 61 70 20 28 6d 61 6b 65 2d 73 70 61 72 73 65 2d 6b 65 79 6d 61 70 29 29 0a 20 20 20 20 r-map.(make-sparse-keymap)).....
ab20 20 20 20 20 28 64 61 74 65 2d 6d 61 70 20 28 6d 61 6b 65 2d 73 70 61 72 73 65 2d 6b 65 79 6d 61 ....(date-map.(make-sparse-keyma
ab40 70 29 29 29 0a 20 20 20 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 66 61 76 6f 72 69 74 65 2d 6d 61 p))).....(define-key.favorite-ma
ab60 70 20 5b 6d 6f 75 73 65 2d 31 5d 20 27 63 61 6c 69 62 72 65 64 62 2d 66 61 76 6f 72 69 74 65 2d p.[mouse-1].'calibredb-favorite-
ab80 6d 6f 75 73 65 2d 31 29 0a 20 20 20 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 74 61 67 2d 6d 61 70 mouse-1).....(define-key.tag-map
aba0 20 5b 6d 6f 75 73 65 2d 31 5d 20 27 63 61 6c 69 62 72 65 64 62 2d 74 61 67 2d 6d 6f 75 73 65 2d .[mouse-1].'calibredb-tag-mouse-
abc0 31 29 0a 20 20 20 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 66 6f 72 6d 61 74 2d 6d 61 70 20 5b 6d 1).....(define-key.format-map.[m
abe0 6f 75 73 65 2d 31 5d 20 27 63 61 6c 69 62 72 65 64 62 2d 66 6f 72 6d 61 74 2d 6d 6f 75 73 65 2d ouse-1].'calibredb-format-mouse-
ac00 31 29 0a 20 20 20 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 61 75 74 68 6f 72 2d 6d 61 70 20 5b 6d 1).....(define-key.author-map.[m
ac20 6f 75 73 65 2d 31 5d 20 27 63 61 6c 69 62 72 65 64 62 2d 61 75 74 68 6f 72 2d 6d 6f 75 73 65 2d ouse-1].'calibredb-author-mouse-
ac40 31 29 0a 20 20 20 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 64 61 74 65 2d 6d 61 70 20 5b 6d 6f 75 1).....(define-key.date-map.[mou
ac60 73 65 2d 31 5d 20 27 63 61 6c 69 62 72 65 64 62 2d 64 61 74 65 2d 6d 6f 75 73 65 2d 31 29 0a 20 se-1].'calibredb-date-mouse-1)..
ac80 20 20 20 28 69 66 20 63 61 6c 69 62 72 65 64 62 2d 64 65 74 61 69 6c 65 64 2d 76 69 65 77 0a 20 ...(if.calibredb-detailed-view..
aca0 20 20 20 20 20 20 20 28 73 65 74 71 20 74 69 74 6c 65 20 28 63 6f 6e 63 61 74 20 74 69 74 6c 65 .......(setq.title.(concat.title
acc0 20 22 5c 6e 22 29 29 29 0a 20 20 20 20 28 66 6f 72 6d 61 74 0a 20 20 20 20 20 28 69 66 20 63 61 ."\n"))).....(format......(if.ca
ace0 6c 69 62 72 65 64 62 2d 64 65 74 61 69 6c 65 64 2d 76 69 65 77 0a 20 20 20 20 20 20 20 20 20 28 libredb-detailed-view..........(
ad00 6c 65 74 20 28 28 6e 75 6d 20 28 63 6f 6e 64 20 28 63 61 6c 69 62 72 65 64 62 2d 66 6f 72 6d 61 let.((num.(cond.(calibredb-forma
ad20 74 2d 61 6c 6c 2d 74 68 65 2d 69 63 6f 6e 73 20 33 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 t-all-the-icons.3)..............
ad40 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 61 6c 69 62 72 65 64 62 2d 66 6f 72 6d 61 74 2d 69 .............(calibredb-format-i
ad60 63 6f 6e 73 2d 69 6e 2d 74 65 72 6d 69 6e 61 6c 20 33 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 cons-in-terminal.3).............
ad80 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 28 3e 3d 20 63 61 6c 69 62 72 65 64 62 2d 69 64 2d ..............((>=.calibredb-id-
ada0 77 69 64 74 68 20 30 29 20 63 61 6c 69 62 72 65 64 62 2d 69 64 2d 77 69 64 74 68 29 0a 20 20 20 width.0).calibredb-id-width)....
adc0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 74 20 30 20 29 29 29 29 .......................(t.0.))))
ade0 0a 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 6e 63 61 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 ............(concat.............
ae00 22 25 73 25 73 25 73 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 63 61 6c 69 62 72 65 64 62 2d "%s%s%s".............(calibredb-
ae20 66 6f 72 6d 61 74 2d 63 6f 6c 75 6d 6e 20 28 66 6f 72 6d 61 74 20 22 25 73 46 6f 72 6d 61 74 3a format-column.(format."%sFormat:
ae40 22 20 28 6d 61 6b 65 2d 73 74 72 69 6e 67 20 6e 75 6d 20 3f 20 29 29 20 28 2b 20 38 20 6e 75 6d ".(make-string.num.?.)).(+.8.num
ae60 29 20 3a 6c 65 66 74 29 20 22 25 73 5c 6e 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 63 61 6c ).:left)."%s\n".............(cal
ae80 69 62 72 65 64 62 2d 66 6f 72 6d 61 74 2d 63 6f 6c 75 6d 6e 20 28 66 6f 72 6d 61 74 20 22 25 73 ibredb-format-column.(format."%s
aea0 44 61 74 65 3a 22 20 28 6d 61 6b 65 2d 73 74 72 69 6e 67 20 6e 75 6d 20 3f 20 29 29 20 28 2b 20 Date:".(make-string.num.?.)).(+.
aec0 38 20 6e 75 6d 29 20 3a 6c 65 66 74 29 20 22 25 73 5c 6e 22 0a 20 20 20 20 20 20 20 20 20 20 20 8.num).:left)."%s\n"............
aee0 20 28 63 61 6c 69 62 72 65 64 62 2d 66 6f 72 6d 61 74 2d 63 6f 6c 75 6d 6e 20 28 66 6f 72 6d 61 .(calibredb-format-column.(forma
af00 74 20 22 25 73 41 75 74 68 6f 72 3a 22 20 28 6d 61 6b 65 2d 73 74 72 69 6e 67 20 6e 75 6d 20 3f t."%sAuthor:".(make-string.num.?
af20 20 29 29 20 20 28 2b 20 38 20 6e 75 6d 29 20 3a 6c 65 66 74 29 20 22 25 73 5c 6e 22 0a 20 20 20 .))..(+.8.num).:left)."%s\n"....
af40 20 20 20 20 20 20 20 20 20 28 63 61 6c 69 62 72 65 64 62 2d 66 6f 72 6d 61 74 2d 63 6f 6c 75 6d .........(calibredb-format-colum
af60 6e 20 28 66 6f 72 6d 61 74 20 22 25 73 54 61 67 3a 22 20 28 6d 61 6b 65 2d 73 74 72 69 6e 67 20 n.(format."%sTag:".(make-string.
af80 6e 75 6d 20 3f 20 29 29 20 28 2b 20 38 20 6e 75 6d 29 20 3a 6c 65 66 74 29 20 22 25 73 5c 6e 22 num.?.)).(+.8.num).:left)."%s\n"
afa0 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 63 61 6c 69 62 72 65 64 62 2d 66 6f 72 6d 61 74 2d 63 .............(calibredb-format-c
afc0 6f 6c 75 6d 6e 20 28 66 6f 72 6d 61 74 20 22 25 73 49 64 73 3a 22 20 28 6d 61 6b 65 2d 73 74 72 olumn.(format."%sIds:".(make-str
afe0 69 6e 67 20 6e 75 6d 20 3f 20 29 29 20 28 2b 20 38 20 6e 75 6d 29 20 3a 6c 65 66 74 29 20 22 25 ing.num.?.)).(+.8.num).:left)."%
b000 73 5c 6e 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 63 61 6c 69 62 72 65 64 62 2d 66 6f 72 6d s\n".............(calibredb-form
b020 61 74 2d 63 6f 6c 75 6d 6e 20 28 66 6f 72 6d 61 74 20 22 25 73 43 6f 6d 6d 65 6e 74 3a 22 20 28 at-column.(format."%sComment:".(
b040 6d 61 6b 65 2d 73 74 72 69 6e 67 20 6e 75 6d 20 3f 20 29 29 20 28 2b 20 38 20 6e 75 6d 29 20 3a make-string.num.?.)).(+.8.num).:
b060 6c 65 66 74 29 20 22 25 73 5c 6e 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 63 61 6c 69 62 72 left)."%s\n".............(calibr
b080 65 64 62 2d 66 6f 72 6d 61 74 2d 63 6f 6c 75 6d 6e 20 28 66 6f 72 6d 61 74 20 22 25 73 53 69 7a edb-format-column.(format."%sSiz
b0a0 65 3a 22 20 28 6d 61 6b 65 2d 73 74 72 69 6e 67 20 6e 75 6d 20 3f 20 29 29 20 28 2b 20 38 20 6e e:".(make-string.num.?.)).(+.8.n
b0c0 75 6d 29 20 3a 6c 65 66 74 29 20 22 25 73 22 29 29 0a 20 20 20 20 20 20 20 22 25 73 25 73 25 73 um).:left)."%s"))........"%s%s%s
b0e0 20 25 73 20 25 73 20 25 73 20 28 25 73 29 20 25 73 20 25 73 20 25 73 22 29 0a 20 20 20 20 20 28 .%s.%s.%s.(%s).%s.%s.%s")......(
b100 63 6f 6e 64 20 28 63 61 6c 69 62 72 65 64 62 2d 66 6f 72 6d 61 74 2d 61 6c 6c 2d 74 68 65 2d 69 cond.(calibredb-format-all-the-i
b120 63 6f 6e 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 6e 63 61 74 20 28 69 66 20 28 66 62 cons.............(concat.(if.(fb
b140 6f 75 6e 64 70 20 27 61 6c 6c 2d 74 68 65 2d 69 63 6f 6e 73 2d 69 63 6f 6e 2d 66 6f 72 2d 66 69 oundp.'all-the-icons-icon-for-fi
b160 6c 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 61 6c 6c le).........................(all
b180 2d 74 68 65 2d 69 63 6f 6e 73 2d 69 63 6f 6e 2d 66 6f 72 2d 66 69 6c 65 20 28 63 61 6c 69 62 72 -the-icons-icon-for-file.(calibr
b1a0 65 64 62 2d 67 65 74 2d 66 69 6c 65 2d 70 61 74 68 20 28 6c 69 73 74 20 62 6f 6f 6b 2d 61 6c 69 edb-get-file-path.(list.book-ali
b1c0 73 74 29 29 29 20 22 22 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 20 st)))."").....................".
b1e0 22 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 63 61 6c 69 62 72 65 64 62 2d 66 6f 72 6d 61 74 "))............(calibredb-format
b200 2d 69 63 6f 6e 73 2d 69 6e 2d 74 65 72 6d 69 6e 61 6c 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 -icons-in-terminal.............(
b220 63 6f 6e 63 61 74 20 28 69 66 20 28 66 62 6f 75 6e 64 70 20 27 69 63 6f 6e 73 2d 69 6e 2d 74 65 concat.(if.(fboundp.'icons-in-te
b240 72 6d 69 6e 61 6c 2d 69 63 6f 6e 2d 66 6f 72 2d 66 69 6c 65 29 0a 20 20 20 20 20 20 20 20 20 20 rminal-icon-for-file)...........
b260 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 63 6f 6e 73 2d 69 6e 2d 74 65 72 6d 69 6e 61 6c ..............(icons-in-terminal
b280 2d 69 63 6f 6e 2d 66 6f 72 2d 66 69 6c 65 20 28 63 61 6c 69 62 72 65 64 62 2d 67 65 74 2d 66 69 -icon-for-file.(calibredb-get-fi
b2a0 6c 65 2d 70 61 74 68 20 28 6c 69 73 74 20 62 6f 6f 6b 2d 61 6c 69 73 74 29 20 29 20 3a 76 2d 61 le-path.(list.book-alist).).:v-a
b2c0 64 6a 75 73 74 20 30 20 3a 68 65 69 67 68 74 20 31 29 20 22 22 29 0a 20 20 20 20 20 20 20 20 20 djust.0.:height.1)."")..........
b2e0 20 20 20 20 20 20 20 20 20 20 20 22 20 22 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 63 61 6c ..........."."))............(cal
b300 69 62 72 65 64 62 2d 66 6f 72 6d 61 74 2d 63 68 61 72 61 63 74 65 72 2d 69 63 6f 6e 73 0a 20 20 ibredb-format-character-icons...
b320 20 20 20 20 20 20 20 20 20 20 28 63 6f 6e 63 61 74 20 28 63 61 6c 69 62 72 65 64 62 2d 61 74 74 ..........(concat.(calibredb-att
b340 61 63 68 2d 69 63 6f 6e 2d 66 6f 72 20 28 63 61 6c 69 62 72 65 64 62 2d 67 65 74 2d 66 69 6c 65 ach-icon-for.(calibredb-get-file
b360 2d 70 61 74 68 20 28 6c 69 73 74 20 62 6f 6f 6b 2d 61 6c 69 73 74 29 29 29 20 22 20 22 29 29 0a -path.(list.book-alist))).".")).
b380 20 20 20 20 20 20 20 20 20 20 20 28 74 20 22 22 29 29 0a 20 20 20 20 20 28 63 61 6c 69 62 72 65 ...........(t.""))......(calibre
b3a0 64 62 2d 66 6f 72 6d 61 74 2d 63 6f 6c 75 6d 6e 20 28 66 6f 72 6d 61 74 20 22 25 73 22 20 28 70 db-format-column.(format."%s".(p
b3c0 72 6f 70 65 72 74 69 7a 65 20 69 64 20 27 66 61 63 65 20 27 63 61 6c 69 62 72 65 64 62 2d 69 64 ropertize.id.'face.'calibredb-id
b3e0 2d 66 61 63 65 20 27 69 64 20 69 64 29 29 20 63 61 6c 69 62 72 65 64 62 2d 69 64 2d 77 69 64 74 -face.'id.id)).calibredb-id-widt
b400 68 20 3a 6c 65 66 74 29 0a 20 20 20 20 20 28 63 61 6c 69 62 72 65 64 62 2d 66 6f 72 6d 61 74 2d h.:left)......(calibredb-format-
b420 63 6f 6c 75 6d 6e 20 28 66 6f 72 6d 61 74 20 22 25 73 25 73 22 0a 20 20 20 20 20 20 20 20 20 20 column.(format."%s%s"...........
b440 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 66 20 ............................(if.
b460 28 73 2d 63 6f 6e 74 61 69 6e 73 3f 20 63 61 6c 69 62 72 65 64 62 2d 66 61 76 6f 72 69 74 65 2d (s-contains?.calibredb-favorite-
b480 6b 65 79 77 6f 72 64 20 74 61 67 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 keyword.tag)....................
b4a0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 6f 72 6d 61 74 20 22 .......................(format."
b4c0 25 73 20 22 20 28 70 72 6f 70 65 72 74 69 7a 65 20 63 61 6c 69 62 72 65 64 62 2d 66 61 76 6f 72 %s.".(propertize.calibredb-favor
b4e0 69 74 65 2d 69 63 6f 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ite-icon........................
b500 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ................................
b520 20 20 20 20 20 20 20 20 20 20 20 20 20 27 66 61 63 65 20 27 63 61 6c 69 62 72 65 64 62 2d 66 61 .............'face.'calibredb-fa
b540 76 6f 72 69 74 65 2d 66 61 63 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 vorite-face.....................
b560 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ................................
b580 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 6d 6f 75 73 65 2d 66 61 63 65 20 27 63 61 6c ................'mouse-face.'cal
b5a0 69 62 72 65 64 62 2d 6d 6f 75 73 65 2d 66 61 63 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ibredb-mouse-face...............
b5c0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ................................
b5e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 68 65 6c 70 2d 65 63 68 6f ......................'help-echo
b600 20 22 46 69 6c 74 65 72 20 74 68 65 20 66 61 76 6f 72 69 74 65 20 69 74 65 6d 73 22 0a 20 20 20 ."Filter.the.favorite.items"....
b620 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ................................
b640 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ................................
b660 20 27 6b 65 79 6d 61 70 20 66 61 76 6f 72 69 74 65 2d 6d 61 70 29 29 20 22 22 29 0a 20 20 20 20 .'keymap.favorite-map))."").....
b680 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ................................
b6a0 20 20 28 63 6f 6e 64 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..(cond.........................
b6c0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 28 73 2d 63 6f 6e 74 61 69 6e 73 3f 20 63 61 6c ...............((s-contains?.cal
b6e0 69 62 72 65 64 62 2d 61 72 63 68 69 76 65 2d 6b 65 79 77 6f 72 64 20 74 61 67 29 0a 20 20 20 20 ibredb-archive-keyword.tag).....
b700 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ................................
b720 20 20 20 20 28 70 72 6f 70 65 72 74 69 7a 65 20 74 69 74 6c 65 20 27 66 61 63 65 20 27 63 61 6c ....(propertize.title.'face.'cal
b740 69 62 72 65 64 62 2d 61 72 63 68 69 76 65 2d 66 61 63 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 ibredb-archive-face))...........
b760 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 28 73 .............................((s
b780 2d 63 6f 6e 74 61 69 6e 73 3f 20 63 61 6c 69 62 72 65 64 62 2d 68 69 67 68 6c 69 67 68 74 2d 6b -contains?.calibredb-highlight-k
b7a0 65 79 77 6f 72 64 20 74 61 67 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 eyword.tag).....................
b7c0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 72 6f 70 65 72 74 69 7a 65 20 ....................(propertize.
b7e0 74 69 74 6c 65 20 27 66 61 63 65 20 27 63 61 6c 69 62 72 65 64 62 2d 68 69 67 68 6c 69 67 68 74 title.'face.'calibredb-highlight
b800 2d 66 61 63 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 -face)).........................
b820 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ...............(t...............
b840 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 72 6f 70 65 ..........................(prope
b860 72 74 69 7a 65 20 74 69 74 6c 65 20 27 66 61 63 65 20 28 63 61 6c 69 62 72 65 64 62 2d 74 69 74 rtize.title.'face.(calibredb-tit
b880 6c 65 2d 66 61 63 65 29 29 29 29 29 20 28 63 61 6c 69 62 72 65 64 62 2d 74 69 74 6c 65 2d 77 69 le-face))))).(calibredb-title-wi
b8a0 64 74 68 29 20 3a 6c 65 66 74 29 0a 20 20 20 20 20 28 63 61 6c 69 62 72 65 64 62 2d 66 6f 72 6d dth).:left)......(calibredb-form
b8c0 61 74 2d 63 6f 6c 75 6d 6e 20 28 70 72 6f 70 65 72 74 69 7a 65 20 66 6f 72 6d 61 74 0a 20 20 20 at-column.(propertize.format....
b8e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ................................
b900 20 20 20 20 20 20 20 27 66 61 63 65 20 27 63 61 6c 69 62 72 65 64 62 2d 66 6f 72 6d 61 74 2d 66 .......'face.'calibredb-format-f
b920 61 63 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ace.............................
b940 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 6d 6f 75 73 65 2d 66 61 63 65 20 27 63 61 6c 69 62 ..............'mouse-face.'calib
b960 72 65 64 62 2d 6d 6f 75 73 65 2d 66 61 63 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 redb-mouse-face.................
b980 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 68 65 6c 70 2d ..........................'help-
b9a0 65 63 68 6f 20 22 46 69 6c 74 65 72 20 77 69 74 68 20 74 68 69 73 20 66 6f 72 6d 61 74 22 0a 20 echo."Filter.with.this.format"..
b9c0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ................................
b9e0 20 20 20 20 20 20 20 20 20 27 6b 65 79 6d 61 70 20 66 6f 72 6d 61 74 2d 6d 61 70 29 20 28 63 61 .........'keymap.format-map).(ca
ba00 6c 69 62 72 65 64 62 2d 66 6f 72 6d 61 74 2d 77 69 64 74 68 29 20 3a 6c 65 66 74 29 0a 20 20 20 libredb-format-width).:left)....
ba20 20 20 28 63 61 6c 69 62 72 65 64 62 2d 66 6f 72 6d 61 74 2d 63 6f 6c 75 6d 6e 20 28 70 72 6f 70 ..(calibredb-format-column.(prop
ba40 65 72 74 69 7a 65 20 28 73 2d 6c 65 66 74 20 31 30 20 64 61 74 65 29 20 27 66 61 63 65 20 27 63 ertize.(s-left.10.date).'face.'c
ba60 61 6c 69 62 72 65 64 62 2d 64 61 74 65 2d 66 61 63 65 20 3b 20 6f 6e 6c 79 20 6b 65 65 70 20 59 alibredb-date-face.;.only.keep.Y
ba80 59 59 59 2d 4d 4d 2d 44 44 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 YYY-MM-DD.......................
baa0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 6d 6f 75 73 65 2d 66 61 63 65 20 ....................'mouse-face.
bac0 27 63 61 6c 69 62 72 65 64 62 2d 6d 6f 75 73 65 2d 66 61 63 65 0a 20 20 20 20 20 20 20 20 20 20 'calibredb-mouse-face...........
bae0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ................................
bb00 27 68 65 6c 70 2d 65 63 68 6f 20 22 46 69 6c 74 65 72 20 77 69 74 68 20 74 68 69 73 20 64 61 74 'help-echo."Filter.with.this.dat
bb20 65 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 e"..............................
bb40 20 20 20 20 20 20 20 20 20 20 20 20 20 27 6b 65 79 6d 61 70 20 64 61 74 65 2d 6d 61 70 29 20 28 .............'keymap.date-map).(
bb60 63 61 6c 69 62 72 65 64 62 2d 64 61 74 65 2d 77 69 64 74 68 29 20 3a 6c 65 66 74 29 0a 20 20 20 calibredb-date-width).:left)....
bb80 20 20 28 63 61 6c 69 62 72 65 64 62 2d 66 6f 72 6d 61 74 2d 63 6f 6c 75 6d 6e 20 28 6d 61 70 63 ..(calibredb-format-column.(mapc
bba0 6f 6e 63 61 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 oncat...........................
bbc0 20 20 20 20 20 28 6c 61 6d 62 64 61 20 28 61 75 74 68 6f 72 29 0a 20 20 20 20 20 20 20 20 20 20 .....(lambda.(author)...........
bbe0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 72 6f 70 65 72 74 69 .......................(properti
bc00 7a 65 20 61 75 74 68 6f 72 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ze.author.......................
bc20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 61 75 74 68 6f 72 20 61 .......................'author.a
bc40 75 74 68 6f 72 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 uthor...........................
bc60 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 66 61 63 65 20 27 63 61 6c 69 62 72 ...................'face.'calibr
bc80 65 64 62 2d 61 75 74 68 6f 72 2d 66 61 63 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 edb-author-face.................
bca0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 6d 6f .............................'mo
bcc0 75 73 65 2d 66 61 63 65 20 27 63 61 6c 69 62 72 65 64 62 2d 6d 6f 75 73 65 2d 66 61 63 65 0a 20 use-face.'calibredb-mouse-face..
bce0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ................................
bd00 20 20 20 20 20 20 20 20 20 20 20 20 27 68 65 6c 70 2d 65 63 68 6f 20 28 66 6f 72 6d 61 74 20 22 ............'help-echo.(format."
bd20 46 69 6c 74 65 72 20 77 69 74 68 20 74 68 69 73 20 61 75 74 68 6f 72 3a 20 25 73 22 20 61 75 74 Filter.with.this.author:.%s".aut
bd40 68 6f 72 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 hor)............................
bd60 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 6b 65 79 6d 61 70 20 61 75 74 68 6f 72 ..................'keymap.author
bd80 2d 6d 61 70 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 -map))..........................
bda0 20 20 20 20 20 20 28 73 70 6c 69 74 2d 73 74 72 69 6e 67 20 61 75 74 68 6f 72 20 22 2c 22 29 20 ......(split-string.author.",").
bdc0 22 2c 22 29 20 28 63 61 6c 69 62 72 65 64 62 2d 61 75 74 68 6f 72 2d 77 69 64 74 68 29 20 3a 6c ",").(calibredb-author-width).:l
bde0 65 66 74 29 0a 20 20 20 20 20 28 63 61 6c 69 62 72 65 64 62 2d 66 6f 72 6d 61 74 2d 63 6f 6c 75 eft)......(calibredb-format-colu
be00 6d 6e 20 28 6d 61 70 63 6f 6e 63 61 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 mn.(mapconcat...................
be20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 61 6d 62 64 61 20 28 74 61 67 29 0a 20 20 20 20 20 .............(lambda.(tag)......
be40 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 72 6f ............................(pro
be60 70 65 72 74 69 7a 65 20 74 61 67 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 pertize.tag.....................
be80 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 74 61 67 20 74 61 .........................'tag.ta
bea0 67 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 g...............................
bec0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 66 61 63 65 20 27 63 61 6c 69 62 72 65 64 62 2d ...............'face.'calibredb-
bee0 74 61 67 2d 66 61 63 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 tag-face........................
bf00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 6d 6f 75 73 65 2d 66 61 63 ......................'mouse-fac
bf20 65 20 27 63 61 6c 69 62 72 65 64 62 2d 6d 6f 75 73 65 2d 66 61 63 65 0a 20 20 20 20 20 20 20 20 e.'calibredb-mouse-face.........
bf40 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ................................
bf60 20 20 20 20 20 27 68 65 6c 70 2d 65 63 68 6f 20 28 66 6f 72 6d 61 74 20 22 46 69 6c 74 65 72 20 .....'help-echo.(format."Filter.
bf80 77 69 74 68 20 74 68 69 73 20 74 61 67 3a 20 25 73 22 20 74 61 67 29 0a 20 20 20 20 20 20 20 20 with.this.tag:.%s".tag).........
bfa0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ................................
bfc0 20 20 20 20 20 27 6b 65 79 6d 61 70 20 74 61 67 2d 6d 61 70 29 29 0a 20 20 20 20 20 20 20 20 20 .....'keymap.tag-map))..........
bfe0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 70 6c 69 74 2d 73 74 72 ......................(split-str
c000 69 6e 67 20 74 61 67 20 22 2c 22 29 20 22 2c 22 29 20 28 63 61 6c 69 62 72 65 64 62 2d 74 61 67 ing.tag.",").",").(calibredb-tag
c020 2d 77 69 64 74 68 29 20 3a 6c 65 66 74 29 0a 20 20 20 20 20 28 63 61 6c 69 62 72 65 64 62 2d 66 -width).:left)......(calibredb-f
c040 6f 72 6d 61 74 2d 63 6f 6c 75 6d 6e 20 28 70 72 6f 70 65 72 74 69 7a 65 20 69 64 73 20 27 66 61 ormat-column.(propertize.ids.'fa
c060 63 65 20 27 63 61 6c 69 62 72 65 64 62 2d 69 64 73 2d 66 61 63 65 29 20 28 63 61 6c 69 62 72 65 ce.'calibredb-ids-face).(calibre
c080 64 62 2d 69 64 73 2d 77 69 64 74 68 29 20 3a 6c 65 66 74 29 0a 20 20 20 20 20 28 69 66 20 28 73 db-ids-width).:left)......(if.(s
c0a0 74 72 69 6e 67 70 20 63 6f 6d 6d 65 6e 74 29 0a 20 20 20 20 20 20 20 20 20 28 70 72 6f 70 65 72 tringp.comment)..........(proper
c0c0 74 69 7a 65 0a 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 63 20 28 69 66 20 63 61 6c 69 tize...........(let.((c.(if.cali
c0e0 62 72 65 64 62 2d 63 6f 6e 64 65 6e 73 65 2d 63 6f 6d 6d 65 6e 74 73 20 28 63 61 6c 69 62 72 65 bredb-condense-comments.(calibre
c100 64 62 2d 63 6f 6e 64 65 6e 73 65 2d 63 6f 6d 6d 65 6e 74 73 20 63 6f 6d 6d 65 6e 74 29 20 63 6f db-condense-comments.comment).co
c120 6d 6d 65 6e 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 20 63 61 6c 69 62 mment)).................(w.calib
c140 72 65 64 62 2d 63 6f 6d 6d 65 6e 74 2d 77 69 64 74 68 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 redb-comment-width))............
c160 20 28 63 6f 6e 64 20 28 28 3e 20 77 20 30 29 20 28 73 2d 74 72 75 6e 63 61 74 65 20 77 20 63 29 .(cond.((>.w.0).(s-truncate.w.c)
c180 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 28 3d 20 77 20 30 29 20 22 22 29 )...................((=.w.0)."")
c1a0 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 74 20 63 29 29 29 0a 20 20 20 20 20 ...................(t.c)))......
c1c0 20 20 20 20 20 27 66 61 63 65 20 27 63 61 6c 69 62 72 65 64 62 2d 63 6f 6d 6d 65 6e 74 2d 66 61 .....'face.'calibredb-comment-fa
c1e0 63 65 29 20 22 22 29 0a 20 20 20 20 20 28 66 6f 72 6d 61 74 20 22 25 73 25 73 22 0a 20 20 20 20 ce)."")......(format."%s%s".....
c200 20 20 20 20 20 20 20 20 20 28 69 66 20 63 61 6c 69 62 72 65 64 62 2d 73 69 7a 65 2d 73 68 6f 77 .........(if.calibredb-size-show
c220 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 72 6f 70 65 72 74 69 7a 65 20 73 69 ..................(propertize.si
c240 7a 65 20 27 66 61 63 65 20 27 63 61 6c 69 62 72 65 64 62 2d 73 69 7a 65 2d 66 61 63 65 29 20 22 ze.'face.'calibredb-size-face)."
c260 22 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 66 20 63 61 6c 69 62 72 65 64 62 2d 73 69 ")..............(if.calibredb-si
c280 7a 65 2d 73 68 6f 77 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 72 6f 70 65 72 ze-show..................(proper
c2a0 74 69 7a 65 20 22 4d 62 22 20 27 66 61 63 65 20 27 63 61 6c 69 62 72 65 64 62 2d 73 69 7a 65 2d tize."Mb".'face.'calibredb-size-
c2c0 66 61 63 65 29 20 22 22 29 29 29 20 29 29 0a 0a 28 70 72 6f 76 69 64 65 20 27 63 61 6c 69 62 72 face).""))).))..(provide.'calibr
c2e0 65 64 62 2d 63 6f 72 65 29 0a 0a 3b 3b 3b 20 63 61 6c 69 62 72 65 64 62 2d 63 6f 72 65 2e 65 6c edb-core)..;;;.calibredb-core.el
c300 20 65 6e 64 73 20 68 65 72 65 0a 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 .ends.here......................
c320 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
c340 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
c360 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
c380 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
c3a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
c3c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
c3e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
c400 63 61 6c 69 62 72 65 64 62 2d 32 30 32 34 30 33 33 31 2e 34 30 39 2f 63 61 6c 69 62 72 65 64 62 calibredb-20240331.409/calibredb
c420 2d 73 65 61 72 63 68 2e 65 6c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -search.el......................
c440 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
c460 00 00 00 00 30 30 30 30 36 34 34 00 30 30 30 30 30 30 30 00 30 30 30 30 30 30 30 00 30 30 30 30 ....0000644.0000000.0000000.0000
c480 30 31 34 30 33 30 37 00 30 30 30 30 30 30 30 30 30 30 30 00 30 31 36 33 33 34 00 20 30 00 00 00 0140307.00000000000.016334..0...
c4a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
c4c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
c4e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
c500 00 75 73 74 61 72 20 20 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 .ustar...root...................
c520 00 00 00 00 00 00 00 00 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 .........root...................
c540 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
c560 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
c580 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
c5a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
c5c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
c5e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
c600 3b 3b 3b 20 63 61 6c 69 62 72 65 64 62 2d 73 65 61 72 63 68 2e 65 6c 20 2d 2d 2d 20 42 6f 6f 6b ;;;.calibredb-search.el.---.Book
c620 73 20 73 65 61 72 63 68 20 62 75 66 66 65 72 20 66 6f 72 20 63 61 6c 69 62 72 65 64 62 20 2d 2a s.search.buffer.for.calibredb.-*
c640 2d 20 6c 65 78 69 63 61 6c 2d 62 69 6e 64 69 6e 67 3a 20 74 3b 20 2d 2a 2d 0a 0a 3b 3b 20 43 6f -.lexical-binding:.t;.-*-..;;.Co
c660 70 79 72 69 67 68 74 20 28 43 29 20 32 30 32 30 20 44 61 6d 6f 6e 20 43 68 61 6e 0a 0a 3b 3b 20 pyright.(C).2020.Damon.Chan..;;.
c680 41 75 74 68 6f 72 3a 20 44 61 6d 6f 6e 20 43 68 61 6e 20 3c 65 6c 65 63 6d 69 6e 67 40 67 6d 61 Author:.Damon.Chan.<elecming@gma
c6a0 69 6c 2e 63 6f 6d 3e 0a 3b 3b 20 55 52 4c 3a 20 68 74 74 70 73 3a 2f 2f 67 69 74 68 75 62 2e 63 il.com>.;;.URL:.https://github.c
c6c0 6f 6d 2f 63 68 65 6e 79 61 6e 6d 69 6e 67 2f 63 61 6c 69 62 72 65 64 62 2e 65 6c 0a 3b 3b 20 4b om/chenyanming/calibredb.el.;;.K
c6e0 65 79 77 6f 72 64 73 3a 20 74 6f 6f 6c 73 0a 3b 3b 20 56 65 72 73 69 6f 6e 3a 20 32 2e 31 32 2e eywords:.tools.;;.Version:.2.12.
c700 30 0a 0a 3b 3b 20 54 68 69 73 20 66 69 6c 65 20 69 73 20 4e 4f 54 20 70 61 72 74 20 6f 66 20 47 0..;;.This.file.is.NOT.part.of.G
c720 4e 55 20 45 6d 61 63 73 2e 0a 0a 3b 3b 20 54 68 69 73 20 70 72 6f 67 72 61 6d 20 69 73 20 66 72 NU.Emacs...;;.This.program.is.fr
c740 65 65 20 73 6f 66 74 77 61 72 65 3b 20 79 6f 75 20 63 61 6e 20 72 65 64 69 73 74 72 69 62 75 74 ee.software;.you.can.redistribut
c760 65 20 69 74 20 61 6e 64 2f 6f 72 20 6d 6f 64 69 66 79 0a 3b 3b 20 69 74 20 75 6e 64 65 72 20 74 e.it.and/or.modify.;;.it.under.t
c780 68 65 20 74 65 72 6d 73 20 6f 66 20 74 68 65 20 47 4e 55 20 47 65 6e 65 72 61 6c 20 50 75 62 6c he.terms.of.the.GNU.General.Publ
c7a0 69 63 20 4c 69 63 65 6e 73 65 20 61 73 20 70 75 62 6c 69 73 68 65 64 20 62 79 0a 3b 3b 20 74 68 ic.License.as.published.by.;;.th
c7c0 65 20 46 72 65 65 20 53 6f 66 74 77 61 72 65 20 46 6f 75 6e 64 61 74 69 6f 6e 2c 20 65 69 74 68 e.Free.Software.Foundation,.eith
c7e0 65 72 20 76 65 72 73 69 6f 6e 20 33 20 6f 66 20 74 68 65 20 4c 69 63 65 6e 73 65 2c 20 6f 72 0a er.version.3.of.the.License,.or.
c800 3b 3b 20 28 61 74 20 79 6f 75 72 20 6f 70 74 69 6f 6e 29 20 61 6e 79 20 6c 61 74 65 72 20 76 65 ;;.(at.your.option).any.later.ve
c820 72 73 69 6f 6e 2e 0a 0a 3b 3b 20 54 68 69 73 20 70 72 6f 67 72 61 6d 20 69 73 20 64 69 73 74 72 rsion...;;.This.program.is.distr
c840 69 62 75 74 65 64 20 69 6e 20 74 68 65 20 68 6f 70 65 20 74 68 61 74 20 69 74 20 77 69 6c 6c 20 ibuted.in.the.hope.that.it.will.
c860 62 65 20 75 73 65 66 75 6c 2c 0a 3b 3b 20 62 75 74 20 57 49 54 48 4f 55 54 20 41 4e 59 20 57 41 be.useful,.;;.but.WITHOUT.ANY.WA
c880 52 52 41 4e 54 59 3b 20 77 69 74 68 6f 75 74 20 65 76 65 6e 20 74 68 65 20 69 6d 70 6c 69 65 64 RRANTY;.without.even.the.implied
c8a0 20 77 61 72 72 61 6e 74 79 20 6f 66 0a 3b 3b 20 4d 45 52 43 48 41 4e 54 41 42 49 4c 49 54 59 20 .warranty.of.;;.MERCHANTABILITY.
c8c0 6f 72 20 46 49 54 4e 45 53 53 20 46 4f 52 20 41 20 50 41 52 54 49 43 55 4c 41 52 20 50 55 52 50 or.FITNESS.FOR.A.PARTICULAR.PURP
c8e0 4f 53 45 2e 20 20 53 65 65 20 74 68 65 0a 3b 3b 20 47 4e 55 20 47 65 6e 65 72 61 6c 20 50 75 62 OSE...See.the.;;.GNU.General.Pub
c900 6c 69 63 20 4c 69 63 65 6e 73 65 20 66 6f 72 20 6d 6f 72 65 20 64 65 74 61 69 6c 73 2e 0a 0a 3b lic.License.for.more.details...;
c920 3b 20 59 6f 75 20 73 68 6f 75 6c 64 20 68 61 76 65 20 72 65 63 65 69 76 65 64 20 61 20 63 6f 70 ;.You.should.have.received.a.cop
c940 79 20 6f 66 20 74 68 65 20 47 4e 55 20 47 65 6e 65 72 61 6c 20 50 75 62 6c 69 63 20 4c 69 63 65 y.of.the.GNU.General.Public.Lice
c960 6e 73 65 0a 3b 3b 20 61 6c 6f 6e 67 20 77 69 74 68 20 74 68 69 73 20 70 72 6f 67 72 61 6d 2e 20 nse.;;.along.with.this.program..
c980 20 49 66 20 6e 6f 74 2c 20 73 65 65 20 3c 68 74 74 70 73 3a 2f 2f 77 77 77 2e 67 6e 75 2e 6f 72 .If.not,.see.<https://www.gnu.or
c9a0 67 2f 6c 69 63 65 6e 73 65 73 2f 3e 2e 0a 0a 3b 3b 3b 20 43 6f 6d 6d 65 6e 74 61 72 79 3a 0a 0a g/licenses/>...;;;.Commentary:..
c9c0 3b 3b 3b 20 43 6f 64 65 3a 0a 0a 28 72 65 71 75 69 72 65 20 27 63 61 6c 69 62 72 65 64 62 2d 63 ;;;.Code:..(require.'calibredb-c
c9e0 6f 72 65 29 0a 0a 28 65 76 61 6c 2d 77 68 65 6e 2d 63 6f 6d 70 69 6c 65 20 28 64 65 66 76 61 72 ore)..(eval-when-compile.(defvar
ca00 20 63 61 6c 69 62 72 65 64 62 2d 73 68 6f 77 2d 65 6e 74 72 79 29 29 0a 28 65 76 61 6c 2d 77 68 .calibredb-show-entry)).(eval-wh
ca20 65 6e 2d 63 6f 6d 70 69 6c 65 20 28 64 65 66 76 61 72 20 63 61 6c 69 62 72 65 64 62 2d 73 68 6f en-compile.(defvar.calibredb-sho
ca40 77 2d 65 6e 74 72 79 2d 73 77 69 74 63 68 29 29 0a 28 65 76 61 6c 2d 77 68 65 6e 2d 63 6f 6d 70 w-entry-switch)).(eval-when-comp
ca60 69 6c 65 20 28 64 65 66 76 61 72 20 63 61 6c 69 62 72 65 64 62 2d 76 69 72 74 75 61 6c 2d 6c 69 ile.(defvar.calibredb-virtual-li
ca80 62 72 61 72 79 2d 61 6c 69 73 74 29 29 0a 0a 28 64 65 63 6c 61 72 65 2d 66 75 6e 63 74 69 6f 6e brary-alist))..(declare-function
caa0 20 63 61 6c 69 62 72 65 64 62 20 22 63 61 6c 69 62 72 65 64 62 2e 65 6c 22 29 0a 28 64 65 63 6c .calibredb."calibredb.el").(decl
cac0 61 72 65 2d 66 75 6e 63 74 69 6f 6e 20 63 61 6c 69 62 72 65 64 62 2d 66 69 6e 64 2d 66 69 6c 65 are-function.calibredb-find-file
cae0 20 22 63 61 6c 69 62 72 65 64 62 2d 75 74 69 6c 73 2e 65 6c 22 29 0a 28 64 65 63 6c 61 72 65 2d ."calibredb-utils.el").(declare-
cb00 66 75 6e 63 74 69 6f 6e 20 63 61 6c 69 62 72 65 64 62 2d 61 64 64 20 22 63 61 6c 69 62 72 65 64 function.calibredb-add."calibred
cb20 62 2d 75 74 69 6c 73 2e 65 6c 22 29 0a 28 64 65 63 6c 61 72 65 2d 66 75 6e 63 74 69 6f 6e 20 63 b-utils.el").(declare-function.c
cb40 61 6c 69 62 72 65 64 62 2d 61 64 64 2d 64 69 72 20 22 63 61 6c 69 62 72 65 64 62 2d 75 74 69 6c alibredb-add-dir."calibredb-util
cb60 73 2e 65 6c 22 29 0a 28 64 65 63 6c 61 72 65 2d 66 75 6e 63 74 69 6f 6e 20 63 61 6c 69 62 72 65 s.el").(declare-function.calibre
cb80 64 62 2d 63 6c 6f 6e 65 20 22 63 61 6c 69 62 72 65 64 62 2d 75 74 69 6c 73 2e 65 6c 22 29 0a 28 db-clone."calibredb-utils.el").(
cba0 64 65 63 6c 61 72 65 2d 66 75 6e 63 74 69 6f 6e 20 63 61 6c 69 62 72 65 64 62 2d 72 65 6d 6f 76 declare-function.calibredb-remov
cbc0 65 20 22 63 61 6c 69 62 72 65 64 62 2d 75 74 69 6c 73 2e 65 6c 22 29 0a 28 64 65 63 6c 61 72 65 e."calibredb-utils.el").(declare
cbe0 2d 66 75 6e 63 74 69 6f 6e 20 63 61 6c 69 62 72 65 64 62 2d 72 65 6d 6f 76 65 2d 6d 61 72 6b 65 -function.calibredb-remove-marke
cc00 64 2d 69 74 65 6d 73 20 22 63 61 6c 69 62 72 65 64 62 2d 75 74 69 6c 73 2e 65 6c 22 29 0a 28 64 d-items."calibredb-utils.el").(d
cc20 65 63 6c 61 72 65 2d 66 75 6e 63 74 69 6f 6e 20 63 61 6c 69 62 72 65 64 62 2d 73 77 69 74 63 68 eclare-function.calibredb-switch
cc40 2d 6c 69 62 72 61 72 79 20 22 63 61 6c 69 62 72 65 64 62 2d 6c 69 62 72 61 72 79 2e 65 6c 22 29 -library."calibredb-library.el")
cc60 0a 28 64 65 63 6c 61 72 65 2d 66 75 6e 63 74 69 6f 6e 20 63 61 6c 69 62 72 65 64 62 2d 6c 69 62 .(declare-function.calibredb-lib
cc80 72 61 72 79 2d 6c 69 73 74 20 22 63 61 6c 69 62 72 65 64 62 2d 6c 69 62 72 61 72 79 2e 65 6c 22 rary-list."calibredb-library.el"
cca0 29 0a 28 64 65 63 6c 61 72 65 2d 66 75 6e 63 74 69 6f 6e 20 63 61 6c 69 62 72 65 64 62 2d 6c 69 ).(declare-function.calibredb-li
ccc0 62 72 61 72 79 2d 6e 65 78 74 20 22 63 61 6c 69 62 72 65 64 62 2d 6c 69 62 72 61 72 79 2e 65 6c brary-next."calibredb-library.el
cce0 22 29 0a 28 64 65 63 6c 61 72 65 2d 66 75 6e 63 74 69 6f 6e 20 63 61 6c 69 62 72 65 64 62 2d 6c ").(declare-function.calibredb-l
cd00 69 62 72 61 72 79 2d 70 72 65 76 69 6f 75 73 20 22 63 61 6c 69 62 72 65 64 62 2d 6c 69 62 72 61 ibrary-previous."calibredb-libra
cd20 72 79 2e 65 6c 22 29 0a 28 64 65 63 6c 61 72 65 2d 66 75 6e 63 74 69 6f 6e 20 63 61 6c 69 62 72 ry.el").(declare-function.calibr
cd40 65 64 62 2d 73 65 74 2d 6d 65 74 61 64 61 74 61 2d 64 69 73 70 61 74 63 68 20 22 63 61 6c 69 62 edb-set-metadata-dispatch."calib
cd60 72 65 64 62 2d 74 72 61 6e 73 69 65 6e 74 2e 65 6c 22 29 0a 28 64 65 63 6c 61 72 65 2d 66 75 6e redb-transient.el").(declare-fun
cd80 63 74 69 6f 6e 20 63 61 6c 69 62 72 65 64 62 2d 66 69 6e 64 2d 66 69 6c 65 2d 6f 74 68 65 72 2d ction.calibredb-find-file-other-
cda0 66 72 61 6d 65 20 22 63 61 6c 69 62 72 65 64 62 2d 75 74 69 6c 73 2e 65 6c 22 29 0a 28 64 65 63 frame."calibredb-utils.el").(dec
cdc0 6c 61 72 65 2d 66 75 6e 63 74 69 6f 6e 20 63 61 6c 69 62 72 65 64 62 2d 6f 70 65 6e 2d 66 69 6c lare-function.calibredb-open-fil
cde0 65 2d 77 69 74 68 2d 64 65 66 61 75 6c 74 2d 74 6f 6f 6c 20 22 63 61 6c 69 62 72 65 64 62 2d 75 e-with-default-tool."calibredb-u
ce00 74 69 6c 73 2e 65 6c 22 29 0a 28 64 65 63 6c 61 72 65 2d 66 75 6e 63 74 69 6f 6e 20 63 61 6c 69 tils.el").(declare-function.cali
ce20 62 72 65 64 62 2d 6f 70 65 6e 2d 64 69 72 65 64 20 22 63 61 6c 69 62 72 65 64 62 2d 75 74 69 6c bredb-open-dired."calibredb-util
ce40 73 2e 65 6c 22 29 0a 28 64 65 63 6c 61 72 65 2d 66 75 6e 63 74 69 6f 6e 20 63 61 6c 69 62 72 65 s.el").(declare-function.calibre
ce60 64 62 2d 63 61 74 61 6c 6f 67 2d 62 69 62 2d 64 69 73 70 61 74 63 68 20 22 63 61 6c 69 62 72 65 db-catalog-bib-dispatch."calibre
ce80 64 62 2d 74 72 61 6e 73 69 65 6e 74 2e 65 6c 22 29 0a 28 64 65 63 6c 61 72 65 2d 66 75 6e 63 74 db-transient.el").(declare-funct
cea0 69 6f 6e 20 63 61 6c 69 62 72 65 64 62 2d 65 78 70 6f 72 74 2d 64 69 73 70 61 74 63 68 20 22 63 ion.calibredb-export-dispatch."c
cec0 61 6c 69 62 72 65 64 62 2d 74 72 61 6e 73 69 65 6e 74 2e 65 6c 22 29 0a 28 64 65 63 6c 61 72 65 alibredb-transient.el").(declare
cee0 2d 66 75 6e 63 74 69 6f 6e 20 63 61 6c 69 62 72 65 64 62 2d 65 64 69 74 2d 61 6e 6e 6f 74 61 74 -function.calibredb-edit-annotat
cf00 69 6f 6e 20 22 63 61 6c 69 62 72 65 64 62 2d 61 6e 6e 6f 74 61 74 69 6f 6e 2e 65 6c 22 29 0a 28 ion."calibredb-annotation.el").(
cf20 64 65 63 6c 61 72 65 2d 66 75 6e 63 74 69 6f 6e 20 63 61 6c 69 62 72 65 64 62 2d 73 65 74 2d 6d declare-function.calibredb-set-m
cf40 65 74 61 64 61 74 61 2d 2d 74 61 67 73 20 22 63 61 6c 69 62 72 65 64 62 2d 75 74 69 6c 73 2e 65 etadata--tags."calibredb-utils.e
cf60 6c 22 29 0a 28 64 65 63 6c 61 72 65 2d 66 75 6e 63 74 69 6f 6e 20 63 61 6c 69 62 72 65 64 62 2d l").(declare-function.calibredb-
cf80 73 65 74 2d 6d 65 74 61 64 61 74 61 2d 2d 61 75 74 68 6f 72 5f 73 6f 72 74 20 22 63 61 6c 69 62 set-metadata--author_sort."calib
cfa0 72 65 64 62 2d 75 74 69 6c 73 2e 65 6c 22 29 0a 28 64 65 63 6c 61 72 65 2d 66 75 6e 63 74 69 6f redb-utils.el").(declare-functio
cfc0 6e 20 63 61 6c 69 62 72 65 64 62 2d 73 65 74 2d 6d 65 74 61 64 61 74 61 2d 2d 61 75 74 68 6f 72 n.calibredb-set-metadata--author
cfe0 73 20 22 63 61 6c 69 62 72 65 64 62 2d 75 74 69 6c 73 2e 65 6c 22 29 0a 28 64 65 63 6c 61 72 65 s."calibredb-utils.el").(declare
d000 2d 66 75 6e 63 74 69 6f 6e 20 63 61 6c 69 62 72 65 64 62 2d 73 65 74 2d 6d 65 74 61 64 61 74 61 -function.calibredb-set-metadata
d020 2d 2d 74 69 74 6c 65 20 22 63 61 6c 69 62 72 65 64 62 2d 75 74 69 6c 73 2e 65 6c 22 29 0a 28 64 --title."calibredb-utils.el").(d
d040 65 63 6c 61 72 65 2d 66 75 6e 63 74 69 6f 6e 20 63 61 6c 69 62 72 65 64 62 2d 73 65 74 2d 6d 65 eclare-function.calibredb-set-me
d060 74 61 64 61 74 61 2d 2d 63 6f 6d 6d 65 6e 74 73 20 22 63 61 6c 69 62 72 65 64 62 2d 75 74 69 6c tadata--comments."calibredb-util
d080 73 2e 65 6c 22 29 0a 28 64 65 63 6c 61 72 65 2d 66 75 6e 63 74 69 6f 6e 20 63 61 6c 69 62 72 65 s.el").(declare-function.calibre
d0a0 64 62 2d 65 64 69 74 2d 61 6e 6e 6f 74 61 74 69 6f 6e 2d 68 65 61 64 65 72 20 22 63 61 6c 69 62 db-edit-annotation-header."calib
d0c0 72 65 64 62 2d 61 6e 6e 6f 74 61 74 69 6f 6e 2e 65 6c 22 29 0a 28 64 65 63 6c 61 72 65 2d 66 75 redb-annotation.el").(declare-fu
d0e0 6e 63 74 69 6f 6e 20 63 61 6c 69 62 72 65 64 62 2d 73 68 6f 77 2d 2d 62 75 66 66 65 72 2d 6e 61 nction.calibredb-show--buffer-na
d100 6d 65 20 22 63 61 6c 69 62 72 65 64 62 2d 73 68 6f 77 2e 65 6c 22 29 0a 28 64 65 63 6c 61 72 65 me."calibredb-show.el").(declare
d120 2d 66 75 6e 63 74 69 6f 6e 20 63 61 6c 69 62 72 65 64 62 2d 69 6e 73 65 72 74 2d 69 6d 61 67 65 -function.calibredb-insert-image
d140 20 22 63 61 6c 69 62 72 65 64 62 2d 75 74 69 6c 73 2e 65 6c 22 29 0a 28 64 65 63 6c 61 72 65 2d ."calibredb-utils.el").(declare-
d160 66 75 6e 63 74 69 6f 6e 20 63 61 6c 69 62 72 65 64 62 2d 73 68 6f 77 2d 6d 6f 64 65 20 22 63 61 function.calibredb-show-mode."ca
d180 6c 69 62 72 65 64 62 2d 73 68 6f 77 2e 65 6c 22 29 0a 28 64 65 63 6c 61 72 65 2d 66 75 6e 63 74 libredb-show.el").(declare-funct
d1a0 69 6f 6e 20 63 61 6c 69 62 72 65 64 62 2d 66 69 6e 64 2d 6d 61 72 6b 65 64 2d 63 61 6e 64 69 64 ion.calibredb-find-marked-candid
d1c0 61 74 65 73 20 22 63 61 6c 69 62 72 65 64 62 2d 75 74 69 6c 73 2e 65 6c 22 29 0a 28 64 65 63 6c ates."calibredb-utils.el").(decl
d1e0 61 72 65 2d 66 75 6e 63 74 69 6f 6e 20 63 61 6c 69 62 72 65 64 62 2d 72 65 61 64 2d 6d 65 74 61 are-function.calibredb-read-meta
d200 64 61 74 61 73 20 22 63 61 6c 69 62 72 65 64 62 2d 75 74 69 6c 73 2e 65 6c 22 29 0a 28 64 65 63 datas."calibredb-utils.el").(dec
d220 6c 61 72 65 2d 66 75 6e 63 74 69 6f 6e 20 63 61 6c 69 62 72 65 64 62 2d 66 69 6e 64 2d 63 61 6e lare-function.calibredb-find-can
d240 64 69 64 61 74 65 2d 61 74 2d 70 6f 69 6e 74 20 22 63 61 6c 69 62 72 65 64 62 2d 75 74 69 6c 73 didate-at-point."calibredb-utils
d260 2e 65 6c 22 29 0a 28 64 65 63 6c 61 72 65 2d 66 75 6e 63 74 69 6f 6e 20 63 61 6c 69 62 72 65 64 .el").(declare-function.calibred
d280 62 2d 73 68 6f 77 2d 72 65 66 72 65 73 68 20 22 63 61 6c 69 62 72 65 64 62 2d 73 68 6f 77 2e 65 b-show-refresh."calibredb-show.e
d2a0 6c 22 29 0a 28 64 65 63 6c 61 72 65 2d 66 75 6e 63 74 69 6f 6e 20 63 61 6c 69 62 72 65 64 62 2d l").(declare-function.calibredb-
d2c0 67 65 74 2d 69 6e 69 74 20 22 63 61 6c 69 62 72 65 64 62 2d 75 74 69 6c 73 2e 65 6c 22 29 0a 28 get-init."calibredb-utils.el").(
d2e0 64 65 63 6c 61 72 65 2d 66 75 6e 63 74 69 6f 6e 20 63 61 6c 69 62 72 65 64 62 2d 76 69 72 74 75 declare-function.calibredb-virtu
d300 61 6c 2d 6c 69 62 72 61 72 79 2d 6c 69 73 74 20 22 63 61 6c 69 62 72 65 64 62 2d 6c 69 62 72 61 al-library-list."calibredb-libra
d320 72 79 2e 65 6c 22 29 0a 28 64 65 63 6c 61 72 65 2d 66 75 6e 63 74 69 6f 6e 20 63 61 6c 69 62 72 ry.el").(declare-function.calibr
d340 65 64 62 2d 76 69 72 74 75 61 6c 2d 6c 69 62 72 61 72 79 2d 6e 65 78 74 20 22 63 61 6c 69 62 72 edb-virtual-library-next."calibr
d360 65 64 62 2d 6c 69 62 72 61 72 79 2e 65 6c 22 29 0a 28 64 65 63 6c 61 72 65 2d 66 75 6e 63 74 69 edb-library.el").(declare-functi
d380 6f 6e 20 63 61 6c 69 62 72 65 64 62 2d 76 69 72 74 75 61 6c 2d 6c 69 62 72 61 72 79 2d 70 72 65 on.calibredb-virtual-library-pre
d3a0 76 69 6f 75 73 20 22 63 61 6c 69 62 72 65 64 62 2d 6c 69 62 72 61 72 79 2e 65 6c 22 29 0a 0a 28 vious."calibredb-library.el")..(
d3c0 64 65 66 63 75 73 74 6f 6d 20 63 61 6c 69 62 72 65 64 62 2d 73 65 61 72 63 68 2d 66 69 6c 74 65 defcustom.calibredb-search-filte
d3e0 72 20 22 22 0a 20 20 22 51 75 65 72 79 20 73 74 72 69 6e 67 20 66 69 6c 74 65 72 69 6e 67 20 73 r.""..."Query.string.filtering.s
d400 68 6f 77 6e 20 65 6e 74 72 69 65 73 2e 22 0a 20 20 3a 67 72 6f 75 70 20 27 63 61 6c 69 62 72 65 hown.entries."...:group.'calibre
d420 64 62 0a 20 20 3a 74 79 70 65 20 27 73 74 72 69 6e 67 29 0a 0a 28 64 65 66 76 61 72 20 63 61 6c db...:type.'string)..(defvar.cal
d440 69 62 72 65 64 62 2d 66 75 6c 6c 2d 65 6e 74 72 69 65 73 20 6e 69 6c 0a 20 20 22 4c 69 73 74 20 ibredb-full-entries.nil..."List.
d460 6f 66 20 74 68 65 20 61 6c 6c 20 65 6e 74 72 69 65 73 20 63 75 72 72 65 6e 74 6c 79 20 6f 6e 20 of.the.all.entries.currently.on.
d480 6c 69 62 72 61 72 79 2e 22 29 0a 0a 28 64 65 66 76 61 72 20 63 61 6c 69 62 72 65 64 62 2d 73 65 library.")..(defvar.calibredb-se
d4a0 61 72 63 68 2d 65 6e 74 72 69 65 73 20 6e 69 6c 0a 20 20 22 4c 69 73 74 20 6f 66 20 74 68 65 20 arch-entries.nil..."List.of.the.
d4c0 65 6e 74 72 69 65 73 20 63 75 72 72 65 6e 74 6c 79 20 6f 6e 20 64 69 73 70 6c 61 79 2e 22 29 0a entries.currently.on.display.").
d4e0 0a 28 64 65 66 76 61 72 20 63 61 6c 69 62 72 65 64 62 2d 73 65 61 72 63 68 2d 66 69 6c 74 65 72 .(defvar.calibredb-search-filter
d500 2d 61 63 74 69 76 65 20 6e 69 6c 0a 20 20 22 57 68 65 6e 20 6e 6f 6e 2d 6e 69 6c 2c 20 63 61 6c -active.nil..."When.non-nil,.cal
d520 69 62 72 65 64 62 20 69 73 20 63 75 72 72 65 6e 74 6c 79 20 72 65 61 64 69 6e 67 20 61 20 66 69 ibredb.is.currently.reading.a.fi
d540 6c 74 65 72 20 66 72 6f 6d 20 74 68 65 20 6d 69 6e 69 62 75 66 66 65 72 2e 0a 57 68 65 6e 20 6c lter.from.the.minibuffer..When.l
d560 69 76 65 20 65 64 69 74 69 6e 67 20 74 68 65 20 66 69 6c 74 65 72 2c 20 69 74 20 69 73 20 62 6f ive.editing.the.filter,.it.is.bo
d580 75 6e 64 20 74 6f 20 3a 6c 69 76 65 2e 22 29 0a 0a 28 64 65 66 76 61 72 20 63 61 6c 69 62 72 65 und.to.:live.")..(defvar.calibre
d5a0 64 62 2d 73 65 61 72 63 68 2d 6c 61 73 74 2d 75 70 64 61 74 65 20 30 0a 20 20 22 54 68 65 20 6c db-search-last-update.0..."The.l
d5c0 61 73 74 20 74 69 6d 65 20 74 68 65 20 62 75 66 66 65 72 20 77 61 73 20 72 65 64 72 61 77 6e 20 ast.time.the.buffer.was.redrawn.
d5e0 69 6e 20 65 70 6f 63 68 20 73 65 63 6f 6e 64 73 2e 22 29 0a 0a 28 64 65 66 76 61 72 20 63 61 6c in.epoch.seconds.")..(defvar.cal
d600 69 62 72 65 64 62 2d 73 65 61 72 63 68 2d 70 72 69 6e 74 2d 65 6e 74 72 79 2d 66 75 6e 63 74 69 ibredb-search-print-entry-functi
d620 6f 6e 20 23 27 63 61 6c 69 62 72 65 64 62 2d 73 65 61 72 63 68 2d 70 72 69 6e 74 2d 65 6e 74 72 on.#'calibredb-search-print-entr
d640 79 2d 2d 64 65 66 61 75 6c 74 0a 20 20 22 46 75 6e 63 74 69 6f 6e 20 74 6f 20 70 72 69 6e 74 20 y--default..."Function.to.print.
d660 65 6e 74 72 69 65 73 20 69 6e 74 6f 20 74 68 65 20 2a 63 61 6c 69 62 72 65 64 62 2d 73 65 61 72 entries.into.the.*calibredb-sear
d680 63 68 2a 20 62 75 66 66 65 72 2e 22 29 0a 0a 28 64 65 66 76 61 72 20 63 61 6c 69 62 72 65 64 62 ch*.buffer.")..(defvar.calibredb
d6a0 2d 74 61 67 2d 66 69 6c 74 65 72 2d 70 20 6e 69 6c 29 0a 28 64 65 66 76 61 72 20 63 61 6c 69 62 -tag-filter-p.nil).(defvar.calib
d6c0 72 65 64 62 2d 66 61 76 6f 72 69 74 65 2d 66 69 6c 74 65 72 2d 70 20 6e 69 6c 29 0a 28 64 65 66 redb-favorite-filter-p.nil).(def
d6e0 76 61 72 20 63 61 6c 69 62 72 65 64 62 2d 61 75 74 68 6f 72 2d 66 69 6c 74 65 72 2d 70 20 6e 69 var.calibredb-author-filter-p.ni
d700 6c 29 0a 28 64 65 66 76 61 72 20 63 61 6c 69 62 72 65 64 62 2d 64 61 74 65 2d 66 69 6c 74 65 72 l).(defvar.calibredb-date-filter
d720 2d 70 20 6e 69 6c 29 0a 28 64 65 66 76 61 72 20 63 61 6c 69 62 72 65 64 62 2d 66 6f 72 6d 61 74 -p.nil).(defvar.calibredb-format
d740 2d 66 69 6c 74 65 72 2d 70 20 6e 69 6c 29 0a 0a 28 64 65 66 76 61 72 20 63 61 6c 69 62 72 65 64 -filter-p.nil)..(defvar.calibred
d760 62 2d 73 65 61 72 63 68 2d 6d 6f 64 65 2d 6d 61 70 0a 20 20 28 6c 65 74 20 28 28 6d 61 70 20 28 b-search-mode-map...(let.((map.(
d780 6d 61 6b 65 2d 73 70 61 72 73 65 2d 6b 65 79 6d 61 70 29 29 29 0a 20 20 20 20 28 64 65 66 69 6e make-sparse-keymap))).....(defin
d7a0 65 2d 6b 65 79 20 6d 61 70 20 5b 6d 6f 75 73 65 2d 33 5d 20 23 27 63 61 6c 69 62 72 65 64 62 2d e-key.map.[mouse-3].#'calibredb-
d7c0 73 65 61 72 63 68 2d 6d 6f 75 73 65 29 0a 20 20 20 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 6d 61 search-mouse).....(define-key.ma
d7e0 70 20 28 6b 62 64 20 22 3c 52 45 54 3e 22 29 20 23 27 63 61 6c 69 62 72 65 64 62 2d 66 69 6e 64 p.(kbd."<RET>").#'calibredb-find
d800 2d 66 69 6c 65 29 0a 20 20 20 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 6d 61 70 20 22 3f 22 20 23 -file).....(define-key.map."?".#
d820 27 63 61 6c 69 62 72 65 64 62 2d 64 69 73 70 61 74 63 68 29 0a 20 20 20 20 28 64 65 66 69 6e 65 'calibredb-dispatch).....(define
d840 2d 6b 65 79 20 6d 61 70 20 22 61 22 20 23 27 63 61 6c 69 62 72 65 64 62 2d 61 64 64 29 0a 20 20 -key.map."a".#'calibredb-add)...
d860 20 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 6d 61 70 20 22 41 22 20 23 27 63 61 6c 69 62 72 65 64 ..(define-key.map."A".#'calibred
d880 62 2d 61 64 64 2d 64 69 72 29 0a 20 20 20 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 6d 61 70 20 22 b-add-dir).....(define-key.map."
d8a0 63 22 20 23 27 63 61 6c 69 62 72 65 64 62 2d 63 6c 6f 6e 65 29 0a 20 20 20 20 28 64 65 66 69 6e c".#'calibredb-clone).....(defin
d8c0 65 2d 6b 65 79 20 6d 61 70 20 22 64 22 20 23 27 63 61 6c 69 62 72 65 64 62 2d 72 65 6d 6f 76 65 e-key.map."d".#'calibredb-remove
d8e0 29 0a 20 20 20 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 6d 61 70 20 22 44 22 20 23 27 63 61 6c 69 ).....(define-key.map."D".#'cali
d900 62 72 65 64 62 2d 72 65 6d 6f 76 65 2d 6d 61 72 6b 65 64 2d 69 74 65 6d 73 29 0a 20 20 20 20 28 bredb-remove-marked-items).....(
d920 64 65 66 69 6e 65 2d 6b 65 79 20 6d 61 70 20 22 6a 22 20 23 27 63 61 6c 69 62 72 65 64 62 2d 6e define-key.map."j".#'calibredb-n
d940 65 78 74 2d 65 6e 74 72 79 29 0a 20 20 20 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 6d 61 70 20 22 ext-entry).....(define-key.map."
d960 6b 22 20 23 27 63 61 6c 69 62 72 65 64 62 2d 70 72 65 76 69 6f 75 73 2d 65 6e 74 72 79 29 0a 20 k".#'calibredb-previous-entry)..
d980 20 20 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 6d 61 70 20 22 6c 22 20 23 27 63 61 6c 69 62 72 65 ...(define-key.map."l".#'calibre
d9a0 64 62 2d 76 69 72 74 75 61 6c 2d 6c 69 62 72 61 72 79 2d 6c 69 73 74 29 0a 20 20 20 20 28 64 65 db-virtual-library-list).....(de
d9c0 66 69 6e 65 2d 6b 65 79 20 6d 61 70 20 22 4c 22 20 23 27 63 61 6c 69 62 72 65 64 62 2d 6c 69 62 fine-key.map."L".#'calibredb-lib
d9e0 72 61 72 79 2d 6c 69 73 74 29 0a 20 20 20 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 6d 61 70 20 22 rary-list).....(define-key.map."
da00 6e 22 20 23 27 63 61 6c 69 62 72 65 64 62 2d 76 69 72 74 75 61 6c 2d 6c 69 62 72 61 72 79 2d 6e n".#'calibredb-virtual-library-n
da20 65 78 74 29 0a 20 20 20 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 6d 61 70 20 22 4e 22 20 23 27 63 ext).....(define-key.map."N".#'c
da40 61 6c 69 62 72 65 64 62 2d 6c 69 62 72 61 72 79 2d 6e 65 78 74 29 0a 20 20 20 20 28 64 65 66 69 alibredb-library-next).....(defi
da60 6e 65 2d 6b 65 79 20 6d 61 70 20 22 70 22 20 23 27 63 61 6c 69 62 72 65 64 62 2d 76 69 72 74 75 ne-key.map."p".#'calibredb-virtu
da80 61 6c 2d 6c 69 62 72 61 72 79 2d 70 72 65 76 69 6f 75 73 29 0a 20 20 20 20 28 64 65 66 69 6e 65 al-library-previous).....(define
daa0 2d 6b 65 79 20 6d 61 70 20 22 50 22 20 23 27 63 61 6c 69 62 72 65 64 62 2d 6c 69 62 72 61 72 79 -key.map."P".#'calibredb-library
dac0 2d 70 72 65 76 69 6f 75 73 29 0a 20 20 20 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 6d 61 70 20 22 -previous).....(define-key.map."
dae0 73 22 20 23 27 63 61 6c 69 62 72 65 64 62 2d 73 65 74 2d 6d 65 74 61 64 61 74 61 2d 64 69 73 70 s".#'calibredb-set-metadata-disp
db00 61 74 63 68 29 0a 20 20 20 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 6d 61 70 20 22 53 22 20 23 27 atch).....(define-key.map."S".#'
db20 63 61 6c 69 62 72 65 64 62 2d 73 77 69 74 63 68 2d 6c 69 62 72 61 72 79 29 0a 20 20 20 20 28 64 calibredb-switch-library).....(d
db40 65 66 69 6e 65 2d 6b 65 79 20 6d 61 70 20 22 67 22 20 23 27 63 61 6c 69 62 72 65 64 62 2d 66 69 efine-key.map."g".#'calibredb-fi
db60 6c 74 65 72 2d 64 69 73 70 61 74 63 68 29 0a 20 20 20 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 6d lter-dispatch).....(define-key.m
db80 61 70 20 22 6f 22 20 23 27 63 61 6c 69 62 72 65 64 62 2d 73 6f 72 74 2d 64 69 73 70 61 74 63 68 ap."o".#'calibredb-sort-dispatch
dba0 29 0a 20 20 20 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 6d 61 70 20 22 4f 22 20 23 27 63 61 6c 69 ).....(define-key.map."O".#'cali
dbc0 62 72 65 64 62 2d 66 69 6e 64 2d 66 69 6c 65 2d 6f 74 68 65 72 2d 66 72 61 6d 65 29 0a 20 20 20 bredb-find-file-other-frame)....
dbe0 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 6d 61 70 20 22 76 22 20 23 27 63 61 6c 69 62 72 65 64 62 .(define-key.map."v".#'calibredb
dc00 2d 76 69 65 77 29 0a 20 20 20 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 6d 61 70 20 22 56 22 20 23 -view).....(define-key.map."V".#
dc20 27 63 61 6c 69 62 72 65 64 62 2d 6f 70 65 6e 2d 66 69 6c 65 2d 77 69 74 68 2d 64 65 66 61 75 6c 'calibredb-open-file-with-defaul
dc40 74 2d 74 6f 6f 6c 29 0a 20 20 20 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 6d 61 70 20 22 2c 22 20 t-tool).....(define-key.map.",".
dc60 23 27 63 61 6c 69 62 72 65 64 62 2d 71 75 69 63 6b 2d 6c 6f 6f 6b 29 0a 20 20 20 20 28 64 65 66 #'calibredb-quick-look).....(def
dc80 69 6e 65 2d 6b 65 79 20 6d 61 70 20 22 2e 22 20 23 27 63 61 6c 69 62 72 65 64 62 2d 64 69 72 65 ine-key.map.".".#'calibredb-dire
dca0 64 2d 6f 70 65 6e 29 0a 20 20 20 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 6d 61 70 20 22 79 22 20 d-open).....(define-key.map."y".
dcc0 23 27 63 61 6c 69 62 72 65 64 62 2d 79 61 6e 6b 2d 64 69 73 70 61 74 63 68 29 0a 20 20 20 20 28 #'calibredb-yank-dispatch).....(
dce0 64 65 66 69 6e 65 2d 6b 65 79 20 6d 61 70 20 22 62 22 20 23 27 63 61 6c 69 62 72 65 64 62 2d 63 define-key.map."b".#'calibredb-c
dd00 61 74 61 6c 6f 67 2d 62 69 62 2d 64 69 73 70 61 74 63 68 29 0a 20 20 20 20 28 64 65 66 69 6e 65 atalog-bib-dispatch).....(define
dd20 2d 6b 65 79 20 6d 61 70 20 22 65 22 20 23 27 63 61 6c 69 62 72 65 64 62 2d 65 78 70 6f 72 74 2d -key.map."e".#'calibredb-export-
dd40 64 69 73 70 61 74 63 68 29 0a 20 20 20 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 6d 61 70 20 22 72 dispatch).....(define-key.map."r
dd60 22 20 23 27 63 61 6c 69 62 72 65 64 62 2d 73 65 61 72 63 68 2d 72 65 66 72 65 73 68 2d 61 6e 64 ".#'calibredb-search-refresh-and
dd80 2d 63 6c 65 61 72 2d 66 69 6c 74 65 72 29 0a 20 20 20 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 6d -clear-filter).....(define-key.m
dda0 61 70 20 22 52 22 20 23 27 63 61 6c 69 62 72 65 64 62 2d 73 65 61 72 63 68 2d 63 6c 65 61 72 2d ap."R".#'calibredb-search-clear-
ddc0 66 69 6c 74 65 72 29 0a 20 20 20 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 6d 61 70 20 22 71 22 20 filter).....(define-key.map."q".
dde0 23 27 63 61 6c 69 62 72 65 64 62 2d 73 65 61 72 63 68 2d 71 75 69 74 29 0a 20 20 20 20 28 64 65 #'calibredb-search-quit).....(de
de00 66 69 6e 65 2d 6b 65 79 20 6d 61 70 20 22 6d 22 20 23 27 63 61 6c 69 62 72 65 64 62 2d 6d 61 72 fine-key.map."m".#'calibredb-mar
de20 6b 2d 61 6e 64 2d 66 6f 72 77 61 72 64 29 0a 20 20 20 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 6d k-and-forward).....(define-key.m
de40 61 70 20 22 2a 22 20 23 27 63 61 6c 69 62 72 65 64 62 2d 74 6f 67 67 6c 65 2d 66 61 76 6f 72 69 ap."*".#'calibredb-toggle-favori
de60 74 65 2d 61 74 2d 70 6f 69 6e 74 29 0a 20 20 20 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 6d 61 70 te-at-point).....(define-key.map
de80 20 22 78 22 20 23 27 63 61 6c 69 62 72 65 64 62 2d 74 6f 67 67 6c 65 2d 61 72 63 68 69 76 65 2d ."x".#'calibredb-toggle-archive-
dea0 61 74 2d 70 6f 69 6e 74 29 0a 20 20 20 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 6d 61 70 20 22 68 at-point).....(define-key.map."h
dec0 22 20 23 27 63 61 6c 69 62 72 65 64 62 2d 74 6f 67 67 6c 65 2d 68 69 67 68 6c 69 67 68 74 2d 61 ".#'calibredb-toggle-highlight-a
dee0 74 2d 70 6f 69 6e 74 29 0a 20 20 20 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 6d 61 70 20 22 75 22 t-point).....(define-key.map."u"
df00 20 23 27 63 61 6c 69 62 72 65 64 62 2d 75 6e 6d 61 72 6b 2d 61 6e 64 2d 66 6f 72 77 61 72 64 29 .#'calibredb-unmark-and-forward)
df20 0a 20 20 20 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 6d 61 70 20 22 69 22 20 23 27 63 61 6c 69 62 .....(define-key.map."i".#'calib
df40 72 65 64 62 2d 65 64 69 74 2d 61 6e 6e 6f 74 61 74 69 6f 6e 29 0a 20 20 20 20 28 64 65 66 69 6e redb-edit-annotation).....(defin
df60 65 2d 6b 65 79 20 6d 61 70 20 28 6b 62 64 20 22 3c 44 45 4c 3e 22 29 20 23 27 63 61 6c 69 62 72 e-key.map.(kbd."<DEL>").#'calibr
df80 65 64 62 2d 75 6e 6d 61 72 6b 2d 61 6e 64 2d 62 61 63 6b 77 61 72 64 29 0a 20 20 20 20 28 64 65 edb-unmark-and-backward).....(de
dfa0 66 69 6e 65 2d 6b 65 79 20 6d 61 70 20 28 6b 62 64 20 22 3c 62 61 63 6b 74 61 62 3e 22 29 20 23 fine-key.map.(kbd."<backtab>").#
dfc0 27 63 61 6c 69 62 72 65 64 62 2d 74 6f 67 67 6c 65 2d 76 69 65 77 29 0a 20 20 20 20 28 64 65 66 'calibredb-toggle-view).....(def
dfe0 69 6e 65 2d 6b 65 79 20 6d 61 70 20 28 6b 62 64 20 22 54 41 42 22 29 20 23 27 63 61 6c 69 62 72 ine-key.map.(kbd."TAB").#'calibr
e000 65 64 62 2d 74 6f 67 67 6c 65 2d 76 69 65 77 2d 61 74 2d 70 6f 69 6e 74 29 0a 20 20 20 20 28 64 edb-toggle-view-at-point).....(d
e020 65 66 69 6e 65 2d 6b 65 79 20 6d 61 70 20 22 5c 4d 2d 6e 22 20 23 27 63 61 6c 69 62 72 65 64 62 efine-key.map."\M-n".#'calibredb
e040 2d 73 68 6f 77 2d 6e 65 78 74 2d 65 6e 74 72 79 29 0a 20 20 20 20 28 64 65 66 69 6e 65 2d 6b 65 -show-next-entry).....(define-ke
e060 79 20 6d 61 70 20 22 5c 4d 2d 70 22 20 23 27 63 61 6c 69 62 72 65 64 62 2d 73 68 6f 77 2d 70 72 y.map."\M-p".#'calibredb-show-pr
e080 65 76 69 6f 75 73 2d 65 6e 74 72 79 29 0a 20 20 20 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 6d 61 evious-entry).....(define-key.ma
e0a0 70 20 22 2f 22 20 23 27 63 61 6c 69 62 72 65 64 62 2d 73 65 61 72 63 68 2d 6c 69 76 65 2d 66 69 p."/".#'calibredb-search-live-fi
e0c0 6c 74 65 72 29 0a 20 20 20 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 6d 61 70 20 22 5c 4d 2d 74 22 lter).....(define-key.map."\M-t"
e0e0 20 23 27 63 61 6c 69 62 72 65 64 62 2d 73 65 74 2d 6d 65 74 61 64 61 74 61 2d 2d 74 61 67 73 29 .#'calibredb-set-metadata--tags)
e100 0a 20 20 20 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 6d 61 70 20 22 5c 4d 2d 61 22 20 23 27 63 61 .....(define-key.map."\M-a".#'ca
e120 6c 69 62 72 65 64 62 2d 73 65 74 2d 6d 65 74 61 64 61 74 61 2d 2d 61 75 74 68 6f 72 5f 73 6f 72 libredb-set-metadata--author_sor
e140 74 29 0a 20 20 20 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 6d 61 70 20 22 5c 4d 2d 41 22 20 23 27 t).....(define-key.map."\M-A".#'
e160 63 61 6c 69 62 72 65 64 62 2d 73 65 74 2d 6d 65 74 61 64 61 74 61 2d 2d 61 75 74 68 6f 72 73 29 calibredb-set-metadata--authors)
e180 0a 20 20 20 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 6d 61 70 20 22 5c 4d 2d 54 22 20 23 27 63 61 .....(define-key.map."\M-T".#'ca
e1a0 6c 69 62 72 65 64 62 2d 73 65 74 2d 6d 65 74 61 64 61 74 61 2d 2d 74 69 74 6c 65 29 0a 20 20 20 libredb-set-metadata--title)....
e1c0 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 6d 61 70 20 22 5c 4d 2d 63 22 20 23 27 63 61 6c 69 62 72 .(define-key.map."\M-c".#'calibr
e1e0 65 64 62 2d 73 65 74 2d 6d 65 74 61 64 61 74 61 2d 2d 63 6f 6d 6d 65 6e 74 73 29 0a 20 20 20 20 edb-set-metadata--comments).....
e200 6d 61 70 29 0a 20 20 22 4b 65 79 6d 61 70 20 66 6f 72 20 60 63 61 6c 69 62 72 65 64 62 2d 73 65 map)..."Keymap.for.`calibredb-se
e220 61 72 63 68 2d 6d 6f 64 65 27 2e 22 29 0a 0a 28 64 65 66 76 61 72 20 63 61 6c 69 62 72 65 64 62 arch-mode'.")..(defvar.calibredb
e240 2d 65 64 69 74 2d 61 6e 6e 6f 74 61 74 69 6f 6e 2d 6d 6f 64 65 2d 6d 61 70 0a 20 20 28 6c 65 74 -edit-annotation-mode-map...(let
e260 20 28 28 6d 61 70 20 28 6d 61 6b 65 2d 73 70 61 72 73 65 2d 6b 65 79 6d 61 70 29 29 29 0a 20 20 .((map.(make-sparse-keymap)))...
e280 20 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 6d 61 70 20 22 5c 43 2d 63 5c 43 2d 63 22 20 27 63 61 ..(define-key.map."\C-c\C-c".'ca
e2a0 6c 69 62 72 65 64 62 2d 73 65 6e 64 2d 65 64 69 74 65 64 2d 61 6e 6e 6f 74 61 74 69 6f 6e 29 0a libredb-send-edited-annotation).
e2c0 20 20 20 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 6d 61 70 20 22 5c 43 2d 63 5c 43 2d 6b 22 20 27 ....(define-key.map."\C-c\C-k".'
e2e0 63 61 6c 69 62 72 65 64 62 2d 61 6e 6e 6f 74 61 74 69 6f 6e 2d 71 75 69 74 29 0a 20 20 20 20 6d calibredb-annotation-quit).....m
e300 61 70 29 0a 20 20 22 4b 65 79 6d 61 70 20 66 6f 72 20 60 63 61 6c 69 62 72 65 64 62 2d 65 64 69 ap)..."Keymap.for.`calibredb-edi
e320 74 2d 61 6e 6e 6f 74 61 74 69 6f 6e 2d 6d 6f 64 65 27 2e 22 29 0a 0a 28 64 65 66 76 61 72 20 63 t-annotation-mode'.")..(defvar.c
e340 61 6c 69 62 72 65 64 62 2d 73 65 61 72 63 68 2d 68 65 61 64 65 72 2d 66 75 6e 63 74 69 6f 6e 20 alibredb-search-header-function.
e360 23 27 63 61 6c 69 62 72 65 64 62 2d 73 65 61 72 63 68 2d 68 65 61 64 65 72 0a 20 20 22 46 75 6e #'calibredb-search-header..."Fun
e380 63 74 69 6f 6e 20 74 68 61 74 20 72 65 74 75 72 6e 73 20 74 68 65 20 73 74 72 69 6e 67 20 74 6f ction.that.returns.the.string.to
e3a0 20 62 65 20 75 73 65 64 20 66 6f 72 20 74 68 65 20 43 61 6c 69 62 72 65 64 62 20 73 65 61 72 63 .be.used.for.the.Calibredb.searc
e3c0 68 20 68 65 61 64 65 72 2e 22 29 0a 0a 28 64 65 66 76 61 72 20 63 61 6c 69 62 72 65 64 62 2d 69 h.header.")..(defvar.calibredb-i
e3e0 6d 61 67 65 73 2d 70 61 74 68 20 28 63 6f 6e 63 61 74 20 28 66 69 6c 65 2d 6e 61 6d 65 2d 64 69 mages-path.(concat.(file-name-di
e400 72 65 63 74 6f 72 79 20 6c 6f 61 64 2d 66 69 6c 65 2d 6e 61 6d 65 29 20 22 69 6d 67 22 29 0a 20 rectory.load-file-name)."img")..
e420 20 22 52 65 6c 61 74 69 76 65 20 70 61 74 68 20 74 6f 20 69 6d 61 67 65 73 2e 22 29 0a 0a 28 64 ."Relative.path.to.images.")..(d
e440 65 66 63 75 73 74 6f 6d 20 63 61 6c 69 62 72 65 64 62 2d 73 65 61 72 63 68 2d 75 6e 69 71 75 65 efcustom.calibredb-search-unique
e460 2d 62 75 66 66 65 72 73 20 6e 69 6c 0a 20 20 22 54 4f 44 4f 3a 20 57 68 65 6e 20 6e 6f 6e 2d 6e -buffers.nil..."TODO:.When.non-n
e480 69 6c 2c 20 65 76 65 72 79 20 65 6e 74 72 79 20 62 75 66 66 65 72 20 67 65 74 73 20 61 20 75 6e il,.every.entry.buffer.gets.a.un
e4a0 69 71 75 65 20 6e 61 6d 65 2e 0a 54 68 69 73 20 61 6c 6c 6f 77 73 20 66 6f 72 20 64 69 73 70 6c ique.name..This.allows.for.displ
e4c0 61 79 69 6e 67 20 6d 75 6c 74 69 70 6c 65 20 73 65 72 63 68 20 62 75 66 66 65 72 73 20 61 74 20 aying.multiple.serch.buffers.at.
e4e0 74 68 65 20 73 61 6d 65 0a 74 69 6d 65 2e 22 0a 20 20 3a 67 72 6f 75 70 20 27 63 61 6c 69 62 72 the.same.time."...:group.'calibr
e500 65 64 62 0a 20 20 3a 74 79 70 65 20 27 62 6f 6f 6c 65 61 6e 29 0a 0a 28 64 65 66 69 6e 65 2d 6f edb...:type.'boolean)..(define-o
e520 62 73 6f 6c 65 74 65 2d 66 75 6e 63 74 69 6f 6e 2d 61 6c 69 61 73 20 23 27 63 61 6c 69 62 72 65 bsolete-function-alias.#'calibre
e540 64 62 2d 73 65 61 72 63 68 2d 72 65 74 0a 20 20 27 63 61 6c 69 62 72 65 64 62 2d 76 69 65 77 20 db-search-ret...'calibredb-view.
e560 22 63 61 6c 69 62 72 65 64 62 20 32 2e 30 2e 30 22 29 0a 0a 28 64 65 66 63 75 73 74 6f 6d 20 63 "calibredb.2.0.0")..(defcustom.c
e580 61 6c 69 62 72 65 64 62 2d 64 65 74 61 69 6c 65 64 2d 76 69 65 77 20 6e 69 6c 0a 20 20 22 53 65 alibredb-detailed-view.nil..."Se
e5a0 74 20 4e 6f 6e 2d 6e 69 6c 20 74 6f 20 63 68 61 6e 67 65 20 64 65 74 61 69 6c 20 76 69 65 77 2c t.Non-nil.to.change.detail.view,
e5c0 20 6e 69 6c 20 74 6f 20 63 6f 6d 70 61 63 74 20 76 69 65 77 20 2d 20 2a 63 61 6c 69 62 72 65 64 .nil.to.compact.view.-.*calibred
e5e0 62 2d 73 65 61 72 63 68 2a 2e 22 0a 20 20 3a 67 72 6f 75 70 20 27 63 61 6c 69 62 72 65 64 62 0a b-search*."...:group.'calibredb.
e600 20 20 3a 74 79 70 65 20 27 62 6f 6f 6c 65 61 6e 29 0a 0a 28 64 65 66 69 6e 65 2d 6f 62 73 6f 6c ..:type.'boolean)..(define-obsol
e620 65 74 65 2d 76 61 72 69 61 62 6c 65 2d 61 6c 69 61 73 20 27 63 61 6c 69 62 72 65 64 62 2d 64 65 ete-variable-alias.'calibredb-de
e640 74 69 61 6c 2d 76 69 65 77 20 27 63 61 6c 69 62 72 65 64 62 2d 64 65 74 61 69 6c 65 64 2d 76 69 tial-view.'calibredb-detailed-vi
e660 65 77 0a 20 20 22 53 65 65 20 68 74 74 70 73 3a 2f 2f 67 69 74 68 75 62 2e 63 6f 6d 2f 63 68 65 ew..."See.https://github.com/che
e680 6e 79 61 6e 6d 69 6e 67 2f 63 61 6c 69 62 72 65 64 62 2e 65 6c 2f 70 75 6c 6c 2f 34 35 22 20 22 nyanming/calibredb.el/pull/45"."
e6a0 46 69 78 69 6e 67 20 74 79 70 6f 73 2e 22 29 0a 0a 28 64 65 66 63 75 73 74 6f 6d 20 63 61 6c 69 Fixing.typos.")..(defcustom.cali
e6c0 62 72 65 64 62 2d 64 65 74 61 69 6c 65 64 2d 76 69 65 77 2d 69 6d 61 67 65 2d 73 68 6f 77 20 74 bredb-detailed-view-image-show.t
e6e0 0a 20 20 22 53 65 74 20 4e 6f 6e 2d 6e 69 6c 20 74 6f 20 73 68 6f 77 20 69 6d 61 67 65 73 20 69 ..."Set.Non-nil.to.show.images.i
e700 6e 20 64 65 74 61 69 6c 65 64 20 76 69 65 77 20 2d 20 2a 63 61 6c 69 62 72 65 64 62 2d 73 65 61 n.detailed.view.-.*calibredb-sea
e720 72 63 68 2a 2e 22 0a 20 20 3a 67 72 6f 75 70 20 27 63 61 6c 69 62 72 65 64 62 0a 20 20 3a 74 79 rch*."...:group.'calibredb...:ty
e740 70 65 20 27 62 6f 6f 6c 65 61 6e 29 0a 0a 28 64 65 66 63 75 73 74 6f 6d 20 63 61 6c 69 62 72 65 pe.'boolean)..(defcustom.calibre
e760 64 62 2d 64 65 74 61 69 6c 65 64 2d 76 69 65 77 2d 69 6d 61 67 65 2d 6d 61 78 2d 77 69 64 74 68 db-detailed-view-image-max-width
e780 20 32 35 30 0a 20 20 22 4d 61 78 20 57 69 64 74 68 20 66 6f 72 20 69 6d 61 67 65 73 20 69 6e 20 .250..."Max.Width.for.images.in.
e7a0 64 65 74 61 69 6c 65 64 20 76 69 65 77 20 2d 20 2a 63 61 6c 69 62 72 65 64 62 2d 73 65 61 72 63 detailed.view.-.*calibredb-searc
e7c0 68 2a 2e 0a 46 6f 72 20 45 6d 61 63 73 20 32 37 2e 31 2b 2c 20 69 66 20 69 6d 61 67 65 6d 61 67 h*..For.Emacs.27.1+,.if.imagemag
e7e0 69 63 6b 20 69 73 20 64 69 73 61 62 6c 65 64 2c 20 69 74 20 77 6f 75 6c 64 20 74 68 65 20 69 6d ick.is.disabled,.it.would.the.im
e800 61 67 65 20 77 69 64 74 68 2e 22 0a 20 20 3a 67 72 6f 75 70 20 27 63 61 6c 69 62 72 65 64 62 0a age.width."...:group.'calibredb.
e820 20 20 3a 74 79 70 65 20 27 69 6e 74 65 67 65 72 29 0a 0a 28 64 65 66 63 75 73 74 6f 6d 20 63 61 ..:type.'integer)..(defcustom.ca
e840 6c 69 62 72 65 64 62 2d 64 65 74 61 69 6c 65 64 2d 76 69 65 77 2d 69 6d 61 67 65 2d 6d 61 78 2d libredb-detailed-view-image-max-
e860 68 65 69 67 68 74 20 32 35 30 0a 20 20 22 4d 61 78 20 68 65 69 67 68 74 20 66 6f 72 20 69 6d 61 height.250..."Max.height.for.ima
e880 67 65 73 20 69 6e 20 64 65 74 61 69 6c 65 64 20 76 69 65 77 20 2d 20 2a 63 61 6c 69 62 72 65 64 ges.in.detailed.view.-.*calibred
e8a0 62 2d 73 65 61 72 63 68 2a 2e 0a 46 6f 72 20 45 6d 61 63 73 20 32 37 2e 31 2b 2c 20 69 66 20 69 b-search*..For.Emacs.27.1+,.if.i
e8c0 6d 61 67 65 6d 61 67 69 63 6b 20 69 73 20 64 69 73 61 62 6c 65 64 2c 20 74 68 65 20 69 6d 61 67 magemagick.is.disabled,.the.imag
e8e0 65 20 68 65 69 67 68 74 20 69 73 20 69 67 6e 6f 72 65 64 2e 22 0a 20 20 3a 67 72 6f 75 70 20 27 e.height.is.ignored."...:group.'
e900 63 61 6c 69 62 72 65 64 62 0a 20 20 3a 74 79 70 65 20 27 69 6e 74 65 67 65 72 29 0a 0a 28 64 65 calibredb...:type.'integer)..(de
e920 66 63 75 73 74 6f 6d 20 63 61 6c 69 62 72 65 64 62 2d 6c 69 73 74 2d 76 69 65 77 2d 69 6d 61 67 fcustom.calibredb-list-view-imag
e940 65 2d 6d 61 78 2d 77 69 64 74 68 20 35 30 30 0a 20 20 22 4d 61 78 20 57 69 64 74 68 20 66 6f 72 e-max-width.500..."Max.Width.for
e960 20 69 6d 61 67 65 73 20 69 6e 20 6c 69 73 74 20 76 69 65 77 20 2d 20 2a 63 61 6c 69 62 72 65 64 .images.in.list.view.-.*calibred
e980 62 2d 6c 69 73 74 2a 2e 0a 46 6f 72 20 45 6d 61 63 73 20 32 37 2e 31 2b 2c 20 69 66 20 69 6d 61 b-list*..For.Emacs.27.1+,.if.ima
e9a0 67 65 6d 61 67 69 63 6b 20 69 73 20 64 69 73 61 62 6c 65 64 2c 20 69 74 20 69 73 20 74 68 65 20 gemagick.is.disabled,.it.is.the.
e9c0 69 6d 61 67 65 20 77 69 64 74 68 2e 22 0a 20 20 3a 67 72 6f 75 70 20 27 63 61 6c 69 62 72 65 64 image.width."...:group.'calibred
e9e0 62 0a 20 20 3a 74 79 70 65 20 27 69 6e 74 65 67 65 72 29 0a 0a 28 64 65 66 63 75 73 74 6f 6d 20 b...:type.'integer)..(defcustom.
ea00 63 61 6c 69 62 72 65 64 62 2d 6c 69 73 74 2d 76 69 65 77 2d 69 6d 61 67 65 2d 6d 61 78 2d 68 65 calibredb-list-view-image-max-he
ea20 69 67 68 74 20 35 30 30 0a 20 20 22 4d 61 78 20 68 65 69 67 68 74 20 66 6f 72 20 69 6d 61 67 65 ight.500..."Max.height.for.image
ea40 73 20 69 6e 20 6c 69 73 74 20 76 69 65 77 20 2d 20 2a 63 61 6c 69 62 72 65 64 62 2d 6c 69 73 74 s.in.list.view.-.*calibredb-list
ea60 2a 2e 0a 46 6f 72 20 45 6d 61 63 73 20 32 37 2e 31 2b 2c 20 69 66 20 69 6d 61 67 65 6d 61 67 69 *..For.Emacs.27.1+,.if.imagemagi
ea80 63 6b 20 69 73 20 64 69 73 61 62 6c 65 64 2c 20 74 68 65 20 69 6d 61 67 65 20 68 65 69 67 68 74 ck.is.disabled,.the.image.height
eaa0 20 69 73 20 69 67 6e 6f 72 65 64 2e 22 0a 20 20 3a 67 72 6f 75 70 20 27 63 61 6c 69 62 72 65 64 .is.ignored."...:group.'calibred
eac0 62 0a 20 20 3a 74 79 70 65 20 27 69 6e 74 65 67 65 72 29 0a 0a 28 64 65 66 75 6e 20 63 61 6c 69 b...:type.'integer)..(defun.cali
eae0 62 72 65 64 62 2d 73 65 61 72 63 68 2d 2d 62 75 66 66 65 72 2d 6e 61 6d 65 20 28 29 0a 20 20 22 bredb-search--buffer-name.()..."
eb00 52 65 74 75 72 6e 20 74 68 65 20 61 70 70 72 6f 70 72 69 61 74 65 20 62 75 66 66 65 72 20 6e 61 Return.the.appropriate.buffer.na
eb20 6d 65 20 66 6f 72 20 45 4e 54 52 59 2e 0a 54 68 65 20 72 65 73 75 6c 74 20 64 65 70 65 6e 64 73 me.for.ENTRY..The.result.depends
eb40 20 6f 6e 20 74 68 65 20 76 61 6c 75 65 20 6f 66 20 60 63 61 6c 69 62 72 65 64 62 2d 73 65 61 72 .on.the.value.of.`calibredb-sear
eb60 63 68 2d 75 6e 69 71 75 65 2d 62 75 66 66 65 72 73 27 2e 22 0a 20 20 28 69 66 20 63 61 6c 69 62 ch-unique-buffers'."...(if.calib
eb80 72 65 64 62 2d 73 65 61 72 63 68 2d 75 6e 69 71 75 65 2d 62 75 66 66 65 72 73 0a 20 20 20 20 20 redb-search-unique-buffers......
eba0 20 28 66 6f 72 6d 61 74 20 22 2a 63 61 6c 69 62 72 65 64 62 2d 73 65 61 72 63 68 2d 3c 25 73 3e .(format."*calibredb-search-<%s>
ebc0 2a 22 20 63 61 6c 69 62 72 65 64 62 2d 72 6f 6f 74 2d 64 69 72 29 0a 20 20 20 20 22 2a 63 61 6c *".calibredb-root-dir)....."*cal
ebe0 69 62 72 65 64 62 2d 73 65 61 72 63 68 2a 22 29 29 0a 0a 28 64 65 66 75 6e 20 63 61 6c 69 62 72 ibredb-search*"))..(defun.calibr
ec00 65 64 62 2d 73 68 6f 77 2d 65 6e 74 72 79 20 28 65 6e 74 72 79 20 26 6f 70 74 69 6f 6e 61 6c 20 edb-show-entry.(entry.&optional.
ec20 73 77 69 74 63 68 29 0a 20 20 22 44 69 73 70 6c 61 79 20 45 4e 54 52 59 20 69 6e 20 74 68 65 20 switch)..."Display.ENTRY.in.the.
ec40 63 75 72 72 65 6e 74 20 62 75 66 66 65 72 2e 0a 4f 70 74 69 6f 6e 61 6c 20 61 72 67 75 6d 65 6e current.buffer..Optional.argumen
ec60 74 20 53 57 49 54 43 48 20 74 6f 20 73 77 69 74 63 68 20 74 6f 20 2a 63 61 6c 69 62 72 65 64 62 t.SWITCH.to.switch.to.*calibredb
ec80 2d 73 65 61 72 63 68 2a 20 62 75 66 66 65 72 20 74 6f 20 6f 74 68 65 72 20 77 69 6e 64 6f 77 2e -search*.buffer.to.other.window.
eca0 22 0a 20 20 28 75 6e 6c 65 73 73 20 28 65 71 20 6d 61 6a 6f 72 2d 6d 6f 64 65 20 27 63 61 6c 69 "...(unless.(eq.major-mode.'cali
ecc0 62 72 65 64 62 2d 73 68 6f 77 2d 6d 6f 64 65 29 0a 20 20 20 20 20 20 28 77 68 65 6e 20 28 67 65 bredb-show-mode).......(when.(ge
ece0 74 2d 62 75 66 66 65 72 20 28 63 61 6c 69 62 72 65 64 62 2d 73 68 6f 77 2d 2d 62 75 66 66 65 72 t-buffer.(calibredb-show--buffer
ed00 2d 6e 61 6d 65 20 65 6e 74 72 79 29 29 0a 20 20 20 20 20 20 20 20 28 6b 69 6c 6c 2d 62 75 66 66 -name.entry)).........(kill-buff
ed20 65 72 20 28 63 61 6c 69 62 72 65 64 62 2d 73 68 6f 77 2d 2d 62 75 66 66 65 72 2d 6e 61 6d 65 20 er.(calibredb-show--buffer-name.
ed40 65 6e 74 72 79 29 29 29 29 0a 20 20 28 6c 65 74 2a 20 28 28 62 75 66 66 20 28 67 65 74 2d 62 75 entry))))...(let*.((buff.(get-bu
ed60 66 66 65 72 2d 63 72 65 61 74 65 20 28 63 61 6c 69 62 72 65 64 62 2d 73 68 6f 77 2d 2d 62 75 66 ffer-create.(calibredb-show--buf
ed80 66 65 72 2d 6e 61 6d 65 20 65 6e 74 72 79 29 29 29 0a 20 20 20 20 20 20 20 20 20 28 69 64 20 28 fer-name.entry)))..........(id.(
eda0 63 61 6c 69 62 72 65 64 62 2d 67 65 74 61 74 74 72 20 65 6e 74 72 79 20 3a 69 64 29 29 20 3b 20 calibredb-getattr.entry.:id)).;.
edc0 6f 6e 6c 79 20 67 65 74 20 74 68 65 20 69 64 0a 20 20 20 20 20 20 20 20 20 28 74 61 67 20 28 63 only.get.the.id..........(tag.(c
ede0 61 6c 69 62 72 65 64 62 2d 67 65 74 61 74 74 72 20 65 6e 74 72 79 20 3a 74 61 67 29 29 0a 20 20 alibredb-getattr.entry.:tag))...
ee00 20 20 20 20 20 20 20 28 63 6f 6d 6d 65 6e 74 20 28 63 61 6c 69 62 72 65 64 62 2d 67 65 74 61 74 .......(comment.(calibredb-getat
ee20 74 72 20 65 6e 74 72 79 20 3a 63 6f 6d 6d 65 6e 74 29 29 0a 20 20 20 20 20 20 20 20 20 28 61 75 tr.entry.:comment))..........(au
ee40 74 68 6f 72 2d 73 6f 72 74 20 28 63 61 6c 69 62 72 65 64 62 2d 67 65 74 61 74 74 72 20 65 6e 74 thor-sort.(calibredb-getattr.ent
ee60 72 79 20 3a 61 75 74 68 6f 72 2d 73 6f 72 74 29 29 0a 20 20 20 20 20 20 20 20 20 28 74 69 74 6c ry.:author-sort))..........(titl
ee80 65 20 28 63 61 6c 69 62 72 65 64 62 2d 67 65 74 61 74 74 72 20 65 6e 74 72 79 20 3a 62 6f 6f 6b e.(calibredb-getattr.entry.:book
eea0 2d 74 69 74 6c 65 29 29 0a 20 20 20 20 20 20 20 20 20 28 70 75 62 64 61 74 65 20 28 63 61 6c 69 -title))..........(pubdate.(cali
eec0 62 72 65 64 62 2d 67 65 74 61 74 74 72 20 65 6e 74 72 79 20 3a 62 6f 6f 6b 2d 70 75 62 64 61 74 bredb-getattr.entry.:book-pubdat
eee0 65 29 29 0a 20 20 20 20 20 20 20 20 20 3b 3b 20 28 71 75 65 72 79 2d 72 65 73 75 6c 74 20 28 63 e))..........;;.(query-result.(c
ef00 64 72 20 28 63 61 72 20 28 63 61 6c 69 62 72 65 64 62 2d 63 61 6e 64 69 64 61 74 65 20 69 64 29 dr.(car.(calibredb-candidate.id)
ef20 29 29 29 20 3b 20 67 65 74 20 74 68 65 20 6e 65 77 20 65 6e 74 72 79 20 74 68 72 6f 75 67 68 20 ))).;.get.the.new.entry.through.
ef40 53 51 4c 20 71 75 65 72 79 0a 20 20 20 20 20 20 20 20 20 28 66 69 6c 65 20 28 63 61 6c 69 62 72 SQL.query..........(file.(calibr
ef60 65 64 62 2d 67 65 74 61 74 74 72 20 65 6e 74 72 79 20 3a 66 69 6c 65 2d 70 61 74 68 29 29 0a 20 edb-getattr.entry.:file-path))..
ef80 20 20 20 20 20 20 20 20 28 63 6f 76 65 72 20 28 63 61 6c 69 62 72 65 64 62 2d 67 65 74 2d 63 6f ........(cover.(calibredb-get-co
efa0 76 65 72 20 65 6e 74 72 79 29 29 0a 20 20 20 20 20 20 20 20 20 28 66 6f 72 6d 61 74 20 28 63 61 ver.entry))..........(format.(ca
efc0 6c 69 62 72 65 64 62 2d 67 65 74 61 74 74 72 20 65 6e 74 72 79 20 3a 62 6f 6f 6b 2d 66 6f 72 6d libredb-getattr.entry.:book-form
efe0 61 74 29 29 0a 20 20 20 20 20 20 20 20 20 28 73 69 7a 65 20 28 63 61 6c 69 62 72 65 64 62 2d 67 at))..........(size.(calibredb-g
f000 65 74 61 74 74 72 20 65 6e 74 72 79 20 3a 73 69 7a 65 29 29 0a 20 20 20 20 20 20 20 20 20 28 69 etattr.entry.:size))..........(i
f020 64 73 20 28 63 61 6c 69 62 72 65 64 62 2d 67 65 74 61 74 74 72 20 65 6e 74 72 79 20 3a 69 64 73 ds.(calibredb-getattr.entry.:ids
f040 29 29 0a 20 20 20 20 20 20 20 20 20 28 70 75 62 6c 69 73 68 65 72 20 28 63 61 6c 69 62 72 65 64 ))..........(publisher.(calibred
f060 62 2d 67 65 74 61 74 74 72 20 65 6e 74 72 79 20 3a 70 75 62 6c 69 73 68 65 72 29 29 0a 20 20 20 b-getattr.entry.:publisher))....
f080 20 20 20 20 20 20 28 73 65 72 69 65 73 20 28 63 61 6c 69 62 72 65 64 62 2d 67 65 74 61 74 74 72 ......(series.(calibredb-getattr
f0a0 20 65 6e 74 72 79 20 3a 73 65 72 69 65 73 29 29 0a 20 20 20 20 20 20 20 20 20 28 6c 61 6e 67 5f .entry.:series))..........(lang_
f0c0 63 6f 64 65 20 28 63 61 6c 69 62 72 65 64 62 2d 67 65 74 61 74 74 72 20 65 6e 74 72 79 20 3a 6c code.(calibredb-getattr.entry.:l
f0e0 61 6e 67 5f 63 6f 64 65 29 29 0a 20 20 20 20 20 20 20 20 20 28 6c 61 73 74 5f 6d 6f 64 69 66 69 ang_code))..........(last_modifi
f100 65 64 20 28 63 61 6c 69 62 72 65 64 62 2d 67 65 74 61 74 74 72 20 65 6e 74 72 79 20 3a 6c 61 73 ed.(calibredb-getattr.entry.:las
f120 74 5f 6d 6f 64 69 66 69 65 64 29 29 0a 20 20 20 20 20 20 20 20 20 28 6f 72 69 67 69 6e 61 6c 20 t_modified))..........(original.
f140 28 70 6f 69 6e 74 29 29 0a 20 20 20 20 20 20 20 20 20 28 66 69 6c 65 2d 6d 61 70 20 28 6d 61 6b (point))..........(file-map.(mak
f160 65 2d 73 70 61 72 73 65 2d 6b 65 79 6d 61 70 29 29 0a 20 20 20 20 20 20 20 20 20 62 65 67 20 65 e-sparse-keymap))..........beg.e
f180 6e 64 29 0a 20 20 20 20 28 6c 65 74 20 28 28 69 6e 68 69 62 69 74 2d 72 65 61 64 2d 6f 6e 6c 79 nd).....(let.((inhibit-read-only
f1a0 20 74 29 20 63 2d 62 65 67 20 63 2d 65 6e 64 29 0a 20 20 20 20 20 20 28 77 69 74 68 2d 63 75 72 .t).c-beg.c-end).......(with-cur
f1c0 72 65 6e 74 2d 62 75 66 66 65 72 20 62 75 66 66 0a 20 20 20 20 20 20 20 20 28 64 65 66 69 6e 65 rent-buffer.buff.........(define
f1e0 2d 6b 65 79 20 66 69 6c 65 2d 6d 61 70 20 5b 6d 6f 75 73 65 2d 31 5d 20 27 63 61 6c 69 62 72 65 -key.file-map.[mouse-1].'calibre
f200 64 62 2d 66 69 6c 65 2d 6d 6f 75 73 65 2d 31 29 0a 20 20 20 20 20 20 20 20 28 64 65 66 69 6e 65 db-file-mouse-1).........(define
f220 2d 6b 65 79 20 66 69 6c 65 2d 6d 61 70 20 5b 6d 6f 75 73 65 2d 33 5d 20 27 63 61 6c 69 62 72 65 -key.file-map.[mouse-3].'calibre
f240 64 62 2d 66 69 6c 65 2d 6d 6f 75 73 65 2d 33 29 0a 20 20 20 20 20 20 20 20 28 65 72 61 73 65 2d db-file-mouse-3).........(erase-
f260 62 75 66 66 65 72 29 0a 20 20 20 20 20 20 20 20 28 73 65 74 71 20 62 65 67 20 28 70 6f 69 6e 74 buffer).........(setq.beg.(point
f280 29 29 0a 20 20 20 20 20 20 20 20 3b 3b 20 28 69 6e 73 65 72 74 20 28 70 72 6f 70 65 72 74 69 7a )).........;;.(insert.(propertiz
f2a0 65 20 28 63 61 6c 69 62 72 65 64 62 2d 73 68 6f 77 2d 6d 65 74 61 64 61 74 61 20 65 6e 74 72 79 e.(calibredb-show-metadata.entry
f2c0 29 20 27 63 61 6c 69 62 72 65 64 62 2d 65 6e 74 72 79 20 65 6e 74 72 79 29 29 0a 20 20 20 20 20 ).'calibredb-entry.entry))......
f2e0 20 20 20 28 69 6e 73 65 72 74 20 28 66 6f 72 6d 61 74 20 22 49 44 20 20 20 20 20 20 20 20 20 20 ...(insert.(format."ID..........
f300 25 73 5c 6e 22 20 28 70 72 6f 70 65 72 74 69 7a 65 20 69 64 20 27 66 61 63 65 20 27 63 61 6c 69 %s\n".(propertize.id.'face.'cali
f320 62 72 65 64 62 2d 69 64 2d 66 61 63 65 29 29 29 0a 20 20 20 20 20 20 20 20 28 73 65 74 71 20 65 bredb-id-face))).........(setq.e
f340 6e 64 20 28 70 6f 69 6e 74 29 29 0a 20 20 20 20 20 20 20 20 28 70 75 74 2d 74 65 78 74 2d 70 72 nd.(point)).........(put-text-pr
f360 6f 70 65 72 74 79 20 62 65 67 20 65 6e 64 20 27 63 61 6c 69 62 72 65 64 62 2d 65 6e 74 72 79 20 operty.beg.end.'calibredb-entry.
f380 65 6e 74 72 79 29 0a 20 20 20 20 20 20 20 20 28 69 6e 73 65 72 74 20 28 66 6f 72 6d 61 74 20 22 entry).........(insert.(format."
f3a0 54 69 74 6c 65 20 20 20 20 20 20 20 25 73 5c 6e 22 20 28 70 72 6f 70 65 72 74 69 7a 65 20 74 69 Title.......%s\n".(propertize.ti
f3c0 74 6c 65 20 27 66 61 63 65 20 27 63 61 6c 69 62 72 65 64 62 2d 74 69 74 6c 65 2d 66 61 63 65 29 tle.'face.'calibredb-title-face)
f3e0 29 29 0a 20 20 20 20 20 20 20 20 28 69 6e 73 65 72 74 20 28 66 6f 72 6d 61 74 20 22 41 75 74 68 )).........(insert.(format."Auth
f400 6f 72 5f 73 6f 72 74 20 25 73 5c 6e 22 20 28 70 72 6f 70 65 72 74 69 7a 65 20 61 75 74 68 6f 72 or_sort.%s\n".(propertize.author
f420 2d 73 6f 72 74 20 27 66 61 63 65 20 27 63 61 6c 69 62 72 65 64 62 2d 61 75 74 68 6f 72 2d 66 61 -sort.'face.'calibredb-author-fa
f440 63 65 29 29 29 0a 20 20 20 20 20 20 20 20 28 69 6e 73 65 72 74 20 28 66 6f 72 6d 61 74 20 22 54 ce))).........(insert.(format."T
f460 61 67 73 20 20 20 20 20 20 20 20 25 73 5c 6e 22 20 28 70 72 6f 70 65 72 74 69 7a 65 20 74 61 67 ags........%s\n".(propertize.tag
f480 20 27 66 61 63 65 20 27 63 61 6c 69 62 72 65 64 62 2d 74 61 67 2d 66 61 63 65 29 29 29 0a 20 20 .'face.'calibredb-tag-face)))...
f4a0 20 20 20 20 20 20 28 69 6e 73 65 72 74 20 28 66 6f 72 6d 61 74 20 22 49 64 73 20 20 20 20 20 20 ......(insert.(format."Ids......
f4c0 20 20 20 25 73 5c 6e 22 20 28 70 72 6f 70 65 72 74 69 7a 65 20 69 64 73 20 27 66 61 63 65 20 27 ...%s\n".(propertize.ids.'face.'
f4e0 63 61 6c 69 62 72 65 64 62 2d 69 64 73 2d 66 61 63 65 29 29 29 0a 20 20 20 20 20 20 20 20 28 69 calibredb-ids-face))).........(i
f500 6e 73 65 72 74 20 28 66 6f 72 6d 61 74 20 22 44 61 74 65 20 20 20 20 20 20 20 20 25 73 5c 6e 22 nsert.(format."Date........%s\n"
f520 20 28 70 72 6f 70 65 72 74 69 7a 65 20 6c 61 73 74 5f 6d 6f 64 69 66 69 65 64 20 27 66 61 63 65 .(propertize.last_modified.'face
f540 20 27 63 61 6c 69 62 72 65 64 62 2d 64 61 74 65 2d 66 61 63 65 29 29 29 0a 20 20 20 20 20 20 20 .'calibredb-date-face)))........
f560 20 28 69 6e 73 65 72 74 20 28 66 6f 72 6d 61 74 20 22 50 75 62 6c 69 73 68 65 64 20 20 20 25 73 .(insert.(format."Published...%s
f580 5c 6e 22 20 28 70 72 6f 70 65 72 74 69 7a 65 20 70 75 62 64 61 74 65 20 27 66 61 63 65 20 27 63 \n".(propertize.pubdate.'face.'c
f5a0 61 6c 69 62 72 65 64 62 2d 70 75 62 64 61 74 65 2d 66 61 63 65 29 29 29 0a 20 20 20 20 20 20 20 alibredb-pubdate-face)))........
f5c0 20 28 69 6e 73 65 72 74 20 28 66 6f 72 6d 61 74 20 22 50 75 62 6c 69 73 68 65 72 20 20 20 25 73 .(insert.(format."Publisher...%s
f5e0 5c 6e 22 20 28 70 72 6f 70 65 72 74 69 7a 65 20 70 75 62 6c 69 73 68 65 72 20 27 66 61 63 65 20 \n".(propertize.publisher.'face.
f600 27 63 61 6c 69 62 72 65 64 62 2d 70 75 62 6c 69 73 68 65 72 2d 66 61 63 65 29 29 29 0a 20 20 20 'calibredb-publisher-face)))....
f620 20 20 20 20 20 28 69 6e 73 65 72 74 20 28 66 6f 72 6d 61 74 20 22 53 65 72 69 65 73 20 20 20 20 .....(insert.(format."Series....
f640 20 20 25 73 5c 6e 22 20 28 70 72 6f 70 65 72 74 69 7a 65 20 73 65 72 69 65 73 20 27 66 61 63 65 ..%s\n".(propertize.series.'face
f660 20 27 63 61 6c 69 62 72 65 64 62 2d 73 65 72 69 65 73 2d 66 61 63 65 29 29 29 0a 20 20 20 20 20 .'calibredb-series-face)))......
f680 20 20 20 28 69 6e 73 65 72 74 20 28 66 6f 72 6d 61 74 20 22 4c 61 6e 67 75 61 67 65 20 20 20 20 ...(insert.(format."Language....
f6a0 25 73 5c 6e 22 20 28 70 72 6f 70 65 72 74 69 7a 65 20 6c 61 6e 67 5f 63 6f 64 65 20 27 66 61 63 %s\n".(propertize.lang_code.'fac
f6c0 65 20 27 63 61 6c 69 62 72 65 64 62 2d 6c 61 6e 67 75 61 67 65 2d 66 61 63 65 29 29 29 0a 20 20 e.'calibredb-language-face)))...
f6e0 20 20 20 20 20 20 3b 3b 20 28 69 6e 73 65 72 74 20 28 66 6f 72 6d 61 74 20 22 46 69 6c 65 20 20 ......;;.(insert.(format."File..
f700 20 20 20 20 20 20 25 73 5c 6e 22 20 28 70 72 6f 70 65 72 74 69 7a 65 20 66 69 6c 65 20 27 66 61 ......%s\n".(propertize.file.'fa
f720 63 65 20 27 63 61 6c 69 62 72 65 64 62 2d 66 69 6c 65 2d 66 61 63 65 29 29 29 0a 20 20 20 20 20 ce.'calibredb-file-face)))......
f740 20 20 20 28 69 6e 73 65 72 74 20 28 66 6f 72 6d 61 74 20 22 46 6f 72 6d 61 74 20 20 20 20 20 20 ...(insert.(format."Format......
f760 25 73 5c 6e 22 20 28 6d 61 70 63 6f 6e 63 61 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 %s\n".(mapconcat................
f780 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 23 27 69 .............................#'i
f7a0 64 65 6e 74 69 74 79 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 dentity.........................
f7c0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 2d 6d 61 70 20 28 6c 61 6d 62 64 ....................(-map.(lambd
f7e0 61 20 28 65 78 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 a.(ext).........................
f800 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 72 6f ............................(pro
f820 70 65 72 74 69 7a 65 20 65 78 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 pertize.ext.....................
f840 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ................................
f860 20 20 20 20 20 20 20 20 20 20 20 20 27 66 61 63 65 20 27 63 61 6c 69 62 72 65 64 62 2d 66 6f 72 ............'face.'calibredb-for
f880 6d 61 74 2d 66 61 63 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 mat-face........................
f8a0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ................................
f8c0 20 20 20 20 20 20 20 20 20 27 6d 6f 75 73 65 2d 66 61 63 65 20 27 63 61 6c 69 62 72 65 64 62 2d .........'mouse-face.'calibredb-
f8e0 6d 6f 75 73 65 2d 66 61 63 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 mouse-face......................
f900 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ................................
f920 20 20 20 20 20 20 20 20 20 20 20 27 68 65 6c 70 2d 65 63 68 6f 20 28 69 66 20 28 73 2d 63 6f 6e ...........'help-echo.(if.(s-con
f940 74 61 69 6e 73 3f 20 22 68 74 74 70 22 20 66 69 6c 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 tains?."http".file).............
f960 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ................................
f980 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ................................
f9a0 20 20 20 66 69 6c 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ...file.........................
f9c0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ................................
f9e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 65 78 70 61 6e 64 2d 66 69 6c .....................(expand-fil
fa00 65 2d 6e 61 6d 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 e-name..........................
fa20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ................................
fa40 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 6e 63 61 74 20 28 66 69 .....................(concat.(fi
fa60 6c 65 2d 6e 61 6d 65 2d 62 61 73 65 20 66 69 6c 65 29 20 22 2e 22 20 65 78 74 29 0a 20 20 20 20 le-name-base.file).".".ext).....
fa80 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ................................
faa0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ................................
fac0 20 20 20 20 20 20 20 20 20 20 28 66 69 6c 65 2d 6e 61 6d 65 2d 64 69 72 65 63 74 6f 72 79 20 66 ..........(file-name-directory.f
fae0 69 6c 65 29 29 20 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ile)).).........................
fb00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ................................
fb20 20 20 20 20 20 20 20 20 27 6b 65 79 6d 61 70 20 66 69 6c 65 2d 6d 61 70 29 29 20 28 73 2d 73 70 ........'keymap.file-map)).(s-sp
fb40 6c 69 74 20 22 2c 22 20 66 6f 72 6d 61 74 29 29 20 22 2c 20 22 29 29 29 0a 20 20 20 20 20 20 20 lit.",".format)).",.")))........
fb60 20 28 69 6e 73 65 72 74 20 28 66 6f 72 6d 61 74 20 22 53 69 7a 65 20 20 20 20 20 20 20 20 25 73 .(insert.(format."Size........%s
fb80 5c 6e 22 20 28 70 72 6f 70 65 72 74 69 7a 65 20 28 63 6f 6e 63 61 74 20 73 69 7a 65 20 22 4d 62 \n".(propertize.(concat.size."Mb
fba0 22 29 20 27 66 61 63 65 20 27 63 61 6c 69 62 72 65 64 62 2d 73 69 7a 65 2d 66 61 63 65 29 29 29 ").'face.'calibredb-size-face)))
fbc0 0a 20 20 20 20 20 20 20 20 28 63 6f 6e 64 20 28 28 65 71 75 61 6c 20 63 61 6c 69 62 72 65 64 62 .........(cond.((equal.calibredb
fbe0 2d 65 6e 74 72 79 2d 72 65 6e 64 65 72 2d 63 6f 6d 6d 65 6e 74 73 20 22 66 61 63 65 22 29 0a 20 -entry-render-comments."face")..
fc00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 6e 73 65 72 74 20 28 66 6f 72 6d 61 74 20 22 43 ..............(insert.(format."C
fc20 6f 6d 6d 65 6e 74 73 20 20 20 20 25 73 5c 6e 22 20 28 70 72 6f 70 65 72 74 69 7a 65 20 63 6f 6d omments....%s\n".(propertize.com
fc40 6d 65 6e 74 20 27 66 61 63 65 20 27 63 61 6c 69 62 72 65 64 62 2d 63 6f 6d 6d 65 6e 74 2d 66 61 ment.'face.'calibredb-comment-fa
fc60 63 65 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 28 65 71 75 61 6c 20 63 61 6c ce))))...............((equal.cal
fc80 69 62 72 65 64 62 2d 65 6e 74 72 79 2d 72 65 6e 64 65 72 2d 63 6f 6d 6d 65 6e 74 73 20 22 73 68 ibredb-entry-render-comments."sh
fca0 72 22 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 72 65 71 75 69 72 65 20 27 73 68 72 r")................(require.'shr
fcc0 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 6e 73 65 72 74 20 22 43 6f 6d 6d 65 6e )................(insert."Commen
fce0 74 73 5c 6e 22 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 63 2d 62 65 ts\n")................(setq.c-be
fd00 67 20 28 70 6f 69 6e 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 6e 73 65 72 g.(point))................(inser
fd20 74 20 63 6f 6d 6d 65 6e 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 t.comment)................(setq.
fd40 63 2d 65 6e 64 20 28 70 6f 69 6e 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 c-end.(point))................(i
fd60 66 20 28 66 62 6f 75 6e 64 70 20 27 73 68 72 2d 72 65 6e 64 65 72 2d 72 65 67 69 6f 6e 29 0a 20 f.(fboundp.'shr-render-region)..
fd80 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 68 72 2d 72 65 6e 64 65 72 2d 72 65 ..................(shr-render-re
fda0 67 69 6f 6e 20 63 2d 62 65 67 20 63 2d 65 6e 64 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 gion.c-beg.c-end))..............
fdc0 20 20 28 69 6e 73 65 72 74 20 22 5c 6e 22 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 ..(insert."\n"))...............(
fde0 28 65 71 75 61 6c 20 63 61 6c 69 62 72 65 64 62 2d 65 6e 74 72 79 2d 72 65 6e 64 65 72 2d 63 6f (equal.calibredb-entry-render-co
fe00 6d 6d 65 6e 74 73 20 22 61 6e 6e 6f 74 61 74 69 6f 6e 22 29 0a 20 20 20 20 20 20 20 20 20 20 20 mments."annotation")............
fe20 20 20 20 20 28 69 6e 73 65 72 74 20 22 43 6f 6d 6d 65 6e 74 73 5c 6e 5c 6e 22 29 0a 20 20 20 20 ....(insert."Comments\n\n").....
fe40 20 20 20 20 20 20 20 20 20 20 20 28 72 65 71 75 69 72 65 20 27 66 6f 6e 74 2d 6c 6f 63 6b 29 0a ...........(require.'font-lock).
fe60 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 6e 73 65 72 74 20 28 63 61 6c 69 62 72 65 64 ...............(insert.(calibred
fe80 62 2d 66 6f 6e 74 69 66 79 20 63 6f 6d 6d 65 6e 74 20 27 63 61 6c 69 62 72 65 64 62 2d 65 64 69 b-fontify.comment.'calibredb-edi
fea0 74 2d 61 6e 6e 6f 74 61 74 69 6f 6e 2d 6d 6f 64 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 t-annotation-mode)).............
fec0 20 20 20 28 69 6e 73 65 72 74 20 22 5c 6e 5c 6e 22 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 ...(insert."\n\n")).............
fee0 20 20 28 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 6e 73 65 72 74 20 28 66 6f 72 ..(t................(insert.(for
ff00 6d 61 74 20 22 43 6f 6d 6d 65 6e 74 73 20 20 20 20 25 73 5c 6e 22 20 28 70 72 6f 70 65 72 74 69 mat."Comments....%s\n".(properti
ff20 7a 65 20 63 6f 6d 6d 65 6e 74 20 27 66 61 63 65 20 27 63 61 6c 69 62 72 65 64 62 2d 63 6f 6d 6d ze.comment.'face.'calibredb-comm
ff40 65 6e 74 2d 66 61 63 65 29 29 29 29 29 0a 20 20 20 20 20 20 20 20 28 69 6e 73 65 72 74 20 22 5c ent-face))))).........(insert."\
ff60 6e 22 29 0a 20 20 20 20 20 20 20 20 28 63 61 6c 69 62 72 65 64 62 2d 69 6e 73 65 72 74 2d 69 6d n").........(calibredb-insert-im
ff80 61 67 65 20 63 6f 76 65 72 20 22 22 20 63 61 6c 69 62 72 65 64 62 2d 6c 69 73 74 2d 76 69 65 77 age.cover."".calibredb-list-view
ffa0 2d 69 6d 61 67 65 2d 6d 61 78 2d 77 69 64 74 68 20 63 61 6c 69 62 72 65 64 62 2d 6c 69 73 74 2d -image-max-width.calibredb-list-
ffc0 76 69 65 77 2d 69 6d 61 67 65 2d 6d 61 78 2d 68 65 69 67 68 74 29 0a 20 20 20 20 20 20 20 20 3b view-image-max-height).........;
ffe0 3b 20 28 73 65 74 71 20 65 6e 64 20 28 70 6f 69 6e 74 29 29 0a 20 20 20 20 20 20 20 20 28 63 61 ;.(setq.end.(point)).........(ca
10000 6c 69 62 72 65 64 62 2d 73 68 6f 77 2d 6d 6f 64 65 29 0a 20 20 20 20 20 20 20 20 28 73 65 74 71 libredb-show-mode).........(setq
10020 20 63 61 6c 69 62 72 65 64 62 2d 73 68 6f 77 2d 65 6e 74 72 79 20 65 6e 74 72 79 29 0a 20 20 20 .calibredb-show-entry.entry)....
10040 20 20 20 20 20 28 67 6f 74 6f 2d 63 68 61 72 20 28 70 6f 69 6e 74 2d 6d 69 6e 29 29 29 29 0a 20 .....(goto-char.(point-min))))..
10060 20 20 20 28 75 6e 6c 65 73 73 20 28 65 71 20 6d 61 6a 6f 72 2d 6d 6f 64 65 20 27 63 61 6c 69 62 ...(unless.(eq.major-mode.'calib
10080 72 65 64 62 2d 73 68 6f 77 2d 6d 6f 64 65 29 0a 20 20 20 20 20 20 28 66 75 6e 63 61 6c 6c 20 63 redb-show-mode).......(funcall.c
100a0 61 6c 69 62 72 65 64 62 2d 73 68 6f 77 2d 65 6e 74 72 79 2d 73 77 69 74 63 68 20 62 75 66 66 29 alibredb-show-entry-switch.buff)
100c0 0a 20 20 20 20 20 20 28 77 68 65 6e 20 73 77 69 74 63 68 0a 20 20 20 20 20 20 20 20 28 73 77 69 .......(when.switch.........(swi
100e0 74 63 68 2d 74 6f 2d 62 75 66 66 65 72 2d 6f 74 68 65 72 2d 77 69 6e 64 6f 77 20 28 73 65 74 2d tch-to-buffer-other-window.(set-
10100 62 75 66 66 65 72 20 28 63 61 6c 69 62 72 65 64 62 2d 73 65 61 72 63 68 2d 2d 62 75 66 66 65 72 buffer.(calibredb-search--buffer
10120 2d 6e 61 6d 65 29 29 29 0a 20 20 20 20 20 20 20 20 28 67 6f 74 6f 2d 63 68 61 72 20 6f 72 69 67 -name))).........(goto-char.orig
10140 69 6e 61 6c 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 63 61 6c 69 62 72 65 64 62 2d 6e 65 78 74 inal)))))..(defun.calibredb-next
10160 2d 65 6e 74 72 79 20 28 29 0a 20 20 22 4d 6f 76 65 20 74 6f 20 6e 65 78 74 20 65 6e 74 72 79 2e -entry.()..."Move.to.next.entry.
10180 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 0a 20 20 28 6c 65 74 20 28 28 6f 72 69 20 22 "...(interactive)...(let.((ori."
101a0 22 29 20 28 6e 65 77 20 22 22 29 29 0a 20 20 20 20 28 77 68 69 6c 65 20 28 61 6e 64 20 28 65 71 ").(new."")).....(while.(and.(eq
101c0 75 61 6c 20 6e 65 77 20 6f 72 69 29 20 6e 65 77 20 6f 72 69 29 0a 20 20 20 20 20 20 28 73 65 74 ual.new.ori).new.ori).......(set
101e0 71 20 6f 72 69 20 28 63 61 6c 69 62 72 65 64 62 2d 67 65 74 61 74 74 72 20 28 63 61 72 20 28 63 q.ori.(calibredb-getattr.(car.(c
10200 61 6c 69 62 72 65 64 62 2d 66 69 6e 64 2d 63 61 6e 64 69 64 61 74 65 2d 61 74 2d 70 6f 69 6e 74 alibredb-find-candidate-at-point
10220 29 29 20 3a 69 64 29 29 0a 20 20 20 20 20 20 28 66 6f 72 77 61 72 64 2d 6c 69 6e 65 20 31 29 0a )).:id)).......(forward-line.1).
10240 20 20 20 20 20 20 28 73 65 74 71 20 6e 65 77 20 28 63 61 6c 69 62 72 65 64 62 2d 67 65 74 61 74 ......(setq.new.(calibredb-getat
10260 74 72 20 28 63 61 72 20 28 63 61 6c 69 62 72 65 64 62 2d 66 69 6e 64 2d 63 61 6e 64 69 64 61 74 tr.(car.(calibredb-find-candidat
10280 65 2d 61 74 2d 70 6f 69 6e 74 29 29 20 3a 69 64 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 63 61 e-at-point)).:id)))))..(defun.ca
102a0 6c 69 62 72 65 64 62 2d 70 72 65 76 69 6f 75 73 2d 65 6e 74 72 79 20 28 29 0a 20 20 22 4d 6f 76 libredb-previous-entry.()..."Mov
102c0 65 20 74 6f 20 70 72 65 76 69 6f 75 73 20 65 6e 74 72 79 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 e.to.previous.entry."...(interac
102e0 74 69 76 65 29 0a 20 20 28 6c 65 74 20 28 28 6f 72 69 20 22 22 29 20 28 6e 65 77 20 22 22 29 29 tive)...(let.((ori."").(new.""))
10300 0a 20 20 20 20 28 77 68 69 6c 65 20 28 61 6e 64 20 28 65 71 75 61 6c 20 6e 65 77 20 6f 72 69 29 .....(while.(and.(equal.new.ori)
10320 20 6e 65 77 20 6f 72 69 20 28 3e 20 28 6c 69 6e 65 2d 6e 75 6d 62 65 72 2d 61 74 2d 70 6f 73 29 .new.ori.(>.(line-number-at-pos)
10340 20 31 29 29 0a 20 20 20 20 20 20 28 66 6f 72 77 61 72 64 2d 6c 69 6e 65 20 2d 31 29 0a 20 20 20 .1)).......(forward-line.-1)....
10360 20 20 20 28 73 61 76 65 2d 65 78 63 75 72 73 69 6f 6e 0a 20 20 20 20 20 20 20 20 28 73 65 74 71 ...(save-excursion.........(setq
10380 20 6f 72 69 20 28 63 61 6c 69 62 72 65 64 62 2d 67 65 74 61 74 74 72 20 28 63 61 72 20 28 63 61 .ori.(calibredb-getattr.(car.(ca
103a0 6c 69 62 72 65 64 62 2d 66 69 6e 64 2d 63 61 6e 64 69 64 61 74 65 2d 61 74 2d 70 6f 69 6e 74 29 libredb-find-candidate-at-point)
103c0 29 20 3a 69 64 29 29 0a 20 20 20 20 20 20 20 20 28 66 6f 72 77 61 72 64 2d 6c 69 6e 65 20 2d 31 ).:id)).........(forward-line.-1
103e0 29 0a 20 20 20 20 20 20 20 20 28 73 65 74 71 20 6e 65 77 20 28 63 61 6c 69 62 72 65 64 62 2d 67 ).........(setq.new.(calibredb-g
10400 65 74 61 74 74 72 20 28 63 61 72 20 28 63 61 6c 69 62 72 65 64 62 2d 66 69 6e 64 2d 63 61 6e 64 etattr.(car.(calibredb-find-cand
10420 69 64 61 74 65 2d 61 74 2d 70 6f 69 6e 74 29 29 20 3a 69 64 29 29 29 29 29 29 0a 0a 28 64 65 66 idate-at-point)).:id))))))..(def
10440 75 6e 20 63 61 6c 69 62 72 65 64 62 2d 73 68 6f 77 2d 6e 65 78 74 2d 65 6e 74 72 79 20 28 29 0a un.calibredb-show-next-entry.().
10460 20 20 22 53 68 6f 77 20 6e 65 78 74 20 65 6e 74 72 79 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 .."Show.next.entry."...(interact
10480 69 76 65 29 0a 20 20 28 63 61 6c 69 62 72 65 64 62 2d 6e 65 78 74 2d 65 6e 74 72 79 29 0a 20 20 ive)...(calibredb-next-entry)...
104a0 28 63 61 6c 69 62 72 65 64 62 2d 73 68 6f 77 2d 65 6e 74 72 79 20 28 63 61 72 20 28 63 61 6c 69 (calibredb-show-entry.(car.(cali
104c0 62 72 65 64 62 2d 66 69 6e 64 2d 63 61 6e 64 69 64 61 74 65 2d 61 74 2d 70 6f 69 6e 74 29 29 20 bredb-find-candidate-at-point)).
104e0 3a 73 77 69 74 63 68 29 29 0a 0a 28 64 65 66 75 6e 20 63 61 6c 69 62 72 65 64 62 2d 73 68 6f 77 :switch))..(defun.calibredb-show
10500 2d 70 72 65 76 69 6f 75 73 2d 65 6e 74 72 79 20 28 29 0a 20 20 22 53 68 6f 77 20 70 72 65 76 69 -previous-entry.()..."Show.previ
10520 6f 75 73 20 65 6e 74 72 79 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 0a 20 20 28 63 ous.entry."...(interactive)...(c
10540 61 6c 69 62 72 65 64 62 2d 70 72 65 76 69 6f 75 73 2d 65 6e 74 72 79 29 0a 20 20 28 63 61 6c 69 alibredb-previous-entry)...(cali
10560 62 72 65 64 62 2d 73 68 6f 77 2d 65 6e 74 72 79 20 28 63 61 72 20 28 63 61 6c 69 62 72 65 64 62 bredb-show-entry.(car.(calibredb
10580 2d 66 69 6e 64 2d 63 61 6e 64 69 64 61 74 65 2d 61 74 2d 70 6f 69 6e 74 29 29 20 3a 73 77 69 74 -find-candidate-at-point)).:swit
105a0 63 68 29 29 0a 0a 28 64 65 66 75 6e 20 63 61 6c 69 62 72 65 64 62 2d 73 65 61 72 63 68 2d 62 75 ch))..(defun.calibredb-search-bu
105c0 66 66 65 72 20 28 29 0a 20 20 22 43 72 65 61 74 65 20 62 75 66 66 65 72 20 63 61 6c 69 62 72 65 ffer.()..."Create.buffer.calibre
105e0 64 62 2d 73 65 61 72 63 68 2e 22 0a 20 20 28 67 65 74 2d 62 75 66 66 65 72 2d 63 72 65 61 74 65 db-search."...(get-buffer-create
10600 20 22 2a 63 61 6c 69 62 72 65 64 62 2d 73 65 61 72 63 68 2a 22 29 29 0a 0a 28 64 65 66 75 6e 20 ."*calibredb-search*"))..(defun.
10620 63 61 6c 69 62 72 65 64 62 2d 73 65 61 72 63 68 2d 68 65 61 64 65 72 20 28 29 0a 20 20 22 54 4f calibredb-search-header.()..."TO
10640 44 4f 3a 20 52 65 74 75 72 6e 20 74 68 65 20 73 74 72 69 6e 67 20 74 6f 20 62 65 20 75 73 65 64 DO:.Return.the.string.to.be.used
10660 20 61 73 20 74 68 65 20 43 61 6c 69 62 72 65 64 62 20 68 65 61 64 65 72 2e 0a 49 6e 64 69 63 61 .as.the.Calibredb.header..Indica
10680 74 69 6e 67 20 74 68 65 20 6c 69 62 72 61 72 79 20 79 6f 75 20 75 73 65 2e 22 0a 20 20 28 66 6f ting.the.library.you.use."...(fo
106a0 72 6d 61 74 20 22 25 73 3a 20 25 73 20 20 20 25 73 22 0a 20 20 20 20 20 20 20 20 20 20 28 70 72 rmat."%s:.%s...%s"...........(pr
106c0 6f 70 65 72 74 69 7a 65 20 63 61 6c 69 62 72 65 64 62 2d 76 69 72 74 75 61 6c 2d 6c 69 62 72 61 opertize.calibredb-virtual-libra
106e0 72 79 2d 6e 61 6d 65 20 27 66 61 63 65 20 27 63 61 6c 69 62 72 65 64 62 2d 73 65 61 72 63 68 2d ry-name.'face.'calibredb-search-
10700 68 65 61 64 65 72 2d 6c 69 62 72 61 72 79 2d 6e 61 6d 65 2d 66 61 63 65 29 0a 20 20 20 20 20 20 header-library-name-face).......
10720 20 20 20 20 28 70 72 6f 70 65 72 74 69 7a 65 20 63 61 6c 69 62 72 65 64 62 2d 72 6f 6f 74 2d 64 ....(propertize.calibredb-root-d
10740 69 72 20 27 66 61 63 65 20 27 63 61 6c 69 62 72 65 64 62 2d 73 65 61 72 63 68 2d 68 65 61 64 65 ir.'face.'calibredb-search-heade
10760 72 2d 6c 69 62 72 61 72 79 2d 70 61 74 68 2d 66 61 63 65 29 0a 20 20 20 20 20 20 20 20 20 20 28 r-library-path-face)...........(
10780 63 6f 6e 63 61 74 0a 20 20 20 20 20 20 20 20 20 20 20 28 70 72 6f 70 65 72 74 69 7a 65 20 28 66 concat............(propertize.(f
107a0 6f 72 6d 61 74 20 22 54 6f 74 61 6c 3a 20 25 73 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ormat."Total:.%s"...............
107c0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 66 20 28 65 71 75 61 6c 20 63 61 6c 69 .................(if.(equal.cali
107e0 62 72 65 64 62 2d 73 65 61 72 63 68 2d 65 6e 74 72 69 65 73 20 27 28 22 22 29 29 0a 20 20 20 20 bredb-search-entries.'("")).....
10800 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 ..............................."
10820 30 20 20 20 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 0..."...........................
10840 20 20 20 20 20 20 20 28 63 6f 6e 63 61 74 20 28 6e 75 6d 62 65 72 2d 74 6f 2d 73 74 72 69 6e 67 .......(concat.(number-to-string
10860 20 28 6c 65 6e 67 74 68 20 63 61 6c 69 62 72 65 64 62 2d 73 65 61 72 63 68 2d 65 6e 74 72 69 65 .(length.calibredb-search-entrie
10880 73 29 29 20 22 20 20 22 29 29 29 20 27 66 61 63 65 20 27 63 61 6c 69 62 72 65 64 62 2d 73 65 61 s)).".."))).'face.'calibredb-sea
108a0 72 63 68 2d 68 65 61 64 65 72 2d 74 6f 74 61 6c 2d 66 61 63 65 29 0a 20 20 20 20 20 20 20 20 20 rch-header-total-face)..........
108c0 20 20 28 63 6f 6e 64 20 28 28 65 71 20 63 61 6c 69 62 72 65 64 62 2d 73 6f 72 74 2d 62 79 20 27 ..(cond.((eq.calibredb-sort-by.'
108e0 69 64 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 53 6f 72 74 3a 20 69 64 20 id)..................."Sort:.id.
10900 22 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 28 65 71 20 63 61 6c 69 62 72 65 ")..................((eq.calibre
10920 64 62 2d 73 6f 72 74 2d 62 79 20 27 74 69 74 6c 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 db-sort-by.'title)..............
10940 20 20 20 20 20 22 53 6f 72 74 3a 20 74 69 74 6c 65 20 22 29 0a 20 20 20 20 20 20 20 20 20 20 20 ....."Sort:.title.")............
10960 20 20 20 20 20 20 28 28 65 71 20 63 61 6c 69 62 72 65 64 62 2d 73 6f 72 74 2d 62 79 20 27 61 75 ......((eq.calibredb-sort-by.'au
10980 74 68 6f 72 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 53 6f 72 74 3a 20 61 thor)..................."Sort:.a
109a0 75 74 68 6f 72 20 22 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 28 65 71 20 63 uthor.")..................((eq.c
109c0 61 6c 69 62 72 65 64 62 2d 73 6f 72 74 2d 62 79 20 27 66 6f 72 6d 61 74 29 0a 20 20 20 20 20 20 alibredb-sort-by.'format).......
109e0 20 20 20 20 20 20 20 20 20 20 20 20 22 53 6f 72 74 3a 20 66 6f 72 6d 61 74 20 22 29 0a 20 20 20 ............"Sort:.format.")....
10a00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 28 65 71 20 63 61 6c 69 62 72 65 64 62 2d 73 6f 72 ..............((eq.calibredb-sor
10a20 74 2d 62 79 20 27 64 61 74 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 53 t-by.'date)..................."S
10a40 6f 72 74 3a 20 64 61 74 65 20 22 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 28 ort:.date.")..................((
10a60 65 71 20 63 61 6c 69 62 72 65 64 62 2d 73 6f 72 74 2d 62 79 20 27 70 75 62 64 61 74 65 29 0a 20 eq.calibredb-sort-by.'pubdate)..
10a80 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 53 6f 72 74 3a 20 70 75 62 64 61 74 65 20 ................."Sort:.pubdate.
10aa0 22 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 28 65 71 20 63 61 6c 69 62 72 65 ")..................((eq.calibre
10ac0 64 62 2d 73 6f 72 74 2d 62 79 20 27 74 61 67 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 db-sort-by.'tag)................
10ae0 20 20 20 22 53 6f 72 74 3a 20 74 61 67 20 22 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..."Sort:.tag.")................
10b00 20 20 28 28 65 71 20 63 61 6c 69 62 72 65 64 62 2d 73 6f 72 74 2d 62 79 20 27 73 69 7a 65 29 0a ..((eq.calibredb-sort-by.'size).
10b20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 53 6f 72 74 3a 20 73 69 7a 65 20 22 29 .................."Sort:.size.")
10b40 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 28 65 71 20 63 61 6c 69 62 72 65 64 62 ..................((eq.calibredb
10b60 2d 73 6f 72 74 2d 62 79 20 27 6c 61 6e 67 75 61 67 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 -sort-by.'language).............
10b80 20 20 20 20 20 20 22 53 6f 72 74 3a 20 6c 61 6e 67 75 61 67 65 20 22 29 0a 20 20 20 20 20 20 20 ......"Sort:.language.")........
10ba0 20 20 20 20 20 20 20 20 20 20 28 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 ..........(t..................."
10bc0 53 6f 72 74 3a 20 69 64 20 22 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 6e 64 20 28 28 Sort:.id."))............(cond.((
10be0 65 71 20 63 61 6c 69 62 72 65 64 62 2d 6f 72 64 65 72 20 27 64 65 73 63 29 0a 20 20 20 20 20 20 eq.calibredb-order.'desc).......
10c00 20 20 20 20 20 20 20 20 20 20 20 20 22 e2 86 93 20 20 22 29 0a 20 20 20 20 20 20 20 20 20 20 20 ............".....")............
10c20 20 20 20 20 20 20 28 28 65 71 20 63 61 6c 69 62 72 65 64 62 2d 6f 72 64 65 72 20 27 61 73 63 29 ......((eq.calibredb-order.'asc)
10c40 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 e2 86 91 20 20 22 29 0a 20 20 20 20 ...................".....").....
10c60 20 20 20 20 20 20 20 20 20 20 20 20 20 28 74 20 22 e2 86 93 20 20 22 29 29 0a 20 20 20 20 20 20 .............(t.".....")).......
10c80 20 20 20 20 20 28 70 72 6f 70 65 72 74 69 7a 65 20 28 66 6f 72 6d 61 74 20 22 25 73 25 73 22 0a .....(propertize.(format."%s%s".
10ca0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 ...............................(
10cc0 63 6f 6e 64 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 cond............................
10ce0 20 20 20 20 20 28 63 61 6c 69 62 72 65 64 62 2d 74 61 67 2d 66 69 6c 74 65 72 2d 70 20 22 54 61 .....(calibredb-tag-filter-p."Ta
10d00 67 3a 20 22 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 g:.")...........................
10d20 20 20 20 20 20 20 28 63 61 6c 69 62 72 65 64 62 2d 66 61 76 6f 72 69 74 65 2d 66 69 6c 74 65 72 ......(calibredb-favorite-filter
10d40 2d 70 20 22 46 61 76 6f 72 69 74 65 3a 20 22 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 -p."Favorite:.")................
10d60 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 61 6c 69 62 72 65 64 62 2d 61 75 74 68 .................(calibredb-auth
10d80 6f 72 2d 66 69 6c 74 65 72 2d 70 20 22 41 75 74 68 6f 72 3a 20 22 29 0a 20 20 20 20 20 20 20 20 or-filter-p."Author:.").........
10da0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 61 6c 69 62 72 65 ........................(calibre
10dc0 64 62 2d 64 61 74 65 2d 66 69 6c 74 65 72 2d 70 20 22 44 61 74 65 3a 20 22 29 0a 20 20 20 20 20 db-date-filter-p."Date:.")......
10de0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 61 6c 69 ...........................(cali
10e00 62 72 65 64 62 2d 66 6f 72 6d 61 74 2d 66 69 6c 74 65 72 2d 70 20 22 46 6f 72 6d 61 74 3a 20 22 bredb-format-filter-p."Format:."
10e20 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 )...............................
10e40 20 20 28 74 20 22 22 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..(t."")).......................
10e60 20 20 20 20 20 20 20 20 20 28 69 66 20 28 65 71 75 61 6c 20 63 61 6c 69 62 72 65 64 62 2d 73 65 .........(if.(equal.calibredb-se
10e80 61 72 63 68 2d 66 69 6c 74 65 72 20 22 22 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 arch-filter."").................
10ea0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 22 0a 20 20 20 20 20 20 20 20 20 20 ...................""...........
10ec0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 6e 63 61 74 20 63 .......................(concat.c
10ee0 61 6c 69 62 72 65 64 62 2d 73 65 61 72 63 68 2d 66 69 6c 74 65 72 20 22 20 20 20 22 29 29 29 20 alibredb-search-filter."..."))).
10f00 27 66 61 63 65 20 27 63 61 6c 69 62 72 65 64 62 2d 73 65 61 72 63 68 2d 68 65 61 64 65 72 2d 73 'face.'calibredb-search-header-s
10f20 6f 72 74 2d 66 61 63 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 70 72 6f 70 65 72 74 69 7a 65 ort-face)............(propertize
10f40 20 28 6c 65 74 20 28 28 6c 65 6e 20 28 6c 65 6e 67 74 68 20 28 63 61 6c 69 62 72 65 64 62 2d 66 .(let.((len.(length.(calibredb-f
10f60 69 6e 64 2d 6d 61 72 6b 65 64 2d 63 61 6e 64 69 64 61 74 65 73 29 29 29 29 0a 20 20 20 20 20 20 ind-marked-candidates)))).......
10f80 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 66 20 28 3e 20 6c 65 6e 20 30 29 ...................(if.(>.len.0)
10fa0 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 ..............................(c
10fc0 6f 6e 63 61 74 20 22 4d 61 72 6b 65 64 3a 20 22 20 28 6e 75 6d 62 65 72 2d 74 6f 2d 73 74 72 69 oncat."Marked:.".(number-to-stri
10fe0 6e 67 20 6c 65 6e 29 29 20 22 22 29 29 20 27 66 61 63 65 20 27 63 61 6c 69 62 72 65 64 62 2d 73 ng.len))."")).'face.'calibredb-s
11000 65 61 72 63 68 2d 68 65 61 64 65 72 2d 66 69 6c 74 65 72 2d 66 61 63 65 29 29 29 29 0a 0a 28 64 earch-header-filter-face))))..(d
11020 65 66 69 6e 65 2d 64 65 72 69 76 65 64 2d 6d 6f 64 65 20 63 61 6c 69 62 72 65 64 62 2d 73 65 61 efine-derived-mode.calibredb-sea
11040 72 63 68 2d 6d 6f 64 65 20 66 75 6e 64 61 6d 65 6e 74 61 6c 2d 6d 6f 64 65 20 22 63 61 6c 69 62 rch-mode.fundamental-mode."calib
11060 72 65 64 62 2d 73 65 61 72 63 68 22 0a 20 20 22 4d 61 6a 6f 72 20 6d 6f 64 65 20 66 6f 72 20 6c redb-search"..."Major.mode.for.l
11080 69 73 74 69 6e 67 20 63 61 6c 69 62 72 65 20 65 6e 74 72 69 65 73 2e 0a 5c 5c 7b 63 61 6c 69 62 isting.calibre.entries..\\{calib
110a0 72 65 64 62 2d 73 65 61 72 63 68 2d 6d 6f 64 65 2d 6d 61 70 7d 22 0a 20 20 28 73 65 74 71 20 74 redb-search-mode-map}"...(setq.t
110c0 72 75 6e 63 61 74 65 2d 6c 69 6e 65 73 20 74 0a 20 20 20 20 20 20 20 20 62 75 66 66 65 72 2d 72 runcate-lines.t.........buffer-r
110e0 65 61 64 2d 6f 6e 6c 79 20 74 0a 20 20 20 20 20 20 20 20 68 65 61 64 65 72 2d 6c 69 6e 65 2d 66 ead-only.t.........header-line-f
11100 6f 72 6d 61 74 20 27 28 3a 65 76 61 6c 20 28 66 75 6e 63 61 6c 6c 20 63 61 6c 69 62 72 65 64 62 ormat.'(:eval.(funcall.calibredb
11120 2d 73 65 61 72 63 68 2d 68 65 61 64 65 72 2d 66 75 6e 63 74 69 6f 6e 29 29 29 0a 20 20 28 62 75 -search-header-function)))...(bu
11140 66 66 65 72 2d 64 69 73 61 62 6c 65 2d 75 6e 64 6f 29 0a 20 20 28 73 65 74 20 28 6d 61 6b 65 2d ffer-disable-undo)...(set.(make-
11160 6c 6f 63 61 6c 2d 76 61 72 69 61 62 6c 65 20 27 68 6c 2d 6c 69 6e 65 2d 66 61 63 65 29 20 27 63 local-variable.'hl-line-face).'c
11180 61 6c 69 62 72 65 64 62 2d 73 65 61 72 63 68 2d 68 65 61 64 65 72 2d 68 69 67 68 6c 69 67 68 74 alibredb-search-header-highlight
111a0 2d 66 61 63 65 29 0a 20 20 28 68 6c 2d 6c 69 6e 65 2d 6d 6f 64 65 29 0a 20 20 28 69 66 20 28 62 -face)...(hl-line-mode)...(if.(b
111c0 6f 75 6e 64 70 20 27 69 76 79 2d 73 6f 72 74 2d 6d 61 74 63 68 65 73 2d 66 75 6e 63 74 69 6f 6e oundp.'ivy-sort-matches-function
111e0 73 2d 61 6c 69 73 74 29 0a 20 20 20 20 20 20 28 61 64 64 2d 74 6f 2d 6c 69 73 74 20 27 69 76 79 s-alist).......(add-to-list.'ivy
11200 2d 73 6f 72 74 2d 6d 61 74 63 68 65 73 2d 66 75 6e 63 74 69 6f 6e 73 2d 61 6c 69 73 74 20 27 28 -sort-matches-functions-alist.'(
11220 63 61 6c 69 62 72 65 64 62 2d 61 64 64 20 2e 20 69 76 79 2d 2d 73 6f 72 74 2d 66 69 6c 65 73 2d calibredb-add...ivy--sort-files-
11240 62 79 2d 64 61 74 65 29 29 29 0a 20 20 28 69 66 20 28 62 6f 75 6e 64 70 20 27 69 76 79 2d 61 6c by-date)))...(if.(boundp.'ivy-al
11260 74 2d 64 6f 6e 65 2d 66 75 6e 63 74 69 6f 6e 73 2d 61 6c 69 73 74 29 0a 20 20 20 20 20 20 28 61 t-done-functions-alist).......(a
11280 64 64 2d 74 6f 2d 6c 69 73 74 20 27 69 76 79 2d 61 6c 74 2d 64 6f 6e 65 2d 66 75 6e 63 74 69 6f dd-to-list.'ivy-alt-done-functio
112a0 6e 73 2d 61 6c 69 73 74 20 27 28 63 61 6c 69 62 72 65 64 62 2d 61 64 64 20 2e 20 69 76 79 2d 2d ns-alist.'(calibredb-add...ivy--
112c0 64 69 72 65 63 74 6f 72 79 2d 64 6f 6e 65 29 29 29 0a 20 20 28 61 64 64 2d 68 6f 6f 6b 20 27 6d directory-done)))...(add-hook.'m
112e0 69 6e 69 62 75 66 66 65 72 2d 73 65 74 75 70 2d 68 6f 6f 6b 20 23 27 63 61 6c 69 62 72 65 64 62 inibuffer-setup-hook.#'calibredb
11300 2d 73 65 61 72 63 68 2d 2d 6d 69 6e 69 62 75 66 66 65 72 2d 73 65 74 75 70 29 0a 20 20 28 61 64 -search--minibuffer-setup)...(ad
11320 64 2d 74 6f 2d 6c 69 73 74 20 27 6d 61 69 6c 63 61 70 2d 6d 69 6d 65 2d 65 78 74 65 6e 73 69 6f d-to-list.'mailcap-mime-extensio
11340 6e 73 20 27 28 22 2e 65 70 75 62 22 20 2e 20 22 61 70 70 6c 69 63 61 74 69 6f 6e 2f 65 70 75 62 ns.'(".epub"..."application/epub
11360 2b 7a 69 70 22 29 29 0a 20 20 28 61 64 64 2d 74 6f 2d 6c 69 73 74 20 27 6d 61 69 6c 63 61 70 2d +zip"))...(add-to-list.'mailcap-
11380 6d 69 6d 65 2d 65 78 74 65 6e 73 69 6f 6e 73 20 27 28 22 2e 6d 6f 62 69 22 20 2e 20 22 61 70 70 mime-extensions.'(".mobi"..."app
113a0 6c 69 63 61 74 69 6f 6e 2f 78 2d 6d 6f 62 69 70 6f 63 6b 65 74 2d 65 62 6f 6f 6b 22 29 29 29 0a lication/x-mobipocket-ebook"))).
113c0 0a 28 64 65 66 75 6e 20 63 61 6c 69 62 72 65 64 62 2d 73 65 61 72 63 68 2d 6d 6f 75 73 65 20 28 .(defun.calibredb-search-mouse.(
113e0 65 76 65 6e 74 29 0a 20 20 22 56 69 73 69 74 20 74 68 65 20 63 61 6c 69 62 72 65 64 62 2d 65 6e event)..."Visit.the.calibredb-en
11400 74 72 79 20 63 6c 69 63 6b 20 6f 6e 2e 0a 41 72 67 75 6d 65 6e 74 20 45 56 45 4e 54 20 6d 6f 75 try.click.on..Argument.EVENT.mou
11420 73 65 20 65 76 65 6e 74 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 20 22 65 22 29 0a 20 se.event."...(interactive."e")..
11440 20 28 6c 65 74 20 28 28 77 69 6e 64 6f 77 20 28 70 6f 73 6e 2d 77 69 6e 64 6f 77 20 28 65 76 65 .(let.((window.(posn-window.(eve
11460 6e 74 2d 65 6e 64 20 65 76 65 6e 74 29 29 29 0a 20 20 20 20 20 20 20 20 28 70 6f 73 20 28 70 6f nt-end.event))).........(pos.(po
11480 73 6e 2d 70 6f 69 6e 74 20 28 65 76 65 6e 74 2d 65 6e 64 20 65 76 65 6e 74 29 29 29 29 0a 20 20 sn-point.(event-end.event))))...
114a0 20 20 28 69 66 20 28 6e 6f 74 20 28 77 69 6e 64 6f 77 70 20 77 69 6e 64 6f 77 29 29 0a 20 20 20 ..(if.(not.(windowp.window))....
114c0 20 20 20 20 20 28 65 72 72 6f 72 20 22 4e 6f 20 65 62 6f 6f 6b 20 63 68 6f 73 65 6e 22 29 29 0a .....(error."No.ebook.chosen")).
114e0 20 20 20 20 28 63 61 6c 69 62 72 65 64 62 2d 73 68 6f 77 2d 65 6e 74 72 79 20 28 63 61 72 20 28 ....(calibredb-show-entry.(car.(
11500 63 61 6c 69 62 72 65 64 62 2d 66 69 6e 64 2d 63 61 6e 64 69 64 61 74 65 2d 61 74 2d 70 6f 69 6e calibredb-find-candidate-at-poin
11520 74 29 29 29 0a 20 20 20 20 28 73 65 6c 65 63 74 2d 77 69 6e 64 6f 77 20 77 69 6e 64 6f 77 29 0a t))).....(select-window.window).
11540 20 20 20 20 28 73 65 74 2d 62 75 66 66 65 72 20 28 63 61 6c 69 62 72 65 64 62 2d 73 65 61 72 63 ....(set-buffer.(calibredb-searc
11560 68 2d 2d 62 75 66 66 65 72 2d 6e 61 6d 65 29 29 0a 20 20 20 20 28 67 6f 74 6f 2d 63 68 61 72 20 h--buffer-name)).....(goto-char.
11580 70 6f 73 29 29 29 0a 0a 28 64 65 66 75 6e 20 63 61 6c 69 62 72 65 64 62 2d 76 69 65 77 20 28 29 pos)))..(defun.calibredb-view.()
115a0 0a 20 20 22 56 69 73 69 74 20 74 68 65 20 63 61 6c 69 62 72 65 64 62 2d 65 6e 74 72 79 2e 22 0a ..."Visit.the.calibredb-entry.".
115c0 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 0a 20 20 28 63 61 6c 69 62 72 65 64 62 2d 73 68 6f ..(interactive)...(calibredb-sho
115e0 77 2d 65 6e 74 72 79 20 28 63 61 72 20 28 63 61 6c 69 62 72 65 64 62 2d 66 69 6e 64 2d 63 61 6e w-entry.(car.(calibredb-find-can
11600 64 69 64 61 74 65 2d 61 74 2d 70 6f 69 6e 74 29 29 20 3a 73 77 69 74 63 68 29 29 0a 0a 28 64 65 didate-at-point)).:switch))..(de
11620 66 75 6e 20 63 61 6c 69 62 72 65 64 62 2d 73 65 61 72 63 68 2d 72 65 66 72 65 73 68 20 28 29 0a fun.calibredb-search-refresh.().
11640 20 20 22 52 65 66 72 65 73 68 20 63 61 6c 69 62 72 65 64 62 2e 22 0a 20 20 28 69 6e 74 65 72 61 .."Refresh.calibredb."...(intera
11660 63 74 69 76 65 29 0a 20 20 28 73 65 74 71 20 63 61 6c 69 62 72 65 64 62 2d 73 65 61 72 63 68 2d ctive)...(setq.calibredb-search-
11680 65 6e 74 72 69 65 73 20 28 63 61 6c 69 62 72 65 64 62 2d 63 61 6e 64 69 64 61 74 65 73 29 29 0a entries.(calibredb-candidates)).
116a0 20 20 28 73 65 74 71 20 63 61 6c 69 62 72 65 64 62 2d 66 75 6c 6c 2d 65 6e 74 72 69 65 73 20 63 ..(setq.calibredb-full-entries.c
116c0 61 6c 69 62 72 65 64 62 2d 73 65 61 72 63 68 2d 65 6e 74 72 69 65 73 29 0a 20 20 28 63 61 6c 69 alibredb-search-entries)...(cali
116e0 62 72 65 64 62 29 29 0a 0a 28 64 65 66 75 6e 20 63 61 6c 69 62 72 65 64 62 2d 73 65 61 72 63 68 bredb))..(defun.calibredb-search
11700 2d 72 65 66 72 65 73 68 2d 6f 72 2d 72 65 73 75 6d 65 20 28 26 6f 70 74 69 6f 6e 61 6c 20 62 65 -refresh-or-resume.(&optional.be
11720 67 69 6e 20 70 6f 73 69 74 69 6f 6e 29 0a 20 20 22 52 65 66 72 65 73 68 20 63 61 6c 69 62 72 65 gin.position)..."Refresh.calibre
11740 64 62 20 6f 72 20 72 65 73 75 6d 65 20 74 68 65 20 42 45 47 49 4e 20 70 6f 69 6e 74 20 61 6e 64 db.or.resume.the.BEGIN.point.and
11760 20 77 69 6e 64 6f 77 73 20 50 4f 53 49 54 49 4f 4e 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 .windows.POSITION."...(interacti
11780 76 65 29 0a 20 20 28 6c 65 74 20 28 62 65 67 20 70 6f 73 29 0a 20 20 20 20 28 73 65 74 71 20 62 ve)...(let.(beg.pos).....(setq.b
117a0 65 67 20 28 6f 72 20 62 65 67 69 6e 20 28 70 6f 69 6e 74 29 29 29 0a 20 20 20 20 28 73 65 74 71 eg.(or.begin.(point))).....(setq
117c0 20 70 6f 73 20 28 6f 72 20 70 6f 73 69 74 69 6f 6e 20 28 77 69 6e 64 6f 77 2d 73 74 61 72 74 29 .pos.(or.position.(window-start)
117e0 29 29 0a 20 20 20 20 28 69 66 20 28 6e 6f 74 20 28 65 71 75 61 6c 20 63 61 6c 69 62 72 65 64 62 )).....(if.(not.(equal.calibredb
11800 2d 73 65 61 72 63 68 2d 66 69 6c 74 65 72 20 22 22 29 29 0a 20 20 20 20 20 20 20 20 28 70 72 6f -search-filter."")).........(pro
11820 67 6e 0a 20 20 20 20 20 20 20 20 20 20 28 63 61 6c 69 62 72 65 64 62 2d 73 65 61 72 63 68 2d 72 gn...........(calibredb-search-r
11840 65 66 72 65 73 68 29 0a 20 20 20 20 20 20 20 20 20 20 28 63 61 6c 69 62 72 65 64 62 2d 73 65 61 efresh)...........(calibredb-sea
11860 72 63 68 2d 75 70 64 61 74 65 20 3a 66 6f 72 63 65 29 29 0a 20 20 20 20 20 20 28 63 61 6c 69 62 rch-update.:force)).......(calib
11880 72 65 64 62 2d 73 65 61 72 63 68 2d 72 65 66 72 65 73 68 29 29 0a 20 20 20 20 28 73 65 74 2d 77 redb-search-refresh)).....(set-w
118a0 69 6e 64 6f 77 2d 73 74 61 72 74 20 28 73 65 6c 65 63 74 65 64 2d 77 69 6e 64 6f 77 29 20 70 6f indow-start.(selected-window).po
118c0 73 29 0a 20 20 20 20 28 67 6f 74 6f 2d 63 68 61 72 20 62 65 67 29 0a 20 20 20 20 28 68 6c 2d 6c s).....(goto-char.beg).....(hl-l
118e0 69 6e 65 2d 6d 6f 64 65 20 31 29 29 29 0a 0a 28 64 65 66 75 6e 20 63 61 6c 69 62 72 65 64 62 2d ine-mode.1)))..(defun.calibredb-
11900 73 65 61 72 63 68 2d 74 6f 67 67 6c 65 2d 76 69 65 77 2d 72 65 66 72 65 73 68 20 28 29 0a 20 20 search-toggle-view-refresh.()...
11920 22 54 4f 44 4f 20 52 65 66 72 65 73 68 20 63 61 6c 69 62 72 65 64 62 20 77 68 65 6e 20 74 6f 67 "TODO.Refresh.calibredb.when.tog
11940 67 6c 65 20 76 69 65 77 20 67 6f 74 6f 20 74 68 65 20 74 68 65 20 73 61 6d 65 20 69 64 20 65 62 gle.view.goto.the.the.same.id.eb
11960 6f 6f 6b 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 0a 20 20 28 6c 65 74 20 28 28 69 ook."...(interactive)...(let.((i
11980 64 20 28 63 61 6c 69 62 72 65 64 62 2d 72 65 61 64 2d 6d 65 74 61 64 61 74 61 73 20 22 69 64 22 d.(calibredb-read-metadatas."id"
119a0 29 29 29 0a 20 20 20 20 28 69 66 20 28 6e 6f 74 20 28 65 71 75 61 6c 20 63 61 6c 69 62 72 65 64 ))).....(if.(not.(equal.calibred
119c0 62 2d 73 65 61 72 63 68 2d 66 69 6c 74 65 72 20 22 22 29 29 0a 20 20 20 20 20 20 20 20 28 70 72 b-search-filter."")).........(pr
119e0 6f 67 6e 0a 20 20 20 20 20 20 20 20 20 20 28 63 61 6c 69 62 72 65 64 62 2d 73 65 61 72 63 68 2d ogn...........(calibredb-search-
11a00 72 65 66 72 65 73 68 29 0a 20 20 20 20 20 20 20 20 20 20 28 63 61 6c 69 62 72 65 64 62 2d 73 65 refresh)...........(calibredb-se
11a20 61 72 63 68 2d 75 70 64 61 74 65 20 3a 66 6f 72 63 65 29 29 0a 20 20 20 20 20 20 28 63 61 6c 69 arch-update.:force)).......(cali
11a40 62 72 65 64 62 2d 73 65 61 72 63 68 2d 72 65 66 72 65 73 68 29 29 0a 20 20 20 20 28 77 68 69 6c bredb-search-refresh)).....(whil
11a60 65 20 28 6e 6f 74 20 28 65 71 75 61 6c 20 69 64 20 28 63 61 6c 69 62 72 65 64 62 2d 72 65 61 64 e.(not.(equal.id.(calibredb-read
11a80 2d 6d 65 74 61 64 61 74 61 73 20 22 69 64 22 29 29 29 0a 20 20 20 20 20 20 28 66 6f 72 77 61 72 -metadatas."id"))).......(forwar
11aa0 64 2d 6c 69 6e 65 20 31 29 29 0a 20 20 20 20 28 62 65 67 69 6e 6e 69 6e 67 2d 6f 66 2d 6c 69 6e d-line.1)).....(beginning-of-lin
11ac0 65 29 0a 20 20 20 20 28 72 65 63 65 6e 74 65 72 29 29 29 0a 0a 28 64 65 66 75 6e 20 63 61 6c 69 e).....(recenter)))..(defun.cali
11ae0 62 72 65 64 62 2d 73 65 61 72 63 68 2d 72 65 66 72 65 73 68 2d 61 6e 64 2d 63 6c 65 61 72 2d 66 bredb-search-refresh-and-clear-f
11b00 69 6c 74 65 72 20 28 29 0a 20 20 22 52 65 66 72 65 73 68 20 63 61 6c 69 62 72 65 64 62 20 61 6e ilter.()..."Refresh.calibredb.an
11b20 64 20 63 6c 65 61 72 20 74 68 65 20 66 69 74 6c 65 72 20 6b 65 79 77 6f 72 64 2e 22 0a 20 20 28 d.clear.the.fitler.keyword."...(
11b40 69 6e 74 65 72 61 63 74 69 76 65 29 0a 20 20 28 63 61 6c 69 62 72 65 64 62 2d 73 65 61 72 63 68 interactive)...(calibredb-search
11b60 2d 72 65 66 72 65 73 68 29 0a 20 20 28 73 65 74 71 20 63 61 6c 69 62 72 65 64 62 2d 74 61 67 2d -refresh)...(setq.calibredb-tag-
11b80 66 69 6c 74 65 72 2d 70 20 6e 69 6c 29 0a 20 20 28 73 65 74 71 20 63 61 6c 69 62 72 65 64 62 2d filter-p.nil)...(setq.calibredb-
11ba0 66 61 76 6f 72 69 74 65 2d 66 69 6c 74 65 72 2d 70 20 6e 69 6c 29 0a 20 20 28 73 65 74 71 20 63 favorite-filter-p.nil)...(setq.c
11bc0 61 6c 69 62 72 65 64 62 2d 61 75 74 68 6f 72 2d 66 69 6c 74 65 72 2d 70 20 6e 69 6c 29 0a 20 20 alibredb-author-filter-p.nil)...
11be0 28 73 65 74 71 20 63 61 6c 69 62 72 65 64 62 2d 64 61 74 65 2d 66 69 6c 74 65 72 2d 70 20 6e 69 (setq.calibredb-date-filter-p.ni
11c00 6c 29 0a 20 20 28 73 65 74 71 20 63 61 6c 69 62 72 65 64 62 2d 66 6f 72 6d 61 74 2d 66 69 6c 74 l)...(setq.calibredb-format-filt
11c20 65 72 2d 70 20 6e 69 6c 29 0a 20 20 28 63 61 6c 69 62 72 65 64 62 2d 73 65 61 72 63 68 2d 6b 65 er-p.nil)...(calibredb-search-ke
11c40 79 77 6f 72 64 2d 66 69 6c 74 65 72 20 22 22 29 29 0a 0a 28 64 65 66 75 6e 20 63 61 6c 69 62 72 yword-filter.""))..(defun.calibr
11c60 65 64 62 2d 73 65 61 72 63 68 2d 63 6c 65 61 72 2d 66 69 6c 74 65 72 20 28 29 0a 20 20 22 43 6c edb-search-clear-filter.()..."Cl
11c80 65 61 72 20 74 68 65 20 66 69 74 6c 65 72 20 6b 65 79 77 6f 72 64 2e 22 0a 20 20 28 69 6e 74 65 ear.the.fitler.keyword."...(inte
11ca0 72 61 63 74 69 76 65 29 0a 20 20 28 73 65 74 71 20 63 61 6c 69 62 72 65 64 62 2d 74 61 67 2d 66 ractive)...(setq.calibredb-tag-f
11cc0 69 6c 74 65 72 2d 70 20 6e 69 6c 29 0a 20 20 28 73 65 74 71 20 63 61 6c 69 62 72 65 64 62 2d 66 ilter-p.nil)...(setq.calibredb-f
11ce0 61 76 6f 72 69 74 65 2d 66 69 6c 74 65 72 2d 70 20 6e 69 6c 29 0a 20 20 28 73 65 74 71 20 63 61 avorite-filter-p.nil)...(setq.ca
11d00 6c 69 62 72 65 64 62 2d 61 75 74 68 6f 72 2d 66 69 6c 74 65 72 2d 70 20 6e 69 6c 29 0a 20 20 28 libredb-author-filter-p.nil)...(
11d20 73 65 74 71 20 63 61 6c 69 62 72 65 64 62 2d 64 61 74 65 2d 66 69 6c 74 65 72 2d 70 20 6e 69 6c setq.calibredb-date-filter-p.nil
11d40 29 0a 20 20 28 73 65 74 71 20 63 61 6c 69 62 72 65 64 62 2d 66 6f 72 6d 61 74 2d 66 69 6c 74 65 )...(setq.calibredb-format-filte
11d60 72 2d 70 20 6e 69 6c 29 0a 20 20 28 63 61 6c 69 62 72 65 64 62 2d 73 65 61 72 63 68 2d 6b 65 79 r-p.nil)...(calibredb-search-key
11d80 77 6f 72 64 2d 66 69 6c 74 65 72 20 22 22 29 29 0a 0a 28 64 65 66 75 6e 20 63 61 6c 69 62 72 65 word-filter.""))..(defun.calibre
11da0 64 62 2d 73 65 61 72 63 68 2d 71 75 69 74 20 28 29 0a 20 20 22 51 75 69 74 20 2a 63 61 6c 69 62 db-search-quit.()..."Quit.*calib
11dc0 72 65 64 62 2d 65 6e 74 72 79 2a 20 6f 72 20 2a 63 61 6c 69 62 72 65 64 62 2d 73 65 61 72 63 68 redb-entry*.or.*calibredb-search
11de0 2a 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 0a 20 20 28 77 68 65 6e 20 28 65 71 20 *."...(interactive)...(when.(eq.
11e00 6d 61 6a 6f 72 2d 6d 6f 64 65 20 27 63 61 6c 69 62 72 65 64 62 2d 73 65 61 72 63 68 2d 6d 6f 64 major-mode.'calibredb-search-mod
11e20 65 29 0a 20 20 20 20 28 63 6f 6e 64 20 28 28 67 65 74 2d 62 75 66 66 65 72 20 22 2a 63 61 6c 69 e).....(cond.((get-buffer."*cali
11e40 62 72 65 64 62 2d 65 6e 74 72 79 2a 22 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 70 6f 70 2d 74 bredb-entry*")............(pop-t
11e60 6f 2d 62 75 66 66 65 72 20 22 2a 63 61 6c 69 62 72 65 64 62 2d 65 6e 74 72 79 2a 22 29 0a 20 20 o-buffer."*calibredb-entry*")...
11e80 20 20 20 20 20 20 20 20 20 28 69 66 20 28 3c 20 28 6c 65 6e 67 74 68 20 28 77 69 6e 64 6f 77 2d .........(if.(<.(length.(window-
11ea0 70 72 65 76 2d 62 75 66 66 65 72 73 29 29 20 32 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 prev-buffers)).2)...............
11ec0 20 28 70 72 6f 67 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 71 75 69 74 2d 77 .(progn..................(quit-w
11ee0 69 6e 64 6f 77 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6b 69 6c 6c 2d 62 75 indow)..................(kill-bu
11f00 66 66 65 72 20 22 2a 63 61 6c 69 62 72 65 64 62 2d 65 6e 74 72 79 2a 22 29 29 0a 20 20 20 20 20 ffer."*calibredb-entry*"))......
11f20 20 20 20 20 20 20 20 20 28 6b 69 6c 6c 2d 62 75 66 66 65 72 20 22 2a 63 61 6c 69 62 72 65 64 62 ........(kill-buffer."*calibredb
11f40 2d 65 6e 74 72 79 2a 22 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 28 67 65 74 2d 62 75 66 66 -entry*")))...........((get-buff
11f60 65 72 20 22 2a 63 61 6c 69 62 72 65 64 62 2d 73 65 61 72 63 68 2a 22 29 0a 20 20 20 20 20 20 20 er."*calibredb-search*")........
11f80 20 20 20 20 28 71 75 69 74 2d 77 69 6e 64 6f 77 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 6b 69 ....(quit-window)............(ki
11fa0 6c 6c 2d 62 75 66 66 65 72 20 22 2a 63 61 6c 69 62 72 65 64 62 2d 73 65 61 72 63 68 2a 22 29 29 ll-buffer."*calibredb-search*"))
11fc0 29 29 29 0a 0a 28 64 65 66 75 6e 20 63 61 6c 69 62 72 65 64 62 2d 6d 61 72 6b 2d 61 74 2d 70 6f )))..(defun.calibredb-mark-at-po
11fe0 69 6e 74 20 28 29 0a 20 20 22 4d 61 72 6b 20 74 68 65 20 63 75 72 72 65 6e 74 20 6c 69 6e 65 2e int.()..."Mark.the.current.line.
12000 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 0a 20 20 28 72 65 6d 6f 76 65 2d 6f 76 65 72 "...(interactive)...(remove-over
12020 6c 61 79 73 20 28 6c 69 6e 65 2d 62 65 67 69 6e 6e 69 6e 67 2d 70 6f 73 69 74 69 6f 6e 29 20 28 lays.(line-beginning-position).(
12040 6c 69 6e 65 2d 65 6e 64 2d 70 6f 73 69 74 69 6f 6e 29 29 0a 20 20 28 6c 65 74 2a 20 28 28 62 65 line-end-position))...(let*.((be
12060 67 20 28 6c 69 6e 65 2d 62 65 67 69 6e 6e 69 6e 67 2d 70 6f 73 69 74 69 6f 6e 29 29 0a 20 20 20 g.(line-beginning-position))....
12080 20 20 20 20 20 20 28 65 6e 64 20 28 6c 69 6e 65 2d 65 6e 64 2d 70 6f 73 69 74 69 6f 6e 29 29 0a ......(end.(line-end-position)).
120a0 20 20 20 20 20 20 20 20 20 28 69 6e 68 69 62 69 74 2d 72 65 61 64 2d 6f 6e 6c 79 20 74 29 0a 20 .........(inhibit-read-only.t)..
120c0 20 20 20 20 20 20 20 20 28 6f 76 65 72 6c 61 79 20 28 6d 61 6b 65 2d 6f 76 65 72 6c 61 79 20 62 ........(overlay.(make-overlay.b
120e0 65 67 20 65 6e 64 29 29 29 0a 20 20 20 20 28 6f 76 65 72 6c 61 79 2d 70 75 74 20 6f 76 65 72 6c eg.end))).....(overlay-put.overl
12100 61 79 20 27 66 61 63 65 20 27 63 61 6c 69 62 72 65 64 62 2d 6d 61 72 6b 2d 66 61 63 65 29 0a 20 ay.'face.'calibredb-mark-face)..
12120 20 20 20 28 70 75 74 2d 74 65 78 74 2d 70 72 6f 70 65 72 74 79 20 62 65 67 20 65 6e 64 20 27 63 ...(put-text-property.beg.end.'c
12140 61 6c 69 62 72 65 64 62 2d 6d 61 72 6b 20 3f 3e 29 29 29 0a 0a 28 64 65 66 75 6e 20 63 61 6c 69 alibredb-mark.?>)))..(defun.cali
12160 62 72 65 64 62 2d 6d 61 72 6b 2d 61 6e 64 2d 66 6f 72 77 61 72 64 20 28 29 0a 20 20 22 4d 61 72 bredb-mark-and-forward.()..."Mar
12180 6b 20 74 68 65 20 63 75 72 72 65 6e 74 20 6c 69 6e 65 20 61 6e 64 20 66 6f 72 77 61 72 64 2e 22 k.the.current.line.and.forward."
121a0 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 0a 20 20 28 63 61 6c 69 62 72 65 64 62 2d 6d 61 ...(interactive)...(calibredb-ma
121c0 72 6b 2d 61 74 2d 70 6f 69 6e 74 29 0a 20 20 28 63 61 6c 69 62 72 65 64 62 2d 6e 65 78 74 2d 65 rk-at-point)...(calibredb-next-e
121e0 6e 74 72 79 29 29 0a 0a 28 64 65 66 75 6e 20 63 61 6c 69 62 72 65 64 62 2d 75 6e 6d 61 72 6b 2d ntry))..(defun.calibredb-unmark-
12200 61 6e 64 2d 66 6f 72 77 61 72 64 20 28 29 0a 20 20 22 55 6e 6d 61 72 6b 20 74 68 65 20 63 75 72 and-forward.()..."Unmark.the.cur
12220 72 65 6e 74 20 6c 69 6e 65 20 61 6e 64 20 66 6f 72 77 61 72 64 2e 22 0a 20 20 28 69 6e 74 65 72 rent.line.and.forward."...(inter
12240 61 63 74 69 76 65 29 0a 20 20 28 63 61 6c 69 62 72 65 64 62 2d 75 6e 6d 61 72 6b 2d 61 74 2d 70 active)...(calibredb-unmark-at-p
12260 6f 69 6e 74 29 0a 20 20 28 63 61 6c 69 62 72 65 64 62 2d 6e 65 78 74 2d 65 6e 74 72 79 29 29 0a oint)...(calibredb-next-entry)).
12280 0a 28 64 65 66 75 6e 20 63 61 6c 69 62 72 65 64 62 2d 75 6e 6d 61 72 6b 2d 61 6e 64 2d 62 61 63 .(defun.calibredb-unmark-and-bac
122a0 6b 77 61 72 64 20 28 29 0a 20 20 22 55 6e 6d 61 72 6b 20 74 68 65 20 63 75 72 72 65 6e 74 20 6c kward.()..."Unmark.the.current.l
122c0 69 6e 65 20 61 6e 64 20 62 61 63 6b 77 61 72 64 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 ine.and.backward."...(interactiv
122e0 65 29 0a 20 20 28 63 61 6c 69 62 72 65 64 62 2d 70 72 65 76 69 6f 75 73 2d 65 6e 74 72 79 29 0a e)...(calibredb-previous-entry).
12300 20 20 28 63 61 6c 69 62 72 65 64 62 2d 75 6e 6d 61 72 6b 2d 61 74 2d 70 6f 69 6e 74 29 29 0a 0a ..(calibredb-unmark-at-point))..
12320 28 64 65 66 75 6e 20 63 61 6c 69 62 72 65 64 62 2d 75 6e 6d 61 72 6b 2d 61 74 2d 70 6f 69 6e 74 (defun.calibredb-unmark-at-point
12340 20 28 29 0a 20 20 22 55 6e 6d 61 72 6b 20 74 68 65 20 63 75 72 72 65 6e 74 20 6c 69 6e 65 2e 22 .()..."Unmark.the.current.line."
12360 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 0a 20 20 28 6c 65 74 2a 20 28 28 62 65 67 20 28 ...(interactive)...(let*.((beg.(
12380 6c 69 6e 65 2d 62 65 67 69 6e 6e 69 6e 67 2d 70 6f 73 69 74 69 6f 6e 29 29 0a 20 20 20 20 20 20 line-beginning-position)).......
123a0 20 20 20 28 65 6e 64 20 28 6c 69 6e 65 2d 65 6e 64 2d 70 6f 73 69 74 69 6f 6e 29 29 0a 20 20 20 ...(end.(line-end-position))....
123c0 20 20 20 20 20 20 28 69 6e 68 69 62 69 74 2d 72 65 61 64 2d 6f 6e 6c 79 20 74 29 29 0a 20 20 20 ......(inhibit-read-only.t))....
123e0 20 28 72 65 6d 6f 76 65 2d 6f 76 65 72 6c 61 79 73 20 28 6c 69 6e 65 2d 62 65 67 69 6e 6e 69 6e .(remove-overlays.(line-beginnin
12400 67 2d 70 6f 73 69 74 69 6f 6e 29 20 28 6c 69 6e 65 2d 65 6e 64 2d 70 6f 73 69 74 69 6f 6e 29 29 g-position).(line-end-position))
12420 0a 20 20 20 20 28 72 65 6d 6f 76 65 2d 74 65 78 74 2d 70 72 6f 70 65 72 74 69 65 73 20 62 65 67 .....(remove-text-properties.beg
12440 20 65 6e 64 20 27 28 63 61 6c 69 62 72 65 64 62 2d 6d 61 72 6b 20 6e 69 6c 29 29 29 29 0a 0a 28 .end.'(calibredb-mark.nil))))..(
12460 64 65 66 75 6e 20 63 61 6c 69 62 72 65 64 62 2d 63 6f 6e 64 65 6e 73 65 2d 63 6f 6d 6d 65 6e 74 defun.calibredb-condense-comment
12480 73 20 28 73 74 72 29 0a 20 20 22 43 6f 6e 64 65 6e 73 65 20 77 68 69 74 65 73 70 61 63 65 20 69 s.(str)..."Condense.whitespace.i
124a0 6e 20 53 54 52 20 69 6e 74 6f 20 61 20 73 69 6e 67 6c 65 20 73 70 61 63 65 2e 22 0a 20 20 28 72 n.STR.into.a.single.space."...(r
124c0 65 70 6c 61 63 65 2d 72 65 67 65 78 70 2d 69 6e 2d 73 74 72 69 6e 67 20 22 5b 5b 3a 73 70 61 63 eplace-regexp-in-string."[[:spac
124e0 65 3a 5d 5c 6e 5c 72 5d 2b 22 20 22 20 22 20 73 74 72 29 29 0a 0a 28 64 65 66 75 6e 20 63 61 6c e:]\n\r]+".".".str))..(defun.cal
12500 69 62 72 65 64 62 2d 66 61 76 6f 72 69 74 65 2d 6d 6f 75 73 65 2d 31 20 28 65 76 65 6e 74 29 0a ibredb-favorite-mouse-1.(event).
12520 20 20 22 56 69 73 69 74 20 74 68 65 20 6c 6f 63 61 74 69 6f 6e 20 63 6c 69 63 6b 20 6f 6e 2e 0a .."Visit.the.location.click.on..
12540 41 72 67 75 6d 65 6e 74 20 45 56 45 4e 54 20 6d 6f 75 73 65 20 65 76 65 6e 74 2e 22 0a 20 20 28 Argument.EVENT.mouse.event."...(
12560 69 6e 74 65 72 61 63 74 69 76 65 20 22 65 22 29 0a 20 20 28 6c 65 74 20 28 28 77 69 6e 64 6f 77 interactive."e")...(let.((window
12580 20 28 70 6f 73 6e 2d 77 69 6e 64 6f 77 20 28 65 76 65 6e 74 2d 65 6e 64 20 65 76 65 6e 74 29 29 .(posn-window.(event-end.event))
125a0 29 0a 20 20 20 20 20 20 20 20 28 70 6f 73 20 28 70 6f 73 6e 2d 70 6f 69 6e 74 20 28 65 76 65 6e ).........(pos.(posn-point.(even
125c0 74 2d 65 6e 64 20 65 76 65 6e 74 29 29 29 29 0a 20 20 20 20 28 69 66 20 28 6e 6f 74 20 28 77 69 t-end.event)))).....(if.(not.(wi
125e0 6e 64 6f 77 70 20 77 69 6e 64 6f 77 29 29 0a 20 20 20 20 20 20 20 20 28 65 72 72 6f 72 20 22 4e ndowp.window)).........(error."N
12600 6f 20 66 61 76 6f 72 69 74 65 20 63 68 6f 73 65 6e 22 29 29 0a 20 20 20 20 28 77 69 74 68 2d 63 o.favorite.chosen")).....(with-c
12620 75 72 72 65 6e 74 2d 62 75 66 66 65 72 20 28 77 69 6e 64 6f 77 2d 62 75 66 66 65 72 20 77 69 6e urrent-buffer.(window-buffer.win
12640 64 6f 77 29 0a 20 20 20 20 20 20 28 67 6f 74 6f 2d 63 68 61 72 20 70 6f 73 29 0a 20 20 20 20 20 dow).......(goto-char.pos)......
12660 20 28 73 65 74 71 20 63 61 6c 69 62 72 65 64 62 2d 74 61 67 2d 66 69 6c 74 65 72 2d 70 20 6e 69 .(setq.calibredb-tag-filter-p.ni
12680 6c 29 0a 20 20 20 20 20 20 28 73 65 74 71 20 63 61 6c 69 62 72 65 64 62 2d 66 61 76 6f 72 69 74 l).......(setq.calibredb-favorit
126a0 65 2d 66 69 6c 74 65 72 2d 70 20 74 29 0a 20 20 20 20 20 20 28 73 65 74 71 20 63 61 6c 69 62 72 e-filter-p.t).......(setq.calibr
126c0 65 64 62 2d 61 75 74 68 6f 72 2d 66 69 6c 74 65 72 2d 70 20 6e 69 6c 29 0a 20 20 20 20 20 20 28 edb-author-filter-p.nil).......(
126e0 73 65 74 71 20 63 61 6c 69 62 72 65 64 62 2d 64 61 74 65 2d 66 69 6c 74 65 72 2d 70 20 6e 69 6c setq.calibredb-date-filter-p.nil
12700 29 0a 20 20 20 20 20 20 28 73 65 74 71 20 63 61 6c 69 62 72 65 64 62 2d 66 6f 72 6d 61 74 2d 66 ).......(setq.calibredb-format-f
12720 69 6c 74 65 72 2d 70 20 6e 69 6c 29 0a 20 20 20 20 20 20 28 63 61 6c 69 62 72 65 64 62 2d 73 65 ilter-p.nil).......(calibredb-se
12740 61 72 63 68 2d 6b 65 79 77 6f 72 64 2d 66 69 6c 74 65 72 20 63 61 6c 69 62 72 65 64 62 2d 66 61 arch-keyword-filter.calibredb-fa
12760 76 6f 72 69 74 65 2d 6b 65 79 77 6f 72 64 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 63 61 6c 69 62 vorite-keyword))))..(defun.calib
12780 72 65 64 62 2d 74 61 67 2d 6d 6f 75 73 65 2d 31 20 28 65 76 65 6e 74 29 0a 20 20 22 56 69 73 69 redb-tag-mouse-1.(event)..."Visi
127a0 74 20 74 68 65 20 6c 6f 63 61 74 69 6f 6e 20 63 6c 69 63 6b 20 6f 6e 2e 0a 41 72 67 75 6d 65 6e t.the.location.click.on..Argumen
127c0 74 20 45 56 45 4e 54 20 6d 6f 75 73 65 20 65 76 65 6e 74 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 t.EVENT.mouse.event."...(interac
127e0 74 69 76 65 20 22 65 22 29 0a 20 20 28 6c 65 74 20 28 28 77 69 6e 64 6f 77 20 28 70 6f 73 6e 2d tive."e")...(let.((window.(posn-
12800 77 69 6e 64 6f 77 20 28 65 76 65 6e 74 2d 65 6e 64 20 65 76 65 6e 74 29 29 29 0a 20 20 20 20 20 window.(event-end.event)))......
12820 20 20 20 28 70 6f 73 20 28 70 6f 73 6e 2d 70 6f 69 6e 74 20 28 65 76 65 6e 74 2d 65 6e 64 20 65 ...(pos.(posn-point.(event-end.e
12840 76 65 6e 74 29 29 29 29 0a 20 20 20 20 28 69 66 20 28 6e 6f 74 20 28 77 69 6e 64 6f 77 70 20 77 vent)))).....(if.(not.(windowp.w
12860 69 6e 64 6f 77 29 29 0a 20 20 20 20 20 20 20 20 28 65 72 72 6f 72 20 22 4e 6f 20 74 61 67 20 63 indow)).........(error."No.tag.c
12880 68 6f 73 65 6e 22 29 29 0a 20 20 20 20 28 77 69 74 68 2d 63 75 72 72 65 6e 74 2d 62 75 66 66 65 hosen")).....(with-current-buffe
128a0 72 20 28 77 69 6e 64 6f 77 2d 62 75 66 66 65 72 20 77 69 6e 64 6f 77 29 0a 20 20 20 20 20 20 28 r.(window-buffer.window).......(
128c0 67 6f 74 6f 2d 63 68 61 72 20 70 6f 73 29 0a 20 20 20 20 20 20 28 73 65 74 71 20 63 61 6c 69 62 goto-char.pos).......(setq.calib
128e0 72 65 64 62 2d 74 61 67 2d 66 69 6c 74 65 72 2d 70 20 74 29 0a 20 20 20 20 20 20 28 73 65 74 71 redb-tag-filter-p.t).......(setq
12900 20 63 61 6c 69 62 72 65 64 62 2d 66 61 76 6f 72 69 74 65 2d 66 69 6c 74 65 72 2d 70 20 6e 69 6c .calibredb-favorite-filter-p.nil
12920 29 0a 20 20 20 20 20 20 28 73 65 74 71 20 63 61 6c 69 62 72 65 64 62 2d 61 75 74 68 6f 72 2d 66 ).......(setq.calibredb-author-f
12940 69 6c 74 65 72 2d 70 20 6e 69 6c 29 0a 20 20 20 20 20 20 28 73 65 74 71 20 63 61 6c 69 62 72 65 ilter-p.nil).......(setq.calibre
12960 64 62 2d 64 61 74 65 2d 66 69 6c 74 65 72 2d 70 20 6e 69 6c 29 0a 20 20 20 20 20 20 28 73 65 74 db-date-filter-p.nil).......(set
12980 71 20 63 61 6c 69 62 72 65 64 62 2d 66 6f 72 6d 61 74 2d 66 69 6c 74 65 72 2d 70 20 6e 69 6c 29 q.calibredb-format-filter-p.nil)
129a0 0a 20 20 20 20 20 20 28 63 61 6c 69 62 72 65 64 62 2d 73 65 61 72 63 68 2d 6b 65 79 77 6f 72 64 .......(calibredb-search-keyword
129c0 2d 66 69 6c 74 65 72 20 28 67 65 74 2d 74 65 78 74 2d 70 72 6f 70 65 72 74 79 20 28 70 6f 69 6e -filter.(get-text-property.(poin
129e0 74 29 20 27 74 61 67 20 6e 69 6c 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 63 61 6c 69 62 72 65 t).'tag.nil)))))..(defun.calibre
12a00 64 62 2d 61 75 74 68 6f 72 2d 6d 6f 75 73 65 2d 31 20 28 65 76 65 6e 74 29 0a 20 20 22 56 69 73 db-author-mouse-1.(event)..."Vis
12a20 69 74 20 74 68 65 20 6c 6f 63 61 74 69 6f 6e 20 63 6c 69 63 6b 20 6f 6e 2e 0a 41 72 67 75 6d 65 it.the.location.click.on..Argume
12a40 6e 74 20 45 56 45 4e 54 20 6d 6f 75 73 65 20 65 76 65 6e 74 2e 22 0a 20 20 28 69 6e 74 65 72 61 nt.EVENT.mouse.event."...(intera
12a60 63 74 69 76 65 20 22 65 22 29 0a 20 20 28 6c 65 74 20 28 28 77 69 6e 64 6f 77 20 28 70 6f 73 6e ctive."e")...(let.((window.(posn
12a80 2d 77 69 6e 64 6f 77 20 28 65 76 65 6e 74 2d 65 6e 64 20 65 76 65 6e 74 29 29 29 0a 20 20 20 20 -window.(event-end.event))).....
12aa0 20 20 20 20 28 70 6f 73 20 28 70 6f 73 6e 2d 70 6f 69 6e 74 20 28 65 76 65 6e 74 2d 65 6e 64 20 ....(pos.(posn-point.(event-end.
12ac0 65 76 65 6e 74 29 29 29 29 0a 20 20 20 20 28 69 66 20 28 6e 6f 74 20 28 77 69 6e 64 6f 77 70 20 event)))).....(if.(not.(windowp.
12ae0 77 69 6e 64 6f 77 29 29 0a 20 20 20 20 20 20 20 20 28 65 72 72 6f 72 20 22 4e 6f 20 61 75 74 68 window)).........(error."No.auth
12b00 6f 72 20 63 68 6f 73 65 6e 22 29 29 0a 20 20 20 20 28 77 69 74 68 2d 63 75 72 72 65 6e 74 2d 62 or.chosen")).....(with-current-b
12b20 75 66 66 65 72 20 28 77 69 6e 64 6f 77 2d 62 75 66 66 65 72 20 77 69 6e 64 6f 77 29 0a 20 20 20 uffer.(window-buffer.window)....
12b40 20 20 20 28 67 6f 74 6f 2d 63 68 61 72 20 70 6f 73 29 0a 20 20 20 20 20 20 28 73 65 74 71 20 63 ...(goto-char.pos).......(setq.c
12b60 61 6c 69 62 72 65 64 62 2d 74 61 67 2d 66 69 6c 74 65 72 2d 70 20 6e 69 6c 29 0a 20 20 20 20 20 alibredb-tag-filter-p.nil)......
12b80 20 28 73 65 74 71 20 63 61 6c 69 62 72 65 64 62 2d 66 61 76 6f 72 69 74 65 2d 66 69 6c 74 65 72 .(setq.calibredb-favorite-filter
12ba0 2d 70 20 6e 69 6c 29 0a 20 20 20 20 20 20 28 73 65 74 71 20 63 61 6c 69 62 72 65 64 62 2d 61 75 -p.nil).......(setq.calibredb-au
12bc0 74 68 6f 72 2d 66 69 6c 74 65 72 2d 70 20 74 29 0a 20 20 20 20 20 20 28 73 65 74 71 20 63 61 6c thor-filter-p.t).......(setq.cal
12be0 69 62 72 65 64 62 2d 64 61 74 65 2d 66 69 6c 74 65 72 2d 70 20 6e 69 6c 29 0a 20 20 20 20 20 20 ibredb-date-filter-p.nil).......
12c00 28 73 65 74 71 20 63 61 6c 69 62 72 65 64 62 2d 66 6f 72 6d 61 74 2d 66 69 6c 74 65 72 2d 70 20 (setq.calibredb-format-filter-p.
12c20 6e 69 6c 29 0a 20 20 20 20 20 20 28 63 61 6c 69 62 72 65 64 62 2d 73 65 61 72 63 68 2d 6b 65 79 nil).......(calibredb-search-key
12c40 77 6f 72 64 2d 66 69 6c 74 65 72 20 28 67 65 74 2d 74 65 78 74 2d 70 72 6f 70 65 72 74 79 20 28 word-filter.(get-text-property.(
12c60 70 6f 69 6e 74 29 20 27 61 75 74 68 6f 72 20 6e 69 6c 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 point).'author.nil)))))..(defun.
12c80 63 61 6c 69 62 72 65 64 62 2d 66 6f 72 6d 61 74 2d 6d 6f 75 73 65 2d 31 20 28 65 76 65 6e 74 29 calibredb-format-mouse-1.(event)
12ca0 0a 20 20 22 56 69 73 69 74 20 74 68 65 20 6c 6f 63 61 74 69 6f 6e 20 63 6c 69 63 6b 20 6f 6e 2e ..."Visit.the.location.click.on.
12cc0 0a 41 72 67 75 6d 65 6e 74 20 45 56 45 4e 54 20 6d 6f 75 73 65 20 65 76 65 6e 74 2e 22 0a 20 20 .Argument.EVENT.mouse.event."...
12ce0 28 69 6e 74 65 72 61 63 74 69 76 65 20 22 65 22 29 0a 20 20 28 6c 65 74 20 28 28 77 69 6e 64 6f (interactive."e")...(let.((windo
12d00 77 20 28 70 6f 73 6e 2d 77 69 6e 64 6f 77 20 28 65 76 65 6e 74 2d 65 6e 64 20 65 76 65 6e 74 29 w.(posn-window.(event-end.event)
12d20 29 29 0a 20 20 20 20 20 20 20 20 28 70 6f 73 20 28 70 6f 73 6e 2d 70 6f 69 6e 74 20 28 65 76 65 )).........(pos.(posn-point.(eve
12d40 6e 74 2d 65 6e 64 20 65 76 65 6e 74 29 29 29 29 0a 20 20 20 20 28 69 66 20 28 6e 6f 74 20 28 77 nt-end.event)))).....(if.(not.(w
12d60 69 6e 64 6f 77 70 20 77 69 6e 64 6f 77 29 29 0a 20 20 20 20 20 20 20 20 28 65 72 72 6f 72 20 22 indowp.window)).........(error."
12d80 4e 6f 20 66 6f 72 6d 61 74 20 63 68 6f 73 65 6e 22 29 29 0a 20 20 20 20 28 77 69 74 68 2d 63 75 No.format.chosen")).....(with-cu
12da0 72 72 65 6e 74 2d 62 75 66 66 65 72 20 28 77 69 6e 64 6f 77 2d 62 75 66 66 65 72 20 77 69 6e 64 rrent-buffer.(window-buffer.wind
12dc0 6f 77 29 0a 20 20 20 20 20 20 28 67 6f 74 6f 2d 63 68 61 72 20 70 6f 73 29 0a 20 20 20 20 20 20 ow).......(goto-char.pos).......
12de0 28 73 65 74 71 20 63 61 6c 69 62 72 65 64 62 2d 74 61 67 2d 66 69 6c 74 65 72 2d 70 20 6e 69 6c (setq.calibredb-tag-filter-p.nil
12e00 29 0a 20 20 20 20 20 20 28 73 65 74 71 20 63 61 6c 69 62 72 65 64 62 2d 66 61 76 6f 72 69 74 65 ).......(setq.calibredb-favorite
12e20 2d 66 69 6c 74 65 72 2d 70 20 6e 69 6c 29 0a 20 20 20 20 20 20 28 73 65 74 71 20 63 61 6c 69 62 -filter-p.nil).......(setq.calib
12e40 72 65 64 62 2d 61 75 74 68 6f 72 2d 66 69 6c 74 65 72 2d 70 20 6e 69 6c 29 0a 20 20 20 20 20 20 redb-author-filter-p.nil).......
12e60 28 73 65 74 71 20 63 61 6c 69 62 72 65 64 62 2d 64 61 74 65 2d 66 69 6c 74 65 72 2d 70 20 6e 69 (setq.calibredb-date-filter-p.ni
12e80 6c 29 0a 20 20 20 20 20 20 28 73 65 74 71 20 63 61 6c 69 62 72 65 64 62 2d 66 6f 72 6d 61 74 2d l).......(setq.calibredb-format-
12ea0 66 69 6c 74 65 72 2d 70 20 74 29 0a 20 20 20 20 20 20 28 63 61 6c 69 62 72 65 64 62 2d 73 65 61 filter-p.t).......(calibredb-sea
12ec0 72 63 68 2d 6b 65 79 77 6f 72 64 2d 66 69 6c 74 65 72 20 28 77 6f 72 64 2d 61 74 2d 70 6f 69 6e rch-keyword-filter.(word-at-poin
12ee0 74 20 74 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 63 61 6c 69 62 72 65 64 62 2d 64 61 74 65 2d t.t)))))..(defun.calibredb-date-
12f00 6d 6f 75 73 65 2d 31 20 28 65 76 65 6e 74 29 0a 20 20 22 56 69 73 69 74 20 74 68 65 20 6c 6f 63 mouse-1.(event)..."Visit.the.loc
12f20 61 74 69 6f 6e 20 63 6c 69 63 6b 20 6f 6e 2e 0a 41 72 67 75 6d 65 6e 74 20 45 56 45 4e 54 20 6d ation.click.on..Argument.EVENT.m
12f40 6f 75 73 65 20 65 76 65 6e 74 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 20 22 65 22 29 ouse.event."...(interactive."e")
12f60 0a 20 20 28 6c 65 74 20 28 28 77 69 6e 64 6f 77 20 28 70 6f 73 6e 2d 77 69 6e 64 6f 77 20 28 65 ...(let.((window.(posn-window.(e
12f80 76 65 6e 74 2d 65 6e 64 20 65 76 65 6e 74 29 29 29 0a 20 20 20 20 20 20 20 20 28 70 6f 73 20 28 vent-end.event))).........(pos.(
12fa0 70 6f 73 6e 2d 70 6f 69 6e 74 20 28 65 76 65 6e 74 2d 65 6e 64 20 65 76 65 6e 74 29 29 29 29 0a posn-point.(event-end.event)))).
12fc0 20 20 20 20 28 69 66 20 28 6e 6f 74 20 28 77 69 6e 64 6f 77 70 20 77 69 6e 64 6f 77 29 29 0a 20 ....(if.(not.(windowp.window))..
12fe0 20 20 20 20 20 20 20 28 65 72 72 6f 72 20 22 4e 6f 20 61 75 74 68 6f 72 20 63 68 6f 73 65 6e 22 .......(error."No.author.chosen"
13000 29 29 0a 20 20 20 20 28 77 69 74 68 2d 63 75 72 72 65 6e 74 2d 62 75 66 66 65 72 20 28 77 69 6e )).....(with-current-buffer.(win
13020 64 6f 77 2d 62 75 66 66 65 72 20 77 69 6e 64 6f 77 29 0a 20 20 20 20 20 20 28 67 6f 74 6f 2d 63 dow-buffer.window).......(goto-c
13040 68 61 72 20 70 6f 73 29 0a 20 20 20 20 20 20 28 73 65 74 71 20 63 61 6c 69 62 72 65 64 62 2d 74 har.pos).......(setq.calibredb-t
13060 61 67 2d 66 69 6c 74 65 72 2d 70 20 6e 69 6c 29 0a 20 20 20 20 20 20 28 73 65 74 71 20 63 61 6c ag-filter-p.nil).......(setq.cal
13080 69 62 72 65 64 62 2d 66 61 76 6f 72 69 74 65 2d 66 69 6c 74 65 72 2d 70 20 6e 69 6c 29 0a 20 20 ibredb-favorite-filter-p.nil)...
130a0 20 20 20 20 28 73 65 74 71 20 63 61 6c 69 62 72 65 64 62 2d 61 75 74 68 6f 72 2d 66 69 6c 74 65 ....(setq.calibredb-author-filte
130c0 72 2d 70 20 6e 69 6c 29 0a 20 20 20 20 20 20 28 73 65 74 71 20 63 61 6c 69 62 72 65 64 62 2d 64 r-p.nil).......(setq.calibredb-d
130e0 61 74 65 2d 66 69 6c 74 65 72 2d 70 20 74 29 0a 20 20 20 20 20 20 28 73 65 74 71 20 63 61 6c 69 ate-filter-p.t).......(setq.cali
13100 62 72 65 64 62 2d 66 6f 72 6d 61 74 2d 66 69 6c 74 65 72 2d 70 20 6e 69 6c 29 0a 20 20 20 20 20 bredb-format-filter-p.nil)......
13120 20 28 63 61 6c 69 62 72 65 64 62 2d 73 65 61 72 63 68 2d 6b 65 79 77 6f 72 64 2d 66 69 6c 74 65 .(calibredb-search-keyword-filte
13140 72 20 28 74 68 69 6e 67 2d 61 74 2d 70 6f 69 6e 74 20 27 73 79 6d 62 6f 6c 20 74 29 29 29 29 29 r.(thing-at-point.'symbol.t)))))
13160 0a 0a 28 64 65 66 75 6e 20 63 61 6c 69 62 72 65 64 62 2d 66 69 6c 65 2d 6d 6f 75 73 65 2d 31 20 ..(defun.calibredb-file-mouse-1.
13180 28 65 76 65 6e 74 29 0a 20 20 22 56 69 73 69 74 20 74 68 65 20 66 69 6c 65 20 63 6c 69 63 6b 20 (event)..."Visit.the.file.click.
131a0 6f 6e 2e 0a 41 72 67 75 6d 65 6e 74 20 45 56 45 4e 54 20 6d 6f 75 73 65 20 65 76 65 6e 74 2e 22 on..Argument.EVENT.mouse.event."
131c0 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 20 22 65 22 29 0a 20 20 28 6c 65 74 20 28 28 77 69 ...(interactive."e")...(let.((wi
131e0 6e 64 6f 77 20 28 70 6f 73 6e 2d 77 69 6e 64 6f 77 20 28 65 76 65 6e 74 2d 65 6e 64 20 65 76 65 ndow.(posn-window.(event-end.eve
13200 6e 74 29 29 29 0a 20 20 20 20 20 20 20 20 28 70 6f 73 20 28 70 6f 73 6e 2d 70 6f 69 6e 74 20 28 nt))).........(pos.(posn-point.(
13220 65 76 65 6e 74 2d 65 6e 64 20 65 76 65 6e 74 29 29 29 29 0a 20 20 20 20 28 69 66 20 28 6e 6f 74 event-end.event)))).....(if.(not
13240 20 28 77 69 6e 64 6f 77 70 20 77 69 6e 64 6f 77 29 29 0a 20 20 20 20 20 20 20 20 28 65 72 72 6f .(windowp.window)).........(erro
13260 72 20 22 4e 6f 20 65 62 6f 6f 6b 20 63 68 6f 73 65 6e 22 29 29 0a 20 20 20 20 28 77 69 74 68 2d r."No.ebook.chosen")).....(with-
13280 63 75 72 72 65 6e 74 2d 62 75 66 66 65 72 20 28 77 69 6e 64 6f 77 2d 62 75 66 66 65 72 20 77 69 current-buffer.(window-buffer.wi
132a0 6e 64 6f 77 29 0a 20 20 20 20 20 20 28 66 69 6e 64 2d 66 69 6c 65 2d 6f 74 68 65 72 2d 77 69 6e ndow).......(find-file-other-win
132c0 64 6f 77 20 28 67 65 74 2d 74 65 78 74 2d 70 72 6f 70 65 72 74 79 20 70 6f 73 20 27 68 65 6c 70 dow.(get-text-property.pos.'help
132e0 2d 65 63 68 6f 20 6e 69 6c 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 63 61 6c 69 62 72 65 64 62 -echo.nil)))))..(defun.calibredb
13300 2d 66 69 6c 65 2d 6d 6f 75 73 65 2d 33 20 28 65 76 65 6e 74 29 0a 20 20 22 56 69 73 69 74 20 74 -file-mouse-3.(event)..."Visit.t
13320 68 65 20 66 69 6c 65 20 63 6c 69 63 6b 20 6f 6e 20 69 6e 20 64 65 66 61 75 6c 74 20 74 6f 6f 6c he.file.click.on.in.default.tool
13340 2e 0a 41 72 67 75 6d 65 6e 74 20 45 56 45 4e 54 20 6d 6f 75 73 65 20 65 76 65 6e 74 2e 22 0a 20 ..Argument.EVENT.mouse.event."..
13360 20 28 69 6e 74 65 72 61 63 74 69 76 65 20 22 65 22 29 0a 20 20 28 6c 65 74 20 28 28 77 69 6e 64 .(interactive."e")...(let.((wind
13380 6f 77 20 28 70 6f 73 6e 2d 77 69 6e 64 6f 77 20 28 65 76 65 6e 74 2d 65 6e 64 20 65 76 65 6e 74 ow.(posn-window.(event-end.event
133a0 29 29 29 0a 20 20 20 20 20 20 20 20 28 70 6f 73 20 28 70 6f 73 6e 2d 70 6f 69 6e 74 20 28 65 76 ))).........(pos.(posn-point.(ev
133c0 65 6e 74 2d 65 6e 64 20 65 76 65 6e 74 29 29 29 29 0a 20 20 20 20 28 69 66 20 28 6e 6f 74 20 28 ent-end.event)))).....(if.(not.(
133e0 77 69 6e 64 6f 77 70 20 77 69 6e 64 6f 77 29 29 0a 20 20 20 20 20 20 20 20 28 65 72 72 6f 72 20 windowp.window)).........(error.
13400 22 4e 6f 20 65 62 6f 6f 6b 20 63 68 6f 73 65 6e 22 29 29 0a 20 20 20 20 28 77 69 74 68 2d 63 75 "No.ebook.chosen")).....(with-cu
13420 72 72 65 6e 74 2d 62 75 66 66 65 72 20 28 77 69 6e 64 6f 77 2d 62 75 66 66 65 72 20 77 69 6e 64 rrent-buffer.(window-buffer.wind
13440 6f 77 29 0a 20 20 20 20 20 20 28 63 61 6c 69 62 72 65 64 62 2d 6f 70 65 6e 2d 77 69 74 68 2d 64 ow).......(calibredb-open-with-d
13460 65 66 61 75 6c 74 2d 74 6f 6f 6c 20 28 67 65 74 2d 74 65 78 74 2d 70 72 6f 70 65 72 74 79 20 70 efault-tool.(get-text-property.p
13480 6f 73 20 27 68 65 6c 70 2d 65 63 68 6f 20 6e 69 6c 29 29 29 29 29 0a 0a 3b 3b 20 66 61 76 6f 72 os.'help-echo.nil)))))..;;.favor
134a0 69 74 65 0a 0a 28 64 65 66 75 6e 20 63 61 6c 69 62 72 65 64 62 2d 74 6f 67 67 6c 65 2d 66 61 76 ite..(defun.calibredb-toggle-fav
134c0 6f 72 69 74 65 2d 61 74 2d 70 6f 69 6e 74 20 28 26 6f 70 74 69 6f 6e 61 6c 20 6b 65 79 77 6f 72 orite-at-point.(&optional.keywor
134e0 64 29 0a 20 20 22 54 6f 67 67 6c 65 20 66 61 76 6f 72 69 74 65 20 74 68 65 20 63 75 72 72 65 6e d)..."Toggle.favorite.the.curren
13500 74 20 69 74 65 6d 2e 0a 41 72 67 75 6d 65 6e 74 20 4b 45 59 57 4f 52 44 20 69 73 20 74 68 65 20 t.item..Argument.KEYWORD.is.the.
13520 74 61 67 20 6b 65 79 77 6f 72 64 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 0a 20 20 tag.keyword."...(interactive)...
13540 28 6c 65 74 20 28 28 63 61 6e 64 69 64 61 74 65 73 20 28 63 61 6c 69 62 72 65 64 62 2d 66 69 6e (let.((candidates.(calibredb-fin
13560 64 2d 6d 61 72 6b 65 64 2d 63 61 6e 64 69 64 61 74 65 73 29 29 29 0a 20 20 20 20 28 75 6e 6c 65 d-marked-candidates))).....(unle
13580 73 73 20 63 61 6e 64 69 64 61 74 65 73 0a 20 20 20 20 20 20 28 73 65 74 71 20 63 61 6e 64 69 64 ss.candidates.......(setq.candid
135a0 61 74 65 73 20 28 63 61 6c 69 62 72 65 64 62 2d 66 69 6e 64 2d 63 61 6e 64 69 64 61 74 65 2d 61 ates.(calibredb-find-candidate-a
135c0 74 2d 70 6f 69 6e 74 29 29 29 0a 20 20 20 20 28 63 61 6c 69 62 72 65 64 62 2d 74 6f 67 67 6c 65 t-point))).....(calibredb-toggle
135e0 2d 6d 65 74 61 64 61 74 61 2d 70 72 6f 63 65 73 73 20 63 61 6e 64 69 64 61 74 65 73 20 28 6f 72 -metadata-process.candidates.(or
13600 20 6b 65 79 77 6f 72 64 20 63 61 6c 69 62 72 65 64 62 2d 66 61 76 6f 72 69 74 65 2d 6b 65 79 77 .keyword.calibredb-favorite-keyw
13620 6f 72 64 20 29 29 29 29 0a 0a 3b 3b 20 68 69 67 68 6c 69 67 68 74 0a 28 64 65 66 75 6e 20 63 61 ord.))))..;;.highlight.(defun.ca
13640 6c 69 62 72 65 64 62 2d 74 6f 67 67 6c 65 2d 68 69 67 68 6c 69 67 68 74 2d 61 74 2d 70 6f 69 6e libredb-toggle-highlight-at-poin
13660 74 20 28 26 6f 70 74 69 6f 6e 61 6c 20 6b 65 79 77 6f 72 64 29 0a 20 20 22 54 6f 67 67 6c 65 20 t.(&optional.keyword)..."Toggle.
13680 68 69 67 68 6c 69 67 68 74 20 74 68 65 20 63 75 72 72 65 6e 74 20 69 74 65 6d 2e 0a 41 72 67 75 highlight.the.current.item..Argu
136a0 6d 65 6e 74 20 4b 45 59 57 4f 52 44 20 69 73 20 74 68 65 20 74 61 67 20 6b 65 79 77 6f 72 64 2e ment.KEYWORD.is.the.tag.keyword.
136c0 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 0a 20 20 28 6c 65 74 20 28 28 63 61 6e 64 69 "...(interactive)...(let.((candi
136e0 64 61 74 65 73 20 28 63 61 6c 69 62 72 65 64 62 2d 66 69 6e 64 2d 6d 61 72 6b 65 64 2d 63 61 6e dates.(calibredb-find-marked-can
13700 64 69 64 61 74 65 73 29 29 29 0a 20 20 20 20 28 75 6e 6c 65 73 73 20 63 61 6e 64 69 64 61 74 65 didates))).....(unless.candidate
13720 73 0a 20 20 20 20 20 20 28 73 65 74 71 20 63 61 6e 64 69 64 61 74 65 73 20 28 63 61 6c 69 62 72 s.......(setq.candidates.(calibr
13740 65 64 62 2d 66 69 6e 64 2d 63 61 6e 64 69 64 61 74 65 2d 61 74 2d 70 6f 69 6e 74 29 29 29 0a 20 edb-find-candidate-at-point)))..
13760 20 20 20 28 63 61 6c 69 62 72 65 64 62 2d 74 6f 67 67 6c 65 2d 6d 65 74 61 64 61 74 61 2d 70 72 ...(calibredb-toggle-metadata-pr
13780 6f 63 65 73 73 20 63 61 6e 64 69 64 61 74 65 73 20 28 6f 72 20 6b 65 79 77 6f 72 64 20 63 61 6c ocess.candidates.(or.keyword.cal
137a0 69 62 72 65 64 62 2d 68 69 67 68 6c 69 67 68 74 2d 6b 65 79 77 6f 72 64 20 29 29 29 29 0a 0a 3b ibredb-highlight-keyword.))))..;
137c0 3b 20 61 72 63 68 69 76 65 0a 28 64 65 66 75 6e 20 63 61 6c 69 62 72 65 64 62 2d 74 6f 67 67 6c ;.archive.(defun.calibredb-toggl
137e0 65 2d 61 72 63 68 69 76 65 2d 61 74 2d 70 6f 69 6e 74 20 28 26 6f 70 74 69 6f 6e 61 6c 20 6b 65 e-archive-at-point.(&optional.ke
13800 79 77 6f 72 64 29 0a 20 20 22 54 6f 67 67 6c 65 20 61 72 63 68 69 76 65 20 74 68 65 20 63 75 72 yword)..."Toggle.archive.the.cur
13820 72 65 6e 74 20 69 74 65 6d 2e 0a 41 72 67 75 6d 65 6e 74 20 4b 45 59 57 4f 52 44 20 69 73 20 74 rent.item..Argument.KEYWORD.is.t
13840 68 65 20 74 61 67 20 6b 65 79 77 6f 72 64 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 he.tag.keyword."...(interactive)
13860 0a 20 20 28 6c 65 74 20 28 28 63 61 6e 64 69 64 61 74 65 73 20 28 63 61 6c 69 62 72 65 64 62 2d ...(let.((candidates.(calibredb-
13880 66 69 6e 64 2d 6d 61 72 6b 65 64 2d 63 61 6e 64 69 64 61 74 65 73 29 29 29 0a 20 20 20 20 28 75 find-marked-candidates))).....(u
138a0 6e 6c 65 73 73 20 63 61 6e 64 69 64 61 74 65 73 0a 20 20 20 20 20 20 28 73 65 74 71 20 63 61 6e nless.candidates.......(setq.can
138c0 64 69 64 61 74 65 73 20 28 63 61 6c 69 62 72 65 64 62 2d 66 69 6e 64 2d 63 61 6e 64 69 64 61 74 didates.(calibredb-find-candidat
138e0 65 2d 61 74 2d 70 6f 69 6e 74 29 29 29 0a 20 20 20 20 28 63 61 6c 69 62 72 65 64 62 2d 74 6f 67 e-at-point))).....(calibredb-tog
13900 67 6c 65 2d 6d 65 74 61 64 61 74 61 2d 70 72 6f 63 65 73 73 20 63 61 6e 64 69 64 61 74 65 73 20 gle-metadata-process.candidates.
13920 28 6f 72 20 6b 65 79 77 6f 72 64 20 63 61 6c 69 62 72 65 64 62 2d 61 72 63 68 69 76 65 2d 6b 65 (or.keyword.calibredb-archive-ke
13940 79 77 6f 72 64 20 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 63 61 6c 69 62 72 65 64 62 2d 74 6f 67 yword.))))..(defun.calibredb-tog
13960 67 6c 65 2d 6d 65 74 61 64 61 74 61 2d 70 72 6f 63 65 73 73 20 28 63 61 6e 64 73 20 6b 65 79 77 gle-metadata-process.(cands.keyw
13980 6f 72 64 29 0a 20 20 22 52 75 6e 20 73 65 71 75 65 6e 74 69 61 6c 20 70 72 6f 63 65 73 73 65 73 ord)..."Run.sequential.processes
139a0 20 74 6f 20 74 6f 67 67 6c 65 20 6d 65 74 61 64 61 74 61 2e 0a 41 72 67 75 6d 65 6e 74 20 43 41 .to.toggle.metadata..Argument.CA
139c0 4e 44 53 20 69 73 20 74 68 65 20 6c 69 73 74 20 6f 66 20 63 61 6e 64 69 61 74 65 73 2e 0a 41 72 NDS.is.the.list.of.candiates..Ar
139e0 67 75 6d 65 6e 74 20 4b 45 59 57 4f 52 44 20 69 73 20 74 68 65 20 6d 65 74 61 64 61 74 61 20 6b gument.KEYWORD.is.the.metadata.k
13a00 65 79 77 6f 72 64 20 74 6f 20 62 65 20 74 6f 67 67 6c 65 64 2e 22 0a 20 20 28 6c 65 74 2a 20 28 eyword.to.be.toggled."...(let*.(
13a20 28 63 61 6e 64 20 28 70 6f 70 20 63 61 6e 64 73 29 29 0a 20 20 20 20 20 20 20 20 20 28 74 61 67 (cand.(pop.cands))..........(tag
13a40 73 20 28 63 61 6c 69 62 72 65 64 62 2d 72 65 61 64 2d 6d 65 74 61 64 61 74 61 73 20 22 74 61 67 s.(calibredb-read-metadatas."tag
13a60 73 22 20 63 61 6e 64 29 29 29 0a 20 20 20 20 3b 3b 20 28 70 70 20 63 61 6e 64 29 0a 20 20 20 20 s".cand))).....;;.(pp.cand).....
13a80 28 69 66 20 63 61 6e 64 0a 20 20 20 20 20 20 20 20 28 73 65 74 2d 70 72 6f 63 65 73 73 2d 73 65 (if.cand.........(set-process-se
13aa0 6e 74 69 6e 65 6c 0a 20 20 20 20 20 20 20 20 20 28 6c 65 74 2a 20 28 28 69 64 20 28 63 61 6c 69 ntinel..........(let*.((id.(cali
13ac0 62 72 65 64 62 2d 67 65 74 61 74 74 72 20 63 61 6e 64 20 3a 69 64 29 29 29 0a 20 20 20 20 20 20 bredb-getattr.cand.:id))).......
13ae0 20 20 20 20 20 28 69 66 20 28 73 2d 63 6f 6e 74 61 69 6e 73 3f 20 6b 65 79 77 6f 72 64 20 74 61 .....(if.(s-contains?.keyword.ta
13b00 67 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 61 6c 69 62 72 65 64 62 2d 70 72 gs)................(calibredb-pr
13b20 6f 63 65 73 73 20 3a 63 6f 6d 6d 61 6e 64 20 22 73 65 74 5f 6d 65 74 61 64 61 74 61 22 0a 20 20 ocess.:command."set_metadata"...
13b40 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ................................
13b60 3a 6f 70 74 69 6f 6e 20 28 66 6f 72 6d 61 74 20 22 2d 2d 66 69 65 6c 64 20 74 61 67 73 3a 5c 22 :option.(format."--field.tags:\"
13b80 25 73 5c 22 22 20 28 73 2d 72 65 70 6c 61 63 65 20 6b 65 79 77 6f 72 64 20 22 22 20 74 61 67 73 %s\"".(s-replace.keyword."".tags
13ba0 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ))..............................
13bc0 20 20 20 20 20 3a 69 64 20 69 64 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .....:id.id.....................
13be0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 6c 69 62 72 61 72 79 20 28 66 6f 72 6d 61 74 20 22 ..............:library.(format."
13c00 2d 2d 6c 69 62 72 61 72 79 2d 70 61 74 68 20 5c 22 25 73 5c 22 22 20 63 61 6c 69 62 72 65 64 62 --library-path.\"%s\"".calibredb
13c20 2d 72 6f 6f 74 2d 64 69 72 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 61 6c 69 62 72 -root-dir))..............(calibr
13c40 65 64 62 2d 70 72 6f 63 65 73 73 20 3a 63 6f 6d 6d 61 6e 64 20 22 73 65 74 5f 6d 65 74 61 64 61 edb-process.:command."set_metada
13c60 74 61 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ta".............................
13c80 20 20 20 20 3a 6f 70 74 69 6f 6e 20 28 66 6f 72 6d 61 74 20 22 2d 2d 66 69 65 6c 64 20 74 61 67 ....:option.(format."--field.tag
13ca0 73 3a 5c 22 25 73 2c 25 73 5c 22 22 20 74 61 67 73 20 6b 65 79 77 6f 72 64 29 0a 20 20 20 20 20 s:\"%s,%s\"".tags.keyword)......
13cc0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 69 64 20 69 ...........................:id.i
13ce0 64 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 d...............................
13d00 20 20 3a 6c 69 62 72 61 72 79 20 28 66 6f 72 6d 61 74 20 22 2d 2d 6c 69 62 72 61 72 79 2d 70 61 ..:library.(format."--library-pa
13d20 74 68 20 5c 22 25 73 5c 22 22 20 63 61 6c 69 62 72 65 64 62 2d 72 6f 6f 74 2d 64 69 72 29 29 29 th.\"%s\"".calibredb-root-dir)))
13d40 29 0a 20 20 20 20 20 20 20 20 20 28 6c 61 6d 62 64 61 20 28 70 20 5f 65 29 0a 20 20 20 20 20 20 )..........(lambda.(p._e).......
13d60 20 20 20 20 20 28 77 68 65 6e 20 28 3d 20 30 20 28 70 72 6f 63 65 73 73 2d 65 78 69 74 2d 73 74 .....(when.(=.0.(process-exit-st
13d80 61 74 75 73 20 70 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 61 6c 69 62 72 65 64 62 atus.p))..............(calibredb
13da0 2d 74 6f 67 67 6c 65 2d 6d 65 74 61 64 61 74 61 2d 70 72 6f 63 65 73 73 20 63 61 6e 64 73 20 6b -toggle-metadata-process.cands.k
13dc0 65 79 77 6f 72 64 29 29 29 29 0a 20 20 20 20 20 20 3b 3b 20 69 66 20 6e 6f 20 63 61 6e 64 69 64 eyword)))).......;;.if.no.candid
13de0 61 74 65 20 6c 65 66 74 20 74 6f 20 62 65 20 70 72 6f 63 65 73 73 65 64 2c 20 72 65 66 72 65 73 ate.left.to.be.processed,.refres
13e00 68 20 2a 63 61 6c 69 62 72 65 64 62 2d 73 65 61 72 63 68 2a 0a 20 20 20 20 20 20 28 63 6f 6e 64 h.*calibredb-search*.......(cond
13e20 20 28 28 65 71 75 61 6c 20 6d 61 6a 6f 72 2d 6d 6f 64 65 20 27 63 61 6c 69 62 72 65 64 62 2d 73 .((equal.major-mode.'calibredb-s
13e40 68 6f 77 2d 6d 6f 64 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 61 6c 69 62 72 65 64 how-mode)..............(calibred
13e60 62 2d 73 68 6f 77 2d 72 65 66 72 65 73 68 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 28 65 b-show-refresh)).............((e
13e80 71 20 6d 61 6a 6f 72 2d 6d 6f 64 65 20 27 63 61 6c 69 62 72 65 64 62 2d 73 65 61 72 63 68 2d 6d q.major-mode.'calibredb-search-m
13ea0 6f 64 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 61 6c 69 62 72 65 64 62 2d 73 65 61 ode)..............(calibredb-sea
13ec0 72 63 68 2d 72 65 66 72 65 73 68 2d 6f 72 2d 72 65 73 75 6d 65 29 29 0a 20 20 20 20 20 20 20 20 rch-refresh-or-resume)).........
13ee0 20 20 20 20 28 74 20 6e 69 6c 29 29 29 29 29 0a 3b 3b 20 6c 69 76 65 20 66 69 6c 74 65 72 69 6e ....(t.nil))))).;;.live.filterin
13f00 67 0a 0a 28 64 65 66 75 6e 20 63 61 6c 69 62 72 65 64 62 2d 73 65 61 72 63 68 2d 2d 75 70 64 61 g..(defun.calibredb-search--upda
13f20 74 65 2d 6c 69 73 74 20 28 29 0a 20 20 22 55 70 64 61 74 65 20 60 63 61 6c 69 62 72 65 64 62 2d te-list.()..."Update.`calibredb-
13f40 73 65 61 72 63 68 2d 65 6e 74 72 69 65 73 27 20 6c 69 73 74 2e 22 0a 20 20 3b 3b 20 72 65 70 6c search-entries'.list."...;;.repl
13f60 61 63 65 20 73 70 61 63 65 20 77 69 74 68 20 5f 20 28 53 51 4c 29 20 54 68 65 20 75 6e 64 65 72 ace.space.with._.(SQL).The.under
13f80 73 63 6f 72 65 20 72 65 70 72 65 73 65 6e 74 73 20 61 20 73 69 6e 67 6c 65 20 63 68 61 72 61 63 score.represents.a.single.charac
13fa0 74 65 72 0a 20 20 28 6c 65 74 2a 20 28 28 66 69 6c 74 65 72 20 28 63 61 6c 69 62 72 65 64 62 2d ter...(let*.((filter.(calibredb-
13fc0 73 65 61 72 63 68 2d 70 61 72 73 65 2d 66 69 6c 74 65 72 20 63 61 6c 69 62 72 65 64 62 2d 73 65 search-parse-filter.calibredb-se
13fe0 61 72 63 68 2d 66 69 6c 74 65 72 29 29 20 3b 3b 20 28 72 65 70 6c 61 63 65 2d 72 65 67 65 78 70 arch-filter)).;;.(replace-regexp
14000 2d 69 6e 2d 73 74 72 69 6e 67 20 22 20 22 20 22 5f 22 20 63 61 6c 69 62 72 65 64 62 2d 73 65 61 -in-string."."."_".calibredb-sea
14020 72 63 68 2d 66 69 6c 74 65 72 29 0a 20 20 20 20 20 20 20 20 20 28 68 65 61 64 20 28 63 61 6c 69 rch-filter)..........(head.(cali
14040 62 72 65 64 62 2d 63 61 6e 64 69 64 61 74 65 2d 66 69 6c 74 65 72 20 66 69 6c 74 65 72 29 29 29 bredb-candidate-filter.filter)))
14060 0a 20 20 20 20 3b 3b 20 44 65 74 65 72 6d 69 6e 65 20 74 68 65 20 66 69 6e 61 6c 20 6c 69 73 74 .....;;.Determine.the.final.list
14080 20 6f 72 64 65 72 0a 20 20 20 20 28 6c 65 74 20 28 28 65 6e 74 72 69 65 73 20 68 65 61 64 29 29 .order.....(let.((entries.head))
140a0 0a 20 20 20 20 20 20 28 73 65 74 66 20 63 61 6c 69 62 72 65 64 62 2d 73 65 61 72 63 68 2d 65 6e .......(setf.calibredb-search-en
140c0 74 72 69 65 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 74 72 69 65 73 29 29 29 29 0a 0a 28 tries.............entries))))..(
140e0 64 65 66 75 6e 20 63 61 6c 69 62 72 65 64 62 2d 73 65 61 72 63 68 2d 70 72 69 6e 74 2d 65 6e 74 defun.calibredb-search-print-ent
14100 72 79 2d 2d 64 65 66 61 75 6c 74 20 28 65 6e 74 72 79 29 0a 20 20 22 50 72 69 6e 74 20 45 4e 54 ry--default.(entry)..."Print.ENT
14120 52 59 20 74 6f 20 74 68 65 20 62 75 66 66 65 72 2e 22 0a 20 20 28 75 6e 6c 65 73 73 20 28 65 71 RY.to.the.buffer."...(unless.(eq
14140 75 61 6c 20 65 6e 74 72 79 20 22 22 29 0a 20 20 20 20 28 6c 65 74 20 28 28 63 6f 6e 74 65 6e 74 ual.entry."").....(let.((content
14160 20 28 63 61 72 20 65 6e 74 72 79 29 29 20 62 65 67 20 65 6e 64 29 0a 20 20 20 20 20 20 28 73 65 .(car.entry)).beg.end).......(se
14180 74 71 20 62 65 67 20 28 70 6f 69 6e 74 29 29 0a 20 20 20 20 20 20 28 69 6e 73 65 72 74 20 63 6f tq.beg.(point)).......(insert.co
141a0 6e 74 65 6e 74 29 0a 20 20 20 20 20 20 28 63 61 6c 69 62 72 65 64 62 2d 64 65 74 61 69 6c 65 64 ntent).......(calibredb-detailed
141c0 2d 76 69 65 77 2d 69 6e 73 65 72 74 2d 69 6d 61 67 65 20 65 6e 74 72 79 29 0a 20 20 20 20 20 20 -view-insert-image.entry).......
141e0 28 73 65 74 71 20 65 6e 64 20 28 70 6f 69 6e 74 29 29 0a 20 20 20 20 20 20 28 70 75 74 2d 74 65 (setq.end.(point)).......(put-te
14200 78 74 2d 70 72 6f 70 65 72 74 79 20 62 65 67 20 65 6e 64 20 27 63 61 6c 69 62 72 65 64 62 2d 65 xt-property.beg.end.'calibredb-e
14220 6e 74 72 79 20 65 6e 74 72 79 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 63 61 6c 69 62 72 65 64 62 ntry.entry))))..(defun.calibredb
14240 2d 73 65 61 72 63 68 2d 2d 6d 69 6e 69 62 75 66 66 65 72 2d 73 65 74 75 70 20 28 29 0a 20 20 22 -search--minibuffer-setup.()..."
14260 53 65 74 20 75 70 20 74 68 65 20 6d 69 6e 69 62 75 66 66 65 72 20 66 6f 72 20 6c 69 76 65 20 66 Set.up.the.minibuffer.for.live.f
14280 69 6c 74 65 72 69 6e 67 2e 22 0a 20 20 28 77 68 65 6e 20 63 61 6c 69 62 72 65 64 62 2d 73 65 61 iltering."...(when.calibredb-sea
142a0 72 63 68 2d 66 69 6c 74 65 72 2d 61 63 74 69 76 65 0a 20 20 20 20 28 77 68 65 6e 20 28 65 71 20 rch-filter-active.....(when.(eq.
142c0 3a 6c 69 76 65 20 63 61 6c 69 62 72 65 64 62 2d 73 65 61 72 63 68 2d 66 69 6c 74 65 72 2d 61 63 :live.calibredb-search-filter-ac
142e0 74 69 76 65 29 0a 20 20 20 20 20 20 28 61 64 64 2d 68 6f 6f 6b 20 27 70 6f 73 74 2d 63 6f 6d 6d tive).......(add-hook.'post-comm
14300 61 6e 64 2d 68 6f 6f 6b 20 23 27 63 61 6c 69 62 72 65 64 62 2d 73 65 61 72 63 68 2d 2d 6c 69 76 and-hook.#'calibredb-search--liv
14320 65 2d 75 70 64 61 74 65 20 6e 69 6c 20 3a 6c 6f 63 61 6c 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 e-update.nil.:local))))..(defun.
14340 63 61 6c 69 62 72 65 64 62 2d 73 65 61 72 63 68 2d 2d 6c 69 76 65 2d 75 70 64 61 74 65 20 28 29 calibredb-search--live-update.()
14360 0a 20 20 22 55 70 64 61 74 65 20 74 68 65 20 63 61 6c 69 62 72 65 64 62 2d 73 65 61 72 63 68 20 ..."Update.the.calibredb-search.
14380 62 75 66 66 65 72 20 62 61 73 65 64 20 6f 6e 20 74 68 65 20 63 6f 6e 74 65 6e 74 73 20 6f 66 20 buffer.based.on.the.contents.of.
143a0 74 68 65 20 6d 69 6e 69 62 75 66 66 65 72 2e 22 0a 20 20 28 77 68 65 6e 20 28 65 71 20 3a 6c 69 the.minibuffer."...(when.(eq.:li
143c0 76 65 20 63 61 6c 69 62 72 65 64 62 2d 73 65 61 72 63 68 2d 66 69 6c 74 65 72 2d 61 63 74 69 76 ve.calibredb-search-filter-activ
143e0 65 29 0a 20 20 20 20 3b 3b 20 28 6d 65 73 73 61 67 65 20 22 48 45 4c 4c 4f 22 29 0a 20 20 20 20 e).....;;.(message."HELLO").....
14400 28 6c 65 74 20 28 28 62 75 66 66 65 72 20 28 63 61 6c 69 62 72 65 64 62 2d 73 65 61 72 63 68 2d (let.((buffer.(calibredb-search-
14420 62 75 66 66 65 72 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 63 75 72 72 65 6e 74 2d 66 69 6c 74 buffer))...........(current-filt
14440 65 72 20 28 6d 69 6e 69 62 75 66 66 65 72 2d 63 6f 6e 74 65 6e 74 73 2d 6e 6f 2d 70 72 6f 70 65 er.(minibuffer-contents-no-prope
14460 72 74 69 65 73 29 29 29 0a 20 20 20 20 20 20 28 77 68 65 6e 20 62 75 66 66 65 72 0a 20 20 20 20 rties))).......(when.buffer.....
14480 20 20 20 20 28 77 69 74 68 2d 63 75 72 72 65 6e 74 2d 62 75 66 66 65 72 20 62 75 66 66 65 72 0a ....(with-current-buffer.buffer.
144a0 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 63 61 6c 69 62 72 65 64 62 2d 73 65 61 72 63 ..........(let.((calibredb-searc
144c0 68 2d 66 69 6c 74 65 72 20 63 75 72 72 65 6e 74 2d 66 69 6c 74 65 72 29 29 0a 20 20 20 20 20 20 h-filter.current-filter)).......
144e0 20 20 20 20 20 20 28 63 61 6c 69 62 72 65 64 62 2d 73 65 61 72 63 68 2d 75 70 64 61 74 65 20 3a ......(calibredb-search-update.:
14500 66 6f 72 63 65 29 29 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 63 61 6c 69 62 72 65 64 62 2d 73 force)))))))..(defun.calibredb-s
14520 65 61 72 63 68 2d 6c 69 76 65 2d 66 69 6c 74 65 72 20 28 29 0a 20 20 22 46 69 6c 74 65 72 20 74 earch-live-filter.()..."Filter.t
14540 68 65 20 63 61 6c 69 62 72 65 64 62 2d 73 65 61 72 63 68 20 62 75 66 66 65 72 20 61 73 20 74 68 he.calibredb-search.buffer.as.th
14560 65 20 66 69 6c 74 65 72 20 69 73 20 77 72 69 74 74 65 6e 2e 0a 43 75 72 72 65 6e 74 6c 79 2c 20 e.filter.is.written..Currently,.
14580 74 68 65 20 66 69 6c 74 65 72 69 6e 67 20 69 73 20 63 6f 6c 75 6d 6e 2d 6f 72 69 65 6e 74 65 64 the.filtering.is.column-oriented
145a0 2c 20 6e 6f 74 20 62 75 66 66 65 72 20 6f 72 69 65 6e 74 65 64 2e 0a 54 68 65 20 66 6f 6c 6c 6f ,.not.buffer.oriented..The.follo
145c0 77 69 6e 67 20 63 6f 6c 75 6d 6e 73 20 77 69 6c 6c 20 62 65 20 73 65 61 72 63 68 65 64 3a 0a 0a wing.columns.will.be.searched:..
145e0 2d 20 69 64 0a 2d 20 74 65 78 74 0a 2d 20 74 61 67 0a 2d 20 74 69 74 6c 65 0a 2d 20 66 6f 72 6d -.id.-.text.-.tag.-.title.-.form
14600 61 74 0a 2d 20 61 75 74 68 6f 72 5f 73 6f 72 74 0a 0a 49 66 20 74 68 65 20 6b 65 79 77 6f 72 64 at.-.author_sort..If.the.keyword
14620 20 6f 63 63 75 72 73 20 69 6e 20 61 6e 79 20 6f 66 20 74 68 65 20 63 6f 6c 75 6d 6e 73 20 61 62 .occurs.in.any.of.the.columns.ab
14640 6f 76 65 2c 20 74 68 65 20 6d 61 74 63 68 65 64 0a 65 62 6f 6f 6b 20 72 65 63 6f 72 64 20 77 69 ove,.the.matched.ebook.record.wi
14660 6c 6c 20 62 65 20 73 68 6f 77 6e 2e 0a 0a 31 2e 20 4c 69 76 65 20 66 69 6c 74 65 72 20 69 73 20 ll.be.shown...1..Live.filter.is.
14680 66 61 73 74 65 72 20 74 68 61 6e 20 62 65 66 6f 72 65 20 73 69 6e 63 65 20 69 74 20 73 65 61 72 faster.than.before.since.it.sear
146a0 63 68 20 74 68 65 20 72 65 73 75 6c 74 73 0a 20 20 20 69 6e 20 3d 63 61 6c 69 62 72 65 64 62 2d ch.the.results....in.=calibredb-
146c0 66 75 6c 6c 2d 65 6e 74 72 69 65 73 3d 20 72 61 74 68 65 72 20 74 68 61 6e 20 71 75 65 72 79 20 full-entries=.rather.than.query.
146e0 74 68 65 20 64 61 74 61 62 61 73 65 2e 0a 0a 32 2e 20 54 68 65 20 6b 65 79 77 6f 72 64 20 73 75 the.database...2..The.keyword.su
14700 70 70 6f 72 74 73 20 52 45 47 45 58 2e 0a 0a 33 2e 20 49 6e 73 65 72 74 69 6e 67 20 53 70 61 63 pports.REGEX...3..Inserting.Spac
14720 65 73 20 62 65 74 77 65 65 6e 0a 20 20 20 6b 65 79 77 6f 72 64 73 20 63 61 6e 20 6e 61 72 72 6f es.between....keywords.can.narro
14740 77 20 64 6f 77 6e 20 74 68 65 20 73 65 61 72 63 68 20 72 65 73 75 6c 74 73 2e 22 0a 0a 20 20 28 w.down.the.search.results."....(
14760 69 6e 74 65 72 61 63 74 69 76 65 29 0a 20 20 28 75 6e 77 69 6e 64 2d 70 72 6f 74 65 63 74 0a 20 interactive)...(unwind-protect..
14780 20 20 20 20 20 28 6c 65 74 20 28 28 63 61 6c 69 62 72 65 64 62 2d 73 65 61 72 63 68 2d 66 69 6c .....(let.((calibredb-search-fil
147a0 74 65 72 2d 61 63 74 69 76 65 20 3a 6c 69 76 65 29 29 0a 20 20 20 20 20 20 20 20 28 73 65 74 71 ter-active.:live)).........(setq
147c0 20 63 61 6c 69 62 72 65 64 62 2d 73 65 61 72 63 68 2d 66 69 6c 74 65 72 0a 20 20 20 20 20 20 20 .calibredb-search-filter........
147e0 20 20 20 20 20 20 20 28 72 65 61 64 2d 66 72 6f 6d 2d 6d 69 6e 69 62 75 66 66 65 72 20 28 66 6f .......(read-from-minibuffer.(fo
14800 72 6d 61 74 20 22 46 69 6c 74 65 72 20 25 73 3a 20 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 rmat."Filter.%s:."..............
14820 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 ...............................(
14840 63 6f 6e 64 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 cond............................
14860 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 61 6c 69 62 72 65 64 62 2d 74 61 67 ..................(calibredb-tag
14880 2d 66 69 6c 74 65 72 2d 70 20 22 28 74 61 67 29 22 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 -filter-p."(tag)")..............
148a0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ................................
148c0 28 63 61 6c 69 62 72 65 64 62 2d 66 61 76 6f 72 69 74 65 2d 66 69 6c 74 65 72 2d 70 20 22 28 66 (calibredb-favorite-filter-p."(f
148e0 61 76 6f 72 69 74 65 29 22 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 avorite)")......................
14900 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 61 6c 69 62 72 65 ........................(calibre
14920 64 62 2d 61 75 74 68 6f 72 2d 66 69 6c 74 65 72 2d 70 20 22 28 61 75 74 68 6f 72 29 22 29 0a 20 db-author-filter-p."(author)")..
14940 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ................................
14960 20 20 20 20 20 20 20 20 20 20 20 20 28 63 61 6c 69 62 72 65 64 62 2d 64 61 74 65 2d 66 69 6c 74 ............(calibredb-date-filt
14980 65 72 2d 70 20 22 28 64 61 74 65 29 22 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 er-p."(date)")..................
149a0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 61 6c ............................(cal
149c0 69 62 72 65 64 62 2d 66 6f 72 6d 61 74 2d 66 69 6c 74 65 72 2d 70 20 22 28 66 6f 72 6d 61 74 29 ibredb-format-filter-p."(format)
149e0 22 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ")..............................
14a00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 74 20 22 28 6c 69 76 65 29 22 29 29 29 20 63 ................(t."(live)"))).c
14a20 61 6c 69 62 72 65 64 62 2d 73 65 61 72 63 68 2d 66 69 6c 74 65 72 29 29 0a 20 20 20 20 20 20 20 alibredb-search-filter))........
14a40 20 28 6d 65 73 73 61 67 65 20 63 61 6c 69 62 72 65 64 62 2d 73 65 61 72 63 68 2d 66 69 6c 74 65 .(message.calibredb-search-filte
14a60 72 29 29 0a 20 20 20 20 28 63 61 6c 69 62 72 65 64 62 2d 73 65 61 72 63 68 2d 75 70 64 61 74 65 r)).....(calibredb-search-update
14a80 20 3a 66 6f 72 63 65 29 29 29 0a 0a 28 64 65 66 75 6e 20 63 61 6c 69 62 72 65 64 62 2d 73 65 61 .:force)))..(defun.calibredb-sea
14aa0 72 63 68 2d 6b 65 79 77 6f 72 64 2d 66 69 6c 74 65 72 20 28 6b 65 79 77 6f 72 64 29 0a 20 20 22 rch-keyword-filter.(keyword)..."
14ac0 46 69 6c 74 65 72 20 74 68 65 20 63 61 6c 69 62 72 65 64 62 2d 73 65 61 72 63 68 20 62 75 66 66 Filter.the.calibredb-search.buff
14ae0 65 72 20 77 69 74 68 20 4b 45 59 57 4f 52 44 2e 22 0a 20 20 28 73 65 74 71 20 63 61 6c 69 62 72 er.with.KEYWORD."...(setq.calibr
14b00 65 64 62 2d 73 65 61 72 63 68 2d 66 69 6c 74 65 72 20 6b 65 79 77 6f 72 64 29 0a 20 20 28 63 61 edb-search-filter.keyword)...(ca
14b20 6c 69 62 72 65 64 62 2d 73 65 61 72 63 68 2d 75 70 64 61 74 65 20 3a 66 6f 72 63 65 29 29 0a 0a libredb-search-update.:force))..
14b40 28 64 65 66 75 6e 20 63 61 6c 69 62 72 65 64 62 2d 73 65 61 72 63 68 2d 75 70 64 61 74 65 20 28 (defun.calibredb-search-update.(
14b60 26 6f 70 74 69 6f 6e 61 6c 20 66 6f 72 63 65 29 0a 20 20 22 55 70 64 61 74 65 20 74 68 65 20 63 &optional.force)..."Update.the.c
14b80 61 6c 69 62 72 65 64 62 2d 73 65 61 72 63 68 20 62 75 66 66 65 72 20 6c 69 73 74 69 6e 67 20 74 alibredb-search.buffer.listing.t
14ba0 6f 20 6d 61 74 63 68 20 74 68 65 20 64 61 74 61 62 61 73 65 2e 0a 57 68 65 6e 20 46 4f 52 43 45 o.match.the.database..When.FORCE
14bc0 20 69 73 20 6e 6f 6e 2d 6e 69 6c 2c 20 72 65 64 72 61 77 20 65 76 65 6e 20 77 68 65 6e 20 74 68 .is.non-nil,.redraw.even.when.th
14be0 65 20 64 61 74 61 62 61 73 65 20 68 61 73 6e 27 74 20 63 68 61 6e 67 65 64 2e 22 0a 20 20 28 69 e.database.hasn't.changed."...(i
14c00 6e 74 65 72 61 63 74 69 76 65 29 0a 20 20 28 77 69 74 68 2d 63 75 72 72 65 6e 74 2d 62 75 66 66 nteractive)...(with-current-buff
14c20 65 72 20 28 63 61 6c 69 62 72 65 64 62 2d 73 65 61 72 63 68 2d 62 75 66 66 65 72 29 0a 20 20 20 er.(calibredb-search-buffer)....
14c40 20 28 77 68 65 6e 20 66 6f 72 63 65 0a 20 20 20 20 20 20 28 6c 65 74 20 28 28 69 6e 68 69 62 69 .(when.force.......(let.((inhibi
14c60 74 2d 72 65 61 64 2d 6f 6e 6c 79 20 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 73 74 61 6e t-read-only.t).............(stan
14c80 64 61 72 64 2d 6f 75 74 70 75 74 20 28 63 75 72 72 65 6e 74 2d 62 75 66 66 65 72 29 29 29 0a 20 dard-output.(current-buffer)))..
14ca0 20 20 20 20 20 20 20 28 65 72 61 73 65 2d 62 75 66 66 65 72 29 0a 20 20 20 20 20 20 20 20 3b 3b .......(erase-buffer).........;;
14cc0 20 72 65 73 65 74 20 63 61 6c 69 62 72 65 64 62 2d 76 69 72 74 75 61 6c 2d 6c 69 62 72 61 72 79 .reset.calibredb-virtual-library
14ce0 2d 6e 61 6d 65 0a 20 20 20 20 20 20 20 20 28 75 6e 6c 65 73 73 20 28 2d 63 6f 6e 74 61 69 6e 73 -name.........(unless.(-contains
14d00 3f 20 28 6d 61 70 63 61 72 20 23 27 63 64 72 20 63 61 6c 69 62 72 65 64 62 2d 76 69 72 74 75 61 ?.(mapcar.#'cdr.calibredb-virtua
14d20 6c 2d 6c 69 62 72 61 72 79 2d 61 6c 69 73 74 29 20 63 61 6c 69 62 72 65 64 62 2d 73 65 61 72 63 l-library-alist).calibredb-searc
14d40 68 2d 66 69 6c 74 65 72 29 0a 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 63 61 6c 69 62 72 h-filter)...........(setq.calibr
14d60 65 64 62 2d 76 69 72 74 75 61 6c 2d 6c 69 62 72 61 72 79 2d 6e 61 6d 65 20 63 61 6c 69 62 72 65 edb-virtual-library-name.calibre
14d80 64 62 2d 76 69 72 74 75 61 6c 2d 6c 69 62 72 61 72 79 2d 64 65 66 61 75 6c 74 2d 6e 61 6d 65 29 db-virtual-library-default-name)
14da0 29 0a 20 20 20 20 20 20 20 20 28 63 61 6c 69 62 72 65 64 62 2d 73 65 61 72 63 68 2d 2d 75 70 64 ).........(calibredb-search--upd
14dc0 61 74 65 2d 6c 69 73 74 29 0a 20 20 20 20 20 20 20 20 3b 3b 20 28 73 65 74 71 20 63 61 6c 69 62 ate-list).........;;.(setq.calib
14de0 72 65 64 62 2d 73 65 61 72 63 68 2d 65 6e 74 72 69 65 73 20 28 63 61 6c 69 62 72 65 64 62 2d 63 redb-search-entries.(calibredb-c
14e00 61 6e 64 69 64 61 74 65 73 29 29 0a 20 20 20 20 20 20 20 20 28 64 6f 6c 69 73 74 20 28 65 6e 74 andidates)).........(dolist.(ent
14e20 72 79 20 63 61 6c 69 62 72 65 64 62 2d 73 65 61 72 63 68 2d 65 6e 74 72 69 65 73 29 0a 20 20 20 ry.calibredb-search-entries)....
14e40 20 20 20 20 20 20 20 28 66 75 6e 63 61 6c 6c 20 63 61 6c 69 62 72 65 64 62 2d 73 65 61 72 63 68 .......(funcall.calibredb-search
14e60 2d 70 72 69 6e 74 2d 65 6e 74 72 79 2d 66 75 6e 63 74 69 6f 6e 20 65 6e 74 72 79 29 0a 20 20 20 -print-entry-function.entry)....
14e80 20 20 20 20 20 20 20 28 69 6e 73 65 72 74 20 22 5c 6e 22 29 29 0a 20 20 20 20 20 20 20 20 3b 3b .......(insert."\n")).........;;
14ea0 20 28 69 6e 73 65 72 74 20 22 45 6e 64 20 6f 66 20 65 6e 74 72 69 65 73 2e 5c 6e 22 29 0a 20 20 .(insert."End.of.entries.\n")...
14ec0 20 20 20 20 20 20 28 67 6f 74 6f 2d 63 68 61 72 20 28 70 6f 69 6e 74 2d 6d 69 6e 29 29 20 20 20 ......(goto-char.(point-min))...
14ee0 20 20 20 20 20 20 3b 20 62 61 63 6b 20 74 6f 20 70 6f 69 6e 74 2d 6d 69 6e 20 61 66 74 65 72 20 ......;.back.to.point-min.after.
14f00 66 69 6c 74 65 72 69 6e 67 0a 20 20 20 20 20 20 20 20 28 73 65 74 66 20 63 61 6c 69 62 72 65 64 filtering.........(setf.calibred
14f20 62 2d 73 65 61 72 63 68 2d 6c 61 73 74 2d 75 70 64 61 74 65 20 28 66 6c 6f 61 74 2d 74 69 6d 65 b-search-last-update.(float-time
14f40 29 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 63 61 6c 69 62 72 65 64 62 2d 73 65 61 72 63 68 2d ))))))..(defun.calibredb-search-
14f60 70 61 72 73 65 2d 66 69 6c 74 65 72 20 28 66 69 6c 74 65 72 29 0a 20 20 22 50 61 72 73 65 20 74 parse-filter.(filter)..."Parse.t
14f80 68 65 20 65 6c 65 6d 65 6e 74 73 20 6f 66 20 61 20 73 65 61 72 63 68 20 46 49 4c 54 45 52 20 69 he.elements.of.a.search.FILTER.i
14fa0 6e 74 6f 20 61 20 70 6c 69 73 74 2e 22 0a 20 20 28 6c 65 74 20 28 28 6d 61 74 63 68 65 73 20 28 nto.a.plist."...(let.((matches.(
14fc0 29 29 29 0a 20 20 20 20 28 63 6c 2d 6c 6f 6f 70 20 66 6f 72 20 65 6c 65 6d 65 6e 74 20 69 6e 20 ))).....(cl-loop.for.element.in.
14fe0 28 73 70 6c 69 74 2d 73 74 72 69 6e 67 20 66 69 6c 74 65 72 29 20 63 6f 6c 6c 65 63 74 0a 20 20 (split-string.filter).collect...
15000 20 20 20 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 28 63 61 6c 69 62 72 65 64 62 2d 76 61 6c 69 ...........(when.(calibredb-vali
15020 64 2d 72 65 67 65 78 70 2d 70 20 65 6c 65 6d 65 6e 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 d-regexp-p.element).............
15040 20 20 20 28 70 75 73 68 20 65 6c 65 6d 65 6e 74 20 6d 61 74 63 68 65 73 29 29 29 0a 20 20 20 20 ...(push.element.matches))).....
15060 60 28 2c 40 28 69 66 20 6d 61 74 63 68 65 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 69 73 `(,@(if.matches.............(lis
15080 74 20 3a 6d 61 74 63 68 65 73 20 6d 61 74 63 68 65 73 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 t.:matches.matches)))))..(defun.
150a0 63 61 6c 69 62 72 65 64 62 2d 76 61 6c 69 64 2d 72 65 67 65 78 70 2d 70 20 28 72 65 67 65 78 70 calibredb-valid-regexp-p.(regexp
150c0 29 0a 20 20 22 52 65 74 75 72 6e 20 74 20 69 66 20 52 45 47 45 58 50 20 69 73 20 61 20 76 61 6c )..."Return.t.if.REGEXP.is.a.val
150e0 69 64 20 52 45 47 45 58 50 2e 22 0a 20 20 28 69 67 6e 6f 72 65 2d 65 72 72 6f 72 73 0a 20 20 20 id.REGEXP."...(ignore-errors....
15100 20 28 70 72 6f 67 31 20 74 0a 20 20 20 20 20 20 28 73 74 72 69 6e 67 2d 6d 61 74 63 68 2d 70 20 .(prog1.t.......(string-match-p.
15120 72 65 67 65 78 70 20 22 22 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 63 61 6c 69 62 72 65 64 62 2d regexp.""))))..(defun.calibredb-
15140 63 61 6e 64 69 64 61 74 65 2d 66 69 6c 74 65 72 20 28 66 69 6c 74 65 72 29 0a 20 20 22 47 65 6e candidate-filter.(filter)..."Gen
15160 65 72 61 74 65 20 65 62 6f 6f 6b 20 63 61 6e 64 69 64 61 74 65 20 61 6c 69 73 74 2e 0a 41 52 47 erate.ebook.candidate.alist..ARG
15180 55 4d 45 4e 54 20 46 49 4c 54 45 52 20 69 73 20 74 68 65 20 66 69 6c 74 65 72 20 73 74 72 69 6e UMENT.FILTER.is.the.filter.strin
151a0 67 2e 22 0a 20 20 28 6c 65 74 20 28 28 6d 61 74 63 68 65 73 20 28 70 6c 69 73 74 2d 67 65 74 20 g."...(let.((matches.(plist-get.
151c0 66 69 6c 74 65 72 20 3a 6d 61 74 63 68 65 73 29 29 0a 20 20 20 20 20 20 20 20 72 65 73 2d 6c 69 filter.:matches)).........res-li
151e0 73 74 29 0a 20 20 20 20 28 63 6f 6e 64 20 28 63 61 6c 69 62 72 65 64 62 2d 74 61 67 2d 66 69 6c st).....(cond.(calibredb-tag-fil
15200 74 65 72 2d 70 0a 20 20 20 20 20 20 20 20 20 20 20 28 63 6c 2d 6c 6f 6f 70 20 66 6f 72 20 6c 69 ter-p............(cl-loop.for.li
15220 6e 65 20 69 6e 20 63 61 6c 69 62 72 65 64 62 2d 66 75 6c 6c 2d 65 6e 74 72 69 65 73 20 64 6f 0a ne.in.calibredb-full-entries.do.
15240 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 66 20 28 65 76 61 6c 20 60 28 61 6e 64 20 2c 40 28 .............(if.(eval.`(and.,@(
15260 63 6c 2d 6c 6f 6f 70 20 66 6f 72 20 72 65 67 65 78 20 69 6e 20 6d 61 74 63 68 65 73 20 63 6f 6c cl-loop.for.regex.in.matches.col
15280 6c 65 63 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 lect............................
152a0 20 20 20 20 20 20 20 20 20 20 20 20 20 28 75 6e 6c 65 73 73 20 28 65 71 75 61 6c 20 28 63 61 6c .............(unless.(equal.(cal
152c0 69 62 72 65 64 62 2d 74 61 67 2d 77 69 64 74 68 29 20 30 29 20 28 73 2d 63 6f 6e 74 61 69 6e 73 ibredb-tag-width).0).(s-contains
152e0 3f 20 72 65 67 65 78 20 28 63 61 6c 69 62 72 65 64 62 2d 67 65 74 61 74 74 72 20 28 63 64 72 20 ?.regex.(calibredb-getattr.(cdr.
15300 6c 69 6e 65 29 20 3a 74 61 67 29 29 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 line).:tag))))))................
15320 20 20 28 70 75 73 68 20 6c 69 6e 65 20 72 65 73 2d 6c 69 73 74 29 29 29 29 0a 20 20 20 20 20 20 ..(push.line.res-list)))).......
15340 20 20 20 20 28 63 61 6c 69 62 72 65 64 62 2d 66 6f 72 6d 61 74 2d 66 69 6c 74 65 72 2d 70 0a 20 ....(calibredb-format-filter-p..
15360 20 20 20 20 20 20 20 20 20 20 28 63 6c 2d 6c 6f 6f 70 20 66 6f 72 20 6c 69 6e 65 20 69 6e 20 63 ..........(cl-loop.for.line.in.c
15380 61 6c 69 62 72 65 64 62 2d 66 75 6c 6c 2d 65 6e 74 72 69 65 73 20 64 6f 0a 20 20 20 20 20 20 20 alibredb-full-entries.do........
153a0 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 66 20 28 65 76 61 6c 20 60 28 61 6e 64 20 2c 40 28 .............(if.(eval.`(and.,@(
153c0 63 6c 2d 6c 6f 6f 70 20 66 6f 72 20 72 65 67 65 78 20 69 6e 20 6d 61 74 63 68 65 73 20 63 6f 6c cl-loop.for.regex.in.matches.col
153e0 6c 65 63 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 lect............................
15400 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 75 6e 6c 65 73 73 20 28 65 71 75 ....................(unless.(equ
15420 61 6c 20 28 63 61 6c 69 62 72 65 64 62 2d 66 6f 72 6d 61 74 2d 77 69 64 74 68 29 20 30 29 20 28 al.(calibredb-format-width).0).(
15440 73 2d 63 6f 6e 74 61 69 6e 73 3f 20 72 65 67 65 78 20 28 63 61 6c 69 62 72 65 64 62 2d 67 65 74 s-contains?.regex.(calibredb-get
15460 61 74 74 72 20 28 63 64 72 20 6c 69 6e 65 29 20 3a 62 6f 6f 6b 2d 66 6f 72 6d 61 74 29 29 29 29 attr.(cdr.line).:book-format))))
15480 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 75 73 68 )).........................(push
154a0 20 6c 69 6e 65 20 72 65 73 2d 6c 69 73 74 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 63 61 .line.res-list))))...........(ca
154c0 6c 69 62 72 65 64 62 2d 61 75 74 68 6f 72 2d 66 69 6c 74 65 72 2d 70 0a 20 20 20 20 20 20 20 20 libredb-author-filter-p.........
154e0 20 20 20 28 63 6c 2d 6c 6f 6f 70 20 66 6f 72 20 6c 69 6e 65 20 69 6e 20 63 61 6c 69 62 72 65 64 ...(cl-loop.for.line.in.calibred
15500 62 2d 66 75 6c 6c 2d 65 6e 74 72 69 65 73 20 64 6f 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 b-full-entries.do...............
15520 20 20 20 20 20 20 28 69 66 20 28 65 76 61 6c 20 60 28 61 6e 64 20 2c 40 28 63 6c 2d 6c 6f 6f 70 ......(if.(eval.`(and.,@(cl-loop
15540 20 66 6f 72 20 72 65 67 65 78 20 69 6e 20 6d 61 74 63 68 65 73 20 63 6f 6c 6c 65 63 74 0a 20 20 .for.regex.in.matches.collect...
15560 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ................................
15580 20 20 20 20 20 20 20 20 20 20 20 20 20 28 75 6e 6c 65 73 73 20 28 65 71 75 61 6c 20 28 63 61 6c .............(unless.(equal.(cal
155a0 69 62 72 65 64 62 2d 61 75 74 68 6f 72 2d 77 69 64 74 68 29 20 30 29 20 28 73 2d 63 6f 6e 74 61 ibredb-author-width).0).(s-conta
155c0 69 6e 73 3f 20 72 65 67 65 78 20 28 63 61 6c 69 62 72 65 64 62 2d 67 65 74 61 74 74 72 20 28 63 ins?.regex.(calibredb-getattr.(c
155e0 64 72 20 6c 69 6e 65 29 20 3a 61 75 74 68 6f 72 2d 73 6f 72 74 29 29 29 29 29 29 0a 20 20 20 20 dr.line).:author-sort)))))).....
15600 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 75 73 68 20 6c 69 6e 65 20 72 ....................(push.line.r
15620 65 73 2d 6c 69 73 74 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 63 61 6c 69 62 72 65 64 62 es-list))))...........(calibredb
15640 2d 64 61 74 65 2d 66 69 6c 74 65 72 2d 70 0a 20 20 20 20 20 20 20 20 20 20 20 28 63 6c 2d 6c 6f -date-filter-p............(cl-lo
15660 6f 70 20 66 6f 72 20 6c 69 6e 65 20 69 6e 20 63 61 6c 69 62 72 65 64 62 2d 66 75 6c 6c 2d 65 6e op.for.line.in.calibredb-full-en
15680 74 72 69 65 73 20 64 6f 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 66 tries.do.....................(if
156a0 20 28 65 76 61 6c 20 60 28 61 6e 64 20 2c 40 28 63 6c 2d 6c 6f 6f 70 20 66 6f 72 20 72 65 67 65 .(eval.`(and.,@(cl-loop.for.rege
156c0 78 20 69 6e 20 6d 61 74 63 68 65 73 20 63 6f 6c 6c 65 63 74 0a 20 20 20 20 20 20 20 20 20 20 20 x.in.matches.collect............
156e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ................................
15700 20 20 20 20 28 75 6e 6c 65 73 73 20 28 65 71 75 61 6c 20 28 63 61 6c 69 62 72 65 64 62 2d 64 61 ....(unless.(equal.(calibredb-da
15720 74 65 2d 77 69 64 74 68 29 20 30 29 20 28 73 2d 63 6f 6e 74 61 69 6e 73 3f 20 72 65 67 65 78 20 te-width).0).(s-contains?.regex.
15740 28 63 61 6c 69 62 72 65 64 62 2d 67 65 74 61 74 74 72 20 28 63 64 72 20 6c 69 6e 65 29 20 3a 6c (calibredb-getattr.(cdr.line).:l
15760 61 73 74 5f 6d 6f 64 69 66 69 65 64 29 29 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 ast_modified))))))..............
15780 20 20 20 20 20 20 20 20 20 20 20 28 70 75 73 68 20 6c 69 6e 65 20 72 65 73 2d 6c 69 73 74 29 29 ...........(push.line.res-list))
157a0 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 74 20 28 63 6c 2d 6c 6f 6f 70 20 66 6f 72 20 6c 69 6e ))...........(t.(cl-loop.for.lin
157c0 65 20 69 6e 20 63 61 6c 69 62 72 65 64 62 2d 66 75 6c 6c 2d 65 6e 74 72 69 65 73 20 64 6f 0a 20 e.in.calibredb-full-entries.do..
157e0 20 20 20 20 20 20 20 20 20 20 20 20 28 69 66 20 28 65 76 61 6c 20 60 28 61 6e 64 20 2c 40 28 63 ............(if.(eval.`(and.,@(c
15800 6c 2d 6c 6f 6f 70 20 66 6f 72 20 72 65 67 65 78 20 69 6e 20 6d 61 74 63 68 65 73 20 63 6f 6c 6c l-loop.for.regex.in.matches.coll
15820 65 63 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ect.............................
15840 20 20 20 20 20 20 20 20 20 20 20 20 28 6f 72 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ............(or.................
15860 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 75 6e 6c 65 73 73 .........................(unless
15880 20 28 65 71 75 61 6c 20 63 61 6c 69 62 72 65 64 62 2d 69 64 2d 77 69 64 74 68 20 30 29 20 28 73 .(equal.calibredb-id-width.0).(s
158a0 74 72 69 6e 67 2d 6d 61 74 63 68 2d 70 20 72 65 67 65 78 20 28 63 61 6c 69 62 72 65 64 62 2d 67 tring-match-p.regex.(calibredb-g
158c0 65 74 61 74 74 72 20 28 63 64 72 20 6c 69 6e 65 29 20 3a 69 64 29 29 29 0a 20 20 20 20 20 20 20 etattr.(cdr.line).:id)))........
158e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ................................
15900 20 20 28 75 6e 6c 65 73 73 20 28 65 71 75 61 6c 20 28 63 61 6c 69 62 72 65 64 62 2d 74 69 74 6c ..(unless.(equal.(calibredb-titl
15920 65 2d 77 69 64 74 68 29 20 30 29 20 28 73 74 72 69 6e 67 2d 6d 61 74 63 68 2d 70 20 72 65 67 65 e-width).0).(string-match-p.rege
15940 78 20 28 63 61 6c 69 62 72 65 64 62 2d 67 65 74 61 74 74 72 20 28 63 64 72 20 6c 69 6e 65 29 20 x.(calibredb-getattr.(cdr.line).
15960 3a 62 6f 6f 6b 2d 74 69 74 6c 65 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 :book-title)))..................
15980 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 75 6e 6c 65 73 73 20 ........................(unless.
159a0 28 65 71 75 61 6c 20 28 63 61 6c 69 62 72 65 64 62 2d 66 6f 72 6d 61 74 2d 77 69 64 74 68 29 20 (equal.(calibredb-format-width).
159c0 30 29 20 28 73 74 72 69 6e 67 2d 6d 61 74 63 68 2d 70 20 72 65 67 65 78 20 28 63 61 6c 69 62 72 0).(string-match-p.regex.(calibr
159e0 65 64 62 2d 67 65 74 61 74 74 72 20 28 63 64 72 20 6c 69 6e 65 29 20 3a 62 6f 6f 6b 2d 66 6f 72 edb-getattr.(cdr.line).:book-for
15a00 6d 61 74 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 mat)))..........................
15a20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 75 6e 6c 65 73 73 20 28 65 71 75 61 6c 20 28 ................(unless.(equal.(
15a40 63 61 6c 69 62 72 65 64 62 2d 74 61 67 2d 77 69 64 74 68 29 20 30 29 20 28 73 74 72 69 6e 67 2d calibredb-tag-width).0).(string-
15a60 6d 61 74 63 68 2d 70 20 72 65 67 65 78 20 28 63 61 6c 69 62 72 65 64 62 2d 67 65 74 61 74 74 72 match-p.regex.(calibredb-getattr
15a80 20 28 63 64 72 20 6c 69 6e 65 29 20 3a 74 61 67 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 .(cdr.line).:tag))).............
15aa0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 75 6e .............................(un
15ac0 6c 65 73 73 20 28 65 71 75 61 6c 20 28 63 61 6c 69 62 72 65 64 62 2d 69 64 73 2d 77 69 64 74 68 less.(equal.(calibredb-ids-width
15ae0 29 20 30 29 20 28 73 74 72 69 6e 67 2d 6d 61 74 63 68 2d 70 20 72 65 67 65 78 20 28 63 61 6c 69 ).0).(string-match-p.regex.(cali
15b00 62 72 65 64 62 2d 67 65 74 61 74 74 72 20 28 63 64 72 20 6c 69 6e 65 29 20 3a 69 64 73 29 29 29 bredb-getattr.(cdr.line).:ids)))
15b20 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ................................
15b40 20 20 20 20 20 20 20 20 20 20 28 75 6e 6c 65 73 73 20 28 65 71 75 61 6c 20 28 63 61 6c 69 62 72 ..........(unless.(equal.(calibr
15b60 65 64 62 2d 61 75 74 68 6f 72 2d 77 69 64 74 68 29 20 30 29 20 28 73 74 72 69 6e 67 2d 6d 61 74 edb-author-width).0).(string-mat
15b80 63 68 2d 70 20 72 65 67 65 78 20 28 63 61 6c 69 62 72 65 64 62 2d 67 65 74 61 74 74 72 20 28 63 ch-p.regex.(calibredb-getattr.(c
15ba0 64 72 20 6c 69 6e 65 29 20 3a 61 75 74 68 6f 72 2d 73 6f 72 74 29 29 29 0a 20 20 20 20 20 20 20 dr.line).:author-sort)))........
15bc0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ................................
15be0 20 20 28 75 6e 6c 65 73 73 20 28 65 71 75 61 6c 20 28 63 61 6c 69 62 72 65 64 62 2d 64 61 74 65 ..(unless.(equal.(calibredb-date
15c00 2d 77 69 64 74 68 29 20 30 29 20 28 73 74 72 69 6e 67 2d 6d 61 74 63 68 2d 70 20 72 65 67 65 78 -width).0).(string-match-p.regex
15c20 20 28 63 61 6c 69 62 72 65 64 62 2d 67 65 74 61 74 74 72 20 28 63 64 72 20 6c 69 6e 65 29 20 3a .(calibredb-getattr.(cdr.line).:
15c40 6c 61 73 74 5f 6d 6f 64 69 66 69 65 64 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 last_modified)))................
15c60 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 4e 6f 72 ..........................;;.Nor
15c80 6d 61 6c 6c 79 2c 20 63 6f 6d 6d 65 6e 74 73 20 61 72 65 20 6c 6f 6e 67 2c 20 69 74 20 69 73 20 mally,.comments.are.long,.it.is.
15ca0 6e 65 63 65 73 73 61 72 79 20 74 6f 20 74 72 61 6e 63 61 74 65 20 74 68 65 20 63 6f 6d 6d 65 6e necessary.to.trancate.the.commen
15cc0 74 73 20 74 6f 20 73 70 65 65 64 20 75 70 20 74 68 65 20 73 65 61 72 63 68 69 6e 67 0a 20 20 20 ts.to.speed.up.the.searching....
15ce0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ................................
15d00 20 20 20 20 20 20 3b 3b 20 65 78 63 65 70 74 20 63 61 6c 69 62 72 65 64 62 2d 63 6f 6d 6d 65 6e ......;;.except.calibredb-commen
15d20 74 2d 77 69 64 74 68 20 69 73 20 2d 31 2e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 t-width.is.-1...................
15d40 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 75 6e 6c 65 73 73 20 ........................(unless.
15d60 28 65 71 75 61 6c 20 28 63 61 6c 69 62 72 65 64 62 2d 63 6f 6d 6d 65 6e 74 2d 77 69 64 74 68 29 (equal.(calibredb-comment-width)
15d80 20 30 29 20 28 73 74 72 69 6e 67 2d 6d 61 74 63 68 2d 70 20 72 65 67 65 78 20 28 6c 65 74 20 28 .0).(string-match-p.regex.(let.(
15da0 28 63 20 28 63 61 6c 69 62 72 65 64 62 2d 67 65 74 61 74 74 72 20 28 63 64 72 20 6c 69 6e 65 29 (c.(calibredb-getattr.(cdr.line)
15dc0 20 3a 63 6f 6d 6d 65 6e 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .:comment)).....................
15de0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ................................
15e00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ................................
15e20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 20 .............................(w.
15e40 63 61 6c 69 62 72 65 64 62 2d 63 6f 6d 6d 65 6e 74 2d 77 69 64 74 68 29 29 0a 20 20 20 20 20 20 calibredb-comment-width)).......
15e60 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ................................
15e80 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ................................
15ea0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ................................
15ec0 20 20 20 20 20 20 20 28 69 66 20 28 3e 20 77 20 30 29 20 28 73 2d 74 72 75 6e 63 61 74 65 20 77 .......(if.(>.w.0).(s-truncate.w
15ee0 20 63 29 20 63 29 29 29 29 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 .c).c))))))))..................(
15f00 70 75 73 68 20 6c 69 6e 65 20 72 65 73 2d 6c 69 73 74 29 29 29 29 29 0a 20 20 20 20 28 6e 72 65 push.line.res-list))))).....(nre
15f20 76 65 72 73 65 20 72 65 73 2d 6c 69 73 74 29 29 29 0a 0a 3b 3b 3b 20 64 65 74 61 69 6c 65 64 20 verse.res-list)))..;;;.detailed.
15f40 76 69 65 77 0a 0a 28 64 65 66 75 6e 20 63 61 6c 69 62 72 65 64 62 2d 74 6f 67 67 6c 65 2d 76 69 view..(defun.calibredb-toggle-vi
15f60 65 77 20 28 29 0a 20 20 22 54 6f 67 67 6c 65 20 62 65 74 77 65 65 6e 20 64 65 74 61 69 6c 65 64 ew.()..."Toggle.between.detailed
15f80 20 76 69 65 77 20 6f 72 20 63 6f 6d 70 61 63 74 20 76 69 65 77 20 69 6e 20 2a 63 61 6c 69 62 72 .view.or.compact.view.in.*calibr
15fa0 65 64 62 2d 73 65 61 72 63 68 2a 20 62 75 66 66 65 72 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 edb-search*.buffer."...(interact
15fc0 69 76 65 29 0a 20 20 28 73 65 74 71 20 63 61 6c 69 62 72 65 64 62 2d 64 65 74 61 69 6c 65 64 2d ive)...(setq.calibredb-detailed-
15fe0 76 69 65 77 20 28 6e 6f 74 20 63 61 6c 69 62 72 65 64 62 2d 64 65 74 61 69 6c 65 64 2d 76 69 65 view.(not.calibredb-detailed-vie
16000 77 29 29 0a 20 20 28 63 61 6c 69 62 72 65 64 62 2d 73 65 61 72 63 68 2d 74 6f 67 67 6c 65 2d 76 w))...(calibredb-search-toggle-v
16020 69 65 77 2d 72 65 66 72 65 73 68 29 29 0a 0a 28 64 65 66 75 6e 20 63 61 6c 69 62 72 65 64 62 2d iew-refresh))..(defun.calibredb-
16040 64 65 74 61 69 6c 2d 76 69 65 77 2d 69 6e 73 65 72 74 2d 69 6d 61 67 65 20 28 65 6e 74 72 79 29 detail-view-insert-image.(entry)
16060 0a 20 20 22 49 6e 73 65 72 74 20 69 6d 61 67 65 20 69 6e 20 2a 63 61 6c 69 62 72 65 64 62 2d 73 ..."Insert.image.in.*calibredb-s
16080 65 61 72 63 68 2a 20 75 6e 64 65 72 20 64 65 74 61 69 6c 20 76 69 65 77 20 62 61 73 65 64 20 6f earch*.under.detail.view.based.o
160a0 6e 20 45 4e 54 52 59 2e 22 0a 20 20 28 69 66 20 28 61 6e 64 20 63 61 6c 69 62 72 65 64 62 2d 64 n.ENTRY."...(if.(and.calibredb-d
160c0 65 74 69 61 6c 2d 76 69 65 77 20 63 61 6c 69 62 72 65 64 62 2d 64 65 74 61 69 6c 65 64 2d 76 69 etial-view.calibredb-detailed-vi
160e0 65 77 2d 69 6d 61 67 65 2d 73 68 6f 77 29 0a 20 20 20 20 20 20 28 6c 65 74 20 28 28 6e 75 6d 20 ew-image-show).......(let.((num.
16100 28 63 6f 6e 64 20 28 63 61 6c 69 62 72 65 64 62 2d 66 6f 72 6d 61 74 2d 61 6c 6c 2d 74 68 65 2d (cond.(calibredb-format-all-the-
16120 69 63 6f 6e 73 20 33 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 icons.3)........................
16140 28 63 61 6c 69 62 72 65 64 62 2d 66 6f 72 6d 61 74 2d 69 63 6f 6e 73 2d 69 6e 2d 74 65 72 6d 69 (calibredb-format-icons-in-termi
16160 6e 61 6c 20 33 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 28 nal.3)........................((
16180 3e 3d 20 63 61 6c 69 62 72 65 64 62 2d 69 64 2d 77 69 64 74 68 20 30 29 20 63 61 6c 69 62 72 65 >=.calibredb-id-width.0).calibre
161a0 64 62 2d 69 64 2d 77 69 64 74 68 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 db-id-width)....................
161c0 20 20 20 20 28 74 20 30 20 29 29 29 29 0a 20 20 20 20 20 20 20 20 28 69 6e 73 65 72 74 20 22 5c ....(t.0.)))).........(insert."\
161e0 6e 22 29 0a 20 20 20 20 20 20 20 20 28 69 6e 73 65 72 74 20 28 6d 61 6b 65 2d 73 74 72 69 6e 67 n").........(insert.(make-string
16200 20 6e 75 6d 20 3f 20 29 29 0a 20 20 20 20 20 20 20 20 28 63 61 6c 69 62 72 65 64 62 2d 69 6e 73 .num.?.)).........(calibredb-ins
16220 65 72 74 2d 69 6d 61 67 65 20 28 63 61 6c 69 62 72 65 64 62 2d 67 65 74 2d 63 6f 76 65 72 20 28 ert-image.(calibredb-get-cover.(
16240 63 64 72 20 65 6e 74 72 79 29 29 20 22 22 20 63 61 6c 69 62 72 65 64 62 2d 64 65 74 61 69 6c 65 cdr.entry))."".calibredb-detaile
16260 64 2d 76 69 65 77 2d 69 6d 61 67 65 2d 6d 61 78 2d 77 69 64 74 68 20 63 61 6c 69 62 72 65 64 62 d-view-image-max-width.calibredb
16280 2d 64 65 74 61 69 6c 65 64 2d 76 69 65 77 2d 69 6d 61 67 65 2d 6d 61 78 2d 68 65 69 67 68 74 29 -detailed-view-image-max-height)
162a0 29 29 29 0a 0a 28 64 65 66 75 6e 20 63 61 6c 69 62 72 65 64 62 2d 64 65 74 61 69 6c 65 64 2d 76 )))..(defun.calibredb-detailed-v
162c0 69 65 77 2d 69 6e 73 65 72 74 2d 69 6d 61 67 65 20 28 65 6e 74 72 79 29 0a 20 20 22 49 6e 73 65 iew-insert-image.(entry)..."Inse
162e0 72 74 20 69 6d 61 67 65 20 69 6e 20 2a 63 61 6c 69 62 72 65 64 62 2d 73 65 61 72 63 68 2a 20 75 rt.image.in.*calibredb-search*.u
16300 6e 64 65 72 20 64 65 74 61 69 6c 65 64 20 76 69 65 77 20 62 61 73 65 64 20 6f 6e 20 45 4e 54 52 nder.detailed.view.based.on.ENTR
16320 59 2e 22 0a 20 20 28 69 66 20 28 61 6e 64 20 63 61 6c 69 62 72 65 64 62 2d 64 65 74 61 69 6c 65 Y."...(if.(and.calibredb-detaile
16340 64 2d 76 69 65 77 20 63 61 6c 69 62 72 65 64 62 2d 64 65 74 61 69 6c 65 64 2d 76 69 65 77 2d 69 d-view.calibredb-detailed-view-i
16360 6d 61 67 65 2d 73 68 6f 77 29 0a 20 20 20 20 20 20 28 6c 65 74 2a 20 28 28 6e 75 6d 20 28 63 6f mage-show).......(let*.((num.(co
16380 6e 64 20 28 63 61 6c 69 62 72 65 64 62 2d 66 6f 72 6d 61 74 2d 61 6c 6c 2d 74 68 65 2d 69 63 6f nd.(calibredb-format-all-the-ico
163a0 6e 73 20 33 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 ns.3).........................(c
163c0 61 6c 69 62 72 65 64 62 2d 66 6f 72 6d 61 74 2d 69 63 6f 6e 73 2d 69 6e 2d 74 65 72 6d 69 6e 61 alibredb-format-icons-in-termina
163e0 6c 20 33 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 28 3e l.3).........................((>
16400 3d 20 63 61 6c 69 62 72 65 64 62 2d 69 64 2d 77 69 64 74 68 20 30 29 20 63 61 6c 69 62 72 65 64 =.calibredb-id-width.0).calibred
16420 62 2d 69 64 2d 77 69 64 74 68 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 b-id-width).....................
16440 20 20 20 20 28 74 20 30 20 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 69 6c 65 20 ....(t.0.)))..............(file.
16460 28 63 61 6c 69 62 72 65 64 62 2d 67 65 74 61 74 74 72 20 28 63 64 72 20 65 6e 74 72 79 29 20 3a (calibredb-getattr.(cdr.entry).:
16480 66 69 6c 65 2d 70 61 74 68 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 6f 72 6d 61 74 file-path))..............(format
164a0 20 28 63 61 6c 69 62 72 65 64 62 2d 67 65 74 61 74 74 72 20 28 63 64 72 20 65 6e 74 72 79 29 20 .(calibredb-getattr.(cdr.entry).
164c0 3a 62 6f 6f 6b 2d 66 6f 72 6d 61 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 76 :book-format))..............(cov
164e0 65 72 20 28 63 6f 6e 63 61 74 20 28 66 69 6c 65 2d 6e 61 6d 65 2d 64 69 72 65 63 74 6f 72 79 20 er.(concat.(file-name-directory.
16500 66 69 6c 65 29 20 22 63 6f 76 65 72 2e 6a 70 67 22 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 file)."cover.jpg")))...........(
16520 69 66 20 28 69 6d 61 67 65 2d 74 79 70 65 2d 61 76 61 69 6c 61 62 6c 65 2d 70 20 28 69 6e 74 65 if.(image-type-available-p.(inte
16540 72 6e 20 66 6f 72 6d 61 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 72 6f 67 6e rn.format))...............(progn
16560 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 6e 73 65 72 74 20 22 5c 6e 22 29 0a 20 .................(insert."\n")..
16580 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 6e 73 65 72 74 20 28 6d 61 6b 65 2d 73 74 72 ...............(insert.(make-str
165a0 69 6e 67 20 6e 75 6d 20 3f 20 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 61 ing.num.?.)).................(ca
165c0 6c 69 62 72 65 64 62 2d 69 6e 73 65 72 74 2d 69 6d 61 67 65 20 66 69 6c 65 20 22 22 20 63 61 6c libredb-insert-image.file."".cal
165e0 69 62 72 65 64 62 2d 64 65 74 61 69 6c 65 64 2d 76 69 65 77 2d 69 6d 61 67 65 2d 6d 61 78 2d 77 ibredb-detailed-view-image-max-w
16600 69 64 74 68 20 63 61 6c 69 62 72 65 64 62 2d 64 65 74 61 69 6c 65 64 2d 76 69 65 77 2d 69 6d 61 idth.calibredb-detailed-view-ima
16620 67 65 2d 6d 61 78 2d 68 65 69 67 68 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 70 72 6f ge-max-height)).............(pro
16640 67 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 6e 73 65 72 74 20 22 5c 6e 22 29 0a 20 gn...............(insert."\n")..
16660 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 6e 73 65 72 74 20 28 6d 61 6b 65 2d 73 74 72 69 6e .............(insert.(make-strin
16680 67 20 6e 75 6d 20 3f 20 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 61 6c 69 62 72 g.num.?.))...............(calibr
166a0 65 64 62 2d 69 6e 73 65 72 74 2d 69 6d 61 67 65 20 63 6f 76 65 72 20 22 22 20 63 61 6c 69 62 72 edb-insert-image.cover."".calibr
166c0 65 64 62 2d 64 65 74 61 69 6c 65 64 2d 76 69 65 77 2d 69 6d 61 67 65 2d 6d 61 78 2d 77 69 64 74 edb-detailed-view-image-max-widt
166e0 68 20 63 61 6c 69 62 72 65 64 62 2d 64 65 74 61 69 6c 65 64 2d 76 69 65 77 2d 69 6d 61 67 65 2d h.calibredb-detailed-view-image-
16700 6d 61 78 2d 68 65 69 67 68 74 29 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 63 61 6c 69 62 72 65 max-height))))))..(defun.calibre
16720 64 62 2d 74 6f 67 67 6c 65 2d 76 69 65 77 2d 61 74 2d 70 6f 69 6e 74 20 28 29 0a 20 20 22 54 6f db-toggle-view-at-point.()..."To
16740 67 67 6c 65 20 62 65 74 77 65 65 6e 20 64 65 74 61 69 6c 65 64 20 76 69 65 77 20 6f 72 20 63 6f ggle.between.detailed.view.or.co
16760 6d 70 61 63 74 20 76 69 65 77 20 69 6e 20 2a 63 61 6c 69 62 72 65 64 62 2d 73 65 61 72 63 68 2a mpact.view.in.*calibredb-search*
16780 20 62 75 66 66 65 72 20 61 74 20 70 6f 69 6e 74 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 .buffer.at.point."...(interactiv
167a0 65 29 0a 20 20 28 6c 65 74 20 28 28 69 6e 68 69 62 69 74 2d 72 65 61 64 2d 6f 6e 6c 79 20 74 29 e)...(let.((inhibit-read-only.t)
167c0 0a 20 20 20 20 20 20 20 20 28 73 74 61 74 75 73 20 63 61 6c 69 62 72 65 64 62 2d 64 65 74 61 69 .........(status.calibredb-detai
167e0 6c 65 64 2d 76 69 65 77 29 29 0a 20 20 20 20 28 69 66 20 63 61 6c 69 62 72 65 64 62 2d 64 65 74 led-view)).....(if.calibredb-det
16800 61 69 6c 65 64 2d 76 69 65 77 0a 20 20 20 20 20 20 20 20 3b 3b 20 64 65 74 61 69 6c 65 64 20 76 ailed-view.........;;.detailed.v
16820 69 65 77 0a 20 20 20 20 20 20 20 20 28 63 6f 6e 64 0a 20 20 20 20 20 20 20 20 20 3b 3b 20 73 61 iew.........(cond..........;;.sa
16840 76 65 20 74 6f 20 63 61 6c 69 62 72 65 64 62 2d 65 6e 74 72 79 0a 20 20 20 20 20 20 20 20 20 28 ve.to.calibredb-entry..........(
16860 28 67 65 74 2d 74 65 78 74 2d 70 72 6f 70 65 72 74 79 20 28 70 6f 69 6e 74 29 20 27 63 61 6c 69 (get-text-property.(point).'cali
16880 62 72 65 64 62 2d 65 6e 74 72 79 20 6e 69 6c 29 0a 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 bredb-entry.nil)...........(setq
168a0 20 63 61 6c 69 62 72 65 64 62 2d 64 65 74 61 69 6c 65 64 2d 76 69 65 77 20 6e 69 6c 29 0a 20 20 .calibredb-detailed-view.nil)...
168c0 20 20 20 20 20 20 20 20 28 6c 65 74 2a 20 28 28 6f 72 69 67 69 6e 61 6c 20 28 67 65 74 2d 74 65 ........(let*.((original.(get-te
168e0 78 74 2d 70 72 6f 70 65 72 74 79 20 28 70 6f 69 6e 74 29 20 27 63 61 6c 69 62 72 65 64 62 2d 65 xt-property.(point).'calibredb-e
16900 6e 74 72 79 20 6e 69 6c 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 65 6e 74 ntry.nil))..................(ent
16920 72 79 20 28 63 61 64 72 20 6f 72 69 67 69 6e 61 6c 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 ry.(cadr.original)).............
16940 20 20 20 20 20 28 66 6f 72 6d 61 74 20 28 6c 69 73 74 20 28 63 61 6c 69 62 72 65 64 62 2d 66 6f .....(format.(list.(calibredb-fo
16960 72 6d 61 74 2d 69 74 65 6d 20 65 6e 74 72 79 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 rmat-item.entry)))..............
16980 20 20 20 20 3b 3b 20 28 70 6f 73 69 74 69 6f 6e 20 28 73 65 71 2d 70 6f 73 69 74 69 6f 6e 20 63 ....;;.(position.(seq-position.c
169a0 61 6c 69 62 72 65 64 62 2d 73 65 61 72 63 68 2d 65 6e 74 72 69 65 73 20 6f 72 69 67 69 6e 61 6c alibredb-search-entries.original
169c0 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 64 20 28 63 61 6c 69 62 72 65 ))..................(id.(calibre
169e0 64 62 2d 67 65 74 2d 69 6e 69 74 20 22 69 64 22 20 28 63 64 72 20 28 67 65 74 2d 74 65 78 74 2d db-get-init."id".(cdr.(get-text-
16a00 70 72 6f 70 65 72 74 79 20 28 70 6f 69 6e 74 29 20 27 63 61 6c 69 62 72 65 64 62 2d 65 6e 74 72 property.(point).'calibredb-entr
16a20 79 20 6e 69 6c 29 29 29 29 20 3b 20 74 68 65 20 22 69 64 22 20 6f 66 20 63 75 72 72 65 6e 74 20 y.nil)))).;.the."id".of.current.
16a40 70 6f 69 6e 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 64 2d 62 65 67 20 64 2d 65 point..................d-beg.d-e
16a60 6e 64 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 69 66 20 28 65 71 75 61 6c 20 69 64 20 28 63 nd).............(if.(equal.id.(c
16a80 61 6c 69 62 72 65 64 62 2d 67 65 74 2d 69 6e 69 74 20 22 69 64 22 20 28 63 64 72 20 28 67 65 74 alibredb-get-init."id".(cdr.(get
16aa0 2d 74 65 78 74 2d 70 72 6f 70 65 72 74 79 20 28 70 6f 69 6e 74 2d 6d 69 6e 29 20 27 63 61 6c 69 -text-property.(point-min).'cali
16ac0 62 72 65 64 62 2d 65 6e 74 72 79 20 6e 69 6c 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 bredb-entry.nil)))).............
16ae0 20 20 20 20 28 73 65 74 71 20 64 2d 62 65 67 20 28 70 6f 69 6e 74 2d 6d 69 6e 29 29 0a 20 20 20 ....(setq.d-beg.(point-min))....
16b00 20 20 20 20 20 20 20 20 20 20 20 28 73 61 76 65 2d 65 78 63 75 72 73 69 6f 6e 20 28 77 68 69 6c ...........(save-excursion.(whil
16b20 65 20 28 65 71 75 61 6c 20 69 64 20 28 63 61 6c 69 62 72 65 64 62 2d 67 65 74 2d 69 6e 69 74 20 e.(equal.id.(calibredb-get-init.
16b40 22 69 64 22 20 28 63 64 72 20 28 67 65 74 2d 74 65 78 74 2d 70 72 6f 70 65 72 74 79 20 28 70 6f "id".(cdr.(get-text-property.(po
16b60 69 6e 74 29 20 27 63 61 6c 69 62 72 65 64 62 2d 65 6e 74 72 79 20 6e 69 6c 29 29 29 29 0a 20 20 int).'calibredb-entry.nil))))...
16b80 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 ..............................(f
16ba0 6f 72 77 61 72 64 2d 6c 69 6e 65 20 2d 31 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 orward-line.-1))................
16bc0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 6f 72 77 61 72 64 2d 6c 69 6e 65 20 31 29 0a ...............(forward-line.1).
16be0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 ..............................(s
16c00 65 74 71 20 64 2d 62 65 67 20 28 70 6f 69 6e 74 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 etq.d-beg.(point))))............
16c20 20 28 73 61 76 65 2d 65 78 63 75 72 73 69 6f 6e 20 28 77 68 69 6c 65 20 28 65 71 75 61 6c 20 69 .(save-excursion.(while.(equal.i
16c40 64 20 28 63 61 6c 69 62 72 65 64 62 2d 67 65 74 2d 69 6e 69 74 20 22 69 64 22 20 28 63 64 72 20 d.(calibredb-get-init."id".(cdr.
16c60 28 67 65 74 2d 74 65 78 74 2d 70 72 6f 70 65 72 74 79 20 28 70 6f 69 6e 74 29 20 27 63 61 6c 69 (get-text-property.(point).'cali
16c80 62 72 65 64 62 2d 65 6e 74 72 79 20 6e 69 6c 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 bredb-entry.nil)))).............
16ca0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 6f 72 77 61 72 64 2d 6c 69 6e 65 20 ..................(forward-line.
16cc0 31 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 1)).............................
16ce0 28 67 6f 74 6f 2d 63 68 61 72 20 28 31 2d 20 28 70 6f 69 6e 74 29 29 29 0a 20 20 20 20 20 20 20 (goto-char.(1-.(point)))........
16d00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 64 2d 65 6e 64 .....................(setq.d-end
16d20 20 28 70 6f 69 6e 74 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 64 65 6c 65 74 65 2d 72 .(point))).............(delete-r
16d40 65 67 69 6f 6e 20 64 2d 62 65 67 20 64 2d 65 6e 64 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 egion.d-beg.d-end).............(
16d60 73 61 76 65 2d 65 78 63 75 72 73 69 6f 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 75 6e save-excursion...............(un
16d80 6c 65 73 73 20 28 65 71 75 61 6c 20 66 6f 72 6d 61 74 20 22 22 29 0a 20 20 20 20 20 20 20 20 20 less.(equal.format."")..........
16da0 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 63 6f 6e 74 65 6e 74 20 28 63 61 72 20 66 6f 72 6d 61 .......(let.((content.(car.forma
16dc0 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 69 73 74 20 t)).......................(list.
16de0 28 63 6f 6e 73 20 28 63 61 72 20 66 6f 72 6d 61 74 29 20 28 6c 69 73 74 20 65 6e 74 72 79 29 29 (cons.(car.format).(list.entry))
16e00 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 20 65 6e 64 29 ).......................beg.end)
16e20 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 62 65 67 20 28 70 6f ...................(setq.beg.(po
16e40 69 6e 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 6e 73 65 72 74 20 int))...................(insert.
16e60 63 6f 6e 74 65 6e 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 content)...................(setq
16e80 20 65 6e 64 20 28 70 6f 69 6e 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .end.(point))...................
16ea0 28 70 75 74 2d 74 65 78 74 2d 70 72 6f 70 65 72 74 79 20 62 65 67 20 65 6e 64 20 27 63 61 6c 69 (put-text-property.beg.end.'cali
16ec0 62 72 65 64 62 2d 63 6f 6d 70 61 63 74 20 6c 69 73 74 29 29 29 29 29 0a 20 20 20 20 20 20 20 20 bredb-compact.list))))).........
16ee0 20 20 28 73 65 74 71 20 63 61 6c 69 62 72 65 64 62 2d 64 65 74 61 69 6c 65 64 2d 76 69 65 77 20 ..(setq.calibredb-detailed-view.
16f00 73 74 61 74 75 73 29 29 0a 0a 20 20 20 20 20 20 20 20 20 3b 3b 20 73 61 76 65 20 74 6f 20 63 61 status))...........;;.save.to.ca
16f20 6c 69 62 72 65 64 62 2d 63 6f 6d 70 61 63 74 0a 20 20 20 20 20 20 20 20 20 28 28 67 65 74 2d 74 libredb-compact..........((get-t
16f40 65 78 74 2d 70 72 6f 70 65 72 74 79 20 28 70 6f 69 6e 74 29 20 27 63 61 6c 69 62 72 65 64 62 2d ext-property.(point).'calibredb-
16f60 63 6f 6d 70 61 63 74 20 6e 69 6c 29 0a 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 63 61 6c compact.nil)...........(setq.cal
16f80 69 62 72 65 64 62 2d 64 65 74 61 69 6c 65 64 2d 76 69 65 77 20 74 29 0a 20 20 20 20 20 20 20 20 ibredb-detailed-view.t).........
16fa0 20 20 28 6c 65 74 2a 20 28 28 6f 72 69 67 69 6e 61 6c 20 28 67 65 74 2d 74 65 78 74 2d 70 72 6f ..(let*.((original.(get-text-pro
16fc0 70 65 72 74 79 20 28 70 6f 69 6e 74 29 20 27 63 61 6c 69 62 72 65 64 62 2d 63 6f 6d 70 61 63 74 perty.(point).'calibredb-compact
16fe0 20 6e 69 6c 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 65 6e 74 72 79 20 28 .nil))..................(entry.(
17000 63 61 64 72 20 6f 72 69 67 69 6e 61 6c 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 cadr.original)).................
17020 20 28 66 6f 72 6d 61 74 20 28 6c 69 73 74 20 28 63 61 6c 69 62 72 65 64 62 2d 66 6f 72 6d 61 74 .(format.(list.(calibredb-format
17040 2d 69 74 65 6d 20 65 6e 74 72 79 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 64 65 6c -item.entry)))).............(del
17060 65 74 65 2d 72 65 67 69 6f 6e 20 28 6c 69 6e 65 2d 62 65 67 69 6e 6e 69 6e 67 2d 70 6f 73 69 74 ete-region.(line-beginning-posit
17080 69 6f 6e 29 20 28 6c 69 6e 65 2d 65 6e 64 2d 70 6f 73 69 74 69 6f 6e 29 29 0a 20 20 20 20 20 20 ion).(line-end-position)).......
170a0 20 20 20 20 20 20 28 73 61 76 65 2d 65 78 63 75 72 73 69 6f 6e 0a 20 20 20 20 20 20 20 20 20 20 ......(save-excursion...........
170c0 20 20 20 20 28 75 6e 6c 65 73 73 20 28 65 71 75 61 6c 20 66 6f 72 6d 61 74 20 22 22 29 0a 20 20 ....(unless.(equal.format."")...
170e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 63 6f 6e 74 65 6e 74 20 28 63 61 ..............(let.((content.(ca
17100 72 20 66 6f 72 6d 61 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 r.format))......................
17120 20 28 6c 69 73 74 20 28 63 6f 6e 73 20 28 63 61 72 20 66 6f 72 6d 61 74 29 20 28 6c 69 73 74 20 .(list.(cons.(car.format).(list.
17140 65 6e 74 72 79 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 62 entry))).......................b
17160 65 67 20 65 6e 64 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 eg.end)...................(setq.
17180 62 65 67 20 28 70 6f 69 6e 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 beg.(point))...................(
171a0 69 6e 73 65 72 74 20 63 6f 6e 74 65 6e 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 insert.content).................
171c0 20 20 28 63 61 6c 69 62 72 65 64 62 2d 64 65 74 61 69 6c 65 64 2d 76 69 65 77 2d 69 6e 73 65 72 ..(calibredb-detailed-view-inser
171e0 74 2d 69 6d 61 67 65 20 6f 72 69 67 69 6e 61 6c 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 t-image.original)...............
17200 20 20 20 20 28 73 65 74 71 20 65 6e 64 20 28 70 6f 69 6e 74 29 29 0a 20 20 20 20 20 20 20 20 20 ....(setq.end.(point))..........
17220 20 20 20 20 20 20 20 20 20 28 70 75 74 2d 74 65 78 74 2d 70 72 6f 70 65 72 74 79 20 62 65 67 20 .........(put-text-property.beg.
17240 65 6e 64 20 27 63 61 6c 69 62 72 65 64 62 2d 65 6e 74 72 79 20 6c 69 73 74 29 29 29 29 29 0a 20 end.'calibredb-entry.list)))))..
17260 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 63 61 6c 69 62 72 65 64 62 2d 64 65 74 61 69 6c 65 .........(setq.calibredb-detaile
17280 64 2d 76 69 65 77 20 73 74 61 74 75 73 29 29 29 0a 0a 20 20 20 20 20 20 3b 3b 20 63 6f 6d 70 61 d-view.status)))........;;.compa
172a0 63 74 20 76 69 65 77 0a 20 20 20 20 20 20 28 63 6f 6e 64 0a 20 20 20 20 20 20 20 3b 3b 20 73 61 ct.view.......(cond........;;.sa
172c0 76 65 20 74 6f 20 63 61 6c 69 62 72 65 64 62 2d 65 6e 74 72 79 0a 20 20 20 20 20 20 20 28 28 67 ve.to.calibredb-entry........((g
172e0 65 74 2d 74 65 78 74 2d 70 72 6f 70 65 72 74 79 20 28 70 6f 69 6e 74 29 20 27 63 61 6c 69 62 72 et-text-property.(point).'calibr
17300 65 64 62 2d 65 6e 74 72 79 20 6e 69 6c 29 0a 20 20 20 20 20 20 20 20 28 73 65 74 71 20 63 61 6c edb-entry.nil).........(setq.cal
17320 69 62 72 65 64 62 2d 64 65 74 61 69 6c 65 64 2d 76 69 65 77 20 74 29 0a 20 20 20 20 20 20 20 20 ibredb-detailed-view.t).........
17340 28 6c 65 74 2a 20 28 28 6f 72 69 67 69 6e 61 6c 20 28 67 65 74 2d 74 65 78 74 2d 70 72 6f 70 65 (let*.((original.(get-text-prope
17360 72 74 79 20 28 70 6f 69 6e 74 29 20 27 63 61 6c 69 62 72 65 64 62 2d 65 6e 74 72 79 20 6e 69 6c rty.(point).'calibredb-entry.nil
17380 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 65 6e 74 72 79 20 28 63 61 64 72 20 6f ))................(entry.(cadr.o
173a0 72 69 67 69 6e 61 6c 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 6f 72 6d 61 74 riginal))................(format
173c0 20 28 6c 69 73 74 20 28 63 61 6c 69 62 72 65 64 62 2d 66 6f 72 6d 61 74 2d 69 74 65 6d 20 65 6e .(list.(calibredb-format-item.en
173e0 74 72 79 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 64 65 6c 65 74 65 2d 72 65 67 69 6f 6e try))))...........(delete-region
17400 20 28 6c 69 6e 65 2d 62 65 67 69 6e 6e 69 6e 67 2d 70 6f 73 69 74 69 6f 6e 29 20 28 6c 69 6e 65 .(line-beginning-position).(line
17420 2d 65 6e 64 2d 70 6f 73 69 74 69 6f 6e 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 73 61 76 65 2d -end-position))...........(save-
17440 65 78 63 75 72 73 69 6f 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 75 6e 6c 65 73 73 20 28 65 excursion.............(unless.(e
17460 71 75 61 6c 20 66 6f 72 6d 61 74 20 22 22 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c qual.format."")...............(l
17480 65 74 20 28 28 63 6f 6e 74 65 6e 74 20 28 63 61 72 20 66 6f 72 6d 61 74 29 29 0a 20 20 20 20 20 et.((content.(car.format))......
174a0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 69 73 74 20 28 63 6f 6e 73 20 28 63 61 72 20 ...............(list.(cons.(car.
174c0 66 6f 72 6d 61 74 29 20 28 6c 69 73 74 20 65 6e 74 72 79 29 29 29 0a 20 20 20 20 20 20 20 20 20 format).(list.entry)))..........
174e0 20 20 20 20 20 20 20 20 20 20 20 62 65 67 20 65 6e 64 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 ...........beg.end).............
17500 20 20 20 20 28 73 65 74 71 20 62 65 67 20 28 70 6f 69 6e 74 29 29 0a 20 20 20 20 20 20 20 20 20 ....(setq.beg.(point))..........
17520 20 20 20 20 20 20 20 28 69 6e 73 65 72 74 20 63 6f 6e 74 65 6e 74 29 0a 20 20 20 20 20 20 20 20 .......(insert.content).........
17540 20 20 20 20 20 20 20 20 28 63 61 6c 69 62 72 65 64 62 2d 64 65 74 61 69 6c 65 64 2d 76 69 65 77 ........(calibredb-detailed-view
17560 2d 69 6e 73 65 72 74 2d 69 6d 61 67 65 20 6f 72 69 67 69 6e 61 6c 29 0a 20 20 20 20 20 20 20 20 -insert-image.original).........
17580 20 20 20 20 20 20 20 20 28 73 65 74 71 20 65 6e 64 20 28 70 6f 69 6e 74 29 29 0a 20 20 20 20 20 ........(setq.end.(point))......
175a0 20 20 20 20 20 20 20 20 20 20 20 28 70 75 74 2d 74 65 78 74 2d 70 72 6f 70 65 72 74 79 20 62 65 ...........(put-text-property.be
175c0 67 20 65 6e 64 20 27 63 61 6c 69 62 72 65 64 62 2d 64 65 74 61 69 6c 65 64 20 6c 69 73 74 29 29 g.end.'calibredb-detailed.list))
175e0 29 29 29 0a 20 20 20 20 20 20 20 20 28 73 65 74 71 20 63 61 6c 69 62 72 65 64 62 2d 64 65 74 61 ))).........(setq.calibredb-deta
17600 69 6c 65 64 2d 76 69 65 77 20 73 74 61 74 75 73 29 29 0a 0a 20 20 20 20 20 20 20 3b 3b 20 73 61 iled-view.status)).........;;.sa
17620 76 65 20 74 6f 20 63 61 6c 69 62 72 65 64 62 2d 64 65 74 61 69 6c 65 64 0a 20 20 20 20 20 20 20 ve.to.calibredb-detailed........
17640 28 28 67 65 74 2d 74 65 78 74 2d 70 72 6f 70 65 72 74 79 20 28 70 6f 69 6e 74 29 20 27 63 61 6c ((get-text-property.(point).'cal
17660 69 62 72 65 64 62 2d 64 65 74 61 69 6c 65 64 20 6e 69 6c 29 0a 20 20 20 20 20 20 20 20 28 73 65 ibredb-detailed.nil).........(se
17680 74 71 20 63 61 6c 69 62 72 65 64 62 2d 64 65 74 61 69 6c 65 64 2d 76 69 65 77 20 6e 69 6c 29 0a tq.calibredb-detailed-view.nil).
176a0 20 20 20 20 20 20 20 20 28 6c 65 74 2a 20 28 28 6f 72 69 67 69 6e 61 6c 20 28 67 65 74 2d 74 65 ........(let*.((original.(get-te
176c0 78 74 2d 70 72 6f 70 65 72 74 79 20 28 70 6f 69 6e 74 29 20 27 63 61 6c 69 62 72 65 64 62 2d 64 xt-property.(point).'calibredb-d
176e0 65 74 61 69 6c 65 64 20 6e 69 6c 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 65 6e etailed.nil))................(en
17700 74 72 79 20 28 63 61 64 72 20 6f 72 69 67 69 6e 61 6c 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 try.(cadr.original))............
17720 20 20 20 20 28 66 6f 72 6d 61 74 20 28 6c 69 73 74 20 28 63 61 6c 69 62 72 65 64 62 2d 66 6f 72 ....(format.(list.(calibredb-for
17740 6d 61 74 2d 69 74 65 6d 20 65 6e 74 72 79 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 mat-item.entry)))...............
17760 20 28 69 64 20 28 63 61 6c 69 62 72 65 64 62 2d 67 65 74 2d 69 6e 69 74 20 22 69 64 22 20 28 63 .(id.(calibredb-get-init."id".(c
17780 64 72 20 28 67 65 74 2d 74 65 78 74 2d 70 72 6f 70 65 72 74 79 20 28 70 6f 69 6e 74 29 20 27 63 dr.(get-text-property.(point).'c
177a0 61 6c 69 62 72 65 64 62 2d 64 65 74 61 69 6c 65 64 20 6e 69 6c 29 29 29 29 20 3b 20 74 68 65 20 alibredb-detailed.nil)))).;.the.
177c0 22 69 64 22 20 6f 66 20 63 75 72 72 65 6e 74 20 70 6f 69 6e 74 0a 20 20 20 20 20 20 20 20 20 20 "id".of.current.point...........
177e0 20 20 20 20 20 64 2d 62 65 67 20 64 2d 65 6e 64 29 0a 20 20 20 20 20 20 20 20 20 20 28 69 66 20 .....d-beg.d-end)...........(if.
17800 28 65 71 75 61 6c 20 69 64 20 28 63 61 6c 69 62 72 65 64 62 2d 67 65 74 2d 69 6e 69 74 20 22 69 (equal.id.(calibredb-get-init."i
17820 64 22 20 28 63 64 72 20 28 67 65 74 2d 74 65 78 74 2d 70 72 6f 70 65 72 74 79 20 28 70 6f 69 6e d".(cdr.(get-text-property.(poin
17840 74 2d 6d 69 6e 29 20 27 63 61 6c 69 62 72 65 64 62 2d 64 65 74 61 69 6c 65 64 20 6e 69 6c 29 29 t-min).'calibredb-detailed.nil))
17860 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 64 2d 62 65 67 20 28 70 6f ))...............(setq.d-beg.(po
17880 69 6e 74 2d 6d 69 6e 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 73 61 76 65 2d 65 78 63 75 int-min)).............(save-excu
178a0 72 73 69 6f 6e 20 28 77 68 69 6c 65 20 28 65 71 75 61 6c 20 69 64 20 28 63 61 6c 69 62 72 65 64 rsion.(while.(equal.id.(calibred
178c0 62 2d 67 65 74 2d 69 6e 69 74 20 22 69 64 22 20 28 63 64 72 20 28 67 65 74 2d 74 65 78 74 2d 70 b-get-init."id".(cdr.(get-text-p
178e0 72 6f 70 65 72 74 79 20 28 70 6f 69 6e 74 29 20 27 63 61 6c 69 62 72 65 64 62 2d 64 65 74 61 69 roperty.(point).'calibredb-detai
17900 6c 65 64 20 6e 69 6c 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 led.nil)))).....................
17920 20 20 20 20 20 20 20 20 20 20 28 66 6f 72 77 61 72 64 2d 6c 69 6e 65 20 2d 31 29 29 0a 20 20 20 ..........(forward-line.-1))....
17940 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 6f 72 77 61 72 .........................(forwar
17960 64 2d 6c 69 6e 65 20 31 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 d-line.1).......................
17980 20 20 20 20 20 20 28 73 65 74 71 20 64 2d 62 65 67 20 28 70 6f 69 6e 74 29 29 29 29 0a 20 20 20 ......(setq.d-beg.(point))))....
179a0 20 20 20 20 20 20 20 28 73 61 76 65 2d 65 78 63 75 72 73 69 6f 6e 20 28 77 68 69 6c 65 20 28 65 .......(save-excursion.(while.(e
179c0 71 75 61 6c 20 69 64 20 28 63 61 6c 69 62 72 65 64 62 2d 67 65 74 2d 69 6e 69 74 20 22 69 64 22 qual.id.(calibredb-get-init."id"
179e0 20 28 63 64 72 20 28 67 65 74 2d 74 65 78 74 2d 70 72 6f 70 65 72 74 79 20 28 70 6f 69 6e 74 29 .(cdr.(get-text-property.(point)
17a00 20 27 63 61 6c 69 62 72 65 64 62 2d 64 65 74 61 69 6c 65 64 20 6e 69 6c 29 29 29 29 0a 20 20 20 .'calibredb-detailed.nil))))....
17a20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 6f 72 77 61 72 .........................(forwar
17a40 64 2d 6c 69 6e 65 20 31 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 d-line.1))......................
17a60 20 20 20 20 20 28 67 6f 74 6f 2d 63 68 61 72 20 28 31 2d 20 28 70 6f 69 6e 74 29 29 29 0a 20 20 .....(goto-char.(1-.(point)))...
17a80 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 64 2d ........................(setq.d-
17aa0 65 6e 64 20 28 70 6f 69 6e 74 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 64 65 6c 65 74 65 2d end.(point)))...........(delete-
17ac0 72 65 67 69 6f 6e 20 64 2d 62 65 67 20 64 2d 65 6e 64 29 0a 20 20 20 20 20 20 20 20 20 20 28 73 region.d-beg.d-end)...........(s
17ae0 61 76 65 2d 65 78 63 75 72 73 69 6f 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 75 6e 6c 65 73 ave-excursion.............(unles
17b00 73 20 28 65 71 75 61 6c 20 66 6f 72 6d 61 74 20 22 22 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 s.(equal.format."").............
17b20 20 20 28 6c 65 74 20 28 28 63 6f 6e 74 65 6e 74 20 28 63 61 72 20 66 6f 72 6d 61 74 29 29 0a 20 ..(let.((content.(car.format))..
17b40 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 69 73 74 20 28 63 6f 6e 73 20 28 ...................(list.(cons.(
17b60 63 61 72 20 66 6f 72 6d 61 74 29 20 28 6c 69 73 74 20 65 6e 74 72 79 29 29 29 0a 20 20 20 20 20 car.format).(list.entry)))......
17b80 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 20 65 6e 64 29 0a 20 20 20 20 20 20 20 20 ...............beg.end).........
17ba0 20 20 20 20 20 20 20 20 28 73 65 74 71 20 62 65 67 20 28 70 6f 69 6e 74 29 29 0a 20 20 20 20 20 ........(setq.beg.(point))......
17bc0 20 20 20 20 20 20 20 20 20 20 20 28 69 6e 73 65 72 74 20 63 6f 6e 74 65 6e 74 29 0a 20 20 20 20 ...........(insert.content).....
17be0 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 65 6e 64 20 28 70 6f 69 6e 74 29 29 0a 20 ............(setq.end.(point))..
17c00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 75 74 2d 74 65 78 74 2d 70 72 6f 70 65 72 74 ...............(put-text-propert
17c20 79 20 62 65 67 20 65 6e 64 20 27 63 61 6c 69 62 72 65 64 62 2d 65 6e 74 72 79 20 6c 69 73 74 29 y.beg.end.'calibredb-entry.list)
17c40 29 29 29 29 0a 20 20 20 20 20 20 20 20 28 73 65 74 71 20 63 61 6c 69 62 72 65 64 62 2d 64 65 74 )))).........(setq.calibredb-det
17c60 61 69 6c 65 64 2d 76 69 65 77 20 73 74 61 74 75 73 29 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 ailed-view.status))))))..(defun.
17c80 63 61 6c 69 62 72 65 64 62 2d 66 6f 6e 74 69 66 79 20 28 73 74 72 69 6e 67 20 6d 6f 64 65 29 0a calibredb-fontify.(string.mode).
17ca0 20 20 22 46 6f 6e 74 69 66 79 20 53 54 52 49 4e 47 20 77 69 74 68 20 4d 61 6a 6f 72 20 4d 4f 44 .."Fontify.STRING.with.Major.MOD
17cc0 45 2e 22 0a 20 20 28 77 69 74 68 2d 74 65 6d 70 2d 62 75 66 66 65 72 0a 20 20 20 20 28 69 6e 73 E."...(with-temp-buffer.....(ins
17ce0 65 72 74 20 73 74 72 69 6e 67 29 0a 20 20 20 20 28 64 65 6c 61 79 2d 6d 6f 64 65 2d 68 6f 6f 6b ert.string).....(delay-mode-hook
17d00 73 20 28 66 75 6e 63 61 6c 6c 20 6d 6f 64 65 29 29 0a 20 20 20 20 28 69 66 20 28 66 62 6f 75 6e s.(funcall.mode)).....(if.(fboun
17d20 64 70 20 27 66 6f 6e 74 2d 6c 6f 63 6b 2d 65 6e 73 75 72 65 29 0a 20 20 20 20 20 20 20 20 28 66 dp.'font-lock-ensure).........(f
17d40 6f 6e 74 2d 6c 6f 63 6b 2d 65 6e 73 75 72 65 29 0a 20 20 20 20 20 20 28 77 69 74 68 2d 6e 6f 2d ont-lock-ensure).......(with-no-
17d60 77 61 72 6e 69 6e 67 73 0a 20 20 20 20 20 20 20 20 28 66 6f 6e 74 2d 6c 6f 63 6b 2d 66 6f 6e 74 warnings.........(font-lock-font
17d80 69 66 79 2d 62 75 66 66 65 72 29 29 29 0a 20 20 20 20 28 62 75 66 66 65 72 2d 73 74 72 69 6e 67 ify-buffer))).....(buffer-string
17da0 29 29 29 0a 0a 28 64 65 66 75 6e 20 63 61 6c 69 62 72 65 64 62 2d 63 6f 70 79 2d 61 73 2d 6f 72 )))..(defun.calibredb-copy-as-or
17dc0 67 2d 6c 69 6e 6b 20 28 29 0a 20 20 22 43 6f 70 79 20 74 68 65 20 6d 61 72 6b 65 64 20 69 74 65 g-link.()..."Copy.the.marked.ite
17de0 6d 73 20 61 73 20 6f 72 67 20 6c 69 6e 6b 73 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 ms.as.org.links."...(interactive
17e00 29 0a 20 20 28 6c 65 74 20 28 28 63 61 6e 64 69 64 61 74 65 73 20 28 63 61 6c 69 62 72 65 64 62 )...(let.((candidates.(calibredb
17e20 2d 66 69 6e 64 2d 6d 61 72 6b 65 64 2d 63 61 6e 64 69 64 61 74 65 73 29 29 29 0a 20 20 20 20 28 -find-marked-candidates))).....(
17e40 75 6e 6c 65 73 73 20 63 61 6e 64 69 64 61 74 65 73 0a 20 20 20 20 20 20 28 73 65 74 71 20 63 61 unless.candidates.......(setq.ca
17e60 6e 64 69 64 61 74 65 73 20 28 63 61 6c 69 62 72 65 64 62 2d 66 69 6e 64 2d 63 61 6e 64 69 64 61 ndidates.(calibredb-find-candida
17e80 74 65 2d 61 74 2d 70 6f 69 6e 74 29 29 29 0a 20 20 20 20 28 6b 69 6c 6c 2d 6e 65 77 0a 20 20 20 te-at-point))).....(kill-new....
17ea0 20 20 28 77 69 74 68 2d 74 65 6d 70 2d 62 75 66 66 65 72 0a 20 20 20 20 20 20 20 28 64 6f 6c 69 ..(with-temp-buffer........(doli
17ec0 73 74 20 28 63 61 6e 64 20 63 61 6e 64 69 64 61 74 65 73 29 0a 20 20 20 20 20 20 20 20 20 28 6c st.(cand.candidates)..........(l
17ee0 65 74 20 28 28 69 64 20 28 63 61 6c 69 62 72 65 64 62 2d 67 65 74 61 74 74 72 20 63 61 6e 64 20 et.((id.(calibredb-getattr.cand.
17f00 3a 69 64 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 61 74 68 20 28 63 61 6c 69 :id))................(path.(cali
17f20 62 72 65 64 62 2d 67 65 74 2d 66 69 6c 65 2d 70 61 74 68 20 63 61 6e 64 20 74 29 29 0a 20 20 20 bredb-get-file-path.cand.t))....
17f40 20 20 20 20 20 20 20 20 20 20 20 20 28 74 69 74 6c 65 20 28 63 61 6c 69 62 72 65 64 62 2d 67 65 ............(title.(calibredb-ge
17f60 74 61 74 74 72 20 63 61 6e 64 20 3a 62 6f 6f 6b 2d 74 69 74 6c 65 29 29 29 0a 20 20 20 20 20 20 tattr.cand.:book-title))).......
17f80 20 20 20 20 20 28 69 6e 73 65 72 74 20 28 66 6f 72 6d 61 74 20 22 5b 5b 66 69 6c 65 3a 25 73 5d .....(insert.(format."[[file:%s]
17fa0 5b 25 73 20 25 73 20 2d 20 25 73 5d 5d 5c 6e 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 [%s.%s.-.%s]]\n"................
17fc0 20 20 20 20 20 20 20 20 20 20 20 20 70 61 74 68 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ............path................
17fe0 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 6e 64 20 28 63 61 6c 69 62 72 65 64 62 2d 66 6f 72 ............(cond.(calibredb-for
18000 6d 61 74 2d 61 6c 6c 2d 74 68 65 2d 69 63 6f 6e 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 mat-all-the-icons...............
18020 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 66 20 28 66 62 6f 75 6e 64 70 ....................(if.(fboundp
18040 20 27 61 6c 6c 2d 74 68 65 2d 69 63 6f 6e 73 2d 69 63 6f 6e 2d 66 6f 72 2d 66 69 6c 65 29 0a 20 .'all-the-icons-icon-for-file)..
18060 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ................................
18080 20 20 20 20 20 28 61 6c 6c 2d 74 68 65 2d 69 63 6f 6e 73 2d 69 63 6f 6e 2d 66 6f 72 2d 66 69 6c .....(all-the-icons-icon-for-fil
180a0 65 20 70 61 74 68 29 20 22 22 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 e.path).""))....................
180c0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 61 6c 69 62 72 65 64 62 2d 66 6f 72 6d 61 74 2d ..............(calibredb-format-
180e0 69 63 6f 6e 73 2d 69 6e 2d 74 65 72 6d 69 6e 61 6c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 icons-in-terminal...............
18100 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 66 20 28 66 62 6f 75 6e 64 70 ....................(if.(fboundp
18120 20 27 69 63 6f 6e 73 2d 69 6e 2d 74 65 72 6d 69 6e 61 6c 2d 69 63 6f 6e 2d 66 6f 72 2d 66 69 6c .'icons-in-terminal-icon-for-fil
18140 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 e)..............................
18160 20 20 20 20 20 20 20 20 20 28 69 63 6f 6e 73 2d 69 6e 2d 74 65 72 6d 69 6e 61 6c 2d 69 63 6f 6e .........(icons-in-terminal-icon
18180 2d 66 6f 72 2d 66 69 6c 65 20 70 61 74 68 20 3a 76 2d 61 64 6a 75 73 74 20 30 20 3a 68 65 69 67 -for-file.path.:v-adjust.0.:heig
181a0 68 74 20 31 29 20 22 22 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ht.1).""))......................
181c0 20 20 20 20 20 20 20 20 20 20 20 20 28 74 20 22 22 29 29 20 69 64 20 74 69 74 6c 65 29 29 0a 20 ............(t."")).id.title))..
181e0 20 20 20 20 20 20 20 20 20 20 28 6d 65 73 73 61 67 65 20 22 43 6f 70 69 65 64 3a 20 25 73 20 2d ..........(message."Copied:.%s.-
18200 20 5c 22 25 73 5c 22 20 61 73 20 6f 72 67 20 6c 69 6e 6b 2e 22 20 69 64 20 74 69 74 6c 65 29 29 .\"%s\".as.org.link.".id.title))
18220 29 0a 20 20 20 20 20 20 20 28 62 75 66 66 65 72 2d 73 74 72 69 6e 67 29 29 29 0a 20 20 20 20 3b )........(buffer-string))).....;
18240 3b 20 72 65 6d 6f 76 65 20 6f 76 65 72 6c 61 79 73 20 61 6e 64 20 74 65 78 74 20 70 72 6f 70 65 ;.remove.overlays.and.text.prope
18260 72 74 69 65 73 0a 20 20 20 20 28 6c 65 74 2a 20 28 28 62 65 67 20 28 70 6f 69 6e 74 2d 6d 69 6e rties.....(let*.((beg.(point-min
18280 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 65 6e 64 20 28 70 6f 69 6e 74 2d 6d 61 78 29 29 0a ))............(end.(point-max)).
182a0 20 20 20 20 20 20 20 20 20 20 20 28 69 6e 68 69 62 69 74 2d 72 65 61 64 2d 6f 6e 6c 79 20 74 29 ...........(inhibit-read-only.t)
182c0 29 0a 20 20 20 20 20 20 28 72 65 6d 6f 76 65 2d 6f 76 65 72 6c 61 79 73 20 62 65 67 20 65 6e 64 ).......(remove-overlays.beg.end
182e0 29 0a 20 20 20 20 20 20 28 72 65 6d 6f 76 65 2d 74 65 78 74 2d 70 72 6f 70 65 72 74 69 65 73 20 ).......(remove-text-properties.
18300 62 65 67 20 65 6e 64 20 27 28 63 61 6c 69 62 72 65 64 62 2d 6d 61 72 6b 20 6e 69 6c 29 29 29 29 beg.end.'(calibredb-mark.nil))))
18320 29 0a 0a 28 64 65 66 6d 61 63 72 6f 20 63 61 6c 69 62 72 65 64 62 2d 73 6f 72 74 2d 62 79 20 28 )..(defmacro.calibredb-sort-by.(
18340 66 69 65 6c 64 29 0a 20 20 22 4d 61 63 72 6f 20 6f 66 20 66 75 6e 63 74 69 6f 6e 73 20 63 61 6c field)..."Macro.of.functions.cal
18360 69 62 72 65 64 62 2d 73 6f 72 74 2d 62 79 2d 2a 2e 0a 41 72 67 75 6d 65 6e 74 20 46 49 45 4c 44 ibredb-sort-by-*..Argument.FIELD
18380 2e 22 0a 20 20 60 28 64 65 66 75 6e 20 2c 28 69 6e 74 65 72 6e 20 28 66 6f 72 6d 61 74 20 22 63 ."...`(defun.,(intern.(format."c
183a0 61 6c 69 62 72 65 64 62 2d 73 6f 72 74 2d 62 79 2d 25 73 22 20 66 69 65 6c 64 29 29 20 28 29 0a alibredb-sort-by-%s".field)).().
183c0 20 20 20 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 0a 20 20 20 20 20 2c 28 66 6f 72 6d 61 74 .....(interactive)......,(format
183e0 20 22 53 6f 72 74 20 62 79 20 25 73 2c 20 72 65 66 72 65 73 68 20 2a 63 61 6c 69 62 72 65 64 62 ."Sort.by.%s,.refresh.*calibredb
18400 2d 73 65 61 72 63 68 2a 2c 20 61 6e 64 20 63 6c 65 61 72 20 66 69 6c 74 65 72 2e 22 20 66 69 65 -search*,.and.clear.filter.".fie
18420 6c 64 29 0a 20 20 20 20 20 28 73 65 74 71 20 63 61 6c 69 62 72 65 64 62 2d 73 6f 72 74 2d 62 79 ld)......(setq.calibredb-sort-by
18440 20 28 71 75 6f 74 65 20 2c 28 69 6e 74 65 72 6e 20 66 69 65 6c 64 29 29 29 0a 20 20 20 20 20 28 .(quote.,(intern.field)))......(
18460 63 61 6c 69 62 72 65 64 62 2d 73 65 61 72 63 68 2d 72 65 66 72 65 73 68 2d 61 6e 64 2d 63 6c 65 calibredb-search-refresh-and-cle
18480 61 72 2d 66 69 6c 74 65 72 29 29 29 0a 0a 28 63 61 6c 69 62 72 65 64 62 2d 73 6f 72 74 2d 62 79 ar-filter)))..(calibredb-sort-by
184a0 20 22 69 64 22 29 0a 28 63 61 6c 69 62 72 65 64 62 2d 73 6f 72 74 2d 62 79 20 22 74 69 74 6c 65 ."id").(calibredb-sort-by."title
184c0 22 29 0a 28 63 61 6c 69 62 72 65 64 62 2d 73 6f 72 74 2d 62 79 20 22 66 6f 72 6d 61 74 22 29 0a ").(calibredb-sort-by."format").
184e0 28 63 61 6c 69 62 72 65 64 62 2d 73 6f 72 74 2d 62 79 20 22 61 75 74 68 6f 72 22 29 0a 28 63 61 (calibredb-sort-by."author").(ca
18500 6c 69 62 72 65 64 62 2d 73 6f 72 74 2d 62 79 20 22 64 61 74 65 22 29 0a 28 63 61 6c 69 62 72 65 libredb-sort-by."date").(calibre
18520 64 62 2d 73 6f 72 74 2d 62 79 20 22 70 75 62 64 61 74 65 22 29 0a 28 63 61 6c 69 62 72 65 64 62 db-sort-by."pubdate").(calibredb
18540 2d 73 6f 72 74 2d 62 79 20 22 74 61 67 22 29 0a 28 63 61 6c 69 62 72 65 64 62 2d 73 6f 72 74 2d -sort-by."tag").(calibredb-sort-
18560 62 79 20 22 73 69 7a 65 22 29 0a 28 63 61 6c 69 62 72 65 64 62 2d 73 6f 72 74 2d 62 79 20 22 6c by."size").(calibredb-sort-by."l
18580 61 6e 67 75 61 67 65 22 29 0a 0a 28 64 65 66 75 6e 20 63 61 6c 69 62 72 65 64 62 2d 74 6f 67 67 anguage")..(defun.calibredb-togg
185a0 6c 65 2d 6f 72 64 65 72 20 28 29 0a 20 20 22 54 6f 67 67 6c 65 20 74 68 65 20 6f 72 64 65 72 20 le-order.()..."Toggle.the.order.
185c0 62 65 74 77 65 65 6e 20 64 65 73 63 65 6e 64 69 6e 67 20 6f 72 20 61 73 63 65 6e 64 69 6e 67 2e between.descending.or.ascending.
185e0 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 0a 20 20 28 69 66 20 28 65 71 20 63 61 6c 69 "...(interactive)...(if.(eq.cali
18600 62 72 65 64 62 2d 6f 72 64 65 72 20 27 64 65 73 63 29 0a 20 20 20 20 20 20 28 73 65 74 71 20 63 bredb-order.'desc).......(setq.c
18620 61 6c 69 62 72 65 64 62 2d 6f 72 64 65 72 20 27 61 73 63 29 0a 20 20 20 20 28 73 65 74 71 20 63 alibredb-order.'asc).....(setq.c
18640 61 6c 69 62 72 65 64 62 2d 6f 72 64 65 72 20 27 64 65 73 63 29 29 0a 20 20 28 63 61 6c 69 62 72 alibredb-order.'desc))...(calibr
18660 65 64 62 2d 73 65 61 72 63 68 2d 72 65 66 72 65 73 68 2d 61 6e 64 2d 63 6c 65 61 72 2d 66 69 6c edb-search-refresh-and-clear-fil
18680 74 65 72 29 29 0a 0a 0a 28 70 72 6f 76 69 64 65 20 27 63 61 6c 69 62 72 65 64 62 2d 73 65 61 72 ter))...(provide.'calibredb-sear
186a0 63 68 29 0a 0a 3b 3b 3b 20 63 61 6c 69 62 72 65 64 62 2d 73 65 61 72 63 68 2e 65 6c 20 65 6e 64 ch)..;;;.calibredb-search.el.end
186c0 73 20 68 65 72 65 0a 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 s.here..........................
186e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
18700 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
18720 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
18740 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
18760 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
18780 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
187a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
187c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
187e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
18800 63 61 6c 69 62 72 65 64 62 2d 32 30 32 34 30 33 33 31 2e 34 30 39 2f 63 61 6c 69 62 72 65 64 62 calibredb-20240331.409/calibredb
18820 2d 64 69 72 65 64 2e 65 6c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -dired.el.......................
18840 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
18860 00 00 00 00 30 30 30 30 36 34 34 00 30 30 30 30 30 30 30 00 30 30 30 30 30 30 30 00 30 30 30 30 ....0000644.0000000.0000000.0000
18880 30 30 30 36 32 36 36 00 30 30 30 30 30 30 30 30 30 30 30 00 30 31 36 31 36 33 00 20 30 00 00 00 0006266.00000000000.016163..0...
188a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
188c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
188e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
18900 00 75 73 74 61 72 20 20 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 .ustar...root...................
18920 00 00 00 00 00 00 00 00 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 .........root...................
18940 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
18960 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
18980 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
189a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
189c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
189e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
18a00 3b 3b 3b 20 63 61 6c 69 62 72 65 64 62 2d 64 69 72 65 64 2e 65 6c 20 2d 2d 2d 20 44 69 72 65 64 ;;;.calibredb-dired.el.---.Dired
18a20 20 73 75 70 70 6f 72 74 20 66 6f 72 20 63 61 6c 69 62 72 65 64 62 20 2d 2a 2d 20 6c 65 78 69 63 .support.for.calibredb.-*-.lexic
18a40 61 6c 2d 62 69 6e 64 69 6e 67 3a 20 74 3b 20 2d 2a 2d 0a 0a 3b 3b 20 43 6f 70 79 72 69 67 68 74 al-binding:.t;.-*-..;;.Copyright
18a60 20 28 43 29 20 32 30 32 30 20 44 61 6d 6f 6e 20 43 68 61 6e 0a 0a 3b 3b 20 41 75 74 68 6f 72 3a .(C).2020.Damon.Chan..;;.Author:
18a80 20 44 61 6d 6f 6e 20 43 68 61 6e 20 3c 65 6c 65 63 6d 69 6e 67 40 67 6d 61 69 6c 2e 63 6f 6d 3e .Damon.Chan.<elecming@gmail.com>
18aa0 0a 3b 3b 20 55 52 4c 3a 20 68 74 74 70 73 3a 2f 2f 67 69 74 68 75 62 2e 63 6f 6d 2f 63 68 65 6e .;;.URL:.https://github.com/chen
18ac0 79 61 6e 6d 69 6e 67 2f 63 61 6c 69 62 72 65 64 62 2e 65 6c 0a 3b 3b 20 4b 65 79 77 6f 72 64 73 yanming/calibredb.el.;;.Keywords
18ae0 3a 20 74 6f 6f 6c 73 0a 3b 3b 20 56 65 72 73 69 6f 6e 3a 20 32 2e 31 32 2e 30 0a 0a 3b 3b 20 54 :.tools.;;.Version:.2.12.0..;;.T
18b00 68 69 73 20 66 69 6c 65 20 69 73 20 4e 4f 54 20 70 61 72 74 20 6f 66 20 47 4e 55 20 45 6d 61 63 his.file.is.NOT.part.of.GNU.Emac
18b20 73 2e 0a 0a 3b 3b 20 54 68 69 73 20 70 72 6f 67 72 61 6d 20 69 73 20 66 72 65 65 20 73 6f 66 74 s...;;.This.program.is.free.soft
18b40 77 61 72 65 3b 20 79 6f 75 20 63 61 6e 20 72 65 64 69 73 74 72 69 62 75 74 65 20 69 74 20 61 6e ware;.you.can.redistribute.it.an
18b60 64 2f 6f 72 20 6d 6f 64 69 66 79 0a 3b 3b 20 69 74 20 75 6e 64 65 72 20 74 68 65 20 74 65 72 6d d/or.modify.;;.it.under.the.term
18b80 73 20 6f 66 20 74 68 65 20 47 4e 55 20 47 65 6e 65 72 61 6c 20 50 75 62 6c 69 63 20 4c 69 63 65 s.of.the.GNU.General.Public.Lice
18ba0 6e 73 65 20 61 73 20 70 75 62 6c 69 73 68 65 64 20 62 79 0a 3b 3b 20 74 68 65 20 46 72 65 65 20 nse.as.published.by.;;.the.Free.
18bc0 53 6f 66 74 77 61 72 65 20 46 6f 75 6e 64 61 74 69 6f 6e 2c 20 65 69 74 68 65 72 20 76 65 72 73 Software.Foundation,.either.vers
18be0 69 6f 6e 20 33 20 6f 66 20 74 68 65 20 4c 69 63 65 6e 73 65 2c 20 6f 72 0a 3b 3b 20 28 61 74 20 ion.3.of.the.License,.or.;;.(at.
18c00 79 6f 75 72 20 6f 70 74 69 6f 6e 29 20 61 6e 79 20 6c 61 74 65 72 20 76 65 72 73 69 6f 6e 2e 0a your.option).any.later.version..
18c20 0a 3b 3b 20 54 68 69 73 20 70 72 6f 67 72 61 6d 20 69 73 20 64 69 73 74 72 69 62 75 74 65 64 20 .;;.This.program.is.distributed.
18c40 69 6e 20 74 68 65 20 68 6f 70 65 20 74 68 61 74 20 69 74 20 77 69 6c 6c 20 62 65 20 75 73 65 66 in.the.hope.that.it.will.be.usef
18c60 75 6c 2c 0a 3b 3b 20 62 75 74 20 57 49 54 48 4f 55 54 20 41 4e 59 20 57 41 52 52 41 4e 54 59 3b ul,.;;.but.WITHOUT.ANY.WARRANTY;
18c80 20 77 69 74 68 6f 75 74 20 65 76 65 6e 20 74 68 65 20 69 6d 70 6c 69 65 64 20 77 61 72 72 61 6e .without.even.the.implied.warran
18ca0 74 79 20 6f 66 0a 3b 3b 20 4d 45 52 43 48 41 4e 54 41 42 49 4c 49 54 59 20 6f 72 20 46 49 54 4e ty.of.;;.MERCHANTABILITY.or.FITN
18cc0 45 53 53 20 46 4f 52 20 41 20 50 41 52 54 49 43 55 4c 41 52 20 50 55 52 50 4f 53 45 2e 20 20 53 ESS.FOR.A.PARTICULAR.PURPOSE...S
18ce0 65 65 20 74 68 65 0a 3b 3b 20 47 4e 55 20 47 65 6e 65 72 61 6c 20 50 75 62 6c 69 63 20 4c 69 63 ee.the.;;.GNU.General.Public.Lic
18d00 65 6e 73 65 20 66 6f 72 20 6d 6f 72 65 20 64 65 74 61 69 6c 73 2e 0a 0a 3b 3b 20 59 6f 75 20 73 ense.for.more.details...;;.You.s
18d20 68 6f 75 6c 64 20 68 61 76 65 20 72 65 63 65 69 76 65 64 20 61 20 63 6f 70 79 20 6f 66 20 74 68 hould.have.received.a.copy.of.th
18d40 65 20 47 4e 55 20 47 65 6e 65 72 61 6c 20 50 75 62 6c 69 63 20 4c 69 63 65 6e 73 65 0a 3b 3b 20 e.GNU.General.Public.License.;;.
18d60 61 6c 6f 6e 67 20 77 69 74 68 20 74 68 69 73 20 70 72 6f 67 72 61 6d 2e 20 20 49 66 20 6e 6f 74 along.with.this.program...If.not
18d80 2c 20 73 65 65 20 3c 68 74 74 70 73 3a 2f 2f 77 77 77 2e 67 6e 75 2e 6f 72 67 2f 6c 69 63 65 6e ,.see.<https://www.gnu.org/licen
18da0 73 65 73 2f 3e 2e 0a 0a 3b 3b 3b 20 43 6f 6d 6d 65 6e 74 61 72 79 3a 0a 0a 3b 3b 3b 20 43 6f 64 ses/>...;;;.Commentary:..;;;.Cod
18dc0 65 3a 0a 0a 28 72 65 71 75 69 72 65 20 27 63 61 6c 69 62 72 65 64 62 2d 63 6f 72 65 29 0a 0a 28 e:..(require.'calibredb-core)..(
18de0 65 76 61 6c 2d 77 68 65 6e 2d 63 6f 6d 70 69 6c 65 20 28 64 65 66 76 61 72 20 63 61 6c 69 62 72 eval-when-compile.(defvar.calibr
18e00 65 64 62 2d 73 65 61 72 63 68 2d 65 6e 74 72 69 65 73 29 29 0a 28 65 76 61 6c 2d 77 68 65 6e 2d edb-search-entries)).(eval-when-
18e20 63 6f 6d 70 69 6c 65 20 28 64 65 66 76 61 72 20 63 61 6c 69 62 72 65 64 62 2d 66 75 6c 6c 2d 65 compile.(defvar.calibredb-full-e
18e40 6e 74 72 69 65 73 29 29 0a 28 64 65 63 6c 61 72 65 2d 66 75 6e 63 74 69 6f 6e 20 63 61 6c 69 62 ntries)).(declare-function.calib
18e60 72 65 64 62 2d 73 65 61 72 63 68 2d 63 6c 65 61 72 2d 66 69 6c 74 65 72 20 22 63 61 6c 69 62 72 redb-search-clear-filter."calibr
18e80 65 64 62 2d 73 65 61 72 63 68 2e 65 6c 22 29 0a 0a 28 64 65 66 69 6e 65 2d 6f 62 73 6f 6c 65 74 edb-search.el")..(define-obsolet
18ea0 65 2d 66 75 6e 63 74 69 6f 6e 2d 61 6c 69 61 73 20 23 27 63 61 6c 69 62 72 65 64 62 2d 6f 70 65 e-function-alias.#'calibredb-ope
18ec0 6e 2d 64 69 72 65 64 0a 20 20 27 63 61 6c 69 62 72 65 64 62 2d 64 69 72 65 64 2d 6f 70 65 6e 20 n-dired...'calibredb-dired-open.
18ee0 22 63 61 6c 69 62 72 65 64 62 20 32 2e 31 32 2e 30 22 29 0a 0a 28 64 65 66 75 6e 20 63 61 6c 69 "calibredb.2.12.0")..(defun.cali
18f00 62 72 65 64 62 2d 64 69 72 65 64 2d 6f 70 65 6e 20 28 26 6f 70 74 69 6f 6e 61 6c 20 63 61 6e 64 bredb-dired-open.(&optional.cand
18f20 69 64 61 74 65 20 61 72 67 29 0a 20 20 22 4f 70 65 6e 20 64 69 72 65 64 20 6f 66 20 74 68 65 20 idate.arg)..."Open.dired.of.the.
18f40 73 65 6c 65 63 74 65 64 20 69 74 65 6d 2e 0a 49 66 20 74 68 65 20 75 6e 69 76 65 72 73 61 6c 20 selected.item..If.the.universal.
18f60 70 72 65 66 69 78 20 41 52 47 20 69 73 20 75 73 65 64 20 74 68 65 6e 20 6f 70 65 6e 20 74 68 65 prefix.ARG.is.used.then.open.the
18f80 20 66 6f 6c 64 65 72 0a 63 6f 6e 74 61 69 6e 69 6e 67 20 74 68 65 20 63 75 72 72 65 6e 74 20 66 .folder.containing.the.current.f
18fa0 69 6c 65 20 62 79 20 74 68 65 20 64 65 66 61 75 6c 74 20 65 78 70 6c 6f 72 65 72 2e 0a 4f 70 74 ile.by.the.default.explorer..Opt
18fc0 69 6f 6e 61 6c 20 61 72 67 75 6d 65 6e 74 20 43 41 4e 44 49 44 41 54 45 20 69 73 20 74 68 65 20 ional.argument.CANDIDATE.is.the.
18fe0 73 65 6c 65 63 74 65 64 20 69 74 65 6d 2e 0a 4f 70 65 6e 73 20 61 20 64 69 72 65 64 20 62 75 66 selected.item..Opens.a.dired.buf
19000 66 65 72 20 69 6e 20 46 49 4c 45 27 73 20 64 69 72 65 63 74 6f 72 79 2e 20 20 49 66 20 46 49 4c fer.in.FILE's.directory...If.FIL
19020 45 20 69 73 20 61 0a 64 69 72 65 63 74 6f 72 79 2c 20 6f 70 65 6e 20 74 68 69 73 20 64 69 72 65 E.is.a.directory,.open.this.dire
19040 63 74 6f 72 79 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 0a 20 20 20 28 6c 69 73 74 20 ctory."...(interactive....(list.
19060 28 63 61 72 20 28 63 61 6c 69 62 72 65 64 62 2d 66 69 6e 64 2d 63 61 6e 64 69 64 61 74 65 2d 61 (car.(calibredb-find-candidate-a
19080 74 2d 70 6f 69 6e 74 29 29 0a 20 20 20 20 20 20 20 20 20 63 75 72 72 65 6e 74 2d 70 72 65 66 69 t-point))..........current-prefi
190a0 78 2d 61 72 67 29 29 0a 20 20 28 69 66 20 63 75 72 72 65 6e 74 2d 70 72 65 66 69 78 2d 61 72 67 x-arg))...(if.current-prefix-arg
190c0 0a 20 20 20 20 20 20 28 63 61 6c 69 62 72 65 64 62 2d 6f 70 65 6e 2d 77 69 74 68 2d 64 65 66 61 .......(calibredb-open-with-defa
190e0 75 6c 74 2d 74 6f 6f 6c 20 28 66 69 6c 65 2d 6e 61 6d 65 2d 64 69 72 65 63 74 6f 72 79 20 28 63 ult-tool.(file-name-directory.(c
19100 61 6c 69 62 72 65 64 62 2d 67 65 74 2d 66 69 6c 65 2d 70 61 74 68 20 63 61 6e 64 69 64 61 74 65 alibredb-get-file-path.candidate
19120 20 74 29 20 29 29 0a 20 20 20 20 28 6c 65 74 20 28 28 66 69 6c 65 20 28 63 61 6c 69 62 72 65 64 .t).)).....(let.((file.(calibred
19140 62 2d 67 65 74 61 74 74 72 20 63 61 6e 64 69 64 61 74 65 20 3a 66 69 6c 65 2d 70 61 74 68 29 29 b-getattr.candidate.:file-path))
19160 29 0a 20 20 20 20 20 20 28 69 66 20 28 66 69 6c 65 2d 64 69 72 65 63 74 6f 72 79 2d 70 20 66 69 ).......(if.(file-directory-p.fi
19180 6c 65 29 0a 20 20 20 20 20 20 20 20 20 20 28 64 69 72 65 64 20 66 69 6c 65 29 0a 20 20 20 20 20 le)...........(dired.file)......
191a0 20 20 20 28 64 69 72 65 64 20 28 66 69 6c 65 2d 6e 61 6d 65 2d 64 69 72 65 63 74 6f 72 79 20 66 ...(dired.(file-name-directory.f
191c0 69 6c 65 29 29 0a 20 20 20 20 20 20 20 20 28 64 69 72 65 64 2d 67 6f 74 6f 2d 66 69 6c 65 20 66 ile)).........(dired-goto-file.f
191e0 69 6c 65 29 29 29 29 29 0a 0a 0a 28 64 65 66 75 6e 20 63 61 6c 69 62 72 65 64 62 2d 64 69 72 65 ile)))))...(defun.calibredb-dire
19200 64 2d 61 64 64 20 28 29 0a 20 20 22 41 64 64 20 6d 61 72 6b 65 64 20 66 69 6c 65 73 20 69 6e 20 d-add.()..."Add.marked.files.in.
19220 64 69 72 65 64 20 74 6f 20 63 75 72 72 65 6e 74 20 63 61 6c 69 62 72 65 20 6c 69 62 72 61 72 79 dired.to.current.calibre.library
19240 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 0a 20 20 28 69 66 20 28 64 65 72 69 76 65 ."...(interactive)...(if.(derive
19260 64 2d 6d 6f 64 65 2d 70 20 27 64 69 72 65 64 2d 6d 6f 64 65 29 0a 20 20 20 20 20 20 28 63 61 6c d-mode-p.'dired-mode).......(cal
19280 69 62 72 65 64 62 2d 64 69 72 65 64 2d 61 64 64 2d 70 72 6f 63 65 73 73 20 28 64 69 72 65 64 2d ibredb-dired-add-process.(dired-
192a0 67 65 74 2d 6d 61 72 6b 65 64 2d 66 69 6c 65 73 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 63 61 6c get-marked-files))))..(defun.cal
192c0 69 62 72 65 64 62 2d 64 69 72 65 64 2d 61 64 64 2d 70 72 6f 63 65 73 73 20 28 66 69 6c 65 73 29 ibredb-dired-add-process.(files)
192e0 0a 20 20 22 54 68 65 20 70 72 6f 63 65 73 73 20 6f 66 20 61 64 64 69 6e 67 20 6d 61 72 6b 65 64 ..."The.process.of.adding.marked
19300 20 46 49 4c 45 53 20 69 6e 20 64 69 72 65 64 20 74 6f 20 63 75 72 72 65 6e 74 20 63 61 6c 69 62 .FILES.in.dired.to.current.calib
19320 72 65 0a 6c 69 62 72 61 72 79 2e 22 0a 20 20 28 6c 65 74 20 28 28 66 69 6c 65 73 20 28 6d 61 70 re.library."...(let.((files.(map
19340 63 6f 6e 63 61 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 61 6d 62 64 61 20 28 concat.................(lambda.(
19360 66 69 6c 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 68 65 6c 6c 2d 71 file)...................(shell-q
19380 75 6f 74 65 2d 61 72 67 75 6d 65 6e 74 20 28 65 78 70 61 6e 64 2d 66 69 6c 65 2d 6e 61 6d 65 20 uote-argument.(expand-file-name.
193a0 66 69 6c 65 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 66 69 6c 65 73 20 22 20 file))).................files.".
193c0 22 29 29 0a 20 20 20 20 20 20 20 20 28 62 75 66 66 65 72 20 28 63 75 72 72 65 6e 74 2d 62 75 66 ")).........(buffer.(current-buf
193e0 66 65 72 29 29 29 0a 20 20 20 20 28 73 65 74 2d 70 72 6f 63 65 73 73 2d 73 65 6e 74 69 6e 65 6c fer))).....(set-process-sentinel
19400 0a 20 20 20 20 20 28 63 61 6c 69 62 72 65 64 62 2d 70 72 6f 63 65 73 73 20 3a 63 6f 6d 6d 61 6e ......(calibredb-process.:comman
19420 64 20 22 61 64 64 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 d."add".........................
19440 3a 69 6e 70 75 74 20 66 69 6c 65 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 :input.files....................
19460 20 20 20 20 20 3a 6c 69 62 72 61 72 79 20 28 69 66 20 63 61 6c 69 62 72 65 64 62 2d 61 64 64 2d .....:library.(if.calibredb-add-
19480 64 75 70 6c 69 63 61 74 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 duplicate.......................
194a0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 6f 72 6d 61 74 20 22 2d 2d 6c 69 62 72 61 72 ...............(format."--librar
194c0 79 2d 70 61 74 68 20 25 73 20 2d 64 22 20 28 63 61 6c 69 62 72 65 64 62 2d 72 6f 6f 74 2d 64 69 y-path.%s.-d".(calibredb-root-di
194e0 72 2d 71 75 6f 74 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 r-quote)).......................
19500 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 6f 72 6d 61 74 20 22 2d 2d 6c 69 62 72 61 72 79 2d .............(format."--library-
19520 70 61 74 68 20 25 73 22 20 28 63 61 6c 69 62 72 65 64 62 2d 72 6f 6f 74 2d 64 69 72 2d 71 75 6f path.%s".(calibredb-root-dir-quo
19540 74 65 29 29 29 29 0a 20 20 20 20 20 28 6c 61 6d 62 64 61 20 28 70 20 65 29 0a 20 20 20 20 20 20 te))))......(lambda.(p.e).......
19560 20 28 77 68 65 6e 20 28 3d 20 30 20 28 70 72 6f 63 65 73 73 2d 65 78 69 74 2d 73 74 61 74 75 73 .(when.(=.0.(process-exit-status
19580 20 70 29 29 0a 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 63 61 6c 69 62 72 65 64 62 2d 73 65 .p))..........(setq.calibredb-se
195a0 61 72 63 68 2d 65 6e 74 72 69 65 73 20 28 63 61 6c 69 62 72 65 64 62 2d 63 61 6e 64 69 64 61 74 arch-entries.(calibredb-candidat
195c0 65 73 29 29 0a 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 63 61 6c 69 62 72 65 64 62 2d 66 75 es))..........(setq.calibredb-fu
195e0 6c 6c 2d 65 6e 74 72 69 65 73 20 63 61 6c 69 62 72 65 64 62 2d 73 65 61 72 63 68 2d 65 6e 74 72 ll-entries.calibredb-search-entr
19600 69 65 73 29 0a 20 20 20 20 20 20 20 20 20 28 63 61 6c 69 62 72 65 64 62 2d 73 65 61 72 63 68 2d ies)..........(calibredb-search-
19620 63 6c 65 61 72 2d 66 69 6c 74 65 72 29 0a 20 20 20 20 20 20 20 20 20 28 77 69 74 68 2d 63 75 72 clear-filter)..........(with-cur
19640 72 65 6e 74 2d 62 75 66 66 65 72 20 62 75 66 66 65 72 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 rent-buffer.buffer..............
19660 28 64 69 72 65 64 2d 64 6f 2d 64 65 6c 65 74 65 29 29 29 29 29 29 29 0a 0a 28 70 72 6f 76 69 64 (dired-do-delete)))))))..(provid
19680 65 20 27 63 61 6c 69 62 72 65 64 62 2d 64 69 72 65 64 29 0a 0a 3b 3b 3b 20 63 61 6c 69 62 72 65 e.'calibredb-dired)..;;;.calibre
196a0 64 62 2d 64 69 72 65 64 2e 65 6c 20 65 6e 64 73 20 68 65 72 65 0a 00 00 00 00 00 00 00 00 00 00 db-dired.el.ends.here...........
196c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
196e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
19700 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
19720 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
19740 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
19760 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
19780 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
197a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
197c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
197e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
19800 63 61 6c 69 62 72 65 64 62 2d 32 30 32 34 30 33 33 31 2e 34 30 39 2f 63 61 6c 69 62 72 65 64 62 calibredb-20240331.409/calibredb
19820 2d 74 72 61 6e 73 69 65 6e 74 2e 65 6c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -transient.el...................
19840 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
19860 00 00 00 00 30 30 30 30 36 34 34 00 30 30 30 30 30 30 30 00 30 30 30 30 30 30 30 00 30 30 30 30 ....0000644.0000000.0000000.0000
19880 30 30 34 35 33 35 32 00 30 30 30 30 30 30 30 30 30 30 30 00 30 31 37 31 30 32 00 20 30 00 00 00 0045352.00000000000.017102..0...
198a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
198c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
198e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
19900 00 75 73 74 61 72 20 20 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 .ustar...root...................
19920 00 00 00 00 00 00 00 00 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 .........root...................
19940 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
19960 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
19980 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
199a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
199c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
199e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
19a00 3b 3b 3b 20 63 61 6c 69 62 72 65 64 62 2d 74 72 61 6e 73 69 65 6e 74 2e 65 6c 20 2d 2d 2d 20 54 ;;;.calibredb-transient.el.---.T
19a20 72 61 6e 73 69 65 6e 74 20 66 6f 72 20 63 61 6c 69 62 72 65 64 62 20 2d 2a 2d 20 6c 65 78 69 63 ransient.for.calibredb.-*-.lexic
19a40 61 6c 2d 62 69 6e 64 69 6e 67 3a 20 74 3b 20 2d 2a 2d 0a 0a 3b 3b 20 43 6f 70 79 72 69 67 68 74 al-binding:.t;.-*-..;;.Copyright
19a60 20 28 43 29 20 32 30 32 30 20 44 61 6d 6f 6e 20 43 68 61 6e 0a 0a 3b 3b 20 41 75 74 68 6f 72 3a .(C).2020.Damon.Chan..;;.Author:
19a80 20 44 61 6d 6f 6e 20 43 68 61 6e 20 3c 65 6c 65 63 6d 69 6e 67 40 67 6d 61 69 6c 2e 63 6f 6d 3e .Damon.Chan.<elecming@gmail.com>
19aa0 0a 3b 3b 20 55 52 4c 3a 20 68 74 74 70 73 3a 2f 2f 67 69 74 68 75 62 2e 63 6f 6d 2f 63 68 65 6e .;;.URL:.https://github.com/chen
19ac0 79 61 6e 6d 69 6e 67 2f 63 61 6c 69 62 72 65 64 62 2e 65 6c 0a 3b 3b 20 4b 65 79 77 6f 72 64 73 yanming/calibredb.el.;;.Keywords
19ae0 3a 20 74 6f 6f 6c 73 0a 3b 3b 20 56 65 72 73 69 6f 6e 3a 20 32 2e 31 32 2e 30 0a 0a 3b 3b 20 54 :.tools.;;.Version:.2.12.0..;;.T
19b00 68 69 73 20 66 69 6c 65 20 69 73 20 4e 4f 54 20 70 61 72 74 20 6f 66 20 47 4e 55 20 45 6d 61 63 his.file.is.NOT.part.of.GNU.Emac
19b20 73 2e 0a 0a 3b 3b 20 54 68 69 73 20 70 72 6f 67 72 61 6d 20 69 73 20 66 72 65 65 20 73 6f 66 74 s...;;.This.program.is.free.soft
19b40 77 61 72 65 3b 20 79 6f 75 20 63 61 6e 20 72 65 64 69 73 74 72 69 62 75 74 65 20 69 74 20 61 6e ware;.you.can.redistribute.it.an
19b60 64 2f 6f 72 20 6d 6f 64 69 66 79 0a 3b 3b 20 69 74 20 75 6e 64 65 72 20 74 68 65 20 74 65 72 6d d/or.modify.;;.it.under.the.term
19b80 73 20 6f 66 20 74 68 65 20 47 4e 55 20 47 65 6e 65 72 61 6c 20 50 75 62 6c 69 63 20 4c 69 63 65 s.of.the.GNU.General.Public.Lice
19ba0 6e 73 65 20 61 73 20 70 75 62 6c 69 73 68 65 64 20 62 79 0a 3b 3b 20 74 68 65 20 46 72 65 65 20 nse.as.published.by.;;.the.Free.
19bc0 53 6f 66 74 77 61 72 65 20 46 6f 75 6e 64 61 74 69 6f 6e 2c 20 65 69 74 68 65 72 20 76 65 72 73 Software.Foundation,.either.vers
19be0 69 6f 6e 20 33 20 6f 66 20 74 68 65 20 4c 69 63 65 6e 73 65 2c 20 6f 72 0a 3b 3b 20 28 61 74 20 ion.3.of.the.License,.or.;;.(at.
19c00 79 6f 75 72 20 6f 70 74 69 6f 6e 29 20 61 6e 79 20 6c 61 74 65 72 20 76 65 72 73 69 6f 6e 2e 0a your.option).any.later.version..
19c20 0a 3b 3b 20 54 68 69 73 20 70 72 6f 67 72 61 6d 20 69 73 20 64 69 73 74 72 69 62 75 74 65 64 20 .;;.This.program.is.distributed.
19c40 69 6e 20 74 68 65 20 68 6f 70 65 20 74 68 61 74 20 69 74 20 77 69 6c 6c 20 62 65 20 75 73 65 66 in.the.hope.that.it.will.be.usef
19c60 75 6c 2c 0a 3b 3b 20 62 75 74 20 57 49 54 48 4f 55 54 20 41 4e 59 20 57 41 52 52 41 4e 54 59 3b ul,.;;.but.WITHOUT.ANY.WARRANTY;
19c80 20 77 69 74 68 6f 75 74 20 65 76 65 6e 20 74 68 65 20 69 6d 70 6c 69 65 64 20 77 61 72 72 61 6e .without.even.the.implied.warran
19ca0 74 79 20 6f 66 0a 3b 3b 20 4d 45 52 43 48 41 4e 54 41 42 49 4c 49 54 59 20 6f 72 20 46 49 54 4e ty.of.;;.MERCHANTABILITY.or.FITN
19cc0 45 53 53 20 46 4f 52 20 41 20 50 41 52 54 49 43 55 4c 41 52 20 50 55 52 50 4f 53 45 2e 20 20 53 ESS.FOR.A.PARTICULAR.PURPOSE...S
19ce0 65 65 20 74 68 65 0a 3b 3b 20 47 4e 55 20 47 65 6e 65 72 61 6c 20 50 75 62 6c 69 63 20 4c 69 63 ee.the.;;.GNU.General.Public.Lic
19d00 65 6e 73 65 20 66 6f 72 20 6d 6f 72 65 20 64 65 74 61 69 6c 73 2e 0a 0a 3b 3b 20 59 6f 75 20 73 ense.for.more.details...;;.You.s
19d20 68 6f 75 6c 64 20 68 61 76 65 20 72 65 63 65 69 76 65 64 20 61 20 63 6f 70 79 20 6f 66 20 74 68 hould.have.received.a.copy.of.th
19d40 65 20 47 4e 55 20 47 65 6e 65 72 61 6c 20 50 75 62 6c 69 63 20 4c 69 63 65 6e 73 65 0a 3b 3b 20 e.GNU.General.Public.License.;;.
19d60 61 6c 6f 6e 67 20 77 69 74 68 20 74 68 69 73 20 70 72 6f 67 72 61 6d 2e 20 20 49 66 20 6e 6f 74 along.with.this.program...If.not
19d80 2c 20 73 65 65 20 3c 68 74 74 70 73 3a 2f 2f 77 77 77 2e 67 6e 75 2e 6f 72 67 2f 6c 69 63 65 6e ,.see.<https://www.gnu.org/licen
19da0 73 65 73 2f 3e 2e 0a 0a 3b 3b 3b 20 43 6f 6d 6d 65 6e 74 61 72 79 3a 0a 0a 3b 3b 3b 20 43 6f 64 ses/>...;;;.Commentary:..;;;.Cod
19dc0 65 3a 0a 0a 28 72 65 71 75 69 72 65 20 27 63 61 6c 69 62 72 65 64 62 2d 63 6f 72 65 29 0a 0a 28 e:..(require.'calibredb-core)..(
19de0 64 65 63 6c 61 72 65 2d 66 75 6e 63 74 69 6f 6e 20 63 61 6c 69 62 72 65 64 62 2d 67 65 74 2d 69 declare-function.calibredb-get-i
19e00 6e 69 74 20 22 63 61 6c 69 62 72 65 64 62 2d 75 74 69 6c 73 2e 65 6c 22 29 0a 28 64 65 63 6c 61 nit."calibredb-utils.el").(decla
19e20 72 65 2d 66 75 6e 63 74 69 6f 6e 20 63 61 6c 69 62 72 65 64 62 2d 66 69 6e 64 2d 6d 61 72 6b 65 re-function.calibredb-find-marke
19e40 64 2d 63 61 6e 64 69 64 61 74 65 73 20 22 63 61 6c 69 62 72 65 64 62 2d 75 74 69 6c 73 2e 65 6c d-candidates."calibredb-utils.el
19e60 22 29 0a 28 64 65 63 6c 61 72 65 2d 66 75 6e 63 74 69 6f 6e 20 63 61 6c 69 62 72 65 64 62 2d 72 ").(declare-function.calibredb-r
19e80 67 61 20 22 63 61 6c 69 62 72 65 64 62 2d 69 76 79 2e 65 6c 22 29 0a 28 64 65 63 6c 61 72 65 2d ga."calibredb-ivy.el").(declare-
19ea0 66 75 6e 63 74 69 6f 6e 20 63 61 6c 69 62 72 65 64 62 2d 76 69 72 74 75 61 6c 2d 6c 69 62 72 61 function.calibredb-virtual-libra
19ec0 72 79 2d 6c 69 73 74 20 22 63 61 6c 69 62 72 65 64 62 2d 6c 69 62 72 61 72 79 2e 65 6c 22 29 0a ry-list."calibredb-library.el").
19ee0 28 64 65 63 6c 61 72 65 2d 66 75 6e 63 74 69 6f 6e 20 63 61 6c 69 62 72 65 64 62 2d 76 69 72 74 (declare-function.calibredb-virt
19f00 75 61 6c 2d 6c 69 62 72 61 72 79 2d 6e 65 78 74 20 22 63 61 6c 69 62 72 65 64 62 2d 6c 69 62 72 ual-library-next."calibredb-libr
19f20 61 72 79 2e 65 6c 22 29 0a 28 64 65 63 6c 61 72 65 2d 66 75 6e 63 74 69 6f 6e 20 63 61 6c 69 62 ary.el").(declare-function.calib
19f40 72 65 64 62 2d 76 69 72 74 75 61 6c 2d 6c 69 62 72 61 72 79 2d 70 72 65 76 69 6f 75 73 20 22 63 redb-virtual-library-previous."c
19f60 61 6c 69 62 72 65 64 62 2d 6c 69 62 72 61 72 79 2e 65 6c 22 29 0a 0a 3b 3b 20 54 72 61 6e 73 69 alibredb-library.el")..;;.Transi
19f80 65 6e 74 20 64 69 73 70 61 74 63 68 0a 0a 28 74 72 61 6e 73 69 65 6e 74 2d 64 65 66 69 6e 65 2d ent.dispatch..(transient-define-
19fa0 70 72 65 66 69 78 20 63 61 6c 69 62 72 65 64 62 2d 64 69 73 70 61 74 63 68 20 28 29 0a 20 20 22 prefix.calibredb-dispatch.()..."
19fc0 49 6e 76 6f 6b 65 20 61 20 63 61 6c 69 62 72 65 64 62 20 63 6f 6d 6d 61 6e 64 20 66 72 6f 6d 20 Invoke.a.calibredb.command.from.
19fe0 61 20 6c 69 73 74 20 6f 66 20 61 76 61 69 6c 61 62 6c 65 20 63 6f 6d 6d 61 6e 64 73 20 69 6e 20 a.list.of.available.commands.in.
1a000 2a 63 61 6c 69 62 72 65 64 62 2d 73 65 61 72 63 68 2a 2e 22 0a 20 20 3a 6d 61 6e 2d 70 61 67 65 *calibredb-search*."...:man-page
1a020 20 22 63 61 6c 69 62 72 65 64 62 22 0a 20 20 5b 22 46 69 6c 65 20 6f 70 65 72 61 74 69 6f 6e 22 ."calibredb"...["File.operation"
1a040 0a 20 20 20 5b 28 22 61 22 20 22 41 64 64 20 61 20 66 69 6c 65 22 20 20 20 63 61 6c 69 62 72 65 ....[("a"."Add.a.file"...calibre
1a060 64 62 2d 61 64 64 29 0a 20 20 20 20 28 22 41 22 20 22 41 64 64 20 61 20 64 69 72 65 63 74 6f 72 db-add).....("A"."Add.a.director
1a080 79 22 20 20 20 63 61 6c 69 62 72 65 64 62 2d 61 64 64 2d 64 69 72 29 0a 20 20 20 20 28 22 64 22 y"...calibredb-add-dir).....("d"
1a0a0 20 22 52 65 6d 6f 76 65 20 61 20 66 69 6c 65 22 20 20 20 63 61 6c 69 62 72 65 64 62 2d 72 65 6d ."Remove.a.file"...calibredb-rem
1a0c0 6f 76 65 29 0a 20 20 20 20 28 22 65 22 20 22 45 78 70 6f 72 74 22 20 63 61 6c 69 62 72 65 64 62 ove).....("e"."Export".calibredb
1a0e0 2d 65 78 70 6f 72 74 2d 64 69 73 70 61 74 63 68 29 0a 20 20 20 20 28 22 73 22 20 22 73 65 74 5f -export-dispatch).....("s"."set_
1a100 6d 65 74 61 64 61 74 61 22 20 20 20 63 61 6c 69 62 72 65 64 62 2d 73 65 74 2d 6d 65 74 61 64 61 metadata"...calibredb-set-metada
1a120 74 61 2d 64 69 73 70 61 74 63 68 29 0a 20 20 20 20 28 22 67 22 20 22 66 69 6c 74 65 72 22 20 20 ta-dispatch).....("g"."filter"..
1a140 20 63 61 6c 69 62 72 65 64 62 2d 66 69 6c 74 65 72 2d 64 69 73 70 61 74 63 68 29 0a 20 20 20 20 .calibredb-filter-dispatch).....
1a160 28 22 6f 22 20 22 73 6f 72 74 22 20 20 20 63 61 6c 69 62 72 65 64 62 2d 73 6f 72 74 2d 64 69 73 ("o"."sort"...calibredb-sort-dis
1a180 70 61 74 63 68 29 5d 0a 20 20 20 5b 28 22 52 45 54 22 20 22 4f 70 65 6e 20 66 69 6c 65 22 20 20 patch)]....[("RET"."Open.file"..
1a1a0 20 20 20 20 20 20 20 63 61 6c 69 62 72 65 64 62 2d 66 69 6e 64 2d 66 69 6c 65 29 0a 20 20 20 20 .......calibredb-find-file).....
1a1c0 28 22 4f 22 20 22 4f 70 65 6e 20 66 69 6c 65 20 6f 74 68 65 72 20 66 72 61 6d 65 22 20 20 20 20 ("O"."Open.file.other.frame"....
1a1e0 20 20 20 20 20 20 20 20 63 61 6c 69 62 72 65 64 62 2d 66 69 6e 64 2d 66 69 6c 65 2d 6f 74 68 65 ........calibredb-find-file-othe
1a200 72 2d 66 72 61 6d 65 29 0a 20 20 20 20 28 22 76 22 20 22 56 69 65 77 20 64 65 74 61 69 6c 73 22 r-frame).....("v"."View.details"
1a220 20 20 63 61 6c 69 62 72 65 64 62 2d 76 69 65 77 29 0a 20 20 20 20 28 22 56 22 20 22 4f 70 65 6e ..calibredb-view).....("V"."Open
1a240 20 66 69 6c 65 20 77 69 74 68 20 64 65 66 61 75 6c 74 20 74 6f 6f 6c 22 20 20 63 61 6c 69 62 72 .file.with.default.tool"..calibr
1a260 65 64 62 2d 6f 70 65 6e 2d 66 69 6c 65 2d 77 69 74 68 2d 64 65 66 61 75 6c 74 2d 74 6f 6f 6c 29 edb-open-file-with-default-tool)
1a280 0a 20 20 20 20 28 22 2c 22 20 22 51 75 69 63 6b 20 4c 6f 6f 6b 22 20 20 63 61 6c 69 62 72 65 64 .....(","."Quick.Look"..calibred
1a2a0 62 2d 71 75 69 63 6b 2d 6c 6f 6f 6b 29 0a 20 20 20 20 28 22 2e 22 20 22 4f 70 65 6e 20 64 69 72 b-quick-look).....("."."Open.dir
1a2c0 65 64 22 20 20 63 61 6c 69 62 72 65 64 62 2d 6f 70 65 6e 2d 64 69 72 65 64 29 5d 0a 20 20 20 5b ed"..calibredb-open-dired)]....[
1a2e0 28 22 6d 22 20 22 4d 61 72 6b 22 20 63 61 6c 69 62 72 65 64 62 2d 6d 61 72 6b 2d 61 6e 64 2d 66 ("m"."Mark".calibredb-mark-and-f
1a300 6f 72 77 61 72 64 29 0a 20 20 20 20 28 22 75 22 20 22 55 6e 6d 61 72 6b 20 61 6e 64 20 66 6f 72 orward).....("u"."Unmark.and.for
1a320 77 61 72 64 22 20 63 61 6c 69 62 72 65 64 62 2d 75 6e 6d 61 72 6b 2d 61 6e 64 2d 66 6f 72 77 61 ward".calibredb-unmark-and-forwa
1a340 72 64 29 0a 20 20 20 20 28 22 44 45 4c 22 20 22 55 6e 6d 61 72 6b 20 61 6e 64 20 62 61 63 6b 77 rd).....("DEL"."Unmark.and.backw
1a360 61 72 64 22 20 63 61 6c 69 62 72 65 64 62 2d 75 6e 6d 61 72 6b 2d 61 6e 64 2d 62 61 63 6b 77 61 ard".calibredb-unmark-and-backwa
1a380 72 64 29 0a 20 20 20 20 28 22 2a 22 20 22 46 61 76 6f 72 69 74 65 22 20 63 61 6c 69 62 72 65 64 rd).....("*"."Favorite".calibred
1a3a0 62 2d 74 6f 67 67 6c 65 2d 66 61 76 6f 72 69 74 65 2d 61 74 2d 70 6f 69 6e 74 29 0a 20 20 20 20 b-toggle-favorite-at-point).....
1a3c0 28 22 68 22 20 22 48 69 67 68 6c 69 67 68 74 22 20 63 61 6c 69 62 72 65 64 62 2d 74 6f 67 67 6c ("h"."Highlight".calibredb-toggl
1a3e0 65 2d 68 69 67 68 6c 69 67 68 74 2d 61 74 2d 70 6f 69 6e 74 29 0a 20 20 20 20 28 22 78 22 20 22 e-highlight-at-point).....("x"."
1a400 41 72 63 68 69 76 65 22 20 63 61 6c 69 62 72 65 64 62 2d 74 6f 67 67 6c 65 2d 61 72 63 68 69 76 Archive".calibredb-toggle-archiv
1a420 65 2d 61 74 2d 70 6f 69 6e 74 29 5d 5d 0a 20 20 5b 22 4c 69 62 72 61 72 79 20 6f 70 65 72 61 74 e-at-point)]]...["Library.operat
1a440 69 6f 6e 22 0a 20 20 20 5b 28 22 6c 22 20 22 4c 69 73 74 20 56 69 72 74 75 61 6c 20 4c 69 62 72 ion"....[("l"."List.Virtual.Libr
1a460 61 72 69 65 73 22 20 20 20 63 61 6c 69 62 72 65 64 62 2d 76 69 72 74 75 61 6c 2d 6c 69 62 72 61 aries"...calibredb-virtual-libra
1a480 72 79 2d 6c 69 73 74 29 0a 20 20 20 20 28 22 6e 22 20 22 4e 65 78 74 20 56 69 72 74 75 61 6c 20 ry-list).....("n"."Next.Virtual.
1a4a0 4c 69 62 72 61 72 79 22 20 20 20 63 61 6c 69 62 72 65 64 62 2d 76 69 72 74 75 61 6c 2d 6c 69 62 Library"...calibredb-virtual-lib
1a4c0 72 61 72 79 2d 6e 65 78 74 29 0a 20 20 20 20 28 22 70 22 20 22 50 72 65 76 69 6f 75 73 20 56 69 rary-next).....("p"."Previous.Vi
1a4e0 72 74 75 61 6c 20 4c 69 62 72 61 72 79 22 20 20 20 63 61 6c 69 62 72 65 64 62 2d 76 69 72 74 75 rtual.Library"...calibredb-virtu
1a500 61 6c 2d 6c 69 62 72 61 72 79 2d 70 72 65 76 69 6f 75 73 29 5d 0a 20 20 20 5b 28 22 4c 22 20 22 al-library-previous)]....[("L"."
1a520 4c 69 73 74 20 4c 69 62 72 61 72 69 65 73 22 20 20 20 63 61 6c 69 62 72 65 64 62 2d 6c 69 62 72 List.Libraries"...calibredb-libr
1a540 61 72 79 2d 6c 69 73 74 29 0a 20 20 20 20 28 22 4e 22 20 22 4e 65 78 74 20 4c 69 62 72 61 72 79 ary-list).....("N"."Next.Library
1a560 22 20 20 20 63 61 6c 69 62 72 65 64 62 2d 6c 69 62 72 61 72 79 2d 6e 65 78 74 29 0a 20 20 20 20 "...calibredb-library-next).....
1a580 28 22 50 22 20 22 50 72 65 76 69 6f 75 73 20 4c 69 62 72 61 72 79 22 20 20 20 63 61 6c 69 62 72 ("P"."Previous.Library"...calibr
1a5a0 65 64 62 2d 6c 69 62 72 61 72 79 2d 70 72 65 76 69 6f 75 73 29 0a 20 20 20 20 28 22 53 22 20 22 edb-library-previous).....("S"."
1a5c0 53 77 69 74 63 68 20 4c 69 62 72 61 72 79 22 20 20 20 63 61 6c 69 62 72 65 64 62 2d 73 77 69 74 Switch.Library"...calibredb-swit
1a5e0 63 68 2d 6c 69 62 72 61 72 79 29 5d 0a 20 20 20 5b 28 22 63 22 20 22 43 6c 6f 6e 65 20 4c 69 62 ch-library)]....[("c"."Clone.Lib
1a600 72 61 72 79 22 20 20 20 63 61 6c 69 62 72 65 64 62 2d 63 6c 6f 6e 65 29 0a 20 20 20 20 28 22 72 rary"...calibredb-clone).....("r
1a620 22 20 22 52 65 66 72 65 73 68 20 4c 69 62 72 61 72 79 22 20 20 20 63 61 6c 69 62 72 65 64 62 2d "."Refresh.Library"...calibredb-
1a640 73 65 61 72 63 68 2d 72 65 66 72 65 73 68 2d 61 6e 64 2d 63 6c 65 61 72 2d 66 69 6c 74 65 72 29 search-refresh-and-clear-filter)
1a660 0a 20 20 20 20 28 22 52 22 20 22 43 6c 65 61 72 20 46 69 6c 74 65 72 22 20 20 20 63 61 6c 69 62 .....("R"."Clear.Filter"...calib
1a680 72 65 64 62 2d 73 65 61 72 63 68 2d 63 6c 65 61 72 2d 66 69 6c 74 65 72 29 0a 20 20 20 20 28 22 redb-search-clear-filter).....("
1a6a0 74 22 20 22 54 6f 67 67 6c 65 20 76 69 65 77 20 28 43 6f 6d 70 61 63 74 2f 44 65 74 61 69 6c 29 t"."Toggle.view.(Compact/Detail)
1a6c0 22 20 20 20 63 61 6c 69 62 72 65 64 62 2d 74 6f 67 67 6c 65 2d 76 69 65 77 29 5d 5d 0a 20 20 5b "...calibredb-toggle-view)]]...[
1a6e0 22 4f 74 68 65 72 20 6f 70 65 72 61 74 69 6f 6e 22 0a 20 20 20 5b 28 22 62 22 20 22 42 69 62 54 "Other.operation"....[("b"."BibT
1a700 65 78 22 20 20 20 63 61 6c 69 62 72 65 64 62 2d 63 61 74 61 6c 6f 67 2d 62 69 62 2d 64 69 73 70 ex"...calibredb-catalog-bib-disp
1a720 61 74 63 68 29 0a 20 20 20 20 28 22 69 22 20 22 45 64 69 74 20 41 6e 6e 6f 74 61 74 69 6f 6e 22 atch).....("i"."Edit.Annotation"
1a740 20 63 61 6c 69 62 72 65 64 62 2d 65 64 69 74 2d 61 6e 6e 6f 74 61 74 69 6f 6e 29 5d 0a 20 20 20 .calibredb-edit-annotation)]....
1a760 5b 28 22 27 22 20 22 53 65 61 72 63 68 20 77 69 74 68 20 72 67 61 22 20 63 61 6c 69 62 72 65 64 [("'"."Search.with.rga".calibred
1a780 62 2d 72 67 61 29 0a 20 20 20 20 28 22 2f 22 20 22 4c 69 76 65 20 46 69 6c 74 65 72 22 20 63 61 b-rga).....("/"."Live.Filter".ca
1a7a0 6c 69 62 72 65 64 62 2d 73 65 61 72 63 68 2d 6c 69 76 65 2d 66 69 6c 74 65 72 29 5d 0a 20 20 20 libredb-search-live-filter)]....
1a7c0 5b 28 22 79 22 20 22 59 61 6e 6b 22 20 63 61 6c 69 62 72 65 64 62 2d 79 61 6e 6b 2d 64 69 73 70 [("y"."Yank".calibredb-yank-disp
1a7e0 61 74 63 68 29 5d 5d 0a 20 20 5b 28 22 71 22 20 22 51 75 69 74 22 20 20 20 74 72 61 6e 73 69 65 atch)]]...[("q"."Quit"...transie
1a800 6e 74 2d 71 75 69 74 2d 6f 6e 65 29 5d 29 0a 0a 28 74 72 61 6e 73 69 65 6e 74 2d 64 65 66 69 6e nt-quit-one)])..(transient-defin
1a820 65 2d 70 72 65 66 69 78 20 63 61 6c 69 62 72 65 64 62 2d 65 6e 74 72 79 2d 64 69 73 70 61 74 63 e-prefix.calibredb-entry-dispatc
1a840 68 20 28 29 0a 20 20 22 49 6e 76 6f 6b 65 20 61 20 63 61 6c 69 62 72 65 64 62 20 63 6f 6d 6d 61 h.()..."Invoke.a.calibredb.comma
1a860 6e 64 20 66 72 6f 6d 20 61 20 6c 69 73 74 20 6f 66 20 61 76 61 69 6c 61 62 6c 65 20 63 6f 6d 6d nd.from.a.list.of.available.comm
1a880 61 6e 64 73 20 69 6e 20 2a 63 61 6c 69 62 72 65 64 62 2d 65 6e 74 72 79 2a 2e 22 0a 20 20 3a 6d ands.in.*calibredb-entry*."...:m
1a8a0 61 6e 2d 70 61 67 65 20 22 63 61 6c 69 62 72 65 64 62 22 0a 20 20 5b 22 46 69 6c 65 20 6f 70 65 an-page."calibredb"...["File.ope
1a8c0 72 61 74 69 6f 6e 22 0a 20 20 20 5b 28 22 6f 22 20 22 4f 70 65 6e 20 66 69 6c 65 22 20 20 20 20 ration"....[("o"."Open.file"....
1a8e0 20 20 20 20 20 63 61 6c 69 62 72 65 64 62 2d 66 69 6e 64 2d 66 69 6c 65 29 0a 20 20 20 20 28 22 .....calibredb-find-file).....("
1a900 4f 22 20 22 4f 70 65 6e 20 66 69 6c 65 20 6f 74 68 65 72 20 66 72 61 6d 65 22 20 20 20 20 20 20 O"."Open.file.other.frame"......
1a920 20 20 20 20 20 20 63 61 6c 69 62 72 65 64 62 2d 66 69 6e 64 2d 66 69 6c 65 2d 6f 74 68 65 72 2d ......calibredb-find-file-other-
1a940 66 72 61 6d 65 29 0a 20 20 20 20 28 22 56 22 20 22 4f 70 65 6e 20 66 69 6c 65 20 77 69 74 68 20 frame).....("V"."Open.file.with.
1a960 64 65 66 61 75 6c 74 20 74 6f 6f 6c 22 20 20 63 61 6c 69 62 72 65 64 62 2d 6f 70 65 6e 2d 66 69 default.tool"..calibredb-open-fi
1a980 6c 65 2d 77 69 74 68 2d 64 65 66 61 75 6c 74 2d 74 6f 6f 6c 29 0a 20 20 20 20 28 22 2e 22 20 22 le-with-default-tool).....("."."
1a9a0 51 75 69 63 6b 20 4c 6f 6f 6b 22 20 20 63 61 6c 69 62 72 65 64 62 2d 71 75 69 63 6b 2d 6c 6f 6f Quick.Look"..calibredb-quick-loo
1a9c0 6b 29 0a 20 20 20 20 28 22 2e 22 20 22 4f 70 65 6e 20 64 69 72 65 64 22 20 20 63 61 6c 69 62 72 k).....("."."Open.dired"..calibr
1a9e0 65 64 62 2d 6f 70 65 6e 2d 64 69 72 65 64 29 5d 0a 20 20 20 5b 28 22 65 22 20 22 45 78 70 6f 72 edb-open-dired)]....[("e"."Expor
1aa00 74 22 20 63 61 6c 69 62 72 65 64 62 2d 65 78 70 6f 72 74 2d 64 69 73 70 61 74 63 68 29 0a 20 20 t".calibredb-export-dispatch)...
1aa20 20 20 28 22 73 22 20 22 73 65 74 5f 6d 65 74 61 64 61 74 61 22 20 20 20 63 61 6c 69 62 72 65 64 ..("s"."set_metadata"...calibred
1aa40 62 2d 73 65 74 2d 6d 65 74 61 64 61 74 61 2d 64 69 73 70 61 74 63 68 29 0a 20 20 20 20 28 22 79 b-set-metadata-dispatch).....("y
1aa60 22 20 22 59 61 6e 6b 22 20 20 20 63 61 6c 69 62 72 65 64 62 2d 79 61 6e 6b 2d 64 69 73 70 61 74 "."Yank"...calibredb-yank-dispat
1aa80 63 68 29 0a 20 20 20 20 28 22 27 22 20 22 53 65 61 72 63 68 20 77 69 74 68 20 72 67 61 22 20 63 ch).....("'"."Search.with.rga".c
1aaa0 61 6c 69 62 72 65 64 62 2d 72 67 61 29 5d 5d 0a 20 20 5b 28 22 71 22 20 22 51 75 69 74 22 20 20 alibredb-rga)]]...[("q"."Quit"..
1aac0 20 74 72 61 6e 73 69 65 6e 74 2d 71 75 69 74 2d 6f 6e 65 29 5d 29 0a 0a 28 74 72 61 6e 73 69 65 .transient-quit-one)])..(transie
1aae0 6e 74 2d 64 65 66 69 6e 65 2d 70 72 65 66 69 78 20 63 61 6c 69 62 72 65 64 62 2d 73 65 74 2d 6d nt-define-prefix.calibredb-set-m
1ab00 65 74 61 64 61 74 61 2d 64 69 73 70 61 74 63 68 20 28 29 0a 20 20 22 44 69 73 70 61 74 63 68 20 etadata-dispatch.()..."Dispatch.
1ab20 66 6f 72 20 73 65 74 2d 6d 65 74 61 64 61 74 61 2e 22 0a 20 20 5b 22 41 72 67 75 6d 65 6e 74 73 for.set-metadata."...["Arguments
1ab40 22 0a 20 20 20 28 22 2d 61 22 20 22 61 75 74 68 6f 72 5f 73 6f 72 74 22 20 20 22 61 75 74 68 6f "....("-a"."author_sort".."autho
1ab60 72 5f 73 6f 72 74 3a 22 20 63 61 6c 69 62 72 65 64 62 2d 74 72 61 6e 73 69 65 6e 74 2d 72 65 61 r_sort:".calibredb-transient-rea
1ab80 64 2d 6d 65 74 61 64 61 74 61 2d 61 75 74 68 6f 72 2d 73 6f 72 74 29 0a 20 20 20 28 22 2d 41 22 d-metadata-author-sort)....("-A"
1aba0 20 22 61 75 74 68 6f 72 73 22 20 20 22 61 75 74 68 6f 72 73 3a 22 20 63 61 6c 69 62 72 65 64 62 ."authors".."authors:".calibredb
1abc0 2d 74 72 61 6e 73 69 65 6e 74 2d 72 65 61 64 2d 6d 65 74 61 64 61 74 61 2d 61 75 74 68 6f 72 73 -transient-read-metadata-authors
1abe0 29 0a 20 20 20 28 22 2d 63 22 20 22 63 6f 6d 6d 65 6e 74 73 22 20 20 22 63 6f 6d 6d 65 6e 74 73 )....("-c"."comments".."comments
1ac00 3a 22 20 63 61 6c 69 62 72 65 64 62 2d 74 72 61 6e 73 69 65 6e 74 2d 72 65 61 64 2d 6d 65 74 61 :".calibredb-transient-read-meta
1ac20 64 61 74 61 2d 63 6f 6d 6d 65 6e 74 73 29 0a 20 20 20 28 22 2d 43 22 20 22 63 6f 76 65 72 22 20 data-comments)....("-C"."cover".
1ac40 22 63 6f 76 65 72 3a 22 20 63 61 6c 69 62 72 65 64 62 2d 74 72 61 6e 73 69 65 6e 74 2d 72 65 61 "cover:".calibredb-transient-rea
1ac60 64 2d 66 69 6c 65 29 0a 20 20 20 28 22 2d 69 22 20 22 69 64 65 6e 74 69 66 69 65 72 73 22 20 20 d-file)....("-i"."identifiers"..
1ac80 22 69 64 65 6e 74 69 66 69 65 72 73 3a 22 20 63 61 6c 69 62 72 65 64 62 2d 74 72 61 6e 73 69 65 "identifiers:".calibredb-transie
1aca0 6e 74 2d 72 65 61 64 2d 6d 65 74 61 64 61 74 61 2d 69 64 73 29 0a 20 20 20 28 22 2d 6c 22 20 22 nt-read-metadata-ids)....("-l"."
1acc0 6c 61 6e 67 75 61 67 65 73 22 20 20 22 6c 61 6e 67 75 61 67 65 73 3a 22 20 72 65 61 64 2d 73 74 languages".."languages:".read-st
1ace0 72 69 6e 67 29 0a 20 20 20 28 22 2d 70 22 20 22 70 75 62 64 61 74 65 22 20 22 70 75 62 64 61 74 ring)....("-p"."pubdate"."pubdat
1ad00 65 3a 22 20 74 72 61 6e 73 69 65 6e 74 2d 72 65 61 64 2d 64 61 74 65 29 0a 20 20 20 28 22 2d 50 e:".transient-read-date)....("-P
1ad20 22 20 22 70 75 62 6c 69 73 68 65 72 22 20 22 70 75 62 6c 69 73 68 65 72 3a 22 20 72 65 61 64 2d "."publisher"."publisher:".read-
1ad40 73 74 72 69 6e 67 29 0a 20 20 20 28 22 2d 72 22 20 22 72 61 74 69 6e 67 22 20 20 22 72 61 74 69 string)....("-r"."rating".."rati
1ad60 6e 67 3a 22 20 72 65 61 64 2d 73 74 72 69 6e 67 29 0a 20 20 20 28 22 2d 73 22 20 22 73 65 72 69 ng:".read-string)....("-s"."seri
1ad80 65 73 22 20 22 73 65 72 69 65 73 3a 22 20 72 65 61 64 2d 73 74 72 69 6e 67 29 0a 20 20 20 28 22 es"."series:".read-string)....("
1ada0 2d 53 22 20 22 73 65 72 69 65 73 5f 69 6e 64 65 78 22 20 22 73 65 72 69 65 73 5f 69 6e 64 65 78 -S"."series_index"."series_index
1adc0 3a 22 20 72 65 61 64 2d 73 74 72 69 6e 67 29 0a 20 20 20 28 22 2d 68 22 20 22 73 69 7a 65 22 20 :".read-string)....("-h"."size".
1ade0 22 73 69 7a 65 3a 22 20 72 65 61 64 2d 73 74 72 69 6e 67 29 0a 20 20 20 28 22 2d 48 22 20 22 73 "size:".read-string)....("-H"."s
1ae00 6f 72 74 22 20 22 73 6f 72 74 3a 22 20 72 65 61 64 2d 73 74 72 69 6e 67 29 0a 20 20 20 28 22 2d ort"."sort:".read-string)....("-
1ae20 74 22 20 22 74 61 67 73 22 20 22 74 61 67 73 3a 22 20 63 61 6c 69 62 72 65 64 62 2d 74 72 61 6e t"."tags"."tags:".calibredb-tran
1ae40 73 69 65 6e 74 2d 72 65 61 64 2d 6d 65 74 61 64 61 74 61 2d 74 61 67 73 29 0a 20 20 20 28 22 2d sient-read-metadata-tags)....("-
1ae60 54 22 20 22 74 69 74 6c 65 22 20 22 74 69 74 6c 65 3a 22 20 63 61 6c 69 62 72 65 64 62 2d 74 72 T"."title"."title:".calibredb-tr
1ae80 61 6e 73 69 65 6e 74 2d 72 65 61 64 2d 6d 65 74 61 64 61 74 61 2d 74 69 74 6c 65 29 0a 20 20 20 ansient-read-metadata-title)....
1aea0 28 22 2d 64 22 20 22 74 69 6d 65 73 74 61 6d 70 22 20 22 74 69 6d 65 73 74 61 6d 70 3a 22 20 74 ("-d"."timestamp"."timestamp:".t
1aec0 72 61 6e 73 69 65 6e 74 2d 72 65 61 64 2d 64 61 74 65 29 5d 0a 20 20 5b 5b 22 53 69 6e 67 6c 65 ransient-read-date)]...[["Single
1aee0 20 46 69 65 6c 64 22 0a 20 20 20 20 28 22 74 22 20 22 74 61 67 73 22 20 20 20 20 20 20 20 20 20 .Field".....("t"."tags".........
1af00 63 61 6c 69 62 72 65 64 62 2d 73 65 74 2d 6d 65 74 61 64 61 74 61 2d 2d 74 61 67 73 29 0a 20 20 calibredb-set-metadata--tags)...
1af20 20 20 28 22 54 22 20 22 74 69 74 6c 65 22 20 20 20 20 20 20 20 20 20 63 61 6c 69 62 72 65 64 62 ..("T"."title".........calibredb
1af40 2d 73 65 74 2d 6d 65 74 61 64 61 74 61 2d 2d 74 69 74 6c 65 29 0a 20 20 20 20 28 22 61 22 20 22 -set-metadata--title).....("a"."
1af60 61 75 74 68 6f 72 5f 73 6f 72 74 22 20 20 20 20 20 20 20 20 20 63 61 6c 69 62 72 65 64 62 2d 73 author_sort".........calibredb-s
1af80 65 74 2d 6d 65 74 61 64 61 74 61 2d 2d 61 75 74 68 6f 72 5f 73 6f 72 74 29 0a 20 20 20 20 28 22 et-metadata--author_sort).....("
1afa0 63 22 20 22 63 6f 6d 6d 65 6e 74 73 22 20 20 20 20 20 20 20 20 20 63 61 6c 69 62 72 65 64 62 2d c"."comments".........calibredb-
1afc0 73 65 74 2d 6d 65 74 61 64 61 74 61 2d 2d 63 6f 6d 6d 65 6e 74 73 29 5d 0a 20 20 20 5b 22 54 6f set-metadata--comments)]....["To
1afe0 67 67 6c 65 20 66 69 65 6c 64 22 0a 20 20 20 20 28 22 2a 22 20 22 66 61 76 6f 72 69 74 65 22 20 ggle.field".....("*"."favorite".
1b000 63 61 6c 69 62 72 65 64 62 2d 74 6f 67 67 6c 65 2d 66 61 76 6f 72 69 74 65 2d 61 74 2d 70 6f 69 calibredb-toggle-favorite-at-poi
1b020 6e 74 29 0a 20 20 20 20 28 22 78 22 20 22 61 72 63 68 69 76 65 22 20 63 61 6c 69 62 72 65 64 62 nt).....("x"."archive".calibredb
1b040 2d 74 6f 67 67 6c 65 2d 61 72 63 68 69 76 65 2d 61 74 2d 70 6f 69 6e 74 29 0a 20 20 20 20 28 22 -toggle-archive-at-point).....("
1b060 68 22 20 22 68 69 67 68 6c 69 67 68 74 22 20 63 61 6c 69 62 72 65 64 62 2d 74 6f 67 67 6c 65 2d h"."highlight".calibredb-toggle-
1b080 68 69 67 68 6c 69 67 68 74 2d 61 74 2d 70 6f 69 6e 74 29 5d 0a 20 20 20 5b 22 53 65 74 20 6d 65 highlight-at-point)]....["Set.me
1b0a0 74 61 64 61 74 61 22 0a 20 20 20 20 28 22 73 22 20 22 53 65 74 20 6d 65 74 61 64 61 74 61 20 57 tadata".....("s"."Set.metadata.W
1b0c0 69 74 68 20 41 72 67 75 6d 65 6e 74 73 22 20 20 20 20 20 20 20 20 20 63 61 6c 69 62 72 65 64 62 ith.Arguments".........calibredb
1b0e0 2d 73 65 74 2d 6d 65 74 61 64 61 74 61 2d 2d 74 72 61 6e 73 69 65 6e 74 29 0a 20 20 20 20 28 22 -set-metadata--transient).....("
1b100 66 22 20 22 46 65 74 63 68 20 61 6e 64 20 73 65 74 20 6d 65 74 61 64 61 74 61 20 62 79 20 61 75 f"."Fetch.and.set.metadata.by.au
1b120 74 68 6f 72 20 61 6e 64 20 74 69 74 6c 65 22 20 20 63 61 6c 69 62 72 65 64 62 2d 66 65 74 63 68 thor.and.title"..calibredb-fetch
1b140 2d 61 6e 64 2d 73 65 74 2d 6d 65 74 61 64 61 74 61 2d 62 79 2d 61 75 74 68 6f 72 2d 61 6e 64 2d -and-set-metadata-by-author-and-
1b160 74 69 74 6c 65 29 0a 20 20 20 20 28 22 69 22 20 22 46 65 74 63 68 20 61 6e 64 20 73 65 74 20 6d title).....("i"."Fetch.and.set.m
1b180 65 74 61 64 61 74 61 20 62 79 20 49 53 42 4e 22 20 20 63 61 6c 69 62 72 65 64 62 2d 66 65 74 63 etadata.by.ISBN"..calibredb-fetc
1b1a0 68 2d 61 6e 64 2d 73 65 74 2d 6d 65 74 61 64 61 74 61 2d 62 79 2d 69 73 62 6e 29 0a 20 20 20 20 h-and-set-metadata-by-isbn).....
1b1c0 28 22 64 22 20 22 46 65 74 63 68 20 61 6e 64 20 73 65 74 20 6d 65 74 61 64 61 74 61 20 62 79 20 ("d"."Fetch.and.set.metadata.by.
1b1e0 69 64 65 6e 74 69 66 69 65 72 22 20 20 63 61 6c 69 62 72 65 64 62 2d 66 65 74 63 68 2d 61 6e 64 identifier"..calibredb-fetch-and
1b200 2d 73 65 74 2d 6d 65 74 61 64 61 74 61 2d 62 79 2d 69 64 29 5d 5d 0a 20 20 5b 28 22 71 22 20 22 -set-metadata-by-id)]]...[("q"."
1b220 51 75 69 74 22 20 20 20 74 72 61 6e 73 69 65 6e 74 2d 71 75 69 74 2d 6f 6e 65 29 5d 29 0a 0a 28 Quit"...transient-quit-one)])..(
1b240 74 72 61 6e 73 69 65 6e 74 2d 64 65 66 69 6e 65 2d 70 72 65 66 69 78 20 63 61 6c 69 62 72 65 64 transient-define-prefix.calibred
1b260 62 2d 66 69 6c 74 65 72 2d 64 69 73 70 61 74 63 68 20 28 29 0a 20 20 22 44 69 73 70 61 74 63 68 b-filter-dispatch.()..."Dispatch
1b280 20 66 6f 72 20 66 69 6c 74 65 72 69 6e 67 20 74 68 65 20 72 65 73 75 6c 74 73 2e 22 0a 20 20 5b .for.filtering.the.results."...[
1b2a0 5b 22 46 69 6c 74 65 72 20 62 79 22 0a 20 20 20 20 28 22 74 22 20 22 74 61 67 22 20 20 20 20 20 ["Filter.by".....("t"."tag".....
1b2c0 20 20 20 20 63 61 6c 69 62 72 65 64 62 2d 66 69 6c 74 65 72 2d 62 79 2d 74 61 67 29 0a 20 20 20 ....calibredb-filter-by-tag)....
1b2e0 20 28 22 66 22 20 22 66 6f 72 6d 61 74 22 20 20 20 20 20 20 20 20 20 63 61 6c 69 62 72 65 64 62 .("f"."format".........calibredb
1b300 2d 66 69 6c 74 65 72 2d 62 79 2d 62 6f 6f 6b 2d 66 6f 72 6d 61 74 29 0a 20 20 20 20 28 22 61 22 -filter-by-book-format).....("a"
1b320 20 22 61 75 74 68 6f 72 22 20 20 20 20 20 20 20 20 20 63 61 6c 69 62 72 65 64 62 2d 66 69 6c 74 ."author".........calibredb-filt
1b340 65 72 2d 62 79 2d 61 75 74 68 6f 72 2d 73 6f 72 74 29 0a 20 20 20 20 28 22 64 22 20 22 64 61 74 er-by-author-sort).....("d"."dat
1b360 65 22 20 20 20 20 20 20 20 20 20 63 61 6c 69 62 72 65 64 62 2d 66 69 6c 74 65 72 2d 62 79 2d 6c e".........calibredb-filter-by-l
1b380 61 73 74 5f 6d 6f 64 69 66 69 65 64 29 0a 20 20 20 20 28 22 6c 22 20 22 6c 69 62 72 61 72 79 20 ast_modified).....("l"."library.
1b3a0 28 76 69 72 74 75 61 6c 29 22 20 20 20 20 20 20 63 61 6c 69 62 72 65 64 62 2d 76 69 72 74 75 61 (virtual)"......calibredb-virtua
1b3c0 6c 2d 6c 69 62 72 61 72 79 2d 6c 69 73 74 29 0a 20 20 20 20 28 22 4c 22 20 22 4c 69 62 72 61 72 l-library-list).....("L"."Librar
1b3e0 79 22 20 20 20 20 20 20 63 61 6c 69 62 72 65 64 62 2d 6c 69 62 72 61 72 79 2d 6c 69 73 74 29 0a y"......calibredb-library-list).
1b400 20 20 20 20 28 22 72 22 20 22 72 65 73 65 74 22 20 63 61 6c 69 62 72 65 64 62 2d 73 65 61 72 63 ....("r"."reset".calibredb-searc
1b420 68 2d 63 6c 65 61 72 2d 66 69 6c 74 65 72 29 5d 5d 0a 20 20 5b 28 22 71 22 20 22 51 75 69 74 22 h-clear-filter)]]...[("q"."Quit"
1b440 20 20 20 74 72 61 6e 73 69 65 6e 74 2d 71 75 69 74 2d 6f 6e 65 29 5d 29 0a 0a 28 74 72 61 6e 73 ...transient-quit-one)])..(trans
1b460 69 65 6e 74 2d 64 65 66 69 6e 65 2d 70 72 65 66 69 78 20 63 61 6c 69 62 72 65 64 62 2d 73 6f 72 ient-define-prefix.calibredb-sor
1b480 74 2d 64 69 73 70 61 74 63 68 20 28 29 0a 20 20 22 44 69 73 70 61 74 63 68 20 66 6f 72 20 73 6f t-dispatch.()..."Dispatch.for.so
1b4a0 72 74 69 6e 67 20 74 68 65 20 72 65 73 75 6c 74 73 2e 22 0a 20 20 5b 5b 22 53 6f 72 74 20 62 79 rting.the.results."...[["Sort.by
1b4c0 22 0a 20 20 20 20 28 22 6f 22 20 22 6f 72 64 65 72 20 28 74 6f 67 67 6c 65 29 22 20 20 20 20 20 ".....("o"."order.(toggle)".....
1b4e0 20 20 20 20 63 61 6c 69 62 72 65 64 62 2d 74 6f 67 67 6c 65 2d 6f 72 64 65 72 29 0a 20 20 20 20 ....calibredb-toggle-order).....
1b500 28 22 69 22 20 22 69 64 22 20 20 20 20 20 20 20 20 20 63 61 6c 69 62 72 65 64 62 2d 73 6f 72 74 ("i"."id".........calibredb-sort
1b520 2d 62 79 2d 69 64 29 0a 20 20 20 20 28 22 74 22 20 22 74 69 74 6c 65 22 20 20 20 20 20 20 63 61 -by-id).....("t"."title"......ca
1b540 6c 69 62 72 65 64 62 2d 73 6f 72 74 2d 62 79 2d 74 69 74 6c 65 29 0a 20 20 20 20 28 22 66 22 20 libredb-sort-by-title).....("f".
1b560 22 66 6f 72 6d 61 74 22 20 20 20 20 20 20 20 20 20 63 61 6c 69 62 72 65 64 62 2d 73 6f 72 74 2d "format".........calibredb-sort-
1b580 62 79 2d 66 6f 72 6d 61 74 29 0a 20 20 20 20 28 22 61 22 20 22 61 75 74 68 6f 72 22 20 20 20 20 by-format).....("a"."author"....
1b5a0 20 20 20 20 20 63 61 6c 69 62 72 65 64 62 2d 73 6f 72 74 2d 62 79 2d 61 75 74 68 6f 72 29 0a 20 .....calibredb-sort-by-author)..
1b5c0 20 20 20 28 22 64 22 20 22 64 61 74 65 22 20 20 20 20 20 20 63 61 6c 69 62 72 65 64 62 2d 73 6f ...("d"."date"......calibredb-so
1b5e0 72 74 2d 62 79 2d 64 61 74 65 29 0a 20 20 20 20 28 22 70 22 20 22 70 75 62 64 61 74 65 22 20 20 rt-by-date).....("p"."pubdate"..
1b600 20 20 20 20 20 20 20 63 61 6c 69 62 72 65 64 62 2d 73 6f 72 74 2d 62 79 2d 70 75 62 64 61 74 65 .......calibredb-sort-by-pubdate
1b620 29 0a 20 20 20 20 28 22 54 22 20 22 54 61 67 22 20 20 20 20 20 20 63 61 6c 69 62 72 65 64 62 2d ).....("T"."Tag"......calibredb-
1b640 73 6f 72 74 2d 62 79 2d 74 61 67 29 0a 20 20 20 20 28 22 73 22 20 22 73 69 7a 65 22 20 20 20 20 sort-by-tag).....("s"."size"....
1b660 20 20 63 61 6c 69 62 72 65 64 62 2d 73 6f 72 74 2d 62 79 2d 73 69 7a 65 29 0a 20 20 20 20 28 22 ..calibredb-sort-by-size).....("
1b680 6c 22 20 22 6c 61 6e 67 75 61 67 65 22 20 20 20 20 20 20 63 61 6c 69 62 72 65 64 62 2d 73 6f 72 l"."language"......calibredb-sor
1b6a0 74 2d 62 79 2d 6c 61 6e 67 75 61 67 65 29 5d 5d 0a 20 20 5b 28 22 71 22 20 22 51 75 69 74 22 20 t-by-language)]]...[("q"."Quit".
1b6c0 20 20 74 72 61 6e 73 69 65 6e 74 2d 71 75 69 74 2d 6f 6e 65 29 5d 29 0a 0a 28 74 72 61 6e 73 69 ..transient-quit-one)])..(transi
1b6e0 65 6e 74 2d 64 65 66 69 6e 65 2d 70 72 65 66 69 78 20 63 61 6c 69 62 72 65 64 62 2d 65 78 70 6f ent-define-prefix.calibredb-expo
1b700 72 74 2d 64 69 73 70 61 74 63 68 20 28 29 0a 20 20 22 44 69 73 70 61 74 63 68 20 66 6f 72 20 65 rt-dispatch.()..."Dispatch.for.e
1b720 78 70 6f 72 74 20 66 69 6c 65 73 2e 22 0a 20 20 5b 5b 22 45 78 70 6f 72 74 22 0a 20 20 20 20 28 xport.files."...[["Export".....(
1b740 22 45 22 20 22 45 78 70 6f 72 74 20 28 4e 6f 20 63 6f 6e 76 65 72 73 69 6f 6e 29 22 20 20 20 20 "E"."Export.(No.conversion)"....
1b760 20 20 20 20 20 63 61 6c 69 62 72 65 64 62 2d 65 78 70 6f 72 74 2d 77 69 74 68 6f 75 74 2d 63 6f .....calibredb-export-without-co
1b780 6e 76 65 72 73 69 6f 6e 2d 64 69 73 70 61 74 63 68 29 0a 20 20 20 20 28 22 61 22 20 22 61 7a 77 nversion-dispatch).....("a"."azw
1b7a0 33 22 20 20 20 63 61 6c 69 62 72 65 64 62 2d 63 6f 6e 76 65 72 74 2d 74 6f 2d 61 7a 77 33 29 0a 3"...calibredb-convert-to-azw3).
1b7c0 20 20 20 20 28 22 64 22 20 22 64 6f 63 78 22 20 20 20 63 61 6c 69 62 72 65 64 62 2d 63 6f 6e 76 ....("d"."docx"...calibredb-conv
1b7e0 65 72 74 2d 74 6f 2d 64 6f 63 78 29 0a 20 20 20 20 28 22 65 22 20 22 65 70 75 62 22 20 20 20 63 ert-to-docx).....("e"."epub"...c
1b800 61 6c 69 62 72 65 64 62 2d 63 6f 6e 76 65 72 74 2d 74 6f 2d 65 70 75 62 29 0a 20 20 20 20 28 22 alibredb-convert-to-epub).....("
1b820 66 22 20 22 66 62 32 22 20 20 20 20 63 61 6c 69 62 72 65 64 62 2d 63 6f 6e 76 65 72 74 2d 74 6f f"."fb2"....calibredb-convert-to
1b840 2d 66 62 32 29 0a 20 20 20 20 28 22 68 22 20 22 68 74 6d 6c 22 20 20 20 63 61 6c 69 62 72 65 64 -fb2).....("h"."html"...calibred
1b860 62 2d 63 6f 6e 76 65 72 74 2d 74 6f 2d 68 74 6d 6c 29 0a 20 20 20 20 28 22 48 22 20 22 68 74 6d b-convert-to-html).....("H"."htm
1b880 6c 7a 22 20 20 63 61 6c 69 62 72 65 64 62 2d 63 6f 6e 76 65 72 74 2d 74 6f 2d 68 74 6d 6c 7a 29 lz"..calibredb-convert-to-htmlz)
1b8a0 0a 20 20 20 20 28 22 6c 22 20 22 6c 69 74 22 20 20 20 63 61 6c 69 62 72 65 64 62 2d 63 6f 6e 76 .....("l"."lit"...calibredb-conv
1b8c0 65 72 74 2d 74 6f 2d 6c 69 74 29 0a 20 20 20 20 28 22 4c 22 20 22 6c 72 66 22 20 20 20 63 61 6c ert-to-lit).....("L"."lrf"...cal
1b8e0 69 62 72 65 64 62 2d 63 6f 6e 76 65 72 74 2d 74 6f 2d 6c 72 66 29 0a 20 20 20 20 28 22 6d 22 20 ibredb-convert-to-lrf).....("m".
1b900 22 6d 6f 62 69 22 20 20 20 63 61 6c 69 62 72 65 64 62 2d 63 6f 6e 76 65 72 74 2d 74 6f 2d 6d 6f "mobi"...calibredb-convert-to-mo
1b920 62 69 29 0a 20 20 20 20 28 22 6f 22 20 22 6f 65 62 22 20 20 20 63 61 6c 69 62 72 65 64 62 2d 63 bi).....("o"."oeb"...calibredb-c
1b940 6f 6e 76 65 72 74 2d 74 6f 2d 6f 65 62 29 0a 20 20 20 20 28 22 50 22 20 22 70 64 62 22 20 20 20 onvert-to-oeb).....("P"."pdb"...
1b960 63 61 6c 69 62 72 65 64 62 2d 63 6f 6e 76 65 72 74 2d 74 6f 2d 70 64 62 29 0a 20 20 20 20 28 22 calibredb-convert-to-pdb).....("
1b980 70 22 20 22 70 64 66 22 20 20 20 63 61 6c 69 62 72 65 64 62 2d 63 6f 6e 76 65 72 74 2d 74 6f 2d p"."pdf"...calibredb-convert-to-
1b9a0 70 64 66 29 0a 20 20 20 20 28 22 4d 22 20 22 70 6d 6c 22 20 20 20 63 61 6c 69 62 72 65 64 62 2d pdf).....("M"."pml"...calibredb-
1b9c0 63 6f 6e 76 65 72 74 2d 74 6f 2d 70 6d 6c 29 0a 20 20 20 20 28 22 72 22 20 22 72 62 22 20 20 20 convert-to-pml).....("r"."rb"...
1b9e0 63 61 6c 69 62 72 65 64 62 2d 63 6f 6e 76 65 72 74 2d 74 6f 2d 72 62 29 0a 20 20 20 20 28 22 52 calibredb-convert-to-rb).....("R
1ba00 22 20 22 72 74 66 22 20 20 20 63 61 6c 69 62 72 65 64 62 2d 63 6f 6e 76 65 72 74 2d 74 6f 2d 72 "."rtf"...calibredb-convert-to-r
1ba20 74 66 29 0a 20 20 20 20 28 22 73 22 20 22 73 6e 62 22 20 20 20 63 61 6c 69 62 72 65 64 62 2d 63 tf).....("s"."snb"...calibredb-c
1ba40 6f 6e 76 65 72 74 2d 74 6f 2d 73 6e 62 29 0a 20 20 20 20 28 22 54 22 20 22 74 63 72 22 20 20 20 onvert-to-snb).....("T"."tcr"...
1ba60 63 61 6c 69 62 72 65 64 62 2d 63 6f 6e 76 65 72 74 2d 74 6f 2d 74 63 72 29 0a 20 20 20 20 28 22 calibredb-convert-to-tcr).....("
1ba80 74 22 20 22 74 78 74 22 20 20 20 63 61 6c 69 62 72 65 64 62 2d 63 6f 6e 76 65 72 74 2d 74 6f 2d t"."txt"...calibredb-convert-to-
1baa0 74 78 74 29 0a 20 20 20 20 28 22 7a 22 20 22 74 78 74 7a 22 20 20 20 63 61 6c 69 62 72 65 64 62 txt).....("z"."txtz"...calibredb
1bac0 2d 63 6f 6e 76 65 72 74 2d 74 6f 2d 74 78 74 7a 29 5d 5d 0a 20 20 5b 28 22 71 22 20 22 51 75 69 -convert-to-txtz)]]...[("q"."Qui
1bae0 74 22 20 20 20 74 72 61 6e 73 69 65 6e 74 2d 71 75 69 74 2d 6f 6e 65 29 5d 29 0a 0a 28 74 72 61 t"...transient-quit-one)])..(tra
1bb00 6e 73 69 65 6e 74 2d 64 65 66 69 6e 65 2d 70 72 65 66 69 78 20 63 61 6c 69 62 72 65 64 62 2d 65 nsient-define-prefix.calibredb-e
1bb20 78 70 6f 72 74 2d 77 69 74 68 6f 75 74 2d 63 6f 6e 76 65 72 73 69 6f 6e 2d 64 69 73 70 61 74 63 xport-without-conversion-dispatc
1bb40 68 20 28 29 0a 20 20 22 44 69 73 70 61 74 63 68 20 66 6f 72 20 65 78 70 6f 72 74 20 66 69 6c 65 h.()..."Dispatch.for.export.file
1bb60 73 20 77 69 74 68 6f 75 74 20 63 6f 6e 76 65 72 73 69 6f 6e 2e 22 0a 20 20 5b 22 41 72 67 75 6d s.without.conversion."...["Argum
1bb80 65 6e 74 73 22 0a 20 20 20 28 22 2d 61 22 20 22 44 6f 20 6e 6f 74 20 63 6f 6e 76 65 72 74 20 6e ents"....("-a"."Do.not.convert.n
1bba0 6f 6e 20 45 6e 67 6c 69 73 68 20 63 68 61 72 61 63 74 65 72 73 20 66 6f 72 20 74 68 65 20 66 69 on.English.characters.for.the.fi
1bbc0 6c 65 20 6e 61 6d 65 73 22 20 20 22 2d 2d 64 6f 6e 74 2d 61 73 63 69 69 69 7a 65 22 29 0a 20 20 le.names".."--dont-asciiize")...
1bbe0 20 28 22 2d 63 22 20 22 44 6f 20 6e 6f 74 20 73 61 76 65 20 63 6f 76 65 72 22 20 20 22 2d 2d 64 .("-c"."Do.not.save.cover".."--d
1bc00 6f 6e 74 2d 73 61 76 65 2d 63 6f 76 65 72 22 29 0a 20 20 20 28 22 2d 6d 22 20 22 44 6f 20 6e 6f ont-save-cover")....("-m"."Do.no
1bc20 74 20 75 70 64 61 74 65 20 6d 65 74 61 64 61 74 61 22 20 20 22 2d 2d 64 6f 6e 74 2d 75 70 64 61 t.update.metadata".."--dont-upda
1bc40 74 65 2d 6d 65 74 61 64 61 74 61 22 29 0a 20 20 20 28 22 2d 6f 22 20 22 44 6f 20 6e 6f 74 20 77 te-metadata")....("-o"."Do.not.w
1bc60 72 69 74 65 20 6f 70 66 22 20 22 2d 2d 64 6f 6e 74 2d 77 72 69 74 65 2d 6f 70 66 22 29 0a 20 20 rite.opf"."--dont-write-opf")...
1bc80 20 28 22 2d 66 22 20 22 46 6f 72 6d 61 74 73 20 74 6f 20 73 61 76 65 20 66 6f 72 20 65 61 63 68 .("-f"."Formats.to.save.for.each
1bca0 20 62 6f 6f 6b 2c 20 63 6f 6d 6d 61 20 73 65 70 61 72 61 74 65 64 2e 22 20 20 22 2d 2d 66 6f 72 .book,.comma.separated.".."--for
1bcc0 6d 61 74 73 20 22 20 72 65 61 64 2d 73 74 72 69 6e 67 29 0a 20 20 20 28 22 2d 70 22 20 22 50 72 mats.".read-string)....("-p"."Pr
1bce0 6f 67 72 65 73 73 20 52 65 70 6f 72 74 69 6e 67 22 20 20 22 20 2d 2d 70 72 6f 67 72 65 73 73 22 ogress.Reporting"..".--progress"
1bd00 29 0a 20 20 20 28 22 2d 72 22 20 22 52 65 70 6c 61 63 65 20 77 68 69 74 65 73 70 61 63 65 20 77 )....("-r"."Replace.whitespace.w
1bd20 69 74 68 20 75 6e 64 65 72 73 63 6f 72 65 73 2e 22 20 22 2d 2d 72 65 70 6c 61 63 65 2d 77 68 69 ith.underscores."."--replace-whi
1bd40 74 65 73 70 61 63 65 22 29 0a 20 20 20 28 22 2d 73 22 20 22 53 69 6e 67 6c 65 20 64 69 72 65 63 tespace")....("-s"."Single.direc
1bd60 74 6f 72 79 20 74 6f 20 65 78 70 6f 72 74 20 61 6c 6c 20 66 69 6c 65 73 2e 22 20 22 2d 2d 73 69 tory.to.export.all.files."."--si
1bd80 6e 67 6c 65 2d 64 69 72 22 29 0a 20 20 20 28 22 2d 74 22 20 22 54 65 6d 70 6c 61 74 65 20 74 6f ngle-dir")....("-t"."Template.to
1bda0 20 63 6f 6e 74 72 6f 6c 20 74 68 65 20 66 69 6c 65 6e 61 6d 65 20 61 6e 64 20 64 69 72 65 63 74 .control.the.filename.and.direct
1bdc0 6f 72 79 20 73 74 72 75 63 74 75 72 65 2e 22 20 20 22 2d 2d 74 65 6d 70 6c 61 74 65 22 20 72 65 ory.structure.".."--template".re
1bde0 61 64 2d 73 74 72 69 6e 67 29 0a 20 20 20 28 22 2d 64 22 20 22 44 61 74 65 73 20 66 6f 72 6d 61 ad-string)....("-d"."Dates.forma
1be00 74 2e 20 25 64 20 2d 20 64 61 79 2c 20 25 62 20 2d 20 6d 6f 6e 74 68 2c 20 25 6d 20 2d 20 6d 6f t..%d.-.day,.%b.-.month,.%m.-.mo
1be20 6e 74 68 20 6e 75 6d 62 65 72 2c 20 25 59 20 2d 20 79 65 61 72 2e 20 44 65 66 61 75 6c 74 20 69 nth.number,.%Y.-.year..Default.i
1be40 73 3a 20 25 62 2c 20 25 59 22 20 22 2d 2d 74 69 6d 65 66 6d 74 22 20 72 65 61 64 2d 73 74 72 69 s:.%b,.%Y"."--timefmt".read-stri
1be60 6e 67 29 0a 20 20 20 3b 3b 20 28 22 2d 6d 22 20 22 45 78 70 6f 72 74 20 62 6f 6f 6b 73 20 74 6f ng)....;;.("-m"."Export.books.to
1be80 20 74 68 65 20 73 70 65 63 69 66 69 65 64 20 64 69 72 65 63 74 6f 72 79 2e 20 44 65 66 61 75 6c .the.specified.directory..Defaul
1bea0 74 20 69 73 20 2e 22 20 20 22 2d 2d 74 6f 2d 64 69 72 22 29 0a 20 20 20 28 22 2d 6c 22 20 22 43 t.is..".."--to-dir")....("-l"."C
1bec0 6f 6e 76 65 72 74 20 70 61 74 68 73 20 74 6f 20 6c 6f 77 65 72 63 61 73 65 2e 22 20 22 2d 2d 74 onvert.paths.to.lowercase."."--t
1bee0 6f 2d 6c 6f 77 65 72 63 61 73 65 22 29 0a 20 20 20 28 22 2d 41 22 20 22 45 78 70 6f 72 74 20 61 o-lowercase")....("-A"."Export.a
1bf00 6c 6c 20 62 6f 6f 6b 73 20 69 6e 20 64 61 74 61 62 61 73 65 2c 20 69 67 6e 6f 72 69 6e 67 20 74 ll.books.in.database,.ignoring.t
1bf20 68 65 20 6c 69 73 74 20 6f 66 20 69 64 73 22 20 22 2d 2d 61 6c 6c 22 29 5d 0a 20 20 5b 5b 22 45 he.list.of.ids"."--all")]...[["E
1bf40 78 70 6f 72 74 22 0a 20 20 20 20 28 22 65 22 20 22 45 78 70 6f 72 74 22 20 20 20 20 20 20 20 20 xport".....("e"."Export"........
1bf60 20 63 61 6c 69 62 72 65 64 62 2d 65 78 70 6f 72 74 29 5d 5d 0a 20 20 5b 28 22 71 22 20 22 51 75 .calibredb-export)]]...[("q"."Qu
1bf80 69 74 22 20 20 20 74 72 61 6e 73 69 65 6e 74 2d 71 75 69 74 2d 6f 6e 65 29 5d 29 0a 0a 28 74 72 it"...transient-quit-one)])..(tr
1bfa0 61 6e 73 69 65 6e 74 2d 64 65 66 69 6e 65 2d 70 72 65 66 69 78 20 63 61 6c 69 62 72 65 64 62 2d ansient-define-prefix.calibredb-
1bfc0 63 6f 6e 76 65 72 74 2d 74 6f 2d 65 70 75 62 2d 64 69 73 70 61 74 63 68 20 28 29 0a 20 20 22 54 convert-to-epub-dispatch.()..."T
1bfe0 4f 44 4f 3a 20 44 69 73 70 61 74 63 68 20 66 6f 72 20 63 6f 6e 76 65 72 74 20 74 6f 20 65 70 75 ODO:.Dispatch.for.convert.to.epu
1c000 62 2e 22 0a 20 20 5b 22 41 72 67 75 6d 65 6e 74 73 22 0a 20 20 20 28 22 2d 61 22 20 22 54 75 72 b."...["Arguments"....("-a"."Tur
1c020 6e 20 6f 66 66 20 73 70 6c 69 74 74 69 6e 67 20 61 74 20 70 61 67 65 20 62 72 65 61 6b 73 2e 22 n.off.splitting.at.page.breaks."
1c040 20 20 22 2d 2d 64 6f 6e 74 2d 73 70 6c 69 74 2d 6f 6e 2d 70 61 67 65 2d 62 72 65 61 6b 73 22 29 .."--dont-split-on-page-breaks")
1c060 0a 20 20 20 28 22 2d 63 22 20 22 54 68 69 73 20 6f 70 74 69 6f 6e 20 69 73 20 6e 65 65 64 65 64 ....("-c"."This.option.is.needed
1c080 20 6f 6e 6c 79 20 69 66 20 79 6f 75 20 69 6e 74 65 6e 64 20 74 6f 20 75 73 65 20 74 68 65 20 45 .only.if.you.intend.to.use.the.E
1c0a0 50 55 42 20 77 69 74 68 20 46 42 52 65 61 64 65 72 4a 2e 22 20 20 22 2d 2d 65 70 75 62 2d 66 6c PUB.with.FBReaderJ.".."--epub-fl
1c0c0 61 74 74 65 6e 22 29 0a 20 20 20 28 22 2d 6d 22 20 22 49 6e 73 65 72 74 20 61 6e 20 69 6e 6c 69 atten")....("-m"."Insert.an.inli
1c0e0 6e 65 20 54 61 62 6c 65 20 6f 66 20 43 6f 6e 74 65 6e 74 73 20 74 68 61 74 20 77 69 6c 6c 20 61 ne.Table.of.Contents.that.will.a
1c100 70 70 65 61 72 20 61 73 20 70 61 72 74 20 6f 66 20 74 68 65 20 6d 61 69 6e 20 62 6f 6f 6b 20 63 ppear.as.part.of.the.main.book.c
1c120 6f 6e 74 65 6e 74 2e 22 20 20 22 2d 2d 65 70 75 62 2d 69 6e 6c 69 6e 65 2d 74 6f 63 22 29 0a 20 ontent.".."--epub-inline-toc")..
1c140 20 20 28 22 2d 6f 22 20 22 50 75 74 20 74 68 65 20 69 6e 73 65 72 74 65 64 20 69 6e 6c 69 6e 65 ..("-o"."Put.the.inserted.inline
1c160 20 54 61 62 6c 65 20 6f 66 20 43 6f 6e 74 65 6e 74 73 20 61 74 20 74 68 65 20 65 6e 64 20 6f 66 .Table.of.Contents.at.the.end.of
1c180 20 74 68 65 20 62 6f 6f 6b 20 69 6e 73 74 65 61 64 20 6f 66 20 74 68 65 20 73 74 61 72 74 2e 22 .the.book.instead.of.the.start."
1c1a0 20 22 2d 2d 65 70 75 62 2d 74 6f 63 2d 61 74 2d 65 6e 64 22 29 0a 20 20 20 28 22 2d 66 22 20 22 ."--epub-toc-at-end")....("-f"."
1c1c0 54 68 65 20 76 65 72 73 69 6f 6e 20 6f 66 20 74 68 65 20 45 50 55 42 20 66 69 6c 65 20 74 6f 20 The.version.of.the.EPUB.file.to.
1c1e0 67 65 6e 65 72 61 74 65 2e 22 20 20 22 2d 2d 65 70 75 62 2d 76 65 72 73 69 6f 6e 22 29 0a 20 20 generate.".."--epub-version")...
1c200 20 28 22 2d 70 22 20 22 45 78 74 72 61 63 74 20 74 68 65 20 63 6f 6e 74 65 6e 74 73 20 6f 66 20 .("-p"."Extract.the.contents.of.
1c220 74 68 65 20 67 65 6e 65 72 61 74 65 64 20 45 50 55 42 20 66 69 6c 65 20 74 6f 20 74 68 65 20 73 the.generated.EPUB.file.to.the.s
1c240 70 65 63 69 66 69 65 64 20 64 69 72 65 63 74 6f 72 79 2e 20 22 20 20 22 2d 2d 65 78 74 72 61 63 pecified.directory..".."--extrac
1c260 74 2d 74 6f 22 29 0a 20 20 20 28 22 2d 72 22 20 22 53 70 6c 69 74 20 61 6c 6c 20 48 54 4d 4c 20 t-to")....("-r"."Split.all.HTML.
1c280 66 69 6c 65 73 20 6c 61 72 67 65 72 20 74 68 61 6e 20 74 68 69 73 20 73 69 7a 65 20 28 69 6e 20 files.larger.than.this.size.(in.
1c2a0 4b 42 29 2e 20 22 20 22 2d 2d 66 6c 6f 77 2d 73 69 7a 65 22 29 0a 20 20 20 28 22 2d 73 22 20 22 KB).."."--flow-size")....("-s"."
1c2c0 54 68 69 73 20 6f 70 74 69 6f 6e 20 64 69 73 61 62 6c 65 73 20 74 68 65 20 67 65 6e 65 72 61 74 This.option.disables.the.generat
1c2e0 69 6f 6e 20 6f 66 20 74 68 69 73 20 63 6f 76 65 72 2e 22 20 22 2d 2d 6e 6f 2d 64 65 66 61 75 6c ion.of.this.cover."."--no-defaul
1c300 74 2d 65 70 75 62 2d 63 6f 76 65 72 22 29 0a 20 20 20 28 22 2d 74 22 20 22 44 6f 20 6e 6f 74 20 t-epub-cover")....("-t"."Do.not.
1c320 75 73 65 20 53 56 47 20 66 6f 72 20 74 68 65 20 62 6f 6f 6b 20 63 6f 76 65 72 2e 22 20 20 22 2d use.SVG.for.the.book.cover.".."-
1c340 2d 6e 6f 2d 73 76 67 2d 63 6f 76 65 72 22 29 0a 20 20 20 28 22 2d 64 22 20 22 57 68 65 6e 20 75 -no-svg-cover")....("-d"."When.u
1c360 73 69 6e 67 20 61 6e 20 53 56 47 20 63 6f 76 65 72 2c 20 74 68 69 73 20 6f 70 74 69 6f 6e 20 77 sing.an.SVG.cover,.this.option.w
1c380 69 6c 6c 20 63 61 75 73 65 20 74 68 65 20 63 6f 76 65 72 20 74 6f 20 73 63 61 6c 65 20 74 6f 20 ill.cause.the.cover.to.scale.to.
1c3a0 63 6f 76 65 72 20 74 68 65 20 61 76 61 69 6c 61 62 6c 65 20 73 63 72 65 65 6e 20 61 72 65 61 2c cover.the.available.screen.area,
1c3c0 20 62 75 74 20 73 74 69 6c 6c 20 70 72 65 73 65 72 76 65 20 69 74 73 20 61 73 70 65 63 74 20 72 .but.still.preserve.its.aspect.r
1c3e0 61 74 69 6f 20 28 72 61 74 69 6f 20 6f 66 20 77 69 64 74 68 20 74 6f 20 68 65 69 67 68 74 29 22 atio.(ratio.of.width.to.height)"
1c400 20 22 2d 2d 70 72 65 73 65 72 76 65 2d 63 6f 76 65 72 2d 61 73 70 65 63 74 2d 72 61 74 69 6f 22 ."--preserve-cover-aspect-ratio"
1c420 29 0a 20 20 20 28 22 2d 6c 22 20 22 49 66 20 73 70 65 63 69 66 69 65 64 2c 20 74 68 65 20 6f 75 )....("-l"."If.specified,.the.ou
1c440 74 70 75 74 20 70 6c 75 67 69 6e 20 77 69 6c 6c 20 74 72 79 20 74 6f 20 63 72 65 61 74 65 20 6f tput.plugin.will.try.to.create.o
1c460 75 74 70 75 74 20 74 68 61 74 20 69 73 20 61 73 20 68 75 6d 61 6e 20 72 65 61 64 61 62 6c 65 20 utput.that.is.as.human.readable.
1c480 61 73 20 70 6f 73 73 69 62 6c 65 2e 22 20 22 2d 2d 70 72 65 74 74 79 2d 70 72 69 6e 74 22 29 0a as.possible."."--pretty-print").
1c4a0 20 20 20 28 22 2d 41 22 20 22 54 69 74 6c 65 20 66 6f 72 20 61 6e 79 20 67 65 6e 65 72 61 74 65 ...("-A"."Title.for.any.generate
1c4c0 64 20 69 6e 2d 6c 69 6e 65 20 74 61 62 6c 65 20 6f 66 20 63 6f 6e 74 65 6e 74 73 2e 22 20 22 2d d.in-line.table.of.contents."."-
1c4e0 2d 74 6f 63 2d 74 69 74 6c 65 22 29 5d 0a 20 20 5b 5b 22 45 78 70 6f 72 74 22 0a 20 20 20 20 28 -toc-title")]...[["Export".....(
1c500 22 65 22 20 22 45 78 70 6f 72 74 22 20 63 61 6c 69 62 72 65 64 62 2d 63 6f 6e 76 65 72 74 2d 74 "e"."Export".calibredb-convert-t
1c520 6f 2d 65 70 75 62 29 5d 5d 0a 20 20 5b 28 22 71 22 20 22 51 75 69 74 22 20 20 20 74 72 61 6e 73 o-epub)]]...[("q"."Quit"...trans
1c540 69 65 6e 74 2d 71 75 69 74 2d 6f 6e 65 29 5d 29 0a 0a 28 74 72 61 6e 73 69 65 6e 74 2d 64 65 66 ient-quit-one)])..(transient-def
1c560 69 6e 65 2d 70 72 65 66 69 78 20 63 61 6c 69 62 72 65 64 62 2d 63 6f 6e 76 65 72 74 2d 74 6f 2d ine-prefix.calibredb-convert-to-
1c580 6d 6f 62 69 2d 64 69 73 70 61 74 63 68 20 28 29 0a 20 20 22 54 4f 44 4f 3a 20 44 69 73 70 61 74 mobi-dispatch.()..."TODO:.Dispat
1c5a0 63 68 20 66 6f 72 20 63 6f 6e 76 65 72 74 20 74 6f 20 6d 6f 62 69 2e 22 0a 20 20 5b 22 41 72 67 ch.for.convert.to.mobi."...["Arg
1c5c0 75 6d 65 6e 74 73 22 0a 20 20 20 28 22 2d 64 22 20 22 44 69 73 61 62 6c 65 20 63 6f 6d 70 72 65 uments"....("-d"."Disable.compre
1c5e0 73 73 69 6f 6e 20 6f 66 20 74 68 65 20 66 69 6c 65 20 63 6f 6e 74 65 6e 74 73 2e 22 20 20 22 20 ssion.of.the.file.contents."..".
1c600 2d 2d 64 6f 6e 74 2d 63 6f 6d 70 72 65 73 73 22 29 0a 20 20 20 28 22 2d 65 22 20 22 45 78 74 72 --dont-compress")....("-e"."Extr
1c620 61 63 74 20 74 68 65 20 63 6f 6e 74 65 6e 74 73 20 6f 66 20 74 68 65 20 67 65 6e 65 72 61 74 65 act.the.contents.of.the.generate
1c640 64 20 4d 4f 42 49 20 66 69 6c 65 20 74 6f 20 74 68 65 20 73 70 65 63 69 66 69 65 64 20 66 6f 6c d.MOBI.file.to.the.specified.fol
1c660 64 65 72 2e 22 20 20 22 2d 65 78 74 72 61 63 74 2d 74 6f 22 29 0a 20 20 20 28 22 2d 66 22 20 22 der.".."-extract-to")....("-f"."
1c680 42 79 20 64 65 66 61 75 6c 74 20 63 61 6c 69 62 72 65 20 67 65 6e 65 72 61 74 65 73 20 4d 4f 42 By.default.calibre.generates.MOB
1c6a0 49 20 66 69 6c 65 73 20 74 68 61 74 20 63 6f 6e 74 61 69 6e 20 74 68 65 20 6f 6c 64 20 4d 4f 42 I.files.that.contain.the.old.MOB
1c6c0 49 20 36 20 66 6f 72 6d 61 74 2e 22 20 20 22 20 2d 2d 6d 6f 62 69 2d 66 69 6c 65 2d 74 79 70 65 I.6.format."..".--mobi-file-type
1c6e0 22 29 0a 20 20 20 28 22 2d 69 22 20 22 49 67 6e 6f 72 65 20 6d 61 72 67 69 6e 73 20 69 6e 20 74 ")....("-i"."Ignore.margins.in.t
1c700 68 65 20 69 6e 70 75 74 20 64 6f 63 75 6d 65 6e 74 2e 20 22 20 22 20 2d 2d 6d 6f 62 69 2d 69 67 he.input.document..".".--mobi-ig
1c720 6e 6f 72 65 2d 6d 61 72 67 69 6e 73 22 29 0a 20 20 20 28 22 2d 6b 22 20 22 42 79 20 64 65 66 61 nore-margins")....("-k"."By.defa
1c740 75 6c 74 20 63 61 6c 69 62 72 65 20 63 6f 6e 76 65 72 74 73 20 61 6c 6c 20 69 6d 61 67 65 73 20 ult.calibre.converts.all.images.
1c760 74 6f 20 4a 50 45 47 20 66 6f 72 6d 61 74 20 69 6e 20 74 68 65 20 6f 75 74 70 75 74 20 4d 4f 42 to.JPEG.format.in.the.output.MOB
1c780 49 20 66 69 6c 65 2e 22 20 20 22 20 2d 2d 6d 6f 62 69 2d 6b 65 65 70 2d 6f 72 69 67 69 6e 61 6c I.file."..".--mobi-keep-original
1c7a0 2d 69 6d 61 67 65 73 22 29 0a 20 20 20 28 22 2d 74 22 20 22 57 68 65 6e 20 61 64 64 69 6e 67 20 -images")....("-t"."When.adding.
1c7c0 74 68 65 20 54 61 62 6c 65 20 6f 66 20 43 6f 6e 74 65 6e 74 73 20 74 6f 20 74 68 65 20 62 6f 6f the.Table.of.Contents.to.the.boo
1c7e0 6b 2c 20 61 64 64 20 69 74 20 61 74 20 74 68 65 20 73 74 61 72 74 20 6f 66 20 74 68 65 20 62 6f k,.add.it.at.the.start.of.the.bo
1c800 6f 6b 20 69 6e 73 74 65 61 64 20 6f 66 20 74 68 65 20 65 6e 64 2e 22 20 20 22 2d 2d 6d 6f 62 69 ok.instead.of.the.end.".."--mobi
1c820 2d 74 6f 63 2d 61 74 2d 73 74 61 72 74 22 29 0a 20 20 20 28 22 2d 6e 22 20 22 44 6f 6e 27 74 20 -toc-at-start")....("-n"."Don't.
1c840 61 64 64 20 54 61 62 6c 65 20 6f 66 20 43 6f 6e 74 65 6e 74 73 20 74 6f 20 74 68 65 20 62 6f 6f add.Table.of.Contents.to.the.boo
1c860 6b 2e 20 55 73 65 66 75 6c 20 69 66 20 74 68 65 20 62 6f 6f 6b 20 68 61 73 20 69 74 73 20 6f 77 k..Useful.if.the.book.has.its.ow
1c880 6e 20 74 61 62 6c 65 20 6f 66 20 63 6f 6e 74 65 6e 74 73 2e 22 20 22 2d 2d 6e 6f 2d 69 6e 6c 69 n.table.of.contents."."--no-inli
1c8a0 6e 65 2d 74 6f 63 22 29 0a 20 20 20 28 22 2d 70 22 20 22 54 61 67 20 66 6f 72 20 4d 4f 42 49 20 ne-toc")....("-p"."Tag.for.MOBI.
1c8c0 66 69 6c 65 73 20 74 6f 20 62 65 20 6d 61 72 6b 65 64 20 61 73 20 70 65 72 73 6f 6e 61 6c 20 64 files.to.be.marked.as.personal.d
1c8e0 6f 63 75 6d 65 6e 74 73 2e 22 20 22 2d 2d 70 65 72 73 6f 6e 61 6c 2d 64 6f 63 22 29 0a 20 20 20 ocuments."."--personal-doc")....
1c900 28 22 2d 61 22 20 22 57 68 65 6e 20 70 72 65 73 65 6e 74 2c 20 75 73 65 20 61 75 74 68 6f 72 20 ("-a"."When.present,.use.author.
1c920 73 6f 72 74 20 66 69 65 6c 64 20 61 73 20 61 75 74 68 6f 72 2e 22 20 20 22 2d 2d 70 72 65 66 65 sort.field.as.author.".."--prefe
1c940 72 2d 61 75 74 68 6f 72 2d 73 6f 72 74 22 29 0a 20 20 20 28 22 2d 50 22 20 22 49 66 20 73 70 65 r-author-sort")....("-P"."If.spe
1c960 63 69 66 69 65 64 2c 20 74 68 65 20 6f 75 74 70 75 74 20 70 6c 75 67 69 6e 20 77 69 6c 6c 20 74 cified,.the.output.plugin.will.t
1c980 72 79 20 74 6f 20 63 72 65 61 74 65 20 6f 75 74 70 75 74 20 74 68 61 74 20 69 73 20 61 73 20 68 ry.to.create.output.that.is.as.h
1c9a0 75 6d 61 6e 20 72 65 61 64 61 62 6c 65 20 61 73 20 70 6f 73 73 69 62 6c 65 2e 22 20 22 2d 2d 70 uman.readable.as.possible."."--p
1c9c0 72 65 74 74 79 2d 70 72 69 6e 74 22 29 0a 20 20 20 28 22 2d 73 22 20 22 45 6e 61 62 6c 65 20 73 retty-print")....("-s"."Enable.s
1c9e0 68 61 72 69 6e 67 20 6f 66 20 62 6f 6f 6b 20 63 6f 6e 74 65 6e 74 20 76 69 61 20 46 61 63 65 62 haring.of.book.content.via.Faceb
1ca00 6f 6f 6b 20 65 74 63 2e 22 20 22 2d 2d 73 68 61 72 65 2d 6e 6f 74 2d 73 79 6e 63 22 29 0a 20 20 ook.etc."."--share-not-sync")...
1ca20 20 28 22 2d 54 22 20 22 54 69 74 6c 65 20 66 6f 72 20 61 6e 79 20 67 65 6e 65 72 61 74 65 64 20 .("-T"."Title.for.any.generated.
1ca40 69 6e 2d 6c 69 6e 65 20 74 61 62 6c 65 20 6f 66 20 63 6f 6e 74 65 6e 74 73 2e 22 20 22 2d 2d 74 in-line.table.of.contents."."--t
1ca60 6f 63 2d 74 69 74 6c 65 22 29 5d 0a 20 20 5b 5b 22 45 78 70 6f 72 74 22 0a 20 20 20 20 28 22 65 oc-title")]...[["Export".....("e
1ca80 22 20 22 45 78 70 6f 72 74 22 20 63 61 6c 69 62 72 65 64 62 2d 63 6f 6e 76 65 72 74 2d 74 6f 2d "."Export".calibredb-convert-to-
1caa0 6d 6f 62 69 29 5d 5d 0a 20 20 5b 28 22 71 22 20 22 51 75 69 74 22 20 20 20 74 72 61 6e 73 69 65 mobi)]]...[("q"."Quit"...transie
1cac0 6e 74 2d 71 75 69 74 2d 6f 6e 65 29 5d 29 0a 0a 28 74 72 61 6e 73 69 65 6e 74 2d 64 65 66 69 6e nt-quit-one)])..(transient-defin
1cae0 65 2d 70 72 65 66 69 78 20 63 61 6c 69 62 72 65 64 62 2d 63 61 74 61 6c 6f 67 2d 62 69 62 2d 64 e-prefix.calibredb-catalog-bib-d
1cb00 69 73 70 61 74 63 68 20 28 29 0a 20 20 22 44 69 73 70 61 74 63 68 20 66 6f 72 20 63 61 74 61 6c ispatch.()..."Dispatch.for.catal
1cb20 6f 67 20 42 69 62 54 65 78 2e 22 0a 20 20 5b 22 41 72 67 75 6d 65 6e 74 73 22 0a 20 20 20 28 22 og.BibTex."...["Arguments"....("
1cb40 2d 66 22 20 22 54 68 65 20 66 69 65 6c 64 73 20 28 63 6f 6d 6d 61 2d 73 65 70 61 72 61 74 65 64 -f"."The.fields.(comma-separated
1cb60 29 20 74 6f 20 6f 75 74 70 75 74 2e 20 44 65 66 61 75 6c 74 3a 20 61 6c 6c 22 20 22 2d 2d 66 69 ).to.output..Default:.all"."--fi
1cb80 65 6c 64 73 20 22 20 63 61 6c 69 62 72 65 64 62 2d 74 72 61 6e 73 69 65 6e 74 2d 72 65 61 64 2d elds.".calibredb-transient-read-
1cba0 62 69 62 2d 66 69 65 6c 64 73 29 0a 20 20 20 28 22 2d 74 22 20 22 45 6e 74 72 79 20 74 79 70 65 bib-fields)....("-t"."Entry.type
1cbc0 20 66 6f 72 20 42 69 62 54 65 58 20 63 61 74 61 6c 6f 67 2e 20 44 65 66 61 75 6c 74 3a 20 62 6f .for.BibTeX.catalog..Default:.bo
1cbe0 6f 6b 22 20 20 22 2d 2d 65 6e 74 72 79 2d 74 79 70 65 20 22 20 63 61 6c 69 62 72 65 64 62 2d 74 ok".."--entry-type.".calibredb-t
1cc00 72 61 6e 73 69 65 6e 74 2d 72 65 61 64 2d 65 6e 74 72 79 2d 74 79 70 65 29 0a 20 20 20 28 22 2d ransient-read-entry-type)....("-
1cc20 73 22 20 22 4f 75 74 70 75 74 20 66 69 65 6c 64 20 74 6f 20 73 6f 72 74 20 6f 6e 2e 20 44 65 66 s"."Output.field.to.sort.on..Def
1cc40 61 75 6c 74 3a 20 69 64 22 20 22 2d 2d 73 6f 72 74 2d 62 79 20 22 20 63 61 6c 69 62 72 65 64 62 ault:.id"."--sort-by.".calibredb
1cc60 2d 74 72 61 6e 73 69 65 6e 74 2d 72 65 61 64 2d 62 69 62 2d 73 6f 72 74 2d 62 79 29 0a 20 20 20 -transient-read-bib-sort-by)....
1cc80 28 22 2d 63 22 20 22 43 72 65 61 74 65 20 61 20 63 69 74 61 74 69 6f 6e 20 66 6f 72 20 42 69 62 ("-c"."Create.a.citation.for.Bib
1cca0 54 65 58 20 65 6e 74 72 69 65 73 2e 20 44 65 66 61 75 6c 74 3a 20 54 72 75 65 22 20 20 22 20 2d TeX.entries..Default:.True"..".-
1ccc0 2d 63 72 65 61 74 65 2d 63 69 74 61 74 69 6f 6e 20 22 20 63 61 6c 69 62 72 65 64 62 2d 74 72 61 -create-citation.".calibredb-tra
1cce0 6e 73 69 65 6e 74 2d 72 65 61 64 2d 62 69 62 2d 63 72 65 61 74 65 2d 63 69 74 61 74 69 6f 6e 29 nsient-read-bib-create-citation)
1cd00 0a 20 20 20 28 22 2d 70 22 20 22 43 72 65 61 74 65 20 61 20 66 69 6c 65 20 65 6e 74 72 79 20 69 ....("-p"."Create.a.file.entry.i
1cd20 66 20 66 6f 72 6d 61 74 73 20 69 73 20 73 65 6c 65 63 74 65 64 20 66 6f 72 20 42 69 62 54 65 58 f.formats.is.selected.for.BibTeX
1cd40 20 65 6e 74 72 69 65 73 2e 20 44 65 66 61 75 6c 74 3a 20 54 72 75 65 22 20 20 22 2d 2d 61 64 64 .entries..Default:.True".."--add
1cd60 2d 66 69 6c 65 73 2d 70 61 74 68 20 22 20 63 61 6c 69 62 72 65 64 62 2d 74 72 61 6e 73 69 65 6e -files-path.".calibredb-transien
1cd80 74 2d 72 65 61 64 2d 62 69 62 2d 61 64 64 2d 66 69 6c 65 73 2d 70 61 74 68 29 0a 20 20 20 28 22 t-read-bib-add-files-path)....("
1cda0 2d 54 22 20 22 54 68 65 20 74 65 6d 70 6c 61 74 65 20 66 6f 72 20 63 69 74 61 74 69 6f 6e 20 63 -T"."The.template.for.citation.c
1cdc0 72 65 61 74 69 6f 6e 20 66 72 6f 6d 20 64 61 74 61 62 61 73 65 20 66 69 65 6c 64 73 2e 20 44 65 reation.from.database.fields..De
1cde0 66 61 75 6c 74 3a 20 7b 61 75 74 68 6f 72 73 7d 7b 69 64 7d 22 20 22 2d 2d 63 69 74 61 74 69 6f fault:.{authors}{id}"."--citatio
1ce00 6e 2d 74 65 6d 70 6c 61 74 65 20 22 20 63 61 6c 69 62 72 65 64 62 2d 74 72 61 6e 73 69 65 6e 74 n-template.".calibredb-transient
1ce20 2d 72 65 61 64 2d 62 69 62 2d 63 69 74 61 74 69 6f 6e 2d 74 65 6d 70 6c 61 74 65 29 0a 20 20 20 -read-bib-citation-template)....
1ce40 28 22 2d 65 22 20 22 42 69 62 54 65 58 20 66 69 6c 65 20 65 6e 63 6f 64 69 6e 67 20 6f 75 74 70 ("-e"."BibTeX.file.encoding.outp
1ce60 75 74 2e 20 44 65 66 61 75 6c 74 3a 20 75 74 66 38 22 20 20 22 2d 2d 63 68 6f 6f 73 65 2d 65 6e ut..Default:.utf8".."--choose-en
1ce80 63 6f 64 69 6e 67 20 22 20 63 61 6c 69 62 72 65 64 62 2d 74 72 61 6e 73 69 65 6e 74 2d 72 65 61 coding.".calibredb-transient-rea
1cea0 64 2d 63 68 6f 6f 73 65 2d 65 6e 63 6f 64 69 6e 67 29 0a 20 20 20 28 22 2d 45 22 20 22 42 69 62 d-choose-encoding)....("-E"."Bib
1cec0 54 65 58 20 66 69 6c 65 20 65 6e 63 6f 64 69 6e 67 20 66 6c 61 67 2e 20 44 65 66 61 75 6c 74 3a TeX.file.encoding.flag..Default:
1cee0 20 73 74 72 69 63 74 22 20 20 22 2d 2d 63 68 6f 6f 73 65 2d 65 6e 63 6f 64 69 6e 67 2d 63 6f 6e .strict".."--choose-encoding-con
1cf00 66 69 67 75 72 61 74 69 6f 6e 20 22 20 63 61 6c 69 62 72 65 64 62 2d 74 72 61 6e 73 69 65 6e 74 figuration.".calibredb-transient
1cf20 2d 72 65 61 64 2d 63 68 6f 6f 73 65 2d 65 6e 63 6f 64 69 6e 67 2d 63 6f 6e 66 69 67 75 72 61 74 -read-choose-encoding-configurat
1cf40 69 6f 6e 29 5d 0a 20 20 5b 5b 22 42 69 62 74 65 78 22 0a 20 20 20 20 28 22 6f 22 20 22 46 69 6e ion)]...[["Bibtex".....("o"."Fin
1cf60 64 20 42 69 62 54 65 78 20 66 69 6c 65 22 20 20 20 20 20 20 20 20 20 63 61 6c 69 62 72 65 64 62 d.BibTex.file".........calibredb
1cf80 2d 66 69 6e 64 2d 62 69 62 29 0a 20 20 20 20 28 22 62 22 20 22 55 70 64 61 74 65 20 42 69 62 54 -find-bib).....("b"."Update.BibT
1cfa0 65 78 20 66 69 6c 65 22 20 20 20 20 20 20 20 20 20 63 61 6c 69 62 72 65 64 62 2d 63 61 74 61 6c ex.file".........calibredb-catal
1cfc0 6f 67 2d 62 69 62 2d 2d 74 72 61 6e 73 69 65 6e 74 29 5d 5d 0a 20 20 5b 28 22 71 22 20 22 51 75 og-bib--transient)]]...[("q"."Qu
1cfe0 69 74 22 20 20 20 74 72 61 6e 73 69 65 6e 74 2d 71 75 69 74 2d 6f 6e 65 29 5d 29 0a 0a 28 74 72 it"...transient-quit-one)])..(tr
1d000 61 6e 73 69 65 6e 74 2d 64 65 66 69 6e 65 2d 70 72 65 66 69 78 20 63 61 6c 69 62 72 65 64 62 2d ansient-define-prefix.calibredb-
1d020 79 61 6e 6b 2d 64 69 73 70 61 74 63 68 20 28 29 0a 20 20 22 49 6e 76 6f 6b 65 20 61 20 59 61 6e yank-dispatch.()..."Invoke.a.Yan
1d040 6b 20 6f 70 65 72 61 74 69 6f 6e 2e 22 0a 20 20 3a 6d 61 6e 2d 70 61 67 65 20 22 63 61 6c 69 62 k.operation."...:man-page."calib
1d060 72 65 64 62 22 0a 20 20 5b 22 59 61 6e 6b 20 6f 70 65 72 61 69 6f 6e 22 0a 20 20 20 5b 28 22 79 redb"...["Yank.operaion"....[("y
1d080 22 20 22 43 6f 70 79 20 61 73 20 63 61 6c 69 62 72 65 64 62 20 6f 72 67 20 6c 69 6e 6b 73 22 20 "."Copy.as.calibredb.org.links".
1d0a0 20 20 20 20 20 20 20 20 63 61 6c 69 62 72 65 64 62 2d 6f 72 67 2d 6c 69 6e 6b 2d 63 6f 70 79 29 ........calibredb-org-link-copy)
1d0c0 0a 20 20 20 20 28 22 66 22 20 22 43 6f 70 79 20 61 73 20 66 69 6c 65 20 6f 72 67 20 6c 69 6e 6b .....("f"."Copy.as.file.org.link
1d0e0 73 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 61 6c 69 62 72 65 64 62 2d 63 6f 70 79 2d 61 s"..............calibredb-copy-a
1d100 73 2d 6f 72 67 2d 6c 69 6e 6b 29 5d 5d 0a 20 20 5b 28 22 71 22 20 22 51 75 69 74 22 20 20 20 74 s-org-link)]]...[("q"."Quit"...t
1d120 72 61 6e 73 69 65 6e 74 2d 71 75 69 74 2d 6f 6e 65 29 5d 29 0a 0a 28 64 65 66 75 6e 20 63 61 6c ransient-quit-one)])..(defun.cal
1d140 69 62 72 65 64 62 2d 74 72 61 6e 73 69 65 6e 74 2d 72 65 61 64 2d 62 69 62 2d 66 69 65 6c 64 73 ibredb-transient-read-bib-fields
1d160 20 28 70 72 6f 6d 70 74 20 5f 69 6e 69 74 69 61 6c 2d 69 6e 70 75 74 20 5f 68 69 73 74 6f 72 79 .(prompt._initial-input._history
1d180 29 0a 20 20 22 54 4f 44 4f 3a 20 52 65 61 64 20 61 20 42 69 62 54 65 78 20 2d 2d 66 69 65 6c 64 )..."TODO:.Read.a.BibTex.--field
1d1a0 73 20 76 61 6c 75 65 2e 0a 41 72 67 75 6d 65 6e 74 20 50 52 4f 4d 50 54 20 70 72 6f 6d 70 74 20 s.value..Argument.PROMPT.prompt.
1d1c0 74 6f 20 73 68 6f 77 2e 22 0a 20 20 28 72 65 61 64 2d 73 74 72 69 6e 67 20 70 72 6f 6d 70 74 20 to.show."...(read-string.prompt.
1d1e0 22 74 69 74 6c 65 2c 74 69 74 6c 65 5f 73 6f 72 74 2c 61 75 74 68 6f 72 5f 73 6f 72 74 2c 61 75 "title,title_sort,author_sort,au
1d200 74 68 6f 72 73 2c 63 6f 6d 6d 65 6e 74 73 2c 63 6f 76 65 72 2c 66 6f 72 6d 61 74 73 2c 69 64 2c thors,comments,cover,formats,id,
1d220 69 73 62 6e 2c 6c 69 62 72 61 72 79 5f 6e 61 6d 65 2c 6f 6e 64 65 76 69 63 65 2c 70 75 62 64 61 isbn,library_name,ondevice,pubda
1d240 74 65 2c 70 75 62 6c 69 73 68 65 72 2c 72 61 74 69 6e 67 2c 73 65 72 69 65 73 5f 69 6e 64 65 78 te,publisher,rating,series_index
1d260 2c 73 65 72 69 65 73 2c 73 69 7a 65 2c 74 61 67 73 2c 74 69 6d 65 73 74 61 6d 70 2c 75 75 69 64 ,series,size,tags,timestamp,uuid
1d280 2c 6c 61 6e 67 75 61 67 65 73 2c 69 64 65 6e 74 69 66 69 65 72 73 22 29 29 0a 0a 28 64 65 66 75 ,languages,identifiers"))..(defu
1d2a0 6e 20 63 61 6c 69 62 72 65 64 62 2d 74 72 61 6e 73 69 65 6e 74 2d 72 65 61 64 2d 62 69 62 2d 73 n.calibredb-transient-read-bib-s
1d2c0 6f 72 74 2d 62 79 20 28 70 72 6f 6d 70 74 20 5f 69 6e 69 74 69 61 6c 2d 69 6e 70 75 74 20 5f 68 ort-by.(prompt._initial-input._h
1d2e0 69 73 74 6f 72 79 29 0a 20 20 22 52 65 61 64 20 61 20 42 69 62 54 65 78 20 2d 2d 73 6f 72 74 2d istory)..."Read.a.BibTex.--sort-
1d300 62 79 20 76 61 6c 75 65 2e 0a 41 72 67 75 6d 65 6e 74 20 50 52 4f 4d 50 54 20 70 72 6f 6d 70 74 by.value..Argument.PROMPT.prompt
1d320 20 74 6f 20 73 68 6f 77 2e 22 0a 20 20 28 63 6f 6d 70 6c 65 74 69 6e 67 2d 72 65 61 64 20 70 72 .to.show."...(completing-read.pr
1d340 6f 6d 70 74 20 27 28 22 61 75 74 68 6f 72 5f 73 6f 72 74 22 20 22 69 64 22 20 22 72 61 74 69 6e ompt.'("author_sort"."id"."ratin
1d360 67 22 20 22 73 69 7a 65 22 20 22 74 69 6d 65 73 74 61 6d 70 22 20 22 74 69 74 6c 65 22 29 29 29 g"."size"."timestamp"."title")))
1d380 0a 0a 28 64 65 66 75 6e 20 63 61 6c 69 62 72 65 64 62 2d 74 72 61 6e 73 69 65 6e 74 2d 72 65 61 ..(defun.calibredb-transient-rea
1d3a0 64 2d 62 69 62 2d 63 72 65 61 74 65 2d 63 69 74 61 74 69 6f 6e 20 28 70 72 6f 6d 70 74 20 5f 69 d-bib-create-citation.(prompt._i
1d3c0 6e 69 74 69 61 6c 2d 69 6e 70 75 74 20 5f 68 69 73 74 6f 72 79 29 0a 20 20 22 52 65 61 64 20 61 nitial-input._history)..."Read.a
1d3e0 20 42 69 62 54 65 78 20 2d 2d 63 72 65 61 74 65 2d 63 69 74 61 74 69 6f 6e 20 76 61 6c 75 65 2e .BibTex.--create-citation.value.
1d400 0a 41 72 67 75 6d 65 6e 74 20 50 52 4f 4d 50 54 20 70 72 6f 6d 70 74 20 74 6f 20 73 68 6f 77 2e .Argument.PROMPT.prompt.to.show.
1d420 22 0a 20 20 28 63 6f 6d 70 6c 65 74 69 6e 67 2d 72 65 61 64 20 70 72 6f 6d 70 74 20 27 28 22 54 "...(completing-read.prompt.'("T
1d440 72 75 65 22 20 22 46 61 6c 73 65 22 29 29 29 0a 0a 28 64 65 66 75 6e 20 63 61 6c 69 62 72 65 64 rue"."False")))..(defun.calibred
1d460 62 2d 74 72 61 6e 73 69 65 6e 74 2d 72 65 61 64 2d 62 69 62 2d 61 64 64 2d 66 69 6c 65 73 2d 70 b-transient-read-bib-add-files-p
1d480 61 74 68 20 28 70 72 6f 6d 70 74 20 5f 69 6e 69 74 69 61 6c 2d 69 6e 70 75 74 20 5f 68 69 73 74 ath.(prompt._initial-input._hist
1d4a0 6f 72 79 29 0a 20 20 22 52 65 61 64 20 61 20 42 69 62 54 65 78 20 2d 2d 61 64 64 2d 66 69 6c 65 ory)..."Read.a.BibTex.--add-file
1d4c0 73 2d 70 61 74 68 20 76 61 6c 75 65 2e 0a 41 72 67 75 6d 65 6e 74 20 50 52 4f 4d 50 54 20 70 72 s-path.value..Argument.PROMPT.pr
1d4e0 6f 6d 70 74 20 74 6f 20 73 68 6f 77 2e 22 0a 20 20 28 63 6f 6d 70 6c 65 74 69 6e 67 2d 72 65 61 ompt.to.show."...(completing-rea
1d500 64 20 70 72 6f 6d 70 74 20 27 28 22 54 72 75 65 22 20 22 46 61 6c 73 65 22 29 29 29 0a 0a 28 64 d.prompt.'("True"."False")))..(d
1d520 65 66 75 6e 20 63 61 6c 69 62 72 65 64 62 2d 74 72 61 6e 73 69 65 6e 74 2d 72 65 61 64 2d 62 69 efun.calibredb-transient-read-bi
1d540 62 2d 63 69 74 61 74 69 6f 6e 2d 74 65 6d 70 6c 61 74 65 20 28 70 72 6f 6d 70 74 20 5f 69 6e 69 b-citation-template.(prompt._ini
1d560 74 69 61 6c 2d 69 6e 70 75 74 20 5f 68 69 73 74 6f 72 79 29 0a 20 20 22 54 4f 44 4f 3a 20 52 65 tial-input._history)..."TODO:.Re
1d580 61 64 20 61 20 42 69 62 54 65 78 20 2d 2d 63 69 74 61 74 69 6f 6e 2d 74 65 6d 70 6c 61 74 65 20 ad.a.BibTex.--citation-template.
1d5a0 76 61 6c 75 65 2e 0a 41 72 67 75 6d 65 6e 74 20 50 52 4f 4d 50 54 20 70 72 6f 6d 70 74 20 74 6f value..Argument.PROMPT.prompt.to
1d5c0 20 73 68 6f 77 2e 22 0a 20 20 28 72 65 61 64 2d 73 74 72 69 6e 67 20 70 72 6f 6d 70 74 20 22 7b .show."...(read-string.prompt."{
1d5e0 61 75 74 68 6f 72 5f 73 6f 72 74 7d 7b 61 75 74 68 6f 72 73 7d 7b 69 64 7d 7b 69 73 62 6e 7d 7b author_sort}{authors}{id}{isbn}{
1d600 70 75 62 64 61 74 65 7d 7b 74 69 74 6c 65 5f 73 6f 72 74 7d 7b 70 75 62 6c 69 73 68 65 72 7d 7b pubdate}{title_sort}{publisher}{
1d620 73 65 72 69 65 73 5f 69 6e 64 65 78 7d 7b 73 65 72 69 65 73 7d 7b 74 61 67 73 7d 7b 74 69 6d 65 series_index}{series}{tags}{time
1d640 73 74 61 6d 70 7d 7b 74 69 74 6c 65 7d 7b 75 75 69 64 7d 22 29 29 0a 0a 28 64 65 66 75 6e 20 63 stamp}{title}{uuid}"))..(defun.c
1d660 61 6c 69 62 72 65 64 62 2d 74 72 61 6e 73 69 65 6e 74 2d 72 65 61 64 2d 63 68 6f 6f 73 65 2d 65 alibredb-transient-read-choose-e
1d680 6e 63 6f 64 69 6e 67 20 28 70 72 6f 6d 70 74 20 5f 69 6e 69 74 69 61 6c 2d 69 6e 70 75 74 20 5f ncoding.(prompt._initial-input._
1d6a0 68 69 73 74 6f 72 79 29 0a 20 20 22 52 65 61 64 20 61 20 42 69 62 54 65 78 20 2d 2d 63 68 6f 6f history)..."Read.a.BibTex.--choo
1d6c0 73 65 2d 65 6e 63 6f 64 69 6e 67 20 76 61 6c 75 65 2e 0a 41 72 67 75 6d 65 6e 74 20 50 52 4f 4d se-encoding.value..Argument.PROM
1d6e0 50 54 20 70 72 6f 6d 70 74 20 74 6f 20 73 68 6f 77 2e 22 0a 20 20 28 63 6f 6d 70 6c 65 74 69 6e PT.prompt.to.show."...(completin
1d700 67 2d 72 65 61 64 20 70 72 6f 6d 70 74 20 27 28 22 75 74 66 38 22 20 22 63 70 31 32 35 32 22 20 g-read.prompt.'("utf8"."cp1252".
1d720 22 61 73 63 69 69 22 29 29 29 0a 0a 28 64 65 66 75 6e 20 63 61 6c 69 62 72 65 64 62 2d 74 72 61 "ascii")))..(defun.calibredb-tra
1d740 6e 73 69 65 6e 74 2d 72 65 61 64 2d 63 68 6f 6f 73 65 2d 65 6e 63 6f 64 69 6e 67 2d 63 6f 6e 66 nsient-read-choose-encoding-conf
1d760 69 67 75 72 61 74 69 6f 6e 20 28 70 72 6f 6d 70 74 20 5f 69 6e 69 74 69 61 6c 2d 69 6e 70 75 74 iguration.(prompt._initial-input
1d780 20 5f 68 69 73 74 6f 72 79 29 0a 20 20 22 52 65 61 64 20 61 20 42 69 62 54 65 78 20 2d 2d 63 68 ._history)..."Read.a.BibTex.--ch
1d7a0 6f 6f 73 65 2d 65 6e 63 6f 64 69 6e 67 2d 63 6f 6e 66 69 67 75 72 61 74 69 6f 6e 20 76 61 6c 75 oose-encoding-configuration.valu
1d7c0 65 2e 0a 41 72 67 75 6d 65 6e 74 20 50 52 4f 4d 50 54 20 70 72 6f 6d 70 74 20 74 6f 20 73 68 6f e..Argument.PROMPT.prompt.to.sho
1d7e0 77 2e 22 0a 20 20 28 63 6f 6d 70 6c 65 74 69 6e 67 2d 72 65 61 64 20 70 72 6f 6d 70 74 20 27 28 w."...(completing-read.prompt.'(
1d800 22 73 74 72 69 63 74 22 20 22 72 65 70 6c 61 63 65 22 20 22 69 67 6e 6f 72 65 22 20 22 62 61 63 "strict"."replace"."ignore"."bac
1d820 6b 73 6c 61 73 68 72 65 70 6c 61 63 65 22 29 29 29 0a 0a 28 64 65 66 75 6e 20 63 61 6c 69 62 72 kslashreplace")))..(defun.calibr
1d840 65 64 62 2d 74 72 61 6e 73 69 65 6e 74 2d 72 65 61 64 2d 65 6e 74 72 79 2d 74 79 70 65 20 28 70 edb-transient-read-entry-type.(p
1d860 72 6f 6d 70 74 20 5f 69 6e 69 74 69 61 6c 2d 69 6e 70 75 74 20 5f 68 69 73 74 6f 72 79 29 0a 20 rompt._initial-input._history)..
1d880 20 22 52 65 61 64 20 61 20 42 69 62 54 65 78 20 2d 2d 65 6e 74 72 79 2d 74 79 70 65 20 76 61 6c ."Read.a.BibTex.--entry-type.val
1d8a0 75 65 2e 0a 41 72 67 75 6d 65 6e 74 20 50 52 4f 4d 50 54 20 70 72 6f 6d 70 74 20 74 6f 20 73 68 ue..Argument.PROMPT.prompt.to.sh
1d8c0 6f 77 2e 22 0a 20 20 28 63 6f 6d 70 6c 65 74 69 6e 67 2d 72 65 61 64 20 70 72 6f 6d 70 74 20 27 ow."...(completing-read.prompt.'
1d8e0 28 22 62 6f 6f 6b 22 20 22 6d 69 73 63 22 20 22 6d 69 78 65 64 22 29 29 29 0a 0a 3b 3b 20 52 65 ("book"."misc"."mixed")))..;;.Re
1d900 61 64 65 72 73 0a 0a 28 64 65 66 75 6e 20 63 61 6c 69 62 72 65 64 62 2d 74 72 61 6e 73 69 65 6e aders..(defun.calibredb-transien
1d920 74 2d 72 65 61 64 2d 66 69 6c 65 20 28 70 72 6f 6d 70 74 20 5f 69 6e 69 74 69 61 6c 2d 69 6e 70 t-read-file.(prompt._initial-inp
1d940 75 74 20 5f 68 69 73 74 6f 72 79 29 0a 20 20 22 52 65 61 64 20 61 20 66 69 6c 65 20 70 61 74 68 ut._history)..."Read.a.file.path
1d960 2e 0a 41 72 67 75 6d 65 6e 74 20 50 52 4f 4d 50 54 20 70 72 6f 6d 70 74 20 74 6f 20 73 68 6f 77 ..Argument.PROMPT.prompt.to.show
1d980 2e 22 0a 20 20 28 65 78 70 61 6e 64 2d 66 69 6c 65 2d 6e 61 6d 65 20 28 72 65 61 64 2d 66 69 6c ."...(expand-file-name.(read-fil
1d9a0 65 2d 6e 61 6d 65 20 70 72 6f 6d 70 74 29 29 29 0a 0a 28 64 65 66 75 6e 20 63 61 6c 69 62 72 65 e-name.prompt)))..(defun.calibre
1d9c0 64 62 2d 74 72 61 6e 73 69 65 6e 74 2d 72 65 61 64 2d 6d 65 74 61 64 61 74 61 20 28 70 72 6f 6d db-transient-read-metadata.(prom
1d9e0 70 74 20 5f 69 6e 69 74 69 61 6c 2d 69 6e 70 75 74 20 5f 68 69 73 74 6f 72 79 20 26 6f 70 74 69 pt._initial-input._history.&opti
1da00 6f 6e 61 6c 20 74 79 70 65 29 0a 20 20 22 52 65 61 64 20 6d 65 74 61 64 61 74 61 20 2d 20 74 69 onal.type)..."Read.metadata.-.ti
1da20 74 6c 65 2e 0a 41 72 67 75 6d 65 6e 74 20 50 52 4f 4d 50 54 20 70 72 6f 6d 70 74 20 74 6f 20 73 tle..Argument.PROMPT.prompt.to.s
1da40 68 6f 77 2e 0a 4f 70 74 69 6f 6e 61 6c 20 61 72 67 75 6d 65 6e 74 20 54 59 50 45 2e 22 0a 20 20 how..Optional.argument.TYPE."...
1da60 28 6c 65 74 20 28 28 63 61 6e 64 29 29 0a 20 20 20 20 28 69 66 20 28 65 71 20 6d 61 6a 6f 72 2d (let.((cand)).....(if.(eq.major-
1da80 6d 6f 64 65 20 27 63 61 6c 69 62 72 65 64 62 2d 73 65 61 72 63 68 2d 6d 6f 64 65 29 0a 20 20 20 mode.'calibredb-search-mode)....
1daa0 20 20 20 20 20 28 73 65 74 71 20 63 61 6e 64 20 28 63 64 72 20 28 67 65 74 2d 74 65 78 74 2d 70 .....(setq.cand.(cdr.(get-text-p
1dac0 72 6f 70 65 72 74 79 20 28 70 6f 69 6e 74 29 20 27 63 61 6c 69 62 72 65 64 62 2d 65 6e 74 72 79 roperty.(point).'calibredb-entry
1dae0 20 6e 69 6c 29 29 29 0a 20 20 20 20 20 20 28 73 65 74 71 20 63 61 6e 64 20 28 67 65 74 2d 74 65 .nil))).......(setq.cand.(get-te
1db00 78 74 2d 70 72 6f 70 65 72 74 79 20 28 70 6f 69 6e 74 2d 6d 69 6e 29 20 27 63 61 6c 69 62 72 65 xt-property.(point-min).'calibre
1db20 64 62 2d 65 6e 74 72 79 20 6e 69 6c 29 29 29 0a 20 20 20 20 28 6c 65 74 20 28 28 6c 61 73 74 2d db-entry.nil))).....(let.((last-
1db40 69 6e 70 75 74 29 29 0a 20 20 20 20 20 20 28 6c 65 74 2a 20 28 28 74 69 74 6c 65 20 28 63 61 6c input)).......(let*.((title.(cal
1db60 69 62 72 65 64 62 2d 67 65 74 61 74 74 72 20 63 61 6e 64 20 3a 62 6f 6f 6b 2d 74 69 74 6c 65 29 ibredb-getattr.cand.:book-title)
1db80 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 64 20 28 63 61 6c 69 62 72 65 64 62 2d 67 65 )..............(id.(calibredb-ge
1dba0 74 61 74 74 72 20 63 61 6e 64 20 3a 69 64 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 tattr.cand.:id))..............(i
1dbc0 6e 69 74 20 28 63 61 6c 69 62 72 65 64 62 2d 67 65 74 2d 69 6e 69 74 20 74 79 70 65 20 63 61 6e nit.(calibredb-get-init.type.can
1dbe0 64 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6e 75 6d 20 28 6c 65 6e 67 74 68 20 28 63 d))..............(num.(length.(c
1dc00 61 6c 69 62 72 65 64 62 2d 66 69 6e 64 2d 6d 61 72 6b 65 64 2d 63 61 6e 64 69 64 61 74 65 73 29 alibredb-find-marked-candidates)
1dc20 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 6e 70 75 74 20 28 6f 72 20 6c 61 73 74 2d ))..............(input.(or.last-
1dc40 69 6e 70 75 74 20 28 72 65 61 64 2d 73 74 72 69 6e 67 20 28 69 66 20 28 3e 20 6e 75 6d 20 30 29 input.(read-string.(if.(>.num.0)
1dc60 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ................................
1dc80 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 6e 63 61 74 20 22 53 65 .....................(concat."Se
1dca0 74 20 22 20 74 79 70 65 20 22 20 66 6f 72 20 22 20 28 6e 75 6d 62 65 72 2d 74 6f 2d 73 74 72 69 t.".type.".for.".(number-to-stri
1dcc0 6e 67 20 6e 75 6d 29 20 22 20 69 74 65 6d 73 3a 20 22 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 ng.num).".items:.").............
1dce0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ................................
1dd00 20 20 20 20 20 20 28 63 6f 6e 63 61 74 20 70 72 6f 6d 70 74 20 69 64 20 22 20 22 20 74 69 74 6c ......(concat.prompt.id.".".titl
1dd20 65 20 22 3a 20 22 29 20 29 20 69 6e 69 74 29 29 29 29 0a 20 20 20 20 20 20 20 20 3b 3b 20 73 65 e.":.").).init)))).........;;.se
1dd40 74 20 74 68 65 20 69 6e 70 75 74 20 61 73 20 6c 61 73 74 20 69 6e 70 75 74 2c 20 73 6f 20 74 68 t.the.input.as.last.input,.so.th
1dd60 61 74 20 61 6c 6c 20 69 74 65 6d 73 20 75 73 65 20 74 68 65 20 73 61 6d 65 20 69 6e 70 75 74 0a at.all.items.use.the.same.input.
1dd80 20 20 20 20 20 20 20 20 28 73 65 74 71 20 6c 61 73 74 2d 69 6e 70 75 74 20 69 6e 70 75 74 29 29 ........(setq.last-input.input))
1dda0 29 29 29 0a 0a 28 64 65 66 75 6e 20 63 61 6c 69 62 72 65 64 62 2d 74 72 61 6e 73 69 65 6e 74 2d )))..(defun.calibredb-transient-
1ddc0 72 65 61 64 2d 6d 65 74 61 64 61 74 61 2d 74 61 67 73 20 28 70 72 6f 6d 70 74 20 69 6e 69 74 69 read-metadata-tags.(prompt.initi
1dde0 61 6c 2d 69 6e 70 75 74 20 68 69 73 74 6f 72 79 29 0a 20 20 28 63 61 6c 69 62 72 65 64 62 2d 74 al-input.history)...(calibredb-t
1de00 72 61 6e 73 69 65 6e 74 2d 72 65 61 64 2d 6d 65 74 61 64 61 74 61 20 70 72 6f 6d 70 74 20 69 6e ransient-read-metadata.prompt.in
1de20 69 74 69 61 6c 2d 69 6e 70 75 74 20 68 69 73 74 6f 72 79 20 22 74 61 67 73 22 29 29 0a 0a 28 64 itial-input.history."tags"))..(d
1de40 65 66 75 6e 20 63 61 6c 69 62 72 65 64 62 2d 74 72 61 6e 73 69 65 6e 74 2d 72 65 61 64 2d 6d 65 efun.calibredb-transient-read-me
1de60 74 61 64 61 74 61 2d 69 64 73 20 28 70 72 6f 6d 70 74 20 69 6e 69 74 69 61 6c 2d 69 6e 70 75 74 tadata-ids.(prompt.initial-input
1de80 20 68 69 73 74 6f 72 79 29 0a 20 20 28 63 61 6c 69 62 72 65 64 62 2d 74 72 61 6e 73 69 65 6e 74 .history)...(calibredb-transient
1dea0 2d 72 65 61 64 2d 6d 65 74 61 64 61 74 61 20 70 72 6f 6d 70 74 20 69 6e 69 74 69 61 6c 2d 69 6e -read-metadata.prompt.initial-in
1dec0 70 75 74 20 68 69 73 74 6f 72 79 20 22 69 64 73 22 29 29 0a 0a 28 64 65 66 75 6e 20 63 61 6c 69 put.history."ids"))..(defun.cali
1dee0 62 72 65 64 62 2d 74 72 61 6e 73 69 65 6e 74 2d 72 65 61 64 2d 6d 65 74 61 64 61 74 61 2d 63 6f bredb-transient-read-metadata-co
1df00 6d 6d 65 6e 74 73 20 28 70 72 6f 6d 70 74 20 69 6e 69 74 69 61 6c 2d 69 6e 70 75 74 20 68 69 73 mments.(prompt.initial-input.his
1df20 74 6f 72 79 29 0a 20 20 28 63 61 6c 69 62 72 65 64 62 2d 74 72 61 6e 73 69 65 6e 74 2d 72 65 61 tory)...(calibredb-transient-rea
1df40 64 2d 6d 65 74 61 64 61 74 61 20 70 72 6f 6d 70 74 20 69 6e 69 74 69 61 6c 2d 69 6e 70 75 74 20 d-metadata.prompt.initial-input.
1df60 68 69 73 74 6f 72 79 20 22 63 6f 6d 6d 65 6e 74 73 22 29 29 0a 0a 28 64 65 66 75 6e 20 63 61 6c history."comments"))..(defun.cal
1df80 69 62 72 65 64 62 2d 74 72 61 6e 73 69 65 6e 74 2d 72 65 61 64 2d 6d 65 74 61 64 61 74 61 2d 61 ibredb-transient-read-metadata-a
1dfa0 75 74 68 6f 72 2d 73 6f 72 74 20 28 70 72 6f 6d 70 74 20 69 6e 69 74 69 61 6c 2d 69 6e 70 75 74 uthor-sort.(prompt.initial-input
1dfc0 20 68 69 73 74 6f 72 79 29 0a 20 20 28 63 61 6c 69 62 72 65 64 62 2d 74 72 61 6e 73 69 65 6e 74 .history)...(calibredb-transient
1dfe0 2d 72 65 61 64 2d 6d 65 74 61 64 61 74 61 20 70 72 6f 6d 70 74 20 69 6e 69 74 69 61 6c 2d 69 6e -read-metadata.prompt.initial-in
1e000 70 75 74 20 68 69 73 74 6f 72 79 20 22 61 75 74 68 6f 72 5f 73 6f 72 74 22 29 29 0a 0a 28 64 65 put.history."author_sort"))..(de
1e020 66 75 6e 20 63 61 6c 69 62 72 65 64 62 2d 74 72 61 6e 73 69 65 6e 74 2d 72 65 61 64 2d 6d 65 74 fun.calibredb-transient-read-met
1e040 61 64 61 74 61 2d 61 75 74 68 6f 72 73 20 28 70 72 6f 6d 70 74 20 69 6e 69 74 69 61 6c 2d 69 6e adata-authors.(prompt.initial-in
1e060 70 75 74 20 68 69 73 74 6f 72 79 29 0a 20 20 28 63 61 6c 69 62 72 65 64 62 2d 74 72 61 6e 73 69 put.history)...(calibredb-transi
1e080 65 6e 74 2d 72 65 61 64 2d 6d 65 74 61 64 61 74 61 20 70 72 6f 6d 70 74 20 69 6e 69 74 69 61 6c ent-read-metadata.prompt.initial
1e0a0 2d 69 6e 70 75 74 20 68 69 73 74 6f 72 79 20 22 61 75 74 68 6f 72 73 22 29 29 0a 0a 28 64 65 66 -input.history."authors"))..(def
1e0c0 75 6e 20 63 61 6c 69 62 72 65 64 62 2d 74 72 61 6e 73 69 65 6e 74 2d 72 65 61 64 2d 6d 65 74 61 un.calibredb-transient-read-meta
1e0e0 64 61 74 61 2d 74 69 74 6c 65 20 28 70 72 6f 6d 70 74 20 69 6e 69 74 69 61 6c 2d 69 6e 70 75 74 data-title.(prompt.initial-input
1e100 20 68 69 73 74 6f 72 79 29 0a 20 20 28 63 61 6c 69 62 72 65 64 62 2d 74 72 61 6e 73 69 65 6e 74 .history)...(calibredb-transient
1e120 2d 72 65 61 64 2d 6d 65 74 61 64 61 74 61 20 70 72 6f 6d 70 74 20 69 6e 69 74 69 61 6c 2d 69 6e -read-metadata.prompt.initial-in
1e140 70 75 74 20 68 69 73 74 6f 72 79 20 22 74 69 74 6c 65 22 29 29 0a 0a 3b 3b 20 47 65 74 0a 0a 28 put.history."title"))..;;.Get..(
1e160 64 65 66 75 6e 20 63 61 6c 69 62 72 65 64 62 2d 73 65 74 2d 6d 65 74 61 64 61 74 61 2d 61 72 67 defun.calibredb-set-metadata-arg
1e180 75 6d 65 6e 74 73 20 28 29 0a 20 20 22 52 65 74 75 72 6e 20 74 68 65 20 6c 61 74 65 73 74 20 75 uments.()..."Return.the.latest.u
1e1a0 73 65 64 20 61 72 67 75 6d 65 6e 74 73 20 69 6e 20 74 68 65 20 60 63 61 6c 69 62 72 65 64 62 2d sed.arguments.in.the.`calibredb-
1e1c0 73 65 74 2d 6d 65 74 61 64 61 74 61 2d 64 69 73 70 61 74 63 68 27 20 74 72 61 6e 73 69 65 6e 74 set-metadata-dispatch'.transient
1e1e0 2e 22 0a 20 20 28 63 61 72 20 28 61 6c 69 73 74 2d 67 65 74 20 27 63 61 6c 69 62 72 65 64 62 2d ."...(car.(alist-get.'calibredb-
1e200 73 65 74 2d 6d 65 74 61 64 61 74 61 2d 64 69 73 70 61 74 63 68 20 74 72 61 6e 73 69 65 6e 74 2d set-metadata-dispatch.transient-
1e220 68 69 73 74 6f 72 79 29 29 29 0a 0a 28 64 65 66 75 6e 20 63 61 6c 69 62 72 65 64 62 2d 65 78 70 history)))..(defun.calibredb-exp
1e240 6f 72 74 2d 61 72 67 75 6d 65 6e 74 73 20 28 29 0a 20 20 22 52 65 74 75 72 6e 20 74 68 65 20 6c ort-arguments.()..."Return.the.l
1e260 61 74 65 73 74 20 75 73 65 64 20 61 72 67 75 6d 65 6e 74 73 20 69 6e 20 74 68 65 20 60 63 61 6c atest.used.arguments.in.the.`cal
1e280 69 62 72 65 64 62 2d 65 78 70 6f 72 74 2d 77 69 74 68 6f 75 74 2d 63 6f 6e 76 65 72 73 69 6f 6e ibredb-export-without-conversion
1e2a0 2d 64 69 73 70 61 74 63 68 27 20 74 72 61 6e 73 69 65 6e 74 2e 22 0a 20 20 28 63 61 72 20 28 61 -dispatch'.transient."...(car.(a
1e2c0 6c 69 73 74 2d 67 65 74 20 27 63 61 6c 69 62 72 65 64 62 2d 65 78 70 6f 72 74 2d 77 69 74 68 6f list-get.'calibredb-export-witho
1e2e0 75 74 2d 63 6f 6e 76 65 72 73 69 6f 6e 2d 64 69 73 70 61 74 63 68 20 74 72 61 6e 73 69 65 6e 74 ut-conversion-dispatch.transient
1e300 2d 68 69 73 74 6f 72 79 29 29 29 0a 0a 28 64 65 66 75 6e 20 63 61 6c 69 62 72 65 64 62 2d 63 6f -history)))..(defun.calibredb-co
1e320 6e 76 65 72 74 2d 61 72 67 75 6d 65 6e 74 73 20 28 29 0a 20 20 22 52 65 74 75 72 6e 20 74 68 65 nvert-arguments.()..."Return.the
1e340 20 6c 61 74 65 73 74 20 75 73 65 64 20 61 72 67 75 6d 65 6e 74 73 20 69 6e 20 74 68 65 20 60 63 .latest.used.arguments.in.the.`c
1e360 61 6c 69 62 72 65 64 62 2d 63 6f 6e 76 65 72 74 2d 74 6f 2d 65 70 75 62 2d 64 69 73 70 61 74 63 alibredb-convert-to-epub-dispatc
1e380 68 27 20 74 72 61 6e 73 69 65 6e 74 2e 22 0a 20 20 28 63 61 72 20 28 61 6c 69 73 74 2d 67 65 74 h'.transient."...(car.(alist-get
1e3a0 20 27 63 61 6c 69 62 72 65 64 62 2d 63 6f 6e 76 65 72 74 2d 74 6f 2d 65 70 75 62 2d 64 69 73 70 .'calibredb-convert-to-epub-disp
1e3c0 61 74 63 68 20 74 72 61 6e 73 69 65 6e 74 2d 68 69 73 74 6f 72 79 29 29 29 0a 0a 28 64 65 66 75 atch.transient-history)))..(defu
1e3e0 6e 20 63 61 6c 69 62 72 65 64 62 2d 63 61 74 61 6c 6f 67 2d 62 69 62 2d 61 72 67 75 6d 65 6e 74 n.calibredb-catalog-bib-argument
1e400 73 20 28 29 0a 20 20 22 52 65 74 75 72 6e 20 74 68 65 20 6c 61 74 65 73 74 20 75 73 65 64 20 61 s.()..."Return.the.latest.used.a
1e420 72 67 75 6d 65 6e 74 73 20 69 6e 20 74 68 65 20 60 63 61 6c 69 62 72 65 64 62 2d 63 61 74 61 6c rguments.in.the.`calibredb-catal
1e440 6f 67 2d 62 69 62 2d 64 69 73 70 61 74 63 68 27 20 74 72 61 6e 73 69 65 6e 74 2e 22 0a 20 20 28 og-bib-dispatch'.transient."...(
1e460 63 61 72 20 28 61 6c 69 73 74 2d 67 65 74 20 27 63 61 6c 69 62 72 65 64 62 2d 63 61 74 61 6c 6f car.(alist-get.'calibredb-catalo
1e480 67 2d 62 69 62 2d 64 69 73 70 61 74 63 68 20 74 72 61 6e 73 69 65 6e 74 2d 68 69 73 74 6f 72 79 g-bib-dispatch.transient-history
1e4a0 29 29 29 0a 0a 28 70 72 6f 76 69 64 65 20 27 63 61 6c 69 62 72 65 64 62 2d 74 72 61 6e 73 69 65 )))..(provide.'calibredb-transie
1e4c0 6e 74 29 0a 0a 3b 3b 3b 20 63 61 6c 69 62 72 65 64 62 2d 74 72 61 6e 73 69 65 6e 74 2e 65 6c 20 nt)..;;;.calibredb-transient.el.
1e4e0 65 6e 64 73 20 68 65 72 65 0a 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ends.here.......................
1e500 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
1e520 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
1e540 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
1e560 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
1e580 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
1e5a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
1e5c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
1e5e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
1e600 63 61 6c 69 62 72 65 64 62 2d 32 30 32 34 30 33 33 31 2e 34 30 39 2f 63 61 6c 69 62 72 65 64 62 calibredb-20240331.409/calibredb
1e620 2d 6c 69 62 72 61 72 79 2e 65 6c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -library.el.....................
1e640 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
1e660 00 00 00 00 30 30 30 30 36 34 34 00 30 30 30 30 30 30 30 00 30 30 30 30 30 30 30 00 30 30 30 30 ....0000644.0000000.0000000.0000
1e680 30 30 31 35 36 34 30 00 30 30 30 30 30 30 30 30 30 30 30 00 30 31 36 35 33 34 00 20 30 00 00 00 0015640.00000000000.016534..0...
1e6a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
1e6c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
1e6e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
1e700 00 75 73 74 61 72 20 20 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 .ustar...root...................
1e720 00 00 00 00 00 00 00 00 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 .........root...................
1e740 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
1e760 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
1e780 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
1e7a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
1e7c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
1e7e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
1e800 3b 3b 3b 20 63 61 6c 69 62 72 65 64 62 2d 6c 69 62 72 61 72 79 2e 65 6c 20 2d 2d 2d 20 4c 69 62 ;;;.calibredb-library.el.---.Lib
1e820 72 61 72 79 20 66 6f 72 20 63 61 6c 69 62 72 65 64 62 20 2d 2a 2d 20 6c 65 78 69 63 61 6c 2d 62 rary.for.calibredb.-*-.lexical-b
1e840 69 6e 64 69 6e 67 3a 20 74 3b 20 2d 2a 2d 0a 0a 3b 3b 20 43 6f 70 79 72 69 67 68 74 20 28 43 29 inding:.t;.-*-..;;.Copyright.(C)
1e860 20 32 30 32 30 20 44 61 6d 6f 6e 20 43 68 61 6e 0a 0a 3b 3b 20 41 75 74 68 6f 72 3a 20 44 61 6d .2020.Damon.Chan..;;.Author:.Dam
1e880 6f 6e 20 43 68 61 6e 20 3c 65 6c 65 63 6d 69 6e 67 40 67 6d 61 69 6c 2e 63 6f 6d 3e 0a 3b 3b 20 on.Chan.<elecming@gmail.com>.;;.
1e8a0 55 52 4c 3a 20 68 74 74 70 73 3a 2f 2f 67 69 74 68 75 62 2e 63 6f 6d 2f 63 68 65 6e 79 61 6e 6d URL:.https://github.com/chenyanm
1e8c0 69 6e 67 2f 63 61 6c 69 62 72 65 64 62 2e 65 6c 0a 3b 3b 20 4b 65 79 77 6f 72 64 73 3a 20 74 6f ing/calibredb.el.;;.Keywords:.to
1e8e0 6f 6c 73 0a 3b 3b 20 56 65 72 73 69 6f 6e 3a 20 32 2e 31 32 2e 30 0a 0a 3b 3b 20 54 68 69 73 20 ols.;;.Version:.2.12.0..;;.This.
1e900 66 69 6c 65 20 69 73 20 4e 4f 54 20 70 61 72 74 20 6f 66 20 47 4e 55 20 45 6d 61 63 73 2e 0a 0a file.is.NOT.part.of.GNU.Emacs...
1e920 3b 3b 20 54 68 69 73 20 70 72 6f 67 72 61 6d 20 69 73 20 66 72 65 65 20 73 6f 66 74 77 61 72 65 ;;.This.program.is.free.software
1e940 3b 20 79 6f 75 20 63 61 6e 20 72 65 64 69 73 74 72 69 62 75 74 65 20 69 74 20 61 6e 64 2f 6f 72 ;.you.can.redistribute.it.and/or
1e960 20 6d 6f 64 69 66 79 0a 3b 3b 20 69 74 20 75 6e 64 65 72 20 74 68 65 20 74 65 72 6d 73 20 6f 66 .modify.;;.it.under.the.terms.of
1e980 20 74 68 65 20 47 4e 55 20 47 65 6e 65 72 61 6c 20 50 75 62 6c 69 63 20 4c 69 63 65 6e 73 65 20 .the.GNU.General.Public.License.
1e9a0 61 73 20 70 75 62 6c 69 73 68 65 64 20 62 79 0a 3b 3b 20 74 68 65 20 46 72 65 65 20 53 6f 66 74 as.published.by.;;.the.Free.Soft
1e9c0 77 61 72 65 20 46 6f 75 6e 64 61 74 69 6f 6e 2c 20 65 69 74 68 65 72 20 76 65 72 73 69 6f 6e 20 ware.Foundation,.either.version.
1e9e0 33 20 6f 66 20 74 68 65 20 4c 69 63 65 6e 73 65 2c 20 6f 72 0a 3b 3b 20 28 61 74 20 79 6f 75 72 3.of.the.License,.or.;;.(at.your
1ea00 20 6f 70 74 69 6f 6e 29 20 61 6e 79 20 6c 61 74 65 72 20 76 65 72 73 69 6f 6e 2e 0a 0a 3b 3b 20 .option).any.later.version...;;.
1ea20 54 68 69 73 20 70 72 6f 67 72 61 6d 20 69 73 20 64 69 73 74 72 69 62 75 74 65 64 20 69 6e 20 74 This.program.is.distributed.in.t
1ea40 68 65 20 68 6f 70 65 20 74 68 61 74 20 69 74 20 77 69 6c 6c 20 62 65 20 75 73 65 66 75 6c 2c 0a he.hope.that.it.will.be.useful,.
1ea60 3b 3b 20 62 75 74 20 57 49 54 48 4f 55 54 20 41 4e 59 20 57 41 52 52 41 4e 54 59 3b 20 77 69 74 ;;.but.WITHOUT.ANY.WARRANTY;.wit
1ea80 68 6f 75 74 20 65 76 65 6e 20 74 68 65 20 69 6d 70 6c 69 65 64 20 77 61 72 72 61 6e 74 79 20 6f hout.even.the.implied.warranty.o
1eaa0 66 0a 3b 3b 20 4d 45 52 43 48 41 4e 54 41 42 49 4c 49 54 59 20 6f 72 20 46 49 54 4e 45 53 53 20 f.;;.MERCHANTABILITY.or.FITNESS.
1eac0 46 4f 52 20 41 20 50 41 52 54 49 43 55 4c 41 52 20 50 55 52 50 4f 53 45 2e 20 20 53 65 65 20 74 FOR.A.PARTICULAR.PURPOSE...See.t
1eae0 68 65 0a 3b 3b 20 47 4e 55 20 47 65 6e 65 72 61 6c 20 50 75 62 6c 69 63 20 4c 69 63 65 6e 73 65 he.;;.GNU.General.Public.License
1eb00 20 66 6f 72 20 6d 6f 72 65 20 64 65 74 61 69 6c 73 2e 0a 0a 3b 3b 20 59 6f 75 20 73 68 6f 75 6c .for.more.details...;;.You.shoul
1eb20 64 20 68 61 76 65 20 72 65 63 65 69 76 65 64 20 61 20 63 6f 70 79 20 6f 66 20 74 68 65 20 47 4e d.have.received.a.copy.of.the.GN
1eb40 55 20 47 65 6e 65 72 61 6c 20 50 75 62 6c 69 63 20 4c 69 63 65 6e 73 65 0a 3b 3b 20 61 6c 6f 6e U.General.Public.License.;;.alon
1eb60 67 20 77 69 74 68 20 74 68 69 73 20 70 72 6f 67 72 61 6d 2e 20 20 49 66 20 6e 6f 74 2c 20 73 65 g.with.this.program...If.not,.se
1eb80 65 20 3c 68 74 74 70 73 3a 2f 2f 77 77 77 2e 67 6e 75 2e 6f 72 67 2f 6c 69 63 65 6e 73 65 73 2f e.<https://www.gnu.org/licenses/
1eba0 3e 2e 0a 0a 3b 3b 3b 20 43 6f 6d 6d 65 6e 74 61 72 79 3a 0a 0a 3b 3b 3b 20 43 6f 64 65 3a 0a 0a >...;;;.Commentary:..;;;.Code:..
1ebc0 28 72 65 71 75 69 72 65 20 27 63 61 6c 69 62 72 65 64 62 2d 63 6f 72 65 29 0a 0a 28 64 65 66 76 (require.'calibredb-core)..(defv
1ebe0 61 72 20 63 61 6c 69 62 72 65 64 62 2d 6c 69 62 72 61 72 79 2d 69 6e 64 65 78 20 30 29 0a 28 64 ar.calibredb-library-index.0).(d
1ec00 65 66 76 61 72 20 63 61 6c 69 62 72 65 64 62 2d 76 69 72 74 75 61 6c 2d 6c 69 62 72 61 72 79 2d efvar.calibredb-virtual-library-
1ec20 69 6e 64 65 78 20 30 29 0a 0a 28 64 65 63 6c 61 72 65 2d 66 75 6e 63 74 69 6f 6e 20 63 61 6c 69 index.0)..(declare-function.cali
1ec40 62 72 65 64 62 2d 72 65 66 2d 64 65 66 61 75 6c 74 2d 62 69 62 6c 69 6f 67 72 61 70 68 79 20 22 bredb-ref-default-bibliography."
1ec60 63 61 6c 69 62 72 65 64 62 2d 75 74 69 6c 73 2e 65 6c 22 29 0a 28 64 65 63 6c 61 72 65 2d 66 75 calibredb-utils.el").(declare-fu
1ec80 6e 63 74 69 6f 6e 20 63 61 6c 69 62 72 65 64 62 2d 73 65 61 72 63 68 2d 72 65 66 72 65 73 68 2d nction.calibredb-search-refresh-
1eca0 6f 72 2d 72 65 73 75 6d 65 20 22 63 61 6c 69 62 72 65 64 62 2d 73 65 61 72 63 68 2e 65 6c 22 29 or-resume."calibredb-search.el")
1ecc0 0a 28 64 65 63 6c 61 72 65 2d 66 75 6e 63 74 69 6f 6e 20 63 61 6c 69 62 72 65 64 62 2d 73 65 61 .(declare-function.calibredb-sea
1ece0 72 63 68 2d 6b 65 79 77 6f 72 64 2d 66 69 6c 74 65 72 20 22 63 61 6c 69 62 72 65 64 62 2d 73 65 rch-keyword-filter."calibredb-se
1ed00 61 72 63 68 2e 65 6c 22 29 0a 28 64 65 63 6c 61 72 65 2d 66 75 6e 63 74 69 6f 6e 20 63 61 6c 69 arch.el").(declare-function.cali
1ed20 62 72 65 64 62 2d 6f 70 64 73 2d 72 65 71 75 65 73 74 2d 70 61 67 65 20 22 63 61 6c 69 62 72 65 bredb-opds-request-page."calibre
1ed40 64 62 2d 6f 70 64 73 2e 65 6c 22 29 0a 0a 0a 3b 3b 3b 23 23 23 61 75 74 6f 6c 6f 61 64 0a 28 64 db-opds.el")...;;;###autoload.(d
1ed60 65 66 75 6e 20 63 61 6c 69 62 72 65 64 62 2d 73 77 69 74 63 68 2d 6c 69 62 72 61 72 79 20 28 29 efun.calibredb-switch-library.()
1ed80 0a 20 20 22 53 77 69 63 68 20 43 61 6c 69 62 72 65 20 4c 69 62 72 61 72 79 2e 22 0a 20 20 28 69 ..."Swich.Calibre.Library."...(i
1eda0 6e 74 65 72 61 63 74 69 76 65 29 0a 20 20 28 6c 65 74 20 28 28 72 65 73 75 6c 74 20 28 72 65 61 nteractive)...(let.((result.(rea
1edc0 64 2d 66 69 6c 65 2d 6e 61 6d 65 20 22 51 75 69 63 6b 20 73 77 69 74 63 68 20 6c 69 62 72 61 72 d-file-name."Quick.switch.librar
1ede0 79 3a 20 22 29 29 29 0a 20 20 20 20 28 69 66 20 28 66 69 6c 65 2d 65 78 69 73 74 73 2d 70 20 28 y:."))).....(if.(file-exists-p.(
1ee00 63 6f 6e 63 61 74 20 28 66 69 6c 65 2d 6e 61 6d 65 2d 61 73 2d 64 69 72 65 63 74 6f 72 79 20 72 concat.(file-name-as-directory.r
1ee20 65 73 75 6c 74 29 20 22 6d 65 74 61 64 61 74 61 2e 64 62 22 29 29 0a 20 20 20 20 20 20 20 20 28 esult)."metadata.db")).........(
1ee40 70 72 6f 67 6e 0a 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 63 61 6c 69 62 72 65 64 62 2d progn...........(setq.calibredb-
1ee60 72 6f 6f 74 2d 64 69 72 20 72 65 73 75 6c 74 29 0a 20 20 20 20 20 20 20 20 20 20 28 63 61 6c 69 root-dir.result)...........(cali
1ee80 62 72 65 64 62 2d 72 6f 6f 74 2d 64 69 72 2d 71 75 6f 74 65 29 0a 20 20 20 20 20 20 20 20 20 20 bredb-root-dir-quote)...........
1eea0 28 73 65 74 71 20 63 61 6c 69 62 72 65 64 62 2d 64 62 2d 64 69 72 20 28 63 6f 6e 63 61 74 20 28 (setq.calibredb-db-dir.(concat.(
1eec0 66 69 6c 65 2d 6e 61 6d 65 2d 61 73 2d 64 69 72 65 63 74 6f 72 79 20 63 61 6c 69 62 72 65 64 62 file-name-as-directory.calibredb
1eee0 2d 72 6f 6f 74 2d 64 69 72 29 20 22 6d 65 74 61 64 61 74 61 2e 64 62 22 29 29 0a 20 20 20 20 20 -root-dir)."metadata.db"))......
1ef00 20 20 20 20 20 28 63 61 6c 69 62 72 65 64 62 2d 72 65 66 2d 64 65 66 61 75 6c 74 2d 62 69 62 6c .....(calibredb-ref-default-bibl
1ef20 69 6f 67 72 61 70 68 79 29 0a 20 20 20 20 20 20 20 20 20 20 28 63 61 6c 69 62 72 65 64 62 2d 73 iography)...........(calibredb-s
1ef40 65 61 72 63 68 2d 72 65 66 72 65 73 68 2d 6f 72 2d 72 65 73 75 6d 65 29 29 0a 20 20 20 20 20 20 earch-refresh-or-resume)).......
1ef60 28 6d 65 73 73 61 67 65 20 22 49 4e 56 41 4c 49 44 20 4c 49 42 52 41 52 59 22 29 29 29 29 0a 0a (message."INVALID.LIBRARY"))))..
1ef80 3b 3b 3b 23 23 23 61 75 74 6f 6c 6f 61 64 0a 28 64 65 66 75 6e 20 63 61 6c 69 62 72 65 64 62 2d ;;;###autoload.(defun.calibredb-
1efa0 6c 69 62 72 61 72 79 2d 6c 69 73 74 20 28 29 0a 20 20 22 53 77 69 74 63 68 20 6c 69 62 72 61 72 library-list.()..."Switch.librar
1efc0 79 20 66 72 6f 6d 20 76 61 72 69 61 62 6c 65 20 60 63 61 6c 69 62 72 65 64 62 2d 6c 69 62 72 61 y.from.variable.`calibredb-libra
1efe0 72 79 2d 61 6c 69 73 74 27 2e 0a 49 66 20 75 6e 64 65 72 20 2a 63 61 6c 69 62 72 65 64 62 2d 73 ry-alist'..If.under.*calibredb-s
1f000 65 61 72 63 68 2a 20 62 75 66 66 65 72 2c 20 69 74 20 77 69 6c 6c 20 61 75 74 6f 20 72 65 66 72 earch*.buffer,.it.will.auto.refr
1f020 65 73 68 20 61 66 74 65 72 0a 73 65 6c 65 63 74 69 6e 67 20 74 68 65 20 6e 65 77 20 69 74 65 6d esh.after.selecting.the.new.item
1f040 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 0a 20 20 28 6c 65 74 20 28 28 72 65 73 75 ."...(interactive)...(let.((resu
1f060 6c 74 20 28 63 6f 6d 70 6c 65 74 69 6e 67 2d 72 65 61 64 20 22 51 75 69 63 6b 20 73 77 69 74 63 lt.(completing-read."Quick.switc
1f080 68 20 6c 69 62 72 61 72 79 3a 20 22 20 63 61 6c 69 62 72 65 64 62 2d 6c 69 62 72 61 72 79 2d 61 h.library:.".calibredb-library-a
1f0a0 6c 69 73 74 29 29 20 29 0a 20 20 20 20 28 69 66 20 28 66 69 6c 65 2d 65 78 69 73 74 73 2d 70 20 list)).).....(if.(file-exists-p.
1f0c0 28 63 6f 6e 63 61 74 20 28 66 69 6c 65 2d 6e 61 6d 65 2d 61 73 2d 64 69 72 65 63 74 6f 72 79 20 (concat.(file-name-as-directory.
1f0e0 72 65 73 75 6c 74 29 20 22 6d 65 74 61 64 61 74 61 2e 64 62 22 29 29 0a 20 20 20 20 20 20 20 20 result)."metadata.db")).........
1f100 28 70 72 6f 67 6e 0a 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 63 61 6c 69 62 72 65 64 62 (progn...........(setq.calibredb
1f120 2d 72 6f 6f 74 2d 64 69 72 20 72 65 73 75 6c 74 29 0a 20 20 20 20 20 20 20 20 20 20 28 63 61 6c -root-dir.result)...........(cal
1f140 69 62 72 65 64 62 2d 72 6f 6f 74 2d 64 69 72 2d 71 75 6f 74 65 29 0a 20 20 20 20 20 20 20 20 20 ibredb-root-dir-quote)..........
1f160 20 28 73 65 74 71 20 63 61 6c 69 62 72 65 64 62 2d 64 62 2d 64 69 72 20 28 63 6f 6e 63 61 74 20 .(setq.calibredb-db-dir.(concat.
1f180 28 66 69 6c 65 2d 6e 61 6d 65 2d 61 73 2d 64 69 72 65 63 74 6f 72 79 20 63 61 6c 69 62 72 65 64 (file-name-as-directory.calibred
1f1a0 62 2d 72 6f 6f 74 2d 64 69 72 29 20 22 6d 65 74 61 64 61 74 61 2e 64 62 22 29 29 0a 20 20 20 20 b-root-dir)."metadata.db")).....
1f1c0 20 20 20 20 20 20 28 63 61 6c 69 62 72 65 64 62 2d 72 65 66 2d 64 65 66 61 75 6c 74 2d 62 69 62 ......(calibredb-ref-default-bib
1f1e0 6c 69 6f 67 72 61 70 68 79 29 0a 20 20 20 20 20 20 20 20 20 20 28 63 61 6c 69 62 72 65 64 62 2d liography)...........(calibredb-
1f200 73 65 61 72 63 68 2d 72 65 66 72 65 73 68 2d 6f 72 2d 72 65 73 75 6d 65 29 29 0a 20 20 20 20 20 search-refresh-or-resume))......
1f220 20 28 69 66 20 28 73 2d 63 6f 6e 74 61 69 6e 73 3f 20 22 68 74 74 70 22 20 72 65 73 75 6c 74 29 .(if.(s-contains?."http".result)
1f240 0a 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 6c 69 62 72 61 72 79 20 28 2d 66 69 72 73 ...........(let.((library.(-firs
1f260 74 20 28 6c 61 6d 62 64 61 20 28 6c 69 62 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 t.(lambda.(lib).................
1f280 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 2d 63 6f 6e 74 61 69 6e 73 3f 20 ...................(s-contains?.
1f2a0 28 63 61 72 20 6c 69 62 29 20 72 65 73 75 6c 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 (car.lib).result))..............
1f2c0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 61 6c 69 62 72 65 64 62 2d 6c 69 ....................calibredb-li
1f2e0 62 72 61 72 79 2d 61 6c 69 73 74 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 brary-alist))).............(setq
1f300 20 63 61 6c 69 62 72 65 64 62 2d 72 6f 6f 74 2d 64 69 72 20 28 63 61 72 20 6c 69 62 72 61 72 79 .calibredb-root-dir.(car.library
1f320 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 63 61 6c 69 62 72 65 64 62 2d 6f 70 64 73 2d 72 )).............(calibredb-opds-r
1f340 65 71 75 65 73 74 2d 70 61 67 65 20 72 65 73 75 6c 74 20 28 6e 74 68 20 31 20 6c 69 62 72 61 72 equest-page.result.(nth.1.librar
1f360 79 29 20 28 6e 74 68 20 32 20 6c 69 62 72 61 72 79 29 29 29 0a 20 20 20 20 20 20 20 20 28 6d 65 y).(nth.2.library))).........(me
1f380 73 73 61 67 65 20 22 49 4e 56 41 4c 49 44 20 4c 49 42 52 41 52 59 22 29 29 29 29 29 0a 0a 28 64 ssage."INVALID.LIBRARY")))))..(d
1f3a0 65 66 75 6e 20 63 61 6c 69 62 72 65 64 62 2d 6c 69 62 72 61 72 79 2d 70 72 65 76 69 6f 75 73 20 efun.calibredb-library-previous.
1f3c0 28 29 0a 20 20 22 4e 65 78 74 20 6c 69 62 72 61 72 79 20 66 72 6f 6d 20 76 61 72 69 61 62 6c 65 ()..."Next.library.from.variable
1f3e0 20 60 63 61 6c 69 62 72 65 64 62 2d 6c 69 62 72 61 72 79 2d 61 6c 69 73 74 27 2e 0a 49 66 20 75 .`calibredb-library-alist'..If.u
1f400 6e 64 65 72 20 2a 63 61 6c 69 62 72 65 64 62 2d 73 65 61 72 63 68 2a 20 62 75 66 66 65 72 2c 20 nder.*calibredb-search*.buffer,.
1f420 69 74 20 77 69 6c 6c 20 61 75 74 6f 20 72 65 66 72 65 73 68 20 61 66 74 65 72 0a 73 65 6c 65 63 it.will.auto.refresh.after.selec
1f440 74 69 6e 67 20 74 68 65 20 6e 65 77 20 69 74 65 6d 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 ting.the.new.item."...(interacti
1f460 76 65 29 0a 20 20 28 6c 65 74 2a 20 28 28 69 6e 64 65 78 20 28 73 65 74 71 20 63 61 6c 69 62 72 ve)...(let*.((index.(setq.calibr
1f480 65 64 62 2d 6c 69 62 72 61 72 79 2d 69 6e 64 65 78 20 28 69 66 20 28 3e 20 63 61 6c 69 62 72 65 edb-library-index.(if.(>.calibre
1f4a0 64 62 2d 6c 69 62 72 61 72 79 2d 69 6e 64 65 78 20 30 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 db-library-index.0).............
1f4c0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ................................
1f4e0 20 20 20 20 20 20 28 31 2d 20 63 61 6c 69 62 72 65 64 62 2d 6c 69 62 72 61 72 79 2d 69 6e 64 65 ......(1-.calibredb-library-inde
1f500 78 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 x)..............................
1f520 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 31 2d 20 28 6c 65 6e 67 74 68 20 63 ...................(1-.(length.c
1f540 61 6c 69 62 72 65 64 62 2d 6c 69 62 72 61 72 79 2d 61 6c 69 73 74 29 29 29 29 29 0a 20 20 20 20 alibredb-library-alist))))).....
1f560 20 20 20 20 28 72 65 73 75 6c 74 20 28 63 61 72 20 28 6e 74 68 20 69 6e 64 65 78 20 63 61 6c 69 ....(result.(car.(nth.index.cali
1f580 62 72 65 64 62 2d 6c 69 62 72 61 72 79 2d 61 6c 69 73 74 29 29 29 29 0a 20 20 20 20 28 69 66 20 bredb-library-alist)))).....(if.
1f5a0 28 66 69 6c 65 2d 65 78 69 73 74 73 2d 70 20 28 63 6f 6e 63 61 74 20 28 66 69 6c 65 2d 6e 61 6d (file-exists-p.(concat.(file-nam
1f5c0 65 2d 61 73 2d 64 69 72 65 63 74 6f 72 79 20 72 65 73 75 6c 74 29 20 22 6d 65 74 61 64 61 74 61 e-as-directory.result)."metadata
1f5e0 2e 64 62 22 29 29 0a 20 20 20 20 20 20 20 20 28 70 72 6f 67 6e 0a 20 20 20 20 20 20 20 20 20 20 .db")).........(progn...........
1f600 28 73 65 74 71 20 63 61 6c 69 62 72 65 64 62 2d 72 6f 6f 74 2d 64 69 72 20 72 65 73 75 6c 74 29 (setq.calibredb-root-dir.result)
1f620 0a 20 20 20 20 20 20 20 20 20 20 28 63 61 6c 69 62 72 65 64 62 2d 72 6f 6f 74 2d 64 69 72 2d 71 ...........(calibredb-root-dir-q
1f640 75 6f 74 65 29 0a 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 63 61 6c 69 62 72 65 64 62 2d uote)...........(setq.calibredb-
1f660 64 62 2d 64 69 72 20 28 63 6f 6e 63 61 74 20 28 66 69 6c 65 2d 6e 61 6d 65 2d 61 73 2d 64 69 72 db-dir.(concat.(file-name-as-dir
1f680 65 63 74 6f 72 79 20 63 61 6c 69 62 72 65 64 62 2d 72 6f 6f 74 2d 64 69 72 29 20 22 6d 65 74 61 ectory.calibredb-root-dir)."meta
1f6a0 64 61 74 61 2e 64 62 22 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 63 61 6c 69 62 72 65 64 62 2d data.db"))...........(calibredb-
1f6c0 72 65 66 2d 64 65 66 61 75 6c 74 2d 62 69 62 6c 69 6f 67 72 61 70 68 79 29 0a 20 20 20 20 20 20 ref-default-bibliography).......
1f6e0 20 20 20 20 28 63 61 6c 69 62 72 65 64 62 2d 73 65 61 72 63 68 2d 72 65 66 72 65 73 68 2d 6f 72 ....(calibredb-search-refresh-or
1f700 2d 72 65 73 75 6d 65 29 29 0a 20 20 20 20 20 20 28 6d 65 73 73 61 67 65 20 22 49 4e 56 41 4c 49 -resume)).......(message."INVALI
1f720 44 20 4c 49 42 52 41 52 59 22 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 63 61 6c 69 62 72 65 64 62 D.LIBRARY"))))..(defun.calibredb
1f740 2d 6c 69 62 72 61 72 79 2d 6e 65 78 74 20 28 29 0a 20 20 22 4e 65 78 74 20 6c 69 62 72 61 72 79 -library-next.()..."Next.library
1f760 20 66 72 6f 6d 20 76 61 72 69 61 62 6c 65 20 60 63 61 6c 69 62 72 65 64 62 2d 6c 69 62 72 61 72 .from.variable.`calibredb-librar
1f780 79 2d 61 6c 69 73 74 27 2e 0a 49 66 20 75 6e 64 65 72 20 2a 63 61 6c 69 62 72 65 64 62 2d 73 65 y-alist'..If.under.*calibredb-se
1f7a0 61 72 63 68 2a 20 62 75 66 66 65 72 2c 20 69 74 20 77 69 6c 6c 20 61 75 74 6f 20 72 65 66 72 65 arch*.buffer,.it.will.auto.refre
1f7c0 73 68 20 61 66 74 65 72 0a 73 65 6c 65 63 74 69 6e 67 20 74 68 65 20 6e 65 77 20 69 74 65 6d 2e sh.after.selecting.the.new.item.
1f7e0 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 0a 20 20 28 6c 65 74 2a 20 28 28 69 6e 64 65 "...(interactive)...(let*.((inde
1f800 78 20 28 73 65 74 71 20 63 61 6c 69 62 72 65 64 62 2d 6c 69 62 72 61 72 79 2d 69 6e 64 65 78 20 x.(setq.calibredb-library-index.
1f820 28 69 66 20 28 3c 20 63 61 6c 69 62 72 65 64 62 2d 6c 69 62 72 61 72 79 2d 69 6e 64 65 78 20 28 (if.(<.calibredb-library-index.(
1f840 31 2d 20 28 6c 65 6e 67 74 68 20 63 61 6c 69 62 72 65 64 62 2d 6c 69 62 72 61 72 79 2d 61 6c 69 1-.(length.calibredb-library-ali
1f860 73 74 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 st)))...........................
1f880 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 31 2b 20 63 61 6c 69 ........................(1+.cali
1f8a0 62 72 65 64 62 2d 6c 69 62 72 61 72 79 2d 69 6e 64 65 78 29 20 30 29 29 29 0a 20 20 20 20 20 20 bredb-library-index).0))).......
1f8c0 20 20 28 72 65 73 75 6c 74 20 28 63 61 72 20 28 6e 74 68 20 69 6e 64 65 78 20 63 61 6c 69 62 72 ..(result.(car.(nth.index.calibr
1f8e0 65 64 62 2d 6c 69 62 72 61 72 79 2d 61 6c 69 73 74 29 29 29 29 0a 20 20 20 20 28 69 66 20 28 66 edb-library-alist)))).....(if.(f
1f900 69 6c 65 2d 65 78 69 73 74 73 2d 70 20 28 63 6f 6e 63 61 74 20 28 66 69 6c 65 2d 6e 61 6d 65 2d ile-exists-p.(concat.(file-name-
1f920 61 73 2d 64 69 72 65 63 74 6f 72 79 20 72 65 73 75 6c 74 29 20 22 6d 65 74 61 64 61 74 61 2e 64 as-directory.result)."metadata.d
1f940 62 22 29 29 0a 20 20 20 20 20 20 20 20 28 70 72 6f 67 6e 0a 20 20 20 20 20 20 20 20 20 20 28 73 b")).........(progn...........(s
1f960 65 74 71 20 63 61 6c 69 62 72 65 64 62 2d 72 6f 6f 74 2d 64 69 72 20 72 65 73 75 6c 74 29 0a 20 etq.calibredb-root-dir.result)..
1f980 20 20 20 20 20 20 20 20 20 28 63 61 6c 69 62 72 65 64 62 2d 72 6f 6f 74 2d 64 69 72 2d 71 75 6f .........(calibredb-root-dir-quo
1f9a0 74 65 29 0a 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 63 61 6c 69 62 72 65 64 62 2d 64 62 te)...........(setq.calibredb-db
1f9c0 2d 64 69 72 20 28 63 6f 6e 63 61 74 20 28 66 69 6c 65 2d 6e 61 6d 65 2d 61 73 2d 64 69 72 65 63 -dir.(concat.(file-name-as-direc
1f9e0 74 6f 72 79 20 63 61 6c 69 62 72 65 64 62 2d 72 6f 6f 74 2d 64 69 72 29 20 22 6d 65 74 61 64 61 tory.calibredb-root-dir)."metada
1fa00 74 61 2e 64 62 22 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 63 61 6c 69 62 72 65 64 62 2d 72 65 ta.db"))...........(calibredb-re
1fa20 66 2d 64 65 66 61 75 6c 74 2d 62 69 62 6c 69 6f 67 72 61 70 68 79 29 0a 20 20 20 20 20 20 20 20 f-default-bibliography).........
1fa40 20 20 28 63 61 6c 69 62 72 65 64 62 2d 73 65 61 72 63 68 2d 72 65 66 72 65 73 68 2d 6f 72 2d 72 ..(calibredb-search-refresh-or-r
1fa60 65 73 75 6d 65 29 29 0a 20 20 20 20 20 20 28 6d 65 73 73 61 67 65 20 22 49 4e 56 41 4c 49 44 20 esume)).......(message."INVALID.
1fa80 4c 49 42 52 41 52 59 22 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 63 61 6c 69 62 72 65 64 62 2d 76 LIBRARY"))))..(defun.calibredb-v
1faa0 69 72 74 75 61 6c 2d 6c 69 62 72 61 72 79 2d 66 69 6c 74 65 72 20 28 6b 65 79 77 6f 72 64 29 0a irtual-library-filter.(keyword).
1fac0 20 20 22 46 69 6c 74 65 72 20 74 68 65 20 76 69 72 74 75 61 6c 20 6c 69 62 72 61 72 79 20 62 61 .."Filter.the.virtual.library.ba
1fae0 73 65 64 20 6f 6e 20 4b 45 59 57 4f 52 44 2e 22 0a 20 20 28 73 65 74 71 20 63 61 6c 69 62 72 65 sed.on.KEYWORD."...(setq.calibre
1fb00 64 62 2d 76 69 72 74 75 61 6c 2d 6c 69 62 72 61 72 79 2d 6e 61 6d 65 20 6b 65 79 77 6f 72 64 29 db-virtual-library-name.keyword)
1fb20 20 3b 20 73 65 74 20 63 61 6c 69 62 72 65 64 62 2d 76 69 72 74 75 61 6c 2d 6c 69 62 72 61 72 79 .;.set.calibredb-virtual-library
1fb40 2d 6e 61 6d 65 0a 20 20 28 73 65 74 71 20 63 61 6c 69 62 72 65 64 62 2d 74 61 67 2d 66 69 6c 74 -name...(setq.calibredb-tag-filt
1fb60 65 72 2d 70 20 6e 69 6c 29 0a 20 20 28 73 65 74 71 20 63 61 6c 69 62 72 65 64 62 2d 66 61 76 6f er-p.nil)...(setq.calibredb-favo
1fb80 72 69 74 65 2d 66 69 6c 74 65 72 2d 70 20 6e 69 6c 29 0a 20 20 28 73 65 74 71 20 63 61 6c 69 62 rite-filter-p.nil)...(setq.calib
1fba0 72 65 64 62 2d 61 75 74 68 6f 72 2d 66 69 6c 74 65 72 2d 70 20 6e 69 6c 29 0a 20 20 28 73 65 74 redb-author-filter-p.nil)...(set
1fbc0 71 20 63 61 6c 69 62 72 65 64 62 2d 64 61 74 65 2d 66 69 6c 74 65 72 2d 70 20 6e 69 6c 29 0a 20 q.calibredb-date-filter-p.nil)..
1fbe0 20 28 73 65 74 71 20 63 61 6c 69 62 72 65 64 62 2d 66 6f 72 6d 61 74 2d 66 69 6c 74 65 72 2d 70 .(setq.calibredb-format-filter-p
1fc00 20 6e 69 6c 29 0a 20 20 28 63 61 6c 69 62 72 65 64 62 2d 73 65 61 72 63 68 2d 6b 65 79 77 6f 72 .nil)...(calibredb-search-keywor
1fc20 64 2d 66 69 6c 74 65 72 0a 20 20 20 28 63 64 72 20 28 61 73 73 6f 63 20 6b 65 79 77 6f 72 64 20 d-filter....(cdr.(assoc.keyword.
1fc40 63 61 6c 69 62 72 65 64 62 2d 76 69 72 74 75 61 6c 2d 6c 69 62 72 61 72 79 2d 61 6c 69 73 74 29 calibredb-virtual-library-alist)
1fc60 29 29 0a 20 20 28 63 61 6c 69 62 72 65 64 62 2d 73 65 61 72 63 68 2d 68 65 61 64 65 72 29 29 0a ))...(calibredb-search-header)).
1fc80 0a 28 64 65 66 75 6e 20 63 61 6c 69 62 72 65 64 62 2d 76 69 72 74 75 61 6c 2d 6c 69 62 72 61 72 .(defun.calibredb-virtual-librar
1fca0 79 2d 6c 69 73 74 20 28 29 0a 20 20 22 4c 69 73 74 20 61 6c 6c 20 76 69 72 74 75 61 6c 20 6c 69 y-list.()..."List.all.virtual.li
1fcc0 62 72 61 72 69 65 73 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 0a 20 20 28 69 66 20 braries."...(interactive)...(if.
1fce0 28 65 71 20 28 6c 65 6e 67 74 68 20 63 61 6c 69 62 72 65 64 62 2d 76 69 72 74 75 61 6c 2d 6c 69 (eq.(length.calibredb-virtual-li
1fd00 62 72 61 72 79 2d 61 6c 69 73 74 29 20 30 29 0a 20 20 20 20 20 20 28 6d 65 73 73 61 67 65 20 22 brary-alist).0).......(message."
1fd20 4e 6f 20 76 69 72 74 75 61 6c 20 6c 69 62 72 61 72 69 65 73 2e 20 53 65 74 20 60 63 61 6c 69 62 No.virtual.libraries..Set.`calib
1fd40 72 65 64 62 2d 76 69 72 74 75 61 6c 2d 6c 69 62 72 61 72 79 2d 61 6c 69 73 74 27 20 77 69 74 68 redb-virtual-library-alist'.with
1fd60 20 27 28 28 6e 61 6d 65 20 2e 20 6b 65 79 77 6f 72 64 73 29 29 2e 22 20 29 0a 20 20 20 20 28 6c .'((name...keywords)).".).....(l
1fd80 65 74 20 28 28 6b 65 79 77 6f 72 64 20 28 63 6f 6d 70 6c 65 74 69 6e 67 2d 72 65 61 64 20 22 53 et.((keyword.(completing-read."S
1fda0 77 69 74 63 68 20 56 69 72 75 74 61 6c 20 4c 69 62 72 61 72 79 3a 20 22 20 63 61 6c 69 62 72 65 witch.Virutal.Library:.".calibre
1fdc0 64 62 2d 76 69 72 74 75 61 6c 2d 6c 69 62 72 61 72 79 2d 61 6c 69 73 74 29 29 29 0a 20 20 20 20 db-virtual-library-alist))).....
1fde0 20 20 28 63 61 6c 69 62 72 65 64 62 2d 76 69 72 74 75 61 6c 2d 6c 69 62 72 61 72 79 2d 66 69 6c ..(calibredb-virtual-library-fil
1fe00 74 65 72 20 6b 65 79 77 6f 72 64 29 0a 20 20 20 20 20 20 28 6d 65 73 73 61 67 65 20 6b 65 79 77 ter.keyword).......(message.keyw
1fe20 6f 72 64 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 63 61 6c 69 62 72 65 64 62 2d 76 69 72 74 75 61 ord))))..(defun.calibredb-virtua
1fe40 6c 2d 6c 69 62 72 61 72 79 2d 6e 65 78 74 20 28 29 0a 20 20 22 53 77 69 74 68 20 74 6f 20 6e 65 l-library-next.()..."Swith.to.ne
1fe60 78 74 20 76 69 72 74 75 61 6c 20 6c 69 62 72 61 72 79 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 xt.virtual.library."...(interact
1fe80 69 76 65 29 0a 20 20 28 69 66 20 28 65 71 20 28 6c 65 6e 67 74 68 20 63 61 6c 69 62 72 65 64 62 ive)...(if.(eq.(length.calibredb
1fea0 2d 76 69 72 74 75 61 6c 2d 6c 69 62 72 61 72 79 2d 61 6c 69 73 74 29 20 30 29 0a 20 20 20 20 20 -virtual-library-alist).0)......
1fec0 20 28 6d 65 73 73 61 67 65 20 22 4e 6f 20 76 69 72 74 75 61 6c 20 6c 69 62 72 61 72 69 65 73 2e .(message."No.virtual.libraries.
1fee0 20 53 65 74 20 60 63 61 6c 69 62 72 65 64 62 2d 76 69 72 74 75 61 6c 2d 6c 69 62 72 61 72 79 2d .Set.`calibredb-virtual-library-
1ff00 61 6c 69 73 74 27 20 77 69 74 68 20 27 28 28 6e 61 6d 65 20 2e 20 6b 65 79 77 6f 72 64 73 29 29 alist'.with.'((name...keywords))
1ff20 2e 22 20 29 0a 20 20 20 20 20 20 28 6c 65 74 2a 20 28 28 69 6e 64 65 78 20 28 73 65 74 71 20 63 .".).......(let*.((index.(setq.c
1ff40 61 6c 69 62 72 65 64 62 2d 76 69 72 74 75 61 6c 2d 6c 69 62 72 61 72 79 2d 69 6e 64 65 78 0a 20 alibredb-virtual-library-index..
1ff60 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 66 20 28 3c 20 .........................(if.(<.
1ff80 63 61 6c 69 62 72 65 64 62 2d 76 69 72 74 75 61 6c 2d 6c 69 62 72 61 72 79 2d 69 6e 64 65 78 20 calibredb-virtual-library-index.
1ffa0 28 31 2d 20 28 6c 65 6e 67 74 68 20 63 61 6c 69 62 72 65 64 62 2d 76 69 72 74 75 61 6c 2d 6c 69 (1-.(length.calibredb-virtual-li
1ffc0 62 72 61 72 79 2d 61 6c 69 73 74 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 brary-alist)))..................
1ffe0 20 20 20 20 20 20 20 20 20 20 20 20 20 28 31 2b 20 63 61 6c 69 62 72 65 64 62 2d 76 69 72 74 75 .............(1+.calibredb-virtu
20000 61 6c 2d 6c 69 62 72 61 72 79 2d 69 6e 64 65 78 29 20 30 29 29 29 0a 20 20 20 20 20 20 20 20 20 al-library-index).0)))..........
20020 20 20 20 20 28 6b 65 79 77 6f 72 64 20 28 63 61 72 20 28 6e 74 68 20 69 6e 64 65 78 20 63 61 6c ....(keyword.(car.(nth.index.cal
20040 69 62 72 65 64 62 2d 76 69 72 74 75 61 6c 2d 6c 69 62 72 61 72 79 2d 61 6c 69 73 74 29 29 29 29 ibredb-virtual-library-alist))))
20060 0a 20 20 20 20 20 20 20 20 28 63 61 6c 69 62 72 65 64 62 2d 76 69 72 74 75 61 6c 2d 6c 69 62 72 .........(calibredb-virtual-libr
20080 61 72 79 2d 66 69 6c 74 65 72 20 6b 65 79 77 6f 72 64 29 0a 20 20 20 20 20 20 20 20 28 6d 65 73 ary-filter.keyword).........(mes
200a0 73 61 67 65 20 6b 65 79 77 6f 72 64 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 63 61 6c 69 62 72 65 sage.keyword))))..(defun.calibre
200c0 64 62 2d 76 69 72 74 75 61 6c 2d 6c 69 62 72 61 72 79 2d 70 72 65 76 69 6f 75 73 20 28 29 0a 20 db-virtual-library-previous.()..
200e0 20 22 53 77 69 74 68 20 74 6f 20 70 72 65 76 69 6f 75 73 20 76 69 72 74 75 61 6c 20 6c 69 62 72 ."Swith.to.previous.virtual.libr
20100 61 72 79 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 0a 20 20 28 69 66 20 28 65 71 20 ary."...(interactive)...(if.(eq.
20120 28 6c 65 6e 67 74 68 20 63 61 6c 69 62 72 65 64 62 2d 76 69 72 74 75 61 6c 2d 6c 69 62 72 61 72 (length.calibredb-virtual-librar
20140 79 2d 61 6c 69 73 74 29 20 30 29 0a 20 20 20 20 20 20 28 6d 65 73 73 61 67 65 20 22 4e 6f 20 76 y-alist).0).......(message."No.v
20160 69 72 74 75 61 6c 20 6c 69 62 72 61 72 69 65 73 2e 20 53 65 74 20 60 63 61 6c 69 62 72 65 64 62 irtual.libraries..Set.`calibredb
20180 2d 76 69 72 74 75 61 6c 2d 6c 69 62 72 61 72 79 2d 61 6c 69 73 74 27 20 77 69 74 68 20 27 28 28 -virtual-library-alist'.with.'((
201a0 6e 61 6d 65 20 2e 20 6b 65 79 77 6f 72 64 73 29 29 2e 22 20 29 0a 20 20 20 20 20 20 28 6c 65 74 name...keywords)).".).......(let
201c0 2a 20 28 28 69 6e 64 65 78 20 28 73 65 74 71 20 63 61 6c 69 62 72 65 64 62 2d 76 69 72 74 75 61 *.((index.(setq.calibredb-virtua
201e0 6c 2d 6c 69 62 72 61 72 79 2d 69 6e 64 65 78 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 l-library-index.................
20200 20 20 20 20 20 20 20 20 20 20 28 69 66 20 28 3e 20 63 61 6c 69 62 72 65 64 62 2d 76 69 72 74 75 ..........(if.(>.calibredb-virtu
20220 61 6c 2d 6c 69 62 72 61 72 79 2d 69 6e 64 65 78 20 30 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 al-library-index.0).............
20240 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 31 2d 20 63 61 6c 69 62 72 65 64 62 2d ..................(1-.calibredb-
20260 76 69 72 74 75 61 6c 2d 6c 69 62 72 61 72 79 2d 69 6e 64 65 78 29 0a 20 20 20 20 20 20 20 20 20 virtual-library-index)..........
20280 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 31 2d 20 28 6c 65 6e 67 74 68 20 63 ...................(1-.(length.c
202a0 61 6c 69 62 72 65 64 62 2d 76 69 72 74 75 61 6c 2d 6c 69 62 72 61 72 79 2d 61 6c 69 73 74 29 29 alibredb-virtual-library-alist))
202c0 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6b 65 79 77 6f 72 64 20 28 63 61 72 20 28 )))..............(keyword.(car.(
202e0 6e 74 68 20 69 6e 64 65 78 20 63 61 6c 69 62 72 65 64 62 2d 76 69 72 74 75 61 6c 2d 6c 69 62 72 nth.index.calibredb-virtual-libr
20300 61 72 79 2d 61 6c 69 73 74 29 29 29 29 0a 20 20 20 20 20 20 20 20 28 63 61 6c 69 62 72 65 64 62 ary-alist)))).........(calibredb
20320 2d 76 69 72 74 75 61 6c 2d 6c 69 62 72 61 72 79 2d 66 69 6c 74 65 72 20 6b 65 79 77 6f 72 64 29 -virtual-library-filter.keyword)
20340 0a 20 20 20 20 20 20 20 20 28 6d 65 73 73 61 67 65 20 6b 65 79 77 6f 72 64 29 29 29 29 0a 0a 28 .........(message.keyword))))..(
20360 70 72 6f 76 69 64 65 20 27 63 61 6c 69 62 72 65 64 62 2d 6c 69 62 72 61 72 79 29 0a 0a 3b 3b 3b provide.'calibredb-library)..;;;
20380 20 63 61 6c 69 62 72 65 64 62 2d 6c 69 62 72 61 72 79 2e 65 6c 20 65 6e 64 73 20 68 65 72 65 0a .calibredb-library.el.ends.here.
203a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
203c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
203e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
20400 63 61 6c 69 62 72 65 64 62 2d 32 30 32 34 30 33 33 31 2e 34 30 39 2f 63 61 6c 69 62 72 65 64 62 calibredb-20240331.409/calibredb
20420 2d 73 68 6f 77 2e 65 6c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -show.el........................
20440 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
20460 00 00 00 00 30 30 30 30 36 34 34 00 30 30 30 30 30 30 30 00 30 30 30 30 30 30 30 00 30 30 30 30 ....0000644.0000000.0000000.0000
20480 30 30 31 31 35 30 30 00 30 30 30 30 30 30 30 30 30 30 30 00 30 31 36 30 33 37 00 20 30 00 00 00 0011500.00000000000.016037..0...
204a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
204c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
204e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
20500 00 75 73 74 61 72 20 20 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 .ustar...root...................
20520 00 00 00 00 00 00 00 00 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 .........root...................
20540 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
20560 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
20580 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
205a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
205c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
205e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
20600 3b 3b 3b 20 63 61 6c 69 62 72 65 64 62 2d 73 68 6f 77 2e 65 6c 20 2d 2d 2d 20 42 6f 6f 6b 20 64 ;;;.calibredb-show.el.---.Book.d
20620 65 74 61 69 6c 20 62 75 66 66 65 72 20 66 6f 72 20 63 61 6c 69 62 72 65 64 62 20 2d 2a 2d 20 6c etail.buffer.for.calibredb.-*-.l
20640 65 78 69 63 61 6c 2d 62 69 6e 64 69 6e 67 3a 20 74 3b 20 2d 2a 2d 0a 0a 3b 3b 20 43 6f 70 79 72 exical-binding:.t;.-*-..;;.Copyr
20660 69 67 68 74 20 28 43 29 20 32 30 32 30 20 44 61 6d 6f 6e 20 43 68 61 6e 0a 0a 3b 3b 20 41 75 74 ight.(C).2020.Damon.Chan..;;.Aut
20680 68 6f 72 3a 20 44 61 6d 6f 6e 20 43 68 61 6e 20 3c 65 6c 65 63 6d 69 6e 67 40 67 6d 61 69 6c 2e hor:.Damon.Chan.<elecming@gmail.
206a0 63 6f 6d 3e 0a 3b 3b 20 55 52 4c 3a 20 68 74 74 70 73 3a 2f 2f 67 69 74 68 75 62 2e 63 6f 6d 2f com>.;;.URL:.https://github.com/
206c0 63 68 65 6e 79 61 6e 6d 69 6e 67 2f 63 61 6c 69 62 72 65 64 62 2e 65 6c 0a 3b 3b 20 4b 65 79 77 chenyanming/calibredb.el.;;.Keyw
206e0 6f 72 64 73 3a 20 74 6f 6f 6c 73 0a 3b 3b 20 56 65 72 73 69 6f 6e 3a 20 32 2e 31 32 2e 30 0a 0a ords:.tools.;;.Version:.2.12.0..
20700 3b 3b 20 54 68 69 73 20 66 69 6c 65 20 69 73 20 4e 4f 54 20 70 61 72 74 20 6f 66 20 47 4e 55 20 ;;.This.file.is.NOT.part.of.GNU.
20720 45 6d 61 63 73 2e 0a 0a 3b 3b 20 54 68 69 73 20 70 72 6f 67 72 61 6d 20 69 73 20 66 72 65 65 20 Emacs...;;.This.program.is.free.
20740 73 6f 66 74 77 61 72 65 3b 20 79 6f 75 20 63 61 6e 20 72 65 64 69 73 74 72 69 62 75 74 65 20 69 software;.you.can.redistribute.i
20760 74 20 61 6e 64 2f 6f 72 20 6d 6f 64 69 66 79 0a 3b 3b 20 69 74 20 75 6e 64 65 72 20 74 68 65 20 t.and/or.modify.;;.it.under.the.
20780 74 65 72 6d 73 20 6f 66 20 74 68 65 20 47 4e 55 20 47 65 6e 65 72 61 6c 20 50 75 62 6c 69 63 20 terms.of.the.GNU.General.Public.
207a0 4c 69 63 65 6e 73 65 20 61 73 20 70 75 62 6c 69 73 68 65 64 20 62 79 0a 3b 3b 20 74 68 65 20 46 License.as.published.by.;;.the.F
207c0 72 65 65 20 53 6f 66 74 77 61 72 65 20 46 6f 75 6e 64 61 74 69 6f 6e 2c 20 65 69 74 68 65 72 20 ree.Software.Foundation,.either.
207e0 76 65 72 73 69 6f 6e 20 33 20 6f 66 20 74 68 65 20 4c 69 63 65 6e 73 65 2c 20 6f 72 0a 3b 3b 20 version.3.of.the.License,.or.;;.
20800 28 61 74 20 79 6f 75 72 20 6f 70 74 69 6f 6e 29 20 61 6e 79 20 6c 61 74 65 72 20 76 65 72 73 69 (at.your.option).any.later.versi
20820 6f 6e 2e 0a 0a 3b 3b 20 54 68 69 73 20 70 72 6f 67 72 61 6d 20 69 73 20 64 69 73 74 72 69 62 75 on...;;.This.program.is.distribu
20840 74 65 64 20 69 6e 20 74 68 65 20 68 6f 70 65 20 74 68 61 74 20 69 74 20 77 69 6c 6c 20 62 65 20 ted.in.the.hope.that.it.will.be.
20860 75 73 65 66 75 6c 2c 0a 3b 3b 20 62 75 74 20 57 49 54 48 4f 55 54 20 41 4e 59 20 57 41 52 52 41 useful,.;;.but.WITHOUT.ANY.WARRA
20880 4e 54 59 3b 20 77 69 74 68 6f 75 74 20 65 76 65 6e 20 74 68 65 20 69 6d 70 6c 69 65 64 20 77 61 NTY;.without.even.the.implied.wa
208a0 72 72 61 6e 74 79 20 6f 66 0a 3b 3b 20 4d 45 52 43 48 41 4e 54 41 42 49 4c 49 54 59 20 6f 72 20 rranty.of.;;.MERCHANTABILITY.or.
208c0 46 49 54 4e 45 53 53 20 46 4f 52 20 41 20 50 41 52 54 49 43 55 4c 41 52 20 50 55 52 50 4f 53 45 FITNESS.FOR.A.PARTICULAR.PURPOSE
208e0 2e 20 20 53 65 65 20 74 68 65 0a 3b 3b 20 47 4e 55 20 47 65 6e 65 72 61 6c 20 50 75 62 6c 69 63 ...See.the.;;.GNU.General.Public
20900 20 4c 69 63 65 6e 73 65 20 66 6f 72 20 6d 6f 72 65 20 64 65 74 61 69 6c 73 2e 0a 0a 3b 3b 20 59 .License.for.more.details...;;.Y
20920 6f 75 20 73 68 6f 75 6c 64 20 68 61 76 65 20 72 65 63 65 69 76 65 64 20 61 20 63 6f 70 79 20 6f ou.should.have.received.a.copy.o
20940 66 20 74 68 65 20 47 4e 55 20 47 65 6e 65 72 61 6c 20 50 75 62 6c 69 63 20 4c 69 63 65 6e 73 65 f.the.GNU.General.Public.License
20960 0a 3b 3b 20 61 6c 6f 6e 67 20 77 69 74 68 20 74 68 69 73 20 70 72 6f 67 72 61 6d 2e 20 20 49 66 .;;.along.with.this.program...If
20980 20 6e 6f 74 2c 20 73 65 65 20 3c 68 74 74 70 73 3a 2f 2f 77 77 77 2e 67 6e 75 2e 6f 72 67 2f 6c .not,.see.<https://www.gnu.org/l
209a0 69 63 65 6e 73 65 73 2f 3e 2e 0a 0a 3b 3b 3b 20 43 6f 6d 6d 65 6e 74 61 72 79 3a 0a 0a 3b 3b 3b icenses/>...;;;.Commentary:..;;;
209c0 20 43 6f 64 65 3a 0a 0a 28 72 65 71 75 69 72 65 20 27 63 61 6c 69 62 72 65 64 62 2d 63 6f 72 65 .Code:..(require.'calibredb-core
209e0 29 0a 0a 28 64 65 63 6c 61 72 65 2d 66 75 6e 63 74 69 6f 6e 20 63 61 6c 69 62 72 65 64 62 2d 65 )..(declare-function.calibredb-e
20a00 6e 74 72 79 2d 64 69 73 70 61 74 63 68 20 22 63 61 6c 69 62 72 65 64 62 2d 74 72 61 6e 73 69 65 ntry-dispatch."calibredb-transie
20a20 6e 74 2e 65 6c 22 29 0a 28 64 65 63 6c 61 72 65 2d 66 75 6e 63 74 69 6f 6e 20 63 61 6c 69 62 72 nt.el").(declare-function.calibr
20a40 65 64 62 2d 66 69 6e 64 2d 66 69 6c 65 20 22 63 61 6c 69 62 72 65 64 62 2d 75 74 69 6c 73 2e 65 edb-find-file."calibredb-utils.e
20a60 6c 22 29 0a 28 64 65 63 6c 61 72 65 2d 66 75 6e 63 74 69 6f 6e 20 63 61 6c 69 62 72 65 64 62 2d l").(declare-function.calibredb-
20a80 66 69 6e 64 2d 66 69 6c 65 2d 6f 74 68 65 72 2d 66 72 61 6d 65 20 22 63 61 6c 69 62 72 65 64 62 find-file-other-frame."calibredb
20aa0 2d 75 74 69 6c 73 2e 65 6c 22 29 0a 28 64 65 63 6c 61 72 65 2d 66 75 6e 63 74 69 6f 6e 20 63 61 -utils.el").(declare-function.ca
20ac0 6c 69 62 72 65 64 62 2d 6f 70 65 6e 2d 66 69 6c 65 2d 77 69 74 68 2d 64 65 66 61 75 6c 74 2d 74 libredb-open-file-with-default-t
20ae0 6f 6f 6c 20 22 63 61 6c 69 62 72 65 64 62 2d 75 74 69 6c 73 2e 65 6c 22 29 0a 28 64 65 63 6c 61 ool."calibredb-utils.el").(decla
20b00 72 65 2d 66 75 6e 63 74 69 6f 6e 20 63 61 6c 69 62 72 65 64 62 2d 73 65 74 2d 6d 65 74 61 64 61 re-function.calibredb-set-metada
20b20 74 61 2d 64 69 73 70 61 74 63 68 20 22 63 61 6c 69 62 72 65 64 62 2d 74 72 61 6e 73 69 65 6e 74 ta-dispatch."calibredb-transient
20b40 2e 65 6c 22 29 0a 28 64 65 63 6c 61 72 65 2d 66 75 6e 63 74 69 6f 6e 20 63 61 6c 69 62 72 65 64 .el").(declare-function.calibred
20b60 62 2d 65 78 70 6f 72 74 2d 64 69 73 70 61 74 63 68 20 22 63 61 6c 69 62 72 65 64 62 2d 74 72 61 b-export-dispatch."calibredb-tra
20b80 6e 73 69 65 6e 74 2e 65 6c 22 29 0a 28 64 65 63 6c 61 72 65 2d 66 75 6e 63 74 69 6f 6e 20 63 61 nsient.el").(declare-function.ca
20ba0 6c 69 62 72 65 64 62 2d 6f 70 65 6e 2d 64 69 72 65 64 20 22 63 61 6c 69 62 72 65 64 62 2d 75 74 libredb-open-dired."calibredb-ut
20bc0 69 6c 73 2e 65 6c 22 29 0a 28 64 65 63 6c 61 72 65 2d 66 75 6e 63 74 69 6f 6e 20 63 61 6c 69 62 ils.el").(declare-function.calib
20be0 72 65 64 62 2d 73 65 74 2d 6d 65 74 61 64 61 74 61 2d 2d 74 61 67 73 20 22 63 61 6c 69 62 72 65 redb-set-metadata--tags."calibre
20c00 64 62 2d 75 74 69 6c 73 2e 65 6c 22 29 0a 28 64 65 63 6c 61 72 65 2d 66 75 6e 63 74 69 6f 6e 20 db-utils.el").(declare-function.
20c20 63 61 6c 69 62 72 65 64 62 2d 73 65 74 2d 6d 65 74 61 64 61 74 61 2d 2d 61 75 74 68 6f 72 5f 73 calibredb-set-metadata--author_s
20c40 6f 72 74 20 22 63 61 6c 69 62 72 65 64 62 2d 75 74 69 6c 73 2e 65 6c 22 29 0a 28 64 65 63 6c 61 ort."calibredb-utils.el").(decla
20c60 72 65 2d 66 75 6e 63 74 69 6f 6e 20 63 61 6c 69 62 72 65 64 62 2d 73 65 74 2d 6d 65 74 61 64 61 re-function.calibredb-set-metada
20c80 74 61 2d 2d 61 75 74 68 6f 72 73 20 22 63 61 6c 69 62 72 65 64 62 2d 75 74 69 6c 73 2e 65 6c 22 ta--authors."calibredb-utils.el"
20ca0 29 0a 28 64 65 63 6c 61 72 65 2d 66 75 6e 63 74 69 6f 6e 20 63 61 6c 69 62 72 65 64 62 2d 73 65 ).(declare-function.calibredb-se
20cc0 74 2d 6d 65 74 61 64 61 74 61 2d 2d 74 69 74 6c 65 20 22 63 61 6c 69 62 72 65 64 62 2d 75 74 69 t-metadata--title."calibredb-uti
20ce0 6c 73 2e 65 6c 22 29 0a 28 64 65 63 6c 61 72 65 2d 66 75 6e 63 74 69 6f 6e 20 63 61 6c 69 62 72 ls.el").(declare-function.calibr
20d00 65 64 62 2d 73 65 74 2d 6d 65 74 61 64 61 74 61 2d 2d 63 6f 6d 6d 65 6e 74 73 20 22 63 61 6c 69 edb-set-metadata--comments."cali
20d20 62 72 65 64 62 2d 75 74 69 6c 73 2e 65 6c 22 29 0a 28 64 65 63 6c 61 72 65 2d 66 75 6e 63 74 69 bredb-utils.el").(declare-functi
20d40 6f 6e 20 63 61 6c 69 62 72 65 64 62 2d 73 68 6f 77 2d 65 6e 74 72 79 20 22 63 61 6c 69 62 72 65 on.calibredb-show-entry."calibre
20d60 64 62 2d 73 65 61 72 63 68 2e 65 6c 22 29 0a 28 64 65 63 6c 61 72 65 2d 66 75 6e 63 74 69 6f 6e db-search.el").(declare-function
20d80 20 63 61 6c 69 62 72 65 64 62 2d 72 67 61 20 22 63 61 6c 69 62 72 65 64 62 2d 69 76 79 2e 65 6c .calibredb-rga."calibredb-ivy.el
20da0 22 29 0a 0a 28 64 65 66 76 61 72 20 63 61 6c 69 62 72 65 64 62 2d 73 68 6f 77 2d 65 6e 74 72 79 ")..(defvar.calibredb-show-entry
20dc0 20 6e 69 6c 0a 20 20 22 54 68 65 20 65 6e 74 72 79 20 62 65 69 6e 67 20 64 69 73 70 6c 61 79 65 .nil..."The.entry.being.displaye
20de0 64 20 69 6e 20 74 68 69 73 20 62 75 66 66 65 72 2e 22 29 0a 0a 28 64 65 66 76 61 72 20 63 61 6c d.in.this.buffer.")..(defvar.cal
20e00 69 62 72 65 64 62 2d 73 68 6f 77 2d 6d 6f 64 65 2d 6d 61 70 0a 20 20 28 6c 65 74 20 28 28 6d 61 ibredb-show-mode-map...(let.((ma
20e20 70 20 28 6d 61 6b 65 2d 73 70 61 72 73 65 2d 6b 65 79 6d 61 70 29 29 29 0a 20 20 20 20 28 64 65 p.(make-sparse-keymap))).....(de
20e40 66 69 6e 65 2d 6b 65 79 20 6d 61 70 20 22 3f 22 20 23 27 63 61 6c 69 62 72 65 64 62 2d 65 6e 74 fine-key.map."?".#'calibredb-ent
20e60 72 79 2d 64 69 73 70 61 74 63 68 29 0a 20 20 20 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 6d 61 70 ry-dispatch).....(define-key.map
20e80 20 22 6f 22 20 23 27 63 61 6c 69 62 72 65 64 62 2d 66 69 6e 64 2d 66 69 6c 65 29 0a 20 20 20 20 ."o".#'calibredb-find-file).....
20ea0 28 64 65 66 69 6e 65 2d 6b 65 79 20 6d 61 70 20 22 4f 22 20 23 27 63 61 6c 69 62 72 65 64 62 2d (define-key.map."O".#'calibredb-
20ec0 66 69 6e 64 2d 66 69 6c 65 2d 6f 74 68 65 72 2d 66 72 61 6d 65 29 0a 20 20 20 20 28 64 65 66 69 find-file-other-frame).....(defi
20ee0 6e 65 2d 6b 65 79 20 6d 61 70 20 22 56 22 20 23 27 63 61 6c 69 62 72 65 64 62 2d 6f 70 65 6e 2d ne-key.map."V".#'calibredb-open-
20f00 66 69 6c 65 2d 77 69 74 68 2d 64 65 66 61 75 6c 74 2d 74 6f 6f 6c 29 0a 20 20 20 20 28 64 65 66 file-with-default-tool).....(def
20f20 69 6e 65 2d 6b 65 79 20 6d 61 70 20 22 73 22 20 23 27 63 61 6c 69 62 72 65 64 62 2d 73 65 74 2d ine-key.map."s".#'calibredb-set-
20f40 6d 65 74 61 64 61 74 61 2d 64 69 73 70 61 74 63 68 29 0a 20 20 20 20 28 64 65 66 69 6e 65 2d 6b metadata-dispatch).....(define-k
20f60 65 79 20 6d 61 70 20 22 65 22 20 23 27 63 61 6c 69 62 72 65 64 62 2d 65 78 70 6f 72 74 2d 64 69 ey.map."e".#'calibredb-export-di
20f80 73 70 61 74 63 68 29 0a 20 20 20 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 6d 61 70 20 22 71 22 20 spatch).....(define-key.map."q".
20fa0 23 27 63 61 6c 69 62 72 65 64 62 2d 65 6e 74 72 79 2d 71 75 69 74 29 0a 20 20 20 20 28 64 65 66 #'calibredb-entry-quit).....(def
20fc0 69 6e 65 2d 6b 65 79 20 6d 61 70 20 22 79 22 20 23 27 63 61 6c 69 62 72 65 64 62 2d 79 61 6e 6b ine-key.map."y".#'calibredb-yank
20fe0 2d 64 69 73 70 61 74 63 68 29 0a 20 20 20 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 6d 61 70 20 22 -dispatch).....(define-key.map."
21000 2c 22 20 23 27 63 61 6c 69 62 72 65 64 62 2d 71 75 69 63 6b 2d 6c 6f 6f 6b 29 0a 20 20 20 20 28 ,".#'calibredb-quick-look).....(
21020 64 65 66 69 6e 65 2d 6b 65 79 20 6d 61 70 20 22 2e 22 20 23 27 63 61 6c 69 62 72 65 64 62 2d 6f define-key.map.".".#'calibredb-o
21040 70 65 6e 2d 64 69 72 65 64 29 0a 20 20 20 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 6d 61 70 20 22 pen-dired).....(define-key.map."
21060 5c 4d 2d 2f 22 20 23 27 63 61 6c 69 62 72 65 64 62 2d 72 67 61 29 0a 20 20 20 20 28 64 65 66 69 \M-/".#'calibredb-rga).....(defi
21080 6e 65 2d 6b 65 79 20 6d 61 70 20 22 5c 4d 2d 74 22 20 23 27 63 61 6c 69 62 72 65 64 62 2d 73 65 ne-key.map."\M-t".#'calibredb-se
210a0 74 2d 6d 65 74 61 64 61 74 61 2d 2d 74 61 67 73 29 0a 20 20 20 20 28 64 65 66 69 6e 65 2d 6b 65 t-metadata--tags).....(define-ke
210c0 79 20 6d 61 70 20 22 5c 4d 2d 61 22 20 23 27 63 61 6c 69 62 72 65 64 62 2d 73 65 74 2d 6d 65 74 y.map."\M-a".#'calibredb-set-met
210e0 61 64 61 74 61 2d 2d 61 75 74 68 6f 72 5f 73 6f 72 74 29 0a 20 20 20 20 28 64 65 66 69 6e 65 2d adata--author_sort).....(define-
21100 6b 65 79 20 6d 61 70 20 22 5c 4d 2d 41 22 20 23 27 63 61 6c 69 62 72 65 64 62 2d 73 65 74 2d 6d key.map."\M-A".#'calibredb-set-m
21120 65 74 61 64 61 74 61 2d 2d 61 75 74 68 6f 72 73 29 0a 20 20 20 20 28 64 65 66 69 6e 65 2d 6b 65 etadata--authors).....(define-ke
21140 79 20 6d 61 70 20 22 5c 4d 2d 54 22 20 23 27 63 61 6c 69 62 72 65 64 62 2d 73 65 74 2d 6d 65 74 y.map."\M-T".#'calibredb-set-met
21160 61 64 61 74 61 2d 2d 74 69 74 6c 65 29 0a 20 20 20 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 6d 61 adata--title).....(define-key.ma
21180 70 20 22 5c 4d 2d 63 22 20 23 27 63 61 6c 69 62 72 65 64 62 2d 73 65 74 2d 6d 65 74 61 64 61 74 p."\M-c".#'calibredb-set-metadat
211a0 61 2d 2d 63 6f 6d 6d 65 6e 74 73 29 0a 20 20 20 20 6d 61 70 29 0a 20 20 22 4b 65 79 6d 61 70 20 a--comments).....map)..."Keymap.
211c0 66 6f 72 20 60 63 61 6c 69 62 72 65 64 62 2d 73 68 6f 77 2d 6d 6f 64 65 27 2e 22 29 0a 0a 28 64 for.`calibredb-show-mode'.")..(d
211e0 65 66 63 75 73 74 6f 6d 20 63 61 6c 69 62 72 65 64 62 2d 73 68 6f 77 2d 75 6e 69 71 75 65 2d 62 efcustom.calibredb-show-unique-b
21200 75 66 66 65 72 73 20 6e 69 6c 0a 20 20 22 54 4f 44 4f 3a 20 57 68 65 6e 20 6e 6f 6e 2d 6e 69 6c uffers.nil..."TODO:.When.non-nil
21220 2c 20 65 76 65 72 79 20 65 6e 74 72 79 20 62 75 66 66 65 72 20 67 65 74 73 20 61 20 75 6e 69 71 ,.every.entry.buffer.gets.a.uniq
21240 75 65 20 6e 61 6d 65 2e 0a 54 68 69 73 20 61 6c 6c 6f 77 73 20 66 6f 72 20 64 69 73 70 6c 61 79 ue.name..This.allows.for.display
21260 69 6e 67 20 6d 75 6c 74 69 70 6c 65 20 73 68 6f 77 20 62 75 66 66 65 72 73 20 61 74 20 74 68 65 ing.multiple.show.buffers.at.the
21280 20 73 61 6d 65 0a 74 69 6d 65 2e 22 0a 20 20 3a 67 72 6f 75 70 20 27 63 61 6c 69 62 72 65 64 62 .same.time."...:group.'calibredb
212a0 0a 20 20 3a 74 79 70 65 20 27 62 6f 6f 6c 65 61 6e 29 0a 0a 0a 28 64 65 66 63 75 73 74 6f 6d 20 ...:type.'boolean)...(defcustom.
212c0 63 61 6c 69 62 72 65 64 62 2d 73 68 6f 77 2d 65 6e 74 72 79 2d 73 77 69 74 63 68 20 23 27 73 77 calibredb-show-entry-switch.#'sw
212e0 69 74 63 68 2d 74 6f 2d 62 75 66 66 65 72 2d 6f 74 68 65 72 2d 77 69 6e 64 6f 77 0a 20 20 22 46 itch-to-buffer-other-window..."F
21300 75 6e 63 74 69 6f 6e 20 75 73 65 64 20 74 6f 20 64 69 73 70 6c 61 79 20 74 68 65 20 63 61 6c 69 unction.used.to.display.the.cali
21320 62 72 65 20 65 6e 74 72 79 20 62 75 66 66 65 72 2e 22 0a 20 20 3a 67 72 6f 75 70 20 27 63 61 6c bre.entry.buffer."...:group.'cal
21340 69 62 72 65 64 62 0a 20 20 3a 74 79 70 65 20 27 28 63 68 6f 69 63 65 20 28 66 75 6e 63 74 69 6f ibredb...:type.'(choice.(functio
21360 6e 2d 69 74 65 6d 20 73 77 69 74 63 68 2d 74 6f 2d 62 75 66 66 65 72 2d 6f 74 68 65 72 2d 77 69 n-item.switch-to-buffer-other-wi
21380 6e 64 6f 77 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 75 6e 63 74 69 6f 6e ndow)..................(function
213a0 2d 69 74 65 6d 20 73 77 69 74 63 68 2d 74 6f 2d 62 75 66 66 65 72 29 0a 20 20 20 20 20 20 20 20 -item.switch-to-buffer).........
213c0 20 20 20 20 20 20 20 20 20 28 66 75 6e 63 74 69 6f 6e 2d 69 74 65 6d 20 70 6f 70 2d 74 6f 2d 62 .........(function-item.pop-to-b
213e0 75 66 66 65 72 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 66 75 6e 63 74 69 6f 6e uffer)..................function
21400 29 29 0a 0a 28 64 65 66 69 6e 65 2d 64 65 72 69 76 65 64 2d 6d 6f 64 65 20 63 61 6c 69 62 72 65 ))..(define-derived-mode.calibre
21420 64 62 2d 73 68 6f 77 2d 6d 6f 64 65 20 66 75 6e 64 61 6d 65 6e 74 61 6c 2d 6d 6f 64 65 20 22 63 db-show-mode.fundamental-mode."c
21440 61 6c 69 62 72 65 64 62 2d 73 68 6f 77 22 0a 20 20 22 4d 6f 64 65 20 66 6f 72 20 64 69 73 70 6c alibredb-show"..."Mode.for.displ
21460 61 79 69 6e 67 20 62 6f 6f 6b 20 65 6e 74 72 79 20 64 65 74 61 69 6c 73 2e 0a 5c 5c 7b 63 61 6c aying.book.entry.details..\\{cal
21480 69 62 72 65 64 62 2d 73 68 6f 77 2d 6d 6f 64 65 2d 6d 61 70 7d 22 0a 20 20 28 73 65 74 71 20 62 ibredb-show-mode-map}"...(setq.b
214a0 75 66 66 65 72 2d 72 65 61 64 2d 6f 6e 6c 79 20 74 29 0a 20 20 28 62 75 66 66 65 72 2d 64 69 73 uffer-read-only.t)...(buffer-dis
214c0 61 62 6c 65 2d 75 6e 64 6f 29 29 0a 0a 28 64 65 66 75 6e 20 63 61 6c 69 62 72 65 64 62 2d 73 68 able-undo))..(defun.calibredb-sh
214e0 6f 77 2d 2d 62 75 66 66 65 72 2d 6e 61 6d 65 20 28 65 6e 74 72 79 29 0a 20 20 22 52 65 74 75 72 ow--buffer-name.(entry)..."Retur
21500 6e 20 74 68 65 20 61 70 70 72 6f 70 72 69 61 74 65 20 62 75 66 66 65 72 20 6e 61 6d 65 20 66 6f n.the.appropriate.buffer.name.fo
21520 72 20 45 4e 54 52 59 2e 0a 54 68 65 20 72 65 73 75 6c 74 20 64 65 70 65 6e 64 73 20 6f 6e 20 74 r.ENTRY..The.result.depends.on.t
21540 68 65 20 76 61 6c 75 65 20 6f 66 20 60 63 61 6c 69 62 72 65 64 62 2d 73 68 6f 77 2d 75 6e 69 71 he.value.of.`calibredb-show-uniq
21560 75 65 2d 62 75 66 66 65 72 73 27 2e 22 0a 20 20 28 69 66 20 63 61 6c 69 62 72 65 64 62 2d 73 68 ue-buffers'."...(if.calibredb-sh
21580 6f 77 2d 75 6e 69 71 75 65 2d 62 75 66 66 65 72 73 0a 20 20 20 20 20 20 28 66 6f 72 6d 61 74 20 ow-unique-buffers.......(format.
215a0 22 2a 63 61 6c 69 62 72 65 64 62 2d 65 6e 74 72 79 2d 3c 25 73 3e 2a 22 0a 20 20 20 20 20 20 20 "*calibredb-entry-<%s>*"........
215c0 20 20 20 20 20 20 20 28 63 61 6c 69 62 72 65 64 62 2d 67 65 74 61 74 74 72 20 65 6e 74 72 79 20 .......(calibredb-getattr.entry.
215e0 3a 62 6f 6f 6b 2d 74 69 74 6c 65 29 29 0a 20 20 20 20 22 2a 63 61 6c 69 62 72 65 64 62 2d 65 6e :book-title))....."*calibredb-en
21600 74 72 79 2a 22 29 29 0a 0a 28 64 65 66 75 6e 20 63 61 6c 69 62 72 65 64 62 2d 73 68 6f 77 2d 72 try*"))..(defun.calibredb-show-r
21620 65 66 72 65 73 68 20 28 29 0a 20 20 22 52 65 66 72 65 73 68 20 45 4e 54 52 59 20 69 6e 20 74 68 efresh.()..."Refresh.ENTRY.in.th
21640 65 20 63 75 72 72 65 6e 74 20 62 75 66 66 65 72 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 e.current.buffer."...(interactiv
21660 65 29 0a 20 20 28 6c 65 74 2a 20 28 28 65 6e 74 72 79 20 28 67 65 74 2d 74 65 78 74 2d 70 72 6f e)...(let*.((entry.(get-text-pro
21680 70 65 72 74 79 20 28 70 6f 69 6e 74 2d 6d 69 6e 29 20 27 63 61 6c 69 62 72 65 64 62 2d 65 6e 74 perty.(point-min).'calibredb-ent
216a0 72 79 20 6e 69 6c 29 29 20 3b 20 6f 6c 64 20 65 6e 74 72 79 0a 20 20 20 20 20 20 20 20 20 28 69 ry.nil)).;.old.entry..........(i
216c0 64 20 28 63 61 6c 69 62 72 65 64 62 2d 67 65 74 61 74 74 72 20 65 6e 74 72 79 20 3a 69 64 29 29 d.(calibredb-getattr.entry.:id))
216e0 20 3b 20 6f 6e 6c 79 20 67 65 74 20 74 68 65 20 69 64 0a 20 20 20 20 20 20 20 20 20 28 71 75 65 .;.only.get.the.id..........(que
21700 72 79 2d 72 65 73 75 6c 74 20 28 63 64 72 20 28 63 61 72 20 28 63 61 6c 69 62 72 65 64 62 2d 63 ry-result.(cdr.(car.(calibredb-c
21720 61 6e 64 69 64 61 74 65 20 69 64 29 29 29 29 29 20 3b 20 67 65 74 20 74 68 65 20 6e 65 77 20 65 andidate.id))))).;.get.the.new.e
21740 6e 74 72 79 20 74 68 72 6f 75 67 68 20 53 51 4c 20 71 75 65 72 79 0a 20 20 20 20 28 63 61 6c 69 ntry.through.SQL.query.....(cali
21760 62 72 65 64 62 2d 73 68 6f 77 2d 65 6e 74 72 79 20 71 75 65 72 79 2d 72 65 73 75 6c 74 29 29 29 bredb-show-entry.query-result)))
21780 0a 0a 28 64 65 66 75 6e 20 63 61 6c 69 62 72 65 64 62 2d 65 6e 74 72 79 2d 71 75 69 74 20 28 29 ..(defun.calibredb-entry-quit.()
217a0 0a 20 20 22 51 75 69 74 20 74 68 65 20 2a 63 61 6c 69 62 72 65 64 62 2d 65 6e 74 72 79 2a 2e 22 ..."Quit.the.*calibredb-entry*."
217c0 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 0a 20 20 28 77 68 65 6e 20 28 65 71 20 6d 61 6a ...(interactive)...(when.(eq.maj
217e0 6f 72 2d 6d 6f 64 65 20 27 63 61 6c 69 62 72 65 64 62 2d 73 68 6f 77 2d 6d 6f 64 65 29 0a 20 20 or-mode.'calibredb-show-mode)...
21800 20 20 28 77 68 65 6e 20 28 67 65 74 2d 62 75 66 66 65 72 20 22 2a 63 61 6c 69 62 72 65 64 62 2d ..(when.(get-buffer."*calibredb-
21820 65 6e 74 72 79 2a 22 29 0a 20 20 20 20 20 20 28 70 6f 70 2d 74 6f 2d 62 75 66 66 65 72 20 22 2a entry*").......(pop-to-buffer."*
21840 63 61 6c 69 62 72 65 64 62 2d 65 6e 74 72 79 2a 22 29 0a 20 20 20 20 20 20 28 69 66 20 28 3c 20 calibredb-entry*").......(if.(<.
21860 28 6c 65 6e 67 74 68 20 28 77 69 6e 64 6f 77 2d 70 72 65 76 2d 62 75 66 66 65 72 73 29 29 20 32 (length.(window-prev-buffers)).2
21880 29 0a 20 20 20 20 20 20 20 20 28 70 72 6f 67 6e 0a 20 20 20 20 20 20 20 20 20 20 28 71 75 69 74 ).........(progn...........(quit
218a0 2d 77 69 6e 64 6f 77 29 0a 20 20 20 20 20 20 20 20 20 20 28 6b 69 6c 6c 2d 62 75 66 66 65 72 20 -window)...........(kill-buffer.
218c0 22 2a 63 61 6c 69 62 72 65 64 62 2d 65 6e 74 72 79 2a 22 29 29 0a 20 20 20 20 20 20 20 20 28 6b "*calibredb-entry*")).........(k
218e0 69 6c 6c 2d 62 75 66 66 65 72 20 22 2a 63 61 6c 69 62 72 65 64 62 2d 65 6e 74 72 79 2a 22 29 29 ill-buffer."*calibredb-entry*"))
21900 29 29 29 0a 0a 28 70 72 6f 76 69 64 65 20 27 63 61 6c 69 62 72 65 64 62 2d 73 68 6f 77 29 0a 0a )))..(provide.'calibredb-show)..
21920 3b 3b 3b 20 63 61 6c 69 62 72 65 64 62 2d 73 68 6f 77 2e 65 6c 20 65 6e 64 73 20 68 65 72 65 0a ;;;.calibredb-show.el.ends.here.
21940 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
21960 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
21980 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
219a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
219c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
219e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
21a00 63 61 6c 69 62 72 65 64 62 2d 32 30 32 34 30 33 33 31 2e 34 30 39 2f 63 61 6c 69 62 72 65 64 62 calibredb-20240331.409/calibredb
21a20 2d 70 6b 67 2e 65 6c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -pkg.el.........................
21a40 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
21a60 00 00 00 00 30 30 30 30 36 34 34 00 30 30 30 30 30 30 30 00 30 30 30 30 30 30 30 00 30 30 30 30 ....0000644.0000000.0000000.0000
21a80 30 30 30 31 30 35 36 00 30 30 30 30 30 30 30 30 30 30 30 00 30 31 35 36 34 35 00 20 30 00 00 00 0001056.00000000000.015645..0...
21aa0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
21ac0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
21ae0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
21b00 00 75 73 74 61 72 20 20 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 .ustar...root...................
21b20 00 00 00 00 00 00 00 00 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 .........root...................
21b40 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
21b60 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
21b80 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
21ba0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
21bc0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
21be0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
21c00 28 64 65 66 69 6e 65 2d 70 61 63 6b 61 67 65 20 22 63 61 6c 69 62 72 65 64 62 22 20 22 32 30 32 (define-package."calibredb"."202
21c20 34 30 33 33 31 2e 34 30 39 22 20 22 59 65 74 20 61 6e 6f 74 68 65 72 20 63 61 6c 69 62 72 65 20 40331.409"."Yet.another.calibre.
21c40 63 6c 69 65 6e 74 22 0a 20 20 27 28 28 65 6d 61 63 73 20 22 32 35 2e 31 22 29 0a 20 20 20 20 28 client"...'((emacs."25.1").....(
21c60 6f 72 67 20 22 39 2e 33 22 29 0a 20 20 20 20 28 74 72 61 6e 73 69 65 6e 74 20 22 30 2e 31 2e 30 org."9.3").....(transient."0.1.0
21c80 22 29 0a 20 20 20 20 28 73 20 22 31 2e 31 32 2e 30 22 29 0a 20 20 20 20 28 64 61 73 68 20 22 32 ").....(s."1.12.0").....(dash."2
21ca0 2e 31 37 2e 30 22 29 0a 20 20 20 20 28 72 65 71 75 65 73 74 20 22 30 2e 33 2e 33 22 29 0a 20 20 .17.0").....(request."0.3.3")...
21cc0 20 20 28 65 73 78 6d 6c 20 22 30 2e 33 2e 37 22 29 29 0a 20 20 3a 63 6f 6d 6d 69 74 20 22 62 35 ..(esxml."0.3.7"))...:commit."b5
21ce0 32 36 30 39 35 65 34 62 31 63 37 38 36 36 39 35 38 66 65 35 33 35 31 38 65 62 38 39 37 61 38 63 26095e4b1c7866958fe53518eb897a8c
21d00 38 37 61 31 39 62 22 20 3a 61 75 74 68 6f 72 73 0a 20 20 27 28 28 22 44 61 6d 6f 6e 20 43 68 61 87a19b".:authors...'(("Damon.Cha
21d20 6e 22 20 2e 20 22 65 6c 65 63 6d 69 6e 67 40 67 6d 61 69 6c 2e 63 6f 6d 22 29 29 0a 20 20 3a 6d n"..."elecming@gmail.com"))...:m
21d40 61 69 6e 74 61 69 6e 65 72 73 0a 20 20 27 28 28 22 44 61 6d 6f 6e 20 43 68 61 6e 22 20 2e 20 22 aintainers...'(("Damon.Chan"..."
21d60 65 6c 65 63 6d 69 6e 67 40 67 6d 61 69 6c 2e 63 6f 6d 22 29 29 0a 20 20 3a 6d 61 69 6e 74 61 69 elecming@gmail.com"))...:maintai
21d80 6e 65 72 0a 20 20 27 28 22 44 61 6d 6f 6e 20 43 68 61 6e 22 20 2e 20 22 65 6c 65 63 6d 69 6e 67 ner...'("Damon.Chan"..."elecming
21da0 40 67 6d 61 69 6c 2e 63 6f 6d 22 29 0a 20 20 3a 6b 65 79 77 6f 72 64 73 0a 20 20 27 28 22 74 6f @gmail.com")...:keywords...'("to
21dc0 6f 6c 73 22 29 0a 20 20 3a 75 72 6c 20 22 68 74 74 70 73 3a 2f 2f 67 69 74 68 75 62 2e 63 6f 6d ols")...:url."https://github.com
21de0 2f 63 68 65 6e 79 61 6e 6d 69 6e 67 2f 63 61 6c 69 62 72 65 64 62 2e 65 6c 22 29 0a 3b 3b 20 4c /chenyanming/calibredb.el").;;.L
21e00 6f 63 61 6c 20 56 61 72 69 61 62 6c 65 73 3a 0a 3b 3b 20 6e 6f 2d 62 79 74 65 2d 63 6f 6d 70 69 ocal.Variables:.;;.no-byte-compi
21e20 6c 65 3a 20 74 0a 3b 3b 20 45 6e 64 3a 0a 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 le:.t.;;.End:...................
21e40 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
21e60 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
21e80 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
21ea0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
21ec0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
21ee0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
21f00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
21f20 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
21f40 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
21f60 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
21f80 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
21fa0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
21fc0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
21fe0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
22000 63 61 6c 69 62 72 65 64 62 2d 32 30 32 34 30 33 33 31 2e 34 30 39 2f 63 61 6c 69 62 72 65 64 62 calibredb-20240331.409/calibredb
22020 2d 63 6f 6e 73 75 6c 74 2e 65 6c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -consult.el.....................
22040 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
22060 00 00 00 00 30 30 30 30 36 34 34 00 30 30 30 30 30 30 30 00 30 30 30 30 30 30 30 00 30 30 30 30 ....0000644.0000000.0000000.0000
22080 30 30 30 33 35 35 36 00 30 30 30 30 30 30 30 30 30 30 30 00 30 31 36 35 36 32 00 20 30 00 00 00 0003556.00000000000.016562..0...
220a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
220c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
220e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
22100 00 75 73 74 61 72 20 20 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 .ustar...root...................
22120 00 00 00 00 00 00 00 00 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 .........root...................
22140 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
22160 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
22180 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
221a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
221c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
221e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
22200 3b 3b 3b 20 63 61 6c 69 62 72 65 64 62 2d 63 6f 6e 73 75 6c 74 2e 65 6c 20 2d 2d 2d 20 53 75 70 ;;;.calibredb-consult.el.---.Sup
22220 70 6f 72 74 20 63 6f 6e 73 75 6c 74 20 66 6f 72 20 63 61 6c 69 62 72 65 64 62 20 2d 2a 2d 20 6c port.consult.for.calibredb.-*-.l
22240 65 78 69 63 61 6c 2d 62 69 6e 64 69 6e 67 3a 20 74 3b 20 2d 2a 2d 0a 0a 3b 3b 20 43 6f 70 79 72 exical-binding:.t;.-*-..;;.Copyr
22260 69 67 68 74 20 28 43 29 20 32 30 32 30 20 44 61 6d 6f 6e 20 43 68 61 6e 0a 0a 3b 3b 20 41 75 74 ight.(C).2020.Damon.Chan..;;.Aut
22280 68 6f 72 3a 20 44 61 6d 6f 6e 20 43 68 61 6e 20 3c 65 6c 65 63 6d 69 6e 67 40 67 6d 61 69 6c 2e hor:.Damon.Chan.<elecming@gmail.
222a0 63 6f 6d 3e 0a 3b 3b 20 55 52 4c 3a 20 68 74 74 70 73 3a 2f 2f 67 69 74 68 75 62 2e 63 6f 6d 2f com>.;;.URL:.https://github.com/
222c0 63 68 65 6e 79 61 6e 6d 69 6e 67 2f 63 61 6c 69 62 72 65 64 62 2e 65 6c 0a 3b 3b 20 4b 65 79 77 chenyanming/calibredb.el.;;.Keyw
222e0 6f 72 64 73 3a 20 74 6f 6f 6c 73 0a 3b 3b 20 56 65 72 73 69 6f 6e 3a 20 32 2e 31 32 2e 30 0a 0a ords:.tools.;;.Version:.2.12.0..
22300 3b 3b 20 54 68 69 73 20 66 69 6c 65 20 69 73 20 4e 4f 54 20 70 61 72 74 20 6f 66 20 47 4e 55 20 ;;.This.file.is.NOT.part.of.GNU.
22320 45 6d 61 63 73 2e 0a 0a 3b 3b 20 54 68 69 73 20 70 72 6f 67 72 61 6d 20 69 73 20 66 72 65 65 20 Emacs...;;.This.program.is.free.
22340 73 6f 66 74 77 61 72 65 3b 20 79 6f 75 20 63 61 6e 20 72 65 64 69 73 74 72 69 62 75 74 65 20 69 software;.you.can.redistribute.i
22360 74 20 61 6e 64 2f 6f 72 20 6d 6f 64 69 66 79 0a 3b 3b 20 69 74 20 75 6e 64 65 72 20 74 68 65 20 t.and/or.modify.;;.it.under.the.
22380 74 65 72 6d 73 20 6f 66 20 74 68 65 20 47 4e 55 20 47 65 6e 65 72 61 6c 20 50 75 62 6c 69 63 20 terms.of.the.GNU.General.Public.
223a0 4c 69 63 65 6e 73 65 20 61 73 20 70 75 62 6c 69 73 68 65 64 20 62 79 0a 3b 3b 20 74 68 65 20 46 License.as.published.by.;;.the.F
223c0 72 65 65 20 53 6f 66 74 77 61 72 65 20 46 6f 75 6e 64 61 74 69 6f 6e 2c 20 65 69 74 68 65 72 20 ree.Software.Foundation,.either.
223e0 76 65 72 73 69 6f 6e 20 33 20 6f 66 20 74 68 65 20 4c 69 63 65 6e 73 65 2c 20 6f 72 0a 3b 3b 20 version.3.of.the.License,.or.;;.
22400 28 61 74 20 79 6f 75 72 20 6f 70 74 69 6f 6e 29 20 61 6e 79 20 6c 61 74 65 72 20 76 65 72 73 69 (at.your.option).any.later.versi
22420 6f 6e 2e 0a 0a 3b 3b 20 54 68 69 73 20 70 72 6f 67 72 61 6d 20 69 73 20 64 69 73 74 72 69 62 75 on...;;.This.program.is.distribu
22440 74 65 64 20 69 6e 20 74 68 65 20 68 6f 70 65 20 74 68 61 74 20 69 74 20 77 69 6c 6c 20 62 65 20 ted.in.the.hope.that.it.will.be.
22460 75 73 65 66 75 6c 2c 0a 3b 3b 20 62 75 74 20 57 49 54 48 4f 55 54 20 41 4e 59 20 57 41 52 52 41 useful,.;;.but.WITHOUT.ANY.WARRA
22480 4e 54 59 3b 20 77 69 74 68 6f 75 74 20 65 76 65 6e 20 74 68 65 20 69 6d 70 6c 69 65 64 20 77 61 NTY;.without.even.the.implied.wa
224a0 72 72 61 6e 74 79 20 6f 66 0a 3b 3b 20 4d 45 52 43 48 41 4e 54 41 42 49 4c 49 54 59 20 6f 72 20 rranty.of.;;.MERCHANTABILITY.or.
224c0 46 49 54 4e 45 53 53 20 46 4f 52 20 41 20 50 41 52 54 49 43 55 4c 41 52 20 50 55 52 50 4f 53 45 FITNESS.FOR.A.PARTICULAR.PURPOSE
224e0 2e 20 20 53 65 65 20 74 68 65 0a 3b 3b 20 47 4e 55 20 47 65 6e 65 72 61 6c 20 50 75 62 6c 69 63 ...See.the.;;.GNU.General.Public
22500 20 4c 69 63 65 6e 73 65 20 66 6f 72 20 6d 6f 72 65 20 64 65 74 61 69 6c 73 2e 0a 0a 3b 3b 20 59 .License.for.more.details...;;.Y
22520 6f 75 20 73 68 6f 75 6c 64 20 68 61 76 65 20 72 65 63 65 69 76 65 64 20 61 20 63 6f 70 79 20 6f ou.should.have.received.a.copy.o
22540 66 20 74 68 65 20 47 4e 55 20 47 65 6e 65 72 61 6c 20 50 75 62 6c 69 63 20 4c 69 63 65 6e 73 65 f.the.GNU.General.Public.License
22560 0a 3b 3b 20 61 6c 6f 6e 67 20 77 69 74 68 20 74 68 69 73 20 70 72 6f 67 72 61 6d 2e 20 20 49 66 .;;.along.with.this.program...If
22580 20 6e 6f 74 2c 20 73 65 65 20 3c 68 74 74 70 73 3a 2f 2f 77 77 77 2e 67 6e 75 2e 6f 72 67 2f 6c .not,.see.<https://www.gnu.org/l
225a0 69 63 65 6e 73 65 73 2f 3e 2e 0a 0a 3b 3b 3b 20 43 6f 6d 6d 65 6e 74 61 72 79 3a 0a 0a 3b 3b 3b icenses/>...;;;.Commentary:..;;;
225c0 20 43 6f 64 65 3a 0a 0a 28 72 65 71 75 69 72 65 20 27 63 61 6c 69 62 72 65 64 62 2d 63 6f 72 65 .Code:..(require.'calibredb-core
225e0 29 0a 28 72 65 71 75 69 72 65 20 27 63 61 6c 69 62 72 65 64 62 2d 73 65 61 72 63 68 29 0a 28 72 ).(require.'calibredb-search).(r
22600 65 71 75 69 72 65 20 27 63 61 6c 69 62 72 65 64 62 2d 75 74 69 6c 73 29 0a 0a 28 65 76 61 6c 2d equire.'calibredb-utils)..(eval-
22620 77 68 65 6e 2d 63 6f 6d 70 69 6c 65 20 28 64 65 66 76 61 72 20 63 61 6c 69 62 72 65 64 62 2d 73 when-compile.(defvar.calibredb-s
22640 65 61 72 63 68 2d 65 6e 74 72 69 65 73 29 29 0a 28 65 76 61 6c 2d 77 68 65 6e 2d 63 6f 6d 70 69 earch-entries)).(eval-when-compi
22660 6c 65 20 28 64 65 66 76 61 72 20 63 61 6c 69 62 72 65 64 62 2d 66 75 6c 6c 2d 65 6e 74 72 69 65 le.(defvar.calibredb-full-entrie
22680 73 29 29 0a 0a 28 64 65 66 75 6e 20 63 61 6c 69 62 72 65 64 62 2d 63 6f 6e 73 75 6c 74 2d 72 65 s))..(defun.calibredb-consult-re
226a0 61 64 20 28 61 72 67 29 0a 20 20 22 63 6f 6e 73 75 6c 74 20 72 65 61 64 20 66 6f 72 20 63 61 6c ad.(arg)..."consult.read.for.cal
226c0 69 62 72 65 64 62 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 20 22 50 22 29 0a 20 20 28 ibredb."...(interactive."P")...(
226e0 69 66 20 28 66 62 6f 75 6e 64 70 20 27 63 6f 6e 73 75 6c 74 2d 2d 72 65 61 64 29 0a 20 20 20 20 if.(fboundp.'consult--read).....
22700 20 20 28 6c 65 74 20 28 28 63 61 6e 64 69 64 61 74 65 73 20 28 69 66 20 63 61 6c 69 62 72 65 64 ..(let.((candidates.(if.calibred
22720 62 2d 73 65 61 72 63 68 2d 65 6e 74 72 69 65 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 b-search-entries................
22740 20 20 20 20 20 20 20 63 61 6c 69 62 72 65 64 62 2d 73 65 61 72 63 68 2d 65 6e 74 72 69 65 73 0a .......calibredb-search-entries.
22760 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 72 6f 67 6e 0a 20 20 20 20 20 ....................(progn......
22780 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 63 61 6c 69 62 72 65 64 62 .................(setq.calibredb
227a0 2d 73 65 61 72 63 68 2d 65 6e 74 72 69 65 73 20 28 63 61 6c 69 62 72 65 64 62 2d 63 61 6e 64 69 -search-entries.(calibredb-candi
227c0 64 61 74 65 73 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 dates)).......................(s
227e0 65 74 71 20 63 61 6c 69 62 72 65 64 62 2d 66 75 6c 6c 2d 65 6e 74 72 69 65 73 20 63 61 6c 69 62 etq.calibredb-full-entries.calib
22800 72 65 64 62 2d 73 65 61 72 63 68 2d 65 6e 74 72 69 65 73 29 29 29 29 29 0a 20 20 20 20 20 20 20 redb-search-entries)))))........
22820 20 28 69 66 20 63 61 6e 64 69 64 61 74 65 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 63 61 6c .(if.candidates.............(cal
22840 69 62 72 65 64 62 2d 66 69 6e 64 2d 66 69 6c 65 20 28 63 6f 6e 73 75 6c 74 2d 2d 72 65 61 64 20 ibredb-find-file.(consult--read.
22860 63 61 6e 64 69 64 61 74 65 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 candidates......................
22880 20 20 20 20 20 20 3a 70 72 6f 6d 70 74 20 22 50 69 63 6b 20 61 20 62 6f 6f 6b 3a 20 22 0a 20 20 ......:prompt."Pick.a.book:."...
228a0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 6c 6f 6f 6b 75 70 .........................:lookup
228c0 20 23 27 63 6f 6e 73 75 6c 74 2d 2d 6c 6f 6f 6b 75 70 2d 63 64 72 0a 20 20 20 20 20 20 20 20 20 .#'consult--lookup-cdr..........
228e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 73 6f 72 74 20 6e 69 6c 29 20 61 72 67 ..................:sort.nil).arg
22900 29 0a 20 20 20 20 20 20 20 20 20 20 28 6d 65 73 73 61 67 65 20 22 49 4e 56 41 4c 49 44 20 4c 49 )...........(message."INVALID.LI
22920 42 52 41 52 59 22 29 29 29 29 29 0a 0a 28 70 72 6f 76 69 64 65 20 27 63 61 6c 69 62 72 65 64 62 BRARY")))))..(provide.'calibredb
22940 2d 63 6f 6e 73 75 6c 74 29 0a 0a 3b 3b 3b 20 63 61 6c 69 62 72 65 64 62 2d 63 6f 6e 73 75 6c 74 -consult)..;;;.calibredb-consult
22960 2e 65 6c 20 65 6e 64 73 20 68 65 72 65 0a 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 .el.ends.here...................
22980 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
229a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
229c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
229e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
22a00 63 61 6c 69 62 72 65 64 62 2d 32 30 32 34 30 33 33 31 2e 34 30 39 2f 63 61 6c 69 62 72 65 64 62 calibredb-20240331.409/calibredb
22a20 2d 6f 72 67 2e 65 6c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -org.el.........................
22a40 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
22a60 00 00 00 00 30 30 30 30 36 34 34 00 30 30 30 30 30 30 30 00 30 30 30 30 30 30 30 00 30 30 30 30 ....0000644.0000000.0000000.0000
22a80 30 30 31 30 34 35 33 00 30 30 30 30 30 30 30 30 30 30 30 00 30 31 35 36 35 34 00 20 30 00 00 00 0010453.00000000000.015654..0...
22aa0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
22ac0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
22ae0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
22b00 00 75 73 74 61 72 20 20 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 .ustar...root...................
22b20 00 00 00 00 00 00 00 00 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 .........root...................
22b40 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
22b60 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
22b80 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
22ba0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
22bc0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
22be0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
22c00 3b 3b 3b 20 63 61 6c 69 62 72 65 64 62 2d 6f 72 67 2e 65 6c 20 2d 2d 2d 20 4f 72 67 20 6d 6f 64 ;;;.calibredb-org.el.---.Org.mod
22c20 65 20 73 75 70 70 6f 72 74 65 64 20 66 65 61 74 75 72 65 73 20 66 6f 72 20 63 61 6c 69 62 72 65 e.supported.features.for.calibre
22c40 64 62 20 2d 2a 2d 20 6c 65 78 69 63 61 6c 2d 62 69 6e 64 69 6e 67 3a 20 74 3b 20 2d 2a 2d 0a 0a db.-*-.lexical-binding:.t;.-*-..
22c60 3b 3b 20 43 6f 70 79 72 69 67 68 74 20 28 43 29 20 32 30 32 30 20 44 61 6d 6f 6e 20 43 68 61 6e ;;.Copyright.(C).2020.Damon.Chan
22c80 0a 0a 3b 3b 20 41 75 74 68 6f 72 3a 20 44 61 6d 6f 6e 20 43 68 61 6e 20 3c 65 6c 65 63 6d 69 6e ..;;.Author:.Damon.Chan.<elecmin
22ca0 67 40 67 6d 61 69 6c 2e 63 6f 6d 3e 0a 3b 3b 20 55 52 4c 3a 20 68 74 74 70 73 3a 2f 2f 67 69 74 g@gmail.com>.;;.URL:.https://git
22cc0 68 75 62 2e 63 6f 6d 2f 63 68 65 6e 79 61 6e 6d 69 6e 67 2f 63 61 6c 69 62 72 65 64 62 2e 65 6c hub.com/chenyanming/calibredb.el
22ce0 0a 3b 3b 20 4b 65 79 77 6f 72 64 73 3a 20 74 6f 6f 6c 73 0a 3b 3b 20 56 65 72 73 69 6f 6e 3a 20 .;;.Keywords:.tools.;;.Version:.
22d00 32 2e 31 32 2e 30 0a 0a 3b 3b 20 54 68 69 73 20 66 69 6c 65 20 69 73 20 4e 4f 54 20 70 61 72 74 2.12.0..;;.This.file.is.NOT.part
22d20 20 6f 66 20 47 4e 55 20 45 6d 61 63 73 2e 0a 0a 3b 3b 20 54 68 69 73 20 70 72 6f 67 72 61 6d 20 .of.GNU.Emacs...;;.This.program.
22d40 69 73 20 66 72 65 65 20 73 6f 66 74 77 61 72 65 3b 20 79 6f 75 20 63 61 6e 20 72 65 64 69 73 74 is.free.software;.you.can.redist
22d60 72 69 62 75 74 65 20 69 74 20 61 6e 64 2f 6f 72 20 6d 6f 64 69 66 79 0a 3b 3b 20 69 74 20 75 6e ribute.it.and/or.modify.;;.it.un
22d80 64 65 72 20 74 68 65 20 74 65 72 6d 73 20 6f 66 20 74 68 65 20 47 4e 55 20 47 65 6e 65 72 61 6c der.the.terms.of.the.GNU.General
22da0 20 50 75 62 6c 69 63 20 4c 69 63 65 6e 73 65 20 61 73 20 70 75 62 6c 69 73 68 65 64 20 62 79 0a .Public.License.as.published.by.
22dc0 3b 3b 20 74 68 65 20 46 72 65 65 20 53 6f 66 74 77 61 72 65 20 46 6f 75 6e 64 61 74 69 6f 6e 2c ;;.the.Free.Software.Foundation,
22de0 20 65 69 74 68 65 72 20 76 65 72 73 69 6f 6e 20 33 20 6f 66 20 74 68 65 20 4c 69 63 65 6e 73 65 .either.version.3.of.the.License
22e00 2c 20 6f 72 0a 3b 3b 20 28 61 74 20 79 6f 75 72 20 6f 70 74 69 6f 6e 29 20 61 6e 79 20 6c 61 74 ,.or.;;.(at.your.option).any.lat
22e20 65 72 20 76 65 72 73 69 6f 6e 2e 0a 0a 3b 3b 20 54 68 69 73 20 70 72 6f 67 72 61 6d 20 69 73 20 er.version...;;.This.program.is.
22e40 64 69 73 74 72 69 62 75 74 65 64 20 69 6e 20 74 68 65 20 68 6f 70 65 20 74 68 61 74 20 69 74 20 distributed.in.the.hope.that.it.
22e60 77 69 6c 6c 20 62 65 20 75 73 65 66 75 6c 2c 0a 3b 3b 20 62 75 74 20 57 49 54 48 4f 55 54 20 41 will.be.useful,.;;.but.WITHOUT.A
22e80 4e 59 20 57 41 52 52 41 4e 54 59 3b 20 77 69 74 68 6f 75 74 20 65 76 65 6e 20 74 68 65 20 69 6d NY.WARRANTY;.without.even.the.im
22ea0 70 6c 69 65 64 20 77 61 72 72 61 6e 74 79 20 6f 66 0a 3b 3b 20 4d 45 52 43 48 41 4e 54 41 42 49 plied.warranty.of.;;.MERCHANTABI
22ec0 4c 49 54 59 20 6f 72 20 46 49 54 4e 45 53 53 20 46 4f 52 20 41 20 50 41 52 54 49 43 55 4c 41 52 LITY.or.FITNESS.FOR.A.PARTICULAR
22ee0 20 50 55 52 50 4f 53 45 2e 20 20 53 65 65 20 74 68 65 0a 3b 3b 20 47 4e 55 20 47 65 6e 65 72 61 .PURPOSE...See.the.;;.GNU.Genera
22f00 6c 20 50 75 62 6c 69 63 20 4c 69 63 65 6e 73 65 20 66 6f 72 20 6d 6f 72 65 20 64 65 74 61 69 6c l.Public.License.for.more.detail
22f20 73 2e 0a 0a 3b 3b 20 59 6f 75 20 73 68 6f 75 6c 64 20 68 61 76 65 20 72 65 63 65 69 76 65 64 20 s...;;.You.should.have.received.
22f40 61 20 63 6f 70 79 20 6f 66 20 74 68 65 20 47 4e 55 20 47 65 6e 65 72 61 6c 20 50 75 62 6c 69 63 a.copy.of.the.GNU.General.Public
22f60 20 4c 69 63 65 6e 73 65 0a 3b 3b 20 61 6c 6f 6e 67 20 77 69 74 68 20 74 68 69 73 20 70 72 6f 67 .License.;;.along.with.this.prog
22f80 72 61 6d 2e 20 20 49 66 20 6e 6f 74 2c 20 73 65 65 20 3c 68 74 74 70 73 3a 2f 2f 77 77 77 2e 67 ram...If.not,.see.<https://www.g
22fa0 6e 75 2e 6f 72 67 2f 6c 69 63 65 6e 73 65 73 2f 3e 2e 0a 0a 3b 3b 3b 20 43 6f 6d 6d 65 6e 74 61 nu.org/licenses/>...;;;.Commenta
22fc0 72 79 3a 0a 0a 3b 3b 3b 20 43 6f 64 65 3a 0a 0a 0a 28 72 65 71 75 69 72 65 20 27 63 61 6c 69 62 ry:..;;;.Code:...(require.'calib
22fe0 72 65 64 62 2d 63 6f 72 65 29 0a 28 72 65 71 75 69 72 65 20 27 6f 6c 29 0a 0a 28 64 65 63 6c 61 redb-core).(require.'ol)..(decla
23000 72 65 2d 66 75 6e 63 74 69 6f 6e 20 63 61 6c 69 62 72 65 64 62 2d 73 68 6f 77 2d 65 6e 74 72 79 re-function.calibredb-show-entry
23020 20 22 63 61 6c 69 62 72 65 64 62 2d 73 65 61 72 63 68 2e 65 6c 22 29 0a 28 64 65 63 6c 61 72 65 ."calibredb-search.el").(declare
23040 2d 66 75 6e 63 74 69 6f 6e 20 63 61 6c 69 62 72 65 64 62 2d 66 69 6e 64 2d 6d 61 72 6b 65 64 2d -function.calibredb-find-marked-
23060 63 61 6e 64 69 64 61 74 65 73 20 22 63 61 6c 69 62 72 65 64 62 2d 75 74 69 6c 73 2e 65 6c 22 29 candidates."calibredb-utils.el")
23080 0a 28 64 65 63 6c 61 72 65 2d 66 75 6e 63 74 69 6f 6e 20 63 61 6c 69 62 72 65 64 62 2d 66 69 6e .(declare-function.calibredb-fin
230a0 64 2d 63 61 6e 64 69 64 61 74 65 2d 61 74 2d 70 6f 69 6e 74 20 22 63 61 6c 69 62 72 65 64 62 2d d-candidate-at-point."calibredb-
230c0 75 74 69 6c 73 2e 65 6c 22 29 0a 0a 3b 3b 3b 23 23 23 61 75 74 6f 6c 6f 61 64 0a 28 64 65 66 75 utils.el")..;;;###autoload.(defu
230e0 6e 20 63 61 6c 69 62 72 65 64 62 2d 6f 72 67 2d 6c 69 6e 6b 2d 76 69 65 77 20 28 69 64 20 5f 29 n.calibredb-org-link-view.(id._)
23100 0a 20 20 22 46 6f 6c 6c 6f 77 20 63 61 6c 69 62 72 65 64 62 20 6f 72 67 20 6c 69 6e 6b 73 20 62 ..."Follow.calibredb.org.links.b
23120 79 20 49 44 2e 22 0a 20 20 28 63 61 6c 69 62 72 65 64 62 2d 73 68 6f 77 2d 65 6e 74 72 79 20 28 y.ID."...(calibredb-show-entry.(
23140 63 64 61 72 20 28 63 61 6c 69 62 72 65 64 62 2d 63 61 6e 64 69 64 61 74 65 20 69 64 29 29 29 29 cdar.(calibredb-candidate.id))))
23160 0a 0a 3b 3b 3b 23 23 23 61 75 74 6f 6c 6f 61 64 0a 28 64 65 66 75 6e 20 63 61 6c 69 62 72 65 64 ..;;;###autoload.(defun.calibred
23180 62 2d 6f 72 67 2d 63 6f 6d 70 6c 65 74 65 2d 6c 69 6e 6b 20 28 26 6f 70 74 69 6f 6e 61 6c 20 70 b-org-complete-link.(&optional.p
231a0 72 65 66 69 78 29 0a 20 20 22 44 65 66 69 6e 65 20 63 6f 6d 70 6c 65 74 69 6f 6e 20 66 6f 72 20 refix)..."Define.completion.for.
231c0 4f 72 67 20 5c 22 63 61 6c 69 62 72 65 64 62 3a 5c 22 20 6c 69 6e 6b 73 2e 0a 54 68 65 20 6f 70 Org.\"calibredb:\".links..The.op
231e0 74 69 6f 6e 61 6c 20 50 52 45 46 49 58 20 61 72 67 75 6d 65 6e 74 20 69 73 20 69 67 6e 6f 72 65 tional.PREFIX.argument.is.ignore
23200 64 2e 0a 50 6c 65 61 73 65 20 6e 6f 74 69 63 65 3a 20 60 63 61 6c 69 62 72 65 64 62 2d 69 64 2d d..Please.notice:.`calibredb-id-
23220 77 69 64 74 68 27 20 6d 75 73 74 20 3e 3d 20 74 68 65 20 72 65 61 6c 20 69 64 20 6c 65 6e 74 68 width'.must.>=.the.real.id.lenth
23240 2e 22 0a 20 20 28 69 67 6e 6f 72 65 20 70 72 65 66 69 78 29 0a 20 20 28 6c 65 74 2a 20 28 28 63 ."...(ignore.prefix)...(let*.((c
23260 61 6e 64 69 64 61 74 65 73 20 28 69 66 20 63 61 6c 69 62 72 65 64 62 2d 73 65 61 72 63 68 2d 65 andidates.(if.calibredb-search-e
23280 6e 74 72 69 65 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 61 6c 69 62 72 ntries....................calibr
232a0 65 64 62 2d 73 65 61 72 63 68 2d 65 6e 74 72 69 65 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 edb-search-entries..............
232c0 20 20 20 20 28 70 72 6f 67 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 ....(progn....................(s
232e0 65 74 71 20 63 61 6c 69 62 72 65 64 62 2d 73 65 61 72 63 68 2d 65 6e 74 72 69 65 73 20 28 63 61 etq.calibredb-search-entries.(ca
23300 6c 69 62 72 65 64 62 2d 63 61 6e 64 69 64 61 74 65 73 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 libredb-candidates))............
23320 20 20 20 20 20 20 20 20 28 73 65 74 71 20 63 61 6c 69 62 72 65 64 62 2d 66 75 6c 6c 2d 65 6e 74 ........(setq.calibredb-full-ent
23340 72 69 65 73 20 63 61 6c 69 62 72 65 64 62 2d 73 65 61 72 63 68 2d 65 6e 74 72 69 65 73 29 29 29 ries.calibredb-search-entries)))
23360 29 29 0a 20 20 20 20 28 69 66 20 28 66 62 6f 75 6e 64 70 20 27 63 6f 6e 73 75 6c 74 2d 2d 72 65 )).....(if.(fboundp.'consult--re
23380 61 64 29 0a 20 20 20 20 20 20 20 20 28 69 66 20 63 61 6e 64 69 64 61 74 65 73 0a 20 20 20 20 20 ad).........(if.candidates......
233a0 20 20 20 20 20 20 20 28 6c 65 74 2a 20 28 28 63 61 6e 64 20 28 63 6f 6e 73 75 6c 74 2d 2d 72 65 .......(let*.((cand.(consult--re
233c0 61 64 20 63 61 6e 64 69 64 61 74 65 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ad.candidates...................
233e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 70 72 6f 6d 70 74 20 22 50 ......................:prompt."P
23400 69 63 6b 20 61 20 62 6f 6f 6b 3a 20 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ick.a.book:."...................
23420 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 6c 6f 6f 6b 75 70 20 23 27 ......................:lookup.#'
23440 63 6f 6e 73 75 6c 74 2d 2d 6c 6f 6f 6b 75 70 2d 63 64 72 0a 20 20 20 20 20 20 20 20 20 20 20 20 consult--lookup-cdr.............
23460 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 73 6f 72 ............................:sor
23480 74 20 6e 69 6c 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 64 20 28 t.nil))....................(id.(
234a0 63 61 64 72 20 28 61 73 73 6f 63 20 3a 69 64 20 28 63 61 72 20 63 61 6e 64 20 29 29 20 29 29 29 cadr.(assoc.:id.(car.cand.)).)))
234c0 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 6e 63 61 74 20 28 66 6f 72 6d 61 74 20 22 ...............(concat.(format."
234e0 63 61 6c 69 62 72 65 64 62 3a 25 73 22 20 69 64 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 22 63 calibredb:%s".id)))..........."c
23500 61 6c 69 62 72 65 64 62 3a 22 29 0a 20 20 20 20 20 20 28 69 66 20 63 61 6e 64 69 64 61 74 65 73 alibredb:").......(if.candidates
23520 0a 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 2a 20 28 28 63 61 6e 64 20 28 63 6f 6d 70 6c 65 74 ...........(let*.((cand.(complet
23540 69 6e 67 2d 72 65 61 64 20 22 50 69 63 6b 20 61 20 62 6f 6f 6b 3a 20 22 20 63 61 6e 64 69 64 61 ing-read."Pick.a.book:.".candida
23560 74 65 73 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 64 2d 70 6f 69 6e 74 tes))..................(id-point
23580 20 28 74 65 78 74 2d 70 72 6f 70 65 72 74 79 2d 6e 6f 74 2d 61 6c 6c 20 30 20 28 6c 65 6e 67 74 .(text-property-not-all.0.(lengt
235a0 68 20 63 61 6e 64 29 20 27 69 64 20 6e 69 6c 20 63 61 6e 64 29 29 0a 20 20 20 20 20 20 20 20 20 h.cand).'id.nil.cand))..........
235c0 20 20 20 20 20 20 20 20 28 69 64 20 28 67 65 74 2d 74 65 78 74 2d 70 72 6f 70 65 72 74 79 20 69 ........(id.(get-text-property.i
235e0 64 2d 70 6f 69 6e 74 20 27 69 64 20 63 61 6e 64 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 d-point.'id.cand))).............
23600 28 63 6f 6e 63 61 74 20 28 66 6f 72 6d 61 74 20 22 63 61 6c 69 62 72 65 64 62 3a 25 73 22 20 69 (concat.(format."calibredb:%s".i
23620 64 29 29 29 0a 20 20 20 20 20 20 20 20 22 63 61 6c 69 62 72 65 64 62 3a 22 29 29 29 29 0a 0a 0a d)))........."calibredb:"))))...
23640 28 64 65 66 75 6e 20 63 61 6c 69 62 72 65 64 62 2d 6f 72 67 2d 69 6d 61 67 65 2d 64 61 74 61 2d (defun.calibredb-org-image-data-
23660 66 75 6e 20 28 5f 70 72 6f 74 6f 63 6f 6c 20 69 64 20 5f 64 65 73 63 72 69 70 74 69 6f 6e 29 0a fun.(_protocol.id._description).
23680 20 20 22 47 65 74 20 63 6f 72 72 65 73 70 6f 6e 64 69 6e 67 20 62 6f 6f 6b 20 49 44 20 63 6f 76 .."Get.corresponding.book.ID.cov
236a0 65 72 20 70 61 67 65 20 64 61 74 61 2e 0a 44 69 73 70 6c 61 79 20 63 6f 76 65 72 20 70 61 67 65 er.page.data..Display.cover.page
236c0 20 69 6e 6c 69 6e 65 20 69 6e 20 6f 72 67 20 62 75 66 66 65 72 2e 20 55 73 65 20 74 68 69 73 20 .inline.in.org.buffer..Use.this.
236e0 61 73 0a 3a 69 6d 61 67 65 2d 64 61 74 61 2d 66 75 6e 20 70 72 6f 70 65 72 74 79 20 69 6e 20 60 as.:image-data-fun.property.in.`
23700 6f 72 67 2d 6c 69 6e 6b 2d 70 72 6f 70 65 72 74 69 65 73 27 2e 20 53 65 65 0a 60 6f 72 67 2d 64 org-link-properties'..See.`org-d
23720 69 73 70 6c 61 79 2d 75 73 65 72 2d 69 6e 6c 69 6e 65 2d 69 6d 61 67 65 73 27 20 66 6f 72 20 61 isplay-user-inline-images'.for.a
23740 20 64 65 73 63 72 69 70 74 69 6f 6e 20 6f 66 0a 3a 69 6d 61 67 65 2d 64 61 74 61 2d 66 75 6e 2e .description.of.:image-data-fun.
23760 22 0a 20 20 28 69 66 20 28 73 74 72 69 6e 67 2d 6d 61 74 63 68 20 22 5b 30 2d 39 5d 2b 22 20 69 "...(if.(string-match."[0-9]+".i
23780 64 29 0a 20 20 20 20 20 20 28 77 69 74 68 2d 63 75 72 72 65 6e 74 2d 62 75 66 66 65 72 20 28 66 d).......(with-current-buffer.(f
237a0 69 6e 64 2d 66 69 6c 65 2d 6e 6f 73 65 6c 65 63 74 20 28 63 61 6c 69 62 72 65 64 62 2d 67 65 74 ind-file-noselect.(calibredb-get
237c0 2d 63 6f 76 65 72 20 28 63 64 61 72 20 28 63 61 6c 69 62 72 65 64 62 2d 63 61 6e 64 69 64 61 74 -cover.(cdar.(calibredb-candidat
237e0 65 20 69 64 29 29 29 29 0a 20 20 20 20 20 20 20 20 28 62 75 66 66 65 72 2d 73 75 62 73 74 72 69 e.id)))).........(buffer-substri
23800 6e 67 2d 6e 6f 2d 70 72 6f 70 65 72 74 69 65 73 20 28 70 6f 69 6e 74 29 20 28 70 6f 69 6e 74 2d ng-no-properties.(point).(point-
23820 6d 61 78 29 29 29 29 29 0a 0a 0a 3b 3b 20 60 6f 72 67 2d 64 69 73 70 6c 61 79 2d 75 73 65 72 2d max)))))...;;.`org-display-user-
23840 69 6e 6c 69 6e 65 2d 69 6d 61 67 65 73 27 20 69 73 20 66 72 6f 6d 20 70 61 63 6b 61 67 65 20 60 inline-images'.is.from.package.`
23860 6f 72 67 2d 79 74 27 0a 28 69 66 20 28 72 65 71 75 69 72 65 20 27 6f 72 67 2d 79 74 20 6e 69 6c org-yt'.(if.(require.'org-yt.nil
23880 20 27 6e 6f 65 72 72 6f 72 29 0a 20 20 20 20 28 6f 72 67 2d 6c 69 6e 6b 2d 73 65 74 2d 70 61 72 .'noerror).....(org-link-set-par
238a0 61 6d 65 74 65 72 73 0a 20 20 20 20 20 22 63 61 6c 69 62 72 65 64 62 22 0a 20 20 20 20 20 3a 66 ameters......"calibredb"......:f
238c0 6f 6c 6c 6f 77 20 23 27 63 61 6c 69 62 72 65 64 62 2d 6f 72 67 2d 6c 69 6e 6b 2d 76 69 65 77 0a ollow.#'calibredb-org-link-view.
238e0 20 20 20 20 20 3a 63 6f 6d 70 6c 65 74 65 20 23 27 63 61 6c 69 62 72 65 64 62 2d 6f 72 67 2d 63 .....:complete.#'calibredb-org-c
23900 6f 6d 70 6c 65 74 65 2d 6c 69 6e 6b 0a 20 20 20 20 20 3a 69 6d 61 67 65 2d 64 61 74 61 2d 66 75 omplete-link......:image-data-fu
23920 6e 20 23 27 63 61 6c 69 62 72 65 64 62 2d 6f 72 67 2d 69 6d 61 67 65 2d 64 61 74 61 2d 66 75 6e n.#'calibredb-org-image-data-fun
23940 29 0a 20 20 28 6f 72 67 2d 6c 69 6e 6b 2d 73 65 74 2d 70 61 72 61 6d 65 74 65 72 73 0a 20 20 20 )...(org-link-set-parameters....
23960 22 63 61 6c 69 62 72 65 64 62 22 0a 20 20 20 3a 66 6f 6c 6c 6f 77 20 23 27 63 61 6c 69 62 72 65 "calibredb"....:follow.#'calibre
23980 64 62 2d 6f 72 67 2d 6c 69 6e 6b 2d 76 69 65 77 0a 20 20 20 3a 63 6f 6d 70 6c 65 74 65 20 23 27 db-org-link-view....:complete.#'
239a0 63 61 6c 69 62 72 65 64 62 2d 6f 72 67 2d 63 6f 6d 70 6c 65 74 65 2d 6c 69 6e 6b 29 29 0a 0a 0a calibredb-org-complete-link))...
239c0 28 64 65 66 75 6e 20 63 61 6c 69 62 72 65 64 62 2d 6f 72 67 2d 6c 69 6e 6b 2d 63 6f 70 79 20 28 (defun.calibredb-org-link-copy.(
239e0 29 0a 20 20 22 43 6f 70 79 20 74 68 65 20 6d 61 72 6b 65 64 20 69 74 65 6d 73 20 61 73 20 63 61 )..."Copy.the.marked.items.as.ca
23a00 6c 69 62 72 65 64 62 20 6f 72 67 20 6c 69 6e 6b 73 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 libredb.org.links."...(interacti
23a20 76 65 29 0a 20 20 28 6c 65 74 20 28 28 63 61 6e 64 69 64 61 74 65 73 20 28 63 61 6c 69 62 72 65 ve)...(let.((candidates.(calibre
23a40 64 62 2d 66 69 6e 64 2d 6d 61 72 6b 65 64 2d 63 61 6e 64 69 64 61 74 65 73 29 29 29 0a 20 20 20 db-find-marked-candidates)))....
23a60 20 28 75 6e 6c 65 73 73 20 63 61 6e 64 69 64 61 74 65 73 0a 20 20 20 20 20 20 28 73 65 74 71 20 .(unless.candidates.......(setq.
23a80 63 61 6e 64 69 64 61 74 65 73 20 28 63 61 6c 69 62 72 65 64 62 2d 66 69 6e 64 2d 63 61 6e 64 69 candidates.(calibredb-find-candi
23aa0 64 61 74 65 2d 61 74 2d 70 6f 69 6e 74 29 29 29 0a 20 20 20 20 28 6b 69 6c 6c 2d 6e 65 77 0a 20 date-at-point))).....(kill-new..
23ac0 20 20 20 20 28 77 69 74 68 2d 74 65 6d 70 2d 62 75 66 66 65 72 0a 20 20 20 20 20 20 20 28 64 6f ....(with-temp-buffer........(do
23ae0 6c 69 73 74 20 28 63 61 6e 64 20 63 61 6e 64 69 64 61 74 65 73 29 0a 20 20 20 20 20 20 20 20 20 list.(cand.candidates)..........
23b00 28 6c 65 74 20 28 28 69 64 20 28 63 61 6c 69 62 72 65 64 62 2d 67 65 74 61 74 74 72 20 63 61 6e (let.((id.(calibredb-getattr.can
23b20 64 20 3a 69 64 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 74 69 74 6c 65 20 28 63 d.:id))................(title.(c
23b40 61 6c 69 62 72 65 64 62 2d 67 65 74 61 74 74 72 20 63 61 6e 64 20 3a 62 6f 6f 6b 2d 74 69 74 6c alibredb-getattr.cand.:book-titl
23b60 65 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 69 6e 73 65 72 74 20 28 66 6f 72 6d 61 74 20 e)))............(insert.(format.
23b80 22 5b 5b 63 61 6c 69 62 72 65 64 62 3a 25 73 5d 5b 25 73 5d 5d 5c 6e 22 20 69 64 20 74 69 74 6c "[[calibredb:%s][%s]]\n".id.titl
23ba0 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 6d 65 73 73 61 67 65 20 22 43 6f 70 69 65 64 3a e))............(message."Copied:
23bc0 20 25 73 20 2d 20 5c 22 25 73 5c 22 20 61 73 20 63 61 6c 69 62 72 65 64 62 20 6f 72 67 20 6c 69 .%s.-.\"%s\".as.calibredb.org.li
23be0 6e 6b 2e 22 20 69 64 20 74 69 74 6c 65 29 29 29 0a 20 20 20 20 20 20 20 28 62 75 66 66 65 72 2d nk.".id.title)))........(buffer-
23c00 73 74 72 69 6e 67 29 29 29 0a 20 20 20 20 3b 3b 20 72 65 6d 6f 76 65 20 6f 76 65 72 6c 61 79 73 string))).....;;.remove.overlays
23c20 20 61 6e 64 20 74 65 78 74 20 70 72 6f 70 65 72 74 69 65 73 0a 20 20 20 20 28 6c 65 74 2a 20 28 .and.text.properties.....(let*.(
23c40 28 62 65 67 20 28 70 6f 69 6e 74 2d 6d 69 6e 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 65 6e (beg.(point-min))............(en
23c60 64 20 28 70 6f 69 6e 74 2d 6d 61 78 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 69 6e 68 69 62 d.(point-max))............(inhib
23c80 69 74 2d 72 65 61 64 2d 6f 6e 6c 79 20 74 29 29 0a 20 20 20 20 20 20 28 72 65 6d 6f 76 65 2d 6f it-read-only.t)).......(remove-o
23ca0 76 65 72 6c 61 79 73 20 62 65 67 20 65 6e 64 29 0a 20 20 20 20 20 20 28 72 65 6d 6f 76 65 2d 74 verlays.beg.end).......(remove-t
23cc0 65 78 74 2d 70 72 6f 70 65 72 74 69 65 73 20 62 65 67 20 65 6e 64 20 27 28 63 61 6c 69 62 72 65 ext-properties.beg.end.'(calibre
23ce0 64 62 2d 6d 61 72 6b 20 6e 69 6c 29 29 29 29 29 0a 0a 28 70 72 6f 76 69 64 65 20 27 63 61 6c 69 db-mark.nil)))))..(provide.'cali
23d00 62 72 65 64 62 2d 6f 72 67 29 0a 0a 3b 3b 3b 20 63 61 6c 69 62 72 65 64 62 2d 6f 72 67 2e 65 6c bredb-org)..;;;.calibredb-org.el
23d20 20 65 6e 64 73 20 68 65 72 65 0a 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 .ends.here......................
23d40 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
23d60 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
23d80 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
23da0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
23dc0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
23de0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
23e00 63 61 6c 69 62 72 65 64 62 2d 32 30 32 34 30 33 33 31 2e 34 30 39 2f 63 61 6c 69 62 72 65 64 62 calibredb-20240331.409/calibredb
23e20 2d 66 61 63 65 73 2e 65 6c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -faces.el.......................
23e40 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
23e60 00 00 00 00 30 30 30 30 36 34 34 00 30 30 30 30 30 30 30 00 30 30 30 30 30 30 30 00 30 30 30 30 ....0000644.0000000.0000000.0000
23e80 30 30 31 34 35 35 33 00 30 30 30 30 30 30 30 30 30 30 30 00 30 31 36 31 35 33 00 20 30 00 00 00 0014553.00000000000.016153..0...
23ea0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
23ec0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
23ee0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
23f00 00 75 73 74 61 72 20 20 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 .ustar...root...................
23f20 00 00 00 00 00 00 00 00 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 .........root...................
23f40 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
23f60 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
23f80 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
23fa0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
23fc0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
23fe0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
24000 3b 3b 3b 20 63 61 6c 69 62 72 65 64 62 2d 66 61 63 65 73 2e 65 6c 20 2d 2d 2d 20 46 61 63 65 73 ;;;.calibredb-faces.el.---.Faces
24020 20 66 6f 72 20 63 61 6c 69 62 72 65 64 62 20 2d 2a 2d 20 6c 65 78 69 63 61 6c 2d 62 69 6e 64 69 .for.calibredb.-*-.lexical-bindi
24040 6e 67 3a 20 74 3b 20 2d 2a 2d 0a 0a 3b 3b 20 43 6f 70 79 72 69 67 68 74 20 28 43 29 20 32 30 32 ng:.t;.-*-..;;.Copyright.(C).202
24060 30 20 44 61 6d 6f 6e 20 43 68 61 6e 0a 0a 3b 3b 20 41 75 74 68 6f 72 3a 20 44 61 6d 6f 6e 20 43 0.Damon.Chan..;;.Author:.Damon.C
24080 68 61 6e 20 3c 65 6c 65 63 6d 69 6e 67 40 67 6d 61 69 6c 2e 63 6f 6d 3e 0a 3b 3b 20 55 52 4c 3a han.<elecming@gmail.com>.;;.URL:
240a0 20 68 74 74 70 73 3a 2f 2f 67 69 74 68 75 62 2e 63 6f 6d 2f 63 68 65 6e 79 61 6e 6d 69 6e 67 2f .https://github.com/chenyanming/
240c0 63 61 6c 69 62 72 65 64 62 2e 65 6c 0a 3b 3b 20 4b 65 79 77 6f 72 64 73 3a 20 74 6f 6f 6c 73 0a calibredb.el.;;.Keywords:.tools.
240e0 3b 3b 20 56 65 72 73 69 6f 6e 3a 20 32 2e 31 32 2e 30 0a 0a 3b 3b 20 54 68 69 73 20 66 69 6c 65 ;;.Version:.2.12.0..;;.This.file
24100 20 69 73 20 4e 4f 54 20 70 61 72 74 20 6f 66 20 47 4e 55 20 45 6d 61 63 73 2e 0a 0a 3b 3b 20 54 .is.NOT.part.of.GNU.Emacs...;;.T
24120 68 69 73 20 70 72 6f 67 72 61 6d 20 69 73 20 66 72 65 65 20 73 6f 66 74 77 61 72 65 3b 20 79 6f his.program.is.free.software;.yo
24140 75 20 63 61 6e 20 72 65 64 69 73 74 72 69 62 75 74 65 20 69 74 20 61 6e 64 2f 6f 72 20 6d 6f 64 u.can.redistribute.it.and/or.mod
24160 69 66 79 0a 3b 3b 20 69 74 20 75 6e 64 65 72 20 74 68 65 20 74 65 72 6d 73 20 6f 66 20 74 68 65 ify.;;.it.under.the.terms.of.the
24180 20 47 4e 55 20 47 65 6e 65 72 61 6c 20 50 75 62 6c 69 63 20 4c 69 63 65 6e 73 65 20 61 73 20 70 .GNU.General.Public.License.as.p
241a0 75 62 6c 69 73 68 65 64 20 62 79 0a 3b 3b 20 74 68 65 20 46 72 65 65 20 53 6f 66 74 77 61 72 65 ublished.by.;;.the.Free.Software
241c0 20 46 6f 75 6e 64 61 74 69 6f 6e 2c 20 65 69 74 68 65 72 20 76 65 72 73 69 6f 6e 20 33 20 6f 66 .Foundation,.either.version.3.of
241e0 20 74 68 65 20 4c 69 63 65 6e 73 65 2c 20 6f 72 0a 3b 3b 20 28 61 74 20 79 6f 75 72 20 6f 70 74 .the.License,.or.;;.(at.your.opt
24200 69 6f 6e 29 20 61 6e 79 20 6c 61 74 65 72 20 76 65 72 73 69 6f 6e 2e 0a 0a 3b 3b 20 54 68 69 73 ion).any.later.version...;;.This
24220 20 70 72 6f 67 72 61 6d 20 69 73 20 64 69 73 74 72 69 62 75 74 65 64 20 69 6e 20 74 68 65 20 68 .program.is.distributed.in.the.h
24240 6f 70 65 20 74 68 61 74 20 69 74 20 77 69 6c 6c 20 62 65 20 75 73 65 66 75 6c 2c 0a 3b 3b 20 62 ope.that.it.will.be.useful,.;;.b
24260 75 74 20 57 49 54 48 4f 55 54 20 41 4e 59 20 57 41 52 52 41 4e 54 59 3b 20 77 69 74 68 6f 75 74 ut.WITHOUT.ANY.WARRANTY;.without
24280 20 65 76 65 6e 20 74 68 65 20 69 6d 70 6c 69 65 64 20 77 61 72 72 61 6e 74 79 20 6f 66 0a 3b 3b .even.the.implied.warranty.of.;;
242a0 20 4d 45 52 43 48 41 4e 54 41 42 49 4c 49 54 59 20 6f 72 20 46 49 54 4e 45 53 53 20 46 4f 52 20 .MERCHANTABILITY.or.FITNESS.FOR.
242c0 41 20 50 41 52 54 49 43 55 4c 41 52 20 50 55 52 50 4f 53 45 2e 20 20 53 65 65 20 74 68 65 0a 3b A.PARTICULAR.PURPOSE...See.the.;
242e0 3b 20 47 4e 55 20 47 65 6e 65 72 61 6c 20 50 75 62 6c 69 63 20 4c 69 63 65 6e 73 65 20 66 6f 72 ;.GNU.General.Public.License.for
24300 20 6d 6f 72 65 20 64 65 74 61 69 6c 73 2e 0a 0a 3b 3b 20 59 6f 75 20 73 68 6f 75 6c 64 20 68 61 .more.details...;;.You.should.ha
24320 76 65 20 72 65 63 65 69 76 65 64 20 61 20 63 6f 70 79 20 6f 66 20 74 68 65 20 47 4e 55 20 47 65 ve.received.a.copy.of.the.GNU.Ge
24340 6e 65 72 61 6c 20 50 75 62 6c 69 63 20 4c 69 63 65 6e 73 65 0a 3b 3b 20 61 6c 6f 6e 67 20 77 69 neral.Public.License.;;.along.wi
24360 74 68 20 74 68 69 73 20 70 72 6f 67 72 61 6d 2e 20 20 49 66 20 6e 6f 74 2c 20 73 65 65 20 3c 68 th.this.program...If.not,.see.<h
24380 74 74 70 73 3a 2f 2f 77 77 77 2e 67 6e 75 2e 6f 72 67 2f 6c 69 63 65 6e 73 65 73 2f 3e 2e 0a 0a ttps://www.gnu.org/licenses/>...
243a0 3b 3b 3b 20 43 6f 6d 6d 65 6e 74 61 72 79 3a 0a 0a 3b 3b 3b 20 43 6f 64 65 3a 0a 0a 28 64 65 66 ;;;.Commentary:..;;;.Code:..(def
243c0 66 61 63 65 20 63 61 6c 69 62 72 65 64 62 2d 73 65 61 72 63 68 2d 68 65 61 64 65 72 2d 68 69 67 face.calibredb-search-header-hig
243e0 68 6c 69 67 68 74 2d 66 61 63 65 0a 20 20 27 28 28 74 20 3a 69 6e 68 65 72 69 74 20 72 65 67 69 hlight-face...'((t.:inherit.regi
24400 6f 6e 20 3a 77 65 69 67 68 74 20 62 6f 6c 64 20 3a 75 6e 64 65 72 6c 69 6e 65 20 74 29 29 0a 20 on.:weight.bold.:underline.t))..
24420 20 22 46 61 63 65 20 66 6f 72 20 74 68 65 20 68 65 61 64 65 72 20 61 74 20 70 6f 69 6e 74 2e 22 ."Face.for.the.header.at.point."
24440 0a 20 20 3a 67 72 6f 75 70 20 27 63 61 6c 69 62 72 65 64 62 2d 66 61 63 65 73 29 0a 0a 28 64 65 ...:group.'calibredb-faces)..(de
24460 66 66 61 63 65 20 63 61 6c 69 62 72 65 64 62 2d 69 64 2d 66 61 63 65 0a 20 20 27 28 28 28 28 63 fface.calibredb-id-face...'((((c
24480 6c 61 73 73 20 63 6f 6c 6f 72 29 20 28 62 61 63 6b 67 72 6f 75 6e 64 20 6c 69 67 68 74 29 29 0a lass.color).(background.light)).
244a0 20 20 20 20 20 3a 66 6f 72 65 67 72 6f 75 6e 64 20 22 23 33 42 36 45 41 38 22 29 0a 20 20 20 20 .....:foreground."#3B6EA8").....
244c0 28 28 28 63 6c 61 73 73 20 63 6f 6c 6f 72 29 20 28 62 61 63 6b 67 72 6f 75 6e 64 20 64 61 72 6b (((class.color).(background.dark
244e0 29 29 0a 20 20 20 20 20 3a 66 6f 72 65 67 72 6f 75 6e 64 20 22 23 38 31 41 31 43 31 22 29 0a 20 ))......:foreground."#81A1C1")..
24500 20 20 20 28 74 20 3a 69 6e 68 65 72 69 74 20 64 65 66 61 75 6c 74 29 29 0a 20 20 22 46 61 63 65 ...(t.:inherit.default))..."Face
24520 20 75 73 65 64 20 66 6f 72 20 69 64 2e 22 0a 20 20 3a 67 72 6f 75 70 20 27 63 61 6c 69 62 72 65 .used.for.id."...:group.'calibre
24540 64 62 2d 66 61 63 65 73 29 0a 0a 28 64 65 66 66 61 63 65 20 63 61 6c 69 62 72 65 64 62 2d 74 69 db-faces)..(defface.calibredb-ti
24560 74 6c 65 2d 66 61 63 65 20 27 28 28 74 20 3a 69 6e 68 65 72 69 74 20 64 65 66 61 75 6c 74 29 29 tle-face.'((t.:inherit.default))
24580 0a 20 20 22 46 61 63 65 20 75 73 65 64 20 66 6f 72 20 74 69 74 6c 65 20 6f 6e 20 63 6f 6d 70 61 ..."Face.used.for.title.on.compa
245a0 63 74 20 76 69 65 77 2e 22 0a 20 20 3a 67 72 6f 75 70 20 27 63 61 6c 69 62 72 65 64 62 2d 66 61 ct.view."...:group.'calibredb-fa
245c0 63 65 73 29 0a 0a 28 64 65 66 66 61 63 65 20 63 61 6c 69 62 72 65 64 62 2d 74 69 74 6c 65 2d 64 ces)..(defface.calibredb-title-d
245e0 65 74 61 69 6c 65 64 2d 76 69 65 77 2d 66 61 63 65 0a 20 20 27 28 28 28 28 63 6c 61 73 73 20 63 etailed-view-face...'((((class.c
24600 6f 6c 6f 72 29 20 28 62 61 63 6b 67 72 6f 75 6e 64 20 6c 69 67 68 74 29 29 0a 20 20 20 20 20 3a olor).(background.light))......:
24620 62 61 63 6b 67 72 6f 75 6e 64 20 22 67 72 61 79 38 35 22 29 0a 20 20 20 20 28 28 28 63 6c 61 73 background."gray85").....(((clas
24640 73 20 63 6f 6c 6f 72 29 20 28 62 61 63 6b 67 72 6f 75 6e 64 20 64 61 72 6b 29 29 0a 20 20 20 20 s.color).(background.dark)).....
24660 20 3a 62 61 63 6b 67 72 6f 75 6e 64 20 22 67 72 61 79 32 35 22 29 0a 20 20 20 20 28 74 20 3a 69 .:background."gray25").....(t.:i
24680 6e 68 65 72 69 74 20 63 61 6c 69 62 72 65 64 62 2d 74 69 74 6c 65 2d 66 61 63 65 29 29 0a 20 20 nherit.calibredb-title-face))...
246a0 22 46 61 63 65 20 75 73 65 64 20 66 6f 72 20 74 69 74 6c 65 20 6f 6e 20 64 65 74 61 69 6c 65 64 "Face.used.for.title.on.detailed
246c0 20 76 69 65 77 2e 22 0a 20 20 3a 67 72 6f 75 70 20 27 63 61 6c 69 62 72 65 64 62 2d 66 61 63 65 .view."...:group.'calibredb-face
246e0 73 29 0a 0a 28 64 65 66 66 61 63 65 20 63 61 6c 69 62 72 65 64 62 2d 61 75 74 68 6f 72 2d 66 61 s)..(defface.calibredb-author-fa
24700 63 65 0a 20 20 27 28 28 28 28 63 6c 61 73 73 20 63 6f 6c 6f 72 29 20 28 62 61 63 6b 67 72 6f 75 ce...'((((class.color).(backgrou
24720 6e 64 20 6c 69 67 68 74 29 29 0a 20 20 20 20 20 3a 66 6f 72 65 67 72 6f 75 6e 64 20 22 23 33 42 nd.light))......:foreground."#3B
24740 36 45 41 38 22 29 0a 20 20 20 20 28 28 28 63 6c 61 73 73 20 63 6f 6c 6f 72 29 20 28 62 61 63 6b 6EA8").....(((class.color).(back
24760 67 72 6f 75 6e 64 20 64 61 72 6b 29 29 0a 20 20 20 20 20 3a 66 6f 72 65 67 72 6f 75 6e 64 20 22 ground.dark))......:foreground."
24780 23 64 39 63 36 64 36 22 29 0a 20 20 20 20 28 74 20 3a 69 6e 68 65 72 69 74 20 64 65 66 61 75 6c #d9c6d6").....(t.:inherit.defaul
247a0 74 29 29 0a 20 20 22 46 61 63 65 20 75 73 65 64 20 66 6f 72 20 61 75 74 68 6f 72 2e 22 0a 20 20 t))..."Face.used.for.author."...
247c0 3a 67 72 6f 75 70 20 27 63 61 6c 69 62 72 65 64 62 2d 66 61 63 65 73 29 0a 0a 28 64 65 66 66 61 :group.'calibredb-faces)..(deffa
247e0 63 65 20 63 61 6c 69 62 72 65 64 62 2d 66 6f 72 6d 61 74 2d 66 61 63 65 0a 20 20 27 28 28 28 28 ce.calibredb-format-face...'((((
24800 63 6c 61 73 73 20 63 6f 6c 6f 72 29 20 28 62 61 63 6b 67 72 6f 75 6e 64 20 6c 69 67 68 74 29 29 class.color).(background.light))
24820 0a 20 20 20 20 20 3a 66 6f 72 65 67 72 6f 75 6e 64 20 22 23 34 46 38 39 34 43 22 29 0a 20 20 20 ......:foreground."#4F894C")....
24840 20 28 28 28 63 6c 61 73 73 20 63 6f 6c 6f 72 29 20 28 62 61 63 6b 67 72 6f 75 6e 64 20 64 61 72 .(((class.color).(background.dar
24860 6b 29 29 0a 20 20 20 20 20 3a 66 6f 72 65 67 72 6f 75 6e 64 20 22 23 41 33 42 45 38 43 22 29 0a k))......:foreground."#A3BE8C").
24880 20 20 20 20 28 74 20 3a 69 6e 68 65 72 69 74 20 64 65 66 61 75 6c 74 29 29 0a 20 20 22 46 61 63 ....(t.:inherit.default))..."Fac
248a0 65 20 75 73 65 64 20 66 6f 72 20 66 6f 72 6d 61 74 2e 22 0a 20 20 3a 67 72 6f 75 70 20 27 63 61 e.used.for.format."...:group.'ca
248c0 6c 69 62 72 65 64 62 2d 66 61 63 65 73 29 0a 0a 28 64 65 66 66 61 63 65 20 63 61 6c 69 62 72 65 libredb-faces)..(defface.calibre
248e0 64 62 2d 63 6f 6d 6d 65 6e 74 2d 66 61 63 65 0a 20 20 27 28 28 28 28 63 6c 61 73 73 20 63 6f 6c db-comment-face...'((((class.col
24900 6f 72 29 20 28 62 61 63 6b 67 72 6f 75 6e 64 20 6c 69 67 68 74 29 29 0a 20 20 20 20 20 3a 66 6f or).(background.light))......:fo
24920 72 65 67 72 6f 75 6e 64 20 22 44 61 72 6b 43 79 61 6e 22 29 0a 20 20 20 20 28 28 28 63 6c 61 73 reground."DarkCyan").....(((clas
24940 73 20 63 6f 6c 6f 72 29 20 28 62 61 63 6b 67 72 6f 75 6e 64 20 64 61 72 6b 29 29 0a 20 20 20 20 s.color).(background.dark)).....
24960 20 3a 66 6f 72 65 67 72 6f 75 6e 64 20 22 23 38 46 42 43 42 42 22 29 0a 20 20 20 20 28 74 20 3a .:foreground."#8FBCBB").....(t.:
24980 69 6e 68 65 72 69 74 20 64 65 66 61 75 6c 74 29 29 0a 20 20 22 46 61 63 65 20 75 73 65 64 20 66 inherit.default))..."Face.used.f
249a0 6f 72 20 63 6f 6d 6d 65 6e 74 2e 22 0a 20 20 3a 67 72 6f 75 70 20 27 63 61 6c 69 62 72 65 64 62 or.comment."...:group.'calibredb
249c0 2d 66 61 63 65 73 29 0a 0a 28 64 65 66 66 61 63 65 20 63 61 6c 69 62 72 65 64 62 2d 74 61 67 2d -faces)..(defface.calibredb-tag-
249e0 66 61 63 65 0a 20 20 27 28 28 28 28 63 6c 61 73 73 20 63 6f 6c 6f 72 29 20 28 62 61 63 6b 67 72 face...'((((class.color).(backgr
24a00 6f 75 6e 64 20 6c 69 67 68 74 29 29 0a 20 20 20 20 20 3a 66 6f 72 65 67 72 6f 75 6e 64 20 22 23 ound.light))......:foreground."#
24a20 38 62 39 34 61 35 22 29 0a 20 20 20 20 28 28 28 63 6c 61 73 73 20 63 6f 6c 6f 72 29 20 28 62 61 8b94a5").....(((class.color).(ba
24a40 63 6b 67 72 6f 75 6e 64 20 64 61 72 6b 29 29 0a 20 20 20 20 20 3a 66 6f 72 65 67 72 6f 75 6e 64 ckground.dark))......:foreground
24a60 20 22 23 45 42 43 42 38 42 22 29 0a 20 20 20 20 28 74 20 3a 69 6e 68 65 72 69 74 20 64 65 66 61 ."#EBCB8B").....(t.:inherit.defa
24a80 75 6c 74 29 29 0a 20 20 22 46 61 63 65 20 75 73 65 64 20 66 6f 72 20 74 61 67 2e 22 0a 20 20 3a ult))..."Face.used.for.tag."...:
24aa0 67 72 6f 75 70 20 27 63 61 6c 69 62 72 65 64 62 2d 66 61 63 65 73 29 0a 0a 28 64 65 66 66 61 63 group.'calibredb-faces)..(deffac
24ac0 65 20 63 61 6c 69 62 72 65 64 62 2d 69 64 73 2d 66 61 63 65 0a 20 20 27 28 28 28 28 63 6c 61 73 e.calibredb-ids-face...'((((clas
24ae0 73 20 63 6f 6c 6f 72 29 20 28 62 61 63 6b 67 72 6f 75 6e 64 20 6c 69 67 68 74 29 29 0a 20 20 20 s.color).(background.light))....
24b00 20 20 3a 66 6f 72 65 67 72 6f 75 6e 64 20 22 23 38 62 39 34 61 35 22 29 0a 20 20 20 20 28 28 28 ..:foreground."#8b94a5").....(((
24b20 63 6c 61 73 73 20 63 6f 6c 6f 72 29 20 28 62 61 63 6b 67 72 6f 75 6e 64 20 64 61 72 6b 29 29 0a class.color).(background.dark)).
24b40 20 20 20 20 20 3a 66 6f 72 65 67 72 6f 75 6e 64 20 22 23 45 42 43 42 38 42 22 29 0a 20 20 20 20 .....:foreground."#EBCB8B").....
24b60 28 74 20 3a 69 6e 68 65 72 69 74 20 64 65 66 61 75 6c 74 29 29 0a 20 20 22 46 61 63 65 20 75 73 (t.:inherit.default))..."Face.us
24b80 65 64 20 66 6f 72 20 69 64 73 2e 22 0a 20 20 3a 67 72 6f 75 70 20 27 63 61 6c 69 62 72 65 64 62 ed.for.ids."...:group.'calibredb
24ba0 2d 66 61 63 65 73 29 0a 0a 28 64 65 66 66 61 63 65 20 63 61 6c 69 62 72 65 64 62 2d 73 69 7a 65 -faces)..(defface.calibredb-size
24bc0 2d 66 61 63 65 0a 20 20 27 28 28 28 28 63 6c 61 73 73 20 63 6f 6c 6f 72 29 20 28 62 61 63 6b 67 -face...'((((class.color).(backg
24be0 72 6f 75 6e 64 20 6c 69 67 68 74 29 29 0a 20 20 20 20 20 3a 66 6f 72 65 67 72 6f 75 6e 64 20 22 round.light))......:foreground."
24c00 23 38 62 39 34 61 35 22 29 0a 20 20 20 20 28 28 28 63 6c 61 73 73 20 63 6f 6c 6f 72 29 20 28 62 #8b94a5").....(((class.color).(b
24c20 61 63 6b 67 72 6f 75 6e 64 20 64 61 72 6b 29 29 0a 20 20 20 20 20 3a 66 6f 72 65 67 72 6f 75 6e ackground.dark))......:foregroun
24c40 64 20 22 23 36 66 37 37 38 37 22 29 0a 20 20 20 20 28 74 20 3a 69 6e 68 65 72 69 74 20 64 65 66 d."#6f7787").....(t.:inherit.def
24c60 61 75 6c 74 29 29 0a 20 20 22 46 61 63 65 20 75 73 65 64 20 66 6f 72 20 73 69 7a 65 2e 22 0a 20 ault))..."Face.used.for.size."..
24c80 20 3a 67 72 6f 75 70 20 27 63 61 6c 69 62 72 65 64 62 2d 66 61 63 65 73 29 0a 0a 28 64 65 66 66 .:group.'calibredb-faces)..(deff
24ca0 61 63 65 20 63 61 6c 69 62 72 65 64 62 2d 70 75 62 64 61 74 65 2d 66 61 63 65 20 27 28 28 74 20 ace.calibredb-pubdate-face.'((t.
24cc0 3a 69 6e 68 65 72 69 74 20 64 65 66 61 75 6c 74 29 29 0a 20 20 22 46 61 63 65 20 66 6f 72 20 74 :inherit.default))..."Face.for.t
24ce0 68 65 20 70 75 62 6c 69 73 68 20 64 61 74 65 2e 22 0a 20 20 3a 67 72 6f 75 70 20 27 63 61 6c 69 he.publish.date."...:group.'cali
24d00 62 72 65 64 62 2d 66 61 63 65 73 29 0a 0a 28 64 65 66 66 61 63 65 20 63 61 6c 69 62 72 65 64 62 bredb-faces)..(defface.calibredb
24d20 2d 70 75 62 6c 69 73 68 65 72 2d 66 61 63 65 20 27 28 28 74 20 3a 69 6e 68 65 72 69 74 20 64 65 -publisher-face.'((t.:inherit.de
24d40 66 61 75 6c 74 29 29 0a 20 20 22 46 61 63 65 20 66 6f 72 20 74 68 65 20 70 75 62 6c 69 73 68 65 fault))..."Face.for.the.publishe
24d60 72 2e 22 0a 20 20 3a 67 72 6f 75 70 20 27 63 61 6c 69 62 72 65 64 62 2d 66 61 63 65 73 29 0a 0a r."...:group.'calibredb-faces)..
24d80 28 64 65 66 66 61 63 65 20 63 61 6c 69 62 72 65 64 62 2d 73 65 72 69 65 73 2d 66 61 63 65 20 27 (defface.calibredb-series-face.'
24da0 28 28 74 20 3a 69 6e 68 65 72 69 74 20 64 65 66 61 75 6c 74 29 29 0a 20 20 22 46 61 63 65 20 66 ((t.:inherit.default))..."Face.f
24dc0 6f 72 20 74 68 65 20 73 65 72 69 65 73 2e 22 0a 20 20 3a 67 72 6f 75 70 20 27 63 61 6c 69 62 72 or.the.series."...:group.'calibr
24de0 65 64 62 2d 66 61 63 65 73 29 0a 0a 28 64 65 66 66 61 63 65 20 63 61 6c 69 62 72 65 64 62 2d 6c edb-faces)..(defface.calibredb-l
24e00 61 6e 67 75 61 67 65 2d 66 61 63 65 20 27 28 28 74 20 3a 69 6e 68 65 72 69 74 20 64 65 66 61 75 anguage-face.'((t.:inherit.defau
24e20 6c 74 29 29 0a 20 20 22 46 61 63 65 20 66 6f 72 20 74 68 65 20 6c 61 6e 67 75 61 67 65 2e 22 0a lt))..."Face.for.the.language.".
24e40 20 20 3a 67 72 6f 75 70 20 27 63 61 6c 69 62 72 65 64 62 2d 66 61 63 65 73 29 0a 0a 28 64 65 66 ..:group.'calibredb-faces)..(def
24e60 66 61 63 65 20 63 61 6c 69 62 72 65 64 62 2d 64 61 74 65 2d 66 61 63 65 0a 20 20 27 28 28 28 28 face.calibredb-date-face...'((((
24e80 63 6c 61 73 73 20 63 6f 6c 6f 72 29 20 28 62 61 63 6b 67 72 6f 75 6e 64 20 6c 69 67 68 74 29 29 class.color).(background.light))
24ea0 0a 20 20 20 20 20 3a 66 6f 72 65 67 72 6f 75 6e 64 20 22 23 32 39 38 33 38 44 22 29 0a 20 20 20 ......:foreground."#29838D")....
24ec0 20 28 28 28 63 6c 61 73 73 20 63 6f 6c 6f 72 29 20 28 62 61 63 6b 67 72 6f 75 6e 64 20 64 61 72 .(((class.color).(background.dar
24ee0 6b 29 29 0a 20 20 20 20 20 3a 66 6f 72 65 67 72 6f 75 6e 64 20 22 23 38 46 42 43 42 42 22 29 0a k))......:foreground."#8FBCBB").
24f00 20 20 20 20 28 74 20 3a 69 6e 68 65 72 69 74 20 64 65 66 61 75 6c 74 29 29 0a 20 20 22 46 61 63 ....(t.:inherit.default))..."Fac
24f20 65 20 66 6f 72 20 74 68 65 20 64 61 74 65 20 28 6c 61 73 74 5f 6d 6f 64 69 66 69 65 64 29 2e 22 e.for.the.date.(last_modified)."
24f40 0a 20 20 3a 67 72 6f 75 70 20 27 63 61 6c 69 62 72 65 64 62 2d 66 61 63 65 73 29 0a 0a 28 64 65 ...:group.'calibredb-faces)..(de
24f60 66 66 61 63 65 20 63 61 6c 69 62 72 65 64 62 2d 66 69 6c 65 2d 66 61 63 65 0a 20 20 27 28 28 28 fface.calibredb-file-face...'(((
24f80 28 63 6c 61 73 73 20 63 6f 6c 6f 72 29 20 28 62 61 63 6b 67 72 6f 75 6e 64 20 6c 69 67 68 74 29 (class.color).(background.light)
24fa0 29 0a 20 20 20 20 20 3a 66 6f 72 65 67 72 6f 75 6e 64 20 22 23 32 39 38 33 38 44 22 29 0a 20 20 )......:foreground."#29838D")...
24fc0 20 20 28 28 28 63 6c 61 73 73 20 63 6f 6c 6f 72 29 20 28 62 61 63 6b 67 72 6f 75 6e 64 20 64 61 ..(((class.color).(background.da
24fe0 72 6b 29 29 0a 20 20 20 20 20 3a 66 6f 72 65 67 72 6f 75 6e 64 20 22 23 38 46 42 43 42 42 22 29 rk))......:foreground."#8FBCBB")
25000 0a 20 20 20 20 28 74 20 3a 69 6e 68 65 72 69 74 20 64 65 66 61 75 6c 74 29 29 0a 20 20 22 46 61 .....(t.:inherit.default))..."Fa
25020 63 65 20 66 6f 72 20 74 68 65 20 66 69 6c 65 20 70 61 74 68 2e 22 0a 20 20 3a 67 72 6f 75 70 20 ce.for.the.file.path."...:group.
25040 27 63 61 6c 69 62 72 65 64 62 2d 66 61 63 65 73 29 0a 0a 28 64 65 66 66 61 63 65 20 63 61 6c 69 'calibredb-faces)..(defface.cali
25060 62 72 65 64 62 2d 6d 61 72 6b 2d 66 61 63 65 20 27 28 28 74 20 3a 69 6e 68 65 72 69 74 20 68 69 bredb-mark-face.'((t.:inherit.hi
25080 67 68 6c 69 67 68 74 29 29 0a 20 20 22 46 61 63 65 20 66 6f 72 20 74 68 65 20 6d 61 72 6b 20 63 ghlight))..."Face.for.the.mark.c
250a0 61 6e 64 69 64 61 74 65 2e 22 0a 20 20 3a 67 72 6f 75 70 20 27 63 61 6c 69 62 72 65 64 62 2d 66 andidate."...:group.'calibredb-f
250c0 61 63 65 73 29 0a 0a 28 64 65 66 66 61 63 65 20 63 61 6c 69 62 72 65 64 62 2d 66 61 76 6f 72 69 aces)..(defface.calibredb-favori
250e0 74 65 2d 66 61 63 65 0a 20 20 27 28 28 28 28 63 6c 61 73 73 20 63 6f 6c 6f 72 29 20 28 62 61 63 te-face...'((((class.color).(bac
25100 6b 67 72 6f 75 6e 64 20 6c 69 67 68 74 29 29 0a 20 20 20 20 20 3a 66 6f 72 65 67 72 6f 75 6e 64 kground.light))......:foreground
25120 20 22 62 6c 61 63 6b 22 29 0a 20 20 20 20 28 28 28 63 6c 61 73 73 20 63 6f 6c 6f 72 29 20 28 62 ."black").....(((class.color).(b
25140 61 63 6b 67 72 6f 75 6e 64 20 64 61 72 6b 29 29 0a 20 20 20 20 20 3a 66 6f 72 65 67 72 6f 75 6e ackground.dark))......:foregroun
25160 64 20 22 79 65 6c 6c 6f 77 22 29 0a 20 20 20 20 28 74 20 3a 69 6e 68 65 72 69 74 20 64 65 66 61 d."yellow").....(t.:inherit.defa
25180 75 6c 74 29 29 0a 20 20 22 46 61 63 65 20 75 73 65 64 20 66 6f 72 20 74 69 74 6c 65 2e 22 0a 20 ult))..."Face.used.for.title."..
251a0 20 3a 67 72 6f 75 70 20 27 63 61 6c 69 62 72 65 64 62 2d 66 61 63 65 73 29 0a 0a 28 64 65 66 66 .:group.'calibredb-faces)..(deff
251c0 61 63 65 20 63 61 6c 69 62 72 65 64 62 2d 68 69 67 68 6c 69 67 68 74 2d 66 61 63 65 0a 20 20 27 ace.calibredb-highlight-face...'
251e0 28 28 28 28 63 6c 61 73 73 20 63 6f 6c 6f 72 29 20 28 62 61 63 6b 67 72 6f 75 6e 64 20 6c 69 67 ((((class.color).(background.lig
25200 68 74 29 29 0a 20 20 20 20 20 3a 66 6f 72 65 67 72 6f 75 6e 64 20 22 4d 65 64 69 75 6d 53 6c 61 ht))......:foreground."MediumSla
25220 74 65 42 6c 75 65 22 0a 20 20 20 20 20 3a 77 65 69 67 68 74 20 62 6f 6c 64 29 0a 20 20 20 20 28 teBlue"......:weight.bold).....(
25240 28 28 63 6c 61 73 73 20 63 6f 6c 6f 72 29 20 28 62 61 63 6b 67 72 6f 75 6e 64 20 64 61 72 6b 29 ((class.color).(background.dark)
25260 29 0a 20 20 20 20 20 3a 66 6f 72 65 67 72 6f 75 6e 64 20 22 63 79 61 6e 22 0a 20 20 20 20 20 3a )......:foreground."cyan"......:
25280 77 65 69 67 68 74 20 62 6f 6c 64 29 0a 20 20 20 20 28 74 20 3a 69 6e 68 65 72 69 74 20 64 65 66 weight.bold).....(t.:inherit.def
252a0 61 75 6c 74 29 29 0a 20 20 22 46 61 63 65 20 75 73 65 64 20 66 6f 72 20 68 69 67 68 74 6c 69 67 ault))..."Face.used.for.hightlig
252c0 68 74 2e 22 0a 20 20 3a 67 72 6f 75 70 20 27 63 61 6c 69 62 72 65 64 62 2d 66 61 63 65 73 29 0a ht."...:group.'calibredb-faces).
252e0 0a 28 64 65 66 66 61 63 65 20 63 61 6c 69 62 72 65 64 62 2d 61 72 63 68 69 76 65 2d 66 61 63 65 .(defface.calibredb-archive-face
25300 0a 20 20 27 28 28 28 28 63 6c 61 73 73 20 63 6f 6c 6f 72 29 20 28 62 61 63 6b 67 72 6f 75 6e 64 ...'((((class.color).(background
25320 20 6c 69 67 68 74 29 29 0a 20 20 20 20 20 3a 66 6f 72 65 67 72 6f 75 6e 64 20 22 67 72 65 79 22 .light))......:foreground."grey"
25340 0a 20 20 20 20 20 3a 77 65 69 67 68 74 20 6c 69 67 68 74 29 0a 20 20 20 20 28 28 28 63 6c 61 73 ......:weight.light).....(((clas
25360 73 20 63 6f 6c 6f 72 29 20 28 62 61 63 6b 67 72 6f 75 6e 64 20 64 61 72 6b 29 29 0a 20 20 20 20 s.color).(background.dark)).....
25380 20 3a 66 6f 72 65 67 72 6f 75 6e 64 20 22 64 69 6d 20 67 72 65 79 22 0a 20 20 20 20 20 3a 77 65 .:foreground."dim.grey"......:we
253a0 69 67 68 74 20 6c 69 67 68 74 29 0a 20 20 20 20 28 74 20 3a 69 6e 68 65 72 69 74 20 64 65 66 61 ight.light).....(t.:inherit.defa
253c0 75 6c 74 29 29 0a 20 20 22 46 61 63 65 20 75 73 65 64 20 66 6f 72 20 61 72 63 68 69 76 65 2e 22 ult))..."Face.used.for.archive."
253e0 0a 20 20 3a 67 72 6f 75 70 20 27 63 61 6c 69 62 72 65 64 62 2d 66 61 63 65 73 29 0a 0a 28 64 65 ...:group.'calibredb-faces)..(de
25400 66 66 61 63 65 20 63 61 6c 69 62 72 65 64 62 2d 73 65 61 72 63 68 2d 68 65 61 64 65 72 2d 6c 69 fface.calibredb-search-header-li
25420 62 72 61 72 79 2d 6e 61 6d 65 2d 66 61 63 65 20 27 28 28 74 20 3a 69 6e 68 65 72 69 74 20 66 6f brary-name-face.'((t.:inherit.fo
25440 6e 74 2d 6c 6f 63 6b 2d 70 72 65 70 72 6f 63 65 73 73 6f 72 2d 66 61 63 65 29 29 0a 20 20 22 46 nt-lock-preprocessor-face))..."F
25460 61 63 65 20 75 73 65 64 20 66 6f 72 20 6c 69 62 72 61 72 79 20 6e 61 6d 65 20 69 6e 20 2a 63 61 ace.used.for.library.name.in.*ca
25480 6c 69 62 72 65 64 62 2d 73 65 61 72 63 68 2a 20 68 65 61 64 65 72 2e 22 0a 20 20 3a 67 72 6f 75 libredb-search*.header."...:grou
254a0 70 20 27 63 61 6c 69 62 72 65 64 62 2d 66 61 63 65 73 29 0a 0a 28 64 65 66 66 61 63 65 20 63 61 p.'calibredb-faces)..(defface.ca
254c0 6c 69 62 72 65 64 62 2d 73 65 61 72 63 68 2d 68 65 61 64 65 72 2d 6c 69 62 72 61 72 79 2d 70 61 libredb-search-header-library-pa
254e0 74 68 2d 66 61 63 65 20 27 28 28 74 20 3a 69 6e 68 65 72 69 74 20 66 6f 6e 74 2d 6c 6f 63 6b 2d th-face.'((t.:inherit.font-lock-
25500 74 79 70 65 2d 66 61 63 65 29 29 0a 20 20 22 46 61 63 65 20 75 73 65 64 20 66 6f 72 20 6c 69 62 type-face))..."Face.used.for.lib
25520 72 61 72 79 20 70 61 74 68 20 69 6e 20 2a 63 61 6c 69 62 72 65 64 62 2d 73 65 61 72 63 68 2a 20 rary.path.in.*calibredb-search*.
25540 68 65 61 64 65 72 2e 22 0a 20 20 3a 67 72 6f 75 70 20 27 63 61 6c 69 62 72 65 64 62 2d 66 61 63 header."...:group.'calibredb-fac
25560 65 73 29 0a 0a 28 64 65 66 66 61 63 65 20 63 61 6c 69 62 72 65 64 62 2d 73 65 61 72 63 68 2d 68 es)..(defface.calibredb-search-h
25580 65 61 64 65 72 2d 74 6f 74 61 6c 2d 66 61 63 65 20 27 28 28 74 20 3a 69 6e 68 65 72 69 74 20 66 eader-total-face.'((t.:inherit.f
255a0 6f 6e 74 2d 6c 6f 63 6b 2d 77 61 72 6e 69 6e 67 2d 66 61 63 65 29 29 0a 20 20 22 46 61 63 65 20 ont-lock-warning-face))..."Face.
255c0 75 73 65 64 20 66 6f 72 20 74 6f 74 61 6c 20 63 6f 75 6e 74 20 69 6e 20 2a 63 61 6c 69 62 72 65 used.for.total.count.in.*calibre
255e0 64 62 2d 73 65 61 72 63 68 2a 20 68 65 61 64 65 72 2e 22 0a 20 20 3a 67 72 6f 75 70 20 27 63 61 db-search*.header."...:group.'ca
25600 6c 69 62 72 65 64 62 2d 66 61 63 65 73 29 0a 0a 28 64 65 66 66 61 63 65 20 63 61 6c 69 62 72 65 libredb-faces)..(defface.calibre
25620 64 62 2d 73 65 61 72 63 68 2d 68 65 61 64 65 72 2d 73 6f 72 74 2d 66 61 63 65 20 27 28 28 74 20 db-search-header-sort-face.'((t.
25640 3a 69 6e 68 65 72 69 74 20 66 6f 6e 74 2d 6c 6f 63 6b 2d 6b 65 79 77 6f 72 64 2d 66 61 63 65 29 :inherit.font-lock-keyword-face)
25660 29 0a 20 20 22 46 61 63 65 20 75 73 65 64 20 66 6f 72 20 73 6f 72 74 20 66 69 65 6c 64 20 69 6e )..."Face.used.for.sort.field.in
25680 20 2a 63 61 6c 69 62 72 65 64 62 2d 73 65 61 72 63 68 2a 20 68 65 61 64 65 72 2e 22 0a 20 20 3a .*calibredb-search*.header."...:
256a0 67 72 6f 75 70 20 27 63 61 6c 69 62 72 65 64 62 2d 66 61 63 65 73 29 0a 0a 28 64 65 66 66 61 63 group.'calibredb-faces)..(deffac
256c0 65 20 63 61 6c 69 62 72 65 64 62 2d 73 65 61 72 63 68 2d 68 65 61 64 65 72 2d 66 69 6c 74 65 72 e.calibredb-search-header-filter
256e0 2d 66 61 63 65 20 27 28 28 74 20 3a 69 6e 68 65 72 69 74 20 66 6f 6e 74 2d 6c 6f 63 6b 2d 6e 65 -face.'((t.:inherit.font-lock-ne
25700 67 61 74 69 6f 6e 2d 63 68 61 72 2d 66 61 63 65 29 29 0a 20 20 22 46 61 63 65 20 75 73 65 64 20 gation-char-face))..."Face.used.
25720 66 6f 72 20 66 69 6c 74 65 72 20 66 69 65 6c 64 20 69 6e 20 2a 63 61 6c 69 62 72 65 64 62 2d 73 for.filter.field.in.*calibredb-s
25740 65 61 72 63 68 2a 20 68 65 61 64 65 72 2e 22 0a 20 20 3a 67 72 6f 75 70 20 27 63 61 6c 69 62 72 earch*.header."...:group.'calibr
25760 65 64 62 2d 66 61 63 65 73 29 0a 0a 28 64 65 66 66 61 63 65 20 63 61 6c 69 62 72 65 64 62 2d 6d edb-faces)..(defface.calibredb-m
25780 6f 75 73 65 2d 66 61 63 65 20 27 28 28 74 20 3a 69 6e 68 65 72 69 74 20 6d 6f 64 65 2d 6c 69 6e ouse-face.'((t.:inherit.mode-lin
257a0 65 2d 68 69 67 68 6c 69 67 68 74 29 29 0a 20 20 22 46 61 63 65 20 75 73 65 64 20 66 6f 72 20 2a e-highlight))..."Face.used.for.*
257c0 63 61 6c 69 62 72 65 64 62 2d 73 65 61 72 63 68 2a 20 6d 6f 75 73 65 20 66 61 63 65 2e 22 0a 20 calibredb-search*.mouse.face."..
257e0 20 3a 67 72 6f 75 70 20 27 63 61 6c 69 62 72 65 64 62 2d 66 61 63 65 73 29 0a 0a 28 64 65 66 66 .:group.'calibredb-faces)..(deff
25800 61 63 65 20 63 61 6c 69 62 72 65 64 62 2d 65 64 69 74 2d 61 6e 6e 6f 74 61 74 69 6f 6e 2d 68 65 ace.calibredb-edit-annotation-he
25820 61 64 65 72 2d 74 69 74 6c 65 2d 66 61 63 65 0a 20 20 27 28 28 28 28 63 6c 61 73 73 20 63 6f 6c ader-title-face...'((((class.col
25840 6f 72 29 20 28 62 61 63 6b 67 72 6f 75 6e 64 20 6c 69 67 68 74 29 29 0a 20 20 20 20 20 3a 66 6f or).(background.light))......:fo
25860 72 65 67 72 6f 75 6e 64 20 22 23 34 46 38 39 34 43 22 29 0a 20 20 20 20 28 28 28 63 6c 61 73 73 reground."#4F894C").....(((class
25880 20 63 6f 6c 6f 72 29 20 28 62 61 63 6b 67 72 6f 75 6e 64 20 64 61 72 6b 29 29 0a 20 20 20 20 20 .color).(background.dark))......
258a0 3a 66 6f 72 65 67 72 6f 75 6e 64 20 22 23 41 33 42 45 38 43 22 29 0a 20 20 20 20 28 74 20 3a 69 :foreground."#A3BE8C").....(t.:i
258c0 6e 68 65 72 69 74 20 64 65 66 61 75 6c 74 29 29 0a 20 20 22 46 61 63 65 20 75 73 65 64 20 66 6f nherit.default))..."Face.used.fo
258e0 72 20 2a 63 61 6c 69 62 72 65 64 62 2d 65 64 69 74 2d 61 6e 6e 6f 74 61 74 69 6f 6e 2a 20 68 65 r.*calibredb-edit-annotation*.he
25900 61 64 65 72 20 74 69 74 6c 65 20 66 61 63 65 2e 22 0a 20 20 3a 67 72 6f 75 70 20 27 63 61 6c 69 ader.title.face."...:group.'cali
25920 62 72 65 64 62 2d 66 61 63 65 73 29 0a 0a 28 70 72 6f 76 69 64 65 20 27 63 61 6c 69 62 72 65 64 bredb-faces)..(provide.'calibred
25940 62 2d 66 61 63 65 73 29 0a 0a 3b 3b 3b 20 63 61 6c 69 62 72 65 64 62 2d 66 61 63 65 73 2e 65 6c b-faces)..;;;.calibredb-faces.el
25960 20 65 6e 64 73 20 68 65 72 65 0a 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 .ends.here......................
25980 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
259a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
259c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
259e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
25a00 63 61 6c 69 62 72 65 64 62 2d 32 30 32 34 30 33 33 31 2e 34 30 39 2f 63 61 6c 69 62 72 65 64 62 calibredb-20240331.409/calibredb
25a20 2d 75 74 69 6c 73 2e 65 6c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -utils.el.......................
25a40 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
25a60 00 00 00 00 30 30 30 30 36 34 34 00 30 30 30 30 30 30 30 00 30 30 30 30 30 30 30 00 30 30 30 30 ....0000644.0000000.0000000.0000
25a80 30 31 35 34 31 37 35 00 30 30 30 30 30 30 30 30 30 30 30 00 30 31 36 32 33 37 00 20 30 00 00 00 0154175.00000000000.016237..0...
25aa0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
25ac0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
25ae0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
25b00 00 75 73 74 61 72 20 20 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 .ustar...root...................
25b20 00 00 00 00 00 00 00 00 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 .........root...................
25b40 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
25b60 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
25b80 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
25ba0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
25bc0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
25be0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
25c00 3b 3b 3b 20 63 61 6c 69 62 72 65 64 62 2d 75 74 69 6c 73 2e 65 6c 20 2d 2d 2d 20 55 74 69 6c 73 ;;;.calibredb-utils.el.---.Utils
25c20 20 66 6f 72 20 63 61 6c 69 62 72 65 64 62 20 2d 2a 2d 20 6c 65 78 69 63 61 6c 2d 62 69 6e 64 69 .for.calibredb.-*-.lexical-bindi
25c40 6e 67 3a 20 74 3b 20 2d 2a 2d 0a 0a 3b 3b 20 43 6f 70 79 72 69 67 68 74 20 28 43 29 20 32 30 32 ng:.t;.-*-..;;.Copyright.(C).202
25c60 30 20 44 61 6d 6f 6e 20 43 68 61 6e 0a 0a 3b 3b 20 41 75 74 68 6f 72 3a 20 44 61 6d 6f 6e 20 43 0.Damon.Chan..;;.Author:.Damon.C
25c80 68 61 6e 20 3c 65 6c 65 63 6d 69 6e 67 40 67 6d 61 69 6c 2e 63 6f 6d 3e 0a 3b 3b 20 55 52 4c 3a han.<elecming@gmail.com>.;;.URL:
25ca0 20 68 74 74 70 73 3a 2f 2f 67 69 74 68 75 62 2e 63 6f 6d 2f 63 68 65 6e 79 61 6e 6d 69 6e 67 2f .https://github.com/chenyanming/
25cc0 63 61 6c 69 62 72 65 64 62 2e 65 6c 0a 3b 3b 20 4b 65 79 77 6f 72 64 73 3a 20 74 6f 6f 6c 73 0a calibredb.el.;;.Keywords:.tools.
25ce0 3b 3b 20 56 65 72 73 69 6f 6e 3a 20 32 2e 31 32 2e 30 0a 0a 3b 3b 20 54 68 69 73 20 66 69 6c 65 ;;.Version:.2.12.0..;;.This.file
25d00 20 69 73 20 4e 4f 54 20 70 61 72 74 20 6f 66 20 47 4e 55 20 45 6d 61 63 73 2e 0a 0a 3b 3b 20 54 .is.NOT.part.of.GNU.Emacs...;;.T
25d20 68 69 73 20 70 72 6f 67 72 61 6d 20 69 73 20 66 72 65 65 20 73 6f 66 74 77 61 72 65 3b 20 79 6f his.program.is.free.software;.yo
25d40 75 20 63 61 6e 20 72 65 64 69 73 74 72 69 62 75 74 65 20 69 74 20 61 6e 64 2f 6f 72 20 6d 6f 64 u.can.redistribute.it.and/or.mod
25d60 69 66 79 0a 3b 3b 20 69 74 20 75 6e 64 65 72 20 74 68 65 20 74 65 72 6d 73 20 6f 66 20 74 68 65 ify.;;.it.under.the.terms.of.the
25d80 20 47 4e 55 20 47 65 6e 65 72 61 6c 20 50 75 62 6c 69 63 20 4c 69 63 65 6e 73 65 20 61 73 20 70 .GNU.General.Public.License.as.p
25da0 75 62 6c 69 73 68 65 64 20 62 79 0a 3b 3b 20 74 68 65 20 46 72 65 65 20 53 6f 66 74 77 61 72 65 ublished.by.;;.the.Free.Software
25dc0 20 46 6f 75 6e 64 61 74 69 6f 6e 2c 20 65 69 74 68 65 72 20 76 65 72 73 69 6f 6e 20 33 20 6f 66 .Foundation,.either.version.3.of
25de0 20 74 68 65 20 4c 69 63 65 6e 73 65 2c 20 6f 72 0a 3b 3b 20 28 61 74 20 79 6f 75 72 20 6f 70 74 .the.License,.or.;;.(at.your.opt
25e00 69 6f 6e 29 20 61 6e 79 20 6c 61 74 65 72 20 76 65 72 73 69 6f 6e 2e 0a 0a 3b 3b 20 54 68 69 73 ion).any.later.version...;;.This
25e20 20 70 72 6f 67 72 61 6d 20 69 73 20 64 69 73 74 72 69 62 75 74 65 64 20 69 6e 20 74 68 65 20 68 .program.is.distributed.in.the.h
25e40 6f 70 65 20 74 68 61 74 20 69 74 20 77 69 6c 6c 20 62 65 20 75 73 65 66 75 6c 2c 0a 3b 3b 20 62 ope.that.it.will.be.useful,.;;.b
25e60 75 74 20 57 49 54 48 4f 55 54 20 41 4e 59 20 57 41 52 52 41 4e 54 59 3b 20 77 69 74 68 6f 75 74 ut.WITHOUT.ANY.WARRANTY;.without
25e80 20 65 76 65 6e 20 74 68 65 20 69 6d 70 6c 69 65 64 20 77 61 72 72 61 6e 74 79 20 6f 66 0a 3b 3b .even.the.implied.warranty.of.;;
25ea0 20 4d 45 52 43 48 41 4e 54 41 42 49 4c 49 54 59 20 6f 72 20 46 49 54 4e 45 53 53 20 46 4f 52 20 .MERCHANTABILITY.or.FITNESS.FOR.
25ec0 41 20 50 41 52 54 49 43 55 4c 41 52 20 50 55 52 50 4f 53 45 2e 20 20 53 65 65 20 74 68 65 0a 3b A.PARTICULAR.PURPOSE...See.the.;
25ee0 3b 20 47 4e 55 20 47 65 6e 65 72 61 6c 20 50 75 62 6c 69 63 20 4c 69 63 65 6e 73 65 20 66 6f 72 ;.GNU.General.Public.License.for
25f00 20 6d 6f 72 65 20 64 65 74 61 69 6c 73 2e 0a 0a 3b 3b 20 59 6f 75 20 73 68 6f 75 6c 64 20 68 61 .more.details...;;.You.should.ha
25f20 76 65 20 72 65 63 65 69 76 65 64 20 61 20 63 6f 70 79 20 6f 66 20 74 68 65 20 47 4e 55 20 47 65 ve.received.a.copy.of.the.GNU.Ge
25f40 6e 65 72 61 6c 20 50 75 62 6c 69 63 20 4c 69 63 65 6e 73 65 0a 3b 3b 20 61 6c 6f 6e 67 20 77 69 neral.Public.License.;;.along.wi
25f60 74 68 20 74 68 69 73 20 70 72 6f 67 72 61 6d 2e 20 20 49 66 20 6e 6f 74 2c 20 73 65 65 20 3c 68 th.this.program...If.not,.see.<h
25f80 74 74 70 73 3a 2f 2f 77 77 77 2e 67 6e 75 2e 6f 72 67 2f 6c 69 63 65 6e 73 65 73 2f 3e 2e 0a 0a ttps://www.gnu.org/licenses/>...
25fa0 3b 3b 3b 20 43 6f 6d 6d 65 6e 74 61 72 79 3a 0a 0a 3b 3b 3b 20 43 6f 64 65 3a 0a 0a 28 72 65 71 ;;;.Commentary:..;;;.Code:..(req
25fc0 75 69 72 65 20 27 63 61 6c 69 62 72 65 64 62 2d 63 6f 72 65 29 0a 28 72 65 71 75 69 72 65 20 27 uire.'calibredb-core).(require.'
25fe0 63 61 6c 69 62 72 65 64 62 2d 73 65 61 72 63 68 29 0a 28 72 65 71 75 69 72 65 20 27 63 61 6c 69 calibredb-search).(require.'cali
26000 62 72 65 64 62 2d 66 61 63 65 73 29 0a 28 72 65 71 75 69 72 65 20 27 63 61 6c 69 62 72 65 64 62 bredb-faces).(require.'calibredb
26020 2d 73 68 6f 77 29 0a 28 72 65 71 75 69 72 65 20 27 63 61 6c 69 62 72 65 64 62 2d 74 72 61 6e 73 -show).(require.'calibredb-trans
26040 69 65 6e 74 29 0a 28 72 65 71 75 69 72 65 20 27 63 61 6c 69 62 72 65 64 62 2d 61 6e 6e 6f 74 61 ient).(require.'calibredb-annota
26060 74 69 6f 6e 29 0a 0a 28 65 76 61 6c 2d 77 68 65 6e 2d 63 6f 6d 70 69 6c 65 20 28 64 65 66 76 61 tion)..(eval-when-compile.(defva
26080 72 20 63 61 6c 69 62 72 65 64 62 2d 73 65 61 72 63 68 2d 65 6e 74 72 69 65 73 29 29 0a 28 65 76 r.calibredb-search-entries)).(ev
260a0 61 6c 2d 77 68 65 6e 2d 63 6f 6d 70 69 6c 65 20 28 64 65 66 76 61 72 20 63 61 6c 69 62 72 65 64 al-when-compile.(defvar.calibred
260c0 62 2d 66 75 6c 6c 2d 65 6e 74 72 69 65 73 29 29 0a 28 65 76 61 6c 2d 77 68 65 6e 2d 63 6f 6d 70 b-full-entries)).(eval-when-comp
260e0 69 6c 65 20 28 64 65 66 76 61 72 20 63 61 6c 69 62 72 65 64 62 2d 69 6d 61 67 65 73 2d 70 61 74 ile.(defvar.calibredb-images-pat
26100 68 29 29 0a 28 65 76 61 6c 2d 77 68 65 6e 2d 63 6f 6d 70 69 6c 65 20 28 64 65 66 76 61 72 20 63 h)).(eval-when-compile.(defvar.c
26120 61 6c 69 62 72 65 64 62 2d 6f 70 64 73 2d 64 6f 77 6e 6c 6f 61 64 2d 64 69 72 29 29 0a 0a 0a 28 alibredb-opds-download-dir))...(
26140 64 65 63 6c 61 72 65 2d 66 75 6e 63 74 69 6f 6e 20 63 61 6c 69 62 72 65 64 62 2d 73 65 61 72 63 declare-function.calibredb-searc
26160 68 2d 62 75 66 66 65 72 20 22 63 61 6c 69 62 72 65 64 62 2d 73 65 61 72 63 68 2e 65 6c 22 29 0a h-buffer."calibredb-search.el").
26180 28 64 65 63 6c 61 72 65 2d 66 75 6e 63 74 69 6f 6e 20 63 61 6c 69 62 72 65 64 62 2d 64 65 74 61 (declare-function.calibredb-deta
261a0 69 6c 65 64 2d 76 69 65 77 2d 69 6e 73 65 72 74 2d 69 6d 61 67 65 20 22 63 61 6c 69 62 72 65 64 iled-view-insert-image."calibred
261c0 62 2d 75 74 69 6c 73 2e 65 6c 22 29 0a 28 64 65 63 6c 61 72 65 2d 66 75 6e 63 74 69 6f 6e 20 63 b-utils.el").(declare-function.c
261e0 61 6c 69 62 72 65 64 62 2d 73 65 61 72 63 68 2d 6d 6f 64 65 20 22 63 61 6c 69 62 72 65 64 62 2d alibredb-search-mode."calibredb-
26200 73 65 61 72 63 68 2e 65 6c 22 29 0a 28 64 65 63 6c 61 72 65 2d 66 75 6e 63 74 69 6f 6e 20 63 61 search.el").(declare-function.ca
26220 6c 69 62 72 65 64 62 2d 73 65 61 72 63 68 2d 2d 62 75 66 66 65 72 2d 6e 61 6d 65 20 22 63 61 6c libredb-search--buffer-name."cal
26240 69 62 72 65 64 62 2d 73 65 61 72 63 68 2e 65 6c 22 29 0a 28 64 65 63 6c 61 72 65 2d 66 75 6e 63 ibredb-search.el").(declare-func
26260 74 69 6f 6e 20 63 61 6c 69 62 72 65 64 62 2d 63 6f 75 6e 73 65 6c 2d 61 64 64 2d 66 69 6c 65 2d tion.calibredb-counsel-add-file-
26280 61 63 74 69 6f 6e 20 22 63 61 6c 69 62 72 65 64 62 2d 69 76 79 2e 65 6c 22 29 0a 28 64 65 63 6c action."calibredb-ivy.el").(decl
262a0 61 72 65 2d 66 75 6e 63 74 69 6f 6e 20 63 61 6c 69 62 72 65 64 62 2d 73 65 61 72 63 68 2d 72 65 are-function.calibredb-search-re
262c0 66 72 65 73 68 2d 6f 72 2d 72 65 73 75 6d 65 20 22 63 61 6c 69 62 72 65 64 62 2d 73 65 61 72 63 fresh-or-resume."calibredb-searc
262e0 68 2e 65 6c 22 29 0a 28 64 65 63 6c 61 72 65 2d 66 75 6e 63 74 69 6f 6e 20 63 61 6c 69 62 72 65 h.el").(declare-function.calibre
26300 64 62 2d 73 68 6f 77 2d 2d 62 75 66 66 65 72 2d 6e 61 6d 65 20 22 63 61 6c 69 62 72 65 64 62 2d db-show--buffer-name."calibredb-
26320 73 68 6f 77 2e 65 6c 22 29 0a 28 64 65 63 6c 61 72 65 2d 66 75 6e 63 74 69 6f 6e 20 63 61 6c 69 show.el").(declare-function.cali
26340 62 72 65 64 62 2d 73 65 61 72 63 68 2d 72 65 66 72 65 73 68 20 22 63 61 6c 69 62 72 65 64 62 2d bredb-search-refresh."calibredb-
26360 73 65 61 72 63 68 2e 65 6c 22 29 0a 28 64 65 63 6c 61 72 65 2d 66 75 6e 63 74 69 6f 6e 20 63 61 search.el").(declare-function.ca
26380 6c 69 62 72 65 64 62 2d 73 68 6f 77 2d 72 65 66 72 65 73 68 20 22 63 61 6c 69 62 72 65 64 62 2d libredb-show-refresh."calibredb-
263a0 73 68 6f 77 2e 65 6c 22 29 0a 28 64 65 63 6c 61 72 65 2d 66 75 6e 63 74 69 6f 6e 20 63 61 6c 69 show.el").(declare-function.cali
263c0 62 72 65 64 62 2d 73 65 74 2d 6d 65 74 61 64 61 74 61 2d 61 72 67 75 6d 65 6e 74 73 20 22 63 61 bredb-set-metadata-arguments."ca
263e0 6c 69 62 72 65 64 62 2d 74 72 61 6e 73 69 65 6e 74 2e 65 6c 22 29 0a 28 64 65 63 6c 61 72 65 2d libredb-transient.el").(declare-
26400 66 75 6e 63 74 69 6f 6e 20 63 61 6c 69 62 72 65 64 62 2d 65 78 70 6f 72 74 2d 61 72 67 75 6d 65 function.calibredb-export-argume
26420 6e 74 73 20 22 63 61 6c 69 62 72 65 64 62 2d 74 72 61 6e 73 69 65 6e 74 2e 65 6c 22 29 0a 28 64 nts."calibredb-transient.el").(d
26440 65 63 6c 61 72 65 2d 66 75 6e 63 74 69 6f 6e 20 63 61 6c 69 62 72 65 64 62 2d 63 61 74 61 6c 6f eclare-function.calibredb-catalo
26460 67 2d 62 69 62 2d 61 72 67 75 6d 65 6e 74 73 20 22 63 61 6c 69 62 72 65 64 62 2d 74 72 61 6e 73 g-bib-arguments."calibredb-trans
26480 69 65 6e 74 2e 65 6c 22 29 0a 28 64 65 63 6c 61 72 65 2d 66 75 6e 63 74 69 6f 6e 20 63 61 6c 69 ient.el").(declare-function.cali
264a0 62 72 65 64 62 2d 6f 70 64 73 2d 64 6f 77 6e 6c 6f 61 64 20 22 63 61 6c 69 62 72 65 64 62 2d 6f bredb-opds-download."calibredb-o
264c0 70 64 73 2e 65 6c 22 29 0a 28 64 65 63 6c 61 72 65 2d 66 75 6e 63 74 69 6f 6e 20 63 61 6c 69 62 pds.el").(declare-function.calib
264e0 72 65 64 62 2d 6f 70 64 73 2d 72 65 71 75 65 73 74 2d 70 61 67 65 20 22 63 61 6c 69 62 72 65 64 redb-opds-request-page."calibred
26500 62 2d 6f 70 64 73 2e 65 6c 22 29 0a 28 64 65 63 6c 61 72 65 2d 66 75 6e 63 74 69 6f 6e 20 63 61 b-opds.el").(declare-function.ca
26520 6c 69 62 72 65 64 62 2d 6f 70 64 73 2d 73 65 61 72 63 68 20 22 63 61 6c 69 62 72 65 64 62 2d 6f libredb-opds-search."calibredb-o
26540 70 64 73 2e 65 6c 22 29 0a 28 64 65 63 6c 61 72 65 2d 66 75 6e 63 74 69 6f 6e 20 63 61 6c 69 62 pds.el").(declare-function.calib
26560 72 65 64 62 2d 6f 70 64 73 2d 6d 61 69 6c 63 61 70 2d 6d 69 6d 65 2d 74 6f 2d 65 78 74 6e 20 22 redb-opds-mailcap-mime-to-extn."
26580 63 61 6c 69 62 72 65 64 62 2d 6f 70 64 73 2e 65 6c 22 29 0a 28 64 65 63 6c 61 72 65 2d 66 75 6e calibredb-opds.el").(declare-fun
265a0 63 74 69 6f 6e 20 70 64 66 2d 69 6e 66 6f 2d 73 65 61 72 63 68 2d 73 74 72 69 6e 67 20 22 70 64 ction.pdf-info-search-string."pd
265c0 66 2d 69 6e 66 6f 22 29 0a 28 64 65 63 6c 61 72 65 2d 66 75 6e 63 74 69 6f 6e 20 70 64 66 2d 69 f-info").(declare-function.pdf-i
265e0 6e 66 6f 2d 67 65 74 74 65 78 74 20 22 70 64 66 2d 69 6e 66 6f 22 29 0a 28 64 65 63 6c 61 72 65 nfo-gettext."pdf-info").(declare
26600 2d 66 75 6e 63 74 69 6f 6e 20 64 6a 76 75 2d 66 69 6e 64 2d 66 69 6c 65 20 22 64 6a 76 75 22 29 -function.djvu-find-file."djvu")
26620 0a 28 64 65 63 6c 61 72 65 2d 66 75 6e 63 74 69 6f 6e 20 64 6a 76 75 2d 67 6f 74 6f 2d 70 61 67 .(declare-function.djvu-goto-pag
26640 65 20 22 64 6a 76 75 22 29 0a 28 64 65 63 6c 61 72 65 2d 66 75 6e 63 74 69 6f 6e 20 64 6a 76 75 e."djvu").(declare-function.djvu
26660 2d 6e 65 78 74 2d 70 61 67 65 20 22 64 6a 76 75 22 29 0a 0a 28 64 65 66 76 61 72 20 64 6a 76 75 -next-page."djvu")..(defvar.djvu
26680 2d 64 6f 63 2d 70 61 67 65 29 0a 0a 3b 3b 3b 23 23 23 61 75 74 6f 6c 6f 61 64 0a 28 64 65 66 75 -doc-page)..;;;###autoload.(defu
266a0 6e 20 63 61 6c 69 62 72 65 64 62 2d 6c 69 73 74 20 28 29 0a 20 20 22 47 65 6e 65 72 61 74 65 20 n.calibredb-list.()..."Generate.
266c0 61 6e 20 6f 72 67 20 62 75 66 66 65 72 20 77 68 69 63 68 20 63 6f 6e 74 61 69 6e 20 61 6c 6c 20 an.org.buffer.which.contain.all.
266e0 65 62 6f 6f 6b 73 27 20 63 6f 76 65 72 20 69 6d 61 67 65 2c 20 74 69 74 6c 65 20 61 6e 64 20 74 ebooks'.cover.image,.title.and.t
26700 68 65 20 66 69 6c 65 20 6c 69 6e 6b 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 0a 20 he.file.link."...(interactive)..
26720 20 28 6c 65 74 2a 20 28 28 62 75 66 2d 6e 61 6d 65 20 22 2a 63 61 6c 69 62 72 65 64 62 2d 6c 69 .(let*.((buf-name."*calibredb-li
26740 73 74 2a 22 29 0a 20 20 20 20 20 20 20 20 20 6f 63 63 75 72 2d 62 75 66 29 0a 20 20 20 20 28 77 st*")..........occur-buf).....(w
26760 68 65 6e 20 28 67 65 74 2d 62 75 66 66 65 72 20 62 75 66 2d 6e 61 6d 65 29 0a 20 20 20 20 20 20 hen.(get-buffer.buf-name).......
26780 28 6b 69 6c 6c 2d 62 75 66 66 65 72 20 62 75 66 2d 6e 61 6d 65 29 29 0a 20 20 20 20 28 73 65 74 (kill-buffer.buf-name)).....(set
267a0 71 20 6f 63 63 75 72 2d 62 75 66 20 28 67 65 74 2d 62 75 66 66 65 72 2d 63 72 65 61 74 65 20 62 q.occur-buf.(get-buffer-create.b
267c0 75 66 2d 6e 61 6d 65 29 29 0a 20 20 20 20 28 6c 65 74 20 28 28 72 65 73 2d 6c 69 73 74 20 28 69 uf-name)).....(let.((res-list.(i
267e0 66 20 63 61 6c 69 62 72 65 64 62 2d 73 65 61 72 63 68 2d 65 6e 74 72 69 65 73 0a 20 20 20 20 20 f.calibredb-search-entries......
26800 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 61 6c 69 62 72 65 64 62 2d 73 65 61 ...................calibredb-sea
26820 72 63 68 2d 65 6e 74 72 69 65 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 rch-entries.....................
26840 20 20 28 70 72 6f 67 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..(progn........................
26860 20 28 73 65 74 71 20 63 61 6c 69 62 72 65 64 62 2d 73 65 61 72 63 68 2d 65 6e 74 72 69 65 73 20 .(setq.calibredb-search-entries.
26880 28 63 61 6c 69 62 72 65 64 62 2d 63 61 6e 64 69 64 61 74 65 73 29 29 0a 20 20 20 20 20 20 20 20 (calibredb-candidates)).........
268a0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 63 61 6c 69 62 72 65 64 62 2d ................(setq.calibredb-
268c0 66 75 6c 6c 2d 65 6e 74 72 69 65 73 20 63 61 6c 69 62 72 65 64 62 2d 73 65 61 72 63 68 2d 65 6e full-entries.calibredb-search-en
268e0 74 72 69 65 73 29 29 29 29 29 0a 20 20 20 20 20 20 28 77 69 74 68 2d 63 75 72 72 65 6e 74 2d 62 tries))))).......(with-current-b
26900 75 66 66 65 72 20 6f 63 63 75 72 2d 62 75 66 0a 20 20 20 20 20 20 20 20 28 65 72 61 73 65 2d 62 uffer.occur-buf.........(erase-b
26920 75 66 66 65 72 29 0a 20 20 20 20 20 20 20 20 28 69 6e 73 65 72 74 20 22 23 2b 53 54 41 52 54 55 uffer).........(insert."#+STARTU
26940 50 3a 20 69 6e 6c 69 6e 65 69 6d 61 67 65 73 20 6e 6f 66 6f 6c 64 22 29 29 0a 20 20 20 20 20 20 P:.inlineimages.nofold")).......
26960 28 64 6f 6c 69 73 74 20 28 72 65 73 20 72 65 73 2d 6c 69 73 74 29 0a 20 20 20 20 20 20 20 20 28 (dolist.(res.res-list).........(
26980 6c 65 74 20 28 28 63 6f 76 65 72 20 28 63 6f 6e 63 61 74 20 28 66 69 6c 65 2d 6e 61 6d 65 2d 64 let.((cover.(concat.(file-name-d
269a0 69 72 65 63 74 6f 72 79 20 28 63 61 6c 69 62 72 65 64 62 2d 67 65 74 61 74 74 72 20 28 63 64 72 irectory.(calibredb-getattr.(cdr
269c0 20 72 65 73 29 20 3a 66 69 6c 65 2d 70 61 74 68 29 29 20 22 63 6f 76 65 72 2e 6a 70 67 22 29 29 .res).:file-path))."cover.jpg"))
269e0 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 74 69 74 6c 65 20 28 63 61 6c 69 62 72 65 64 62 ...............(title.(calibredb
26a00 2d 67 65 74 61 74 74 72 20 28 63 64 72 20 72 65 73 29 20 3a 62 6f 6f 6b 2d 74 69 74 6c 65 29 29 -getattr.(cdr.res).:book-title))
26a20 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 6f 72 6d 61 74 20 28 63 61 6c 69 62 72 65 64 ...............(format.(calibred
26a40 62 2d 67 65 74 61 74 74 72 20 28 63 64 72 20 72 65 73 29 20 3a 62 6f 6f 6b 2d 66 6f 72 6d 61 74 b-getattr.(cdr.res).:book-format
26a60 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 62 6f 6f 6b 20 28 63 61 6c 69 62 72 65 64 ))...............(book.(calibred
26a80 62 2d 67 65 74 61 74 74 72 20 28 63 64 72 20 72 65 73 29 20 3a 66 69 6c 65 2d 70 61 74 68 29 29 b-getattr.(cdr.res).:file-path))
26aa0 29 0a 20 20 20 20 20 20 20 20 20 20 28 69 66 20 28 69 6d 61 67 65 2d 74 79 70 65 2d 61 76 61 69 )...........(if.(image-type-avai
26ac0 6c 61 62 6c 65 2d 70 20 28 69 6e 74 65 72 6e 20 66 6f 72 6d 61 74 29 29 0a 20 20 20 20 20 20 20 lable-p.(intern.format))........
26ae0 20 20 20 20 20 20 20 28 73 65 74 71 20 63 6f 76 65 72 20 62 6f 6f 6b 29 29 0a 20 20 20 20 20 20 .......(setq.cover.book)).......
26b00 20 20 20 20 28 77 69 74 68 2d 63 75 72 72 65 6e 74 2d 62 75 66 66 65 72 20 6f 63 63 75 72 2d 62 ....(with-current-buffer.occur-b
26b20 75 66 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 28 66 69 6c 65 2d 65 78 69 73 74 uf.............(when.(file-exist
26b40 73 2d 70 20 63 6f 76 65 72 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 6e 73 65 72 74 s-p.cover)...............(insert
26b60 20 22 5c 6e 22 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 6e 73 65 72 74 20 22 23 2b ."\n")...............(insert."#+
26b80 61 74 74 72 5f 6f 72 67 3a 20 3a 77 69 64 74 68 20 32 30 30 70 78 5c 6e 22 29 0a 20 20 20 20 20 attr_org:.:width.200px\n")......
26ba0 20 20 20 20 20 20 20 20 20 28 69 6e 73 65 72 74 20 22 5b 5b 66 69 6c 65 3a 22 20 63 6f 76 65 72 .........(insert."[[file:".cover
26bc0 20 22 5d 5d 22 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 69 6e 73 65 72 74 20 22 5c 6e 22 ."]]")).............(insert."\n"
26be0 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 69 6e 73 65 72 74 20 28 66 6f 72 6d 61 74 20 22 5b ).............(insert.(format."[
26c00 5b 66 69 6c 65 3a 25 73 5d 5b 25 73 5d 5d 22 20 62 6f 6f 6b 20 74 69 74 6c 65 29 29 0a 20 20 20 [file:%s][%s]]".book.title))....
26c20 20 20 20 20 20 20 20 20 20 28 69 6e 73 65 72 74 20 22 5c 6e 22 29 29 29 29 29 0a 20 20 20 20 28 .........(insert."\n"))))).....(
26c40 77 68 65 6e 20 28 62 75 66 66 65 72 2d 6c 69 76 65 2d 70 20 6f 63 63 75 72 2d 62 75 66 29 0a 20 when.(buffer-live-p.occur-buf)..
26c60 20 20 20 20 20 28 73 77 69 74 63 68 2d 74 6f 2d 62 75 66 66 65 72 2d 6f 74 68 65 72 2d 77 69 6e .....(switch-to-buffer-other-win
26c80 64 6f 77 20 6f 63 63 75 72 2d 62 75 66 29 0a 20 20 20 20 20 20 28 72 65 61 64 2d 6f 6e 6c 79 2d dow.occur-buf).......(read-only-
26ca0 6d 6f 64 65 29 0a 20 20 20 20 20 20 28 75 6e 6c 65 73 73 20 28 66 65 61 74 75 72 65 70 20 27 6f mode).......(unless.(featurep.'o
26cc0 72 67 29 0a 20 20 20 20 20 20 20 20 28 72 65 71 75 69 72 65 20 27 6f 72 67 29 29 0a 20 20 20 20 rg).........(require.'org)).....
26ce0 20 20 28 69 66 20 28 66 62 6f 75 6e 64 70 20 27 6f 72 67 2d 6d 6f 64 65 29 0a 20 20 20 20 20 20 ..(if.(fboundp.'org-mode).......
26d00 20 20 20 20 28 6f 72 67 2d 6d 6f 64 65 29 29 0a 20 20 20 20 20 20 28 67 6f 74 6f 2d 63 68 61 72 ....(org-mode)).......(goto-char
26d20 20 28 70 6f 69 6e 74 2d 6d 69 6e 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 63 61 6c 69 62 72 65 .(point-min)))))..(defun.calibre
26d40 64 62 2d 6f 70 65 6e 2d 77 69 74 68 2d 64 65 66 61 75 6c 74 2d 74 6f 6f 6c 20 28 66 69 6c 65 70 db-open-with-default-tool.(filep
26d60 61 74 68 29 0a 20 20 22 54 4f 44 4f 3a 20 63 6f 6e 73 6f 6c 69 64 61 74 65 20 64 65 66 61 75 6c ath)..."TODO:.consolidate.defaul
26d80 74 2d 6f 70 65 6e 65 72 20 77 69 74 68 20 64 69 73 70 61 74 63 68 65 72 2e 0a 41 72 67 75 6d 65 t-opener.with.dispatcher..Argume
26da0 6e 74 20 46 49 4c 45 50 41 54 48 20 69 73 20 74 68 65 20 66 69 6c 65 20 70 61 74 68 2e 22 0a 20 nt.FILEPATH.is.the.file.path."..
26dc0 20 28 63 6f 6e 64 20 28 28 65 71 20 73 79 73 74 65 6d 2d 74 79 70 65 20 27 67 6e 75 2f 6c 69 6e .(cond.((eq.system-type.'gnu/lin
26de0 75 78 29 0a 20 20 20 20 20 20 20 20 20 28 63 61 6c 6c 2d 70 72 6f 63 65 73 73 20 22 78 64 67 2d ux)..........(call-process."xdg-
26e00 6f 70 65 6e 22 20 6e 69 6c 20 30 20 6e 69 6c 20 28 65 78 70 61 6e 64 2d 66 69 6c 65 2d 6e 61 6d open".nil.0.nil.(expand-file-nam
26e20 65 20 66 69 6c 65 70 61 74 68 29 29 29 0a 20 20 20 20 20 20 20 20 28 28 65 71 20 73 79 73 74 65 e.filepath))).........((eq.syste
26e40 6d 2d 74 79 70 65 20 27 77 69 6e 64 6f 77 73 2d 6e 74 29 0a 20 20 20 20 20 20 20 20 20 28 77 33 m-type.'windows-nt)..........(w3
26e60 32 2d 73 68 65 6c 6c 2d 65 78 65 63 75 74 65 20 22 6f 70 65 6e 22 20 28 65 78 70 61 6e 64 2d 66 2-shell-execute."open".(expand-f
26e80 69 6c 65 2d 6e 61 6d 65 20 66 69 6c 65 70 61 74 68 29 29 29 0a 20 20 20 20 20 20 20 20 28 28 65 ile-name.filepath))).........((e
26ea0 71 20 73 79 73 74 65 6d 2d 74 79 70 65 20 27 64 61 72 77 69 6e 29 0a 20 20 20 20 20 20 20 20 20 q.system-type.'darwin)..........
26ec0 28 73 74 61 72 74 2d 70 72 6f 63 65 73 73 20 22 73 68 65 6c 6c 2d 70 72 6f 63 65 73 73 22 20 22 (start-process."shell-process"."
26ee0 2a 4d 65 73 73 61 67 65 73 2a 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 *Messages*".....................
26f00 20 20 20 20 22 6f 70 65 6e 22 20 28 65 78 70 61 6e 64 2d 66 69 6c 65 2d 6e 61 6d 65 20 66 69 6c ...."open".(expand-file-name.fil
26f20 65 70 61 74 68 29 29 29 0a 20 20 20 20 20 20 20 20 28 74 20 28 6d 65 73 73 61 67 65 20 22 75 6e epath))).........(t.(message."un
26f40 6b 6e 6f 77 6e 20 73 79 73 74 65 6d 21 3f 22 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 63 61 6c 69 known.system!?"))))..(defun.cali
26f60 62 72 65 64 62 2d 67 65 74 2d 66 69 6c 65 2d 70 61 74 68 20 28 65 6e 74 72 79 20 26 6f 70 74 69 bredb-get-file-path.(entry.&opti
26f80 6f 6e 61 6c 20 70 72 6f 6d 70 74 29 0a 20 20 22 47 65 74 20 66 69 6c 65 20 70 61 74 68 20 66 72 onal.prompt)..."Get.file.path.fr
26fa0 6f 6d 20 61 20 76 61 6c 69 64 20 63 61 6e 64 69 64 61 74 65 20 45 4e 54 52 59 2e 0a 4f 70 74 69 om.a.valid.candidate.ENTRY..Opti
26fc0 6f 6e 61 6c 20 61 72 67 75 6d 65 6e 74 20 50 52 4f 4d 50 54 20 74 6f 20 53 65 6c 65 63 74 20 61 onal.argument.PROMPT.to.Select.a
26fe0 20 66 6f 72 6d 61 74 2e 22 0a 20 20 28 6c 65 74 20 28 28 66 69 6c 65 2d 70 61 74 68 20 28 63 61 .format."...(let.((file-path.(ca
27000 6c 69 62 72 65 64 62 2d 67 65 74 61 74 74 72 20 65 6e 74 72 79 20 3a 66 69 6c 65 2d 70 61 74 68 libredb-getattr.entry.:file-path
27020 29 29 29 0a 20 20 20 20 28 63 6f 6e 64 20 28 28 73 2d 65 71 75 61 6c 73 3f 20 22 22 20 66 69 6c ))).....(cond.((s-equals?."".fil
27040 65 2d 70 61 74 68 29 20 22 22 29 20 20 20 20 20 20 20 20 20 3b 20 6e 6f 20 66 69 6c 65 2d 70 61 e-path)."").........;.no.file-pa
27060 74 68 20 66 69 65 6c 64 0a 20 20 20 20 20 20 20 20 20 20 28 28 66 69 6c 65 2d 65 78 69 73 74 73 th.field...........((file-exists
27080 2d 70 20 66 69 6c 65 2d 70 61 74 68 29 20 66 69 6c 65 2d 70 61 74 68 29 20 3b 20 64 65 66 61 75 -p.file-path).file-path).;.defau
270a0 6c 74 20 66 69 6c 65 2d 70 61 74 68 20 69 73 20 61 20 76 61 6c 69 64 20 66 69 6c 65 0a 20 20 20 lt.file-path.is.a.valid.file....
270c0 20 20 20 20 20 20 20 28 28 63 61 6c 69 62 72 65 64 62 2d 6c 6f 63 61 6c 2d 66 69 6c 65 2d 65 78 .......((calibredb-local-file-ex
270e0 69 73 74 73 2d 70 20 65 6e 74 72 79 29 20 28 63 61 6c 69 62 72 65 64 62 2d 6c 6f 63 61 6c 2d 66 ists-p.entry).(calibredb-local-f
27100 69 6c 65 20 65 6e 74 72 79 29 29 20 3b 20 76 61 6c 69 64 20 6c 6f 63 61 6c 20 66 69 6c 65 20 69 ile.entry)).;.valid.local.file.i
27120 73 20 66 6f 75 6e 64 0a 20 20 20 20 20 20 20 20 20 20 28 28 73 2d 63 6f 6e 74 61 69 6e 73 3f 20 s.found...........((s-contains?.
27140 22 68 74 74 70 22 20 66 69 6c 65 2d 70 61 74 68 29 20 66 69 6c 65 2d 70 61 74 68 29 20 3b 20 66 "http".file-path).file-path).;.f
27160 6f 72 20 68 74 74 70 20 6c 69 6e 6b 2c 20 6a 75 73 74 20 72 65 74 75 72 6e 0a 20 20 20 20 20 20 or.http.link,.just.return.......
27180 20 20 20 20 28 74 20 28 69 66 20 28 73 2d 63 6f 6e 74 61 69 6e 73 3f 20 22 2c 22 20 28 66 69 6c ....(t.(if.(s-contains?.",".(fil
271a0 65 2d 6e 61 6d 65 2d 65 78 74 65 6e 73 69 6f 6e 20 66 69 6c 65 2d 70 61 74 68 29 29 20 3b 20 74 e-name-extension.file-path)).;.t
271c0 72 79 20 74 6f 20 73 70 6c 69 74 20 74 68 65 20 65 78 74 65 6e 73 69 6f 6e 20 28 66 6f 72 20 65 ry.to.split.the.extension.(for.e
271e0 78 61 6d 70 6c 65 2c 20 69 74 20 6d 61 79 20 62 65 20 65 70 75 62 2c 70 64 66 29 20 61 6e 64 20 xample,.it.may.be.epub,pdf).and.
27200 72 65 74 75 72 6e 20 74 68 65 20 66 69 72 73 74 20 66 6f 72 6d 61 74 0a 20 20 20 20 20 20 20 20 return.the.first.format.........
27220 20 20 20 20 20 20 20 20 20 28 6c 65 74 2a 20 28 28 70 61 72 65 6e 74 20 28 66 69 6c 65 2d 6e 61 .........(let*.((parent.(file-na
27240 6d 65 2d 64 69 72 65 63 74 6f 72 79 20 66 69 6c 65 2d 70 61 74 68 29 29 0a 20 20 20 20 20 20 20 me-directory.file-path))........
27260 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 69 6c 65 6e 61 6d 65 20 28 66 69 6c 65 .................(filename.(file
27280 2d 6e 61 6d 65 2d 62 61 73 65 20 66 69 6c 65 2d 70 61 74 68 29 29 0a 20 20 20 20 20 20 20 20 20 -name-base.file-path))..........
272a0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 65 78 74 20 28 73 2d 73 70 6c 69 74 20 22 2c 22 ...............(ext.(s-split.","
272c0 20 28 66 69 6c 65 2d 6e 61 6d 65 2d 65 78 74 65 6e 73 69 6f 6e 20 66 69 6c 65 2d 70 61 74 68 29 .(file-name-extension.file-path)
272e0 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 69 6c 65 )).........................(file
27300 73 20 28 2d 6d 61 70 20 28 6c 61 6d 62 64 61 20 28 65 29 20 28 65 78 70 61 6e 64 2d 66 69 6c 65 s.(-map.(lambda.(e).(expand-file
27320 2d 6e 61 6d 65 20 28 63 6f 6e 63 61 74 20 66 69 6c 65 6e 61 6d 65 20 22 2e 22 20 65 29 20 70 61 -name.(concat.filename.".".e).pa
27340 72 65 6e 74 29 29 20 65 78 74 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 rent)).ext)))...................
27360 20 28 69 66 20 63 61 6c 69 62 72 65 64 62 2d 70 72 65 66 65 72 72 65 64 2d 66 6f 72 6d 61 74 0a .(if.calibredb-preferred-format.
27380 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6f 72 20 28 2d 66 69 72 .......................(or.(-fir
273a0 73 74 20 28 6c 61 6d 62 64 61 20 28 66 29 20 28 73 74 72 69 6e 67 3d 20 28 66 69 6c 65 2d 6e 61 st.(lambda.(f).(string=.(file-na
273c0 6d 65 2d 65 78 74 65 6e 73 69 6f 6e 20 66 29 20 63 61 6c 69 62 72 65 64 62 2d 70 72 65 66 65 72 me-extension.f).calibredb-prefer
273e0 72 65 64 2d 66 6f 72 6d 61 74 29 29 20 66 69 6c 65 73 29 20 28 63 61 72 20 66 69 6c 65 73 29 29 red-format)).files).(car.files))
27400 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 66 20 70 72 6f 6d 70 74 ......................(if.prompt
27420 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 6d 70 6c ..........................(compl
27440 65 74 69 6e 67 2d 72 65 61 64 20 22 53 65 6c 65 63 74 20 61 20 66 6f 72 6d 61 74 3a 20 22 20 66 eting-read."Select.a.format:.".f
27460 69 6c 65 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 61 iles)........................(ca
27480 72 20 66 69 6c 65 73 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 66 69 6c 65 2d r.files))))................file-
274a0 70 61 74 68 29 29 29 29 29 20 20 20 20 20 20 20 20 20 20 20 3b 20 69 66 20 65 78 74 65 6e 73 69 path)))))...........;.if.extensi
274c0 6f 6e 20 64 6f 65 73 20 6e 6f 74 20 68 61 76 65 20 63 6f 6d 6d 61 2c 20 61 74 20 6c 61 73 74 20 on.does.not.have.comma,.at.last.
274e0 6a 75 73 74 20 72 65 74 72 75 6e 20 69 74 2e 0a 0a 28 64 65 66 75 6e 20 63 61 6c 69 62 72 65 64 just.retrun.it...(defun.calibred
27500 62 2d 6c 6f 63 61 6c 2d 66 69 6c 65 20 28 65 6e 74 72 79 29 0a 20 20 22 47 65 74 20 74 68 65 20 b-local-file.(entry)..."Get.the.
27520 6c 6f 63 61 6c 20 62 6f 6f 6b 20 66 69 6c 65 20 62 61 73 65 64 20 6f 6e 20 45 4e 54 52 59 2e 22 local.book.file.based.on.ENTRY."
27540 0a 20 20 28 6c 65 74 2a 20 28 28 62 6f 6f 6b 2d 74 69 74 6c 65 20 28 63 61 6c 69 62 72 65 64 62 ...(let*.((book-title.(calibredb
27560 2d 67 65 74 61 74 74 72 20 65 6e 74 72 79 20 3a 62 6f 6f 6b 2d 74 69 74 6c 65 29 29 0a 20 20 20 -getattr.entry.:book-title))....
27580 20 20 20 20 20 20 28 62 6f 6f 6b 2d 66 6f 72 6d 61 74 20 28 63 61 6c 69 62 72 65 64 62 2d 67 65 ......(book-format.(calibredb-ge
275a0 74 61 74 74 72 20 65 6e 74 72 79 20 3a 62 6f 6f 6b 2d 66 6f 72 6d 61 74 29 29 0a 20 20 20 20 20 tattr.entry.:book-format))......
275c0 20 20 20 20 28 6c 6f 63 61 6c 2d 66 69 6c 65 20 28 65 78 70 61 6e 64 2d 66 69 6c 65 2d 6e 61 6d ....(local-file.(expand-file-nam
275e0 65 20 28 66 6f 72 6d 61 74 20 22 25 73 25 73 22 20 62 6f 6f 6b 2d 74 69 74 6c 65 20 28 63 61 6c e.(format."%s%s".book-title.(cal
27600 69 62 72 65 64 62 2d 6f 70 64 73 2d 6d 61 69 6c 63 61 70 2d 6d 69 6d 65 2d 74 6f 2d 65 78 74 6e ibredb-opds-mailcap-mime-to-extn
27620 20 62 6f 6f 6b 2d 66 6f 72 6d 61 74 29 29 20 63 61 6c 69 62 72 65 64 62 2d 6f 70 64 73 2d 64 6f .book-format)).calibredb-opds-do
27640 77 6e 6c 6f 61 64 2d 64 69 72 29 29 29 0a 20 20 20 20 6c 6f 63 61 6c 2d 66 69 6c 65 29 29 0a 0a wnload-dir))).....local-file))..
27660 28 64 65 66 75 6e 20 63 61 6c 69 62 72 65 64 62 2d 6c 6f 63 61 6c 2d 66 69 6c 65 2d 65 78 69 73 (defun.calibredb-local-file-exis
27680 74 73 2d 70 20 28 65 6e 74 72 79 29 0a 20 20 22 43 68 65 63 6b 20 6c 6f 63 61 6c 20 62 6f 6f 6b ts-p.(entry)..."Check.local.book
276a0 20 66 69 6c 65 20 65 78 69 73 74 73 20 6f 72 20 6e 6f 74 20 62 61 73 65 64 20 6f 6e 20 45 4e 54 .file.exists.or.not.based.on.ENT
276c0 52 59 2e 22 0a 20 20 28 66 69 6c 65 2d 65 78 69 73 74 73 2d 70 20 28 63 61 6c 69 62 72 65 64 62 RY."...(file-exists-p.(calibredb
276e0 2d 6c 6f 63 61 6c 2d 66 69 6c 65 20 65 6e 74 72 79 29 29 29 0a 0a 28 64 65 66 75 6e 20 63 61 6c -local-file.entry)))..(defun.cal
27700 69 62 72 65 64 62 2d 67 65 74 2d 63 6f 76 65 72 20 28 65 6e 74 72 79 29 0a 20 20 22 47 65 74 20 ibredb-get-cover.(entry)..."Get.
27720 63 6f 76 65 72 20 70 61 74 68 20 62 61 73 65 64 20 6f 6e 20 45 4e 54 52 59 2e 0a 44 6f 77 6e 6c cover.path.based.on.ENTRY..Downl
27740 6f 61 64 20 69 74 20 69 66 20 62 6f 6f 6b 2d 63 6f 76 65 72 20 69 73 20 6e 6f 6e 2d 6e 69 6c 2e oad.it.if.book-cover.is.non-nil.
27760 22 0a 20 20 28 6c 65 74 20 28 28 66 69 6c 65 2d 70 61 74 68 20 28 63 61 6c 69 62 72 65 64 62 2d "...(let.((file-path.(calibredb-
27780 67 65 74 61 74 74 72 20 65 6e 74 72 79 20 3a 66 69 6c 65 2d 70 61 74 68 29 29 0a 20 20 20 20 20 getattr.entry.:file-path))......
277a0 20 20 20 28 62 6f 6f 6b 2d 66 6f 72 6d 61 74 20 28 63 61 6c 69 62 72 65 64 62 2d 67 65 74 61 74 ...(book-format.(calibredb-getat
277c0 74 72 20 65 6e 74 72 79 20 3a 62 6f 6f 6b 2d 66 6f 72 6d 61 74 29 29 0a 20 20 20 20 20 20 20 20 tr.entry.:book-format)).........
277e0 28 62 6f 6f 6b 2d 63 6f 76 65 72 20 28 63 61 6c 69 62 72 65 64 62 2d 67 65 74 61 74 74 72 20 65 (book-cover.(calibredb-getattr.e
27800 6e 74 72 79 20 3a 62 6f 6f 6b 2d 63 6f 76 65 72 29 29 29 0a 20 20 20 20 28 70 70 20 62 6f 6f 6b ntry.:book-cover))).....(pp.book
27820 2d 63 6f 76 65 72 29 0a 20 20 20 20 28 63 6f 6e 64 20 28 28 69 6d 61 67 65 2d 74 79 70 65 2d 61 -cover).....(cond.((image-type-a
27840 76 61 69 6c 61 62 6c 65 2d 70 20 28 69 6e 74 65 72 6e 20 62 6f 6f 6b 2d 66 6f 72 6d 61 74 29 29 vailable-p.(intern.book-format))
27860 20 66 69 6c 65 2d 70 61 74 68 29 20 3b 20 74 68 65 20 66 69 6c 65 20 69 73 20 61 6e 20 69 6d 61 .file-path).;.the.file.is.an.ima
27880 67 65 0a 20 20 20 20 20 20 20 20 20 20 28 28 66 69 6c 65 2d 65 78 69 73 74 73 2d 70 20 28 63 6f ge...........((file-exists-p.(co
278a0 6e 63 61 74 20 28 66 69 6c 65 2d 6e 61 6d 65 2d 64 69 72 65 63 74 6f 72 79 20 66 69 6c 65 2d 70 ncat.(file-name-directory.file-p
278c0 61 74 68 29 20 22 63 6f 76 65 72 2e 6a 70 67 22 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 63 ath)."cover.jpg"))............(c
278e0 6f 6e 63 61 74 20 28 66 69 6c 65 2d 6e 61 6d 65 2d 64 69 72 65 63 74 6f 72 79 20 66 69 6c 65 2d oncat.(file-name-directory.file-
27900 70 61 74 68 29 20 22 63 6f 76 65 72 2e 6a 70 67 22 29 29 20 3b 20 63 6f 76 65 72 2e 6a 70 67 20 path)."cover.jpg")).;.cover.jpg.
27920 65 78 69 73 74 73 0a 20 20 20 20 20 20 20 20 20 20 28 28 6e 6f 74 20 62 6f 6f 6b 2d 63 6f 76 65 exists...........((not.book-cove
27940 72 29 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 r)..............................
27960 20 20 20 20 20 20 20 20 3b 20 62 6f 6f 6b 2d 63 6f 76 65 72 20 69 73 20 6e 69 6c 2c 20 75 73 65 ........;.book-cover.is.nil,.use
27980 20 64 65 66 61 75 6c 74 20 63 6f 76 65 72 0a 20 20 20 20 20 20 20 20 20 20 20 28 65 78 70 61 6e .default.cover............(expan
279a0 64 2d 66 69 6c 65 2d 6e 61 6d 65 20 22 63 6f 76 65 72 2e 6a 70 67 22 20 63 61 6c 69 62 72 65 64 d-file-name."cover.jpg".calibred
279c0 62 2d 69 6d 61 67 65 73 2d 70 61 74 68 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 28 73 2d 63 6f b-images-path))...........((s-co
279e0 6e 74 61 69 6e 73 3f 20 22 62 61 73 65 36 34 22 20 62 6f 6f 6b 2d 63 6f 76 65 72 29 0a 20 20 20 ntains?."base64".book-cover)....
27a00 20 20 20 20 20 20 20 20 28 69 66 20 28 73 74 72 69 6e 67 2d 6d 61 74 63 68 20 22 64 61 74 61 3a ........(if.(string-match."data:
27a20 69 6d 61 67 65 2f 5c 5c 28 2e 2a 5c 5c 29 3b 62 61 73 65 36 34 2c 5c 5c 28 2e 2a 5c 5c 29 22 20 image/\\(.*\\);base64,\\(.*\\)".
27a40 62 6f 6f 6b 2d 63 6f 76 65 72 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 book-cover)................(let.
27a60 28 28 63 6f 76 65 72 20 28 65 78 70 61 6e 64 2d 66 69 6c 65 2d 6e 61 6d 65 20 28 66 6f 72 6d 61 ((cover.(expand-file-name.(forma
27a80 74 20 22 63 6f 76 65 72 2e 25 73 22 20 28 6d 61 74 63 68 2d 73 74 72 69 6e 67 20 31 20 62 6f 6f t."cover.%s".(match-string.1.boo
27aa0 6b 2d 63 6f 76 65 72 29 29 20 74 65 6d 70 6f 72 61 72 79 2d 66 69 6c 65 2d 64 69 72 65 63 74 6f k-cover)).temporary-file-directo
27ac0 72 79 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 69 74 68 2d 63 75 72 ry)))..................(with-cur
27ae0 72 65 6e 74 2d 62 75 66 66 65 72 20 28 67 65 6e 65 72 61 74 65 2d 6e 65 77 2d 62 75 66 66 65 72 rent-buffer.(generate-new-buffer
27b00 20 22 20 2a 74 65 6d 70 2a 22 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 .".*temp*")....................(
27b20 69 6e 73 65 72 74 20 28 62 61 73 65 36 34 2d 64 65 63 6f 64 65 2d 73 74 72 69 6e 67 20 28 6d 61 insert.(base64-decode-string.(ma
27b40 74 63 68 2d 73 74 72 69 6e 67 20 32 20 62 6f 6f 6b 2d 63 6f 76 65 72 29 29 29 0a 20 20 20 20 20 tch-string.2.book-cover)))......
27b60 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 72 69 74 65 2d 72 65 67 69 6f 6e 20 28 70 6f 69 ..............(write-region.(poi
27b80 6e 74 2d 6d 69 6e 29 20 28 70 6f 69 6e 74 2d 6d 61 78 29 20 63 6f 76 65 72 29 29 0a 20 20 20 20 nt-min).(point-max).cover)).....
27ba0 20 20 20 20 20 20 20 20 20 20 20 20 20 63 6f 76 65 72 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 .............cover).............
27bc0 20 28 65 78 70 61 6e 64 2d 66 69 6c 65 2d 6e 61 6d 65 20 22 63 6f 76 65 72 2e 6a 70 67 22 20 63 .(expand-file-name."cover.jpg".c
27be0 61 6c 69 62 72 65 64 62 2d 69 6d 61 67 65 73 2d 70 61 74 68 29 29 29 20 3b 20 54 4f 44 4f 3a 20 alibredb-images-path))).;.TODO:.
27c00 68 61 6e 64 6c 65 20 62 61 73 65 36 34 20 63 6f 76 65 72 20 69 6d 61 67 65 73 0a 20 20 20 20 20 handle.base64.cover.images......
27c20 20 20 20 20 20 28 28 6e 6f 74 20 28 73 2d 63 6f 6e 74 61 69 6e 73 3f 20 22 62 61 73 65 36 34 22 .....((not.(s-contains?."base64"
27c40 20 62 6f 6f 6b 2d 63 6f 76 65 72 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 2a 20 28 .book-cover))............(let*.(
27c60 28 6c 69 62 72 61 72 79 20 28 2d 66 69 72 73 74 20 28 6c 61 6d 62 64 61 20 28 6c 69 62 29 0a 20 (library.(-first.(lambda.(lib)..
27c80 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ................................
27ca0 20 20 20 20 28 73 2d 63 6f 6e 74 61 69 6e 73 3f 20 28 66 69 6c 65 2d 6e 61 6d 65 2d 64 69 72 65 ....(s-contains?.(file-name-dire
27cc0 63 74 6f 72 79 20 28 63 61 72 20 6c 69 62 29 29 20 62 6f 6f 6b 2d 63 6f 76 65 72 29 29 0a 20 20 ctory.(car.lib)).book-cover))...
27ce0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ................................
27d00 20 63 61 6c 69 62 72 65 64 62 2d 6c 69 62 72 61 72 79 2d 61 6c 69 73 74 29 29 0a 20 20 20 20 20 .calibredb-library-alist))......
27d20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 75 72 6c 2d 72 65 71 75 65 73 74 2d 6d 65 74 68 6f 64 .............(url-request-method
27d40 20 22 47 45 54 22 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 75 72 6c 2d 75 ."GET")...................(url-u
27d60 73 65 72 2d 61 67 65 6e 74 20 22 4d 6f 7a 69 6c 6c 61 2f 35 2e 30 20 28 57 69 6e 64 6f 77 73 20 ser-agent."Mozilla/5.0.(Windows.
27d80 4e 54 20 36 2e 31 3b 20 57 4f 57 36 34 29 20 41 70 70 6c 65 57 65 62 4b 69 74 2f 35 33 37 2e 33 NT.6.1;.WOW64).AppleWebKit/537.3
27da0 36 20 28 4b 48 54 4d 4c 2c 20 6c 69 6b 65 20 47 65 63 6b 6f 29 20 43 68 72 6f 6d 65 2f 34 31 2e 6.(KHTML,.like.Gecko).Chrome/41.
27dc0 30 2e 32 32 37 32 2e 31 30 31 20 53 61 66 61 72 69 2f 35 33 37 2e 33 36 22 29 0a 20 20 20 20 20 0.2272.101.Safari/537.36")......
27de0 20 20 20 20 20 20 20 20 20 20 20 20 20 28 75 72 6c 2d 72 65 71 75 65 73 74 2d 65 78 74 72 61 2d .............(url-request-extra-
27e00 68 65 61 64 65 72 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 60 2c 28 69 66 headers....................`,(if
27e20 20 28 61 6e 64 20 28 6e 74 68 20 31 20 6c 69 62 72 61 72 79 29 20 28 6e 74 68 20 32 20 6c 69 62 .(and.(nth.1.library).(nth.2.lib
27e40 72 61 72 79 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 rary))..........................
27e60 60 28 28 22 43 6f 6e 74 65 6e 74 2d 54 79 70 65 22 20 2e 20 22 61 70 70 6c 69 63 61 74 69 6f 6e `(("Content-Type"..."application
27e80 2f 78 6d 6c 22 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 /xml")..........................
27ea0 20 20 28 22 41 75 74 68 6f 72 69 7a 61 74 69 6f 6e 22 20 2e 20 2c 28 63 6f 6e 63 61 74 20 22 42 ..("Authorization"...,(concat."B
27ec0 61 73 69 63 20 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 asic."..........................
27ee0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 62 ..............................(b
27f00 61 73 65 36 34 2d 65 6e 63 6f 64 65 2d 73 74 72 69 6e 67 0a 20 20 20 20 20 20 20 20 20 20 20 20 ase64-encode-string.............
27f20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ................................
27f40 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 6e 63 61 74 20 28 6e 74 68 20 31 20 6c 69 62 72 61 ............(concat.(nth.1.libra
27f60 72 79 29 20 22 3a 22 20 28 6e 74 68 20 32 20 6c 69 62 72 61 72 79 29 29 29 29 29 29 0a 20 20 20 ry).":".(nth.2.library))))))....
27f80 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 28 28 22 43 6f 6e 74 65 6e 74 2d 54 ...................'(("Content-T
27fa0 79 70 65 22 20 2e 20 22 61 70 70 6c 69 63 61 74 69 6f 6e 2f 78 6d 6c 22 29 29 29 29 0a 20 20 20 ype"..."application/xml"))))....
27fc0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 75 72 6c 2d 61 75 74 6f 6d 61 74 69 63 2d 63 61 ...............(url-automatic-ca
27fe0 63 68 69 6e 67 20 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 69 6c 65 ching.t)...................(file
28000 6e 61 6d 65 20 28 75 72 6c 2d 63 61 63 68 65 2d 63 72 65 61 74 65 2d 66 69 6c 65 6e 61 6d 65 20 name.(url-cache-create-filename.
28020 62 6f 6f 6b 2d 63 6f 76 65 72 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 66 20 28 book-cover)))..............(if.(
28040 6e 6f 74 20 28 75 72 6c 2d 69 73 2d 63 61 63 68 65 64 20 62 6f 6f 6b 2d 63 6f 76 65 72 29 29 0a not.(url-is-cached.book-cover)).
28060 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 69 74 68 2d 63 75 72 72 65 6e 74 2d 62 .................(with-current-b
28080 75 66 66 65 72 20 28 75 72 6c 2d 72 65 74 72 69 65 76 65 2d 73 79 6e 63 68 72 6f 6e 6f 75 73 6c uffer.(url-retrieve-synchronousl
280a0 79 20 62 6f 6f 6b 2d 63 6f 76 65 72 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 y.book-cover)...................
280c0 20 28 67 6f 74 6f 2d 63 68 61 72 20 28 70 6f 69 6e 74 2d 6d 69 6e 29 29 0a 20 20 20 20 20 20 20 .(goto-char.(point-min))........
280e0 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 61 72 63 68 2d 66 6f 72 77 61 72 64 20 22 5c 6e 5c ............(search-forward."\n\
28100 6e 22 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 72 69 74 65 2d 72 65 n")....................(write-re
28120 67 69 6f 6e 20 28 70 6f 69 6e 74 29 20 28 70 6f 69 6e 74 2d 6d 61 78 29 20 66 69 6c 65 6e 61 6d gion.(point).(point-max).filenam
28140 65 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 66 69 6c 65 6e 61 6d 65 29 29 0a 20 20 20 e)))..............filename))....
28160 20 20 20 20 20 20 20 28 74 20 28 65 78 70 61 6e 64 2d 66 69 6c 65 2d 6e 61 6d 65 20 22 63 6f 76 .......(t.(expand-file-name."cov
28180 65 72 2e 6a 70 67 22 20 63 61 6c 69 62 72 65 64 62 2d 69 6d 61 67 65 73 2d 70 61 74 68 29 29 29 er.jpg".calibredb-images-path)))
281a0 29 29 20 3b 72 65 74 75 72 6e 20 74 68 65 20 64 65 66 61 75 6c 74 20 69 6d 61 67 65 0a 0a 28 64 )).;return.the.default.image..(d
281c0 65 66 75 6e 20 63 61 6c 69 62 72 65 64 62 2d 69 6e 73 65 72 74 2d 69 6d 61 67 65 20 28 70 61 74 efun.calibredb-insert-image.(pat
281e0 68 20 61 6c 74 20 77 69 64 74 68 20 68 65 69 67 68 74 29 0a 20 20 22 49 6e 73 65 72 74 20 61 6e h.alt.width.height)..."Insert.an
28200 20 69 6d 61 67 65 20 66 6f 72 20 50 41 54 48 20 61 74 20 70 6f 69 6e 74 20 77 69 74 68 20 6d 61 .image.for.PATH.at.point.with.ma
28220 78 20 57 49 44 54 48 20 61 6e 64 20 6d 61 78 20 48 45 49 47 54 48 2c 20 66 61 6c 6c 69 6e 67 20 x.WIDTH.and.max.HEIGTH,.falling.
28240 62 61 63 6b 20 74 6f 20 41 4c 54 2e 22 0a 20 20 28 63 6f 6e 64 0a 20 20 20 28 28 6e 6f 74 20 28 back.to.ALT."...(cond....((not.(
28260 64 69 73 70 6c 61 79 2d 67 72 61 70 68 69 63 2d 70 29 29 0a 20 20 20 20 28 69 6e 73 65 72 74 20 display-graphic-p)).....(insert.
28280 61 6c 74 29 29 0a 20 20 20 28 28 66 62 6f 75 6e 64 70 20 27 69 6d 61 67 65 6d 61 67 69 63 6b 2d alt))....((fboundp.'imagemagick-
282a0 74 79 70 65 73 29 0a 20 20 20 20 28 69 6e 73 65 72 74 2d 69 6d 61 67 65 0a 20 20 20 20 20 28 63 types).....(insert-image......(c
282c0 72 65 61 74 65 2d 69 6d 61 67 65 20 70 61 74 68 20 27 69 6d 61 67 65 6d 61 67 69 63 6b 20 6e 69 reate-image.path.'imagemagick.ni
282e0 6c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 61 73 63 65 6e 74 20 31 30 30 l....................:ascent.100
28300 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 6d 61 78 2d 77 69 64 74 68 20 77 ....................:max-width.w
28320 69 64 74 68 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 6d 61 78 2d 68 65 69 idth....................:max-hei
28340 67 68 74 20 68 65 69 67 68 74 29 29 29 0a 20 20 20 28 74 0a 20 20 20 20 3b 3b 20 65 6d 61 63 73 ght.height)))....(t.....;;.emacs
28360 20 32 37 2e 31 0a 20 20 20 20 28 6c 65 74 20 28 28 69 6d 61 67 65 20 28 69 67 6e 6f 72 65 2d 65 .27.1.....(let.((image.(ignore-e
28380 72 72 6f 72 73 20 28 63 72 65 61 74 65 2d 69 6d 61 67 65 20 70 61 74 68 20 6e 69 6c 20 6e 69 6c rrors.(create-image.path.nil.nil
283a0 20 3a 77 69 64 74 68 20 77 69 64 74 68 20 3a 68 65 69 67 68 74 20 6e 69 6c 29 29 29 29 0a 20 20 .:width.width.:height.nil))))...
283c0 20 20 20 20 28 69 66 20 69 6d 61 67 65 0a 20 20 20 20 20 20 20 20 20 20 28 69 6e 73 65 72 74 2d ....(if.image...........(insert-
283e0 69 6d 61 67 65 20 69 6d 61 67 65 29 0a 20 20 20 20 20 20 20 20 28 69 6e 73 65 72 74 20 61 6c 74 image.image).........(insert.alt
28400 29 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 63 61 6c 69 62 72 65 64 62 2d 66 69 6e 64 2d 66 69 ))))))..(defun.calibredb-find-fi
28420 6c 65 20 28 26 6f 70 74 69 6f 6e 61 6c 20 63 61 6e 64 69 64 61 74 65 20 61 72 67 29 0a 20 20 22 le.(&optional.candidate.arg)..."
28440 4f 70 65 6e 20 66 69 6c 65 20 6f 66 20 74 68 65 20 73 65 6c 65 63 74 65 64 20 69 74 65 6d 2e 0a Open.file.of.the.selected.item..
28460 49 66 20 74 68 65 20 75 6e 69 76 65 72 73 61 6c 20 70 72 65 66 69 78 20 41 52 47 20 69 73 20 75 If.the.universal.prefix.ARG.is.u
28480 73 65 64 2c 20 69 67 6e 6f 72 65 20 60 63 61 6c 69 62 72 65 64 62 2d 70 72 65 66 65 72 72 65 64 sed,.ignore.`calibredb-preferred
284a0 2d 66 6f 72 6d 61 74 27 2e 0a 4f 70 74 69 6f 6e 61 6c 20 61 72 67 75 6d 65 6e 74 20 43 41 4e 44 -format'..Optional.argument.CAND
284c0 49 44 41 54 45 20 69 73 20 74 68 65 20 73 65 6c 65 63 74 65 64 20 69 74 65 6d 2e 22 0a 20 20 28 IDATE.is.the.selected.item."...(
284e0 69 6e 74 65 72 61 63 74 69 76 65 0a 20 20 20 28 6c 69 73 74 20 28 63 61 72 20 28 63 61 6c 69 62 interactive....(list.(car.(calib
28500 72 65 64 62 2d 66 69 6e 64 2d 63 61 6e 64 69 64 61 74 65 2d 61 74 2d 70 6f 69 6e 74 29 29 0a 20 redb-find-candidate-at-point))..
28520 20 20 20 20 20 20 20 20 63 75 72 72 65 6e 74 2d 70 72 65 66 69 78 2d 61 72 67 29 29 0a 20 20 28 ........current-prefix-arg))...(
28540 6c 65 74 20 28 28 66 69 6c 65 20 28 69 66 20 63 75 72 72 65 6e 74 2d 70 72 65 66 69 78 2d 61 72 let.((file.(if.current-prefix-ar
28560 67 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 63 61 6c 69 62 g...................(let.((calib
28580 72 65 64 62 2d 70 72 65 66 65 72 72 65 64 2d 66 6f 72 6d 61 74 20 6e 69 6c 29 29 0a 20 20 20 20 redb-preferred-format.nil)).....
285a0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 61 6c 69 62 72 65 64 62 2d 67 65 74 2d 66 ................(calibredb-get-f
285c0 69 6c 65 2d 70 61 74 68 20 63 61 6e 64 69 64 61 74 65 20 74 29 29 0a 20 20 20 20 20 20 20 20 20 ile-path.candidate.t))..........
285e0 20 20 20 20 20 20 20 28 63 61 6c 69 62 72 65 64 62 2d 67 65 74 2d 66 69 6c 65 2d 70 61 74 68 20 .......(calibredb-get-file-path.
28600 63 61 6e 64 69 64 61 74 65 20 74 29 29 29 29 0a 20 20 20 20 28 63 6f 6e 64 20 28 28 73 2d 63 6f candidate.t)))).....(cond.((s-co
28620 6e 74 61 69 6e 73 3f 20 22 68 74 74 70 22 20 66 69 6c 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 ntains?."http".file)............
28640 28 6c 65 74 20 28 28 75 72 6c 20 28 63 61 6c 69 62 72 65 64 62 2d 67 65 74 61 74 74 72 20 63 61 (let.((url.(calibredb-getattr.ca
28660 6e 64 69 64 61 74 65 20 3a 66 69 6c 65 2d 70 61 74 68 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 ndidate.:file-path))............
28680 20 20 20 20 20 20 28 74 69 74 6c 65 20 28 63 61 6c 69 62 72 65 64 62 2d 67 65 74 61 74 74 72 20 ......(title.(calibredb-getattr.
286a0 63 61 6e 64 69 64 61 74 65 20 3a 62 6f 6f 6b 2d 74 69 74 6c 65 29 29 0a 20 20 20 20 20 20 20 20 candidate.:book-title)).........
286c0 20 20 20 20 20 20 20 20 20 28 74 79 70 65 20 28 63 61 6c 69 62 72 65 64 62 2d 67 65 74 61 74 74 .........(type.(calibredb-getatt
286e0 72 20 63 61 6e 64 69 64 61 74 65 20 3a 62 6f 6f 6b 2d 66 6f 72 6d 61 74 29 29 29 0a 20 20 20 20 r.candidate.:book-format))).....
28700 20 20 20 20 20 20 20 20 20 28 69 66 20 28 73 2d 65 71 75 61 6c 73 2d 70 20 74 69 74 6c 65 20 22 .........(if.(s-equals-p.title."
28720 73 65 61 72 63 68 22 29 20 3b 20 54 4f 44 4f 3a 20 57 6f 72 6b 61 72 6f 75 6e 64 2c 20 6e 6f 77 search").;.TODO:.Workaround,.now
28740 20 69 74 20 6f 6e 6c 79 20 77 6f 72 6b 73 20 77 69 74 68 20 63 61 6c 69 62 72 65 2d 77 65 62 0a .it.only.works.with.calibre-web.
28760 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 61 6c 69 62 72 65 64 62 2d 6f 70 64 73 .................(calibredb-opds
28780 2d 73 65 61 72 63 68 20 63 61 6c 69 62 72 65 64 62 2d 72 6f 6f 74 2d 64 69 72 29 0a 20 20 20 20 -search.calibredb-root-dir).....
287a0 20 20 20 20 20 20 20 20 20 20 20 28 6d 65 73 73 61 67 65 20 75 72 6c 29 0a 20 20 20 20 20 20 20 ...........(message.url)........
287c0 20 20 20 20 20 20 20 20 28 6d 65 73 73 61 67 65 20 74 79 70 65 29 0a 20 20 20 20 20 20 20 20 20 ........(message.type)..........
287e0 20 20 20 20 20 20 28 6c 65 74 20 28 28 6c 69 62 72 61 72 79 20 28 2d 66 69 72 73 74 20 28 6c 61 ......(let.((library.(-first.(la
28800 6d 62 64 61 20 28 6c 69 62 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 mbda.(lib)......................
28820 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 2d 63 6f 6e 74 61 69 6e 73 3f 20 ...................(s-contains?.
28840 28 66 69 6c 65 2d 6e 61 6d 65 2d 64 69 72 65 63 74 6f 72 79 20 28 63 61 72 20 6c 69 62 29 29 20 (file-name-directory.(car.lib)).
28860 75 72 6c 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 url))...........................
28880 20 20 20 20 20 20 20 20 20 20 20 20 63 61 6c 69 62 72 65 64 62 2d 6c 69 62 72 61 72 79 2d 61 6c ............calibredb-library-al
288a0 69 73 74 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 66 20 28 63 61 6c ist)))..................(if.(cal
288c0 69 62 72 65 64 62 2d 6f 70 64 73 2d 6d 61 69 6c 63 61 70 2d 6d 69 6d 65 2d 74 6f 2d 65 78 74 6e ibredb-opds-mailcap-mime-to-extn
288e0 20 74 79 70 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 61 6c .type)......................(cal
28900 69 62 72 65 64 62 2d 6f 70 64 73 2d 64 6f 77 6e 6c 6f 61 64 20 74 69 74 6c 65 20 75 72 6c 20 28 ibredb-opds-download.title.url.(
28920 63 61 6c 69 62 72 65 64 62 2d 6f 70 64 73 2d 6d 61 69 6c 63 61 70 2d 6d 69 6d 65 2d 74 6f 2d 65 calibredb-opds-mailcap-mime-to-e
28940 78 74 6e 20 74 79 70 65 29 20 28 6e 74 68 20 31 20 6c 69 62 72 61 72 79 29 20 28 6e 74 68 20 32 xtn.type).(nth.1.library).(nth.2
28960 20 6c 69 62 72 61 72 79 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 .library))....................(c
28980 61 6c 69 62 72 65 64 62 2d 6f 70 64 73 2d 72 65 71 75 65 73 74 2d 70 61 67 65 20 75 72 6c 20 28 alibredb-opds-request-page.url.(
289a0 6e 74 68 20 31 20 6c 69 62 72 61 72 79 29 20 28 6e 74 68 20 32 20 6c 69 62 72 61 72 79 29 29 29 nth.1.library).(nth.2.library)))
289c0 29 29 29 20 29 0a 20 20 20 20 20 20 20 20 20 20 28 28 73 2d 65 71 75 61 6c 73 3f 20 22 22 20 66 ))).)...........((s-equals?."".f
289e0 69 6c 65 29 20 28 6d 65 73 73 61 67 65 20 22 4e 6f 20 66 69 6c 65 73 2e 22 29 29 0a 20 20 20 20 ile).(message."No.files.")).....
28a00 20 20 20 20 20 20 28 74 20 28 66 69 6e 64 2d 66 69 6c 65 20 66 69 6c 65 29 29 29 29 29 0a 0a 28 ......(t.(find-file.file)))))..(
28a20 64 65 66 75 6e 20 63 61 6c 69 62 72 65 64 62 2d 66 69 6e 64 2d 66 69 6c 65 2d 6f 74 68 65 72 2d defun.calibredb-find-file-other-
28a40 66 72 61 6d 65 20 28 26 6f 70 74 69 6f 6e 61 6c 20 63 61 6e 64 69 64 61 74 65 20 61 72 67 29 0a frame.(&optional.candidate.arg).
28a60 20 20 22 4f 70 65 6e 20 66 69 6c 65 20 69 6e 20 6f 74 68 65 72 20 66 72 61 6d 65 20 6f 66 20 74 .."Open.file.in.other.frame.of.t
28a80 68 65 20 73 65 6c 65 63 74 65 64 20 69 74 65 6d 2e 0a 49 66 20 74 68 65 20 75 6e 69 76 65 72 73 he.selected.item..If.the.univers
28aa0 61 6c 20 70 72 65 66 69 78 20 41 52 47 20 69 73 20 75 73 65 64 2c 20 69 67 6e 6f 72 65 20 60 63 al.prefix.ARG.is.used,.ignore.`c
28ac0 61 6c 69 62 72 65 64 62 2d 70 72 65 66 65 72 72 65 64 2d 66 6f 72 6d 61 74 27 2e 0a 4f 70 74 69 alibredb-preferred-format'..Opti
28ae0 6f 6e 61 6c 20 61 72 67 75 6d 65 6e 74 20 43 41 4e 44 49 44 41 54 45 20 69 73 20 74 68 65 20 73 onal.argument.CANDIDATE.is.the.s
28b00 65 6c 65 63 74 65 64 20 69 74 65 6d 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 0a 20 20 elected.item."...(interactive...
28b20 20 28 6c 69 73 74 20 28 63 61 72 20 28 63 61 6c 69 62 72 65 64 62 2d 66 69 6e 64 2d 63 61 6e 64 .(list.(car.(calibredb-find-cand
28b40 69 64 61 74 65 2d 61 74 2d 70 6f 69 6e 74 29 29 0a 20 20 20 20 20 20 20 20 20 63 75 72 72 65 6e idate-at-point))..........curren
28b60 74 2d 70 72 65 66 69 78 2d 61 72 67 29 29 0a 20 20 28 66 69 6e 64 2d 66 69 6c 65 2d 6f 74 68 65 t-prefix-arg))...(find-file-othe
28b80 72 2d 66 72 61 6d 65 20 28 69 66 20 63 75 72 72 65 6e 74 2d 70 72 65 66 69 78 2d 61 72 67 0a 20 r-frame.(if.current-prefix-arg..
28ba0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 ............................(let
28bc0 20 28 28 63 61 6c 69 62 72 65 64 62 2d 70 72 65 66 65 72 72 65 64 2d 66 6f 72 6d 61 74 20 6e 69 .((calibredb-preferred-format.ni
28be0 6c 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 l)).............................
28c00 20 20 20 28 63 61 6c 69 62 72 65 64 62 2d 67 65 74 2d 66 69 6c 65 2d 70 61 74 68 20 63 61 6e 64 ...(calibredb-get-file-path.cand
28c20 69 64 61 74 65 20 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 idate.t)).......................
28c40 20 20 20 20 20 20 20 28 63 61 6c 69 62 72 65 64 62 2d 67 65 74 2d 66 69 6c 65 2d 70 61 74 68 20 .......(calibredb-get-file-path.
28c60 63 61 6e 64 69 64 61 74 65 20 74 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 63 61 6c 69 62 72 65 64 candidate.t))))..(defun.calibred
28c80 62 2d 6f 70 65 6e 2d 66 69 6c 65 2d 77 69 74 68 2d 64 65 66 61 75 6c 74 2d 74 6f 6f 6c 20 28 26 b-open-file-with-default-tool.(&
28ca0 6f 70 74 69 6f 6e 61 6c 20 63 61 6e 64 69 64 61 74 65 20 61 72 67 29 0a 20 20 22 4f 70 65 6e 20 optional.candidate.arg)..."Open.
28cc0 66 69 6c 65 20 77 69 74 68 20 74 68 65 20 73 79 73 74 65 6d 20 64 65 66 61 75 6c 74 20 74 6f 6f file.with.the.system.default.too
28ce0 6c 2e 0a 49 66 20 74 68 65 20 75 6e 69 76 65 72 73 61 6c 20 70 72 65 66 69 78 20 41 52 47 20 69 l..If.the.universal.prefix.ARG.i
28d00 73 20 75 73 65 64 2c 20 69 67 6e 6f 72 65 20 60 63 61 6c 69 62 72 65 64 62 2d 70 72 65 66 65 72 s.used,.ignore.`calibredb-prefer
28d20 72 65 64 2d 66 6f 72 6d 61 74 27 2e 0a 4f 70 74 69 6f 6e 61 6c 20 61 72 67 75 6d 65 6e 74 20 43 red-format'..Optional.argument.C
28d40 41 4e 44 49 44 41 54 45 20 69 73 20 74 68 65 20 73 65 6c 65 63 74 65 64 20 69 74 65 6d 2e 22 0a ANDIDATE.is.the.selected.item.".
28d60 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 0a 20 20 20 28 6c 69 73 74 20 28 63 61 72 20 28 63 61 ..(interactive....(list.(car.(ca
28d80 6c 69 62 72 65 64 62 2d 66 69 6e 64 2d 63 61 6e 64 69 64 61 74 65 2d 61 74 2d 70 6f 69 6e 74 29 libredb-find-candidate-at-point)
28da0 29 0a 20 20 20 20 20 20 20 20 20 63 75 72 72 65 6e 74 2d 70 72 65 66 69 78 2d 61 72 67 29 29 0a )..........current-prefix-arg)).
28dc0 20 20 28 69 66 20 63 75 72 72 65 6e 74 2d 70 72 65 66 69 78 2d 61 72 67 0a 20 20 20 20 20 20 28 ..(if.current-prefix-arg.......(
28de0 6c 65 74 20 28 28 63 61 6c 69 62 72 65 64 62 2d 70 72 65 66 65 72 72 65 64 2d 66 6f 72 6d 61 74 let.((calibredb-preferred-format
28e00 20 6e 69 6c 29 29 0a 20 20 20 20 20 20 20 20 28 63 61 6c 69 62 72 65 64 62 2d 6f 70 65 6e 2d 77 .nil)).........(calibredb-open-w
28e20 69 74 68 2d 64 65 66 61 75 6c 74 2d 74 6f 6f 6c 20 28 63 61 6c 69 62 72 65 64 62 2d 67 65 74 2d ith-default-tool.(calibredb-get-
28e40 66 69 6c 65 2d 70 61 74 68 20 63 61 6e 64 69 64 61 74 65 20 74 29 29 29 0a 20 20 20 20 28 63 61 file-path.candidate.t))).....(ca
28e60 6c 69 62 72 65 64 62 2d 6f 70 65 6e 2d 77 69 74 68 2d 64 65 66 61 75 6c 74 2d 74 6f 6f 6c 20 28 libredb-open-with-default-tool.(
28e80 63 61 6c 69 62 72 65 64 62 2d 67 65 74 2d 66 69 6c 65 2d 70 61 74 68 20 63 61 6e 64 69 64 61 74 calibredb-get-file-path.candidat
28ea0 65 20 74 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 63 61 6c 69 62 72 65 64 62 2d 71 75 69 63 6b 2d e.t))))..(defun.calibredb-quick-
28ec0 6c 6f 6f 6b 20 28 26 6f 70 74 69 6f 6e 61 6c 20 63 61 6e 64 69 64 61 74 65 20 61 72 67 29 0a 20 look.(&optional.candidate.arg)..
28ee0 20 22 51 75 69 63 6b 20 74 68 65 20 66 69 6c 65 20 77 69 74 68 20 74 68 65 20 71 6c 6d 61 6e 61 ."Quick.the.file.with.the.qlmana
28f00 67 65 2c 20 62 75 74 20 69 74 20 6f 6e 6c 79 20 53 75 70 70 6f 72 74 20 6d 61 63 4f 53 2e 0a 49 ge,.but.it.only.Support.macOS..I
28f20 66 20 74 68 65 20 75 6e 69 76 65 72 73 61 6c 20 70 72 65 66 69 78 20 41 52 47 20 69 73 20 75 73 f.the.universal.prefix.ARG.is.us
28f40 65 64 2c 20 69 67 6e 6f 72 65 20 60 63 61 6c 69 62 72 65 64 62 2d 70 72 65 66 65 72 72 65 64 2d ed,.ignore.`calibredb-preferred-
28f60 66 6f 72 6d 61 74 27 2e 0a 4f 70 74 69 6f 6e 61 6c 20 61 72 67 75 6d 65 6e 74 20 43 41 4e 44 49 format'..Optional.argument.CANDI
28f80 44 41 54 45 20 69 73 20 74 68 65 20 73 65 6c 65 63 74 65 64 20 69 74 65 6d 2e 22 0a 20 20 28 69 DATE.is.the.selected.item."...(i
28fa0 6e 74 65 72 61 63 74 69 76 65 0a 20 20 20 28 6c 69 73 74 20 28 63 61 72 20 28 63 61 6c 69 62 72 nteractive....(list.(car.(calibr
28fc0 65 64 62 2d 66 69 6e 64 2d 63 61 6e 64 69 64 61 74 65 2d 61 74 2d 70 6f 69 6e 74 29 29 0a 20 20 edb-find-candidate-at-point))...
28fe0 20 20 20 20 20 20 20 63 75 72 72 65 6e 74 2d 70 72 65 66 69 78 2d 61 72 67 29 29 0a 20 20 28 6c .......current-prefix-arg))...(l
29000 65 74 20 28 28 66 69 6c 65 20 28 73 68 65 6c 6c 2d 71 75 6f 74 65 2d 61 72 67 75 6d 65 6e 74 0a et.((file.(shell-quote-argument.
29020 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 65 78 70 61 6e 64 2d 66 69 6c 65 2d 6e 61 6d 65 ...............(expand-file-name
29040 20 28 69 66 20 63 75 72 72 65 6e 74 2d 70 72 65 66 69 78 2d 61 72 67 0a 20 20 20 20 20 20 20 20 .(if.current-prefix-arg.........
29060 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 .............................(le
29080 74 20 28 28 63 61 6c 69 62 72 65 64 62 2d 70 72 65 66 65 72 72 65 64 2d 66 6f 72 6d 61 74 20 6e t.((calibredb-preferred-format.n
290a0 69 6c 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 il))............................
290c0 20 20 20 20 20 20 20 20 20 20 20 20 28 63 61 6c 69 62 72 65 64 62 2d 67 65 74 2d 66 69 6c 65 2d ............(calibredb-get-file-
290e0 70 61 74 68 20 63 61 6e 64 69 64 61 74 65 20 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 path.candidate.t))..............
29100 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 61 6c 69 62 72 65 64 62 ......................(calibredb
29120 2d 67 65 74 2d 66 69 6c 65 2d 70 61 74 68 20 63 61 6e 64 69 64 61 74 65 20 74 29 29 29 29 29 29 -get-file-path.candidate.t))))))
29140 0a 20 20 20 20 28 69 66 20 28 65 71 20 73 79 73 74 65 6d 2d 74 79 70 65 20 27 64 61 72 77 69 6e .....(if.(eq.system-type.'darwin
29160 29 0a 20 20 20 20 20 20 20 20 28 63 61 6c 6c 2d 70 72 6f 63 65 73 73 2d 73 68 65 6c 6c 2d 63 6f ).........(call-process-shell-co
29180 6d 6d 61 6e 64 20 28 63 6f 6e 63 61 74 20 22 71 6c 6d 61 6e 61 67 65 20 2d 70 20 22 20 66 69 6c mmand.(concat."qlmanage.-p.".fil
291a0 65 29 20 6e 69 6c 20 30 29 0a 20 20 20 20 20 20 28 6d 65 73 73 61 67 65 20 22 54 68 69 73 20 66 e).nil.0).......(message."This.f
291c0 65 61 74 75 72 65 20 6f 6e 6c 79 20 73 75 70 70 6f 72 74 73 20 6d 61 63 4f 53 2e 22 29 29 29 29 eature.only.supports.macOS."))))
291e0 0a 0a 28 64 65 66 75 6e 20 63 61 6c 69 62 72 65 64 62 2d 72 65 61 64 2d 6d 65 74 61 64 61 74 61 ..(defun.calibredb-read-metadata
29200 73 20 28 66 69 65 6c 64 20 26 6f 70 74 69 6f 6e 61 6c 20 63 61 6e 64 69 64 61 74 65 29 0a 20 20 s.(field.&optional.candidate)...
29220 22 52 65 61 64 20 6d 65 74 61 64 61 74 61 2e 0a 41 72 67 75 6d 65 6e 74 20 46 49 45 4c 44 20 69 "Read.metadata..Argument.FIELD.i
29240 73 20 74 68 65 20 66 69 65 6c 64 20 74 6f 20 72 65 61 64 2e 0a 4f 70 74 69 6f 6e 61 6c 20 61 72 s.the.field.to.read..Optional.ar
29260 67 75 6d 65 6e 74 20 43 41 4e 44 49 44 41 54 45 20 69 73 20 63 61 6e 64 69 64 61 74 65 20 74 6f gument.CANDIDATE.is.candidate.to
29280 20 72 65 61 64 2e 22 0a 20 20 28 6c 65 74 20 28 28 63 61 6e 64 29 29 0a 20 20 20 20 28 69 66 20 .read."...(let.((cand)).....(if.
292a0 28 65 71 20 6d 61 6a 6f 72 2d 6d 6f 64 65 20 27 63 61 6c 69 62 72 65 64 62 2d 73 65 61 72 63 68 (eq.major-mode.'calibredb-search
292c0 2d 6d 6f 64 65 29 0a 20 20 20 20 20 20 20 20 28 69 66 20 63 61 6e 64 69 64 61 74 65 0a 20 20 20 -mode).........(if.candidate....
292e0 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 63 61 6e 64 20 63 61 6e 64 69 64 61 74 65 29 0a 20 .........(setq.cand.candidate)..
29300 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 63 61 6e 64 20 28 63 64 72 20 28 67 65 74 2d 74 65 .........(setq.cand.(cdr.(get-te
29320 78 74 2d 70 72 6f 70 65 72 74 79 20 28 70 6f 69 6e 74 29 20 27 63 61 6c 69 62 72 65 64 62 2d 65 xt-property.(point).'calibredb-e
29340 6e 74 72 79 20 6e 69 6c 29 29 29 29 0a 20 20 20 20 20 20 28 69 66 20 63 61 6e 64 69 64 61 74 65 ntry.nil)))).......(if.candidate
29360 0a 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 63 61 6e 64 20 63 61 6e 64 69 64 61 74 65 29 ...........(setq.cand.candidate)
29380 0a 20 20 20 20 20 20 20 20 28 73 65 74 71 20 63 61 6e 64 20 28 67 65 74 2d 74 65 78 74 2d 70 72 .........(setq.cand.(get-text-pr
293a0 6f 70 65 72 74 79 20 28 70 6f 69 6e 74 2d 6d 69 6e 29 20 27 63 61 6c 69 62 72 65 64 62 2d 65 6e operty.(point-min).'calibredb-en
293c0 74 72 79 20 6e 69 6c 29 29 20 29 29 0a 20 20 20 20 28 63 61 6c 69 62 72 65 64 62 2d 67 65 74 2d try.nil)).)).....(calibredb-get-
293e0 69 6e 69 74 20 66 69 65 6c 64 20 63 61 6e 64 29 29 29 0a 0a 3b 3b 20 6f 72 67 2d 63 61 70 74 75 init.field.cand)))..;;.org-captu
29400 72 65 0a 0a 28 64 65 66 75 6e 20 63 61 6c 69 62 72 65 64 62 2d 63 61 70 74 75 72 65 2d 61 74 2d re..(defun.calibredb-capture-at-
29420 70 6f 69 6e 74 20 28 29 0a 20 20 22 54 4f 44 4f 3a 20 6f 72 67 20 63 61 70 74 75 72 65 20 74 68 point.()..."TODO:.org.capture.th
29440 65 20 63 75 72 72 65 6e 74 20 69 74 65 6d 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 e.current.item."...(interactive)
29460 0a 20 20 28 6c 65 74 20 28 63 61 70 74 75 72 65 2d 70 61 74 68 20 63 61 70 74 75 72 65 2d 74 69 ...(let.(capture-path.capture-ti
29480 74 6c 65 29 0a 20 20 20 20 28 77 69 74 68 2d 63 75 72 72 65 6e 74 2d 62 75 66 66 65 72 20 28 63 tle).....(with-current-buffer.(c
294a0 61 6c 69 62 72 65 64 62 2d 73 65 61 72 63 68 2d 2d 62 75 66 66 65 72 2d 6e 61 6d 65 29 0a 20 20 alibredb-search--buffer-name)...
294c0 20 20 20 20 28 6c 65 74 20 28 28 63 61 6e 64 69 64 61 74 65 73 20 28 63 61 6c 69 62 72 65 64 62 ....(let.((candidates.(calibredb
294e0 2d 66 69 6e 64 2d 6d 61 72 6b 65 64 2d 63 61 6e 64 69 64 61 74 65 73 29 29 29 0a 20 20 20 20 20 -find-marked-candidates)))......
29500 20 20 20 28 75 6e 6c 65 73 73 20 63 61 6e 64 69 64 61 74 65 73 0a 20 20 20 20 20 20 20 20 20 20 ...(unless.candidates...........
29520 28 73 65 74 71 20 63 61 6e 64 69 64 61 74 65 73 20 28 63 61 6c 69 62 72 65 64 62 2d 66 69 6e 64 (setq.candidates.(calibredb-find
29540 2d 63 61 6e 64 69 64 61 74 65 2d 61 74 2d 70 6f 69 6e 74 29 29 29 0a 20 20 20 20 20 20 20 20 28 -candidate-at-point))).........(
29560 64 6f 6c 69 73 74 20 28 63 61 6e 64 20 63 61 6e 64 69 64 61 74 65 73 29 0a 20 20 20 20 20 20 20 dolist.(cand.candidates)........
29580 20 20 20 28 6c 65 74 20 28 28 70 61 74 68 20 28 63 61 6c 69 62 72 65 64 62 2d 67 65 74 2d 66 69 ...(let.((path.(calibredb-get-fi
295a0 6c 65 2d 70 61 74 68 20 63 61 6e 64 20 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 le-path.cand.t))................
295c0 20 28 74 69 74 6c 65 20 28 63 61 6c 69 62 72 65 64 62 2d 67 65 74 61 74 74 72 20 63 61 6e 64 20 .(title.(calibredb-getattr.cand.
295e0 3a 62 6f 6f 6b 2d 74 69 74 6c 65 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 :book-title))).............(setq
29600 20 63 61 70 74 75 72 65 2d 70 61 74 68 20 70 61 74 68 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 .capture-path.path).............
29620 28 73 65 74 71 20 63 61 70 74 75 72 65 2d 74 69 74 6c 65 20 74 69 74 6c 65 29 29 29 29 29 0a 20 (setq.capture-title.title)))))..
29640 20 20 20 28 77 69 74 68 2d 74 65 6d 70 2d 62 75 66 66 65 72 20 28 69 6e 73 65 72 74 20 22 2a 20 ...(with-temp-buffer.(insert."*.
29660 54 4f 44 4f 20 22 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 TODO.").......................(i
29680 6e 73 65 72 74 20 28 66 6f 72 6d 61 74 20 22 5b 5b 66 69 6c 65 3a 25 73 5d 5b 25 73 5d 5d 22 20 nsert.(format."[[file:%s][%s]]".
296a0 63 61 70 74 75 72 65 2d 70 61 74 68 20 63 61 70 74 75 72 65 2d 74 69 74 6c 65 29 29 0a 20 20 20 capture-path.capture-title))....
296c0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 62 75 66 66 65 72 2d 73 74 72 69 6e ...................(buffer-strin
296e0 67 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 63 61 6c 69 62 72 65 64 62 2d 61 64 64 20 28 61 72 67 g))))..(defun.calibredb-add.(arg
29700 29 0a 20 20 22 41 64 64 20 66 69 6c 65 28 73 29 20 69 6e 74 6f 20 63 61 6c 69 62 72 65 64 62 2e )..."Add.file(s).into.calibredb.
29720 0a 57 69 74 68 20 69 76 79 2d 6d 6f 64 65 3a 20 41 64 64 20 6d 61 72 6b 65 64 20 69 74 65 6d 73 .With.ivy-mode:.Add.marked.items
29740 2e 0a 4f 74 68 65 72 73 3a 20 41 64 64 20 6f 6e 6c 79 20 6f 6e 65 20 69 74 65 6d 2e 0a 49 66 20 ..Others:.Add.only.one.item..If.
29760 70 72 65 66 69 78 20 41 52 47 20 69 73 20 6e 6f 6e 2d 6e 69 6c 2c 20 6b 65 65 70 20 74 68 65 20 prefix.ARG.is.non-nil,.keep.the.
29780 66 69 6c 65 73 20 61 66 74 65 72 20 61 64 64 69 6e 67 20 77 69 74 68 6f 75 74 20 70 72 6f 6d 70 files.after.adding.without.promp
297a0 74 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 20 22 50 22 29 0a 20 20 28 63 6f 6e 64 20 t."...(interactive."P")...(cond.
297c0 28 28 61 6e 64 20 28 62 6f 75 6e 64 70 20 27 69 76 79 2d 6d 6f 64 65 29 0a 20 20 20 20 20 20 20 ((and.(boundp.'ivy-mode)........
297e0 20 20 20 20 20 20 20 69 76 79 2d 6d 6f 64 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 .......ivy-mode...............(f
29800 62 6f 75 6e 64 70 20 27 63 6f 75 6e 73 65 6c 2d 2d 66 69 6e 64 2d 66 69 6c 65 2d 31 29 29 0a 20 boundp.'counsel--find-file-1))..
29820 20 20 20 20 20 20 20 20 28 63 6f 75 6e 73 65 6c 2d 2d 66 69 6e 64 2d 66 69 6c 65 2d 31 0a 20 20 ........(counsel--find-file-1...
29840 20 20 20 20 20 20 20 20 22 41 64 64 20 66 69 6c 65 28 73 29 20 74 6f 20 63 61 6c 69 62 72 65 3a ........"Add.file(s).to.calibre:
29860 20 22 20 63 61 6c 69 62 72 65 64 62 2d 64 6f 77 6e 6c 6f 61 64 2d 64 69 72 0a 20 20 20 20 20 20 .".calibredb-download-dir.......
29880 20 20 20 20 28 6c 61 6d 62 64 61 20 28 66 69 6c 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 ....(lambda.(file).............(
298a0 63 61 6c 69 62 72 65 64 62 2d 63 6f 75 6e 73 65 6c 2d 61 64 64 2d 66 69 6c 65 2d 61 63 74 69 6f calibredb-counsel-add-file-actio
298c0 6e 20 61 72 67 20 66 69 6c 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 27 63 61 6c 69 62 72 65 64 n.arg.file))...........'calibred
298e0 62 2d 61 64 64 29 29 0a 20 20 20 20 20 20 20 20 28 74 20 28 6c 65 74 20 28 28 66 69 6c 65 20 28 b-add)).........(t.(let.((file.(
29900 72 65 61 64 2d 66 69 6c 65 2d 6e 61 6d 65 20 22 41 64 64 20 61 20 66 69 6c 65 20 74 6f 20 43 61 read-file-name."Add.a.file.to.Ca
29920 6c 69 62 72 65 3a 20 22 20 63 61 6c 69 62 72 65 64 62 2d 64 6f 77 6e 6c 6f 61 64 2d 64 69 72 29 libre:.".calibredb-download-dir)
29940 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 61 6c 69 62 72 65 64 62 2d 63 6f 75 6e 73 ))..............(calibredb-couns
29960 65 6c 2d 61 64 64 2d 66 69 6c 65 2d 61 63 74 69 6f 6e 20 61 72 67 20 66 69 6c 65 29 29 29 29 0a el-add-file-action.arg.file)))).
29980 20 20 28 69 66 20 28 65 71 75 61 6c 20 6d 61 6a 6f 72 2d 6d 6f 64 65 20 27 63 61 6c 69 62 72 65 ..(if.(equal.major-mode.'calibre
299a0 64 62 2d 73 65 61 72 63 68 2d 6d 6f 64 65 29 0a 20 20 20 20 20 20 28 63 61 6c 69 62 72 65 64 62 db-search-mode).......(calibredb
299c0 2d 73 65 61 72 63 68 2d 72 65 66 72 65 73 68 2d 6f 72 2d 72 65 73 75 6d 65 29 29 29 0a 0a 28 64 -search-refresh-or-resume)))..(d
299e0 65 66 75 6e 20 63 61 6c 69 62 72 65 64 62 2d 61 64 64 2d 66 6f 72 6d 61 74 20 28 26 6f 70 74 69 efun.calibredb-add-format.(&opti
29a00 6f 6e 61 6c 20 63 61 6e 64 69 64 61 74 65 29 0a 20 20 22 41 64 64 20 66 6f 72 6d 61 74 20 74 6f onal.candidate)..."Add.format.to
29a20 20 73 65 6c 65 63 74 65 64 20 69 74 65 6d 2e 0a 4f 70 74 69 6f 6e 61 6c 20 61 72 67 75 6d 65 6e .selected.item..Optional.argumen
29a40 74 20 43 41 4e 44 49 44 41 54 45 20 69 73 20 74 68 65 20 73 65 6c 65 63 74 65 64 20 69 74 65 6d t.CANDIDATE.is.the.selected.item
29a60 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 0a 20 20 28 75 6e 6c 65 73 73 20 63 61 6e ."...(interactive)...(unless.can
29a80 64 69 64 61 74 65 0a 20 20 20 20 28 73 65 74 71 20 63 61 6e 64 69 64 61 74 65 20 28 63 61 72 20 didate.....(setq.candidate.(car.
29aa0 28 63 61 6c 69 62 72 65 64 62 2d 66 69 6e 64 2d 63 61 6e 64 69 64 61 74 65 2d 61 74 2d 70 6f 69 (calibredb-find-candidate-at-poi
29ac0 6e 74 29 29 29 29 0a 20 20 28 63 61 6c 69 62 72 65 64 62 2d 63 6f 6d 6d 61 6e 64 20 3a 63 6f 6d nt))))...(calibredb-command.:com
29ae0 6d 61 6e 64 20 22 61 64 64 5f 66 6f 72 6d 61 74 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 mand."add_format"...............
29b00 20 20 20 20 20 20 20 3a 69 6e 70 75 74 20 28 63 6f 6e 63 61 74 20 28 63 61 6c 69 62 72 65 64 62 .......:input.(concat.(calibredb
29b20 2d 67 65 74 61 74 74 72 20 63 61 6e 64 69 64 61 74 65 20 3a 69 64 29 20 22 20 22 20 28 63 61 6c -getattr.candidate.:id).".".(cal
29b40 69 62 72 65 64 62 2d 63 6f 6d 70 6c 65 74 65 2d 66 69 6c 65 2d 71 75 6f 74 65 20 22 41 64 64 20 ibredb-complete-file-quote."Add.
29b60 66 6f 72 6d 61 74 20 74 6f 20 73 65 6c 65 63 74 65 64 20 69 74 65 6d 22 29 20 29 0a 20 20 20 20 format.to.selected.item").).....
29b80 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 6c 69 62 72 61 72 79 20 28 66 6f 72 6d 61 .................:library.(forma
29ba0 74 20 22 2d 2d 6c 69 62 72 61 72 79 2d 70 61 74 68 20 25 73 22 20 28 63 61 6c 69 62 72 65 64 62 t."--library-path.%s".(calibredb
29bc0 2d 72 6f 6f 74 2d 64 69 72 2d 71 75 6f 74 65 29 29 29 0a 20 20 28 69 66 20 28 65 71 75 61 6c 20 -root-dir-quote)))...(if.(equal.
29be0 6d 61 6a 6f 72 2d 6d 6f 64 65 20 27 63 61 6c 69 62 72 65 64 62 2d 73 65 61 72 63 68 2d 6d 6f 64 major-mode.'calibredb-search-mod
29c00 65 29 0a 20 20 20 20 20 20 28 63 61 6c 69 62 72 65 64 62 2d 73 65 61 72 63 68 2d 72 65 66 72 65 e).......(calibredb-search-refre
29c20 73 68 2d 6f 72 2d 72 65 73 75 6d 65 29 29 29 0a 0a 28 64 65 66 75 6e 20 63 61 6c 69 62 72 65 64 sh-or-resume)))..(defun.calibred
29c40 62 2d 61 64 64 2d 64 69 72 20 28 26 6f 70 74 69 6f 6e 61 6c 20 6f 70 74 69 6f 6e 29 0a 20 20 22 b-add-dir.(&optional.option)..."
29c60 41 64 64 20 61 6c 6c 20 66 69 6c 65 73 20 69 6e 20 61 20 64 69 72 65 63 74 6f 72 79 20 69 6e 74 Add.all.files.in.a.directory.int
29c80 6f 20 63 61 6c 69 62 72 65 20 64 61 74 61 62 61 73 65 2e 0a 42 79 20 64 65 66 61 75 6c 74 20 6f o.calibre.database..By.default.o
29ca0 6e 6c 79 20 66 69 6c 65 73 20 74 68 61 74 20 68 61 76 65 20 65 78 74 65 6e 73 69 6f 6e 73 20 6f nly.files.that.have.extensions.o
29cc0 66 20 6b 6e 6f 77 6e 20 65 2d 62 6f 6f 6b 20 66 69 6c 65 0a 74 79 70 65 73 20 61 72 65 20 61 64 f.known.e-book.file.types.are.ad
29ce0 64 65 64 2e 0a 4f 70 74 69 6f 6e 61 6c 20 61 72 67 75 6d 65 6e 74 20 4f 50 54 49 4f 4e 20 69 73 ded..Optional.argument.OPTION.is
29d00 20 61 64 64 69 74 69 6f 6e 61 6c 20 6f 70 74 69 6f 6e 73 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 .additional.options."...(interac
29d20 74 69 76 65 29 0a 20 20 28 63 61 6c 69 62 72 65 64 62 2d 63 6f 6d 6d 61 6e 64 20 3a 63 6f 6d 6d tive)...(calibredb-command.:comm
29d40 61 6e 64 20 22 61 64 64 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a and."add"......................:
29d60 69 6e 70 75 74 20 28 66 6f 72 6d 61 74 20 22 2d 2d 61 64 64 20 25 73 22 20 28 63 6f 6e 63 61 74 input.(format."--add.%s".(concat
29d80 20 28 66 69 6c 65 2d 6e 61 6d 65 2d 61 73 2d 64 69 72 65 63 74 6f 72 79 20 28 63 61 6c 69 62 72 .(file-name-as-directory.(calibr
29da0 65 64 62 2d 63 6f 6d 70 6c 65 74 65 2d 64 69 72 65 63 74 6f 72 79 2d 71 75 6f 74 65 20 22 41 64 edb-complete-directory-quote."Ad
29dc0 64 20 61 20 64 69 72 65 63 74 6f 72 79 20 74 6f 20 43 61 6c 69 62 72 65 22 29 29 20 22 2a 22 29 d.a.directory.to.Calibre"))."*")
29de0 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 6f 70 74 69 6f 6e 20 28 )......................:option.(
29e00 6f 72 20 6f 70 74 69 6f 6e 20 22 22 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 or.option."")...................
29e20 20 20 20 3a 6c 69 62 72 61 72 79 20 28 66 6f 72 6d 61 74 20 22 2d 2d 6c 69 62 72 61 72 79 2d 70 ...:library.(format."--library-p
29e40 61 74 68 20 25 73 22 20 28 63 61 6c 69 62 72 65 64 62 2d 72 6f 6f 74 2d 64 69 72 2d 71 75 6f 74 ath.%s".(calibredb-root-dir-quot
29e60 65 29 29 29 0a 20 20 28 69 66 20 28 65 71 75 61 6c 20 6d 61 6a 6f 72 2d 6d 6f 64 65 20 27 63 61 e)))...(if.(equal.major-mode.'ca
29e80 6c 69 62 72 65 64 62 2d 73 65 61 72 63 68 2d 6d 6f 64 65 29 0a 20 20 20 20 20 20 28 63 61 6c 69 libredb-search-mode).......(cali
29ea0 62 72 65 64 62 2d 73 65 61 72 63 68 2d 72 65 66 72 65 73 68 2d 6f 72 2d 72 65 73 75 6d 65 29 29 bredb-search-refresh-or-resume))
29ec0 29 0a 0a 28 64 65 66 75 6e 20 63 61 6c 69 62 72 65 64 62 2d 63 6c 6f 6e 65 20 28 29 0a 20 20 22 )..(defun.calibredb-clone.()..."
29ee0 43 72 65 61 74 65 20 61 20 63 6c 6f 6e 65 20 6f 66 20 74 68 65 20 63 75 72 72 65 6e 74 20 6c 69 Create.a.clone.of.the.current.li
29f00 62 72 61 72 79 2e 0a 54 68 69 73 20 63 72 65 61 74 65 73 20 61 20 6e 65 77 2c 20 65 6d 70 74 79 brary..This.creates.a.new,.empty
29f20 20 6c 69 62 72 61 72 79 20 74 68 61 74 20 68 61 73 20 61 6c 6c 20 74 68 65 20 73 61 6d 65 20 63 .library.that.has.all.the.same.c
29f40 75 73 74 6f 6d 0a 63 6f 6c 75 6d 6e 73 2c 20 56 69 72 74 75 61 6c 20 6c 69 62 72 61 72 69 65 73 ustom.columns,.Virtual.libraries
29f60 20 61 6e 64 20 6f 74 68 65 72 20 73 65 74 74 69 6e 67 73 20 61 73 20 74 68 65 20 63 75 72 72 65 .and.other.settings.as.the.curre
29f80 6e 74 0a 6c 69 62 72 61 72 79 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 0a 20 20 28 nt.library."...(interactive)...(
29fa0 63 61 6c 69 62 72 65 64 62 2d 63 6f 6d 6d 61 6e 64 20 3a 63 6f 6d 6d 61 6e 64 20 22 63 6c 6f 6e calibredb-command.:command."clon
29fc0 65 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 69 6e 70 75 74 20 28 e"......................:input.(
29fe0 63 61 6c 69 62 72 65 64 62 2d 63 6f 6d 70 6c 65 74 65 2d 66 69 6c 65 2d 71 75 6f 74 65 20 22 43 calibredb-complete-file-quote."C
2a000 6c 6f 6e 65 20 6c 69 62 61 72 79 20 74 6f 20 22 29 29 29 0a 0a 28 64 65 66 75 6e 20 63 61 6c 69 lone.libary.to.")))..(defun.cali
2a020 62 72 65 64 62 2d 63 6f 6d 70 6c 65 74 65 2d 66 69 6c 65 2d 71 75 6f 74 65 20 28 26 6f 70 74 69 bredb-complete-file-quote.(&opti
2a040 6f 6e 61 6c 20 61 72 67 20 26 72 65 73 74 20 72 65 73 74 29 0a 20 20 22 47 65 74 20 71 75 6f 74 onal.arg.&rest.rest)..."Get.quot
2a060 65 64 20 66 69 6c 65 20 6e 61 6d 65 20 75 73 69 6e 67 20 63 6f 6d 70 6c 65 74 69 6f 6e 2e 0a 4f ed.file.name.using.completion..O
2a080 70 74 69 6f 6e 61 6c 20 61 72 67 75 6d 65 6e 74 20 41 52 47 20 69 73 20 74 68 65 20 70 72 6f 6d ptional.argument.ARG.is.the.prom
2a0a0 70 74 2e 0a 4f 70 74 69 6f 6e 61 6c 20 61 72 67 75 6d 65 6e 74 20 52 45 53 54 20 69 73 20 74 68 pt..Optional.argument.REST.is.th
2a0c0 65 20 72 65 73 74 2e 22 0a 20 20 28 6c 65 74 20 28 28 66 69 6c 65 20 28 72 65 61 64 2d 66 69 6c e.rest."...(let.((file.(read-fil
2a0e0 65 2d 6e 61 6d 65 20 28 66 6f 72 6d 61 74 20 22 25 73 3a 20 22 20 61 72 67 29 20 28 70 6f 70 20 e-name.(format."%s:.".arg).(pop.
2a100 72 65 73 74 29 29 29 29 0a 20 20 20 20 28 73 68 65 6c 6c 2d 71 75 6f 74 65 2d 61 72 67 75 6d 65 rest)))).....(shell-quote-argume
2a120 6e 74 20 28 65 78 70 61 6e 64 2d 66 69 6c 65 2d 6e 61 6d 65 20 66 69 6c 65 29 29 29 29 0a 0a 28 nt.(expand-file-name.file))))..(
2a140 64 65 66 75 6e 20 63 61 6c 69 62 72 65 64 62 2d 63 6f 6d 70 6c 65 74 65 2d 64 69 72 65 63 74 6f defun.calibredb-complete-directo
2a160 72 79 2d 71 75 6f 74 65 20 28 26 6f 70 74 69 6f 6e 61 6c 20 61 72 67 20 26 72 65 73 74 20 72 65 ry-quote.(&optional.arg.&rest.re
2a180 73 74 29 0a 20 20 22 47 65 74 20 71 75 6f 74 65 64 20 64 69 72 65 63 74 6f 72 79 20 6e 61 6d 65 st)..."Get.quoted.directory.name
2a1a0 20 75 73 69 6e 67 20 63 6f 6d 70 6c 65 74 69 6f 6e 2e 0a 4f 70 74 69 6f 6e 61 6c 20 61 72 67 75 .using.completion..Optional.argu
2a1c0 6d 65 6e 74 20 41 52 47 20 69 73 20 74 68 65 20 70 72 6f 6d 70 74 2e 0a 4f 70 74 69 6f 6e 61 6c ment.ARG.is.the.prompt..Optional
2a1e0 20 61 72 67 75 6d 65 6e 74 20 52 45 53 54 20 69 73 20 74 68 65 20 72 65 73 74 2e 22 0a 20 20 28 .argument.REST.is.the.rest."...(
2a200 6c 65 74 20 28 28 66 69 6c 65 20 28 72 65 61 64 2d 64 69 72 65 63 74 6f 72 79 2d 6e 61 6d 65 20 let.((file.(read-directory-name.
2a220 28 66 6f 72 6d 61 74 20 22 25 73 3a 20 22 20 61 72 67 29 20 28 70 6f 70 20 72 65 73 74 29 29 29 (format."%s:.".arg).(pop.rest)))
2a240 29 0a 20 20 20 20 28 73 68 65 6c 6c 2d 71 75 6f 74 65 2d 61 72 67 75 6d 65 6e 74 20 28 65 78 70 ).....(shell-quote-argument.(exp
2a260 61 6e 64 2d 66 69 6c 65 2d 6e 61 6d 65 20 66 69 6c 65 29 29 29 29 0a 0a 3b 3b 20 72 65 6d 6f 76 and-file-name.file))))..;;.remov
2a280 65 0a 0a 28 64 65 66 75 6e 20 63 61 6c 69 62 72 65 64 62 2d 72 65 6d 6f 76 65 20 28 26 6f 70 74 e..(defun.calibredb-remove.(&opt
2a2a0 69 6f 6e 61 6c 20 63 61 6e 64 69 64 61 74 65 29 0a 20 20 22 52 65 6d 6f 76 65 20 74 68 65 20 69 ional.candidate)..."Remove.the.i
2a2c0 74 65 6d 20 61 74 20 70 6f 69 6e 74 2e 0a 4f 70 74 69 6f 6e 61 6c 20 61 72 67 75 6d 65 6e 74 20 tem.at.point..Optional.argument.
2a2e0 43 41 4e 44 49 44 41 54 45 20 69 73 20 74 68 65 20 69 74 65 6d 20 61 74 20 70 6f 69 6e 74 2e 22 CANDIDATE.is.the.item.at.point."
2a300 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 0a 20 20 28 75 6e 6c 65 73 73 20 63 61 6e 64 69 ...(interactive)...(unless.candi
2a320 64 61 74 65 0a 20 20 20 20 28 73 65 74 71 20 63 61 6e 64 69 64 61 74 65 20 28 63 61 72 20 28 63 date.....(setq.candidate.(car.(c
2a340 61 6c 69 62 72 65 64 62 2d 66 69 6e 64 2d 63 61 6e 64 69 64 61 74 65 2d 61 74 2d 70 6f 69 6e 74 alibredb-find-candidate-at-point
2a360 29 29 29 29 0a 20 20 28 6c 65 74 20 28 28 69 64 20 28 63 61 6c 69 62 72 65 64 62 2d 67 65 74 61 ))))...(let.((id.(calibredb-geta
2a380 74 74 72 20 63 61 6e 64 69 64 61 74 65 20 3a 69 64 29 29 0a 20 20 20 20 20 20 20 20 28 74 69 74 ttr.candidate.:id)).........(tit
2a3a0 6c 65 20 28 63 61 6c 69 62 72 65 64 62 2d 67 65 74 61 74 74 72 20 63 61 6e 64 69 64 61 74 65 20 le.(calibredb-getattr.candidate.
2a3c0 3a 62 6f 6f 6b 2d 74 69 74 6c 65 29 29 29 0a 20 20 20 20 28 69 66 20 28 79 65 73 2d 6f 72 2d 6e :book-title))).....(if.(yes-or-n
2a3e0 6f 2d 70 20 28 63 6f 6e 63 61 74 20 22 41 72 65 20 79 6f 75 20 73 75 72 65 20 74 6f 20 6d 6f 76 o-p.(concat."Are.you.sure.to.mov
2a400 65 3a 20 22 20 69 64 20 22 20 2d 20 22 20 74 69 74 6c 65 20 22 20 74 6f 20 72 65 63 79 63 6c 65 e:.".id.".-.".title.".to.recycle
2a420 20 62 69 6e 3f 22 29 29 0a 20 20 20 20 20 20 20 20 28 63 61 6c 69 62 72 65 64 62 2d 63 6f 6d 6d .bin?")).........(calibredb-comm
2a440 61 6e 64 20 3a 63 6f 6d 6d 61 6e 64 20 22 72 65 6d 6f 76 65 22 0a 20 20 20 20 20 20 20 20 20 20 and.:command."remove"...........
2a460 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 69 64 20 69 64 0a 20 20 20 20 20 20 20 20 .................:id.id.........
2a480 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 6c 69 62 72 61 72 79 20 28 66 6f 72 ...................:library.(for
2a4a0 6d 61 74 20 22 2d 2d 6c 69 62 72 61 72 79 2d 70 61 74 68 20 25 73 22 20 28 63 61 6c 69 62 72 65 mat."--library-path.%s".(calibre
2a4c0 64 62 2d 72 6f 6f 74 2d 64 69 72 2d 71 75 6f 74 65 29 29 29 29 0a 20 20 20 20 28 63 6f 6e 64 20 db-root-dir-quote)))).....(cond.
2a4e0 28 28 65 71 75 61 6c 20 6d 61 6a 6f 72 2d 6d 6f 64 65 20 27 63 61 6c 69 62 72 65 64 62 2d 73 68 ((equal.major-mode.'calibredb-sh
2a500 6f 77 2d 6d 6f 64 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 6b 69 6c 6c 2d 62 75 66 66 65 72 ow-mode)............(kill-buffer
2a520 20 28 63 61 6c 69 62 72 65 64 62 2d 73 68 6f 77 2d 2d 62 75 66 66 65 72 2d 6e 61 6d 65 20 63 61 .(calibredb-show--buffer-name.ca
2a540 6e 64 69 64 61 74 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 63 61 6c 69 62 72 65 64 62 2d ndidate))............(calibredb-
2a560 73 65 61 72 63 68 2d 72 65 66 72 65 73 68 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 28 65 71 20 search-refresh))...........((eq.
2a580 6d 61 6a 6f 72 2d 6d 6f 64 65 20 27 63 61 6c 69 62 72 65 64 62 2d 73 65 61 72 63 68 2d 6d 6f 64 major-mode.'calibredb-search-mod
2a5a0 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 63 61 6c 69 62 72 65 64 62 2d 73 65 61 72 63 68 2d e)............(calibredb-search-
2a5c0 72 65 66 72 65 73 68 2d 6f 72 2d 72 65 73 75 6d 65 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 63 refresh-or-resume)))))..(defun.c
2a5e0 61 6c 69 62 72 65 64 62 2d 72 65 6d 6f 76 65 2d 6d 61 72 6b 65 64 2d 69 74 65 6d 73 20 28 61 72 alibredb-remove-marked-items.(ar
2a600 67 29 0a 20 20 22 52 65 6d 6f 76 65 20 74 68 65 20 6d 61 72 6b 65 64 20 69 74 65 6d 28 73 29 2e g)..."Remove.the.marked.item(s).
2a620 0a 49 66 20 70 72 65 66 69 78 20 41 52 47 20 69 73 20 6e 6f 6e 2d 6e 69 6c 2c 20 64 65 6c 65 74 .If.prefix.ARG.is.non-nil,.delet
2a640 65 20 74 68 65 20 66 69 6c 65 73 20 77 69 74 68 6f 75 74 20 70 72 6f 6d 70 74 2e 22 0a 20 20 28 e.the.files.without.prompt."...(
2a660 69 6e 74 65 72 61 63 74 69 76 65 20 22 50 22 29 0a 20 20 28 6c 65 74 20 28 28 63 61 6e 64 69 64 interactive."P")...(let.((candid
2a680 61 74 65 73 20 28 63 61 6c 69 62 72 65 64 62 2d 66 69 6e 64 2d 6d 61 72 6b 65 64 2d 63 61 6e 64 ates.(calibredb-find-marked-cand
2a6a0 69 64 61 74 65 73 29 29 29 0a 20 20 20 20 28 75 6e 6c 65 73 73 20 63 61 6e 64 69 64 61 74 65 73 idates))).....(unless.candidates
2a6c0 0a 20 20 20 20 20 20 28 73 65 74 71 20 63 61 6e 64 69 64 61 74 65 73 20 28 63 61 6c 69 62 72 65 .......(setq.candidates.(calibre
2a6e0 64 62 2d 66 69 6e 64 2d 63 61 6e 64 69 64 61 74 65 2d 61 74 2d 70 6f 69 6e 74 29 29 29 0a 20 20 db-find-candidate-at-point)))...
2a700 20 20 28 6c 65 74 20 28 28 69 64 73 20 28 6d 61 70 63 6f 6e 63 61 74 20 28 6c 61 6d 62 64 61 20 ..(let.((ids.(mapconcat.(lambda.
2a720 28 63 61 6e 64 29 20 28 63 61 6c 69 62 72 65 64 62 2d 67 65 74 61 74 74 72 20 63 61 6e 64 20 3a (cand).(calibredb-getattr.cand.:
2a740 69 64 29 29 20 20 63 61 6e 64 69 64 61 74 65 73 20 22 2c 22 20 29 29 29 0a 20 20 20 20 20 20 3b id))..candidates.",".))).......;
2a760 3b 20 49 66 20 77 69 74 68 20 70 72 65 66 69 78 2c 20 64 65 6c 65 74 65 20 77 69 74 68 6f 75 74 ;.If.with.prefix,.delete.without
2a780 20 70 72 6f 6d 70 74 0a 20 20 20 20 20 20 28 69 66 20 61 72 67 0a 20 20 20 20 20 20 20 20 20 20 .prompt.......(if.arg...........
2a7a0 28 70 72 6f 67 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 63 61 6c 69 62 72 65 64 62 2d 63 6f (progn.............(calibredb-co
2a7c0 6d 6d 61 6e 64 20 3a 63 6f 6d 6d 61 6e 64 20 22 72 65 6d 6f 76 65 22 0a 20 20 20 20 20 20 20 20 mmand.:command."remove".........
2a7e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 69 64 20 69 64 73 0a 20 .......................:id.ids..
2a800 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 6c ..............................:l
2a820 69 62 72 61 72 79 20 28 66 6f 72 6d 61 74 20 22 2d 2d 6c 69 62 72 61 72 79 2d 70 61 74 68 20 25 ibrary.(format."--library-path.%
2a840 73 22 20 28 63 61 6c 69 62 72 65 64 62 2d 72 6f 6f 74 2d 64 69 72 2d 71 75 6f 74 65 29 29 29 0a s".(calibredb-root-dir-quote))).
2a860 20 20 20 20 20 20 20 20 20 20 20 20 28 6d 65 73 73 61 67 65 20 22 44 65 6c 65 74 65 64 20 25 73 ............(message."Deleted.%s
2a880 22 20 69 64 73 29 29 0a 20 20 20 20 20 20 20 20 28 69 66 20 28 79 65 73 2d 6f 72 2d 6e 6f 2d 70 ".ids)).........(if.(yes-or-no-p
2a8a0 20 28 63 6f 6e 63 61 74 20 22 41 72 65 20 79 6f 75 20 73 75 72 65 20 74 6f 20 6d 6f 76 65 3a 20 .(concat."Are.you.sure.to.move:.
2a8c0 22 20 69 64 73 20 22 20 74 6f 20 72 65 63 79 63 6c 65 20 62 69 6e 3f 22 29 29 0a 20 20 20 20 20 ".ids.".to.recycle.bin?"))......
2a8e0 20 20 20 20 20 20 20 28 63 61 6c 69 62 72 65 64 62 2d 63 6f 6d 6d 61 6e 64 20 3a 63 6f 6d 6d 61 .......(calibredb-command.:comma
2a900 6e 64 20 22 72 65 6d 6f 76 65 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 nd."remove".....................
2a920 20 20 20 20 20 20 20 20 20 20 20 3a 69 64 20 69 64 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 ...........:id.ids..............
2a940 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 6c 69 62 72 61 72 79 20 28 66 6f 72 6d ..................:library.(form
2a960 61 74 20 22 2d 2d 6c 69 62 72 61 72 79 2d 70 61 74 68 20 25 73 22 20 28 63 61 6c 69 62 72 65 64 at."--library-path.%s".(calibred
2a980 62 2d 72 6f 6f 74 2d 64 69 72 2d 71 75 6f 74 65 29 29 29 29 29 29 0a 20 20 20 20 28 69 66 20 28 b-root-dir-quote)))))).....(if.(
2a9a0 65 71 20 6d 61 6a 6f 72 2d 6d 6f 64 65 20 27 63 61 6c 69 62 72 65 64 62 2d 73 65 61 72 63 68 2d eq.major-mode.'calibredb-search-
2a9c0 6d 6f 64 65 29 0a 20 20 20 20 20 20 20 20 28 63 61 6c 69 62 72 65 64 62 2d 73 65 61 72 63 68 2d mode).........(calibredb-search-
2a9e0 72 65 66 72 65 73 68 2d 6f 72 2d 72 65 73 75 6d 65 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 63 61 refresh-or-resume))))..(defun.ca
2aa00 6c 69 62 72 65 64 62 2d 72 65 6d 6f 76 65 2d 66 6f 72 6d 61 74 20 28 26 6f 70 74 69 6f 6e 61 6c libredb-remove-format.(&optional
2aa20 20 63 61 6e 64 69 64 61 74 65 29 0a 20 20 22 52 65 6d 6f 76 65 20 74 68 65 20 73 6c 65 63 74 65 .candidate)..."Remove.the.slecte
2aa40 64 20 66 6f 72 6d 61 74 2e 0a 4f 70 74 69 6f 6e 61 6c 20 61 72 67 75 6d 65 6e 74 20 43 41 4e 44 d.format..Optional.argument.CAND
2aa60 49 44 41 54 45 20 69 73 20 74 68 65 20 73 65 6c 65 63 74 65 64 20 69 74 65 6d 2e 22 0a 20 20 28 IDATE.is.the.selected.item."...(
2aa80 69 6e 74 65 72 61 63 74 69 76 65 29 0a 20 20 28 75 6e 6c 65 73 73 20 63 61 6e 64 69 64 61 74 65 interactive)...(unless.candidate
2aaa0 0a 20 20 20 20 28 73 65 74 71 20 63 61 6e 64 69 64 61 74 65 20 28 63 61 72 20 28 63 61 6c 69 62 .....(setq.candidate.(car.(calib
2aac0 72 65 64 62 2d 66 69 6e 64 2d 63 61 6e 64 69 64 61 74 65 2d 61 74 2d 70 6f 69 6e 74 29 29 29 29 redb-find-candidate-at-point))))
2aae0 0a 20 20 28 6c 65 74 20 28 28 69 64 20 28 63 61 6c 69 62 72 65 64 62 2d 67 65 74 61 74 74 72 20 ...(let.((id.(calibredb-getattr.
2ab00 63 61 6e 64 69 64 61 74 65 20 3a 69 64 29 29 0a 20 20 20 20 20 20 20 20 28 66 6f 72 6d 61 74 20 candidate.:id)).........(format.
2ab20 28 63 61 6c 69 62 72 65 64 62 2d 67 65 74 61 74 74 72 20 63 61 6e 64 69 64 61 74 65 20 3a 62 6f (calibredb-getattr.candidate.:bo
2ab40 6f 6b 2d 66 6f 72 6d 61 74 29 29 0a 20 20 20 20 20 20 20 20 28 74 69 74 6c 65 20 28 63 61 6c 69 ok-format)).........(title.(cali
2ab60 62 72 65 64 62 2d 67 65 74 61 74 74 72 20 63 61 6e 64 69 64 61 74 65 20 3a 62 6f 6f 6b 2d 74 69 bredb-getattr.candidate.:book-ti
2ab80 74 6c 65 29 29 29 0a 20 20 20 20 28 69 66 20 28 79 65 73 2d 6f 72 2d 6e 6f 2d 70 20 28 63 6f 6e tle))).....(if.(yes-or-no-p.(con
2aba0 63 61 74 20 22 43 6f 6e 66 69 72 6d 20 44 65 6c 65 74 65 3a 20 69 64 20 2d 20 22 20 69 64 20 22 cat."Confirm.Delete:.id.-.".id."
2abc0 2c 20 74 69 74 6c 65 20 2d 20 22 20 74 69 74 6c 65 20 22 2c 20 66 6f 72 6d 61 74 20 2d 20 22 20 ,.title.-.".title.",.format.-.".
2abe0 66 6f 72 6d 61 74 29 29 0a 20 20 20 20 20 20 20 20 28 63 61 6c 69 62 72 65 64 62 2d 63 6f 6d 6d format)).........(calibredb-comm
2ac00 61 6e 64 20 3a 63 6f 6d 6d 61 6e 64 20 22 72 65 6d 6f 76 65 5f 66 6f 72 6d 61 74 22 0a 20 20 20 and.:command."remove_format"....
2ac20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 69 64 20 28 63 6f 6e ........................:id.(con
2ac40 63 61 74 20 69 64 20 22 20 22 20 66 6f 72 6d 61 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 cat.id.".".format)..............
2ac60 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 6c 69 62 72 61 72 79 20 28 66 6f 72 6d 61 74 20 22 ..............:library.(format."
2ac80 2d 2d 6c 69 62 72 61 72 79 2d 70 61 74 68 20 25 73 22 20 28 63 61 6c 69 62 72 65 64 62 2d 72 6f --library-path.%s".(calibredb-ro
2aca0 6f 74 2d 64 69 72 2d 71 75 6f 74 65 29 29 29 29 0a 20 20 20 20 28 63 6f 6e 64 20 28 28 65 71 75 ot-dir-quote)))).....(cond.((equ
2acc0 61 6c 20 6d 61 6a 6f 72 2d 6d 6f 64 65 20 27 63 61 6c 69 62 72 65 64 62 2d 73 68 6f 77 2d 6d 6f al.major-mode.'calibredb-show-mo
2ace0 64 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 6b 69 6c 6c 2d 62 75 66 66 65 72 20 28 63 61 6c de)............(kill-buffer.(cal
2ad00 69 62 72 65 64 62 2d 73 68 6f 77 2d 2d 62 75 66 66 65 72 2d 6e 61 6d 65 20 63 61 6e 64 69 64 61 ibredb-show--buffer-name.candida
2ad20 74 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 63 61 6c 69 62 72 65 64 62 2d 73 65 61 72 63 te))............(calibredb-searc
2ad40 68 2d 72 65 66 72 65 73 68 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 28 65 71 20 6d 61 6a 6f 72 h-refresh))...........((eq.major
2ad60 2d 6d 6f 64 65 20 27 63 61 6c 69 62 72 65 64 62 2d 73 65 61 72 63 68 2d 6d 6f 64 65 29 0a 20 20 -mode.'calibredb-search-mode)...
2ad80 20 20 20 20 20 20 20 20 20 28 63 61 6c 69 62 72 65 64 62 2d 73 65 61 72 63 68 2d 72 65 66 72 65 .........(calibredb-search-refre
2ada0 73 68 2d 6f 72 2d 72 65 73 75 6d 65 29 29 29 29 29 0a 0a 3b 3b 20 73 65 74 5f 6d 65 74 61 64 61 sh-or-resume)))))..;;.set_metada
2adc0 74 61 0a 0a 28 64 65 66 75 6e 20 63 61 6c 69 62 72 65 64 62 2d 67 65 74 2d 69 6e 69 74 20 28 6e ta..(defun.calibredb-get-init.(n
2ade0 61 6d 65 20 63 61 6e 64 29 0a 20 20 22 47 65 74 20 74 68 65 20 69 6e 69 74 69 61 6c 20 76 61 6c ame.cand)..."Get.the.initial.val
2ae00 75 65 20 69 6e 20 63 6f 6d 70 6c 65 74 69 6e 67 20 70 72 6f 6d 70 74 2e 0a 41 72 67 75 6d 65 6e ue.in.completing.prompt..Argumen
2ae20 74 20 4e 41 4d 45 20 69 73 20 74 68 65 20 6d 65 74 61 64 61 74 61 20 66 69 65 6c 64 20 6e 61 6d t.NAME.is.the.metadata.field.nam
2ae40 65 20 73 74 72 69 6e 67 2e 0a 41 72 67 75 6d 65 6e 74 20 43 41 4e 44 20 69 73 20 74 68 65 20 63 e.string..Argument.CAND.is.the.c
2ae60 61 6e 64 69 64 61 74 65 2e 22 0a 20 20 28 63 6f 6e 64 20 28 28 65 71 75 61 6c 20 6e 61 6d 65 20 andidate."...(cond.((equal.name.
2ae80 22 74 61 67 73 22 29 20 28 63 61 6c 69 62 72 65 64 62 2d 67 65 74 61 74 74 72 20 63 61 6e 64 20 "tags").(calibredb-getattr.cand.
2aea0 3a 74 61 67 29 29 0a 20 20 20 20 20 20 20 20 28 28 65 71 75 61 6c 20 6e 61 6d 65 20 22 63 6f 6d :tag)).........((equal.name."com
2aec0 6d 65 6e 74 73 22 29 20 28 63 61 6c 69 62 72 65 64 62 2d 67 65 74 61 74 74 72 20 63 61 6e 64 20 ments").(calibredb-getattr.cand.
2aee0 3a 63 6f 6d 6d 65 6e 74 29 29 0a 20 20 20 20 20 20 20 20 28 28 65 71 75 61 6c 20 6e 61 6d 65 20 :comment)).........((equal.name.
2af00 22 61 75 74 68 6f 72 5f 73 6f 72 74 22 29 20 28 63 61 6c 69 62 72 65 64 62 2d 67 65 74 61 74 74 "author_sort").(calibredb-getatt
2af20 72 20 63 61 6e 64 20 3a 61 75 74 68 6f 72 2d 73 6f 72 74 29 29 0a 20 20 20 20 20 20 20 20 28 28 r.cand.:author-sort)).........((
2af40 65 71 75 61 6c 20 6e 61 6d 65 20 22 61 75 74 68 6f 72 73 22 29 20 28 63 61 6c 69 62 72 65 64 62 equal.name."authors").(calibredb
2af60 2d 67 65 74 61 74 74 72 20 63 61 6e 64 20 3a 61 75 74 68 6f 72 2d 73 6f 72 74 29 29 0a 20 20 20 -getattr.cand.:author-sort))....
2af80 20 20 20 20 20 28 28 65 71 75 61 6c 20 6e 61 6d 65 20 22 74 69 74 6c 65 22 29 20 28 63 61 6c 69 .....((equal.name."title").(cali
2afa0 62 72 65 64 62 2d 67 65 74 61 74 74 72 20 63 61 6e 64 20 3a 62 6f 6f 6b 2d 74 69 74 6c 65 29 29 bredb-getattr.cand.:book-title))
2afc0 0a 20 20 20 20 20 20 20 20 28 28 65 71 75 61 6c 20 6e 61 6d 65 20 22 69 64 22 29 20 28 63 61 6c .........((equal.name."id").(cal
2afe0 69 62 72 65 64 62 2d 67 65 74 61 74 74 72 20 63 61 6e 64 20 3a 69 64 29 29 0a 20 20 20 20 20 20 ibredb-getattr.cand.:id)).......
2b000 20 20 28 28 65 71 75 61 6c 20 6e 61 6d 65 20 22 69 64 73 22 29 20 28 63 61 6c 69 62 72 65 64 62 ..((equal.name."ids").(calibredb
2b020 2d 67 65 74 61 74 74 72 20 63 61 6e 64 20 3a 69 64 73 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 63 -getattr.cand.:ids))))..(defun.c
2b040 61 6c 69 62 72 65 64 62 2d 73 65 74 2d 6d 65 74 61 64 61 74 61 20 28 6e 61 6d 65 20 26 72 65 73 alibredb-set-metadata.(name.&res
2b060 74 20 70 72 6f 70 73 29 0a 20 20 22 53 65 74 20 6d 65 74 61 64 61 74 61 20 6f 6e 20 66 69 6c 65 t.props)..."Set.metadata.on.file
2b080 20 4e 41 4d 45 20 6f 6e 20 6d 61 72 6b 65 64 20 63 61 6e 64 69 64 61 74 65 73 2e 0a 41 72 67 75 .NAME.on.marked.candidates..Argu
2b0a0 6d 65 6e 74 20 50 52 4f 50 53 20 61 72 65 20 74 68 65 20 61 64 64 69 74 69 6f 6e 61 6c 20 70 61 ment.PROPS.are.the.additional.pa
2b0c0 72 61 6d 65 74 65 72 73 2e 22 0a 20 20 28 6c 65 74 20 28 28 63 61 6e 64 69 64 61 74 65 73 20 28 rameters."...(let.((candidates.(
2b0e0 70 6c 69 73 74 2d 67 65 74 20 70 72 6f 70 73 20 3a 63 61 6e 64 69 64 61 74 65 29 29 29 0a 20 20 plist-get.props.:candidate)))...
2b100 20 20 28 75 6e 6c 65 73 73 20 63 61 6e 64 69 64 61 74 65 73 0a 20 20 20 20 20 20 28 73 65 74 71 ..(unless.candidates.......(setq
2b120 20 63 61 6e 64 69 64 61 74 65 73 20 28 6f 72 20 28 63 61 6c 69 62 72 65 64 62 2d 66 69 6e 64 2d .candidates.(or.(calibredb-find-
2b140 6d 61 72 6b 65 64 2d 63 61 6e 64 69 64 61 74 65 73 29 20 28 63 61 6c 69 62 72 65 64 62 2d 66 69 marked-candidates).(calibredb-fi
2b160 6e 64 2d 63 61 6e 64 69 64 61 74 65 2d 61 74 2d 70 6f 69 6e 74 29 29 29 29 0a 20 20 20 20 28 6c nd-candidate-at-point)))).....(l
2b180 65 74 2a 20 28 28 63 61 6e 64 73 20 28 63 6f 6e 64 20 28 28 6d 65 6d 71 20 74 68 69 73 2d 63 6f et*.((cands.(cond.((memq.this-co
2b1a0 6d 6d 61 6e 64 20 27 28 69 76 79 2d 64 69 73 70 61 74 63 68 69 6e 67 2d 64 6f 6e 65 29 29 20 28 mmand.'(ivy-dispatching-done)).(
2b1c0 6c 69 73 74 20 63 61 6e 64 69 64 61 74 65 73 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 list.candidates))...............
2b1e0 20 20 20 20 20 20 20 20 20 20 28 28 6d 65 6d 71 20 74 68 69 73 2d 63 6f 6d 6d 61 6e 64 20 27 28 ..........((memq.this-command.'(
2b200 68 65 6c 6d 2d 6d 61 79 62 65 2d 65 78 69 74 2d 6d 69 6e 69 62 75 66 66 65 72 29 29 20 28 69 66 helm-maybe-exit-minibuffer)).(if
2b220 20 28 66 62 6f 75 6e 64 70 20 27 68 65 6c 6d 2d 6d 61 72 6b 65 64 2d 63 61 6e 64 69 64 61 74 65 .(fboundp.'helm-marked-candidate
2b240 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 s)..............................
2b260 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ................................
2b280 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 68 65 6c 6d 2d 6d 61 72 6b 65 64 2d 63 ..................(helm-marked-c
2b2a0 61 6e 64 69 64 61 74 65 73 29 20 6e 69 6c 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 andidates).nil))................
2b2c0 20 20 20 20 20 20 20 20 20 28 74 20 63 61 6e 64 69 64 61 74 65 73 29 29 29 0a 20 20 20 20 20 20 .........(t.candidates))).......
2b2e0 20 20 20 20 20 28 63 61 6e 64 20 28 63 61 72 20 63 61 6e 64 73 29 29 20 20 20 20 20 20 20 20 20 .....(cand.(car.cands)).........
2b300 20 20 3b 20 77 65 20 75 73 65 20 63 61 72 20 6f 66 20 63 61 6e 64 73 20 74 6f 20 67 65 74 20 74 ..;.we.use.car.of.cands.to.get.t
2b320 68 65 20 70 72 6f 6d 70 74 20 64 61 74 61 0a 20 20 20 20 20 20 20 20 20 20 20 28 74 69 74 6c 65 he.prompt.data............(title
2b340 20 28 63 61 6c 69 62 72 65 64 62 2d 67 65 74 61 74 74 72 20 63 61 6e 64 20 3a 62 6f 6f 6b 2d 74 .(calibredb-getattr.cand.:book-t
2b360 69 74 6c 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 69 64 20 28 63 61 6c 69 62 72 65 64 62 itle))............(id.(calibredb
2b380 2d 67 65 74 61 74 74 72 20 63 61 6e 64 20 3a 69 64 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 -getattr.cand.:id))............(
2b3a0 70 72 6f 6d 70 74 20 28 70 6c 69 73 74 2d 67 65 74 20 70 72 6f 70 73 20 3a 70 72 6f 6d 70 74 29 prompt.(plist-get.props.:prompt)
2b3c0 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 66 69 65 6c 64 20 6e 61 6d 65 29 0a 20 20 20 20 20 20 )............(field.name).......
2b3e0 20 20 20 20 20 28 69 6e 69 74 20 28 63 61 6c 69 62 72 65 64 62 2d 67 65 74 2d 69 6e 69 74 20 66 .....(init.(calibredb-get-init.f
2b400 69 65 6c 64 20 63 61 6e 64 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 6e 75 6d 20 28 6c 65 6e ield.cand))............(num.(len
2b420 67 74 68 20 63 61 6e 64 73 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 69 6e 70 75 74 20 28 72 gth.cands))............(input.(r
2b440 65 61 64 2d 73 74 72 69 6e 67 20 28 69 66 20 28 3e 20 6e 75 6d 20 30 29 0a 20 20 20 20 20 20 20 ead-string.(if.(>.num.0)........
2b460 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 6e ............................(con
2b480 63 61 74 20 22 53 65 74 20 22 20 66 69 65 6c 64 20 22 20 66 6f 72 20 22 20 28 6e 75 6d 62 65 72 cat."Set.".field.".for.".(number
2b4a0 2d 74 6f 2d 73 74 72 69 6e 67 20 6e 75 6d 29 20 22 20 69 74 65 6d 73 3a 20 22 29 0a 20 20 20 20 -to-string.num).".items:.").....
2b4c0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6f .............................(co
2b4e0 6e 63 61 74 20 70 72 6f 6d 70 74 20 69 64 20 22 20 22 20 74 69 74 6c 65 20 22 3a 20 22 29 20 29 ncat.prompt.id.".".title.":.").)
2b500 20 69 6e 69 74 29 29 29 0a 20 20 20 20 20 20 28 63 61 6c 69 62 72 65 64 62 2d 73 65 74 2d 6d 65 .init))).......(calibredb-set-me
2b520 74 61 64 61 74 61 2d 70 72 6f 63 65 73 73 20 63 61 6e 64 73 20 66 69 65 6c 64 20 69 6e 70 75 74 tadata-process.cands.field.input
2b540 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 63 61 6c 69 62 72 65 64 62 2d 73 65 74 2d 6d 65 74 61 64 ))))..(defun.calibredb-set-metad
2b560 61 74 61 2d 70 72 6f 63 65 73 73 20 28 63 61 6e 64 73 20 66 69 65 6c 64 20 69 6e 70 75 74 29 0a ata-process.(cands.field.input).
2b580 20 20 22 52 75 6e 20 73 65 71 75 65 6e 74 69 61 6c 20 70 72 6f 63 65 73 73 65 73 20 74 6f 20 73 .."Run.sequential.processes.to.s
2b5a0 65 74 20 6d 65 74 61 64 61 74 61 2e 0a 41 72 67 75 6d 65 6e 74 20 43 41 4e 44 53 20 69 73 20 74 et.metadata..Argument.CANDS.is.t
2b5c0 68 65 20 6c 69 73 74 20 6f 66 20 63 61 6e 64 69 61 74 65 73 2e 0a 41 72 67 75 6d 65 6e 74 20 46 he.list.of.candiates..Argument.F
2b5e0 49 45 4c 44 20 69 73 20 74 68 65 20 6d 65 74 61 64 61 74 61 20 66 69 65 6c 64 2c 20 65 2e 67 2e IELD.is.the.metadata.field,.e.g.
2b600 20 74 61 67 73 2c 20 61 75 74 68 6f 72 2e 0a 41 72 67 75 6d 65 6e 74 20 49 4e 50 55 54 20 69 73 .tags,.author..Argument.INPUT.is
2b620 20 74 68 65 20 6d 65 74 61 64 61 74 61 20 63 6f 6e 74 65 6e 74 73 20 74 6f 20 62 65 20 73 65 74 .the.metadata.contents.to.be.set
2b640 2e 22 0a 20 20 28 6c 65 74 20 28 28 63 61 6e 64 20 28 70 6f 70 20 63 61 6e 64 73 29 29 29 0a 20 ."...(let.((cand.(pop.cands)))..
2b660 20 20 20 3b 3b 20 28 70 70 20 63 61 6e 64 29 0a 20 20 20 20 28 69 66 20 63 61 6e 64 0a 20 20 20 ...;;.(pp.cand).....(if.cand....
2b680 20 20 20 20 20 28 73 65 74 2d 70 72 6f 63 65 73 73 2d 73 65 6e 74 69 6e 65 6c 0a 20 20 20 20 20 .....(set-process-sentinel......
2b6a0 20 20 20 20 28 6c 65 74 2a 20 28 28 69 64 20 28 63 61 6c 69 62 72 65 64 62 2d 67 65 74 61 74 74 ....(let*.((id.(calibredb-getatt
2b6c0 72 20 63 61 6e 64 20 3a 69 64 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 63 61 6c 69 62 72 r.cand.:id)))............(calibr
2b6e0 65 64 62 2d 70 72 6f 63 65 73 73 20 3a 63 6f 6d 6d 61 6e 64 20 22 73 65 74 5f 6d 65 74 61 64 61 edb-process.:command."set_metada
2b700 74 61 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ta".............................
2b720 20 20 3a 6f 70 74 69 6f 6e 20 22 2d 2d 66 69 65 6c 64 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 ..:option."--field".............
2b740 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 69 6e 70 75 74 20 28 66 6f 72 6d 61 74 ..................:input.(format
2b760 20 22 25 73 3a 5c 22 25 73 5c 22 22 20 66 69 65 6c 64 20 69 6e 70 75 74 29 0a 20 20 20 20 20 20 ."%s:\"%s\"".field.input).......
2b780 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 69 64 20 69 64 0a 20 ........................:id.id..
2b7a0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 6c 69 .............................:li
2b7c0 62 72 61 72 79 20 28 66 6f 72 6d 61 74 20 22 2d 2d 6c 69 62 72 61 72 79 2d 70 61 74 68 20 5c 22 brary.(format."--library-path.\"
2b7e0 25 73 5c 22 22 20 63 61 6c 69 62 72 65 64 62 2d 72 6f 6f 74 2d 64 69 72 29 29 29 0a 20 20 20 20 %s\"".calibredb-root-dir))).....
2b800 20 20 20 20 20 28 6c 61 6d 62 64 61 20 28 70 20 5f 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 .....(lambda.(p._e)............(
2b820 77 68 65 6e 20 28 3d 20 30 20 28 70 72 6f 63 65 73 73 2d 65 78 69 74 2d 73 74 61 74 75 73 20 70 when.(=.0.(process-exit-status.p
2b840 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 61 6c 69 62 72 65 64 62 2d 73 65 74 2d 6d ))..............(calibredb-set-m
2b860 65 74 61 64 61 74 61 2d 70 72 6f 63 65 73 73 20 63 61 6e 64 73 20 66 69 65 6c 64 20 69 6e 70 75 etadata-process.cands.field.inpu
2b880 74 29 29 29 29 0a 20 20 20 20 20 20 3b 3b 20 69 66 20 6e 6f 20 63 61 6e 64 69 64 61 74 65 20 6c t)))).......;;.if.no.candidate.l
2b8a0 65 66 74 20 74 6f 20 62 65 20 70 72 6f 63 65 73 73 65 64 2c 20 72 65 66 72 65 73 68 20 2a 63 61 eft.to.be.processed,.refresh.*ca
2b8c0 6c 69 62 72 65 64 62 2d 73 65 61 72 63 68 2a 0a 20 20 20 20 20 20 28 63 6f 6e 64 20 28 28 65 71 libredb-search*.......(cond.((eq
2b8e0 75 61 6c 20 6d 61 6a 6f 72 2d 6d 6f 64 65 20 27 63 61 6c 69 62 72 65 64 62 2d 73 68 6f 77 2d 6d ual.major-mode.'calibredb-show-m
2b900 6f 64 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 61 6c 69 62 72 65 64 62 2d 73 68 6f ode)..............(calibredb-sho
2b920 77 2d 72 65 66 72 65 73 68 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 28 65 71 20 6d 61 6a w-refresh)).............((eq.maj
2b940 6f 72 2d 6d 6f 64 65 20 27 63 61 6c 69 62 72 65 64 62 2d 73 65 61 72 63 68 2d 6d 6f 64 65 29 0a or-mode.'calibredb-search-mode).
2b960 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 61 6c 69 62 72 65 64 62 2d 73 65 61 72 63 68 2d 72 .............(calibredb-search-r
2b980 65 66 72 65 73 68 2d 6f 72 2d 72 65 73 75 6d 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 efresh-or-resume)).............(
2b9a0 74 20 6e 69 6c 29 29 29 29 29 0a 0a 0a 28 64 65 66 75 6e 20 63 61 6c 69 62 72 65 64 62 2d 73 65 t.nil)))))...(defun.calibredb-se
2b9c0 74 2d 6d 65 74 61 64 61 74 61 2d 2d 74 61 67 73 20 28 26 6f 70 74 69 6f 6e 61 6c 20 63 61 6e 64 t-metadata--tags.(&optional.cand
2b9e0 69 64 61 74 65 29 0a 20 20 22 41 64 64 20 74 61 67 73 2c 20 64 69 76 69 64 65 64 20 62 79 20 63 idate)..."Add.tags,.divided.by.c
2ba00 6f 6d 6d 61 2c 20 6f 6e 20 6d 61 72 6b 65 64 20 43 41 4e 44 49 44 41 54 45 73 2e 22 0a 20 20 28 omma,.on.marked.CANDIDATEs."...(
2ba20 69 6e 74 65 72 61 63 74 69 76 65 29 0a 20 20 28 63 61 6c 69 62 72 65 64 62 2d 73 65 74 2d 6d 65 interactive)...(calibredb-set-me
2ba40 74 61 64 61 74 61 20 22 74 61 67 73 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 tadata."tags"...................
2ba60 20 20 20 20 20 20 20 20 3a 70 72 6f 6d 70 74 20 22 41 64 64 20 74 61 67 73 20 66 6f 72 20 22 0a ........:prompt."Add.tags.for.".
2ba80 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 63 61 6e 64 69 ..........................:candi
2baa0 64 61 74 65 20 63 61 6e 64 69 64 61 74 65 29 29 0a 0a 28 64 65 66 75 6e 20 63 61 6c 69 62 72 65 date.candidate))..(defun.calibre
2bac0 64 62 2d 73 65 74 2d 6d 65 74 61 64 61 74 61 2d 2d 63 6f 6d 6d 65 6e 74 73 20 28 26 6f 70 74 69 db-set-metadata--comments.(&opti
2bae0 6f 6e 61 6c 20 63 61 6e 64 69 64 61 74 65 29 0a 20 20 22 41 64 64 20 63 6f 6d 6d 65 6e 74 73 20 onal.candidate)..."Add.comments.
2bb00 6f 6e 20 6d 61 72 6b 65 64 20 43 41 4e 44 49 44 41 54 45 73 2e 22 0a 20 20 28 69 6e 74 65 72 61 on.marked.CANDIDATEs."...(intera
2bb20 63 74 69 76 65 29 0a 20 20 28 63 61 6c 69 62 72 65 64 62 2d 73 65 74 2d 6d 65 74 61 64 61 74 61 ctive)...(calibredb-set-metadata
2bb40 20 22 63 6f 6d 6d 65 6e 74 73 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ."comments".....................
2bb60 20 20 20 20 20 20 3a 70 72 6f 6d 70 74 20 22 41 64 64 20 63 6f 6d 6d 65 6e 74 73 20 66 6f 72 20 ......:prompt."Add.comments.for.
2bb80 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 63 61 6e "...........................:can
2bba0 64 69 64 61 74 65 20 63 61 6e 64 69 64 61 74 65 29 29 0a 0a 28 64 65 66 75 6e 20 63 61 6c 69 62 didate.candidate))..(defun.calib
2bbc0 72 65 64 62 2d 73 65 74 2d 6d 65 74 61 64 61 74 61 2d 2d 74 69 74 6c 65 20 28 26 6f 70 74 69 6f redb-set-metadata--title.(&optio
2bbe0 6e 61 6c 20 63 61 6e 64 69 64 61 74 65 29 0a 20 20 22 43 68 61 6e 67 65 20 74 69 74 6c 65 20 6f nal.candidate)..."Change.title.o
2bc00 6e 20 6d 61 72 6b 65 64 20 43 41 4e 44 49 44 41 54 45 73 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 n.marked.CANDIDATEs."...(interac
2bc20 74 69 76 65 29 0a 20 20 28 63 61 6c 69 62 72 65 64 62 2d 73 65 74 2d 6d 65 74 61 64 61 74 61 20 tive)...(calibredb-set-metadata.
2bc40 22 74 69 74 6c 65 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 "title".........................
2bc60 20 20 3a 70 72 6f 6d 70 74 20 22 43 68 61 6e 67 65 20 74 69 74 6c 65 20 66 6f 72 20 22 0a 20 20 ..:prompt."Change.title.for."...
2bc80 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 63 61 6e 64 69 64 61 ........................:candida
2bca0 74 65 20 63 61 6e 64 69 64 61 74 65 29 29 0a 0a 28 64 65 66 75 6e 20 63 61 6c 69 62 72 65 64 62 te.candidate))..(defun.calibredb
2bcc0 2d 73 65 74 2d 6d 65 74 61 64 61 74 61 2d 2d 61 75 74 68 6f 72 5f 73 6f 72 74 20 28 26 6f 70 74 -set-metadata--author_sort.(&opt
2bce0 69 6f 6e 61 6c 20 63 61 6e 64 69 64 61 74 65 29 0a 20 20 22 43 68 61 6e 67 65 20 61 75 74 68 6f ional.candidate)..."Change.autho
2bd00 72 5f 73 6f 72 74 20 6f 6e 20 6d 61 72 6b 65 64 20 43 41 4e 44 49 44 41 54 45 73 2e 22 0a 20 20 r_sort.on.marked.CANDIDATEs."...
2bd20 28 69 6e 74 65 72 61 63 74 69 76 65 29 0a 20 20 28 63 61 6c 69 62 72 65 64 62 2d 73 65 74 2d 6d (interactive)...(calibredb-set-m
2bd40 65 74 61 64 61 74 61 20 22 61 75 74 68 6f 72 5f 73 6f 72 74 22 0a 20 20 20 20 20 20 20 20 20 20 etadata."author_sort"...........
2bd60 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 70 72 6f 6d 70 74 20 22 43 68 61 6e 67 65 20 ................:prompt."Change.
2bd80 61 75 74 68 6f 72 20 66 6f 72 20 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 author.for."....................
2bda0 20 20 20 20 20 20 20 3a 63 61 6e 64 69 64 61 74 65 20 63 61 6e 64 69 64 61 74 65 29 29 0a 0a 28 .......:candidate.candidate))..(
2bdc0 64 65 66 75 6e 20 63 61 6c 69 62 72 65 64 62 2d 73 65 74 2d 6d 65 74 61 64 61 74 61 2d 2d 61 75 defun.calibredb-set-metadata--au
2bde0 74 68 6f 72 73 20 28 26 6f 70 74 69 6f 6e 61 6c 20 63 61 6e 64 69 64 61 74 65 29 0a 20 20 22 43 thors.(&optional.candidate)..."C
2be00 68 61 6e 67 65 20 61 75 74 68 6f 72 73 20 6f 6e 20 6d 61 72 6b 65 64 20 43 41 4e 44 49 44 41 54 hange.authors.on.marked.CANDIDAT
2be20 45 73 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 0a 20 20 28 63 61 6c 69 62 72 65 64 Es."...(interactive)...(calibred
2be40 62 2d 73 65 74 2d 6d 65 74 61 64 61 74 61 20 22 61 75 74 68 6f 72 73 22 0a 20 20 20 20 20 20 20 b-set-metadata."authors"........
2be60 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 70 72 6f 6d 70 74 20 22 43 68 61 6e ...................:prompt."Chan
2be80 67 65 20 61 75 74 68 6f 72 20 66 6f 72 20 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ge.author.for.".................
2bea0 20 20 20 20 20 20 20 20 20 20 3a 63 61 6e 64 69 64 61 74 65 20 63 61 6e 64 69 64 61 74 65 29 29 ..........:candidate.candidate))
2bec0 0a 0a 28 64 65 66 75 6e 20 63 61 6c 69 62 72 65 64 62 2d 73 65 74 2d 6d 65 74 61 64 61 74 61 2d ..(defun.calibredb-set-metadata-
2bee0 2d 6c 69 73 74 2d 66 69 65 6c 64 73 20 28 26 6f 70 74 69 6f 6e 61 6c 20 63 61 6e 64 69 64 61 74 -list-fields.(&optional.candidat
2bf00 65 29 0a 20 20 22 4c 69 73 74 20 74 68 65 20 73 65 6c 65 63 74 65 64 20 43 41 4e 44 49 44 41 54 e)..."List.the.selected.CANDIDAT
2bf20 45 20 73 75 70 70 6f 72 74 65 64 20 66 69 6c 65 64 73 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 E.supported.fileds."...(interact
2bf40 69 76 65 29 0a 20 20 28 75 6e 6c 65 73 73 20 63 61 6e 64 69 64 61 74 65 0a 20 20 20 20 28 73 65 ive)...(unless.candidate.....(se
2bf60 74 71 20 63 61 6e 64 69 64 61 74 65 20 28 63 61 72 20 28 63 61 6c 69 62 72 65 64 62 2d 66 69 6e tq.candidate.(car.(calibredb-fin
2bf80 64 2d 63 61 6e 64 69 64 61 74 65 2d 61 74 2d 70 6f 69 6e 74 29 29 29 29 0a 20 20 28 6c 65 74 2a d-candidate-at-point))))...(let*
2bfa0 20 28 28 69 64 20 28 63 61 6c 69 62 72 65 64 62 2d 67 65 74 61 74 74 72 20 63 61 6e 64 69 64 61 .((id.(calibredb-getattr.candida
2bfc0 74 65 20 3a 69 64 29 29 29 0a 20 20 20 20 28 6d 65 73 73 61 67 65 20 28 63 61 6c 69 62 72 65 64 te.:id))).....(message.(calibred
2bfe0 62 2d 63 6f 6d 6d 61 6e 64 20 3a 63 6f 6d 6d 61 6e 64 20 22 73 65 74 5f 6d 65 74 61 64 61 74 61 b-command.:command."set_metadata
2c000 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 "...............................
2c020 20 20 3a 6f 70 74 69 6f 6e 20 22 2d 2d 6c 69 73 74 2d 66 69 65 6c 64 73 22 0a 20 20 20 20 20 20 ..:option."--list-fields".......
2c040 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 69 64 20 69 64 ..........................:id.id
2c060 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ................................
2c080 20 3a 6c 69 62 72 61 72 79 20 28 66 6f 72 6d 61 74 20 22 2d 2d 6c 69 62 72 61 72 79 2d 70 61 74 .:library.(format."--library-pat
2c0a0 68 20 25 73 22 20 28 63 61 6c 69 62 72 65 64 62 2d 72 6f 6f 74 2d 64 69 72 2d 71 75 6f 74 65 29 h.%s".(calibredb-root-dir-quote)
2c0c0 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 63 61 6c 69 62 72 65 64 62 2d 73 65 74 2d 6d 65 74 61 )))))..(defun.calibredb-set-meta
2c0e0 64 61 74 61 2d 2d 74 72 61 6e 73 69 65 6e 74 20 28 29 0a 20 20 22 53 65 74 20 6d 65 74 61 64 61 data--transient.()..."Set.metada
2c100 74 61 20 66 6f 72 20 63 61 6e 64 69 64 61 74 65 20 61 74 20 70 6f 69 6e 74 20 6f 72 20 6d 61 72 ta.for.candidate.at.point.or.mar
2c120 6b 65 64 20 63 61 6e 64 69 64 61 74 65 73 20 77 69 74 68 20 74 72 61 6e 73 69 65 6e 74 20 61 72 ked.candidates.with.transient.ar
2c140 67 75 6d 65 6e 74 73 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 0a 20 20 28 6c 65 74 guments."...(interactive)...(let
2c160 20 28 28 63 61 6e 64 69 64 61 74 65 73 20 28 63 61 6c 69 62 72 65 64 62 2d 66 69 6e 64 2d 6d 61 .((candidates.(calibredb-find-ma
2c180 72 6b 65 64 2d 63 61 6e 64 69 64 61 74 65 73 29 29 29 0a 20 20 20 20 28 75 6e 6c 65 73 73 20 63 rked-candidates))).....(unless.c
2c1a0 61 6e 64 69 64 61 74 65 73 0a 20 20 20 20 20 20 28 73 65 74 71 20 63 61 6e 64 69 64 61 74 65 73 andidates.......(setq.candidates
2c1c0 20 28 63 61 6c 69 62 72 65 64 62 2d 66 69 6e 64 2d 63 61 6e 64 69 64 61 74 65 2d 61 74 2d 70 6f .(calibredb-find-candidate-at-po
2c1e0 69 6e 74 29 29 29 0a 20 20 20 20 28 63 61 6c 69 62 72 65 64 62 2d 73 65 74 2d 6d 65 74 61 64 61 int))).....(calibredb-set-metada
2c200 74 61 2d 2d 74 72 61 6e 73 69 65 6e 74 2d 70 72 6f 63 65 73 73 20 63 61 6e 64 69 64 61 74 65 73 ta--transient-process.candidates
2c220 29 29 29 0a 0a 28 64 65 66 75 6e 20 63 61 6c 69 62 72 65 64 62 2d 73 65 74 2d 6d 65 74 61 64 61 )))..(defun.calibredb-set-metada
2c240 74 61 2d 2d 74 72 61 6e 73 69 65 6e 74 2d 70 72 6f 63 65 73 73 20 28 63 61 6e 64 73 29 0a 20 20 ta--transient-process.(cands)...
2c260 22 52 75 6e 20 73 65 71 75 65 6e 74 69 61 6c 20 70 72 6f 63 65 73 73 65 73 20 74 6f 20 73 65 74 "Run.sequential.processes.to.set
2c280 20 6d 65 74 61 64 61 74 61 20 77 69 74 68 20 74 72 61 6e 73 69 65 6e 74 20 63 6f 6d 6d 61 6e 64 .metadata.with.transient.command
2c2a0 73 2e 0a 41 72 67 75 6d 65 6e 74 20 43 41 4e 44 53 20 69 73 20 74 68 65 20 6c 69 73 74 20 6f 66 s..Argument.CANDS.is.the.list.of
2c2c0 20 63 61 6e 64 69 61 74 65 73 2e 22 0a 20 20 28 6c 65 74 20 28 28 63 61 6e 64 20 28 70 6f 70 20 .candiates."...(let.((cand.(pop.
2c2e0 63 61 6e 64 73 29 29 29 0a 20 20 20 20 3b 3b 20 28 70 70 20 63 61 6e 64 29 0a 20 20 20 20 28 69 cands))).....;;.(pp.cand).....(i
2c300 66 20 63 61 6e 64 0a 20 20 20 20 20 20 20 20 28 73 65 74 2d 70 72 6f 63 65 73 73 2d 73 65 6e 74 f.cand.........(set-process-sent
2c320 69 6e 65 6c 0a 20 20 20 20 20 20 20 20 20 28 6c 65 74 2a 20 28 28 69 64 20 28 63 61 6c 69 62 72 inel..........(let*.((id.(calibr
2c340 65 64 62 2d 67 65 74 61 74 74 72 20 63 61 6e 64 20 3a 69 64 29 29 29 0a 20 20 20 20 20 20 20 20 edb-getattr.cand.:id))).........
2c360 20 20 20 28 63 61 6c 69 62 72 65 64 62 2d 70 72 6f 63 65 73 73 20 3a 63 6f 6d 6d 61 6e 64 20 22 ...(calibredb-process.:command."
2c380 73 65 74 5f 6d 65 74 61 64 61 74 61 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 set_metadata"...................
2c3a0 20 20 20 20 20 20 20 20 20 20 20 20 3a 6f 70 74 69 6f 6e 20 28 66 6f 72 6d 61 74 20 22 2d 2d 66 ............:option.(format."--f
2c3c0 69 65 6c 64 20 5c 22 25 73 5c 22 22 20 28 73 2d 6a 6f 69 6e 20 22 5c 22 20 2d 2d 66 69 65 6c 64 ield.\"%s\"".(s-join."\".--field
2c3e0 20 5c 22 22 20 28 2d 72 65 6d 6f 76 65 20 27 73 2d 62 6c 61 6e 6b 3f 20 28 2d 66 6c 61 74 74 65 .\"".(-remove.'s-blank?.(-flatte
2c400 6e 20 28 63 61 6c 69 62 72 65 64 62 2d 73 65 74 2d 6d 65 74 61 64 61 74 61 2d 61 72 67 75 6d 65 n.(calibredb-set-metadata-argume
2c420 6e 74 73 29 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 nts)))))........................
2c440 20 20 20 20 20 20 20 3a 69 64 20 69 64 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .......:id.id...................
2c460 20 20 20 20 20 20 20 20 20 20 20 20 3a 6c 69 62 72 61 72 79 20 28 66 6f 72 6d 61 74 20 22 2d 2d ............:library.(format."--
2c480 6c 69 62 72 61 72 79 2d 70 61 74 68 20 5c 22 25 73 5c 22 22 20 63 61 6c 69 62 72 65 64 62 2d 72 library-path.\"%s\"".calibredb-r
2c4a0 6f 6f 74 2d 64 69 72 29 29 29 0a 20 20 20 20 20 20 20 20 20 28 6c 61 6d 62 64 61 20 28 70 20 5f oot-dir)))..........(lambda.(p._
2c4c0 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 28 3d 20 30 20 28 70 72 6f 63 65 73 e)............(when.(=.0.(proces
2c4e0 73 2d 65 78 69 74 2d 73 74 61 74 75 73 20 70 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 s-exit-status.p))..............(
2c500 63 61 6c 69 62 72 65 64 62 2d 73 65 74 2d 6d 65 74 61 64 61 74 61 2d 2d 74 72 61 6e 73 69 65 6e calibredb-set-metadata--transien
2c520 74 2d 70 72 6f 63 65 73 73 20 63 61 6e 64 73 29 29 29 29 0a 20 20 20 20 20 20 3b 3b 20 69 66 20 t-process.cands)))).......;;.if.
2c540 6e 6f 20 63 61 6e 64 69 64 61 74 65 20 6c 65 66 74 20 74 6f 20 62 65 20 70 72 6f 63 65 73 73 65 no.candidate.left.to.be.processe
2c560 64 2c 20 72 65 66 72 65 73 68 20 2a 63 61 6c 69 62 72 65 64 62 2d 73 65 61 72 63 68 2a 0a 20 20 d,.refresh.*calibredb-search*...
2c580 20 20 20 20 28 63 6f 6e 64 20 28 28 65 71 75 61 6c 20 6d 61 6a 6f 72 2d 6d 6f 64 65 20 27 63 61 ....(cond.((equal.major-mode.'ca
2c5a0 6c 69 62 72 65 64 62 2d 73 68 6f 77 2d 6d 6f 64 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 libredb-show-mode)..............
2c5c0 28 63 61 6c 69 62 72 65 64 62 2d 73 68 6f 77 2d 72 65 66 72 65 73 68 29 29 0a 20 20 20 20 20 20 (calibredb-show-refresh)).......
2c5e0 20 20 20 20 20 20 28 28 65 71 20 6d 61 6a 6f 72 2d 6d 6f 64 65 20 27 63 61 6c 69 62 72 65 64 62 ......((eq.major-mode.'calibredb
2c600 2d 73 65 61 72 63 68 2d 6d 6f 64 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 61 6c 69 -search-mode)..............(cali
2c620 62 72 65 64 62 2d 73 65 61 72 63 68 2d 72 65 66 72 65 73 68 2d 6f 72 2d 72 65 73 75 6d 65 29 29 bredb-search-refresh-or-resume))
2c640 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 74 20 6e 69 6c 29 29 29 29 29 0a 0a 28 64 65 66 75 6e .............(t.nil)))))..(defun
2c660 20 63 61 6c 69 62 72 65 64 62 2d 66 69 6e 64 2d 63 61 6e 64 69 64 61 74 65 2d 61 74 2d 70 6f 69 .calibredb-find-candidate-at-poi
2c680 6e 74 20 28 29 0a 20 20 22 46 69 6e 64 20 63 61 6e 64 69 64 61 74 65 20 61 74 20 70 6f 69 6e 74 nt.()..."Find.candidate.at.point
2c6a0 20 61 6e 64 20 72 65 74 75 72 6e 20 74 68 65 20 6c 69 73 74 2e 22 0a 20 20 28 69 6e 74 65 72 61 .and.return.the.list."...(intera
2c6c0 63 74 69 76 65 29 0a 20 20 28 69 66 20 28 65 71 20 6d 61 6a 6f 72 2d 6d 6f 64 65 20 27 63 61 6c ctive)...(if.(eq.major-mode.'cal
2c6e0 69 62 72 65 64 62 2d 73 65 61 72 63 68 2d 6d 6f 64 65 29 0a 20 20 20 20 20 20 28 6c 69 73 74 20 ibredb-search-mode).......(list.
2c700 28 63 64 72 20 28 6f 72 20 28 67 65 74 2d 74 65 78 74 2d 70 72 6f 70 65 72 74 79 20 28 70 6f 69 (cdr.(or.(get-text-property.(poi
2c720 6e 74 29 20 27 63 61 6c 69 62 72 65 64 62 2d 65 6e 74 72 79 20 6e 69 6c 29 0a 20 20 20 20 20 20 nt).'calibredb-entry.nil).......
2c740 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 67 65 74 2d 74 65 78 74 2d 70 72 6f 70 65 72 74 ...............(get-text-propert
2c760 79 20 28 70 6f 69 6e 74 29 20 27 63 61 6c 69 62 72 65 64 62 2d 64 65 74 61 69 6c 65 64 20 6e 69 y.(point).'calibredb-detailed.ni
2c780 6c 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 67 65 74 2d 74 65 78 l)......................(get-tex
2c7a0 74 2d 70 72 6f 70 65 72 74 79 20 28 70 6f 69 6e 74 29 20 27 63 61 6c 69 62 72 65 64 62 2d 63 6f t-property.(point).'calibredb-co
2c7c0 6d 70 61 63 74 20 6e 69 6c 29 29 29 29 0a 20 20 20 20 28 6c 69 73 74 20 28 67 65 74 2d 74 65 78 mpact.nil)))).....(list.(get-tex
2c7e0 74 2d 70 72 6f 70 65 72 74 79 20 28 70 6f 69 6e 74 2d 6d 69 6e 29 20 27 63 61 6c 69 62 72 65 64 t-property.(point-min).'calibred
2c800 62 2d 65 6e 74 72 79 20 6e 69 6c 29 20 29 29 29 0a 0a 28 64 65 66 75 6e 20 63 61 6c 69 62 72 65 b-entry.nil).)))..(defun.calibre
2c820 64 62 2d 66 69 6e 64 2d 6d 61 72 6b 65 64 2d 63 61 6e 64 69 64 61 74 65 73 20 28 29 0a 20 20 22 db-find-marked-candidates.()..."
2c840 46 69 6e 64 20 6d 61 72 6b 65 64 20 63 61 6e 64 69 64 61 74 65 73 20 61 6e 64 20 72 65 74 75 72 Find.marked.candidates.and.retur
2c860 6e 20 74 68 65 20 61 6c 69 73 74 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 0a 20 20 n.the.alist."...(interactive)...
2c880 28 73 61 76 65 2d 65 78 63 75 72 73 69 6f 6e 0a 20 20 20 20 28 6c 65 74 20 28 63 61 6e 64 69 64 (save-excursion.....(let.(candid
2c8a0 61 74 65 20 62 65 67 20 65 6e 64 20 63 61 6e 64 2d 6c 69 73 74 29 0a 20 20 20 20 20 20 28 77 68 ate.beg.end.cand-list).......(wh
2c8c0 65 6e 20 28 74 65 78 74 2d 70 72 6f 70 65 72 74 79 2d 6e 6f 74 2d 61 6c 6c 20 28 70 6f 69 6e 74 en.(text-property-not-all.(point
2c8e0 2d 6d 69 6e 29 20 28 70 6f 69 6e 74 2d 6d 61 78 29 20 27 63 61 6c 69 62 72 65 64 62 2d 6d 61 72 -min).(point-max).'calibredb-mar
2c900 6b 20 6e 69 6c 29 0a 20 20 20 20 20 20 20 20 28 73 65 74 71 20 65 6e 64 20 28 74 65 78 74 2d 70 k.nil).........(setq.end.(text-p
2c920 72 6f 70 65 72 74 79 2d 61 6e 79 20 28 70 6f 69 6e 74 2d 6d 69 6e 29 20 28 70 6f 69 6e 74 2d 6d roperty-any.(point-min).(point-m
2c940 61 78 29 20 27 63 61 6c 69 62 72 65 64 62 2d 6d 61 72 6b 20 3f 3e 29 29 0a 20 20 20 20 20 20 20 ax).'calibredb-mark.?>))........
2c960 20 28 77 68 69 6c 65 20 28 73 65 74 71 20 62 65 67 20 28 74 65 78 74 2d 70 72 6f 70 65 72 74 79 .(while.(setq.beg.(text-property
2c980 2d 61 6e 79 20 65 6e 64 20 28 70 6f 69 6e 74 2d 6d 61 78 29 20 27 63 61 6c 69 62 72 65 64 62 2d -any.end.(point-max).'calibredb-
2c9a0 6d 61 72 6b 20 3f 3e 29 20 29 0a 20 20 20 20 20 20 20 20 20 20 28 67 6f 74 6f 2d 63 68 61 72 20 mark.?>).)...........(goto-char.
2c9c0 62 65 67 29 0a 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 63 61 6e 64 69 64 61 74 65 20 28 beg)...........(setq.candidate.(
2c9e0 63 64 72 20 28 67 65 74 2d 74 65 78 74 2d 70 72 6f 70 65 72 74 79 20 28 70 6f 69 6e 74 29 20 27 cdr.(get-text-property.(point).'
2ca00 63 61 6c 69 62 72 65 64 62 2d 65 6e 74 72 79 20 6e 69 6c 29 29 29 0a 20 20 20 20 20 20 20 20 20 calibredb-entry.nil)))..........
2ca20 20 28 70 75 73 68 20 63 61 6e 64 69 64 61 74 65 20 63 61 6e 64 2d 6c 69 73 74 29 0a 20 20 20 20 .(push.candidate.cand-list).....
2ca40 20 20 20 20 20 20 3b 3b 20 28 6d 65 73 73 61 67 65 20 28 6e 75 6d 62 65 72 2d 74 6f 2d 73 74 72 ......;;.(message.(number-to-str
2ca60 69 6e 67 20 62 65 67 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 66 6f 72 77 61 72 64 2d 6c 69 6e ing.beg))...........(forward-lin
2ca80 65 20 31 29 0a 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 65 6e 64 20 28 70 6f 69 6e 74 29 e.1)...........(setq.end.(point)
2caa0 29 29 0a 20 20 20 20 20 20 20 20 63 61 6e 64 2d 6c 69 73 74 29 29 29 29 0a 0a 3b 3b 20 66 65 74 )).........cand-list))))..;;.fet
2cac0 63 68 5f 6d 65 74 61 64 61 74 61 0a 0a 28 64 65 66 75 6e 20 63 61 6c 69 62 72 65 64 62 2d 70 64 ch_metadata..(defun.calibredb-pd
2cae0 66 2d 61 75 74 6f 2d 64 65 74 65 63 74 2d 69 73 62 6e 20 28 26 6f 70 74 69 6f 6e 61 6c 20 65 6e f-auto-detect-isbn.(&optional.en
2cb00 64 2d 70 61 67 65 29 0a 20 20 22 49 6e 76 6f 6b 65 20 66 72 6f 6d 20 63 61 6c 69 62 72 65 2d 73 d-page)..."Invoke.from.calibre-s
2cb20 65 61 72 63 68 20 62 75 66 66 65 72 2e 0a 54 68 69 73 20 66 75 6e 63 74 69 6f 6e 20 72 65 71 75 earch.buffer..This.function.requ
2cb40 69 72 65 73 20 74 68 65 20 70 64 66 2d 74 6f 6f 6c 73 20 28 70 64 66 2d 74 6f 6f 6c 73 2e 65 6c ires.the.pdf-tools.(pdf-tools.el
2cb60 29 20 74 6f 20 62 65 20 69 6e 73 74 61 6c 6c 65 64 2e 0a 53 63 61 6e 20 66 6f 72 20 69 73 62 6e ).to.be.installed..Scan.for.isbn
2cb80 20 66 72 6f 6d 20 70 61 67 65 20 31 20 75 70 74 6f 20 28 6e 6f 74 20 69 6e 63 6c 75 64 69 6e 67 .from.page.1.upto.(not.including
2cba0 29 20 45 4e 44 2d 50 41 47 45 20 28 64 65 66 61 75 6c 74 20 31 30 29 20 66 6f 72 20 70 64 66 20 ).END-PAGE.(default.10).for.pdf.
2cbc0 66 69 6c 65 2e 22 0a 20 20 28 72 65 71 75 69 72 65 20 27 70 64 66 2d 74 6f 6f 6c 73 20 6e 69 6c file."...(require.'pdf-tools.nil
2cbe0 20 74 29 0a 20 20 28 69 66 20 28 65 71 20 6d 61 6a 6f 72 2d 6d 6f 64 65 20 27 63 61 6c 69 62 72 .t)...(if.(eq.major-mode.'calibr
2cc00 65 64 62 2d 73 65 61 72 63 68 2d 6d 6f 64 65 29 0a 20 20 20 20 20 20 28 6c 65 74 20 28 69 73 62 edb-search-mode).......(let.(isb
2cc20 6e 2d 6c 69 6e 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 28 69 73 62 6e 20 22 22 29 0a n-line.............;;.(isbn."").
2cc40 20 20 20 20 20 20 20 20 20 20 20 20 28 70 61 67 65 20 31 29 0a 20 20 20 20 20 20 20 20 20 20 20 ............(page.1)............
2cc60 20 28 66 69 6c 65 2d 70 61 74 68 20 28 63 61 6c 69 62 72 65 64 62 2d 67 65 74 61 74 74 72 20 28 .(file-path.(calibredb-getattr.(
2cc80 63 61 72 20 28 63 61 6c 69 62 72 65 64 62 2d 66 69 6e 64 2d 63 61 6e 64 69 64 61 74 65 2d 61 74 car.(calibredb-find-candidate-at
2cca0 2d 70 6f 69 6e 74 29 29 20 3a 66 69 6c 65 2d 70 61 74 68 29 29 29 0a 20 20 20 20 20 20 20 20 28 -point)).:file-path))).........(
2ccc0 75 6e 6c 65 73 73 20 65 6e 64 2d 70 61 67 65 20 28 73 65 74 71 20 65 6e 64 2d 70 61 67 65 20 31 unless.end-page.(setq.end-page.1
2cce0 30 29 29 0a 20 20 20 20 20 20 20 20 28 63 6f 6e 64 20 28 28 73 74 72 69 6e 67 3d 20 28 75 72 6c 0)).........(cond.((string=.(url
2cd00 2d 66 69 6c 65 2d 65 78 74 65 6e 73 69 6f 6e 20 66 69 6c 65 2d 70 61 74 68 29 20 22 2e 70 64 66 -file-extension.file-path).".pdf
2cd20 22 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 68 69 6c 65 20 28 3c 20 70 61 67 65 ")................(while.(<.page
2cd40 20 65 6e 64 2d 70 61 67 65 29 20 3b 20 73 63 61 6e 6e 69 6e 67 20 66 72 6f 6d 20 62 65 6c 6f 77 .end-page).;.scanning.from.below
2cd60 20 62 65 63 61 75 73 65 20 77 65 20 77 61 6e 74 20 74 6f 20 66 69 6e 64 20 66 69 72 73 74 20 69 .because.we.want.to.find.first.i
2cd80 6e 73 74 61 6e 63 65 20 6f 66 20 49 53 42 4e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 nstance.of.ISBN.................
2cda0 20 28 6c 65 74 20 28 28 6d 61 74 63 68 20 28 63 64 72 20 28 61 73 73 6f 63 20 27 65 64 67 65 73 .(let.((match.(cdr.(assoc.'edges
2cdc0 20 28 63 61 72 20 28 6f 72 20 28 70 64 66 2d 69 6e 66 6f 2d 73 65 61 72 63 68 2d 73 74 72 69 6e .(car.(or.(pdf-info-search-strin
2cde0 67 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 g...............................
2ce00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 69 73 62 6e 22 .........................."isbn"
2ce20 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ................................
2ce40 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 70 61 67 65 0a 20 20 .........................page...
2ce60 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ................................
2ce80 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 66 69 6c 65 2d 70 61 74 68 29 ......................file-path)
2cea0 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ................................
2cec0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 64 66 2d ...........................(pdf-
2cee0 69 6e 66 6f 2d 73 65 61 72 63 68 2d 73 74 72 69 6e 67 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 info-search-string..............
2cf00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ................................
2cf20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 6e 75 6d 62 65 72 2d 22 0a 20 20 20 20 20 20 20 20 .............."number-".........
2cf40 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ................................
2cf60 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 70 61 67 65 0a 20 20 20 20 20 20 20 20 ...................page.........
2cf80 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ................................
2cfa0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 66 69 6c 65 2d 70 61 74 68 29 29 29 29 ...................file-path))))
2cfc0 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 28 63 75 72 72 65 )))....................;;.(curre
2cfe0 6e 74 2d 62 75 66 66 65 72 29 29 29 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 nt-buffer)))))))................
2d000 20 20 20 20 28 73 65 74 71 20 70 61 67 65 20 28 31 2b 20 70 61 67 65 29 29 0a 20 20 20 20 20 20 ....(setq.page.(1+.page)).......
2d020 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 6e 64 20 28 6d 61 74 63 68 20 28 73 65 74 71 20 .............(cond.(match.(setq.
2d040 69 73 62 6e 2d 6c 69 6e 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 isbn-line.......................
2d060 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 64 66 2d 69 6e 66 6f 2d 67 65 74 74 65 78 ................(pdf-info-gettex
2d080 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 t...............................
2d0a0 20 20 20 20 20 20 20 20 20 28 31 2d 20 70 61 67 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 .........(1-.page)..............
2d0c0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 61 72 20 6d ..........................(car.m
2d0e0 61 74 63 68 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 atch)...........................
2d100 20 20 20 20 20 20 20 20 20 20 20 20 20 27 6c 69 6e 65 20 66 69 6c 65 2d 70 61 74 68 29 29 0a 20 .............'line.file-path))..
2d120 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 ...............................(
2d140 73 65 74 71 20 70 61 67 65 20 28 31 2b 20 65 6e 64 2d 70 61 67 65 29 29 29 29 29 29 0a 20 20 20 setq.page.(1+.end-page))))))....
2d160 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 6e 64 20 28 69 73 62 6e 2d 6c 69 6e 65 0a 20 20 20 ............(cond.(isbn-line....
2d180 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 6e 64 20 28 28 73 74 72 69 6e ...................(cond.((strin
2d1a0 67 2d 6d 61 74 63 68 20 22 5c 5c 28 49 53 42 4e 5c 5c 29 5b 5e 30 2d 39 5d 2a 5c 5c 28 31 30 5c g-match."\\(ISBN\\)[^0-9]*\\(10\
2d1c0 5c 7c 31 33 5c 5c 29 2a 5b 5e 30 2d 39 5d 2a 20 2a 5c 5c 28 5b 30 2d 39 2d 20 78 5d 2a 5c 5c 29 \|13\\)*[^0-9]*.*\\([0-9-.x]*\\)
2d1e0 20 2a 22 20 69 73 62 6e 2d 6c 69 6e 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .*".isbn-line)..................
2d200 20 20 20 20 20 20 20 20 20 20 20 20 28 6d 61 74 63 68 2d 73 74 72 69 6e 67 20 33 20 69 73 62 6e ............(match-string.3.isbn
2d220 2d 6c 69 6e 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 -line)).........................
2d240 20 20 20 20 28 28 73 74 72 69 6e 67 2d 6d 61 74 63 68 20 22 31 33 3a 20 2a 5c 5c 28 5b 30 2d 39 ....((string-match."13:.*\\([0-9
2d260 2d 20 78 5d 2a 5c 5c 29 20 2a 22 20 69 73 62 6e 2d 6c 69 6e 65 29 0a 20 20 20 20 20 20 20 20 20 -.x]*\\).*".isbn-line)..........
2d280 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6d 61 74 63 68 2d 73 74 72 69 6e ....................(match-strin
2d2a0 67 20 31 20 69 73 62 6e 2d 6c 69 6e 65 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 g.1.isbn-line))))...............
2d2c0 20 20 20 20 20 20 20 28 74 20 6e 69 6c 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 .......(t.nil)))...............(
2d2e0 74 20 6e 69 6c 29 29 29 0a 20 20 20 20 28 6d 65 73 73 61 67 65 20 22 53 68 6f 75 6c 64 20 62 65 t.nil))).....(message."Should.be
2d300 20 69 6e 76 6f 6b 65 64 20 66 72 6f 6d 20 2a 63 61 6c 69 62 72 65 64 62 2d 73 65 61 72 63 68 2a .invoked.from.*calibredb-search*
2d320 20 62 75 66 66 65 72 22 29 29 29 0a 0a 28 64 65 66 75 6e 20 63 61 6c 69 62 72 65 64 62 2d 64 6a .buffer")))..(defun.calibredb-dj
2d340 76 75 2d 61 75 74 6f 2d 64 65 74 65 63 74 2d 69 73 62 6e 20 28 29 0a 20 20 22 49 6e 76 6f 6b 65 vu-auto-detect-isbn.()..."Invoke
2d360 20 66 72 6f 6d 20 63 61 6c 69 62 72 65 2d 73 65 61 72 63 68 20 62 75 66 66 65 72 2e 0a 54 68 69 .from.calibre-search.buffer..Thi
2d380 73 20 66 75 6e 63 74 69 6f 6e 20 72 65 71 75 69 72 65 73 20 74 68 65 20 64 6a 76 75 20 28 64 6a s.function.requires.the.djvu.(dj
2d3a0 76 75 2e 65 6c 29 20 70 61 63 6b 61 67 65 20 74 6f 20 62 65 20 69 6e 73 74 61 6c 6c 65 64 2e 0a vu.el).package.to.be.installed..
2d3c0 53 63 61 6e 20 66 6f 72 20 69 73 62 6e 20 66 72 6f 6d 20 74 68 65 20 66 69 72 73 74 20 39 20 70 Scan.for.isbn.from.the.first.9.p
2d3e0 61 67 65 73 20 6f 66 20 74 68 65 20 64 6a 76 75 20 66 69 6c 65 2e 22 0a 20 20 28 64 6a 76 75 2d ages.of.the.djvu.file."...(djvu-
2d400 66 69 6e 64 2d 66 69 6c 65 20 28 63 61 6c 69 62 72 65 64 62 2d 67 65 74 61 74 74 72 20 28 63 61 find-file.(calibredb-getattr.(ca
2d420 72 20 28 63 61 6c 69 62 72 65 64 62 2d 66 69 6e 64 2d 63 61 6e 64 69 64 61 74 65 2d 61 74 2d 70 r.(calibredb-find-candidate-at-p
2d440 6f 69 6e 74 29 29 20 3a 66 69 6c 65 2d 70 61 74 68 29 29 0a 20 20 28 64 6a 76 75 2d 67 6f 74 6f oint)).:file-path))...(djvu-goto
2d460 2d 70 61 67 65 20 31 29 0a 20 20 28 6c 65 74 2a 20 28 28 6d 61 74 63 68 20 28 6c 65 74 20 28 28 -page.1)...(let*.((match.(let.((
2d480 70 61 67 65 20 64 6a 76 75 2d 64 6f 63 2d 70 61 67 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 page.djvu-doc-page).............
2d4a0 20 20 20 20 20 20 20 20 20 20 28 6d 61 74 63 68 20 6e 69 6c 29 29 0a 20 20 20 20 20 20 20 20 20 ..........(match.nil))..........
2d4c0 20 20 20 20 20 20 20 20 20 28 77 68 69 6c 65 20 28 6e 6f 74 20 28 6f 72 20 6d 61 74 63 68 20 28 .........(while.(not.(or.match.(
2d4e0 3e 20 70 61 67 65 20 31 30 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 >.page.10)))....................
2d500 20 28 64 6a 76 75 2d 6e 65 78 74 2d 70 61 67 65 20 31 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 .(djvu-next-page.1).............
2d520 20 20 20 20 20 20 20 20 28 73 65 74 71 20 70 61 67 65 20 64 6a 76 75 2d 64 6f 63 2d 70 61 67 65 ........(setq.page.djvu-doc-page
2d540 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 28 72 65 2d ).....................(when.(re-
2d560 73 65 61 72 63 68 2d 66 6f 72 77 61 72 64 20 22 5e 2e 2a 69 73 62 6e 2e 2a 24 22 20 6e 69 6c 20 search-forward."^.*isbn.*$".nil.
2d580 74 29 20 28 73 65 74 71 20 6d 61 74 63 68 20 74 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 t).(setq.match.t))).............
2d5a0 20 20 20 20 20 20 28 70 72 69 6e 74 20 6d 61 74 63 68 29 29 29 29 0a 20 20 20 20 28 6c 65 74 20 ......(print.match)))).....(let.
2d5c0 28 28 69 73 62 6e 2d 6c 69 6e 65 20 22 22 29 29 0a 20 20 20 20 20 20 28 63 6f 6e 64 20 28 6d 61 ((isbn-line."")).......(cond.(ma
2d5e0 74 63 68 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 28 70 72 69 6e 74 20 28 66 6f 72 6d tch..............;;.(print.(form
2d600 61 74 20 22 48 45 4c 4c 4f 22 20 28 6d 61 74 63 68 2d 73 74 72 69 6e 67 2d 6e 6f 2d 70 72 6f 70 at."HELLO".(match-string-no-prop
2d620 65 72 74 69 65 73 20 30 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 69 erties.0)))..............(setq.i
2d640 73 62 6e 2d 6c 69 6e 65 20 28 6d 61 74 63 68 2d 73 74 72 69 6e 67 2d 6e 6f 2d 70 72 6f 70 65 72 sbn-line.(match-string-no-proper
2d660 74 69 65 73 20 30 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 2d 62 75 66 66 65 ties.0))..............(set-buffe
2d680 72 2d 6d 6f 64 69 66 69 65 64 2d 70 20 6e 69 6c 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 r-modified-p.nil)..............(
2d6a0 6b 69 6c 6c 2d 62 75 66 66 65 72 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 74 72 69 6e kill-buffer)..............(strin
2d6c0 67 2d 6d 61 74 63 68 20 22 5c 5c 28 69 73 62 6e 5c 5c 29 5b 5e 30 2d 39 5d 2a 5c 5c 28 31 30 5c g-match."\\(isbn\\)[^0-9]*\\(10\
2d6e0 5c 7c 31 33 5c 5c 29 2a 5b 5e 30 2d 39 5d 2a 20 2a 5c 5c 28 5b 30 2d 39 2d 20 78 5d 2a 5c 5c 29 \|13\\)*[^0-9]*.*\\([0-9-.x]*\\)
2d700 20 2a 22 20 69 73 62 6e 2d 6c 69 6e 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6d 61 74 .*".isbn-line)..............(mat
2d720 63 68 2d 73 74 72 69 6e 67 20 33 20 69 73 62 6e 2d 6c 69 6e 65 29 29 0a 20 20 20 20 20 20 20 20 ch-string.3.isbn-line)).........
2d740 20 20 20 20 28 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 2d 62 75 66 66 65 72 2d ....(t..............(set-buffer-
2d760 6d 6f 64 69 66 69 65 64 2d 70 20 6e 69 6c 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6b 69 modified-p.nil)..............(ki
2d780 6c 6c 2d 62 75 66 66 65 72 29 20 6e 69 6c 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 63 61 6c 69 ll-buffer).nil)))))..(defun.cali
2d7a0 62 72 65 64 62 2d 61 75 74 6f 2d 64 65 74 65 63 74 2d 69 73 62 6e 20 28 29 0a 20 20 22 49 6e 76 bredb-auto-detect-isbn.()..."Inv
2d7c0 6f 6b 65 20 66 72 6f 6d 20 63 61 6c 69 62 72 65 2d 73 65 61 72 63 68 20 62 75 66 66 65 72 20 61 oke.from.calibre-search.buffer.a
2d7e0 6e 64 20 73 63 61 6e 20 66 6f 72 20 69 73 62 6e 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 nd.scan.for.isbn."...(interactiv
2d800 65 29 0a 20 20 28 6c 65 74 20 20 28 28 66 6f 72 6d 61 74 20 28 63 61 6c 69 62 72 65 64 62 2d 67 e)...(let..((format.(calibredb-g
2d820 65 74 61 74 74 72 20 28 63 61 72 20 28 63 61 6c 69 62 72 65 64 62 2d 66 69 6e 64 2d 63 61 6e 64 etattr.(car.(calibredb-find-cand
2d840 69 64 61 74 65 2d 61 74 2d 70 6f 69 6e 74 29 29 20 3a 62 6f 6f 6b 2d 66 6f 72 6d 61 74 29 29 29 idate-at-point)).:book-format)))
2d860 0a 20 20 20 20 28 63 6f 6e 64 20 28 28 73 74 72 69 6e 67 3d 20 66 6f 72 6d 61 74 20 22 70 64 66 .....(cond.((string=.format."pdf
2d880 22 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 69 66 20 28 66 65 61 74 75 72 65 70 20 27 70 64 66 ")............(if.(featurep.'pdf
2d8a0 2d 74 6f 6f 6c 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 61 6c 69 62 72 65 64 -tools)................(calibred
2d8c0 62 2d 70 64 66 2d 61 75 74 6f 2d 64 65 74 65 63 74 2d 69 73 62 6e 29 0a 20 20 20 20 20 20 20 20 b-pdf-auto-detect-isbn).........
2d8e0 20 20 20 20 20 6e 69 6c 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 28 73 74 72 69 6e 67 3d 20 66 .....nil))...........((string=.f
2d900 6f 72 6d 61 74 20 22 64 6a 76 75 22 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 69 66 20 28 66 65 ormat."djvu")............(if.(fe
2d920 61 74 75 72 65 70 20 27 64 6a 76 75 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 61 aturep.'djvu)................(ca
2d940 6c 69 62 72 65 64 62 2d 64 6a 76 75 2d 61 75 74 6f 2d 64 65 74 65 63 74 2d 69 73 62 6e 29 0a 20 libredb-djvu-auto-detect-isbn)..
2d960 20 20 20 20 20 20 20 20 20 20 20 20 6e 69 6c 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 74 20 6e ............nil))...........(t.n
2d980 69 6c 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 63 61 6c 69 62 72 65 64 62 2d 73 68 6f 77 2d 72 65 il))))..(defun.calibredb-show-re
2d9a0 73 75 6c 74 73 20 28 6d 65 74 61 64 61 74 61 20 26 6f 70 74 69 6f 6e 61 6c 20 73 77 69 74 63 68 sults.(metadata.&optional.switch
2d9c0 29 0a 20 20 22 44 69 73 70 6c 61 79 20 4d 45 54 41 44 41 54 41 20 66 65 74 63 68 20 72 65 73 75 )..."Display.METADATA.fetch.resu
2d9e0 6c 74 73 20 69 6e 20 74 68 65 20 63 75 72 72 65 6e 74 20 62 75 66 66 65 72 2e 0a 4f 70 74 69 6f lts.in.the.current.buffer..Optio
2da00 6e 61 6c 20 61 72 67 75 6d 65 6e 74 20 53 57 49 54 43 48 20 74 6f 20 73 77 69 74 63 68 20 74 6f nal.argument.SWITCH.to.switch.to
2da20 20 2a 63 61 6c 69 62 72 65 64 62 2d 73 65 61 72 63 68 2a 20 62 75 66 66 65 72 20 74 6f 20 6f 74 .*calibredb-search*.buffer.to.ot
2da40 68 65 72 20 77 69 6e 64 6f 77 2e 0a 54 68 69 73 20 66 75 6e 63 74 69 6f 6e 20 69 73 20 61 20 73 her.window..This.function.is.a.s
2da60 6c 69 67 68 6c 79 20 6d 6f 64 69 66 69 65 64 20 76 65 72 73 69 6f 6e 20 66 72 6f 6d 20 66 75 6e lighly.modified.version.from.fun
2da80 63 74 69 6f 6e 20 60 63 61 6c 69 62 72 65 64 62 2d 73 68 6f 77 2d 65 6e 74 72 79 27 22 0a 20 20 ction.`calibredb-show-entry'"...
2daa0 28 75 6e 6c 65 73 73 20 28 65 71 20 6d 61 6a 6f 72 2d 6d 6f 64 65 20 27 63 61 6c 69 62 72 65 64 (unless.(eq.major-mode.'calibred
2dac0 62 2d 73 68 6f 77 2d 6d 6f 64 65 29 0a 20 20 20 20 28 77 68 65 6e 20 28 67 65 74 2d 62 75 66 66 b-show-mode).....(when.(get-buff
2dae0 65 72 20 28 63 61 6c 69 62 72 65 64 62 2d 73 68 6f 77 2d 2d 62 75 66 66 65 72 2d 6e 61 6d 65 20 er.(calibredb-show--buffer-name.
2db00 6d 65 74 61 64 61 74 61 29 29 0a 20 20 20 20 20 20 28 6b 69 6c 6c 2d 62 75 66 66 65 72 20 28 63 metadata)).......(kill-buffer.(c
2db20 61 6c 69 62 72 65 64 62 2d 73 68 6f 77 2d 2d 62 75 66 66 65 72 2d 6e 61 6d 65 20 6d 65 74 61 64 alibredb-show--buffer-name.metad
2db40 61 74 61 29 29 29 29 0a 20 20 28 6c 65 74 2a 20 28 28 62 75 66 66 20 28 67 65 74 2d 62 75 66 66 ata))))...(let*.((buff.(get-buff
2db60 65 72 2d 63 72 65 61 74 65 20 28 63 61 6c 69 62 72 65 64 62 2d 73 68 6f 77 2d 2d 62 75 66 66 65 er-create.(calibredb-show--buffe
2db80 72 2d 6e 61 6d 65 20 6d 65 74 61 64 61 74 61 29 29 29 0a 20 20 20 20 20 20 20 20 20 28 74 61 67 r-name.metadata)))..........(tag
2dba0 20 28 63 64 72 20 28 61 73 73 6f 63 20 22 54 61 67 73 22 20 6d 65 74 61 64 61 74 61 29 29 29 0a .(cdr.(assoc."Tags".metadata))).
2dbc0 20 20 20 20 20 20 20 20 20 28 63 6f 6d 6d 65 6e 74 20 28 63 64 72 20 28 61 73 73 6f 63 20 22 43 .........(comment.(cdr.(assoc."C
2dbe0 6f 6d 6d 65 6e 74 73 22 20 6d 65 74 61 64 61 74 61 29 29 29 0a 20 20 20 20 20 20 20 20 20 28 6d omments".metadata)))..........(m
2dc00 79 61 75 74 68 6f 72 73 20 28 63 64 72 20 28 61 73 73 6f 63 20 22 41 75 74 68 6f 72 73 22 20 6d yauthors.(cdr.(assoc."Authors".m
2dc20 65 74 61 64 61 74 61 29 29 29 0a 20 20 20 20 20 20 20 20 20 28 74 69 74 6c 65 20 28 63 64 72 20 etadata)))..........(title.(cdr.
2dc40 28 61 73 73 6f 63 20 22 54 69 74 6c 65 22 20 6d 65 74 61 64 61 74 61 29 29 29 0a 20 20 20 20 20 (assoc."Title".metadata)))......
2dc60 20 20 20 20 28 70 75 62 64 61 74 65 20 28 63 64 72 20 28 61 73 73 6f 63 20 22 50 75 62 6c 69 73 ....(pubdate.(cdr.(assoc."Publis
2dc80 68 65 64 22 20 6d 65 74 61 64 61 74 61 29 29 29 0a 20 20 20 20 20 20 20 20 20 3b 3b 20 28 71 75 hed".metadata)))..........;;.(qu
2dca0 65 72 79 2d 72 65 73 75 6c 74 20 28 63 64 72 20 28 63 61 72 20 28 63 61 6c 69 62 72 65 64 62 2d ery-result.(cdr.(car.(calibredb-
2dcc0 63 61 6e 64 69 64 61 74 65 20 69 64 29 29 29 29 20 3b 20 67 65 74 20 74 68 65 20 6e 65 77 20 6d candidate.id)))).;.get.the.new.m
2dce0 65 74 61 64 61 74 61 20 74 68 72 6f 75 67 68 20 53 51 4c 20 71 75 65 72 79 0a 20 20 20 20 20 20 etadata.through.SQL.query.......
2dd00 20 20 20 3b 3b 20 28 63 6f 76 65 72 20 28 66 6f 72 6d 61 74 20 22 2f 74 6d 70 2f 25 73 2e 6a 70 ...;;.(cover.(format."/tmp/%s.jp
2dd20 67 22 20 73 6f 75 72 63 65 29 29 0a 20 20 20 20 20 20 20 20 20 28 63 6f 76 65 72 20 28 63 61 6c g".source))..........(cover.(cal
2dd40 69 62 72 65 64 62 2d 67 65 74 2d 63 6f 76 65 72 20 28 63 61 72 20 28 63 61 6c 69 62 72 65 64 62 ibredb-get-cover.(car.(calibredb
2dd60 2d 66 69 6e 64 2d 63 61 6e 64 69 64 61 74 65 2d 61 74 2d 70 6f 69 6e 74 29 29 29 29 0a 20 20 20 -find-candidate-at-point))))....
2dd80 20 20 20 20 20 20 3b 3b 20 28 66 6f 72 6d 61 74 20 28 63 61 6c 69 62 72 65 64 62 2d 67 65 74 61 ......;;.(format.(calibredb-geta
2dda0 74 74 72 20 6d 65 74 61 64 61 74 61 20 3a 62 6f 6f 6b 2d 66 6f 72 6d 61 74 29 29 0a 20 20 20 20 ttr.metadata.:book-format)).....
2ddc0 20 20 20 20 20 28 6f 72 69 67 69 6e 61 6c 20 28 70 6f 69 6e 74 29 29 0a 20 20 20 20 20 20 20 20 .....(original.(point)).........
2dde0 20 62 65 67 20 65 6e 64 29 0a 20 20 20 20 28 63 6c 65 61 72 2d 69 6d 61 67 65 2d 63 61 63 68 65 .beg.end).....(clear-image-cache
2de00 20 63 6f 76 65 72 29 0a 20 20 20 20 28 6c 65 74 20 28 28 69 6e 68 69 62 69 74 2d 72 65 61 64 2d .cover).....(let.((inhibit-read-
2de20 6f 6e 6c 79 20 74 29 29 0a 20 20 20 20 20 20 28 77 69 74 68 2d 63 75 72 72 65 6e 74 2d 62 75 66 only.t)).......(with-current-buf
2de40 66 65 72 20 62 75 66 66 0a 20 20 20 20 20 20 20 20 28 65 72 61 73 65 2d 62 75 66 66 65 72 29 0a fer.buff.........(erase-buffer).
2de60 20 20 20 20 20 20 20 20 28 73 65 74 71 20 62 65 67 20 28 70 6f 69 6e 74 29 29 0a 20 20 20 20 20 ........(setq.beg.(point))......
2de80 20 20 20 3b 3b 20 28 69 6e 73 65 72 74 20 28 70 72 6f 70 65 72 74 69 7a 65 20 28 63 61 6c 69 62 ...;;.(insert.(propertize.(calib
2dea0 72 65 64 62 2d 73 68 6f 77 2d 6d 65 74 61 64 61 74 61 20 6d 65 74 61 64 61 74 61 29 20 27 63 61 redb-show-metadata.metadata).'ca
2dec0 6c 69 62 72 65 64 62 2d 6d 65 74 61 64 61 74 61 20 6d 65 74 61 64 61 74 61 29 29 0a 20 20 20 20 libredb-metadata.metadata)).....
2dee0 20 20 20 20 28 73 65 74 71 20 65 6e 64 20 28 70 6f 69 6e 74 29 29 0a 20 20 20 20 20 20 20 20 28 ....(setq.end.(point)).........(
2df00 70 75 74 2d 74 65 78 74 2d 70 72 6f 70 65 72 74 79 20 62 65 67 20 65 6e 64 20 27 63 61 6c 69 62 put-text-property.beg.end.'calib
2df20 72 65 64 62 2d 6d 65 74 61 64 61 74 61 20 6d 65 74 61 64 61 74 61 29 0a 20 20 20 20 20 20 20 20 redb-metadata.metadata).........
2df40 28 69 6e 73 65 72 74 20 28 66 6f 72 6d 61 74 20 22 54 69 74 6c 65 20 20 20 20 20 20 20 25 73 5c (insert.(format."Title.......%s\
2df60 6e 22 20 28 70 72 6f 70 65 72 74 69 7a 65 20 74 69 74 6c 65 20 27 66 61 63 65 20 27 63 61 6c 69 n".(propertize.title.'face.'cali
2df80 62 72 65 64 62 2d 74 69 74 6c 65 2d 66 61 63 65 29 29 29 0a 20 20 20 20 20 20 20 20 28 69 6e 73 bredb-title-face))).........(ins
2dfa0 65 72 74 20 28 66 6f 72 6d 61 74 20 22 41 75 74 68 6f 72 28 73 29 20 20 20 25 73 5c 6e 22 20 28 ert.(format."Author(s)...%s\n".(
2dfc0 70 72 6f 70 65 72 74 69 7a 65 20 6d 79 61 75 74 68 6f 72 73 20 27 66 61 63 65 20 27 63 61 6c 69 propertize.myauthors.'face.'cali
2dfe0 62 72 65 64 62 2d 61 75 74 68 6f 72 2d 66 61 63 65 29 29 29 0a 20 20 20 20 20 20 20 20 28 77 68 bredb-author-face))).........(wh
2e000 65 6e 20 74 61 67 20 28 69 6e 73 65 72 74 20 28 66 6f 72 6d 61 74 20 22 54 61 67 73 20 20 20 20 en.tag.(insert.(format."Tags....
2e020 20 20 20 20 25 73 5c 6e 22 20 28 70 72 6f 70 65 72 74 69 7a 65 20 74 61 67 20 27 66 61 63 65 20 ....%s\n".(propertize.tag.'face.
2e040 27 63 61 6c 69 62 72 65 64 62 2d 74 61 67 2d 66 61 63 65 29 29 29 29 0a 20 20 20 20 20 20 20 20 'calibredb-tag-face)))).........
2e060 28 77 68 65 6e 20 63 6f 6d 6d 65 6e 74 0a 20 20 20 20 20 20 20 20 20 20 28 69 6e 73 65 72 74 20 (when.comment...........(insert.
2e080 28 66 6f 72 6d 61 74 20 22 43 6f 6d 6d 65 6e 74 73 20 20 20 20 25 73 5c 6e 22 20 28 70 72 6f 70 (format."Comments....%s\n".(prop
2e0a0 65 72 74 69 7a 65 20 63 6f 6d 6d 65 6e 74 20 27 66 61 63 65 20 27 63 61 6c 69 62 72 65 64 62 2d ertize.comment.'face.'calibredb-
2e0c0 63 6f 6d 6d 65 6e 74 2d 66 61 63 65 29 29 29 29 0a 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 70 comment-face)))).........(when.p
2e0e0 75 62 64 61 74 65 0a 20 20 20 20 20 20 20 20 20 20 28 69 6e 73 65 72 74 20 28 66 6f 72 6d 61 74 ubdate...........(insert.(format
2e100 20 22 50 75 62 6c 69 73 68 65 64 20 20 20 25 73 5c 6e 22 20 28 70 72 6f 70 65 72 74 69 7a 65 20 ."Published...%s\n".(propertize.
2e120 70 75 62 64 61 74 65 20 27 66 61 63 65 20 27 63 61 6c 69 62 72 65 64 62 2d 70 75 62 64 61 74 65 pubdate.'face.'calibredb-pubdate
2e140 2d 66 61 63 65 29 29 29 29 0a 20 20 20 20 20 20 20 20 28 69 6e 73 65 72 74 20 22 5c 6e 22 29 0a -face)))).........(insert."\n").
2e160 20 20 20 20 20 20 20 20 3b 3b 20 28 69 66 20 28 69 6d 61 67 65 2d 74 79 70 65 2d 61 76 61 69 6c ........;;.(if.(image-type-avail
2e180 61 62 6c 65 2d 70 20 28 69 6e 74 65 72 6e 20 66 6f 72 6d 61 74 29 29 0a 20 20 20 20 20 20 20 20 able-p.(intern.format)).........
2e1a0 3b 3b 20 20 20 20 20 28 63 61 6c 69 62 72 65 64 62 2d 69 6e 73 65 72 74 2d 69 6d 61 67 65 20 66 ;;.....(calibredb-insert-image.f
2e1c0 69 6c 65 20 22 22 20 63 61 6c 69 62 72 65 64 62 2d 6c 69 73 74 2d 76 69 65 77 2d 69 6d 61 67 65 ile."".calibredb-list-view-image
2e1e0 2d 6d 61 78 2d 77 69 64 74 68 20 63 61 6c 69 62 72 65 64 62 2d 6c 69 73 74 2d 76 69 65 77 2d 69 -max-width.calibredb-list-view-i
2e200 6d 61 67 65 2d 6d 61 78 2d 68 65 69 67 68 74 29 0a 20 20 20 20 20 20 20 20 3b 3b 20 20 20 28 63 mage-max-height).........;;...(c
2e220 61 6c 69 62 72 65 64 62 2d 69 6e 73 65 72 74 2d 69 6d 61 67 65 20 63 6f 76 65 72 20 22 22 20 63 alibredb-insert-image.cover."".c
2e240 61 6c 69 62 72 65 64 62 2d 6c 69 73 74 2d 76 69 65 77 2d 69 6d 61 67 65 2d 6d 61 78 2d 77 69 64 alibredb-list-view-image-max-wid
2e260 74 68 20 63 61 6c 69 62 72 65 64 62 2d 6c 69 73 74 2d 76 69 65 77 2d 69 6d 61 67 65 2d 6d 61 78 th.calibredb-list-view-image-max
2e280 2d 68 65 69 67 68 74 29 29 0a 20 20 20 20 20 20 20 20 28 69 66 20 63 6f 76 65 72 0a 20 20 20 20 -height)).........(if.cover.....
2e2a0 20 20 20 20 20 20 20 20 28 63 61 6c 69 62 72 65 64 62 2d 69 6e 73 65 72 74 2d 69 6d 61 67 65 20 ........(calibredb-insert-image.
2e2c0 63 6f 76 65 72 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 cover...........................
2e2e0 20 20 20 20 20 20 20 20 20 20 22 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..........""....................
2e300 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 61 6c 69 62 72 65 64 62 2d 6c 69 73 74 2d .................calibredb-list-
2e320 76 69 65 77 2d 69 6d 61 67 65 2d 6d 61 78 2d 77 69 64 74 68 0a 20 20 20 20 20 20 20 20 20 20 20 view-image-max-width............
2e340 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 61 6c 69 62 72 65 .........................calibre
2e360 64 62 2d 6c 69 73 74 2d 76 69 65 77 2d 69 6d 61 67 65 2d 6d 61 78 2d 68 65 69 67 68 74 29 0a 20 db-list-view-image-max-height)..
2e380 20 20 20 20 20 20 20 20 20 28 70 72 69 6e 74 20 22 4e 6f 20 63 6f 76 65 72 20 61 76 61 69 6c 61 .........(print."No.cover.availa
2e3a0 62 6c 65 22 29 29 0a 20 20 20 20 20 20 20 20 3b 3b 20 28 73 65 74 71 20 65 6e 64 20 28 70 6f 69 ble")).........;;.(setq.end.(poi
2e3c0 6e 74 29 29 0a 20 20 20 20 20 20 20 20 28 63 61 6c 69 62 72 65 64 62 2d 73 68 6f 77 2d 6d 6f 64 nt)).........(calibredb-show-mod
2e3e0 65 29 0a 20 20 20 20 20 20 20 20 3b 3b 20 28 73 65 74 71 20 63 61 6c 69 62 72 65 64 62 2d 73 68 e).........;;.(setq.calibredb-sh
2e400 6f 77 2d 6d 65 74 61 64 61 74 61 20 6d 65 74 61 64 61 74 61 29 0a 20 20 20 20 20 20 20 20 28 67 ow-metadata.metadata).........(g
2e420 6f 74 6f 2d 63 68 61 72 20 28 70 6f 69 6e 74 2d 6d 69 6e 29 29 29 29 0a 20 20 20 20 28 75 6e 6c oto-char.(point-min)))).....(unl
2e440 65 73 73 20 28 65 71 20 6d 61 6a 6f 72 2d 6d 6f 64 65 20 27 63 61 6c 69 62 72 65 64 62 2d 73 68 ess.(eq.major-mode.'calibredb-sh
2e460 6f 77 2d 6d 6f 64 65 29 0a 20 20 20 20 20 20 28 73 77 69 74 63 68 2d 74 6f 2d 62 75 66 66 65 72 ow-mode).......(switch-to-buffer
2e480 20 62 75 66 66 29 0a 20 20 20 20 20 20 28 77 68 65 6e 20 73 77 69 74 63 68 0a 20 20 20 20 20 20 .buff).......(when.switch.......
2e4a0 20 20 28 73 77 69 74 63 68 2d 74 6f 2d 62 75 66 66 65 72 2d 6f 74 68 65 72 2d 77 69 6e 64 6f 77 ..(switch-to-buffer-other-window
2e4c0 20 28 73 65 74 2d 62 75 66 66 65 72 20 28 63 61 6c 69 62 72 65 64 62 2d 73 65 61 72 63 68 2d 2d .(set-buffer.(calibredb-search--
2e4e0 62 75 66 66 65 72 2d 6e 61 6d 65 29 29 29 0a 20 20 20 20 20 20 20 20 28 67 6f 74 6f 2d 63 68 61 buffer-name))).........(goto-cha
2e500 72 20 6f 72 69 67 69 6e 61 6c 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 63 61 6c 69 62 72 65 64 r.original)))))..(defun.calibred
2e520 62 2d 66 65 74 63 68 2d 6d 65 74 61 64 61 74 61 2d 66 72 6f 6d 2d 73 6f 75 72 63 65 73 20 28 61 b-fetch-metadata-from-sources.(a
2e540 75 74 68 6f 72 20 74 69 74 6c 65 20 26 6f 70 74 69 6f 6e 61 6c 20 69 64 73 20 69 73 62 6e 20 66 uthor.title.&optional.ids.isbn.f
2e560 65 74 63 68 2d 63 6f 76 65 72 29 0a 20 20 22 46 65 74 63 68 20 6d 65 74 61 64 61 74 61 20 66 72 etch-cover)..."Fetch.metadata.fr
2e580 6f 6d 20 6f 6e 6c 69 6e 65 20 73 6f 75 72 63 65 20 76 69 61 20 61 75 74 68 6f 72 20 61 6e 64 20 om.online.source.via.author.and.
2e5a0 74 69 74 6c 65 20 6f 72 20 49 53 42 4e 2e 0a 49 6e 76 6f 6b 65 20 66 72 6f 6d 20 2a 63 61 6c 69 title.or.ISBN..Invoke.from.*cali
2e5c0 62 72 65 64 62 2d 73 65 61 72 63 68 2a 20 62 75 66 66 65 72 2e 0a 41 55 54 48 4f 52 2c 20 54 49 bredb-search*.buffer..AUTHOR,.TI
2e5e0 54 4c 45 2c 20 49 44 53 20 61 6e 64 20 49 53 42 4e 20 73 68 6f 75 6c 64 20 62 65 20 73 74 72 69 TLE,.IDS.and.ISBN.should.be.stri
2e600 6e 67 73 2e 0a 52 65 74 75 72 6e 73 20 61 6e 20 61 6c 69 73 74 20 77 69 74 68 20 65 6c 65 6d 65 ngs..Returns.an.alist.with.eleme
2e620 6e 74 73 20 28 53 4f 55 52 43 45 20 52 45 53 55 4c 54 53 29 20 77 68 65 72 65 20 53 4f 55 52 43 nts.(SOURCE.RESULTS).where.SOURC
2e640 45 20 69 73 20 61 0a 73 74 72 69 6e 67 20 61 6e 64 20 52 45 53 55 4c 54 53 20 69 73 20 61 6e 20 E.is.a.string.and.RESULTS.is.an.
2e660 61 6c 69 73 74 20 77 69 74 68 20 65 6c 65 6d 65 6e 74 73 20 28 50 52 4f 50 20 56 41 4c 55 45 29 alist.with.elements.(PROP.VALUE)
2e680 2e 20 49 66 20 6e 6f 0a 6d 65 74 61 64 61 74 61 20 77 61 73 20 66 6f 75 6e 64 20 66 72 6f 6d 20 ..If.no.metadata.was.found.from.
2e6a0 61 20 73 6f 75 72 63 65 20 74 68 65 6e 20 69 6e 20 74 68 65 6e 20 6e 69 6c 20 69 73 20 72 65 74 a.source.then.in.then.nil.is.ret
2e6c0 75 72 6e 65 64 20 69 6e 0a 74 68 65 20 6f 75 74 65 72 20 61 6c 69 73 74 20 28 6e 69 6c 20 69 6e urned.in.the.outer.alist.(nil.in
2e6e0 73 74 65 61 64 20 6f 66 20 28 53 4f 55 52 43 45 20 52 45 53 55 4c 54 53 29 29 2e 22 0a 20 20 28 stead.of.(SOURCE.RESULTS))."...(
2e700 6c 65 74 2a 20 28 28 61 75 74 68 6f 72 73 20 28 69 66 20 28 6f 72 20 69 73 62 6e 20 69 64 73 29 let*.((authors.(if.(or.isbn.ids)
2e720 20 22 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 72 65 61 64 2d 73 74 ."".....................(read-st
2e740 72 69 6e 67 20 22 41 75 74 68 6f 72 73 3a 20 22 20 61 75 74 68 6f 72 29 29 29 0a 20 20 20 20 20 ring."Authors:.".author)))......
2e760 20 20 20 20 28 74 69 74 6c 65 20 28 69 66 20 28 6f 72 20 69 73 62 6e 20 69 64 73 29 20 22 22 0a ....(title.(if.(or.isbn.ids)."".
2e780 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 72 65 61 64 2d 73 74 72 69 6e 67 20 22 ..................(read-string."
2e7a0 54 69 74 6c 65 3a 20 22 20 74 69 74 6c 65 29 29 29 0a 20 20 20 20 20 20 20 20 20 28 69 64 20 28 Title:.".title)))..........(id.(
2e7c0 69 66 20 69 64 73 20 28 63 6f 6d 70 6c 65 74 69 6e 67 2d 72 65 61 64 20 22 49 44 3a 20 22 20 69 if.ids.(completing-read."ID:.".i
2e7e0 64 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6e 69 6c 29 29 0a 20 20 20 20 20 20 20 ds)................nil))........
2e800 20 20 28 69 73 62 6e 20 28 69 66 20 69 73 62 6e 20 28 72 65 61 64 2d 73 74 72 69 6e 67 20 22 49 ..(isbn.(if.isbn.(read-string."I
2e820 53 42 4e 3a 20 22 20 69 73 62 6e 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6e 69 SBN:.".isbn)..................ni
2e840 6c 29 29 29 0a 20 20 20 20 28 6d 65 73 73 61 67 65 20 22 46 65 74 63 68 69 6e 67 20 6d 65 74 61 l))).....(message."Fetching.meta
2e860 64 61 74 61 20 66 72 6f 6d 20 73 6f 75 72 63 65 73 2e 2e 2e 20 6d 61 79 20 74 61 6b 65 20 61 20 data.from.sources....may.take.a.
2e880 66 65 77 20 73 65 63 6f 6e 64 73 22 29 0a 20 20 20 20 28 6c 65 74 2a 20 28 28 73 6f 75 72 63 65 few.seconds").....(let*.((source
2e8a0 73 20 63 61 6c 69 62 72 65 64 62 2d 66 65 74 63 68 2d 6d 65 74 61 64 61 74 61 2d 73 6f 75 72 63 s.calibredb-fetch-metadata-sourc
2e8c0 65 2d 6c 69 73 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 72 65 73 75 6c 74 73 20 28 6d 61 70 e-list)............(results.(map
2e8e0 63 61 72 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 61 6d 62 64 61 car......................(lambda
2e900 20 28 73 6f 75 72 63 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .(source).......................
2e920 20 28 6c 65 74 2a 20 28 28 63 6d 64 20 28 63 6f 6e 64 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 .(let*.((cmd.(cond..............
2e940 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 64 0a 20 20 20 20 20 .......................(id......
2e960 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ................................
2e980 28 66 6f 72 6d 61 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 (format.........................
2e9a0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 66 20 66 65 74 63 68 2d 63 6f 76 65 72 0a 20 20 ..............(if.fetch-cover...
2e9c0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ................................
2e9e0 20 20 20 20 20 20 20 20 60 2c 28 66 6f 72 6d 61 74 20 22 25 25 73 20 2d 70 20 5c 22 25 25 73 5c ........`,(format."%%s.-p.\"%%s\
2ea00 22 20 2d 2d 69 64 65 6e 74 69 66 69 65 72 20 5c 22 25 25 73 5c 22 20 2d 63 20 25 73 20 20 32 3e ".--identifier.\"%%s\".-c.%s..2>
2ea20 2f 64 65 76 2f 6e 75 6c 6c 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 /dev/null"......................
2ea40 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 ...............................(
2ea60 65 78 70 61 6e 64 2d 66 69 6c 65 2d 6e 61 6d 65 20 22 63 6f 76 65 72 2e 6a 70 67 22 20 74 65 6d expand-file-name."cover.jpg".tem
2ea80 70 6f 72 61 72 79 2d 66 69 6c 65 2d 64 69 72 65 63 74 6f 72 79 29 29 0a 20 20 20 20 20 20 20 20 porary-file-directory)).........
2eaa0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ................................
2eac0 22 25 73 20 2d 70 20 5c 22 25 73 5c 22 20 2d 2d 69 64 65 6e 74 69 66 69 65 72 20 5c 22 25 73 5c "%s.-p.\"%s\".--identifier.\"%s\
2eae0 22 20 32 3e 2f 64 65 76 2f 6e 75 6c 6c 22 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ".2>/dev/null").................
2eb00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 61 6c 69 62 72 65 64 62 2d ......................calibredb-
2eb20 66 65 74 63 68 2d 6d 65 74 61 64 61 74 61 2d 70 72 6f 67 72 61 6d 0a 20 20 20 20 20 20 20 20 20 fetch-metadata-program..........
2eb40 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 6f 75 .............................sou
2eb60 72 63 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 rce.............................
2eb80 20 20 20 20 20 20 20 20 20 20 69 64 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..........id))..................
2eba0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 73 62 6e 0a 20 20 20 20 20 20 20 ...................(isbn........
2ebc0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 ..............................(f
2ebe0 6f 72 6d 61 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ormat...........................
2ec00 20 20 20 20 20 20 20 20 20 20 20 20 28 69 66 20 66 65 74 63 68 2d 63 6f 76 65 72 0a 20 20 20 20 ............(if.fetch-cover.....
2ec20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ................................
2ec40 20 20 20 20 20 20 60 2c 28 66 6f 72 6d 61 74 20 22 25 25 73 20 2d 70 20 5c 22 25 25 73 5c 22 20 ......`,(format."%%s.-p.\"%%s\".
2ec60 2d 2d 69 73 62 6e 20 5c 22 25 25 73 5c 22 20 2d 63 20 25 73 20 20 32 3e 2f 64 65 76 2f 6e 75 6c --isbn.\"%%s\".-c.%s..2>/dev/nul
2ec80 6c 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 l"..............................
2eca0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 65 78 70 61 6e 64 2d 66 69 ......................(expand-fi
2ecc0 6c 65 2d 6e 61 6d 65 20 22 63 6f 76 65 72 2e 6a 70 67 22 20 74 65 6d 70 6f 72 61 72 79 2d 66 69 le-name."cover.jpg".temporary-fi
2ece0 6c 65 2d 64 69 72 65 63 74 6f 72 79 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 le-directory))..................
2ed00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 25 73 20 2d 70 20 5c 22 ......................."%s.-p.\"
2ed20 25 73 5c 22 20 2d 2d 69 73 62 6e 20 5c 22 25 73 5c 22 20 32 3e 2f 64 65 76 2f 6e 75 6c 6c 22 29 %s\".--isbn.\"%s\".2>/dev/null")
2ed40 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ................................
2ed60 20 20 20 20 20 20 20 63 61 6c 69 62 72 65 64 62 2d 66 65 74 63 68 2d 6d 65 74 61 64 61 74 61 2d .......calibredb-fetch-metadata-
2ed80 70 72 6f 67 72 61 6d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 program.........................
2eda0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 6f 75 72 63 65 0a 20 20 20 20 20 20 20 20 20 20 20 ..............source............
2edc0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 73 62 6e 29 ...........................isbn)
2ede0 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 )...............................
2ee00 20 20 20 20 20 20 28 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ......(t........................
2ee20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 6f 72 6d 61 74 0a 20 20 20 20 20 20 20 20 20 20 ..............(format...........
2ee40 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 66 20 ............................(if.
2ee60 66 65 74 63 68 2d 63 6f 76 65 72 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 fetch-cover.....................
2ee80 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 60 2c 28 66 6f 72 6d 61 74 20 ......................`,(format.
2eea0 22 25 25 73 20 2d 70 20 5c 22 25 25 73 5c 22 20 2d 2d 61 75 74 68 6f 72 73 20 5c 22 25 25 73 5c "%%s.-p.\"%%s\".--authors.\"%%s\
2eec0 22 20 2d 2d 74 69 74 6c 65 20 5c 22 25 25 73 5c 22 20 2d 63 20 25 73 20 20 32 3e 2f 64 65 76 2f ".--title.\"%%s\".-c.%s..2>/dev/
2eee0 6e 75 6c 6c 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 null"...........................
2ef00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 65 78 70 61 6e 64 .........................(expand
2ef20 2d 66 69 6c 65 2d 6e 61 6d 65 20 22 63 6f 76 65 72 2e 6a 70 67 22 20 74 65 6d 70 6f 72 61 72 79 -file-name."cover.jpg".temporary
2ef40 2d 66 69 6c 65 2d 64 69 72 65 63 74 6f 72 79 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 -file-directory))...............
2ef60 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 25 73 20 2d 70 .........................."%s.-p
2ef80 20 5c 22 25 73 5c 22 20 2d 2d 61 75 74 68 6f 72 73 20 5c 22 25 73 5c 22 20 2d 2d 74 69 74 6c 65 .\"%s\".--authors.\"%s\".--title
2efa0 20 5c 22 25 73 5c 22 20 32 3e 2f 64 65 76 2f 6e 75 6c 6c 22 29 0a 20 20 20 20 20 20 20 20 20 20 .\"%s\".2>/dev/null")...........
2efc0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 61 6c 69 ............................cali
2efe0 62 72 65 64 62 2d 66 65 74 63 68 2d 6d 65 74 61 64 61 74 61 2d 70 72 6f 67 72 61 6d 0a 20 20 20 bredb-fetch-metadata-program....
2f000 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ................................
2f020 20 20 20 73 6f 75 72 63 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ...source.......................
2f040 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 61 75 74 68 6f 72 73 0a 20 20 20 20 20 20 20 20 ................authors.........
2f060 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 69 ..............................ti
2f080 74 6c 65 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 tle)))).........................
2f0a0 20 20 20 20 20 20 28 6d 64 20 28 73 68 65 6c 6c 2d 63 6f 6d 6d 61 6e 64 2d 74 6f 2d 73 74 72 69 ......(md.(shell-command-to-stri
2f0c0 6e 67 20 63 6d 64 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ng.cmd))........................
2f0e0 20 20 20 20 20 20 20 28 6d 64 2d 73 70 6c 69 74 20 28 69 66 20 28 73 74 72 69 6e 67 2d 6d 61 74 .......(md-split.(if.(string-mat
2f100 63 68 20 22 4e 6f 20 72 65 73 75 6c 74 73 20 66 6f 75 6e 64 24 22 20 6d 64 29 20 6e 69 6c 0a 20 ch."No.results.found$".md).nil..
2f120 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ................................
2f140 20 20 20 20 20 20 20 20 20 28 73 70 6c 69 74 2d 73 74 72 69 6e 67 20 6d 64 20 22 43 6f 6d 6d 65 .........(split-string.md."Comme
2f160 6e 74 73 22 20 6e 69 6c 20 22 20 2a 22 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 nts".nil.".*")))................
2f180 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6e 6f 2d 63 6f 6d 6d 65 6e 74 73 20 28 69 66 20 ...............(no-comments.(if.
2f1a0 6d 64 2d 73 70 6c 69 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 md-split........................
2f1c0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6d 61 70 63 61 72 20 ........................(mapcar.
2f1e0 28 6c 61 6d 62 64 61 20 28 78 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 (lambda.(x).....................
2f200 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ................................
2f220 20 20 20 20 20 28 6c 65 74 20 28 28 73 74 72 69 6e 67 20 78 29 29 0a 20 20 20 20 20 20 20 20 20 .....(let.((string.x))..........
2f240 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ................................
2f260 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 74 72 69 6e 67 2d 6d 61 74 63 68 20 ..................(string-match.
2f280 22 5c 5c 28 5b 41 2d 7a 5d 2a 5c 5c 29 28 2a 5c 5c 28 73 5c 5c 29 2a 29 2a 20 2a 3a 20 2a 5c 5c "\\([A-z]*\\)(*\\(s\\)*)*.*:.*\\
2f2a0 28 2e 2a 5c 5c 29 22 20 73 74 72 69 6e 67 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 (.*\\)".string).................
2f2c0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ................................
2f2e0 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 6e 73 20 28 66 6f 72 6d 61 74 20 22 25 73 25 73 22 20 ...........(cons.(format."%s%s".
2f300 28 6d 61 74 63 68 2d 73 74 72 69 6e 67 20 31 20 73 74 72 69 6e 67 29 20 28 63 6f 6e 64 20 28 28 (match-string.1.string).(cond.((
2f320 6d 61 74 63 68 2d 73 74 72 69 6e 67 20 32 20 73 74 72 69 6e 67 29 29 0a 20 20 20 20 20 20 20 20 match-string.2.string)).........
2f340 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ................................
2f360 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ................................
2f380 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ................................
2f3a0 20 20 20 20 20 20 28 22 22 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ......("")))....................
2f3c0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ................................
2f3e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6d 61 74 63 68 2d 73 74 72 69 6e 67 20 33 20 73 74 ..............(match-string.3.st
2f400 72 69 6e 67 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ring))))........................
2f420 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ................................
2f440 28 73 70 6c 69 74 2d 73 74 72 69 6e 67 20 28 63 61 72 20 6d 64 2d 73 70 6c 69 74 29 20 22 5c 6e (split-string.(car.md-split)."\n
2f460 22 20 74 20 22 20 2a 22 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ".t.".*"))......................
2f480 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6e 69 6c 29 29 0a 20 20 ........................nil))...
2f4a0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6b 6f 76 ............................(kov
2f4c0 69 64 73 2d 6d 61 67 69 63 20 22 25 73 20 2d 63 20 20 5c 22 66 72 6f 6d 20 63 61 6c 69 62 72 65 ids-magic."%s.-c..\"from.calibre
2f4e0 2e 65 62 6f 6f 6b 73 2e 6d 65 74 61 64 61 74 61 20 69 6d 70 6f 72 74 20 2a 3b 20 69 6d 70 6f 72 .ebooks.metadata.import.*;.impor
2f500 74 20 73 79 73 3b 20 70 72 69 6e 74 28 61 75 74 68 6f 72 5f 74 6f 5f 61 75 74 68 6f 72 5f 73 6f t.sys;.print(author_to_author_so
2f520 72 74 28 27 20 27 2e 6a 6f 69 6e 28 73 79 73 2e 61 72 67 76 5b 31 3a 5d 29 29 29 5c 22 20 5c 22 rt('.'.join(sys.argv[1:])))\".\"
2f540 25 73 5c 22 22 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 %s\"")..........................
2f560 20 20 20 20 20 28 61 75 74 68 6f 72 2d 73 6f 72 74 20 28 77 68 65 6e 20 28 63 64 72 20 28 61 73 .....(author-sort.(when.(cdr.(as
2f580 73 6f 63 20 22 41 75 74 68 6f 72 73 22 20 6e 6f 2d 63 6f 6d 6d 65 6e 74 73 29 29 0a 20 20 20 20 soc."Authors".no-comments)).....
2f5a0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ................................
2f5c0 20 20 20 20 20 20 20 20 20 28 73 68 65 6c 6c 2d 63 6f 6d 6d 61 6e 64 2d 74 6f 2d 73 74 72 69 6e .........(shell-command-to-strin
2f5e0 67 20 28 66 6f 72 6d 61 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 g.(format.......................
2f600 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ................................
2f620 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6b 6f 76 69 64 73 2d 6d 61 67 69 63 0a 20 20 .................kovids-magic...
2f640 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ................................
2f660 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ................................
2f680 20 20 20 20 20 63 61 6c 69 62 72 65 64 62 2d 64 65 62 75 67 2d 70 72 6f 67 72 61 6d 0a 20 20 20 .....calibredb-debug-program....
2f6a0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ................................
2f6c0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ................................
2f6e0 20 20 20 20 28 69 6e 74 65 72 6e 20 28 63 64 72 20 28 61 73 73 6f 63 20 22 41 75 74 68 6f 72 73 ....(intern.(cdr.(assoc."Authors
2f700 22 20 6e 6f 2d 63 6f 6d 6d 65 6e 74 73 29 29 29 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 ".no-comments)))))))............
2f720 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6e 65 77 2d 63 6f 6d 6d 65 6e 74 73 ...................(new-comments
2f740 20 28 77 68 65 6e 20 61 75 74 68 6f 72 2d 73 6f 72 74 20 28 61 70 70 65 6e 64 20 6e 6f 2d 63 6f .(when.author-sort.(append.no-co
2f760 6d 6d 65 6e 74 73 20 28 6c 69 73 74 20 28 63 6f 6e 73 20 22 41 75 74 68 6f 72 5f 73 6f 72 74 22 mments.(list.(cons."Author_sort"
2f780 20 61 75 74 68 6f 72 2d 73 6f 72 74 29 29 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 .author-sort))))))..............
2f7a0 20 20 20 20 20 20 20 20 20 20 20 20 28 6d 65 73 73 61 67 65 20 63 6d 64 29 0a 20 20 20 20 20 20 ............(message.cmd).......
2f7c0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 66 20 28 6e 74 68 20 31 20 6d 64 ...................(if.(nth.1.md
2f7e0 2d 73 70 6c 69 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 -split).........................
2f800 20 20 20 20 20 28 77 68 65 6e 20 6e 65 77 2d 63 6f 6d 6d 65 6e 74 73 20 28 63 6f 6e 73 20 73 6f .....(when.new-comments.(cons.so
2f820 75 72 63 65 20 28 61 70 70 65 6e 64 20 6e 65 77 2d 63 6f 6d 6d 65 6e 74 73 20 28 6c 69 73 74 20 urce.(append.new-comments.(list.
2f840 28 63 6f 6e 73 20 22 43 6f 6d 6d 65 6e 74 73 22 20 28 73 75 62 73 74 72 69 6e 67 20 28 6e 74 68 (cons."Comments".(substring.(nth
2f860 20 31 20 6d 64 2d 73 70 6c 69 74 29 20 32 29 29 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 .1.md-split).2))))))............
2f880 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 6e 65 77 2d 63 6f 6d 6d 65 6e ................(when.new-commen
2f8a0 74 73 20 28 63 6f 6e 73 20 73 6f 75 72 63 65 20 6e 65 77 2d 63 6f 6d 6d 65 6e 74 73 29 29 29 29 ts.(cons.source.new-comments))))
2f8c0 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 6f 75 72 63 65 73 29 29 )......................sources))
2f8e0 29 0a 20 20 20 20 20 20 28 69 66 20 28 72 65 6d 6f 76 65 20 6e 69 6c 20 72 65 73 75 6c 74 73 29 ).......(if.(remove.nil.results)
2f900 0a 20 20 20 20 20 20 20 20 20 20 28 72 65 6d 6f 76 65 20 6e 69 6c 20 72 65 73 75 6c 74 73 29 0a ...........(remove.nil.results).
2f920 20 20 20 20 20 20 20 20 6e 69 6c 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 63 61 6c 69 62 72 65 64 ........nil))))..(defun.calibred
2f940 62 2d 73 65 6c 65 63 74 2d 61 6e 64 2d 73 65 74 2d 63 6f 76 65 72 20 28 29 0a 20 20 22 53 65 6c b-select-and-set-cover.()..."Sel
2f960 65 63 74 20 61 6e 64 20 73 65 74 20 63 6f 76 65 72 2e 22 0a 20 20 28 77 68 65 6e 20 28 67 65 74 ect.and.set.cover."...(when.(get
2f980 2d 62 75 66 66 65 72 20 28 63 61 6c 69 62 72 65 64 62 2d 73 68 6f 77 2d 2d 62 75 66 66 65 72 2d -buffer.(calibredb-show--buffer-
2f9a0 6e 61 6d 65 20 28 63 61 6c 69 62 72 65 64 62 2d 66 69 6e 64 2d 63 61 6e 64 69 64 61 74 65 2d 61 name.(calibredb-find-candidate-a
2f9c0 74 2d 70 6f 69 6e 74 29 29 29 0a 20 20 20 20 28 6b 69 6c 6c 2d 62 75 66 66 65 72 20 28 63 61 6c t-point))).....(kill-buffer.(cal
2f9e0 69 62 72 65 64 62 2d 73 68 6f 77 2d 2d 62 75 66 66 65 72 2d 6e 61 6d 65 20 28 63 61 6c 69 62 72 ibredb-show--buffer-name.(calibr
2fa00 65 64 62 2d 66 69 6e 64 2d 63 61 6e 64 69 64 61 74 65 2d 61 74 2d 70 6f 69 6e 74 29 29 29 29 0a edb-find-candidate-at-point)))).
2fa20 20 20 28 6c 65 74 20 28 28 6f 72 69 67 69 6e 61 6c 20 28 63 61 6c 69 62 72 65 64 62 2d 67 65 74 ..(let.((original.(calibredb-get
2fa40 2d 63 6f 76 65 72 20 28 63 61 72 20 28 63 61 6c 69 62 72 65 64 62 2d 66 69 6e 64 2d 63 61 6e 64 -cover.(car.(calibredb-find-cand
2fa60 69 64 61 74 65 2d 61 74 2d 70 6f 69 6e 74 29 29 29 29 29 0a 20 20 20 20 28 69 66 20 28 61 6e 64 idate-at-point))))).....(if.(and
2fa80 20 28 66 69 6c 65 2d 65 78 69 73 74 73 2d 70 20 6f 72 69 67 69 6e 61 6c 29 20 28 66 69 6c 65 2d .(file-exists-p.original).(file-
2faa0 65 78 69 73 74 73 2d 70 20 28 65 78 70 61 6e 64 2d 66 69 6c 65 2d 6e 61 6d 65 20 22 63 6f 76 65 exists-p.(expand-file-name."cove
2fac0 72 2e 6a 70 67 22 20 74 65 6d 70 6f 72 61 72 79 2d 66 69 6c 65 2d 64 69 72 65 63 74 6f 72 79 29 r.jpg".temporary-file-directory)
2fae0 29 29 0a 20 20 20 20 20 20 20 20 28 6c 65 74 2a 20 28 28 62 75 66 66 20 28 67 65 74 2d 62 75 66 )).........(let*.((buff.(get-buf
2fb00 66 65 72 2d 63 72 65 61 74 65 20 28 63 61 6c 69 62 72 65 64 62 2d 73 68 6f 77 2d 2d 62 75 66 66 fer-create.(calibredb-show--buff
2fb20 65 72 2d 6e 61 6d 65 20 28 63 61 6c 69 62 72 65 64 62 2d 66 69 6e 64 2d 63 61 6e 64 69 64 61 74 er-name.(calibredb-find-candidat
2fb40 65 2d 61 74 2d 70 6f 69 6e 74 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 e-at-point))))................(f
2fb60 65 74 63 68 65 64 20 28 65 78 70 61 6e 64 2d 66 69 6c 65 2d 6e 61 6d 65 20 22 63 6f 76 65 72 2e etched.(expand-file-name."cover.
2fb80 6a 70 67 22 20 74 65 6d 70 6f 72 61 72 79 2d 66 69 6c 65 2d 64 69 72 65 63 74 6f 72 79 29 29 29 jpg".temporary-file-directory)))
2fba0 0a 20 20 20 20 20 20 20 20 20 20 28 63 6c 65 61 72 2d 69 6d 61 67 65 2d 63 61 63 68 65 20 28 65 ...........(clear-image-cache.(e
2fbc0 78 70 61 6e 64 2d 66 69 6c 65 2d 6e 61 6d 65 20 22 63 6f 76 65 72 2e 6a 70 67 22 20 74 65 6d 70 xpand-file-name."cover.jpg".temp
2fbe0 6f 72 61 72 79 2d 66 69 6c 65 2d 64 69 72 65 63 74 6f 72 79 29 29 0a 20 20 20 20 20 20 20 20 20 orary-file-directory))..........
2fc00 20 28 77 69 74 68 2d 63 75 72 72 65 6e 74 2d 62 75 66 66 65 72 20 62 75 66 66 0a 20 20 20 20 20 .(with-current-buffer.buff......
2fc20 20 20 20 20 20 20 20 28 63 61 6c 69 62 72 65 64 62 2d 69 6e 73 65 72 74 2d 69 6d 61 67 65 20 6f .......(calibredb-insert-image.o
2fc40 72 69 67 69 6e 61 6c 20 22 22 20 63 61 6c 69 62 72 65 64 62 2d 6c 69 73 74 2d 76 69 65 77 2d 69 riginal."".calibredb-list-view-i
2fc60 6d 61 67 65 2d 6d 61 78 2d 77 69 64 74 68 20 63 61 6c 69 62 72 65 64 62 2d 6c 69 73 74 2d 76 69 mage-max-width.calibredb-list-vi
2fc80 65 77 2d 69 6d 61 67 65 2d 6d 61 78 2d 68 65 69 67 68 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 ew-image-max-height)............
2fca0 20 28 69 6e 73 65 72 74 20 22 20 6f 72 69 67 69 6e 61 6c 20 20 66 65 74 63 68 65 64 20 22 29 0a .(insert.".original..fetched.").
2fcc0 20 20 20 20 20 20 20 20 20 20 20 20 28 63 61 6c 69 62 72 65 64 62 2d 69 6e 73 65 72 74 2d 69 6d ............(calibredb-insert-im
2fce0 61 67 65 20 66 65 74 63 68 65 64 20 22 22 20 63 61 6c 69 62 72 65 64 62 2d 6c 69 73 74 2d 76 69 age.fetched."".calibredb-list-vi
2fd00 65 77 2d 69 6d 61 67 65 2d 6d 61 78 2d 77 69 64 74 68 20 63 61 6c 69 62 72 65 64 62 2d 6c 69 73 ew-image-max-width.calibredb-lis
2fd20 74 2d 76 69 65 77 2d 69 6d 61 67 65 2d 6d 61 78 2d 68 65 69 67 68 74 29 0a 20 20 20 20 20 20 20 t-view-image-max-height)........
2fd40 20 20 20 20 20 28 73 77 69 74 63 68 2d 74 6f 2d 62 75 66 66 65 72 20 62 75 66 66 29 0a 20 20 20 .....(switch-to-buffer.buff)....
2fd60 20 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 28 73 74 72 69 6e 67 3d 20 28 63 6f 6d 70 6c 65 74 .........(when.(string=.(complet
2fd80 69 6e 67 2d 72 65 61 64 20 22 53 65 6c 65 63 74 20 63 6f 76 65 72 3a 20 22 20 27 28 22 6f 72 69 ing-read."Select.cover:.".'("ori
2fda0 67 69 6e 61 6c 22 20 22 66 65 74 63 68 65 64 22 29 29 20 22 66 65 74 63 68 65 64 22 29 0a 20 20 ginal"."fetched"))."fetched")...
2fdc0 20 20 20 20 20 20 20 20 20 20 20 20 28 72 65 6e 61 6d 65 2d 66 69 6c 65 20 28 65 78 70 61 6e 64 ............(rename-file.(expand
2fde0 2d 66 69 6c 65 2d 6e 61 6d 65 20 22 63 6f 76 65 72 2e 6a 70 67 22 20 74 65 6d 70 6f 72 61 72 79 -file-name."cover.jpg".temporary
2fe00 2d 66 69 6c 65 2d 64 69 72 65 63 74 6f 72 79 29 20 6f 72 69 67 69 6e 61 6c 20 74 29 29 0a 20 20 -file-directory).original.t))...
2fe20 20 20 20 20 20 20 20 20 20 20 28 6b 69 6c 6c 2d 62 75 66 66 65 72 29 29 29 0a 20 20 20 20 20 20 ..........(kill-buffer))).......
2fe40 28 63 6f 6e 64 20 28 28 66 69 6c 65 2d 65 78 69 73 74 73 2d 70 20 28 65 78 70 61 6e 64 2d 66 69 (cond.((file-exists-p.(expand-fi
2fe60 6c 65 2d 6e 61 6d 65 20 22 63 6f 76 65 72 2e 6a 70 67 22 20 74 65 6d 70 6f 72 61 72 79 2d 66 69 le-name."cover.jpg".temporary-fi
2fe80 6c 65 2d 64 69 72 65 63 74 6f 72 79 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 72 65 6e le-directory))..............(ren
2fea0 61 6d 65 2d 66 69 6c 65 20 28 65 78 70 61 6e 64 2d 66 69 6c 65 2d 6e 61 6d 65 20 22 63 6f 76 65 ame-file.(expand-file-name."cove
2fec0 72 2e 6a 70 67 22 20 74 65 6d 70 6f 72 61 72 79 2d 66 69 6c 65 2d 64 69 72 65 63 74 6f 72 79 29 r.jpg".temporary-file-directory)
2fee0 20 6f 72 69 67 69 6e 61 6c 20 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 72 69 6e 74 .original.t)..............(print
2ff00 20 22 46 65 74 63 68 65 64 20 63 6f 76 65 72 20 61 64 64 65 64 20 74 6f 20 65 6e 74 72 79 22 29 ."Fetched.cover.added.to.entry")
2ff20 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 74 20 28 70 72 69 6e 74 20 22 4e 6f 20 63 6f 76 65 ).............(t.(print."No.cove
2ff40 72 20 63 6f 75 6c 64 20 62 65 20 66 65 74 63 68 65 64 22 29 29 29 29 29 29 0a 0a 28 64 65 66 75 r.could.be.fetched"))))))..(defu
2ff60 6e 20 63 61 6c 69 62 72 65 64 62 2d 73 65 6c 65 63 74 2d 6d 65 74 61 64 61 74 61 2d 73 6f 75 72 n.calibredb-select-metadata-sour
2ff80 63 65 20 28 72 65 73 75 6c 74 73 29 0a 20 20 22 53 65 6c 65 63 74 20 6d 65 74 61 64 61 74 61 20 ce.(results)..."Select.metadata.
2ffa0 73 6f 75 72 63 65 2e 0a 41 72 67 75 6d 65 6e 74 20 52 45 53 55 4c 54 53 20 69 73 20 74 68 65 20 source..Argument.RESULTS.is.the.
2ffc0 73 6f 75 72 63 65 20 6c 69 73 74 2e 22 0a 20 20 28 63 64 72 20 28 61 73 73 6f 63 20 28 69 66 20 source.list."...(cdr.(assoc.(if.
2ffe0 28 66 62 6f 75 6e 64 70 20 27 69 76 79 2d 72 65 61 64 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 (fboundp.'ivy-read).............
30000 20 20 20 20 20 20 28 69 76 79 2d 72 65 61 64 20 22 53 65 6c 65 63 74 20 6d 65 74 61 64 61 74 61 ......(ivy-read."Select.metadata
30020 20 73 6f 75 72 63 65 20 28 70 72 65 76 69 65 77 20 77 69 74 68 20 43 2d 4d 2d 6e 2f 70 29 3a 20 .source.(preview.with.C-M-n/p):.
30040 22 20 72 65 73 75 6c 74 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ".results.......................
30060 20 20 20 20 20 20 3a 61 63 74 69 6f 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ......:action...................
30080 20 20 20 20 20 20 20 20 20 20 28 6c 61 6d 62 64 61 20 28 78 29 20 28 69 66 20 63 61 6c 69 62 72 ..........(lambda.(x).(if.calibr
300a0 65 64 62 2d 73 68 6f 77 2d 72 65 73 75 6c 74 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 edb-show-results................
300c0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 61 .............................(ca
300e0 6c 69 62 72 65 64 62 2d 73 68 6f 77 2d 72 65 73 75 6c 74 73 20 28 63 64 72 20 78 29 29 29 29 29 libredb-show-results.(cdr.x)))))
30100 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 6d 70 6c 65 74 69 6e 67 2d 72 65 61 .................(completing-rea
30120 64 20 22 53 65 6c 65 63 74 20 6d 65 74 61 64 61 74 61 20 73 6f 75 72 63 65 20 3a 20 22 20 72 65 d."Select.metadata.source.:.".re
30140 73 75 6c 74 73 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 72 65 73 75 6c 74 73 29 29 29 sults))...............results)))
30160 0a 0a 28 64 65 66 75 6e 20 63 61 6c 69 62 72 65 64 62 2d 66 65 74 63 68 2d 6d 65 74 61 64 61 74 ..(defun.calibredb-fetch-metadat
30180 61 20 28 61 75 74 68 6f 72 20 74 69 74 6c 65 20 26 6f 70 74 69 6f 6e 61 6c 20 69 64 73 20 69 73 a.(author.title.&optional.ids.is
301a0 62 6e 29 0a 20 20 22 46 65 74 63 68 20 6d 65 74 61 64 61 74 61 2e 0a 41 72 67 75 6d 65 6e 74 20 bn)..."Fetch.metadata..Argument.
301c0 41 55 54 48 4f 52 20 70 72 6f 6d 70 74 73 20 74 6f 20 69 6e 70 75 74 20 74 68 65 20 61 75 74 68 AUTHOR.prompts.to.input.the.auth
301e0 6f 72 2e 0a 41 72 67 75 6d 65 6e 74 20 49 44 53 20 70 72 6f 6d 70 74 73 20 74 6f 20 69 6e 70 75 or..Argument.IDS.prompts.to.inpu
30200 74 20 74 68 65 20 69 64 73 2e 0a 41 72 67 75 6d 65 6e 74 20 54 49 54 4c 45 20 70 72 6f 6d 70 74 t.the.ids..Argument.TITLE.prompt
30220 73 20 74 6f 20 69 6e 70 75 74 20 74 68 65 20 74 69 74 6c 65 2e 0a 4f 70 74 69 6f 6e 61 6c 20 61 s.to.input.the.title..Optional.a
30240 72 67 75 6d 65 6e 74 20 49 53 42 4e 20 70 72 6f 6d 70 74 73 20 74 6f 20 69 6e 70 75 74 20 74 68 rgument.ISBN.prompts.to.input.th
30260 65 20 69 73 62 6e 2e 22 0a 20 20 28 6c 65 74 2a 20 28 28 66 65 74 63 68 2d 63 6f 76 65 72 20 28 e.isbn."...(let*.((fetch-cover.(
30280 63 6f 6e 64 20 28 28 73 74 72 69 6e 67 3d 20 63 61 6c 69 62 72 65 64 62 2d 66 65 74 63 68 2d 63 cond.((string=.calibredb-fetch-c
302a0 6f 76 65 72 73 20 22 79 65 73 22 29 20 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 overs."yes").t).................
302c0 20 20 20 20 20 20 20 20 20 20 20 20 28 28 73 74 72 69 6e 67 3d 20 63 61 6c 69 62 72 65 64 62 2d ............((string=.calibredb-
302e0 66 65 74 63 68 2d 63 6f 76 65 72 73 20 22 6e 6f 22 29 20 6e 69 6c 29 0a 20 20 20 20 20 20 20 20 fetch-covers."no").nil).........
30300 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 74 20 28 79 65 73 2d 6f 72 2d 6e ....................(t.(yes-or-n
30320 6f 2d 70 20 22 46 65 74 63 68 20 63 6f 76 65 72 3f 3a 20 22 29 29 29 29 0a 20 20 20 20 20 20 20 o-p."Fetch.cover?:."))))........
30340 20 20 28 72 65 73 75 6c 74 73 20 28 63 61 6c 69 62 72 65 64 62 2d 66 65 74 63 68 2d 6d 65 74 61 ..(results.(calibredb-fetch-meta
30360 64 61 74 61 2d 66 72 6f 6d 2d 73 6f 75 72 63 65 73 20 61 75 74 68 6f 72 20 74 69 74 6c 65 20 69 data-from-sources.author.title.i
30380 64 73 20 69 73 62 6e 20 66 65 74 63 68 2d 63 6f 76 65 72 29 29 29 0a 20 20 20 20 28 63 6f 6e 64 ds.isbn.fetch-cover))).....(cond
303a0 20 28 72 65 73 75 6c 74 73 0a 20 20 20 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 66 65 74 63 68 .(results............(when.fetch
303c0 2d 63 6f 76 65 72 20 28 63 61 6c 69 62 72 65 64 62 2d 73 65 6c 65 63 74 2d 61 6e 64 2d 73 65 74 -cover.(calibredb-select-and-set
303e0 2d 63 6f 76 65 72 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 63 61 6c 69 62 72 65 64 62 2d 73 -cover))............(calibredb-s
30400 65 6c 65 63 74 2d 6d 65 74 61 64 61 74 61 2d 73 6f 75 72 63 65 20 72 65 73 75 6c 74 73 29 29 0a elect-metadata-source.results)).
30420 20 20 20 20 20 20 20 20 20 20 28 74 20 6e 69 6c 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 63 61 6c ..........(t.nil))))..(defun.cal
30440 69 62 72 65 64 62 2d 66 65 74 63 68 2d 61 6e 64 2d 73 65 74 2d 6d 65 74 61 64 61 74 61 20 28 74 ibredb-fetch-and-set-metadata.(t
30460 79 70 65 20 26 6f 70 74 69 6f 6e 61 6c 20 61 72 67 29 0a 20 20 22 41 64 64 20 6d 65 74 61 64 61 ype.&optional.arg)..."Add.metada
30480 74 61 20 66 72 6f 6d 20 60 63 61 6c 69 62 72 65 64 62 2d 66 65 74 63 68 2d 6d 65 74 61 64 61 74 ta.from.`calibredb-fetch-metadat
304a0 61 27 20 74 6f 20 65 6e 74 72 79 20 61 74 20 50 4f 49 4e 54 2e 0a 41 72 67 75 6d 65 6e 74 20 54 a'.to.entry.at.POINT..Argument.T
304c0 59 50 45 20 45 69 74 68 65 72 20 27 61 75 74 68 6f 72 27 20 6f 72 20 27 69 73 62 6e 27 2e 0a 4f YPE.Either.'author'.or.'isbn'..O
304e0 70 74 69 6f 6e 61 6c 20 61 72 67 75 6d 65 6e 74 20 41 52 47 2e 22 0a 20 20 28 6c 65 74 2a 20 28 ptional.argument.ARG."...(let*.(
30500 28 63 61 6e 64 69 64 61 74 65 20 28 63 61 72 20 28 63 61 6c 69 62 72 65 64 62 2d 66 69 6e 64 2d (candidate.(car.(calibredb-find-
30520 63 61 6e 64 69 64 61 74 65 2d 61 74 2d 70 6f 69 6e 74 29 29 29 0a 20 20 20 20 20 20 20 20 20 28 candidate-at-point)))..........(
30540 69 64 20 28 63 61 6c 69 62 72 65 64 62 2d 67 65 74 61 74 74 72 20 63 61 6e 64 69 64 61 74 65 20 id.(calibredb-getattr.candidate.
30560 3a 69 64 29 29 0a 20 20 20 20 20 20 20 20 20 28 69 64 73 20 28 73 70 6c 69 74 2d 73 74 72 69 6e :id))..........(ids.(split-strin
30580 67 20 28 63 61 6c 69 62 72 65 64 62 2d 67 65 74 61 74 74 72 20 63 61 6e 64 69 64 61 74 65 20 3a g.(calibredb-getattr.candidate.:
305a0 69 64 73 29 20 22 2c 22 29 29 0a 20 20 20 20 20 20 20 20 20 28 6d 79 61 75 74 68 6f 72 73 20 28 ids).","))..........(myauthors.(
305c0 63 61 6c 69 62 72 65 64 62 2d 67 65 74 61 74 74 72 20 63 61 6e 64 69 64 61 74 65 20 3a 61 75 74 calibredb-getattr.candidate.:aut
305e0 68 6f 72 2d 73 6f 72 74 29 29 0a 20 20 20 20 20 20 20 20 20 28 74 69 74 6c 65 20 28 63 61 6c 69 hor-sort))..........(title.(cali
30600 62 72 65 64 62 2d 67 65 74 61 74 74 72 20 63 61 6e 64 69 64 61 74 65 20 3a 62 6f 6f 6b 2d 74 69 bredb-getattr.candidate.:book-ti
30620 74 6c 65 29 29 0a 20 20 20 20 20 20 20 20 20 28 6d 65 74 61 64 61 74 61 0a 20 20 20 20 20 20 20 tle))..........(metadata........
30640 20 20 20 28 63 6f 6e 64 20 28 28 73 74 72 69 6e 67 3d 20 74 79 70 65 20 22 69 64 22 29 20 28 63 ...(cond.((string=.type."id").(c
30660 61 6c 69 62 72 65 64 62 2d 66 65 74 63 68 2d 6d 65 74 61 64 61 74 61 20 74 69 74 6c 65 20 6d 79 alibredb-fetch-metadata.title.my
30680 61 75 74 68 6f 72 73 20 69 64 73 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 28 authors.ids)).................((
306a0 73 74 72 69 6e 67 3d 20 74 79 70 65 20 22 61 75 74 68 6f 72 22 29 20 28 69 66 20 61 72 67 20 28 string=.type."author").(if.arg.(
306c0 63 61 6c 69 62 72 65 64 62 2d 66 65 74 63 68 2d 6d 65 74 61 64 61 74 61 20 74 69 74 6c 65 20 6d calibredb-fetch-metadata.title.m
306e0 79 61 75 74 68 6f 72 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 yauthors).......................
30700 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 61 6c 69 62 72 65 64 62 2d .....................(calibredb-
30720 66 65 74 63 68 2d 6d 65 74 61 64 61 74 61 20 6d 79 61 75 74 68 6f 72 73 20 74 69 74 6c 65 29 29 fetch-metadata.myauthors.title))
30740 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 28 73 74 72 69 6e 67 3d 20 74 79 70 65 ).................((string=.type
30760 20 22 69 73 62 6e 22 29 20 28 69 66 20 61 72 67 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ."isbn").(if.arg................
30780 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 61 6c ............................(cal
307a0 69 62 72 65 64 62 2d 66 65 74 63 68 2d 6d 65 74 61 64 61 74 61 20 6d 79 61 75 74 68 6f 72 73 20 ibredb-fetch-metadata.myauthors.
307c0 74 69 74 6c 65 20 6e 69 6c 20 74 69 74 6c 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 title.nil.title)................
307e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 61 6c 69 62 ..........................(calib
30800 72 65 64 62 2d 66 65 74 63 68 2d 6d 65 74 61 64 61 74 61 0a 20 20 20 20 20 20 20 20 20 20 20 20 redb-fetch-metadata.............
30820 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6d 79 ..............................my
30840 61 75 74 68 6f 72 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 authors.........................
30860 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 69 74 6c 65 0a 20 20 20 20 20 20 20 20 ..................title.........
30880 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ................................
308a0 20 20 6e 69 6c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..nil...........................
308c0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 6e 64 20 28 28 63 61 6c 69 62 72 65 64 ................(cond.((calibred
308e0 62 2d 61 75 74 6f 2d 64 65 74 65 63 74 2d 69 73 62 6e 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 b-auto-detect-isbn))............
30900 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ................................
30920 20 20 20 20 20 28 22 22 29 29 29 29 29 29 29 29 0a 20 20 20 20 28 63 6f 6e 64 20 28 6d 65 74 61 .....("")))))))).....(cond.(meta
30940 64 61 74 61 0a 20 20 20 20 20 20 20 20 20 20 20 28 6d 61 70 63 20 28 6c 61 6d 62 64 61 20 28 78 data............(mapc.(lambda.(x
30960 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 61 6c 69 62 72 65 64 62 2d )....................(calibredb-
30980 63 6f 6d 6d 61 6e 64 20 3a 63 6f 6d 6d 61 6e 64 20 22 73 65 74 5f 6d 65 74 61 64 61 74 61 22 0a command.:command."set_metadata".
309a0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ................................
309c0 20 20 20 20 20 20 3a 6f 70 74 69 6f 6e 20 28 66 6f 72 6d 61 74 20 22 2d 2d 66 69 65 6c 64 20 25 ......:option.(format."--field.%
309e0 73 3a 25 73 20 22 20 28 64 6f 77 6e 63 61 73 65 20 28 63 61 72 20 78 29 29 20 28 70 72 69 6e 31 s:%s.".(downcase.(car.x)).(prin1
30a00 2d 74 6f 2d 73 74 72 69 6e 67 20 28 63 64 72 20 78 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 -to-string.(cdr.x)))............
30a20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 69 64 20 69 ...........................:id.i
30a40 64 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 d...............................
30a60 20 20 20 20 20 20 20 20 3a 6c 69 62 72 61 72 79 20 28 66 6f 72 6d 61 74 20 22 2d 2d 6c 69 62 72 ........:library.(format."--libr
30a80 61 72 79 2d 70 61 74 68 20 5c 22 25 73 5c 22 22 20 63 61 6c 69 62 72 65 64 62 2d 72 6f 6f 74 2d ary-path.\"%s\"".calibredb-root-
30aa0 64 69 72 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6d 65 74 61 64 61 74 61 dir)))..................metadata
30ac0 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 77 69 6e 64 6f 77 20 28 67 65 74 2d )............(let.((window.(get-
30ae0 62 75 66 66 65 72 2d 77 69 6e 64 6f 77 20 22 2a 63 61 6c 69 62 72 65 64 62 2d 73 65 61 72 63 68 buffer-window."*calibredb-search
30b00 2a 22 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 66 20 77 69 6e 64 6f 77 0a 20 20 *")))..............(if.window...
30b20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 6c 65 63 74 2d 77 69 6e 64 6f 77 20 77 69 ...............(select-window.wi
30b40 6e 64 6f 77 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 77 69 74 63 68 2d 74 6f 2d ndow)................(switch-to-
30b60 62 75 66 66 65 72 2d 6f 74 68 65 72 2d 77 69 6e 64 6f 77 20 22 2a 63 61 6c 69 62 72 65 64 62 2d buffer-other-window."*calibredb-
30b80 73 65 61 72 63 68 2a 22 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 63 61 6c 69 62 72 65 64 search*")))............(calibred
30ba0 62 2d 73 65 61 72 63 68 2d 72 65 66 72 65 73 68 2d 6f 72 2d 72 65 73 75 6d 65 29 0a 20 20 20 20 b-search-refresh-or-resume).....
30bc0 20 20 20 20 20 20 20 28 69 66 20 63 61 6c 69 62 72 65 64 62 2d 73 68 6f 77 2d 72 65 73 75 6c 74 .......(if.calibredb-show-result
30be0 73 20 28 63 61 6c 69 62 72 65 64 62 2d 73 68 6f 77 2d 72 65 73 75 6c 74 73 20 6d 65 74 61 64 61 s.(calibredb-show-results.metada
30c00 74 61 20 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 6d 65 73 73 61 67 65 20 22 4d 65 74 61 ta.t))............(message."Meta
30c20 64 61 74 61 20 75 70 64 61 74 65 64 3a 20 49 44 20 2d 20 25 73 2c 20 54 69 74 6c 65 20 2d 20 25 data.updated:.ID.-.%s,.Title.-.%
30c40 73 2c 20 41 75 74 68 6f 72 73 20 2d 20 25 73 2e 22 20 69 64 20 74 69 74 6c 65 20 6d 79 61 75 74 s,.Authors.-.%s.".id.title.myaut
30c60 68 6f 72 73 29 29 0a 20 20 20 20 20 20 20 20 20 20 3b 3b 20 28 73 77 69 74 63 68 2d 74 6f 2d 62 hors))...........;;.(switch-to-b
30c80 75 66 66 65 72 2d 6f 74 68 65 72 2d 77 69 6e 64 6f 77 20 22 2a 63 61 6c 69 62 72 65 64 62 2d 65 uffer-other-window."*calibredb-e
30ca0 6e 74 72 79 2a 22 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 74 20 28 70 72 69 6e 74 20 22 4e 6f ntry*"))...........(t.(print."No
30cc0 20 6d 65 74 61 64 61 74 61 20 72 65 74 72 69 65 76 65 64 20 66 72 6f 6d 20 73 6f 75 72 63 65 73 .metadata.retrieved.from.sources
30ce0 22 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 63 61 6c 69 62 72 65 64 62 2d 66 65 74 63 68 2d 61 ")))))..(defun.calibredb-fetch-a
30d00 6e 64 2d 73 65 74 2d 6d 65 74 61 64 61 74 61 2d 62 79 2d 61 75 74 68 6f 72 2d 61 6e 64 2d 74 69 nd-set-metadata-by-author-and-ti
30d20 74 6c 65 20 28 61 72 67 29 0a 20 20 22 49 6e 76 6f 6b 65 20 66 72 6f 6d 20 2a 63 61 6c 69 62 72 tle.(arg)..."Invoke.from.*calibr
30d40 65 64 62 2d 73 65 61 72 63 68 2a 20 62 75 66 66 65 72 2e 0a 46 65 74 63 68 20 6d 65 74 61 64 61 edb-search*.buffer..Fetch.metada
30d60 74 61 20 66 72 6f 6d 20 6f 6e 6c 69 6e 65 20 73 6f 75 72 63 65 20 76 69 61 20 61 75 74 68 6f 72 ta.from.online.source.via.author
30d80 20 61 6e 64 20 74 69 74 6c 65 2e 20 57 69 74 68 20 75 6e 69 76 65 72 73 61 6c 20 41 52 47 20 5c .and.title..With.universal.ARG.\
30da0 5c 5b 75 6e 69 76 65 72 73 61 6c 2d 61 72 67 75 6d 65 6e 74 5d 20 73 77 69 74 63 68 20 69 6e 69 \[universal-argument].switch.ini
30dc0 74 69 61 6c 20 76 61 6c 75 65 73 20 6f 66 20 61 75 74 68 6f 72 73 20 61 6e 64 20 74 69 74 6c 65 tial.values.of.authors.and.title
30de0 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 20 22 50 22 29 0a 20 20 28 63 61 6c 69 62 72 ."...(interactive."P")...(calibr
30e00 65 64 62 2d 66 65 74 63 68 2d 61 6e 64 2d 73 65 74 2d 6d 65 74 61 64 61 74 61 20 22 61 75 74 68 edb-fetch-and-set-metadata."auth
30e20 6f 72 22 20 61 72 67 29 29 0a 0a 28 64 65 66 75 6e 20 63 61 6c 69 62 72 65 64 62 2d 66 65 74 63 or".arg))..(defun.calibredb-fetc
30e40 68 2d 61 6e 64 2d 73 65 74 2d 6d 65 74 61 64 61 74 61 2d 62 79 2d 69 64 20 28 61 72 67 29 0a 20 h-and-set-metadata-by-id.(arg)..
30e60 20 22 49 6e 76 6f 6b 65 20 66 72 6f 6d 20 2a 63 61 6c 69 62 72 65 64 62 2d 73 65 61 72 63 68 2a ."Invoke.from.*calibredb-search*
30e80 20 62 75 66 66 65 72 2e 0a 46 65 74 63 68 20 6d 65 74 61 64 61 74 61 20 66 72 6f 6d 20 6f 6e 6c .buffer..Fetch.metadata.from.onl
30ea0 69 6e 65 20 73 6f 75 72 63 65 20 76 69 61 20 49 64 65 6e 74 69 66 69 65 72 2e 0a 57 69 74 68 20 ine.source.via.Identifier..With.
30ec0 75 6e 69 76 65 72 73 61 6c 20 41 52 47 20 5c 5c 5b 75 6e 69 76 65 72 73 61 6c 2d 61 72 67 75 6d universal.ARG.\\[universal-argum
30ee0 65 6e 74 5d 20 75 73 65 20 74 69 74 6c 65 20 61 73 20 69 6e 69 74 69 61 6c 20 76 61 6c 75 65 2e ent].use.title.as.initial.value.
30f00 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 20 22 50 22 29 0a 20 20 28 63 61 6c 69 62 72 65 "...(interactive."P")...(calibre
30f20 64 62 2d 66 65 74 63 68 2d 61 6e 64 2d 73 65 74 2d 6d 65 74 61 64 61 74 61 20 22 69 64 22 20 61 db-fetch-and-set-metadata."id".a
30f40 72 67 29 29 0a 0a 28 64 65 66 75 6e 20 63 61 6c 69 62 72 65 64 62 2d 66 65 74 63 68 2d 61 6e 64 rg))..(defun.calibredb-fetch-and
30f60 2d 73 65 74 2d 6d 65 74 61 64 61 74 61 2d 62 79 2d 69 73 62 6e 20 28 61 72 67 29 0a 20 20 22 49 -set-metadata-by-isbn.(arg)..."I
30f80 6e 76 6f 6b 65 20 66 72 6f 6d 20 2a 63 61 6c 69 62 72 65 64 62 2d 73 65 61 72 63 68 2a 20 62 75 nvoke.from.*calibredb-search*.bu
30fa0 66 66 65 72 2e 0a 46 65 74 63 68 20 6d 65 74 61 64 61 74 61 20 66 72 6f 6d 20 6f 6e 6c 69 6e 65 ffer..Fetch.metadata.from.online
30fc0 20 73 6f 75 72 63 65 20 76 69 61 20 49 53 42 4e 2e 0a 57 69 74 68 20 75 6e 69 76 65 72 73 61 6c .source.via.ISBN..With.universal
30fe0 20 41 52 47 20 5c 5c 5b 75 6e 69 76 65 72 73 61 6c 2d 61 72 67 75 6d 65 6e 74 5d 20 75 73 65 20 .ARG.\\[universal-argument].use.
31000 74 69 74 6c 65 20 61 73 20 69 6e 69 74 69 61 6c 20 76 61 6c 75 65 2e 22 0a 20 20 28 69 6e 74 65 title.as.initial.value."...(inte
31020 72 61 63 74 69 76 65 20 22 50 22 29 0a 20 20 28 63 61 6c 69 62 72 65 64 62 2d 66 65 74 63 68 2d ractive."P")...(calibredb-fetch-
31040 61 6e 64 2d 73 65 74 2d 6d 65 74 61 64 61 74 61 20 22 69 73 62 6e 22 20 61 72 67 29 29 0a 0a 3b and-set-metadata."isbn".arg))..;
31060 3b 20 73 68 6f 77 5f 6d 65 74 61 64 61 74 61 0a 0a 28 64 65 66 75 6e 20 63 61 6c 69 62 72 65 64 ;.show_metadata..(defun.calibred
31080 62 2d 73 68 6f 77 2d 6d 65 74 61 64 61 74 61 20 28 26 6f 70 74 69 6f 6e 61 6c 20 63 61 6e 64 69 b-show-metadata.(&optional.candi
310a0 64 61 74 65 29 0a 20 20 22 53 68 6f 77 20 73 65 6c 65 63 74 65 64 20 43 41 4e 44 49 44 41 54 45 date)..."Show.selected.CANDIDATE
310c0 20 6d 65 74 61 64 61 74 61 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 0a 20 20 28 75 .metadata."...(interactive)...(u
310e0 6e 6c 65 73 73 20 63 61 6e 64 69 64 61 74 65 0a 20 20 20 20 28 69 66 20 28 65 71 20 6d 61 6a 6f nless.candidate.....(if.(eq.majo
31100 72 2d 6d 6f 64 65 20 27 63 61 6c 69 62 72 65 64 62 2d 73 65 61 72 63 68 2d 6d 6f 64 65 29 0a 20 r-mode.'calibredb-search-mode)..
31120 20 20 20 20 20 20 20 28 73 65 74 71 20 63 61 6e 64 69 64 61 74 65 20 28 63 64 72 20 28 67 65 74 .......(setq.candidate.(cdr.(get
31140 2d 74 65 78 74 2d 70 72 6f 70 65 72 74 79 20 28 70 6f 69 6e 74 29 20 27 63 61 6c 69 62 72 65 64 -text-property.(point).'calibred
31160 62 2d 65 6e 74 72 79 20 6e 69 6c 29 29 29 0a 20 20 20 20 20 20 28 73 65 74 71 20 63 61 6e 64 69 b-entry.nil))).......(setq.candi
31180 64 61 74 65 20 28 67 65 74 2d 74 65 78 74 2d 70 72 6f 70 65 72 74 79 20 28 70 6f 69 6e 74 2d 6d date.(get-text-property.(point-m
311a0 69 6e 29 20 27 63 61 6c 69 62 72 65 64 62 2d 65 6e 74 72 79 20 6e 69 6c 29 29 29 29 0a 20 20 28 in).'calibredb-entry.nil))))...(
311c0 6c 65 74 2a 20 28 28 69 64 20 28 63 61 6c 69 62 72 65 64 62 2d 67 65 74 61 74 74 72 20 63 61 6e let*.((id.(calibredb-getattr.can
311e0 64 69 64 61 74 65 20 3a 69 64 29 29 29 0a 20 20 20 20 28 63 61 6c 69 62 72 65 64 62 2d 63 6f 6d didate.:id))).....(calibredb-com
31200 6d 61 6e 64 20 3a 63 6f 6d 6d 61 6e 64 20 22 73 68 6f 77 5f 6d 65 74 61 64 61 74 61 22 0a 20 20 mand.:command."show_metadata"...
31220 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 69 64 20 69 64 0a 20 20 20 20 .....................:id.id.....
31240 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 6c 69 62 72 61 72 79 20 28 66 6f 72 ...................:library.(for
31260 6d 61 74 20 22 2d 2d 6c 69 62 72 61 72 79 2d 70 61 74 68 20 25 73 22 20 28 63 61 6c 69 62 72 65 mat."--library-path.%s".(calibre
31280 64 62 2d 72 6f 6f 74 2d 64 69 72 2d 71 75 6f 74 65 29 29 29 29 29 0a 0a 3b 3b 20 65 78 70 6f 72 db-root-dir-quote)))))..;;.expor
312a0 74 0a 0a 28 64 65 66 75 6e 20 63 61 6c 69 62 72 65 64 62 2d 65 78 70 6f 72 74 20 28 26 6f 70 74 t..(defun.calibredb-export.(&opt
312c0 69 6f 6e 61 6c 20 63 61 6e 64 69 64 61 74 65 29 0a 20 20 22 45 78 70 6f 72 74 20 74 68 65 20 73 ional.candidate)..."Export.the.s
312e0 6c 65 63 74 65 64 20 43 41 4e 44 49 44 41 54 45 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 lected.CANDIDATE."...(interactiv
31300 65 29 0a 20 20 28 75 6e 6c 65 73 73 20 63 61 6e 64 69 64 61 74 65 0a 20 20 20 20 28 69 66 20 28 e)...(unless.candidate.....(if.(
31320 65 71 20 6d 61 6a 6f 72 2d 6d 6f 64 65 20 27 63 61 6c 69 62 72 65 64 62 2d 73 65 61 72 63 68 2d eq.major-mode.'calibredb-search-
31340 6d 6f 64 65 29 0a 20 20 20 20 20 20 20 20 28 73 65 74 71 20 63 61 6e 64 69 64 61 74 65 20 28 63 mode).........(setq.candidate.(c
31360 64 72 20 28 67 65 74 2d 74 65 78 74 2d 70 72 6f 70 65 72 74 79 20 28 70 6f 69 6e 74 29 20 27 63 dr.(get-text-property.(point).'c
31380 61 6c 69 62 72 65 64 62 2d 65 6e 74 72 79 20 6e 69 6c 29 29 29 0a 20 20 20 20 20 20 28 73 65 74 alibredb-entry.nil))).......(set
313a0 71 20 63 61 6e 64 69 64 61 74 65 20 28 67 65 74 2d 74 65 78 74 2d 70 72 6f 70 65 72 74 79 20 28 q.candidate.(get-text-property.(
313c0 70 6f 69 6e 74 2d 6d 69 6e 29 20 27 63 61 6c 69 62 72 65 64 62 2d 65 6e 74 72 79 20 6e 69 6c 29 point-min).'calibredb-entry.nil)
313e0 29 29 29 0a 20 20 28 6c 65 74 20 28 28 69 64 20 28 63 61 6c 69 62 72 65 64 62 2d 67 65 74 61 74 )))...(let.((id.(calibredb-getat
31400 74 72 20 63 61 6e 64 69 64 61 74 65 20 3a 69 64 29 29 0a 20 20 20 20 20 20 20 20 28 6f 75 74 70 tr.candidate.:id)).........(outp
31420 75 74 2d 66 6f 6c 64 65 72 20 28 66 69 6c 65 2d 6e 61 6d 65 2d 64 69 72 65 63 74 6f 72 79 20 28 ut-folder.(file-name-directory.(
31440 69 66 20 28 66 69 6c 65 2d 65 78 65 63 75 74 61 62 6c 65 2d 70 20 63 61 6c 69 62 72 65 64 62 2d if.(file-executable-p.calibredb-
31460 64 65 76 69 63 65 2d 64 69 72 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 device-dir).....................
31480 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 66 20 ............................(if.
314a0 28 79 65 73 2d 6f 72 2d 6e 6f 2d 70 20 22 46 6f 75 6e 64 20 6b 69 6e 64 6c 65 2c 20 64 6f 20 79 (yes-or-no-p."Found.kindle,.do.y
314c0 6f 75 20 77 61 6e 74 20 74 6f 20 63 6f 6e 76 65 72 74 20 61 6e 64 20 65 78 70 6f 72 74 20 74 6f ou.want.to.convert.and.export.to
314e0 20 6b 69 6e 64 6c 65 3f 22 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .kindle?")......................
31500 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 ...............................c
31520 61 6c 69 62 72 65 64 62 2d 64 65 76 69 63 65 2d 64 69 72 0a 20 20 20 20 20 20 20 20 20 20 20 20 alibredb-device-dir.............
31540 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ................................
31560 20 20 20 20 20 20 28 63 61 6c 69 62 72 65 64 62 2d 63 6f 6d 70 6c 65 74 65 2d 66 69 6c 65 2d 71 ......(calibredb-complete-file-q
31580 75 6f 74 65 20 22 45 78 70 6f 72 74 20 74 6f 20 28 73 65 6c 65 63 74 20 61 20 64 69 72 65 63 74 uote."Export.to.(select.a.direct
315a0 6f 72 79 29 22 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ory)")).........................
315c0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 61 6c 69 62 72 65 64 62 ......................(calibredb
315e0 2d 63 6f 6d 70 6c 65 74 65 2d 66 69 6c 65 2d 71 75 6f 74 65 20 22 45 78 70 6f 72 74 20 74 6f 20 -complete-file-quote."Export.to.
31600 28 73 65 6c 65 63 74 20 61 20 64 69 72 65 63 74 6f 72 79 29 22 29 29 29 29 29 0a 20 20 20 20 28 (select.a.directory)"))))).....(
31620 63 61 6c 69 62 72 65 64 62 2d 63 6f 6d 6d 61 6e 64 20 3a 63 6f 6d 6d 61 6e 64 20 22 65 78 70 6f calibredb-command.:command."expo
31640 72 74 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 6f 70 74 69 rt"........................:opti
31660 6f 6e 20 28 73 2d 6a 6f 69 6e 20 22 20 22 20 28 2d 72 65 6d 6f 76 65 20 27 73 2d 62 6c 61 6e 6b on.(s-join.".".(-remove.'s-blank
31680 3f 20 28 2d 66 6c 61 74 74 65 6e 20 28 63 61 6c 69 62 72 65 64 62 2d 65 78 70 6f 72 74 2d 61 72 ?.(-flatten.(calibredb-export-ar
316a0 67 75 6d 65 6e 74 73 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 guments)))).....................
316c0 20 20 20 3a 69 6e 70 75 74 20 28 66 6f 72 6d 61 74 20 22 2d 2d 74 6f 2d 64 69 72 20 25 73 22 20 ...:input.(format."--to-dir.%s".
316e0 6f 75 74 70 75 74 2d 66 6f 6c 64 65 72 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 output-folder)..................
31700 20 20 20 20 20 20 3a 69 64 20 69 64 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ......:id.id....................
31720 20 20 20 20 3a 6c 69 62 72 61 72 79 20 28 66 6f 72 6d 61 74 20 22 2d 2d 6c 69 62 72 61 72 79 2d ....:library.(format."--library-
31740 70 61 74 68 20 25 73 22 20 28 63 61 6c 69 62 72 65 64 62 2d 72 6f 6f 74 2d 64 69 72 2d 71 75 6f path.%s".(calibredb-root-dir-quo
31760 74 65 29 29 29 29 29 0a 0a 3b 3b 20 63 6f 6e 76 65 72 74 20 65 62 6f 6f 6b 73 0a 28 64 65 66 6d te)))))..;;.convert.ebooks.(defm
31780 61 63 72 6f 20 63 61 6c 69 62 72 65 64 62 2d 63 6f 6e 76 65 72 74 20 28 74 79 70 65 29 0a 20 20 acro.calibredb-convert.(type)...
317a0 22 4d 61 63 72 6f 20 6f 66 20 66 75 6e 63 74 69 6f 6e 20 63 61 6c 69 62 72 65 64 62 2d 63 6f 6e "Macro.of.function.calibredb-con
317c0 76 65 72 74 2d 74 6f 2d 54 59 50 45 2e 22 0a 20 20 60 28 64 65 66 75 6e 20 2c 28 69 6e 74 65 72 vert-to-TYPE."...`(defun.,(inter
317e0 6e 20 28 66 6f 72 6d 61 74 20 22 63 61 6c 69 62 72 65 64 62 2d 63 6f 6e 76 65 72 74 2d 74 6f 2d n.(format."calibredb-convert-to-
31800 25 73 22 20 74 79 70 65 29 29 20 28 26 6f 70 74 69 6f 6e 61 6c 20 63 61 6e 64 69 64 61 74 65 29 %s".type)).(&optional.candidate)
31820 0a 20 20 20 20 2c 28 66 6f 72 6d 61 74 20 22 54 4f 44 4f 3a 20 43 6f 6e 76 65 72 74 20 74 68 65 .....,(format."TODO:.Convert.the
31840 20 73 6c 65 63 74 65 64 20 43 41 4e 44 49 44 41 54 45 20 74 6f 20 25 73 2e 22 20 74 79 70 65 29 .slected.CANDIDATE.to.%s.".type)
31860 0a 20 20 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 0a 20 20 20 20 28 75 6e 6c 65 73 73 20 63 .....(interactive).....(unless.c
31880 61 6e 64 69 64 61 74 65 0a 20 20 20 20 20 20 28 69 66 20 28 65 71 20 6d 61 6a 6f 72 2d 6d 6f 64 andidate.......(if.(eq.major-mod
318a0 65 20 27 63 61 6c 69 62 72 65 64 62 2d 73 65 61 72 63 68 2d 6d 6f 64 65 29 0a 20 20 20 20 20 20 e.'calibredb-search-mode).......
318c0 20 20 20 20 28 73 65 74 71 20 63 61 6e 64 69 64 61 74 65 20 28 63 64 72 20 28 67 65 74 2d 74 65 ....(setq.candidate.(cdr.(get-te
318e0 78 74 2d 70 72 6f 70 65 72 74 79 20 28 70 6f 69 6e 74 29 20 27 63 61 6c 69 62 72 65 64 62 2d 65 xt-property.(point).'calibredb-e
31900 6e 74 72 79 20 6e 69 6c 29 29 29 0a 20 20 20 20 20 20 20 20 28 73 65 74 71 20 63 61 6e 64 69 64 ntry.nil))).........(setq.candid
31920 61 74 65 20 28 67 65 74 2d 74 65 78 74 2d 70 72 6f 70 65 72 74 79 20 28 70 6f 69 6e 74 2d 6d 69 ate.(get-text-property.(point-mi
31940 6e 29 20 27 63 61 6c 69 62 72 65 64 62 2d 65 6e 74 72 79 20 6e 69 6c 29 29 29 29 0a 20 20 20 20 n).'calibredb-entry.nil)))).....
31960 28 6c 65 74 20 28 3b 3b 20 28 69 64 20 28 63 61 6c 69 62 72 65 64 62 2d 67 65 74 61 74 74 72 20 (let.(;;.(id.(calibredb-getattr.
31980 63 61 6e 64 69 64 61 74 65 20 3a 69 64 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 66 69 6c 65 20 candidate.:id))...........(file.
319a0 28 63 61 6c 69 62 72 65 64 62 2d 67 65 74 2d 66 69 6c 65 2d 70 61 74 68 20 63 61 6e 64 69 64 61 (calibredb-get-file-path.candida
319c0 74 65 20 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 6f 75 74 70 75 74 2d 66 6f 6c 64 65 72 20 te.t))...........(output-folder.
319e0 28 66 69 6c 65 2d 6e 61 6d 65 2d 64 69 72 65 63 74 6f 72 79 20 28 69 66 20 28 66 69 6c 65 2d 65 (file-name-directory.(if.(file-e
31a00 78 65 63 75 74 61 62 6c 65 2d 70 20 63 61 6c 69 62 72 65 64 62 2d 64 65 76 69 63 65 2d 64 69 72 xecutable-p.calibredb-device-dir
31a20 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 )...............................
31a40 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 66 20 28 79 65 73 2d 6f 72 2d ....................(if.(yes-or-
31a60 6e 6f 2d 70 20 22 46 6f 75 6e 64 20 6b 69 6e 64 6c 65 2c 20 64 6f 20 79 6f 75 20 77 61 6e 74 20 no-p."Found.kindle,.do.you.want.
31a80 74 6f 20 63 6f 6e 76 65 72 74 20 61 6e 64 20 65 78 70 6f 72 74 20 74 6f 20 6b 69 6e 64 6c 65 3f to.convert.and.export.to.kindle?
31aa0 22 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ")..............................
31ac0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 61 6c 69 62 72 65 .........................calibre
31ae0 64 62 2d 64 65 76 69 63 65 2d 64 69 72 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 db-device-dir...................
31b00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ................................
31b20 20 20 28 72 65 61 64 2d 66 69 6c 65 2d 6e 61 6d 65 20 22 43 6f 6e 76 65 72 74 20 61 6e 64 20 65 ..(read-file-name."Convert.and.e
31b40 78 70 6f 72 74 20 74 6f 20 28 73 65 6c 65 63 74 20 61 20 64 69 72 65 63 74 6f 72 79 29 3a 20 22 xport.to.(select.a.directory):."
31b60 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ))..............................
31b80 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 72 65 61 64 2d 66 69 6c 65 2d 6e 61 ...................(read-file-na
31ba0 6d 65 20 22 43 6f 6e 76 65 72 74 20 61 6e 64 20 65 78 70 6f 72 74 20 74 6f 20 28 73 65 6c 65 63 me."Convert.and.export.to.(selec
31bc0 74 20 61 20 64 69 72 65 63 74 6f 72 79 29 3a 20 22 29 29 29 29 29 0a 20 20 20 20 20 20 28 73 65 t.a.directory):."))))).......(se
31be0 74 2d 70 72 6f 63 65 73 73 2d 73 65 6e 74 69 6e 65 6c 0a 20 20 20 20 20 20 20 28 63 61 6c 69 62 t-process-sentinel........(calib
31c00 72 65 64 62 2d 63 6f 6e 76 65 72 74 2d 70 72 6f 63 65 73 73 0a 20 20 20 20 20 20 20 20 3a 69 6e redb-convert-process.........:in
31c20 70 75 74 20 28 73 68 65 6c 6c 2d 71 75 6f 74 65 2d 61 72 67 75 6d 65 6e 74 20 28 65 78 70 61 6e put.(shell-quote-argument.(expan
31c40 64 2d 66 69 6c 65 2d 6e 61 6d 65 20 66 69 6c 65 29 29 0a 20 20 20 20 20 20 20 20 3a 6f 75 74 70 d-file-name.file)).........:outp
31c60 75 74 20 28 73 68 65 6c 6c 2d 71 75 6f 74 65 2d 61 72 67 75 6d 65 6e 74 20 28 65 78 70 61 6e 64 ut.(shell-quote-argument.(expand
31c80 2d 66 69 6c 65 2d 6e 61 6d 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 -file-name......................
31ca0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 6f 72 6d 61 74 20 22 25 73 2e 25 73 ..................(format."%s.%s
31cc0 22 20 28 66 69 6c 65 2d 6e 61 6d 65 2d 62 61 73 65 20 66 69 6c 65 29 20 2c 74 79 70 65 29 0a 20 ".(file-name-base.file).,type)..
31ce0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ................................
31d00 20 20 20 20 20 20 6f 75 74 70 75 74 2d 66 6f 6c 64 65 72 29 29 0a 20 20 20 20 20 20 20 20 3a 6f ......output-folder)).........:o
31d20 70 74 69 6f 6e 20 28 73 2d 6a 6f 69 6e 20 22 20 22 20 28 2d 72 65 6d 6f 76 65 20 27 73 2d 62 6c ption.(s-join.".".(-remove.'s-bl
31d40 61 6e 6b 3f 20 28 2d 66 6c 61 74 74 65 6e 20 28 63 61 6c 69 62 72 65 64 62 2d 63 6f 6e 76 65 72 ank?.(-flatten.(calibredb-conver
31d60 74 2d 61 72 67 75 6d 65 6e 74 73 29 29 29 29 29 0a 20 20 20 20 20 20 20 28 6c 61 6d 62 64 61 20 t-arguments)))))........(lambda.
31d80 28 70 20 5f 65 29 0a 20 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 28 3d 20 30 20 28 70 72 6f 63 (p._e)..........(when.(=.0.(proc
31da0 65 73 73 2d 65 78 69 74 2d 73 74 61 74 75 73 20 70 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 ess-exit-status.p))............(
31dc0 6d 65 73 73 61 67 65 20 22 43 6f 6e 76 65 72 73 69 6f 6e 20 66 69 6e 69 73 68 65 64 2e 20 50 6c message."Conversion.finished..Pl
31de0 65 61 73 65 20 63 68 65 63 6b 20 6c 6f 67 73 20 69 6e 20 2a 65 62 6f 6f 6b 2d 63 6f 6e 76 65 72 ease.check.logs.in.*ebook-conver
31e00 74 2a 2e 22 29 29 29 29 29 29 20 29 0a 0a 28 63 61 6c 69 62 72 65 64 62 2d 63 6f 6e 76 65 72 74 t*.")))))).)..(calibredb-convert
31e20 20 22 61 7a 77 33 22 29 0a 28 63 61 6c 69 62 72 65 64 62 2d 63 6f 6e 76 65 72 74 20 22 64 6f 63 ."azw3").(calibredb-convert."doc
31e40 78 22 29 0a 28 63 61 6c 69 62 72 65 64 62 2d 63 6f 6e 76 65 72 74 20 22 65 70 75 62 22 29 0a 28 x").(calibredb-convert."epub").(
31e60 63 61 6c 69 62 72 65 64 62 2d 63 6f 6e 76 65 72 74 20 22 66 62 32 22 29 0a 28 63 61 6c 69 62 72 calibredb-convert."fb2").(calibr
31e80 65 64 62 2d 63 6f 6e 76 65 72 74 20 22 68 74 6d 6c 22 29 0a 28 63 61 6c 69 62 72 65 64 62 2d 63 edb-convert."html").(calibredb-c
31ea0 6f 6e 76 65 72 74 20 22 68 74 6d 6c 7a 22 29 0a 28 63 61 6c 69 62 72 65 64 62 2d 63 6f 6e 76 65 onvert."htmlz").(calibredb-conve
31ec0 72 74 20 22 6c 69 74 22 29 0a 28 63 61 6c 69 62 72 65 64 62 2d 63 6f 6e 76 65 72 74 20 22 6c 72 rt."lit").(calibredb-convert."lr
31ee0 66 22 29 0a 28 63 61 6c 69 62 72 65 64 62 2d 63 6f 6e 76 65 72 74 20 22 6d 6f 62 69 22 29 0a 28 f").(calibredb-convert."mobi").(
31f00 63 61 6c 69 62 72 65 64 62 2d 63 6f 6e 76 65 72 74 20 22 6f 65 62 22 29 0a 28 63 61 6c 69 62 72 calibredb-convert."oeb").(calibr
31f20 65 64 62 2d 63 6f 6e 76 65 72 74 20 22 70 64 62 22 29 0a 28 63 61 6c 69 62 72 65 64 62 2d 63 6f edb-convert."pdb").(calibredb-co
31f40 6e 76 65 72 74 20 22 70 64 66 22 29 0a 28 63 61 6c 69 62 72 65 64 62 2d 63 6f 6e 76 65 72 74 20 nvert."pdf").(calibredb-convert.
31f60 22 70 6d 6c 22 29 0a 28 63 61 6c 69 62 72 65 64 62 2d 63 6f 6e 76 65 72 74 20 22 72 62 22 29 0a "pml").(calibredb-convert."rb").
31f80 28 63 61 6c 69 62 72 65 64 62 2d 63 6f 6e 76 65 72 74 20 22 72 74 66 22 29 0a 28 63 61 6c 69 62 (calibredb-convert."rtf").(calib
31fa0 72 65 64 62 2d 63 6f 6e 76 65 72 74 20 22 73 6e 62 22 29 0a 28 63 61 6c 69 62 72 65 64 62 2d 63 redb-convert."snb").(calibredb-c
31fc0 6f 6e 76 65 72 74 20 22 74 63 72 22 29 0a 28 63 61 6c 69 62 72 65 64 62 2d 63 6f 6e 76 65 72 74 onvert."tcr").(calibredb-convert
31fe0 20 22 74 78 74 22 29 0a 28 63 61 6c 69 62 72 65 64 62 2d 63 6f 6e 76 65 72 74 20 22 74 78 74 7a ."txt").(calibredb-convert."txtz
32000 22 29 0a 0a 3b 3b 20 63 61 74 61 6c 6f 67 0a 0a 28 64 65 66 75 6e 20 63 61 6c 69 62 72 65 64 62 ")..;;.catalog..(defun.calibredb
32020 2d 63 61 74 61 6c 6f 67 20 28 29 0a 20 20 22 54 4f 44 4f 20 45 78 70 6f 72 74 20 74 68 65 20 63 -catalog.()..."TODO.Export.the.c
32040 61 74 61 6c 6f 67 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 0a 20 20 28 63 61 6c 69 atalog."...(interactive)...(cali
32060 62 72 65 64 62 2d 63 6f 6d 6d 61 6e 64 20 3a 63 6f 6d 6d 61 6e 64 20 22 63 61 74 61 6c 6f 67 22 bredb-command.:command."catalog"
32080 0a 20 20 20 20 3b 3b 20 3a 6f 70 74 69 6f 6e 20 28 73 2d 6a 6f 69 6e 20 22 20 22 20 28 2d 72 65 .....;;.:option.(s-join.".".(-re
320a0 6d 6f 76 65 20 27 73 2d 62 6c 61 6e 6b 3f 20 28 2d 66 6c 61 74 74 65 6e 20 28 63 61 6c 69 62 72 move.'s-blank?.(-flatten.(calibr
320c0 65 64 62 2d 65 78 70 6f 72 74 2d 61 72 67 75 6d 65 6e 74 73 29 29 29 29 0a 20 20 20 20 3a 69 6e edb-export-arguments)))).....:in
320e0 70 75 74 20 28 66 6f 72 6d 61 74 20 22 25 73 22 20 28 63 61 6c 69 62 72 65 64 62 2d 63 6f 6d 70 put.(format."%s".(calibredb-comp
32100 6c 65 74 65 2d 66 69 6c 65 2d 71 75 6f 74 65 20 22 45 78 70 6f 72 74 20 74 6f 20 28 73 65 6c 65 lete-file-quote."Export.to.(sele
32120 63 74 20 61 20 70 61 74 68 29 22 29 29 0a 20 20 20 20 3b 3b 20 3a 69 64 20 69 64 0a 20 20 20 20 ct.a.path)")).....;;.:id.id.....
32140 3a 6c 69 62 72 61 72 79 20 28 66 6f 72 6d 61 74 20 22 2d 2d 6c 69 62 72 61 72 79 2d 70 61 74 68 :library.(format."--library-path
32160 20 25 73 22 20 28 63 61 6c 69 62 72 65 64 62 2d 72 6f 6f 74 2d 64 69 72 2d 71 75 6f 74 65 29 29 .%s".(calibredb-root-dir-quote))
32180 29 29 0a 0a 28 64 65 66 75 6e 20 63 61 6c 69 62 72 65 64 62 2d 63 61 74 61 6c 6f 67 2d 62 69 62 ))..(defun.calibredb-catalog-bib
321a0 2d 2d 74 72 61 6e 73 69 65 6e 74 20 28 29 0a 20 20 22 45 78 70 6f 72 74 20 74 68 65 20 63 61 74 --transient.()..."Export.the.cat
321c0 61 6c 6f 67 20 77 69 74 68 20 42 69 62 54 65 78 20 66 69 6c 65 2e 22 0a 20 20 28 69 6e 74 65 72 alog.with.BibTex.file."...(inter
321e0 61 63 74 69 76 65 29 0a 20 20 28 63 61 6c 69 62 72 65 64 62 2d 63 6f 6d 6d 61 6e 64 20 3a 63 6f active)...(calibredb-command.:co
32200 6d 6d 61 6e 64 20 22 63 61 74 61 6c 6f 67 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 mmand."catalog".................
32220 20 20 20 20 20 3a 6f 70 74 69 6f 6e 20 28 66 6f 72 6d 61 74 20 22 25 73 22 0a 20 20 20 20 20 20 .....:option.(format."%s".......
32240 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 ...............................(
32260 73 68 65 6c 6c 2d 71 75 6f 74 65 2d 61 72 67 75 6d 65 6e 74 0a 20 20 20 20 20 20 20 20 20 20 20 shell-quote-argument............
32280 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 65 78 70 61 ...........................(expa
322a0 6e 64 2d 66 69 6c 65 2d 6e 61 6d 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 nd-file-name....................
322c0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6f 72 20 63 61 6c 69 62 72 65 64 ....................(or.calibred
322e0 62 2d 72 65 66 2d 64 65 66 61 75 6c 74 2d 62 69 62 6c 69 6f 67 72 61 70 68 79 0a 20 20 20 20 20 b-ref-default-bibliography......
32300 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ................................
32320 20 20 20 20 20 20 28 63 6f 6e 63 61 74 20 28 66 69 6c 65 2d 6e 61 6d 65 2d 61 73 2d 64 69 72 65 ......(concat.(file-name-as-dire
32340 63 74 6f 72 79 20 63 61 6c 69 62 72 65 64 62 2d 72 6f 6f 74 2d 64 69 72 29 20 22 63 61 74 61 6c ctory.calibredb-root-dir)."catal
32360 6f 67 2e 62 69 62 22 29 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 og.bib")))))....................
32380 20 20 3a 69 6e 70 75 74 20 28 73 2d 6a 6f 69 6e 20 22 20 22 20 28 2d 72 65 6d 6f 76 65 20 27 73 ..:input.(s-join.".".(-remove.'s
323a0 2d 62 6c 61 6e 6b 3f 20 28 2d 66 6c 61 74 74 65 6e 20 28 63 61 6c 69 62 72 65 64 62 2d 63 61 74 -blank?.(-flatten.(calibredb-cat
323c0 61 6c 6f 67 2d 62 69 62 2d 61 72 67 75 6d 65 6e 74 73 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 alog-bib-arguments))))..........
323e0 20 20 20 20 20 20 20 20 20 20 20 20 3a 6c 69 62 72 61 72 79 20 28 66 6f 72 6d 61 74 20 22 2d 2d ............:library.(format."--
32400 6c 69 62 72 61 72 79 2d 70 61 74 68 20 25 73 22 20 28 63 61 6c 69 62 72 65 64 62 2d 72 6f 6f 74 library-path.%s".(calibredb-root
32420 2d 64 69 72 2d 71 75 6f 74 65 29 29 29 0a 20 20 28 63 61 6c 69 62 72 65 64 62 2d 72 65 66 2d 64 -dir-quote)))...(calibredb-ref-d
32440 65 66 61 75 6c 74 2d 62 69 62 6c 69 6f 67 72 61 70 68 79 29 0a 20 20 28 6d 65 73 73 61 67 65 20 efault-bibliography)...(message.
32460 22 55 70 64 61 74 65 64 20 42 69 62 54 65 78 20 66 69 6c 65 2e 22 29 29 0a 0a 28 64 65 66 75 6e "Updated.BibTex.file."))..(defun
32480 20 63 61 6c 69 62 72 65 64 62 2d 66 69 6e 64 2d 62 69 62 20 28 29 0a 20 20 22 4f 70 65 6e 20 74 .calibredb-find-bib.()..."Open.t
324a0 68 65 20 63 61 74 61 6c 6f 67 20 42 69 62 54 65 78 20 66 69 6c 65 2e 22 0a 20 20 28 69 6e 74 65 he.catalog.BibTex.file."...(inte
324c0 72 61 63 74 69 76 65 29 0a 20 20 28 69 66 20 28 66 69 6c 65 2d 65 78 69 73 74 73 2d 70 20 63 61 ractive)...(if.(file-exists-p.ca
324e0 6c 69 62 72 65 64 62 2d 72 65 66 2d 64 65 66 61 75 6c 74 2d 62 69 62 6c 69 6f 67 72 61 70 68 79 libredb-ref-default-bibliography
32500 29 0a 20 20 20 20 20 20 28 66 69 6e 64 2d 66 69 6c 65 20 63 61 6c 69 62 72 65 64 62 2d 72 65 66 ).......(find-file.calibredb-ref
32520 2d 64 65 66 61 75 6c 74 2d 62 69 62 6c 69 6f 67 72 61 70 68 79 29 0a 20 20 20 20 28 6d 65 73 73 -default-bibliography).....(mess
32540 61 67 65 20 22 4e 4f 20 42 69 62 54 65 78 20 66 69 6c 65 2e 22 29 29 29 0a 0a 28 64 65 66 75 6e age."NO.BibTex.file.")))..(defun
32560 20 63 61 6c 69 62 72 65 64 62 2d 72 65 66 2d 64 65 66 61 75 6c 74 2d 62 69 62 6c 69 6f 67 72 61 .calibredb-ref-default-bibliogra
32580 70 68 79 20 28 29 0a 20 20 22 55 70 64 61 74 65 20 74 68 65 20 70 61 74 68 20 6f 66 20 42 69 62 phy.()..."Update.the.path.of.Bib
325a0 54 65 78 20 66 69 6c 65 2e 22 0a 20 20 28 75 6e 6c 65 73 73 20 63 61 6c 69 62 72 65 64 62 2d 72 Tex.file."...(unless.calibredb-r
325c0 65 66 2d 64 65 66 61 75 6c 74 2d 62 69 62 6c 69 6f 67 72 61 70 68 79 0a 20 20 20 20 28 73 65 74 ef-default-bibliography.....(set
325e0 71 20 63 61 6c 69 62 72 65 64 62 2d 72 65 66 2d 64 65 66 61 75 6c 74 2d 62 69 62 6c 69 6f 67 72 q.calibredb-ref-default-bibliogr
32600 61 70 68 79 0a 20 20 20 20 20 20 20 20 20 20 28 63 6f 6e 63 61 74 20 28 66 69 6c 65 2d 6e 61 6d aphy...........(concat.(file-nam
32620 65 2d 61 73 2d 64 69 72 65 63 74 6f 72 79 20 63 61 6c 69 62 72 65 64 62 2d 72 6f 6f 74 2d 64 69 e-as-directory.calibredb-root-di
32640 72 29 20 22 63 61 74 61 6c 6f 67 2e 62 69 62 22 29 29 29 0a 20 20 28 69 66 20 28 62 6f 75 6e 64 r)."catalog.bib")))...(if.(bound
32660 70 20 27 6f 72 67 2d 72 65 66 2d 64 65 66 61 75 6c 74 2d 62 69 62 6c 69 6f 67 72 61 70 68 79 29 p.'org-ref-default-bibliography)
32680 0a 20 20 20 20 20 20 28 69 66 20 28 66 69 6c 65 2d 65 78 69 73 74 73 2d 70 20 63 61 6c 69 62 72 .......(if.(file-exists-p.calibr
326a0 65 64 62 2d 72 65 66 2d 64 65 66 61 75 6c 74 2d 62 69 62 6c 69 6f 67 72 61 70 68 79 29 0a 20 20 edb-ref-default-bibliography)...
326c0 20 20 20 20 20 20 20 20 28 61 64 64 2d 74 6f 2d 6c 69 73 74 20 27 6f 72 67 2d 72 65 66 2d 64 65 ........(add-to-list.'org-ref-de
326e0 66 61 75 6c 74 2d 62 69 62 6c 69 6f 67 72 61 70 68 79 20 63 61 6c 69 62 72 65 64 62 2d 72 65 66 fault-bibliography.calibredb-ref
32700 2d 64 65 66 61 75 6c 74 2d 62 69 62 6c 69 6f 67 72 61 70 68 79 29 29 29 29 0a 0a 28 64 65 66 75 -default-bibliography))))..(defu
32720 6e 20 63 61 6c 69 62 72 65 64 62 2d 66 69 6e 64 2d 63 6f 76 65 72 20 28 63 61 6e 64 69 64 61 74 n.calibredb-find-cover.(candidat
32740 65 29 0a 20 20 22 4f 70 65 6e 20 74 68 65 20 63 6f 76 65 72 20 70 61 67 65 20 69 6d 61 67 65 20 e)..."Open.the.cover.page.image.
32760 6f 66 20 73 65 6c 65 63 74 65 64 20 43 41 4e 44 49 44 41 54 45 2e 22 0a 20 20 28 69 66 20 28 67 of.selected.CANDIDATE."...(if.(g
32780 65 74 2d 62 75 66 66 65 72 20 22 63 6f 76 65 72 2e 6a 70 67 22 29 0a 20 20 20 20 20 20 28 6b 69 et-buffer."cover.jpg").......(ki
327a0 6c 6c 2d 62 75 66 66 65 72 20 22 63 6f 76 65 72 2e 6a 70 67 22 29 29 0a 20 20 28 6c 65 74 2a 20 ll-buffer."cover.jpg"))...(let*.
327c0 28 28 70 61 74 68 20 28 63 61 6c 69 62 72 65 64 62 2d 67 65 74 61 74 74 72 20 63 61 6e 64 69 64 ((path.(calibredb-getattr.candid
327e0 61 74 65 20 3a 66 69 6c 65 2d 70 61 74 68 29 29 0a 20 20 20 20 20 20 20 20 20 28 63 6f 76 65 72 ate.:file-path))..........(cover
32800 20 28 63 6f 6e 63 61 74 20 28 66 69 6c 65 2d 6e 61 6d 65 2d 64 69 72 65 63 74 6f 72 79 20 70 61 .(concat.(file-name-directory.pa
32820 74 68 29 20 22 63 6f 76 65 72 2e 6a 70 67 22 29 29 29 0a 20 20 20 20 28 69 66 20 28 66 69 6c 65 th)."cover.jpg"))).....(if.(file
32840 2d 65 78 69 73 74 73 2d 70 20 63 6f 76 65 72 29 0a 20 20 20 20 20 20 20 20 28 66 69 6e 64 2d 66 -exists-p.cover).........(find-f
32860 69 6c 65 20 63 6f 76 65 72 29 0a 20 20 20 20 20 20 3b 3b 20 28 6d 65 73 73 61 67 65 20 22 4e 6f ile.cover).......;;.(message."No
32880 20 63 6f 76 65 72 22 29 0a 20 20 20 20 20 20 29 29 29 0a 0a 28 64 65 66 6d 61 63 72 6f 20 63 61 .cover").......)))..(defmacro.ca
328a0 6c 69 62 72 65 64 62 2d 61 6c 6c 20 28 66 69 65 6c 64 29 0a 20 20 22 4d 61 63 72 6f 20 6f 66 20 libredb-all.(field)..."Macro.of.
328c0 66 75 6e 63 74 69 6f 6e 20 63 61 6c 69 62 72 65 64 62 2d 61 6c 6c 2d 46 49 45 4c 44 2e 22 0a 20 function.calibredb-all-FIELD."..
328e0 20 60 28 64 65 66 75 6e 20 2c 28 69 6e 74 65 72 6e 20 28 66 6f 72 6d 61 74 20 22 63 61 6c 69 62 .`(defun.,(intern.(format."calib
32900 72 65 64 62 2d 61 6c 6c 2d 25 73 22 20 66 69 65 6c 64 29 29 20 28 29 0a 20 20 20 20 20 2c 28 66 redb-all-%s".field)).()......,(f
32920 6f 72 6d 61 74 20 22 47 65 74 20 61 6c 6c 20 25 73 20 61 6e 64 20 72 65 74 75 72 6e 20 61 73 20 ormat."Get.all.%s.and.return.as.
32940 61 20 6c 69 73 74 2e 22 20 66 69 65 6c 64 29 0a 20 20 20 20 20 28 73 65 71 2d 75 6e 69 71 0a 20 a.list.".field)......(seq-uniq..
32960 20 20 20 20 20 28 6c 65 74 20 28 6c 29 0a 20 20 20 20 20 20 20 20 28 63 6c 2d 6c 6f 6f 70 20 66 .....(let.(l).........(cl-loop.f
32980 6f 72 20 65 6e 74 72 79 20 69 6e 20 63 61 6c 69 62 72 65 64 62 2d 66 75 6c 6c 2d 65 6e 74 72 69 or.entry.in.calibredb-full-entri
329a0 65 73 20 64 6f 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 6c 20 28 es.do..................(setq.l.(
329c0 61 70 70 65 6e 64 20 28 73 70 6c 69 74 2d 73 74 72 69 6e 67 20 28 63 61 6c 69 62 72 65 64 62 2d append.(split-string.(calibredb-
329e0 67 65 74 61 74 74 72 20 28 63 64 72 20 65 6e 74 72 79 29 20 2c 28 69 6e 74 65 72 6e 20 28 66 6f getattr.(cdr.entry).,(intern.(fo
32a00 72 6d 61 74 20 22 3a 25 73 22 20 66 69 65 6c 64 29 29 29 20 22 2c 22 29 20 6c 29 29 29 20 6c 29 rmat.":%s".field))).",").l))).l)
32a20 29 29 29 0a 0a 28 63 61 6c 69 62 72 65 64 62 2d 61 6c 6c 20 22 74 61 67 22 29 0a 28 63 61 6c 69 )))..(calibredb-all."tag").(cali
32a40 62 72 65 64 62 2d 61 6c 6c 20 22 69 64 22 29 0a 28 63 61 6c 69 62 72 65 64 62 2d 61 6c 6c 20 22 bredb-all."id").(calibredb-all."
32a60 61 75 74 68 6f 72 2d 73 6f 72 74 22 29 0a 28 63 61 6c 69 62 72 65 64 62 2d 61 6c 6c 20 22 62 6f author-sort").(calibredb-all."bo
32a80 6f 6b 2d 64 69 72 22 29 0a 28 63 61 6c 69 62 72 65 64 62 2d 61 6c 6c 20 22 62 6f 6f 6b 2d 6e 61 ok-dir").(calibredb-all."book-na
32aa0 6d 65 22 29 0a 28 63 61 6c 69 62 72 65 64 62 2d 61 6c 6c 20 22 62 6f 6f 6b 2d 66 6f 72 6d 61 74 me").(calibredb-all."book-format
32ac0 22 29 0a 28 63 61 6c 69 62 72 65 64 62 2d 61 6c 6c 20 22 62 6f 6f 6b 2d 70 75 62 64 61 74 65 22 ").(calibredb-all."book-pubdate"
32ae0 29 0a 28 63 61 6c 69 62 72 65 64 62 2d 61 6c 6c 20 22 62 6f 6f 6b 2d 74 69 74 6c 65 22 29 0a 28 ).(calibredb-all."book-title").(
32b00 63 61 6c 69 62 72 65 64 62 2d 61 6c 6c 20 22 66 69 6c 65 2d 70 61 74 68 22 29 0a 28 63 61 6c 69 calibredb-all."file-path").(cali
32b20 62 72 65 64 62 2d 61 6c 6c 20 22 73 69 7a 65 22 29 0a 28 63 61 6c 69 62 72 65 64 62 2d 61 6c 6c bredb-all."size").(calibredb-all
32b40 20 22 63 6f 6d 6d 65 6e 74 22 29 0a 28 63 61 6c 69 62 72 65 64 62 2d 61 6c 6c 20 22 69 64 73 22 ."comment").(calibredb-all."ids"
32b60 29 0a 28 63 61 6c 69 62 72 65 64 62 2d 61 6c 6c 20 22 70 75 62 6c 69 73 68 65 72 22 29 0a 28 63 ).(calibredb-all."publisher").(c
32b80 61 6c 69 62 72 65 64 62 2d 61 6c 6c 20 22 73 65 72 69 65 73 22 29 0a 28 63 61 6c 69 62 72 65 64 alibredb-all."series").(calibred
32ba0 62 2d 61 6c 6c 20 22 6c 61 6e 67 5f 63 6f 64 65 22 29 0a 28 63 61 6c 69 62 72 65 64 62 2d 61 6c b-all."lang_code").(calibredb-al
32bc0 6c 20 22 6c 61 73 74 5f 6d 6f 64 69 66 69 65 64 22 29 0a 0a 28 64 65 66 75 6e 20 63 61 6c 69 62 l."last_modified")..(defun.calib
32be0 72 65 64 62 2d 66 69 6c 74 65 72 2d 62 79 2d 74 61 67 20 28 29 0a 20 20 22 46 69 6c 74 65 72 20 redb-filter-by-tag.()..."Filter.
32c00 72 65 73 75 6c 74 73 20 62 79 20 74 61 67 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 results.by.tag."...(interactive)
32c20 0a 20 20 28 6c 65 74 20 28 28 74 61 67 20 28 63 6f 6d 70 6c 65 74 69 6e 67 2d 72 65 61 64 20 22 ...(let.((tag.(completing-read."
32c40 53 65 6c 65 63 74 20 74 61 67 3a 20 22 20 28 63 61 6c 69 62 72 65 64 62 2d 61 6c 6c 2d 74 61 67 Select.tag:.".(calibredb-all-tag
32c60 29 29 29 29 0a 20 20 20 20 28 73 65 74 71 20 63 61 6c 69 62 72 65 64 62 2d 74 61 67 2d 66 69 6c )))).....(setq.calibredb-tag-fil
32c80 74 65 72 2d 70 20 74 29 0a 20 20 20 20 28 73 65 74 71 20 63 61 6c 69 62 72 65 64 62 2d 66 61 76 ter-p.t).....(setq.calibredb-fav
32ca0 6f 72 69 74 65 2d 66 69 6c 74 65 72 2d 70 20 6e 69 6c 29 0a 20 20 20 20 28 73 65 74 71 20 63 61 orite-filter-p.nil).....(setq.ca
32cc0 6c 69 62 72 65 64 62 2d 61 75 74 68 6f 72 2d 66 69 6c 74 65 72 2d 70 20 6e 69 6c 29 0a 20 20 20 libredb-author-filter-p.nil)....
32ce0 20 28 73 65 74 71 20 63 61 6c 69 62 72 65 64 62 2d 64 61 74 65 2d 66 69 6c 74 65 72 2d 70 20 6e .(setq.calibredb-date-filter-p.n
32d00 69 6c 29 0a 20 20 20 20 28 73 65 74 71 20 63 61 6c 69 62 72 65 64 62 2d 66 6f 72 6d 61 74 2d 66 il).....(setq.calibredb-format-f
32d20 69 6c 74 65 72 2d 70 20 6e 69 6c 29 0a 20 20 20 20 28 63 61 6c 69 62 72 65 64 62 2d 73 65 61 72 ilter-p.nil).....(calibredb-sear
32d40 63 68 2d 6b 65 79 77 6f 72 64 2d 66 69 6c 74 65 72 20 74 61 67 29 29 29 0a 0a 28 64 65 66 75 6e ch-keyword-filter.tag)))..(defun
32d60 20 63 61 6c 69 62 72 65 64 62 2d 66 69 6c 74 65 72 2d 62 79 2d 61 75 74 68 6f 72 2d 73 6f 72 74 .calibredb-filter-by-author-sort
32d80 20 28 29 0a 20 20 22 46 69 6c 74 65 72 20 72 65 73 75 6c 74 73 20 62 79 20 61 75 74 68 6f 72 2d .()..."Filter.results.by.author-
32da0 73 6f 72 74 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 0a 20 20 28 6c 65 74 20 28 28 sort."...(interactive)...(let.((
32dc0 61 75 74 68 6f 72 20 28 63 6f 6d 70 6c 65 74 69 6e 67 2d 72 65 61 64 20 22 53 65 6c 65 63 74 20 author.(completing-read."Select.
32de0 61 75 74 68 6f 72 3a 20 22 20 28 63 61 6c 69 62 72 65 64 62 2d 61 6c 6c 2d 61 75 74 68 6f 72 2d author:.".(calibredb-all-author-
32e00 73 6f 72 74 29 29 29 29 0a 20 20 20 20 28 73 65 74 71 20 63 61 6c 69 62 72 65 64 62 2d 74 61 67 sort)))).....(setq.calibredb-tag
32e20 2d 66 69 6c 74 65 72 2d 70 20 6e 69 6c 29 0a 20 20 20 20 28 73 65 74 71 20 63 61 6c 69 62 72 65 -filter-p.nil).....(setq.calibre
32e40 64 62 2d 66 61 76 6f 72 69 74 65 2d 66 69 6c 74 65 72 2d 70 20 6e 69 6c 29 0a 20 20 20 20 28 73 db-favorite-filter-p.nil).....(s
32e60 65 74 71 20 63 61 6c 69 62 72 65 64 62 2d 61 75 74 68 6f 72 2d 66 69 6c 74 65 72 2d 70 20 74 29 etq.calibredb-author-filter-p.t)
32e80 0a 20 20 20 20 28 73 65 74 71 20 63 61 6c 69 62 72 65 64 62 2d 64 61 74 65 2d 66 69 6c 74 65 72 .....(setq.calibredb-date-filter
32ea0 2d 70 20 6e 69 6c 29 0a 20 20 20 20 28 73 65 74 71 20 63 61 6c 69 62 72 65 64 62 2d 66 6f 72 6d -p.nil).....(setq.calibredb-form
32ec0 61 74 2d 66 69 6c 74 65 72 2d 70 20 6e 69 6c 29 0a 20 20 20 20 28 63 61 6c 69 62 72 65 64 62 2d at-filter-p.nil).....(calibredb-
32ee0 73 65 61 72 63 68 2d 6b 65 79 77 6f 72 64 2d 66 69 6c 74 65 72 20 61 75 74 68 6f 72 29 29 29 0a search-keyword-filter.author))).
32f00 0a 28 64 65 66 75 6e 20 63 61 6c 69 62 72 65 64 62 2d 66 69 6c 74 65 72 2d 62 79 2d 6c 61 73 74 .(defun.calibredb-filter-by-last
32f20 5f 6d 6f 64 69 66 69 65 64 20 28 29 0a 20 20 22 46 69 6c 74 65 72 20 72 65 73 75 6c 74 73 20 62 _modified.()..."Filter.results.b
32f40 79 20 6c 61 73 74 5f 6d 6f 64 69 66 69 65 64 20 64 61 74 65 2e 22 0a 20 20 28 69 6e 74 65 72 61 y.last_modified.date."...(intera
32f60 63 74 69 76 65 29 0a 20 20 28 6c 65 74 20 28 28 64 61 74 65 20 28 63 6f 6d 70 6c 65 74 69 6e 67 ctive)...(let.((date.(completing
32f80 2d 72 65 61 64 20 22 53 65 6c 65 63 74 20 64 61 74 65 3a 20 22 20 28 73 65 71 2d 75 6e 69 71 20 -read."Select.date:.".(seq-uniq.
32fa0 28 6d 61 70 63 61 72 20 28 6c 61 6d 62 64 61 20 28 64 61 74 65 29 20 28 73 2d 6c 65 66 74 20 31 (mapcar.(lambda.(date).(s-left.1
32fc0 30 20 64 61 74 65 29 29 20 28 63 61 6c 69 62 72 65 64 62 2d 61 6c 6c 2d 6c 61 73 74 5f 6d 6f 64 0.date)).(calibredb-all-last_mod
32fe0 69 66 69 65 64 29 29 29 29 29 29 0a 20 20 20 20 28 73 65 74 71 20 63 61 6c 69 62 72 65 64 62 2d ified)))))).....(setq.calibredb-
33000 74 61 67 2d 66 69 6c 74 65 72 2d 70 20 6e 69 6c 29 0a 20 20 20 20 28 73 65 74 71 20 63 61 6c 69 tag-filter-p.nil).....(setq.cali
33020 62 72 65 64 62 2d 66 61 76 6f 72 69 74 65 2d 66 69 6c 74 65 72 2d 70 20 6e 69 6c 29 0a 20 20 20 bredb-favorite-filter-p.nil)....
33040 20 28 73 65 74 71 20 63 61 6c 69 62 72 65 64 62 2d 61 75 74 68 6f 72 2d 66 69 6c 74 65 72 2d 70 .(setq.calibredb-author-filter-p
33060 20 6e 69 6c 29 0a 20 20 20 20 28 73 65 74 71 20 63 61 6c 69 62 72 65 64 62 2d 64 61 74 65 2d 66 .nil).....(setq.calibredb-date-f
33080 69 6c 74 65 72 2d 70 20 74 29 0a 20 20 20 20 28 73 65 74 71 20 63 61 6c 69 62 72 65 64 62 2d 66 ilter-p.t).....(setq.calibredb-f
330a0 6f 72 6d 61 74 2d 66 69 6c 74 65 72 2d 70 20 6e 69 6c 29 0a 20 20 20 20 28 63 61 6c 69 62 72 65 ormat-filter-p.nil).....(calibre
330c0 64 62 2d 73 65 61 72 63 68 2d 6b 65 79 77 6f 72 64 2d 66 69 6c 74 65 72 20 64 61 74 65 29 29 29 db-search-keyword-filter.date)))
330e0 0a 0a 0a 28 64 65 66 75 6e 20 63 61 6c 69 62 72 65 64 62 2d 66 69 6c 74 65 72 2d 62 79 2d 62 6f ...(defun.calibredb-filter-by-bo
33100 6f 6b 2d 66 6f 72 6d 61 74 20 28 29 0a 20 20 22 46 69 6c 74 65 72 20 72 65 73 75 6c 74 73 20 62 ok-format.()..."Filter.results.b
33120 79 20 62 6f 6f 6b 20 66 6f 72 6d 61 74 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 0a y.book.format."...(interactive).
33140 20 20 28 6c 65 74 20 28 28 66 6f 72 6d 61 74 20 28 63 6f 6d 70 6c 65 74 69 6e 67 2d 72 65 61 64 ..(let.((format.(completing-read
33160 20 22 53 65 6c 65 63 74 20 66 6f 72 6d 61 74 3a 20 22 20 28 63 61 6c 69 62 72 65 64 62 2d 61 6c ."Select.format:.".(calibredb-al
33180 6c 2d 62 6f 6f 6b 2d 66 6f 72 6d 61 74 29 29 29 29 0a 20 20 20 20 28 73 65 74 71 20 63 61 6c 69 l-book-format)))).....(setq.cali
331a0 62 72 65 64 62 2d 74 61 67 2d 66 69 6c 74 65 72 2d 70 20 6e 69 6c 29 0a 20 20 20 20 28 73 65 74 bredb-tag-filter-p.nil).....(set
331c0 71 20 63 61 6c 69 62 72 65 64 62 2d 66 61 76 6f 72 69 74 65 2d 66 69 6c 74 65 72 2d 70 20 6e 69 q.calibredb-favorite-filter-p.ni
331e0 6c 29 0a 20 20 20 20 28 73 65 74 71 20 63 61 6c 69 62 72 65 64 62 2d 61 75 74 68 6f 72 2d 66 69 l).....(setq.calibredb-author-fi
33200 6c 74 65 72 2d 70 20 6e 69 6c 29 0a 20 20 20 20 28 73 65 74 71 20 63 61 6c 69 62 72 65 64 62 2d lter-p.nil).....(setq.calibredb-
33220 64 61 74 65 2d 66 69 6c 74 65 72 2d 70 20 6e 69 6c 29 0a 20 20 20 20 28 73 65 74 71 20 63 61 6c date-filter-p.nil).....(setq.cal
33240 69 62 72 65 64 62 2d 66 6f 72 6d 61 74 2d 66 69 6c 74 65 72 2d 70 20 74 29 0a 20 20 20 20 28 63 ibredb-format-filter-p.t).....(c
33260 61 6c 69 62 72 65 64 62 2d 73 65 61 72 63 68 2d 6b 65 79 77 6f 72 64 2d 66 69 6c 74 65 72 20 66 alibredb-search-keyword-filter.f
33280 6f 72 6d 61 74 29 29 29 0a 0a 28 64 65 66 75 6e 20 63 61 6c 69 62 72 65 64 62 2d 61 74 74 61 63 ormat)))..(defun.calibredb-attac
332a0 68 2d 69 63 6f 6e 2d 66 6f 72 20 28 70 61 74 68 29 0a 20 20 22 52 65 74 75 72 6e 20 74 68 65 20 h-icon-for.(path)..."Return.the.
332c0 69 63 6f 6e 20 62 61 73 65 64 20 6f 6e 20 50 41 54 48 2e 22 0a 20 20 28 63 68 61 72 2d 74 6f 2d icon.based.on.PATH."...(char-to-
332e0 73 74 72 69 6e 67 0a 20 20 20 28 70 63 61 73 65 20 28 64 6f 77 6e 63 61 73 65 20 28 66 69 6c 65 string....(pcase.(downcase.(file
33300 2d 6e 61 6d 65 2d 65 78 74 65 6e 73 69 6f 6e 20 70 61 74 68 29 29 0a 20 20 20 20 20 28 28 6f 72 -name-extension.path))......((or
33320 20 22 6a 70 67 22 20 22 6a 70 65 67 22 20 22 70 6e 67 22 20 22 67 69 66 22 29 20 3f ef 87 85 29 ."jpg"."jpeg"."png"."gif").?...)
33340 0a 20 20 20 20 20 28 22 70 64 66 22 20 3f ef 87 81 29 0a 20 20 20 20 20 28 28 6f 72 20 22 70 70 ......("pdf".?...)......((or."pp
33360 74 22 20 22 70 70 74 78 22 29 20 3f ef 87 84 29 0a 20 20 20 20 20 28 28 6f 72 20 22 78 6c 73 22 t"."pptx").?...)......((or."xls"
33380 20 22 78 6c 73 78 22 29 20 3f ef 87 83 29 0a 20 20 20 20 20 28 28 6f 72 20 22 64 6f 63 22 20 22 ."xlsx").?...)......((or."doc"."
333a0 64 6f 63 78 22 29 20 3f ef 87 82 29 0a 20 20 20 20 20 28 28 6f 72 20 22 6f 67 67 22 20 22 6d 70 docx").?...)......((or."ogg"."mp
333c0 33 22 20 22 77 61 76 22 20 22 61 69 66 66 22 20 22 66 6c 61 63 22 29 20 3f ef 87 87 29 0a 20 20 3"."wav"."aiff"."flac").?...)...
333e0 20 20 20 28 28 6f 72 20 22 6d 70 34 22 20 22 6d 6f 76 22 20 22 61 76 69 22 29 20 3f ef 87 88 29 ...((or."mp4"."mov"."avi").?...)
33400 0a 20 20 20 20 20 28 28 6f 72 20 22 7a 69 70 22 20 22 67 7a 22 20 22 74 61 72 22 20 22 37 7a 22 ......((or."zip"."gz"."tar"."7z"
33420 20 22 72 61 72 22 29 20 3f ef 87 86 29 0a 20 20 20 20 20 28 5f 20 3f ef 80 96 29 29 29 29 0a 0a ."rar").?...)......(_.?...))))..
33440 28 70 72 6f 76 69 64 65 20 27 63 61 6c 69 62 72 65 64 62 2d 75 74 69 6c 73 29 0a 0a 3b 3b 3b 20 (provide.'calibredb-utils)..;;;.
33460 63 61 6c 69 62 72 65 64 62 2d 75 74 69 6c 73 2e 65 6c 20 65 6e 64 73 20 68 65 72 65 0a 00 00 00 calibredb-utils.el.ends.here....
33480 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
334a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
334c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
334e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
33500 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
33520 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
33540 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
33560 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
33580 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
335a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
335c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
335e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
33600 63 61 6c 69 62 72 65 64 62 2d 32 30 32 34 30 33 33 31 2e 34 30 39 2f 63 61 6c 69 62 72 65 64 62 calibredb-20240331.409/calibredb
33620 2d 68 65 6c 6d 2e 65 6c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -helm.el........................
33640 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
33660 00 00 00 00 30 30 30 30 36 34 34 00 30 30 30 30 30 30 30 00 30 30 30 30 30 30 30 00 30 30 30 30 ....0000644.0000000.0000000.0000
33680 30 30 31 33 32 30 32 00 30 30 30 30 30 30 30 30 30 30 30 00 30 31 36 30 30 35 00 20 30 00 00 00 0013202.00000000000.016005..0...
336a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
336c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
336e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
33700 00 75 73 74 61 72 20 20 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 .ustar...root...................
33720 00 00 00 00 00 00 00 00 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 .........root...................
33740 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
33760 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
33780 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
337a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
337c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
337e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
33800 3b 3b 3b 20 63 61 6c 69 62 72 65 64 62 2d 73 68 6f 77 2e 65 6c 20 2d 2d 2d 20 48 65 6c 6d 20 66 ;;;.calibredb-show.el.---.Helm.f
33820 6f 72 20 63 61 6c 69 62 72 65 64 62 20 2d 2a 2d 20 6c 65 78 69 63 61 6c 2d 62 69 6e 64 69 6e 67 or.calibredb.-*-.lexical-binding
33840 3a 20 74 3b 20 2d 2a 2d 0a 0a 3b 3b 20 43 6f 70 79 72 69 67 68 74 20 28 43 29 20 32 30 32 30 20 :.t;.-*-..;;.Copyright.(C).2020.
33860 44 61 6d 6f 6e 20 43 68 61 6e 0a 0a 3b 3b 20 41 75 74 68 6f 72 3a 20 44 61 6d 6f 6e 20 43 68 61 Damon.Chan..;;.Author:.Damon.Cha
33880 6e 20 3c 65 6c 65 63 6d 69 6e 67 40 67 6d 61 69 6c 2e 63 6f 6d 3e 0a 3b 3b 20 55 52 4c 3a 20 68 n.<elecming@gmail.com>.;;.URL:.h
338a0 74 74 70 73 3a 2f 2f 67 69 74 68 75 62 2e 63 6f 6d 2f 63 68 65 6e 79 61 6e 6d 69 6e 67 2f 63 61 ttps://github.com/chenyanming/ca
338c0 6c 69 62 72 65 64 62 2e 65 6c 0a 3b 3b 20 4b 65 79 77 6f 72 64 73 3a 20 74 6f 6f 6c 73 0a 3b 3b libredb.el.;;.Keywords:.tools.;;
338e0 20 56 65 72 73 69 6f 6e 3a 20 32 2e 31 32 2e 30 0a 0a 3b 3b 20 54 68 69 73 20 66 69 6c 65 20 69 .Version:.2.12.0..;;.This.file.i
33900 73 20 4e 4f 54 20 70 61 72 74 20 6f 66 20 47 4e 55 20 45 6d 61 63 73 2e 0a 0a 3b 3b 20 54 68 69 s.NOT.part.of.GNU.Emacs...;;.Thi
33920 73 20 70 72 6f 67 72 61 6d 20 69 73 20 66 72 65 65 20 73 6f 66 74 77 61 72 65 3b 20 79 6f 75 20 s.program.is.free.software;.you.
33940 63 61 6e 20 72 65 64 69 73 74 72 69 62 75 74 65 20 69 74 20 61 6e 64 2f 6f 72 20 6d 6f 64 69 66 can.redistribute.it.and/or.modif
33960 79 0a 3b 3b 20 69 74 20 75 6e 64 65 72 20 74 68 65 20 74 65 72 6d 73 20 6f 66 20 74 68 65 20 47 y.;;.it.under.the.terms.of.the.G
33980 4e 55 20 47 65 6e 65 72 61 6c 20 50 75 62 6c 69 63 20 4c 69 63 65 6e 73 65 20 61 73 20 70 75 62 NU.General.Public.License.as.pub
339a0 6c 69 73 68 65 64 20 62 79 0a 3b 3b 20 74 68 65 20 46 72 65 65 20 53 6f 66 74 77 61 72 65 20 46 lished.by.;;.the.Free.Software.F
339c0 6f 75 6e 64 61 74 69 6f 6e 2c 20 65 69 74 68 65 72 20 76 65 72 73 69 6f 6e 20 33 20 6f 66 20 74 oundation,.either.version.3.of.t
339e0 68 65 20 4c 69 63 65 6e 73 65 2c 20 6f 72 0a 3b 3b 20 28 61 74 20 79 6f 75 72 20 6f 70 74 69 6f he.License,.or.;;.(at.your.optio
33a00 6e 29 20 61 6e 79 20 6c 61 74 65 72 20 76 65 72 73 69 6f 6e 2e 0a 0a 3b 3b 20 54 68 69 73 20 70 n).any.later.version...;;.This.p
33a20 72 6f 67 72 61 6d 20 69 73 20 64 69 73 74 72 69 62 75 74 65 64 20 69 6e 20 74 68 65 20 68 6f 70 rogram.is.distributed.in.the.hop
33a40 65 20 74 68 61 74 20 69 74 20 77 69 6c 6c 20 62 65 20 75 73 65 66 75 6c 2c 0a 3b 3b 20 62 75 74 e.that.it.will.be.useful,.;;.but
33a60 20 57 49 54 48 4f 55 54 20 41 4e 59 20 57 41 52 52 41 4e 54 59 3b 20 77 69 74 68 6f 75 74 20 65 .WITHOUT.ANY.WARRANTY;.without.e
33a80 76 65 6e 20 74 68 65 20 69 6d 70 6c 69 65 64 20 77 61 72 72 61 6e 74 79 20 6f 66 0a 3b 3b 20 4d ven.the.implied.warranty.of.;;.M
33aa0 45 52 43 48 41 4e 54 41 42 49 4c 49 54 59 20 6f 72 20 46 49 54 4e 45 53 53 20 46 4f 52 20 41 20 ERCHANTABILITY.or.FITNESS.FOR.A.
33ac0 50 41 52 54 49 43 55 4c 41 52 20 50 55 52 50 4f 53 45 2e 20 20 53 65 65 20 74 68 65 0a 3b 3b 20 PARTICULAR.PURPOSE...See.the.;;.
33ae0 47 4e 55 20 47 65 6e 65 72 61 6c 20 50 75 62 6c 69 63 20 4c 69 63 65 6e 73 65 20 66 6f 72 20 6d GNU.General.Public.License.for.m
33b00 6f 72 65 20 64 65 74 61 69 6c 73 2e 0a 0a 3b 3b 20 59 6f 75 20 73 68 6f 75 6c 64 20 68 61 76 65 ore.details...;;.You.should.have
33b20 20 72 65 63 65 69 76 65 64 20 61 20 63 6f 70 79 20 6f 66 20 74 68 65 20 47 4e 55 20 47 65 6e 65 .received.a.copy.of.the.GNU.Gene
33b40 72 61 6c 20 50 75 62 6c 69 63 20 4c 69 63 65 6e 73 65 0a 3b 3b 20 61 6c 6f 6e 67 20 77 69 74 68 ral.Public.License.;;.along.with
33b60 20 74 68 69 73 20 70 72 6f 67 72 61 6d 2e 20 20 49 66 20 6e 6f 74 2c 20 73 65 65 20 3c 68 74 74 .this.program...If.not,.see.<htt
33b80 70 73 3a 2f 2f 77 77 77 2e 67 6e 75 2e 6f 72 67 2f 6c 69 63 65 6e 73 65 73 2f 3e 2e 0a 0a 3b 3b ps://www.gnu.org/licenses/>...;;
33ba0 3b 20 43 6f 6d 6d 65 6e 74 61 72 79 3a 0a 0a 3b 3b 3b 20 43 6f 64 65 3a 0a 0a 28 72 65 71 75 69 ;.Commentary:..;;;.Code:..(requi
33bc0 72 65 20 27 63 61 6c 69 62 72 65 64 62 2d 63 6f 72 65 29 0a 0a 28 65 76 61 6c 2d 77 68 65 6e 2d re.'calibredb-core)..(eval-when-
33be0 63 6f 6d 70 69 6c 65 20 28 64 65 66 76 61 72 20 63 61 6c 69 62 72 65 64 62 2d 73 65 61 72 63 68 compile.(defvar.calibredb-search
33c00 2d 65 6e 74 72 69 65 73 29 29 0a 28 65 76 61 6c 2d 77 68 65 6e 2d 63 6f 6d 70 69 6c 65 20 28 64 -entries)).(eval-when-compile.(d
33c20 65 66 76 61 72 20 63 61 6c 69 62 72 65 64 62 2d 66 75 6c 6c 2d 65 6e 74 72 69 65 73 29 29 0a 0a efvar.calibredb-full-entries))..
33c40 28 64 65 63 6c 61 72 65 2d 66 75 6e 63 74 69 6f 6e 20 63 61 6c 69 62 72 65 64 62 2d 73 65 74 2d (declare-function.calibredb-set-
33c60 6d 65 74 61 64 61 74 61 2d 2d 74 61 67 73 20 22 63 61 6c 69 62 72 65 64 62 2d 75 74 69 6c 73 2e metadata--tags."calibredb-utils.
33c80 65 6c 22 29 0a 28 64 65 63 6c 61 72 65 2d 66 75 6e 63 74 69 6f 6e 20 63 61 6c 69 62 72 65 64 62 el").(declare-function.calibredb
33ca0 2d 73 65 74 2d 6d 65 74 61 64 61 74 61 2d 2d 63 6f 6d 6d 65 6e 74 73 20 22 63 61 6c 69 62 72 65 -set-metadata--comments."calibre
33cc0 64 62 2d 75 74 69 6c 73 2e 65 6c 22 29 0a 28 64 65 63 6c 61 72 65 2d 66 75 6e 63 74 69 6f 6e 20 db-utils.el").(declare-function.
33ce0 63 61 6c 69 62 72 65 64 62 2d 6f 70 65 6e 2d 66 69 6c 65 2d 77 69 74 68 2d 64 65 66 61 75 6c 74 calibredb-open-file-with-default
33d00 2d 74 6f 6f 6c 20 22 63 61 6c 69 62 72 65 64 62 2d 75 74 69 6c 73 2e 65 6c 22 29 0a 28 64 65 63 -tool."calibredb-utils.el").(dec
33d20 6c 61 72 65 2d 66 75 6e 63 74 69 6f 6e 20 63 61 6c 69 62 72 65 64 62 2d 73 68 6f 77 2d 65 6e 74 lare-function.calibredb-show-ent
33d40 72 79 20 22 63 61 6c 69 62 72 65 64 62 2d 73 65 61 72 63 68 2e 65 6c 22 29 0a 28 64 65 63 6c 61 ry."calibredb-search.el").(decla
33d60 72 65 2d 66 75 6e 63 74 69 6f 6e 20 63 61 6c 69 62 72 65 64 62 2d 67 65 74 2d 66 69 6c 65 2d 70 re-function.calibredb-get-file-p
33d80 61 74 68 20 22 63 61 6c 69 62 72 65 64 62 2d 75 74 69 6c 73 2e 65 6c 22 29 0a 0a 28 64 65 66 76 ath."calibredb-utils.el")..(defv
33da0 61 72 20 63 61 6c 69 62 72 65 64 62 2d 68 65 6c 6d 2d 6d 61 70 0a 20 20 28 69 66 20 28 62 6f 75 ar.calibredb-helm-map...(if.(bou
33dc0 6e 64 70 20 27 68 65 6c 6d 2d 6d 61 70 29 0a 20 20 20 20 20 20 28 6c 65 74 20 28 28 6d 61 70 20 ndp.'helm-map).......(let.((map.
33de0 28 6d 61 6b 65 2d 73 70 61 72 73 65 2d 6b 65 79 6d 61 70 29 29 29 0a 20 20 20 20 20 20 20 20 28 (make-sparse-keymap))).........(
33e00 73 65 74 2d 6b 65 79 6d 61 70 2d 70 61 72 65 6e 74 20 6d 61 70 20 68 65 6c 6d 2d 6d 61 70 29 0a set-keymap-parent.map.helm-map).
33e20 20 20 20 20 20 20 20 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 6d 61 70 20 22 5c 4d 2d 74 22 20 23 ........(define-key.map."\M-t".#
33e40 27 63 61 6c 69 62 72 65 64 62 2d 73 65 74 2d 6d 65 74 61 64 61 74 61 2d 2d 74 61 67 73 2d 31 29 'calibredb-set-metadata--tags-1)
33e60 0a 20 20 20 20 20 20 20 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 6d 61 70 20 22 5c 4d 2d 63 22 20 .........(define-key.map."\M-c".
33e80 23 27 63 61 6c 69 62 72 65 64 62 2d 73 65 74 2d 6d 65 74 61 64 61 74 61 2d 2d 63 6f 6d 6d 65 6e #'calibredb-set-metadata--commen
33ea0 74 73 2d 31 29 0a 20 20 20 20 20 20 20 20 6d 61 70 29 29 0a 20 20 22 4b 65 79 6d 61 70 20 66 6f ts-1).........map))..."Keymap.fo
33ec0 72 20 60 63 61 6c 69 62 72 65 64 62 2d 66 69 6e 64 2d 68 65 6c 6d 27 2e 22 29 0a 0a 28 64 65 66 r.`calibredb-find-helm'.")..(def
33ee0 63 75 73 74 6f 6d 20 63 61 6c 69 62 72 65 64 62 2d 68 65 6c 6d 2d 61 63 74 69 6f 6e 73 0a 20 20 custom.calibredb-helm-actions...
33f00 28 69 66 20 28 66 62 6f 75 6e 64 70 20 27 68 65 6c 6d 2d 6d 61 6b 65 2d 61 63 74 69 6f 6e 73 29 (if.(fboundp.'helm-make-actions)
33f20 0a 20 20 20 20 20 20 28 68 65 6c 6d 2d 6d 61 6b 65 2d 61 63 74 69 6f 6e 73 0a 20 20 20 20 20 20 .......(helm-make-actions.......
33f40 20 22 4f 70 65 6e 20 66 69 6c 65 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 ."Open.file"...................'
33f60 63 61 6c 69 62 72 65 64 62 2d 66 69 6e 64 2d 66 69 6c 65 0a 20 20 20 20 20 20 20 22 56 69 65 77 calibredb-find-file........"View
33f80 20 64 65 74 61 69 6c 73 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 63 61 6c 69 62 72 .details"................'calibr
33fa0 65 64 62 2d 73 68 6f 77 2d 65 6e 74 72 79 0a 20 20 20 20 20 20 20 22 4f 70 65 6e 20 66 69 6c 65 edb-show-entry........"Open.file
33fc0 20 6f 74 68 65 72 20 66 72 61 6d 65 22 20 20 20 20 20 20 20 27 63 61 6c 69 62 72 65 64 62 2d 66 .other.frame".......'calibredb-f
33fe0 69 6e 64 2d 66 69 6c 65 2d 6f 74 68 65 72 2d 66 72 61 6d 65 0a 20 20 20 20 20 20 20 22 4f 70 65 ind-file-other-frame........"Ope
34000 6e 20 66 69 6c 65 20 77 69 74 68 20 64 65 66 61 75 6c 74 20 74 6f 6f 6c 22 20 28 6c 61 6d 62 64 n.file.with.default.tool".(lambd
34020 61 20 28 63 61 6e 64 69 64 61 74 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 a.(candidate)...................
34040 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 61 6c 69 62 72 65 64 62 ......................(calibredb
34060 2d 6f 70 65 6e 2d 66 69 6c 65 2d 77 69 74 68 2d 64 65 66 61 75 6c 74 2d 74 6f 6f 6c 20 6e 69 6c -open-file-with-default-tool.nil
34080 20 63 61 6e 64 69 64 61 74 65 29 29 0a 20 20 20 20 20 20 20 22 4f 70 65 6e 20 43 6f 76 65 72 20 .candidate))........"Open.Cover.
340a0 50 61 67 65 22 20 20 20 20 20 20 20 20 20 20 20 20 20 27 63 61 6c 69 62 72 65 64 62 2d 66 69 6e Page".............'calibredb-fin
340c0 64 2d 63 6f 76 65 72 0a 20 20 20 20 20 20 20 22 53 65 74 20 74 61 67 73 22 20 20 20 20 20 20 20 d-cover........"Set.tags".......
340e0 20 20 20 27 63 61 6c 69 62 72 65 64 62 2d 73 65 74 2d 6d 65 74 61 64 61 74 61 2d 2d 74 61 67 73 ...'calibredb-set-metadata--tags
34100 0a 20 20 20 20 20 20 20 22 53 65 74 20 63 6f 6d 6d 65 6e 74 73 22 20 20 20 20 20 20 27 63 61 6c ........"Set.comments"......'cal
34120 69 62 72 65 64 62 2d 73 65 74 2d 6d 65 74 61 64 61 74 61 2d 2d 63 6f 6d 6d 65 6e 74 73 0a 20 20 ibredb-set-metadata--comments...
34140 20 20 20 20 20 22 4c 69 73 74 20 66 69 6c 65 64 73 22 20 27 63 61 6c 69 62 72 65 64 62 2d 73 65 ....."List.fileds".'calibredb-se
34160 74 2d 6d 65 74 61 64 61 74 61 2d 2d 6c 69 73 74 2d 66 69 65 6c 64 73 0a 20 20 20 20 20 20 20 22 t-metadata--list-fields........"
34180 53 68 6f 77 20 6d 65 74 61 64 61 74 61 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 63 61 Show.metadata"...............'ca
341a0 6c 69 62 72 65 64 62 2d 73 68 6f 77 2d 6d 65 74 61 64 61 74 61 0a 20 20 20 20 20 20 20 22 45 78 libredb-show-metadata........"Ex
341c0 70 6f 72 74 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 63 61 6c 69 port"......................'cali
341e0 62 72 65 64 62 2d 65 78 70 6f 72 74 0a 20 20 20 20 20 20 20 22 52 65 6d 6f 76 65 22 20 20 20 20 bredb-export........"Remove"....
34200 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 63 61 6c 69 62 72 65 64 62 2d 72 65 6d ..................'calibredb-rem
34220 6f 76 65 0a 20 20 20 20 20 20 20 22 49 6e 73 65 72 74 20 61 6e 20 6f 72 67 20 6c 69 6e 6b 22 20 ove........"Insert.an.org.link".
34240 20 20 20 20 20 20 20 20 20 28 6c 61 6d 62 64 61 20 28 63 61 6e 64 69 64 61 74 65 29 0a 20 20 20 .........(lambda.(candidate)....
34260 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ................................
34280 20 20 20 20 28 75 6e 6c 65 73 73 20 28 66 65 61 74 75 72 65 70 20 27 6f 72 67 29 0a 20 20 20 20 ....(unless.(featurep.'org).....
342a0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ................................
342c0 20 20 20 20 20 28 72 65 71 75 69 72 65 20 27 6f 72 67 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 .....(require.'org))............
342e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 66 20 ............................(if.
34300 28 66 62 6f 75 6e 64 70 20 27 6f 72 67 2d 69 6e 73 65 72 74 2d 6c 69 6e 6b 29 0a 20 20 20 20 20 (fboundp.'org-insert-link)......
34320 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ................................
34340 20 20 20 20 20 20 28 6f 72 67 2d 69 6e 73 65 72 74 2d 6c 69 6e 6b 20 6e 69 6c 20 28 63 61 6c 69 ......(org-insert-link.nil.(cali
34360 62 72 65 64 62 2d 67 65 74 2d 66 69 6c 65 2d 70 61 74 68 20 63 61 6e 64 69 64 61 74 65 20 74 29 bredb-get-file-path.candidate.t)
34380 20 28 63 61 6c 69 62 72 65 64 62 2d 67 65 74 61 74 74 72 20 63 61 6e 64 69 64 61 74 65 20 3a 62 .(calibredb-getattr.candidate.:b
343a0 6f 6f 6b 2d 74 69 74 6c 65 29 29 29 29 0a 20 20 20 20 20 20 20 22 4d 61 69 6c 20 41 64 64 20 61 ook-title))))........"Mail.Add.a
343c0 74 74 61 63 68 6d 65 6e 74 22 20 20 20 20 20 20 20 20 20 28 6c 61 6d 62 64 61 20 28 63 61 6e 64 ttachment".........(lambda.(cand
343e0 69 64 61 74 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 idate)..........................
34400 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6d 61 69 6c 2d 61 64 64 2d 61 74 74 61 63 68 6d 65 ..............(mail-add-attachme
34420 6e 74 20 28 63 61 6c 69 62 72 65 64 62 2d 67 65 74 2d 66 69 6c 65 2d 70 61 74 68 20 63 61 6e 64 nt.(calibredb-get-file-path.cand
34440 69 64 61 74 65 20 74 29 29 29 29 29 0a 20 20 22 44 65 66 61 75 6c 74 20 61 63 74 69 6f 6e 73 20 idate.t)))))..."Default.actions.
34460 66 6f 72 20 63 61 6c 69 62 72 65 64 62 20 68 65 6c 6d 2e 22 0a 20 20 3a 67 72 6f 75 70 20 27 63 for.calibredb.helm."...:group.'c
34480 61 6c 69 62 72 65 64 62 0a 20 20 3a 74 79 70 65 20 27 28 61 6c 69 73 74 20 3a 6b 65 79 2d 74 79 alibredb...:type.'(alist.:key-ty
344a0 70 65 20 73 74 72 69 6e 67 20 3a 76 61 6c 75 65 2d 74 79 70 65 20 66 75 6e 63 74 69 6f 6e 29 29 pe.string.:value-type.function))
344c0 0a 0a 28 64 65 66 75 6e 20 63 61 6c 69 62 72 65 64 62 2d 68 65 6c 6d 2d 72 65 61 64 20 28 29 0a ..(defun.calibredb-helm-read.().
344e0 20 20 22 48 65 6c 6d 20 72 65 61 64 20 66 6f 72 20 63 61 6c 69 62 72 65 64 62 2e 22 0a 20 20 28 .."Helm.read.for.calibredb."...(
34500 77 68 65 6e 20 28 66 62 6f 75 6e 64 70 20 27 68 65 6c 6d 29 0a 20 20 20 20 28 77 68 65 6e 20 28 when.(fboundp.'helm).....(when.(
34520 67 65 74 2d 62 75 66 66 65 72 20 22 2a 68 65 6c 6d 20 61 63 74 69 6f 6e 2a 22 29 0a 20 20 20 20 get-buffer."*helm.action*").....
34540 20 20 28 6b 69 6c 6c 2d 62 75 66 66 65 72 20 22 2a 68 65 6c 6d 20 61 63 74 69 6f 6e 2a 22 29 29 ..(kill-buffer."*helm.action*"))
34560 0a 20 20 20 20 28 75 6e 77 69 6e 64 2d 70 72 6f 74 65 63 74 0a 20 20 20 20 20 20 20 20 28 68 65 .....(unwind-protect.........(he
34580 6c 6d 20 3a 73 6f 75 72 63 65 73 20 28 69 66 20 28 66 62 6f 75 6e 64 70 20 27 68 65 6c 6d 2d 62 lm.:sources.(if.(fboundp.'helm-b
345a0 75 69 6c 64 2d 73 79 6e 63 2d 73 6f 75 72 63 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 uild-sync-source)...............
345c0 20 20 20 20 20 20 20 20 20 20 20 20 20 28 68 65 6c 6d 2d 62 75 69 6c 64 2d 73 79 6e 63 2d 73 6f .............(helm-build-sync-so
345e0 75 72 63 65 20 22 63 61 6c 69 62 72 65 64 62 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 urce."calibredb"................
34600 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 68 65 61 64 65 72 2d 6e 61 6d 65 20 28 6c 61 6d 62 ..............:header-name.(lamb
34620 64 61 20 28 6e 61 6d 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 da.(name).......................
34640 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 6e 63 61 74 20 6e 61 ......................(concat.na
34660 6d 65 20 22 20 69 6e 20 5b 22 20 63 61 6c 69 62 72 65 64 62 2d 72 6f 6f 74 2d 64 69 72 20 22 5d me.".in.[".calibredb-root-dir."]
34680 22 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ")).............................
346a0 20 3a 63 61 6e 64 69 64 61 74 65 73 20 28 6c 61 6d 62 64 61 20 28 29 0a 20 20 20 20 20 20 20 20 .:candidates.(lambda.().........
346c0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ................................
346e0 20 20 20 28 69 66 20 63 61 6c 69 62 72 65 64 62 2d 73 65 61 72 63 68 2d 65 6e 74 72 69 65 73 0a ...(if.calibredb-search-entries.
34700 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ................................
34720 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 61 6c 69 62 72 65 64 62 2d 73 65 61 72 63 68 2d ...............calibredb-search-
34740 65 6e 74 72 69 65 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 entries.........................
34760 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 72 6f 67 6e 0a 20 20 20 20 .....................(progn.....
34780 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ................................
347a0 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 63 61 6c 69 62 72 65 64 62 2d 73 65 61 72 63 ...........(setq.calibredb-searc
347c0 68 2d 65 6e 74 72 69 65 73 20 28 63 61 6c 69 62 72 65 64 62 2d 63 61 6e 64 69 64 61 74 65 73 29 h-entries.(calibredb-candidates)
347e0 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 )...............................
34800 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 63 61 6c 69 62 72 65 64 62 .................(setq.calibredb
34820 2d 66 75 6c 6c 2d 65 6e 74 72 69 65 73 20 63 61 6c 69 62 72 65 64 62 2d 73 65 61 72 63 68 2d 65 -full-entries.calibredb-search-e
34840 6e 74 72 69 65 73 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ntries))))......................
34860 20 20 20 20 20 20 20 20 3b 3b 20 3a 66 69 6c 74 65 72 65 64 2d 63 61 6e 64 69 64 61 74 65 2d 74 ........;;.:filtered-candidate-t
34880 72 61 6e 73 66 6f 72 6d 65 72 20 27 68 65 6c 6d 2d 66 69 6e 64 75 74 69 6c 73 2d 74 72 61 6e 73 ransformer.'helm-findutils-trans
348a0 66 6f 72 6d 65 72 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 former..........................
348c0 20 20 20 20 3b 3b 20 3a 61 63 74 69 6f 6e 2d 74 72 61 6e 73 66 6f 72 6d 65 72 20 27 68 65 6c 6d ....;;.:action-transformer.'helm
348e0 2d 74 72 61 6e 73 66 6f 72 6d 2d 66 69 6c 65 2d 6c 6f 61 64 2d 65 6c 0a 20 20 20 20 20 20 20 20 -transform-file-load-el.........
34900 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 70 65 72 73 69 73 74 65 6e 74 .....................:persistent
34920 2d 61 63 74 69 6f 6e 20 27 63 61 6c 69 62 72 65 64 62 2d 76 69 65 77 2d 2d 68 65 6c 6d 0a 20 20 -action.'calibredb-view--helm...
34940 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 61 63 74 69 ...........................:acti
34960 6f 6e 20 27 63 61 6c 69 62 72 65 64 62 2d 68 65 6c 6d 2d 61 63 74 69 6f 6e 73 0a 20 20 20 20 20 on.'calibredb-helm-actions......
34980 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 3a 68 65 6c 70 ........................;;.:help
349a0 2d 6d 65 73 73 61 67 65 20 27 68 65 6c 6d 2d 67 65 6e 65 72 69 63 2d 66 69 6c 65 2d 68 65 6c 70 -message.'helm-generic-file-help
349c0 2d 6d 65 73 73 61 67 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 -message........................
349e0 20 20 20 20 20 20 3a 6b 65 79 6d 61 70 20 63 61 6c 69 62 72 65 64 62 2d 68 65 6c 6d 2d 6d 61 70 ......:keymap.calibredb-helm-map
34a00 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 63 ..............................:c
34a20 61 6e 64 69 64 61 74 65 2d 6e 75 6d 62 65 72 2d 6c 69 6d 69 74 20 39 39 39 39 0a 20 20 20 20 20 andidate-number-limit.9999......
34a40 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 3a 72 65 71 75 ........................;;.:requ
34a60 69 72 65 73 2d 70 61 74 74 65 72 6e 20 33 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ires-pattern.3..................
34a80 20 20 20 20 20 20 20 20 20 20 20 20 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 62 75 ............))...............:bu
34aa0 66 66 65 72 20 22 2a 68 65 6c 6d 20 63 61 6c 69 62 72 65 64 62 2a 22 29 20 29 29 29 0a 0a 28 64 ffer."*helm.calibredb*").)))..(d
34ac0 65 66 75 6e 20 63 61 6c 69 62 72 65 64 62 2d 66 69 6e 64 2d 68 65 6c 6d 20 28 29 0a 20 20 22 55 efun.calibredb-find-helm.()..."U
34ae0 73 65 20 68 65 6c 6d 20 74 6f 20 6c 69 73 74 20 61 6c 6c 20 65 62 6f 6f 6b 73 20 64 65 74 61 69 se.helm.to.list.all.ebooks.detai
34b00 6c 73 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 0a 20 20 28 63 61 6c 69 62 72 65 64 ls."...(interactive)...(calibred
34b20 62 2d 68 65 6c 6d 2d 72 65 61 64 29 29 0a 0a 28 64 65 66 75 6e 20 63 61 6c 69 62 72 65 64 62 2d b-helm-read))..(defun.calibredb-
34b40 73 65 74 2d 6d 65 74 61 64 61 74 61 2d 2d 74 61 67 73 2d 31 20 28 29 0a 20 20 22 53 65 74 20 6d set-metadata--tags-1.()..."Set.m
34b60 65 74 61 64 61 74 61 20 74 61 67 20 66 75 6e 63 74 69 6f 6e 20 75 73 65 64 20 69 6e 20 68 65 6c etadata.tag.function.used.in.hel
34b80 6d 20 61 63 74 69 6f 6e 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 0a 20 20 28 69 66 m.action."...(interactive)...(if
34ba0 20 28 66 62 6f 75 6e 64 70 20 27 77 69 74 68 2d 68 65 6c 6d 2d 61 6c 69 76 65 2d 70 29 0a 20 20 .(fboundp.'with-helm-alive-p)...
34bc0 20 20 20 20 28 77 69 74 68 2d 68 65 6c 6d 2d 61 6c 69 76 65 2d 70 0a 20 20 20 20 20 20 20 20 28 ....(with-helm-alive-p.........(
34be0 69 66 20 28 66 62 6f 75 6e 64 70 20 27 68 65 6c 6d 2d 65 78 69 74 2d 61 6e 64 2d 65 78 65 63 75 if.(fboundp.'helm-exit-and-execu
34c00 74 65 2d 61 63 74 69 6f 6e 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 68 65 6c 6d 2d 65 78 69 te-action).............(helm-exi
34c20 74 2d 61 6e 64 2d 65 78 65 63 75 74 65 2d 61 63 74 69 6f 6e 20 23 27 63 61 6c 69 62 72 65 64 62 t-and-execute-action.#'calibredb
34c40 2d 73 65 74 2d 6d 65 74 61 64 61 74 61 2d 2d 74 61 67 73 29 29 29 29 29 0a 0a 28 64 65 66 75 6e -set-metadata--tags)))))..(defun
34c60 20 63 61 6c 69 62 72 65 64 62 2d 73 65 74 2d 6d 65 74 61 64 61 74 61 2d 2d 63 6f 6d 6d 65 6e 74 .calibredb-set-metadata--comment
34c80 73 2d 31 20 28 29 0a 20 20 22 53 65 74 20 6d 65 74 61 64 61 74 61 20 63 6f 6d 6d 65 6e 74 73 20 s-1.()..."Set.metadata.comments.
34ca0 66 75 6e 63 74 69 6f 6e 20 75 73 65 64 20 69 6e 20 68 65 6c 6d 20 61 63 74 69 6f 6e 73 2e 22 0a function.used.in.helm.actions.".
34cc0 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 0a 20 20 28 69 66 20 28 66 62 6f 75 6e 64 70 20 27 ..(interactive)...(if.(fboundp.'
34ce0 77 69 74 68 2d 68 65 6c 6d 2d 61 6c 69 76 65 2d 70 29 0a 20 20 20 20 20 20 28 77 69 74 68 2d 68 with-helm-alive-p).......(with-h
34d00 65 6c 6d 2d 61 6c 69 76 65 2d 70 0a 20 20 20 20 20 20 20 20 28 69 66 20 28 66 62 6f 75 6e 64 70 elm-alive-p.........(if.(fboundp
34d20 20 27 68 65 6c 6d 2d 65 78 69 74 2d 61 6e 64 2d 65 78 65 63 75 74 65 2d 61 63 74 69 6f 6e 29 0a .'helm-exit-and-execute-action).
34d40 20 20 20 20 20 20 20 20 20 20 20 20 28 68 65 6c 6d 2d 65 78 69 74 2d 61 6e 64 2d 65 78 65 63 75 ............(helm-exit-and-execu
34d60 74 65 2d 61 63 74 69 6f 6e 20 23 27 63 61 6c 69 62 72 65 64 62 2d 73 65 74 2d 6d 65 74 61 64 61 te-action.#'calibredb-set-metada
34d80 74 61 2d 2d 63 6f 6d 6d 65 6e 74 73 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 63 61 6c 69 62 72 ta--comments)))))..(defun.calibr
34da0 65 64 62 2d 76 69 65 77 2d 2d 68 65 6c 6d 20 28 63 61 6e 64 69 64 61 74 65 29 0a 20 20 22 56 69 edb-view--helm.(candidate)..."Vi
34dc0 73 69 74 20 74 68 65 20 63 61 6c 69 62 72 65 64 62 2d 65 6e 74 72 79 20 77 69 74 68 20 68 65 6c sit.the.calibredb-entry.with.hel
34de0 6d 2e 0a 41 72 67 75 6d 65 6e 74 20 43 41 4e 44 49 44 41 54 45 20 69 73 20 74 68 65 20 73 65 6c m..Argument.CANDIDATE.is.the.sel
34e00 65 63 74 65 64 20 63 61 6e 64 69 64 61 74 65 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 ected.candidate."...(interactive
34e20 29 0a 20 20 28 63 61 6c 69 62 72 65 64 62 2d 73 68 6f 77 2d 65 6e 74 72 79 20 63 61 6e 64 69 64 )...(calibredb-show-entry.candid
34e40 61 74 65 29 29 0a 0a 28 70 72 6f 76 69 64 65 20 27 63 61 6c 69 62 72 65 64 62 2d 68 65 6c 6d 29 ate))..(provide.'calibredb-helm)
34e60 0a 0a 3b 3b 3b 20 63 61 6c 69 62 72 65 64 62 2d 68 65 6c 6d 2e 65 6c 20 65 6e 64 73 20 68 65 72 ..;;;.calibredb-helm.el.ends.her
34e80 65 0a 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 e...............................
34ea0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
34ec0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
34ee0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
34f00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
34f20 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
34f40 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
34f60 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
34f80 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
34fa0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
34fc0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
34fe0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
35000 63 61 6c 69 62 72 65 64 62 2d 32 30 32 34 30 33 33 31 2e 34 30 39 2f 63 61 6c 69 62 72 65 64 62 calibredb-20240331.409/calibredb
35020 2d 69 76 79 2e 65 6c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -ivy.el.........................
35040 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
35060 00 00 00 00 30 30 30 30 36 34 34 00 30 30 30 30 30 30 30 00 30 30 30 30 30 30 30 00 30 30 30 30 ....0000644.0000000.0000000.0000
35080 30 30 31 35 33 31 30 00 30 30 30 30 30 30 30 30 30 30 30 00 30 31 35 36 37 31 00 20 30 00 00 00 0015310.00000000000.015671..0...
350a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
350c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
350e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
35100 00 75 73 74 61 72 20 20 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 .ustar...root...................
35120 00 00 00 00 00 00 00 00 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 .........root...................
35140 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
35160 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
35180 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
351a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
351c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
351e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
35200 3b 3b 3b 20 63 61 6c 69 62 72 65 64 62 2d 69 76 79 2e 65 6c 20 2d 2d 2d 20 49 76 79 2f 63 6f 75 ;;;.calibredb-ivy.el.---.Ivy/cou
35220 6e 73 65 6c 20 66 6f 72 20 63 61 6c 69 62 72 65 64 62 20 2d 2a 2d 20 6c 65 78 69 63 61 6c 2d 62 nsel.for.calibredb.-*-.lexical-b
35240 69 6e 64 69 6e 67 3a 20 74 3b 20 2d 2a 2d 0a 0a 3b 3b 20 43 6f 70 79 72 69 67 68 74 20 28 43 29 inding:.t;.-*-..;;.Copyright.(C)
35260 20 32 30 32 30 20 44 61 6d 6f 6e 20 43 68 61 6e 0a 0a 3b 3b 20 41 75 74 68 6f 72 3a 20 44 61 6d .2020.Damon.Chan..;;.Author:.Dam
35280 6f 6e 20 43 68 61 6e 20 3c 65 6c 65 63 6d 69 6e 67 40 67 6d 61 69 6c 2e 63 6f 6d 3e 0a 3b 3b 20 on.Chan.<elecming@gmail.com>.;;.
352a0 55 52 4c 3a 20 68 74 74 70 73 3a 2f 2f 67 69 74 68 75 62 2e 63 6f 6d 2f 63 68 65 6e 79 61 6e 6d URL:.https://github.com/chenyanm
352c0 69 6e 67 2f 63 61 6c 69 62 72 65 64 62 2e 65 6c 0a 3b 3b 20 4b 65 79 77 6f 72 64 73 3a 20 74 6f ing/calibredb.el.;;.Keywords:.to
352e0 6f 6c 73 0a 3b 3b 20 56 65 72 73 69 6f 6e 3a 20 32 2e 31 32 2e 30 0a 0a 3b 3b 20 54 68 69 73 20 ols.;;.Version:.2.12.0..;;.This.
35300 66 69 6c 65 20 69 73 20 4e 4f 54 20 70 61 72 74 20 6f 66 20 47 4e 55 20 45 6d 61 63 73 2e 0a 0a file.is.NOT.part.of.GNU.Emacs...
35320 3b 3b 20 54 68 69 73 20 70 72 6f 67 72 61 6d 20 69 73 20 66 72 65 65 20 73 6f 66 74 77 61 72 65 ;;.This.program.is.free.software
35340 3b 20 79 6f 75 20 63 61 6e 20 72 65 64 69 73 74 72 69 62 75 74 65 20 69 74 20 61 6e 64 2f 6f 72 ;.you.can.redistribute.it.and/or
35360 20 6d 6f 64 69 66 79 0a 3b 3b 20 69 74 20 75 6e 64 65 72 20 74 68 65 20 74 65 72 6d 73 20 6f 66 .modify.;;.it.under.the.terms.of
35380 20 74 68 65 20 47 4e 55 20 47 65 6e 65 72 61 6c 20 50 75 62 6c 69 63 20 4c 69 63 65 6e 73 65 20 .the.GNU.General.Public.License.
353a0 61 73 20 70 75 62 6c 69 73 68 65 64 20 62 79 0a 3b 3b 20 74 68 65 20 46 72 65 65 20 53 6f 66 74 as.published.by.;;.the.Free.Soft
353c0 77 61 72 65 20 46 6f 75 6e 64 61 74 69 6f 6e 2c 20 65 69 74 68 65 72 20 76 65 72 73 69 6f 6e 20 ware.Foundation,.either.version.
353e0 33 20 6f 66 20 74 68 65 20 4c 69 63 65 6e 73 65 2c 20 6f 72 0a 3b 3b 20 28 61 74 20 79 6f 75 72 3.of.the.License,.or.;;.(at.your
35400 20 6f 70 74 69 6f 6e 29 20 61 6e 79 20 6c 61 74 65 72 20 76 65 72 73 69 6f 6e 2e 0a 0a 3b 3b 20 .option).any.later.version...;;.
35420 54 68 69 73 20 70 72 6f 67 72 61 6d 20 69 73 20 64 69 73 74 72 69 62 75 74 65 64 20 69 6e 20 74 This.program.is.distributed.in.t
35440 68 65 20 68 6f 70 65 20 74 68 61 74 20 69 74 20 77 69 6c 6c 20 62 65 20 75 73 65 66 75 6c 2c 0a he.hope.that.it.will.be.useful,.
35460 3b 3b 20 62 75 74 20 57 49 54 48 4f 55 54 20 41 4e 59 20 57 41 52 52 41 4e 54 59 3b 20 77 69 74 ;;.but.WITHOUT.ANY.WARRANTY;.wit
35480 68 6f 75 74 20 65 76 65 6e 20 74 68 65 20 69 6d 70 6c 69 65 64 20 77 61 72 72 61 6e 74 79 20 6f hout.even.the.implied.warranty.o
354a0 66 0a 3b 3b 20 4d 45 52 43 48 41 4e 54 41 42 49 4c 49 54 59 20 6f 72 20 46 49 54 4e 45 53 53 20 f.;;.MERCHANTABILITY.or.FITNESS.
354c0 46 4f 52 20 41 20 50 41 52 54 49 43 55 4c 41 52 20 50 55 52 50 4f 53 45 2e 20 20 53 65 65 20 74 FOR.A.PARTICULAR.PURPOSE...See.t
354e0 68 65 0a 3b 3b 20 47 4e 55 20 47 65 6e 65 72 61 6c 20 50 75 62 6c 69 63 20 4c 69 63 65 6e 73 65 he.;;.GNU.General.Public.License
35500 20 66 6f 72 20 6d 6f 72 65 20 64 65 74 61 69 6c 73 2e 0a 0a 3b 3b 20 59 6f 75 20 73 68 6f 75 6c .for.more.details...;;.You.shoul
35520 64 20 68 61 76 65 20 72 65 63 65 69 76 65 64 20 61 20 63 6f 70 79 20 6f 66 20 74 68 65 20 47 4e d.have.received.a.copy.of.the.GN
35540 55 20 47 65 6e 65 72 61 6c 20 50 75 62 6c 69 63 20 4c 69 63 65 6e 73 65 0a 3b 3b 20 61 6c 6f 6e U.General.Public.License.;;.alon
35560 67 20 77 69 74 68 20 74 68 69 73 20 70 72 6f 67 72 61 6d 2e 20 20 49 66 20 6e 6f 74 2c 20 73 65 g.with.this.program...If.not,.se
35580 65 20 3c 68 74 74 70 73 3a 2f 2f 77 77 77 2e 67 6e 75 2e 6f 72 67 2f 6c 69 63 65 6e 73 65 73 2f e.<https://www.gnu.org/licenses/
355a0 3e 2e 0a 0a 3b 3b 3b 20 43 6f 6d 6d 65 6e 74 61 72 79 3a 0a 0a 3b 3b 3b 20 43 6f 64 65 3a 0a 0a >...;;;.Commentary:..;;;.Code:..
355c0 28 72 65 71 75 69 72 65 20 27 63 61 6c 69 62 72 65 64 62 2d 63 6f 72 65 29 0a 28 72 65 71 75 69 (require.'calibredb-core).(requi
355e0 72 65 20 27 63 61 6c 69 62 72 65 64 62 2d 73 65 61 72 63 68 29 0a 28 72 65 71 75 69 72 65 20 27 re.'calibredb-search).(require.'
35600 63 61 6c 69 62 72 65 64 62 2d 66 61 63 65 73 29 0a 28 72 65 71 75 69 72 65 20 27 63 61 6c 69 62 calibredb-faces).(require.'calib
35620 72 65 64 62 2d 75 74 69 6c 73 29 0a 0a 28 65 76 61 6c 2d 77 68 65 6e 2d 63 6f 6d 70 69 6c 65 20 redb-utils)..(eval-when-compile.
35640 28 64 65 66 76 61 72 20 63 61 6c 69 62 72 65 64 62 2d 73 65 61 72 63 68 2d 65 6e 74 72 69 65 73 (defvar.calibredb-search-entries
35660 29 29 0a 28 65 76 61 6c 2d 77 68 65 6e 2d 63 6f 6d 70 69 6c 65 20 28 64 65 66 76 61 72 20 63 61 )).(eval-when-compile.(defvar.ca
35680 6c 69 62 72 65 64 62 2d 66 75 6c 6c 2d 65 6e 74 72 69 65 73 29 29 0a 28 65 76 61 6c 2d 77 68 65 libredb-full-entries)).(eval-whe
356a0 6e 2d 63 6f 6d 70 69 6c 65 20 28 64 65 66 76 61 72 20 63 6f 75 6e 73 65 6c 2d 61 67 2d 62 61 73 n-compile.(defvar.counsel-ag-bas
356c0 65 2d 63 6f 6d 6d 61 6e 64 29 29 0a 28 64 65 63 6c 61 72 65 2d 66 75 6e 63 74 69 6f 6e 20 63 6f e-command)).(declare-function.co
356e0 75 6e 73 65 6c 2d 61 67 20 22 63 6f 75 6e 73 65 6c 22 29 0a 0a 28 69 66 20 28 66 62 6f 75 6e 64 unsel-ag."counsel")..(if.(fbound
35700 70 20 27 69 76 79 2d 73 65 74 2d 61 63 74 69 6f 6e 73 29 0a 20 20 20 20 28 69 76 79 2d 73 65 74 p.'ivy-set-actions).....(ivy-set
35720 2d 61 63 74 69 6f 6e 73 0a 20 20 20 20 20 27 63 61 6c 69 62 72 65 64 62 2d 69 76 79 2d 72 65 61 -actions......'calibredb-ivy-rea
35740 64 0a 20 20 20 20 20 27 28 28 22 6f 22 20 28 6c 61 6d 62 64 61 20 28 63 61 6e 64 69 64 61 74 65 d......'(("o".(lambda.(candidate
35760 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 61 6c 69 62 72 65 64 62 2d 66 69 6e 64 2d )...............(calibredb-find-
35780 66 69 6c 65 20 28 63 64 72 20 63 61 6e 64 69 64 61 74 65 29 29 29 20 22 4f 70 65 6e 22 29 0a 20 file.(cdr.candidate)))."Open")..
357a0 20 20 20 20 20 20 28 22 4f 22 20 28 6c 61 6d 62 64 61 20 28 63 61 6e 64 69 64 61 74 65 29 0a 20 ......("O".(lambda.(candidate)..
357c0 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 61 6c 69 62 72 65 64 62 2d 66 69 6e 64 2d 66 69 6c .............(calibredb-find-fil
357e0 65 2d 6f 74 68 65 72 2d 66 72 61 6d 65 20 28 63 64 72 20 63 61 6e 64 69 64 61 74 65 29 29 29 20 e-other-frame.(cdr.candidate))).
35800 22 46 69 6e 64 20 66 69 6c 65 20 6f 74 68 65 72 20 66 72 61 6d 65 22 29 0a 20 20 20 20 20 20 20 "Find.file.other.frame")........
35820 28 22 76 22 20 28 6c 61 6d 62 64 61 20 28 63 61 6e 64 69 64 61 74 65 29 0a 20 20 20 20 20 20 20 ("v".(lambda.(candidate)........
35840 20 20 20 20 20 20 20 28 63 61 6c 69 62 72 65 64 62 2d 73 68 6f 77 2d 65 6e 74 72 79 20 28 63 64 .......(calibredb-show-entry.(cd
35860 72 20 63 61 6e 64 69 64 61 74 65 29 29 29 20 22 56 69 65 77 20 64 65 74 61 69 6c 73 22 29 0a 20 r.candidate)))."View.details")..
35880 20 20 20 20 20 20 28 22 56 22 20 28 6c 61 6d 62 64 61 20 28 63 61 6e 64 69 64 61 74 65 29 0a 20 ......("V".(lambda.(candidate)..
358a0 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 61 6c 69 62 72 65 64 62 2d 6f 70 65 6e 2d 66 69 6c .............(calibredb-open-fil
358c0 65 2d 77 69 74 68 2d 64 65 66 61 75 6c 74 2d 74 6f 6f 6c 20 28 63 64 72 20 63 61 6e 64 69 64 61 e-with-default-tool.(cdr.candida
358e0 74 65 29 29 29 20 22 4f 70 65 6e 20 77 69 74 68 20 64 65 66 61 75 6c 74 20 74 6f 6f 6c 22 29 0a te)))."Open.with.default.tool").
35900 20 20 20 20 20 20 20 28 22 64 22 20 28 6c 61 6d 62 64 61 20 28 63 61 6e 64 69 64 61 74 65 29 0a .......("d".(lambda.(candidate).
35920 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 61 6c 69 62 72 65 64 62 2d 72 65 6d 6f 76 65 20 ..............(calibredb-remove.
35940 28 63 64 72 20 63 61 6e 64 69 64 61 74 65 29 29 29 20 22 44 65 6c 65 74 65 20 65 62 6f 6f 6b 22 (cdr.candidate)))."Delete.ebook"
35960 29 0a 20 20 20 20 20 20 20 28 22 74 22 20 28 6c 61 6d 62 64 61 20 28 63 61 6e 64 69 64 61 74 65 )........("t".(lambda.(candidate
35980 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 61 6c 69 62 72 65 64 62 2d 73 65 74 2d 6d )...............(calibredb-set-m
359a0 65 74 61 64 61 74 61 2d 2d 74 61 67 73 20 28 63 64 72 20 63 61 6e 64 69 64 61 74 65 29 29 29 20 etadata--tags.(cdr.candidate))).
359c0 22 54 61 67 20 65 62 6f 6f 6b 22 29 0a 20 20 20 20 20 20 20 28 22 63 22 20 28 6c 61 6d 62 64 61 "Tag.ebook")........("c".(lambda
359e0 20 28 63 61 6e 64 69 64 61 74 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 61 6c 69 .(candidate)...............(cali
35a00 62 72 65 64 62 2d 73 65 74 2d 6d 65 74 61 64 61 74 61 2d 2d 63 6f 6d 6d 65 6e 74 73 20 28 63 64 bredb-set-metadata--comments.(cd
35a20 72 20 63 61 6e 64 69 64 61 74 65 29 29 29 22 43 6f 6d 6d 65 6e 74 20 65 62 6f 6f 6b 22 29 0a 20 r.candidate)))"Comment.ebook")..
35a40 20 20 20 20 20 20 28 22 65 22 20 28 6c 61 6d 62 64 61 20 28 63 61 6e 64 69 64 61 74 65 29 0a 20 ......("e".(lambda.(candidate)..
35a60 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 61 6c 69 62 72 65 64 62 2d 65 78 70 6f 72 74 20 28 .............(calibredb-export.(
35a80 63 64 72 20 63 61 6e 64 69 64 61 74 65 29 29 29 20 22 45 78 70 6f 72 74 22 29 0a 20 20 20 20 20 cdr.candidate)))."Export")......
35aa0 20 20 28 22 6d 22 20 28 6c 61 6d 62 64 61 20 28 63 61 6e 64 69 64 61 74 65 29 0a 20 20 20 20 20 ..("m".(lambda.(candidate)......
35ac0 20 20 20 20 20 20 20 20 20 28 6d 61 69 6c 2d 61 64 64 2d 61 74 74 61 63 68 6d 65 6e 74 20 28 63 .........(mail-add-attachment.(c
35ae0 61 6c 69 62 72 65 64 62 2d 67 65 74 2d 66 69 6c 65 2d 70 61 74 68 20 28 63 64 72 20 63 61 6e 64 alibredb-get-file-path.(cdr.cand
35b00 69 64 61 74 65 29 20 74 29 29 29 20 22 4d 61 69 6c 20 61 64 64 20 61 74 74 61 63 68 6d 65 6e 74 idate).t)))."Mail.add.attachment
35b20 22 29 0a 20 20 20 20 20 20 20 28 22 69 22 20 28 6c 61 6d 62 64 61 20 28 63 61 6e 64 69 64 61 74 ")........("i".(lambda.(candidat
35b40 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 75 6e 6c 65 73 73 20 28 66 65 61 74 75 72 e)...............(unless.(featur
35b60 65 70 20 27 6f 72 67 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 72 65 71 75 69 72 ep.'org).................(requir
35b80 65 20 27 6f 72 67 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 66 20 28 66 62 6f 75 e.'org))...............(if.(fbou
35ba0 6e 64 70 20 27 6f 72 67 2d 69 6e 73 65 72 74 2d 6c 69 6e 6b 29 0a 20 20 20 20 20 20 20 20 20 20 ndp.'org-insert-link)...........
35bc0 20 20 20 20 20 20 20 20 28 6f 72 67 2d 69 6e 73 65 72 74 2d 6c 69 6e 6b 20 6e 69 6c 20 28 63 61 ........(org-insert-link.nil.(ca
35be0 6c 69 62 72 65 64 62 2d 67 65 74 2d 66 69 6c 65 2d 70 61 74 68 20 28 63 64 72 20 63 61 6e 64 69 libredb-get-file-path.(cdr.candi
35c00 64 61 74 65 29 20 74 29 20 28 63 61 6c 69 62 72 65 64 62 2d 67 65 74 61 74 74 72 20 28 63 64 72 date).t).(calibredb-getattr.(cdr
35c20 20 63 61 6e 64 69 64 61 74 65 29 20 3a 62 6f 6f 6b 2d 74 69 74 6c 65 29 29 20 29 29 20 22 49 6e .candidate).:book-title)).))."In
35c40 73 65 72 74 20 61 6e 20 6f 72 67 20 6c 69 6e 6b 22 29 29 29 29 0a 0a 0a 28 64 65 66 75 6e 20 63 sert.an.org.link"))))...(defun.c
35c60 61 6c 69 62 72 65 64 62 2d 63 6f 75 6e 73 65 6c 2d 61 64 64 2d 66 69 6c 65 2d 61 63 74 69 6f 6e alibredb-counsel-add-file-action
35c80 20 28 61 72 67 20 66 69 6c 65 29 0a 20 20 22 41 64 64 20 6d 61 72 6b 65 64 20 46 49 4c 45 73 2e .(arg.file)..."Add.marked.FILEs.
35ca0 0a 49 66 20 70 72 65 66 69 78 20 41 52 47 20 69 73 20 6e 6f 6e 2d 6e 69 6c 2c 20 6b 65 65 70 20 .If.prefix.ARG.is.non-nil,.keep.
35cc0 74 68 65 20 66 69 6c 65 73 20 61 66 74 65 72 20 61 64 64 69 6e 67 20 77 69 74 68 6f 75 74 20 70 the.files.after.adding.without.p
35ce0 72 6f 6d 70 74 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 20 22 50 22 29 0a 20 20 28 6c rompt."...(interactive."P")...(l
35d00 65 74 20 28 28 6f 75 74 70 75 74 20 28 63 61 6c 69 62 72 65 64 62 2d 63 6f 6d 6d 61 6e 64 20 3a et.((output.(calibredb-command.:
35d20 63 6f 6d 6d 61 6e 64 20 22 61 64 64 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 command."add"...................
35d40 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 69 6e 70 75 74 20 28 73 68 65 6c 6c 2d 71 .................:input.(shell-q
35d60 75 6f 74 65 2d 61 72 67 75 6d 65 6e 74 20 28 65 78 70 61 6e 64 2d 66 69 6c 65 2d 6e 61 6d 65 20 uote-argument.(expand-file-name.
35d80 66 69 6c 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 file))..........................
35da0 20 20 20 20 20 20 20 20 20 20 3a 6c 69 62 72 61 72 79 20 28 69 66 20 63 61 6c 69 62 72 65 64 62 ..........:library.(if.calibredb
35dc0 2d 61 64 64 2d 64 75 70 6c 69 63 61 74 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 -add-duplicate..................
35de0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 ...............................(
35e00 66 6f 72 6d 61 74 20 22 2d 2d 6c 69 62 72 61 72 79 2d 70 61 74 68 20 25 73 20 2d 64 22 20 28 63 format."--library-path.%s.-d".(c
35e20 61 6c 69 62 72 65 64 62 2d 72 6f 6f 74 2d 64 69 72 2d 71 75 6f 74 65 29 29 0a 20 20 20 20 20 20 alibredb-root-dir-quote)).......
35e40 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ................................
35e60 20 20 20 20 20 20 20 20 28 66 6f 72 6d 61 74 20 22 2d 2d 6c 69 62 72 61 72 79 2d 70 61 74 68 20 ........(format."--library-path.
35e80 25 73 22 20 28 63 61 6c 69 62 72 65 64 62 2d 72 6f 6f 74 2d 64 69 72 2d 71 75 6f 74 65 29 29 29 %s".(calibredb-root-dir-quote)))
35ea0 29 29 29 0a 20 20 20 20 28 69 66 20 28 73 2d 63 6f 6e 74 61 69 6e 73 3f 20 22 41 64 64 65 64 20 ))).....(if.(s-contains?."Added.
35ec0 62 6f 6f 6b 20 69 64 73 22 20 6f 75 74 70 75 74 29 0a 20 20 20 20 20 20 20 20 28 63 6f 6e 64 20 book.ids".output).........(cond.
35ee0 28 28 73 74 72 69 6e 67 3d 20 63 61 6c 69 62 72 65 64 62 2d 61 64 64 2d 64 65 6c 65 74 65 2d 6f ((string=.calibredb-add-delete-o
35f00 72 69 67 69 6e 61 6c 2d 66 69 6c 65 20 22 79 65 73 22 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 riginal-file."yes").............
35f20 20 20 20 28 69 66 20 61 72 67 20 28 6d 65 73 73 61 67 65 20 22 41 64 64 69 6e 67 20 66 69 6c 65 ...(if.arg.(message."Adding.file
35f40 73 20 73 75 63 63 65 65 64 65 64 2c 20 66 69 6c 65 73 20 77 65 72 65 20 6b 65 70 74 2e 22 29 0a s.succeeded,.files.were.kept.").
35f60 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 61 6c 69 62 72 65 64 62 2d 6d 6f 76 65 .................(calibredb-move
35f80 2d 74 6f 2d 74 72 61 73 68 20 66 69 6c 65 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 -to-trash.file)))...............
35fa0 28 28 73 74 72 69 6e 67 3d 20 63 61 6c 69 62 72 65 64 62 2d 61 64 64 2d 64 65 6c 65 74 65 2d 6f ((string=.calibredb-add-delete-o
35fc0 72 69 67 69 6e 61 6c 2d 66 69 6c 65 20 22 6e 6f 22 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 riginal-file."no")).............
35fe0 20 20 28 74 20 28 75 6e 6c 65 73 73 20 61 72 67 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..(t.(unless.arg................
36000 20 20 20 20 28 69 66 20 28 79 65 73 2d 6f 72 2d 6e 6f 2d 70 0a 20 20 20 20 20 20 20 20 20 20 20 ....(if.(yes-or-no-p............
36020 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 6e 63 61 74 20 22 46 69 6c 65 20 68 61 73 20 62 .............(concat."File.has.b
36040 65 65 6e 20 63 6f 70 69 65 64 20 74 6f 20 64 61 74 61 62 61 73 65 2e 20 53 75 62 73 65 71 75 65 een.copied.to.database..Subseque
36060 6e 74 6c 79 20 64 65 6c 65 74 65 20 6f 72 69 67 69 6e 61 6c 20 66 69 6c 65 3f 20 22 20 66 69 6c ntly.delete.original.file?.".fil
36080 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 61 6c 69 e))........................(cali
360a0 62 72 65 64 62 2d 6d 6f 76 65 2d 74 6f 2d 74 72 61 73 68 20 66 69 6c 65 29 29 29 29 29 0a 20 20 bredb-move-to-trash.file)))))...
360c0 20 20 20 20 28 6d 65 73 73 61 67 65 20 22 41 64 64 69 6e 67 20 62 6f 6f 6b 20 66 61 69 6c 65 64 ....(message."Adding.book.failed
360e0 2c 20 70 6c 65 61 73 65 20 61 64 64 20 69 74 20 6d 61 6e 75 61 6c 6c 79 2e 22 29 29 29 29 0a 0a ,.please.add.it.manually."))))..
36100 28 64 65 66 75 6e 20 63 61 6c 69 62 72 65 64 62 2d 6d 6f 76 65 2d 74 6f 2d 74 72 61 73 68 20 28 (defun.calibredb-move-to-trash.(
36120 66 69 6c 65 29 0a 20 20 22 4d 6f 76 65 20 74 68 65 20 46 49 4c 45 20 74 6f 20 74 72 61 73 68 2e file)..."Move.the.FILE.to.trash.
36140 22 0a 20 20 28 6c 65 74 20 28 28 64 65 6c 65 74 65 2d 62 79 2d 6d 6f 76 69 6e 67 2d 74 6f 2d 74 "...(let.((delete-by-moving-to-t
36160 72 61 73 68 20 74 29 29 0a 20 20 20 20 28 70 63 61 73 65 20 73 79 73 74 65 6d 2d 74 79 70 65 0a rash.t)).....(pcase.system-type.
36180 20 20 20 20 20 20 28 27 77 69 6e 64 6f 77 73 2d 6e 74 0a 20 20 20 20 20 20 20 28 69 66 20 28 66 ......('windows-nt........(if.(f
361a0 62 6f 75 6e 64 70 20 27 73 79 73 74 65 6d 2d 6d 6f 76 65 2d 66 69 6c 65 2d 74 6f 2d 74 72 61 73 boundp.'system-move-file-to-tras
361c0 68 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 73 79 73 74 65 6d 2d 6d 6f 76 65 2d 66 69 6c 65 2d h)............(system-move-file-
361e0 74 6f 2d 74 72 61 73 68 20 66 69 6c 65 29 29 29 0a 20 20 20 20 20 20 28 27 67 6e 75 2f 6c 69 6e to-trash.file))).......('gnu/lin
36200 75 78 0a 20 20 20 20 20 20 20 28 69 66 20 28 66 62 6f 75 6e 64 70 20 27 6d 6f 76 65 2d 66 69 6c ux........(if.(fboundp.'move-fil
36220 65 2d 74 6f 2d 74 72 61 73 68 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 6d 6f 76 65 2d 66 69 6c e-to-trash)............(move-fil
36240 65 2d 74 6f 2d 74 72 61 73 68 20 66 69 6c 65 29 29 29 0a 20 20 20 20 20 20 28 27 64 61 72 77 69 e-to-trash.file))).......('darwi
36260 6e 0a 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 74 72 61 73 68 2d 64 69 72 65 63 74 6f 72 79 20 n........(let.((trash-directory.
36280 22 7e 2f 2e 54 72 61 73 68 22 29 29 0a 20 20 20 20 20 20 20 20 20 28 63 6f 6e 64 20 28 28 66 65 "~/.Trash"))..........(cond.((fe
362a0 61 74 75 72 65 70 20 27 6f 73 78 2d 74 72 61 73 68 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 aturep.'osx-trash)..............
362c0 20 20 20 28 69 66 20 28 66 62 6f 75 6e 64 70 20 27 6f 73 78 2d 74 72 61 73 68 2d 6d 6f 76 65 2d ...(if.(fboundp.'osx-trash-move-
362e0 66 69 6c 65 2d 74 6f 2d 74 72 61 73 68 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 file-to-trash)..................
36300 20 20 20 28 6f 73 78 2d 74 72 61 73 68 2d 6d 6f 76 65 2d 66 69 6c 65 2d 74 6f 2d 74 72 61 73 68 ...(osx-trash-move-file-to-trash
36320 20 66 69 6c 65 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 28 65 78 65 63 75 74 .file)))................((execut
36340 61 62 6c 65 2d 66 69 6e 64 20 22 74 72 61 73 68 22 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 able-find."trash")..............
36360 20 20 20 28 63 61 6c 6c 2d 70 72 6f 63 65 73 73 20 22 74 72 61 73 68 22 20 6e 69 6c 20 6e 69 6c ...(call-process."trash".nil.nil
36380 20 6e 69 6c 20 66 69 6c 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 74 20 28 6d .nil.file))................(t.(m
363a0 6f 76 65 2d 66 69 6c 65 2d 74 6f 2d 74 72 61 73 68 20 66 69 6c 65 29 29 29 29 29 29 29 29 0a 0a ove-file-to-trash.file))))))))..
363c0 28 64 65 66 75 6e 20 63 61 6c 69 62 72 65 64 62 2d 69 76 79 2d 72 65 61 64 20 28 29 0a 20 20 22 (defun.calibredb-ivy-read.()..."
363e0 49 76 79 20 72 65 61 64 20 66 6f 72 20 63 61 6c 69 62 72 65 64 62 2e 22 0a 20 20 28 69 66 20 28 Ivy.read.for.calibredb."...(if.(
36400 66 62 6f 75 6e 64 70 20 27 69 76 79 2d 72 65 61 64 29 0a 20 20 20 20 20 20 28 6c 65 74 20 28 28 fboundp.'ivy-read).......(let.((
36420 63 61 6e 64 20 28 69 66 20 63 61 6c 69 62 72 65 64 62 2d 73 65 61 72 63 68 2d 65 6e 74 72 69 65 cand.(if.calibredb-search-entrie
36440 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 61 6c 69 62 72 65 64 s.......................calibred
36460 62 2d 73 65 61 72 63 68 2d 65 6e 74 72 69 65 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 b-search-entries................
36480 20 20 20 20 20 28 70 72 6f 67 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .....(progn.....................
364a0 20 20 28 73 65 74 71 20 63 61 6c 69 62 72 65 64 62 2d 73 65 61 72 63 68 2d 65 6e 74 72 69 65 73 ..(setq.calibredb-search-entries
364c0 20 28 63 61 6c 69 62 72 65 64 62 2d 63 61 6e 64 69 64 61 74 65 73 29 29 0a 20 20 20 20 20 20 20 .(calibredb-candidates))........
364e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 63 61 6c 69 62 72 65 64 62 2d 66 ...............(setq.calibredb-f
36500 75 6c 6c 2d 65 6e 74 72 69 65 73 20 63 61 6c 69 62 72 65 64 62 2d 73 65 61 72 63 68 2d 65 6e 74 ull-entries.calibredb-search-ent
36520 72 69 65 73 29 29 29 29 29 0a 20 20 20 20 20 20 20 20 28 69 66 20 63 61 6e 64 0a 20 20 20 20 20 ries))))).........(if.cand......
36540 20 20 20 20 20 20 20 28 69 76 79 2d 72 65 61 64 20 22 50 69 63 6b 20 61 20 62 6f 6f 6b 3a 20 22 .......(ivy-read."Pick.a.book:."
36560 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 61 6e 64 0a 20 20 20 20 .......................cand.....
36580 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 73 6f 72 74 20 6e 69 6c 20 20 20 20 20 ..................:sort.nil.....
365a0 20 20 20 20 3b 20 61 63 74 75 61 6c 6c 79 20 73 6f 72 74 20 74 68 65 6d 0a 20 20 20 20 20 20 20 ....;.actually.sort.them........
365c0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 63 61 6c 6c 65 72 20 27 63 61 6c 69 62 72 65 64 ...............:caller.'calibred
365e0 62 2d 69 76 79 2d 72 65 61 64 29 0a 20 20 20 20 20 20 20 20 20 20 28 6d 65 73 73 61 67 65 20 22 b-ivy-read)...........(message."
36600 49 4e 56 41 4c 49 44 20 4c 49 42 52 41 52 59 22 29 29 29 29 29 0a 0a 3b 3b 3b 23 23 23 61 75 74 INVALID.LIBRARY")))))..;;;###aut
36620 6f 6c 6f 61 64 0a 28 64 65 66 75 6e 20 63 61 6c 69 62 72 65 64 62 2d 66 69 6e 64 2d 63 6f 75 6e oload.(defun.calibredb-find-coun
36640 73 65 6c 20 28 29 0a 20 20 22 55 73 65 20 63 6f 75 6e 73 65 6c 20 74 6f 20 6c 69 73 74 20 61 6c sel.()..."Use.counsel.to.list.al
36660 6c 20 65 62 6f 6f 6b 73 20 64 65 74 61 69 6c 73 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 l.ebooks.details."...(interactiv
36680 65 29 0a 20 20 28 63 61 6c 69 62 72 65 64 62 2d 69 76 79 2d 72 65 61 64 29 29 0a 0a 28 64 65 66 e)...(calibredb-ivy-read))..(def
366a0 75 6e 20 63 61 6c 69 62 72 65 64 62 2d 72 67 61 20 28 29 0a 20 20 22 53 65 61 72 63 68 20 63 61 un.calibredb-rga.()..."Search.ca
366c0 6c 69 62 72 65 64 62 20 77 69 74 68 20 72 67 61 2c 20 75 73 69 6e 67 20 60 63 6f 75 6e 73 65 6c libredb.with.rga,.using.`counsel
366e0 2d 61 67 27 2e 0a 31 2e 20 49 6e 20 60 63 61 6c 69 62 72 65 64 62 2d 73 65 61 72 63 68 2d 6d 6f -ag'..1..In.`calibredb-search-mo
36700 64 65 27 2c 20 73 65 61 72 63 68 20 69 6e 20 74 68 65 0a 60 63 61 6c 69 62 72 65 64 62 2d 72 6f de',.search.in.the.`calibredb-ro
36720 6f 74 2d 64 69 72 27 2e 0a 32 2e 20 49 6e 20 60 63 61 6c 69 62 72 65 64 62 2d 73 68 6f 77 2d 6d ot-dir'..2..In.`calibredb-show-m
36740 6f 64 65 27 2c 20 73 65 61 72 63 68 20 69 6e 20 74 68 65 20 63 6f 72 72 65 73 70 6f 6e 64 69 6e ode',.search.in.the.correspondin
36760 67 20 66 6f 72 6d 61 74 0a 75 6e 64 65 72 20 74 68 65 20 77 6f 72 6b 69 6e 67 20 64 69 72 65 63 g.format.under.the.working.direc
36780 74 6f 72 79 2e 0a 33 2e 20 49 6e 20 60 70 64 66 2d 76 69 65 77 2d 6d 6f 64 65 27 2c 20 73 65 61 tory..3..In.`pdf-view-mode',.sea
367a0 72 63 68 20 69 6e 20 50 44 46 20 66 69 6c 65 73 20 75 6e 64 65 72 20 74 68 65 20 77 6f 72 6b 69 rch.in.PDF.files.under.the.worki
367c0 6e 67 0a 64 69 72 65 63 74 6f 72 79 2e 0a 34 2e 20 49 6e 20 60 6e 6f 76 2d 6d 6f 64 65 27 2c 20 ng.directory..4..In.`nov-mode',.
367e0 73 65 61 72 63 68 20 69 6e 20 45 50 55 42 20 66 69 6c 65 73 20 75 6e 64 65 72 20 74 68 65 20 77 search.in.EPUB.files.under.the.w
36800 6f 72 6b 69 6e 67 0a 64 69 72 65 63 74 6f 72 79 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 orking.directory."...(interactiv
36820 65 29 0a 20 20 28 73 65 74 71 2d 6c 6f 63 61 6c 20 63 6f 75 6e 73 65 6c 2d 61 67 2d 62 61 73 65 e)...(setq-local.counsel-ag-base
36840 2d 63 6f 6d 6d 61 6e 64 20 22 72 67 61 20 2d 2d 63 6f 6c 6f 72 20 6e 65 76 65 72 20 2d 2d 6e 6f -command."rga.--color.never.--no
36860 2d 68 65 61 64 69 6e 67 20 2d 2d 73 6d 61 72 74 2d 63 61 73 65 20 2d 2d 6c 69 6e 65 2d 6e 75 6d -heading.--smart-case.--line-num
36880 62 65 72 20 2d 2d 77 69 74 68 2d 66 69 6c 65 6e 61 6d 65 20 25 73 22 29 0a 20 20 28 63 6f 6e 64 ber.--with-filename.%s")...(cond
368a0 0a 20 20 20 28 28 65 71 20 6d 61 6a 6f 72 2d 6d 6f 64 65 20 27 63 61 6c 69 62 72 65 64 62 2d 73 ....((eq.major-mode.'calibredb-s
368c0 65 61 72 63 68 2d 6d 6f 64 65 29 0a 20 20 20 20 28 63 6f 75 6e 73 65 6c 2d 61 67 20 6e 69 6c 20 earch-mode).....(counsel-ag.nil.
368e0 63 61 6c 69 62 72 65 64 62 2d 72 6f 6f 74 2d 64 69 72 20 6e 69 6c 20 22 53 65 61 72 63 68 20 43 calibredb-root-dir.nil."Search.C
36900 61 6c 69 62 72 65 64 62 3a 20 22 29 29 0a 20 20 20 28 28 65 71 20 6d 61 6a 6f 72 2d 6d 6f 64 65 alibredb:."))....((eq.major-mode
36920 20 27 63 61 6c 69 62 72 65 64 62 2d 73 68 6f 77 2d 6d 6f 64 65 29 0a 20 20 20 20 28 6c 65 74 20 .'calibredb-show-mode).....(let.
36940 28 28 66 6f 72 6d 61 74 20 28 63 61 6c 69 62 72 65 64 62 2d 67 65 74 61 74 74 72 20 28 63 61 72 ((format.(calibredb-getattr.(car
36960 20 28 63 61 6c 69 62 72 65 64 62 2d 66 69 6e 64 2d 63 61 6e 64 69 64 61 74 65 2d 61 74 2d 70 6f .(calibredb-find-candidate-at-po
36980 69 6e 74 29 29 20 3a 62 6f 6f 6b 2d 66 6f 72 6d 61 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 int)).:book-format))...........(
369a0 70 61 74 68 20 28 63 61 6c 69 62 72 65 64 62 2d 67 65 74 61 74 74 72 20 28 63 61 72 20 28 63 61 path.(calibredb-getattr.(car.(ca
369c0 6c 69 62 72 65 64 62 2d 66 69 6e 64 2d 63 61 6e 64 69 64 61 74 65 2d 61 74 2d 70 6f 69 6e 74 29 libredb-find-candidate-at-point)
369e0 29 20 3a 66 69 6c 65 2d 70 61 74 68 29 29 29 0a 20 20 20 20 20 20 28 63 6f 6e 64 20 28 28 65 71 ).:file-path))).......(cond.((eq
36a00 75 61 6c 20 66 6f 72 6d 61 74 20 22 65 70 75 62 22 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 ual.format."epub")..............
36a20 28 63 6f 75 6e 73 65 6c 2d 61 67 20 6e 69 6c 20 28 66 69 6c 65 2d 6e 61 6d 65 2d 64 69 72 65 63 (counsel-ag.nil.(file-name-direc
36a40 74 6f 72 79 20 70 61 74 68 29 20 22 2d 2d 72 67 61 2d 61 64 61 70 74 65 72 73 3d 70 61 6e 64 6f tory.path)."--rga-adapters=pando
36a60 63 22 20 22 53 65 61 72 63 68 20 45 50 55 42 3a 20 22 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 c"."Search.EPUB:."))............
36a80 20 28 28 65 71 75 61 6c 20 66 6f 72 6d 61 74 20 22 70 64 66 22 29 0a 20 20 20 20 20 20 20 20 20 .((equal.format."pdf")..........
36aa0 20 20 20 20 28 63 6f 75 6e 73 65 6c 2d 61 67 20 6e 69 6c 20 28 66 69 6c 65 2d 6e 61 6d 65 2d 64 ....(counsel-ag.nil.(file-name-d
36ac0 69 72 65 63 74 6f 72 79 20 70 61 74 68 29 20 22 2d 2d 72 67 61 2d 61 64 61 70 74 65 72 73 3d 70 irectory.path)."--rga-adapters=p
36ae0 6f 70 70 6c 65 72 22 20 22 53 65 61 72 63 68 20 50 44 46 3a 20 22 29 29 0a 20 20 20 20 20 20 20 oppler"."Search.PDF:."))........
36b00 20 20 20 20 20 28 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 75 6e 73 65 6c 2d 61 67 .....(t..............(counsel-ag
36b20 20 6e 69 6c 20 28 66 69 6c 65 2d 6e 61 6d 65 2d 64 69 72 65 63 74 6f 72 79 20 70 61 74 68 29 20 .nil.(file-name-directory.path).
36b40 6e 69 6c 20 28 63 6f 6e 63 61 74 20 22 53 65 61 72 63 68 20 22 20 66 6f 72 6d 61 74 20 22 3a 20 nil.(concat."Search.".format.":.
36b60 22 29 29 29 29 29 29 0a 20 20 20 28 28 65 71 20 6d 61 6a 6f 72 2d 6d 6f 64 65 20 27 70 64 66 2d "))))))....((eq.major-mode.'pdf-
36b80 76 69 65 77 2d 6d 6f 64 65 29 0a 20 20 20 20 28 63 6f 75 6e 73 65 6c 2d 61 67 20 6e 69 6c 20 6e view-mode).....(counsel-ag.nil.n
36ba0 69 6c 20 22 2d 2d 72 67 61 2d 61 64 61 70 74 65 72 73 3d 70 6f 70 70 6c 65 72 22 20 22 53 65 61 il."--rga-adapters=poppler"."Sea
36bc0 72 63 68 20 50 44 46 3a 20 22 29 29 0a 20 20 20 28 28 65 71 20 6d 61 6a 6f 72 2d 6d 6f 64 65 20 rch.PDF:."))....((eq.major-mode.
36be0 27 6e 6f 76 2d 6d 6f 64 65 29 0a 20 20 20 20 28 63 6f 75 6e 73 65 6c 2d 61 67 20 6e 69 6c 20 6e 'nov-mode).....(counsel-ag.nil.n
36c00 69 6c 20 22 2d 2d 72 67 61 2d 61 64 61 70 74 65 72 73 3d 70 61 6e 64 6f 63 22 20 22 53 65 61 72 il."--rga-adapters=pandoc"."Sear
36c20 63 68 20 45 50 55 42 3a 20 22 29 29 0a 20 20 20 28 74 0a 20 20 20 20 28 6d 65 73 73 61 67 65 20 ch.EPUB:."))....(t.....(message.
36c40 28 63 6f 6e 63 61 74 20 22 43 61 6c 69 62 72 65 64 62 2d 63 6f 75 6e 73 65 6c 2d 61 67 20 64 6f (concat."Calibredb-counsel-ag.do
36c60 65 73 20 6e 6f 74 20 73 75 70 70 6f 72 74 20 22 20 28 73 79 6d 62 6f 6c 2d 6e 61 6d 65 20 6d 61 es.not.support.".(symbol-name.ma
36c80 6a 6f 72 2d 6d 6f 64 65 29 29 29 29 29 29 0a 28 70 72 6f 76 69 64 65 20 27 63 61 6c 69 62 72 65 jor-mode)))))).(provide.'calibre
36ca0 64 62 2d 69 76 79 29 0a 0a 3b 3b 3b 20 63 61 6c 69 62 72 65 64 62 2d 69 76 79 2e 65 6c 20 65 6e db-ivy)..;;;.calibredb-ivy.el.en
36cc0 64 73 20 68 65 72 65 0a 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ds.here.........................
36ce0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
36d00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
36d20 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
36d40 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
36d60 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
36d80 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
36da0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
36dc0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
36de0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
36e00 63 61 6c 69 62 72 65 64 62 2d 32 30 32 34 30 33 33 31 2e 34 30 39 2f 63 61 6c 69 62 72 65 64 62 calibredb-20240331.409/calibredb
36e20 2d 61 6e 6e 6f 74 61 74 69 6f 6e 2e 65 6c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -annotation.el..................
36e40 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
36e60 00 00 00 00 30 30 30 30 36 34 34 00 30 30 30 30 30 30 30 00 30 30 30 30 30 30 30 00 30 30 30 30 ....0000644.0000000.0000000.0000
36e80 30 30 31 33 36 37 32 00 30 30 30 30 30 30 30 30 30 30 30 00 30 31 37 32 34 35 00 20 30 00 00 00 0013672.00000000000.017245..0...
36ea0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
36ec0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
36ee0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
36f00 00 75 73 74 61 72 20 20 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 .ustar...root...................
36f20 00 00 00 00 00 00 00 00 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 .........root...................
36f40 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
36f60 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
36f80 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
36fa0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
36fc0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
36fe0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
37000 3b 3b 3b 20 63 61 6c 69 62 72 65 64 62 2d 61 6e 6e 6f 74 61 74 69 6f 6e 2e 65 6c 20 2d 2d 2d 20 ;;;.calibredb-annotation.el.---.
37020 41 6e 6e 6f 74 61 74 69 6f 6e 20 66 6f 72 20 63 61 6c 69 62 72 65 64 62 20 2d 2a 2d 20 6c 65 78 Annotation.for.calibredb.-*-.lex
37040 69 63 61 6c 2d 62 69 6e 64 69 6e 67 3a 20 74 3b 20 2d 2a 2d 0a 0a 3b 3b 20 43 6f 70 79 72 69 67 ical-binding:.t;.-*-..;;.Copyrig
37060 68 74 20 28 43 29 20 32 30 32 30 20 44 61 6d 6f 6e 20 43 68 61 6e 0a 0a 3b 3b 20 41 75 74 68 6f ht.(C).2020.Damon.Chan..;;.Autho
37080 72 3a 20 44 61 6d 6f 6e 20 43 68 61 6e 20 3c 65 6c 65 63 6d 69 6e 67 40 67 6d 61 69 6c 2e 63 6f r:.Damon.Chan.<elecming@gmail.co
370a0 6d 3e 0a 3b 3b 20 55 52 4c 3a 20 68 74 74 70 73 3a 2f 2f 67 69 74 68 75 62 2e 63 6f 6d 2f 63 68 m>.;;.URL:.https://github.com/ch
370c0 65 6e 79 61 6e 6d 69 6e 67 2f 63 61 6c 69 62 72 65 64 62 2e 65 6c 0a 3b 3b 20 4b 65 79 77 6f 72 enyanming/calibredb.el.;;.Keywor
370e0 64 73 3a 20 74 6f 6f 6c 73 0a 3b 3b 20 56 65 72 73 69 6f 6e 3a 20 32 2e 31 32 2e 30 0a 0a 3b 3b ds:.tools.;;.Version:.2.12.0..;;
37100 20 54 68 69 73 20 66 69 6c 65 20 69 73 20 4e 4f 54 20 70 61 72 74 20 6f 66 20 47 4e 55 20 45 6d .This.file.is.NOT.part.of.GNU.Em
37120 61 63 73 2e 0a 0a 3b 3b 20 54 68 69 73 20 70 72 6f 67 72 61 6d 20 69 73 20 66 72 65 65 20 73 6f acs...;;.This.program.is.free.so
37140 66 74 77 61 72 65 3b 20 79 6f 75 20 63 61 6e 20 72 65 64 69 73 74 72 69 62 75 74 65 20 69 74 20 ftware;.you.can.redistribute.it.
37160 61 6e 64 2f 6f 72 20 6d 6f 64 69 66 79 0a 3b 3b 20 69 74 20 75 6e 64 65 72 20 74 68 65 20 74 65 and/or.modify.;;.it.under.the.te
37180 72 6d 73 20 6f 66 20 74 68 65 20 47 4e 55 20 47 65 6e 65 72 61 6c 20 50 75 62 6c 69 63 20 4c 69 rms.of.the.GNU.General.Public.Li
371a0 63 65 6e 73 65 20 61 73 20 70 75 62 6c 69 73 68 65 64 20 62 79 0a 3b 3b 20 74 68 65 20 46 72 65 cense.as.published.by.;;.the.Fre
371c0 65 20 53 6f 66 74 77 61 72 65 20 46 6f 75 6e 64 61 74 69 6f 6e 2c 20 65 69 74 68 65 72 20 76 65 e.Software.Foundation,.either.ve
371e0 72 73 69 6f 6e 20 33 20 6f 66 20 74 68 65 20 4c 69 63 65 6e 73 65 2c 20 6f 72 0a 3b 3b 20 28 61 rsion.3.of.the.License,.or.;;.(a
37200 74 20 79 6f 75 72 20 6f 70 74 69 6f 6e 29 20 61 6e 79 20 6c 61 74 65 72 20 76 65 72 73 69 6f 6e t.your.option).any.later.version
37220 2e 0a 0a 3b 3b 20 54 68 69 73 20 70 72 6f 67 72 61 6d 20 69 73 20 64 69 73 74 72 69 62 75 74 65 ...;;.This.program.is.distribute
37240 64 20 69 6e 20 74 68 65 20 68 6f 70 65 20 74 68 61 74 20 69 74 20 77 69 6c 6c 20 62 65 20 75 73 d.in.the.hope.that.it.will.be.us
37260 65 66 75 6c 2c 0a 3b 3b 20 62 75 74 20 57 49 54 48 4f 55 54 20 41 4e 59 20 57 41 52 52 41 4e 54 eful,.;;.but.WITHOUT.ANY.WARRANT
37280 59 3b 20 77 69 74 68 6f 75 74 20 65 76 65 6e 20 74 68 65 20 69 6d 70 6c 69 65 64 20 77 61 72 72 Y;.without.even.the.implied.warr
372a0 61 6e 74 79 20 6f 66 0a 3b 3b 20 4d 45 52 43 48 41 4e 54 41 42 49 4c 49 54 59 20 6f 72 20 46 49 anty.of.;;.MERCHANTABILITY.or.FI
372c0 54 4e 45 53 53 20 46 4f 52 20 41 20 50 41 52 54 49 43 55 4c 41 52 20 50 55 52 50 4f 53 45 2e 20 TNESS.FOR.A.PARTICULAR.PURPOSE..
372e0 20 53 65 65 20 74 68 65 0a 3b 3b 20 47 4e 55 20 47 65 6e 65 72 61 6c 20 50 75 62 6c 69 63 20 4c .See.the.;;.GNU.General.Public.L
37300 69 63 65 6e 73 65 20 66 6f 72 20 6d 6f 72 65 20 64 65 74 61 69 6c 73 2e 0a 0a 3b 3b 20 59 6f 75 icense.for.more.details...;;.You
37320 20 73 68 6f 75 6c 64 20 68 61 76 65 20 72 65 63 65 69 76 65 64 20 61 20 63 6f 70 79 20 6f 66 20 .should.have.received.a.copy.of.
37340 74 68 65 20 47 4e 55 20 47 65 6e 65 72 61 6c 20 50 75 62 6c 69 63 20 4c 69 63 65 6e 73 65 0a 3b the.GNU.General.Public.License.;
37360 3b 20 61 6c 6f 6e 67 20 77 69 74 68 20 74 68 69 73 20 70 72 6f 67 72 61 6d 2e 20 20 49 66 20 6e ;.along.with.this.program...If.n
37380 6f 74 2c 20 73 65 65 20 3c 68 74 74 70 73 3a 2f 2f 77 77 77 2e 67 6e 75 2e 6f 72 67 2f 6c 69 63 ot,.see.<https://www.gnu.org/lic
373a0 65 6e 73 65 73 2f 3e 2e 0a 0a 3b 3b 3b 20 43 6f 6d 6d 65 6e 74 61 72 79 3a 0a 0a 3b 3b 3b 20 43 enses/>...;;;.Commentary:..;;;.C
373c0 6f 64 65 3a 0a 0a 28 72 65 71 75 69 72 65 20 27 63 61 6c 69 62 72 65 64 62 2d 63 6f 72 65 29 0a ode:..(require.'calibredb-core).
373e0 0a 28 64 65 63 6c 61 72 65 2d 66 75 6e 63 74 69 6f 6e 20 63 61 6c 69 62 72 65 64 62 2d 67 65 74 .(declare-function.calibredb-get
37400 2d 69 6e 69 74 20 22 63 61 6c 69 62 72 65 64 62 2d 75 74 69 6c 73 2e 65 6c 22 29 0a 28 64 65 63 -init."calibredb-utils.el").(dec
37420 6c 61 72 65 2d 66 75 6e 63 74 69 6f 6e 20 63 61 6c 69 62 72 65 64 62 2d 66 69 6e 64 2d 63 61 6e lare-function.calibredb-find-can
37440 64 69 64 61 74 65 2d 61 74 2d 70 6f 69 6e 74 20 22 63 61 6c 69 62 72 65 64 62 2d 75 74 69 6c 73 didate-at-point."calibredb-utils
37460 2e 65 6c 22 29 0a 28 64 65 63 6c 61 72 65 2d 66 75 6e 63 74 69 6f 6e 20 63 61 6c 69 62 72 65 64 .el").(declare-function.calibred
37480 62 2d 72 65 61 64 2d 6d 65 74 61 64 61 74 61 73 20 22 63 61 6c 69 62 72 65 64 62 2d 75 74 69 6c b-read-metadatas."calibredb-util
374a0 73 2e 65 6c 22 29 0a 28 64 65 63 6c 61 72 65 2d 66 75 6e 63 74 69 6f 6e 20 63 61 6c 69 62 72 65 s.el").(declare-function.calibre
374c0 64 62 2d 73 65 61 72 63 68 2d 72 65 66 72 65 73 68 2d 6f 72 2d 72 65 73 75 6d 65 20 22 63 61 6c db-search-refresh-or-resume."cal
374e0 69 62 72 65 64 62 2d 73 65 61 72 63 68 2e 65 6c 22 29 0a 0a 28 64 65 66 76 61 72 20 63 61 6c 69 ibredb-search.el")..(defvar.cali
37500 62 72 65 64 62 2d 61 6e 6e 6f 74 61 74 69 6f 6e 2d 63 61 6e 64 69 64 61 74 65 20 6e 69 6c 0a 20 bredb-annotation-candidate.nil..
37520 20 22 4c 6f 63 61 6c 20 76 61 72 69 61 62 6c 65 20 75 73 65 64 20 69 6e 20 2a 63 61 6c 69 62 72 ."Local.variable.used.in.*calibr
37540 65 64 62 2d 61 6e 6e 6f 74 61 74 69 6f 6e 2a 2e 22 29 0a 28 64 65 66 76 61 72 20 63 61 6c 69 62 edb-annotation*.").(defvar.calib
37560 72 65 64 62 2d 61 6e 6e 6f 74 61 74 69 6f 6e 2d 70 61 72 61 6d 65 74 65 72 20 6e 69 6c 0a 20 20 redb-annotation-parameter.nil...
37580 22 4c 6f 63 61 6c 20 76 61 72 69 61 62 6c 65 20 75 73 65 64 20 69 6e 20 2a 63 61 6c 69 62 72 65 "Local.variable.used.in.*calibre
375a0 64 62 2d 61 6e 6e 6f 74 61 74 69 6f 6e 2a 2e 22 29 0a 0a 28 64 65 66 76 61 72 20 63 61 6c 69 62 db-annotation*.")..(defvar.calib
375c0 72 65 64 62 2d 65 64 69 74 2d 61 6e 6e 6f 74 61 74 69 6f 6e 2d 68 65 61 64 65 72 2d 66 75 6e 63 redb-edit-annotation-header-func
375e0 74 69 6f 6e 20 23 27 63 61 6c 69 62 72 65 64 62 2d 65 64 69 74 2d 61 6e 6e 6f 74 61 74 69 6f 6e tion.#'calibredb-edit-annotation
37600 2d 68 65 61 64 65 72 0a 20 20 22 46 75 6e 63 74 69 6f 6e 20 74 68 61 74 20 72 65 74 75 72 6e 73 -header..."Function.that.returns
37620 20 74 68 65 20 73 74 72 69 6e 67 20 74 6f 20 62 65 20 75 73 65 64 20 66 6f 72 20 74 68 65 20 43 .the.string.to.be.used.for.the.C
37640 61 6c 69 62 72 65 64 62 20 65 64 69 74 20 61 6e 6e 6f 74 61 74 69 6f 6e 20 68 65 61 64 65 72 2e alibredb.edit.annotation.header.
37660 22 29 0a 0a 28 64 65 66 76 61 72 20 63 61 6c 69 62 72 65 64 62 2d 65 64 69 74 2d 61 6e 6e 6f 74 ")..(defvar.calibredb-edit-annot
37680 61 74 69 6f 6e 2d 74 65 78 74 2d 66 75 6e 63 20 6e 69 6c 0a 20 20 22 46 75 6e 63 74 69 6f 6e 20 ation-text-func.nil..."Function.
376a0 74 6f 20 72 65 74 75 72 6e 20 64 65 66 61 75 6c 74 20 74 65 78 74 20 74 6f 20 75 73 65 20 66 6f to.return.default.text.to.use.fo
376c0 72 20 61 6e 20 65 62 6f 6f 6b 20 61 6e 6e 6f 74 61 74 69 6f 6e 2e 0a 49 74 20 74 61 6b 65 73 20 r.an.ebook.annotation..It.takes.
376e0 6f 6e 65 20 61 72 67 75 6d 65 6e 74 2c 20 74 68 65 20 74 69 74 6c 65 20 6f 66 20 74 68 65 20 65 one.argument,.the.title.of.the.e
37700 62 6f 6f 6b 2c 20 61 73 20 61 20 73 74 72 69 6e 67 2e 0a 49 74 20 63 6f 75 6c 64 20 62 65 20 66 book,.as.a.string..It.could.be.f
37720 75 6e 63 74 69 6f 6e 20 60 63 61 6c 69 62 72 65 64 62 2d 64 65 66 61 75 6c 74 2d 61 6e 6e 6f 74 unction.`calibredb-default-annot
37740 61 74 69 6f 6e 2d 74 65 78 74 27 22 29 0a 0a 3b 3b 20 61 6e 6e 6f 74 61 74 69 6f 6e 0a 0a 28 64 ation-text'")..;;.annotation..(d
37760 65 66 69 6e 65 2d 64 65 72 69 76 65 64 2d 6d 6f 64 65 20 63 61 6c 69 62 72 65 64 62 2d 65 64 69 efine-derived-mode.calibredb-edi
37780 74 2d 61 6e 6e 6f 74 61 74 69 6f 6e 2d 6d 6f 64 65 20 6f 72 67 2d 6d 6f 64 65 20 22 63 61 6c 69 t-annotation-mode.org-mode."cali
377a0 62 72 65 64 62 2d 65 64 69 74 2d 61 6e 6e 61 74 61 74 69 6f 6e 22 0a 20 20 22 4d 6f 64 65 20 66 bredb-edit-annatation"..."Mode.f
377c0 6f 72 20 65 64 69 74 69 6e 67 20 74 68 65 20 61 6e 6e 6f 74 61 74 69 6f 6e 20 6f 66 20 61 20 65 or.editing.the.annotation.of.a.e
377e0 62 6f 6f 6b 2e 0a 57 68 65 6e 20 79 6f 75 20 68 61 76 65 20 66 69 6e 69 73 68 65 64 20 63 6f 6d book..When.you.have.finished.com
37800 70 6f 73 69 6e 67 2c 20 75 73 65 20 60 43 2d 63 20 43 2d 63 27 2e 0a 5c 5c 7b 63 61 6c 69 62 72 posing,.use.`C-c.C-c'..\\{calibr
37820 65 64 62 2d 65 64 69 74 2d 61 6e 6e 6f 74 61 74 69 6f 6e 2d 6d 6f 64 65 2d 6d 61 70 7d 22 0a 20 edb-edit-annotation-mode-map}"..
37840 20 28 73 65 74 71 20 68 65 61 64 65 72 2d 6c 69 6e 65 2d 66 6f 72 6d 61 74 20 27 28 3a 65 76 61 .(setq.header-line-format.'(:eva
37860 6c 20 28 66 75 6e 63 61 6c 6c 20 63 61 6c 69 62 72 65 64 62 2d 65 64 69 74 2d 61 6e 6e 6f 74 61 l.(funcall.calibredb-edit-annota
37880 74 69 6f 6e 2d 68 65 61 64 65 72 2d 66 75 6e 63 74 69 6f 6e 29 29 29 29 0a 0a 28 64 65 66 75 6e tion-header-function))))..(defun
378a0 20 63 61 6c 69 62 72 65 64 62 2d 65 64 69 74 2d 61 6e 6e 6f 74 61 74 69 6f 6e 2d 68 65 61 64 65 .calibredb-edit-annotation-heade
378c0 72 20 28 29 0a 20 20 22 54 4f 44 4f 3a 20 52 65 74 75 72 6e 20 74 68 65 20 73 74 72 69 6e 67 20 r.()..."TODO:.Return.the.string.
378e0 74 6f 20 62 65 20 75 73 65 64 20 61 73 20 74 68 65 20 43 61 6c 69 62 72 65 64 62 20 65 64 69 74 to.be.used.as.the.Calibredb.edit
37900 20 61 6e 6e 6f 74 61 74 69 6f 6e 20 68 65 61 64 65 72 2e 22 0a 20 20 28 66 6f 72 6d 61 74 20 22 .annotation.header."...(format."
37920 25 73 20 2d 3e 20 45 64 69 74 20 41 6e 6e 6f 74 61 74 69 6f 6e 2e 20 25 73 20 25 73 22 0a 20 20 %s.->.Edit.Annotation..%s.%s"...
37940 20 20 20 20 20 20 20 20 28 70 72 6f 70 65 72 74 69 7a 65 20 28 63 61 6c 69 62 72 65 64 62 2d 67 ........(propertize.(calibredb-g
37960 65 74 2d 69 6e 69 74 20 22 74 69 74 6c 65 22 20 63 61 6c 69 62 72 65 64 62 2d 61 6e 6e 6f 74 61 et-init."title".calibredb-annota
37980 74 69 6f 6e 2d 63 61 6e 64 69 64 61 74 65 29 20 27 66 61 63 65 20 27 63 61 6c 69 62 72 65 64 62 tion-candidate).'face.'calibredb
379a0 2d 65 64 69 74 2d 61 6e 6e 6f 74 61 74 69 6f 6e 2d 68 65 61 64 65 72 2d 74 69 74 6c 65 2d 66 61 -edit-annotation-header-title-fa
379c0 63 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 22 46 69 6e 69 73 68 20 27 43 2d 63 20 43 2d 63 27 ce)............"Finish.'C-c.C-c'
379e0 2c 22 0a 20 20 20 20 20 20 20 20 20 20 20 22 61 62 6f 72 74 20 27 43 2d 63 20 43 2d 6b 27 2e 22 ,"............"abort.'C-c.C-k'."
37a00 29 29 0a 0a 28 64 65 66 75 6e 20 63 61 6c 69 62 72 65 64 62 2d 65 64 69 74 2d 61 6e 6e 6f 74 61 ))..(defun.calibredb-edit-annota
37a20 74 69 6f 6e 20 28 26 6f 70 74 69 6f 6e 61 6c 20 63 61 6e 64 69 64 61 74 65 29 0a 20 20 22 50 6f tion.(&optional.candidate)..."Po
37a40 70 20 75 70 20 61 20 62 75 66 66 65 72 20 66 6f 72 20 65 64 69 74 69 6e 67 20 65 62 6f 6f 6b 20 p.up.a.buffer.for.editing.ebook.
37a60 43 41 4e 44 49 44 41 54 45 27 73 20 61 6e 6e 6f 74 61 74 69 6f 6e 2e 22 0a 20 20 28 69 6e 74 65 CANDIDATE's.annotation."...(inte
37a80 72 61 63 74 69 76 65 29 0a 20 20 28 6c 65 74 20 28 62 65 67 20 70 6f 73 29 0a 20 20 20 20 3b 3b ractive)...(let.(beg.pos).....;;
37aa0 20 73 61 76 65 20 74 68 65 20 6f 72 69 67 69 6e 61 6c 20 70 6f 73 69 74 69 6f 6e 20 74 65 6d 70 .save.the.original.position.temp
37ac0 6f 72 61 72 79 2e 0a 20 20 20 20 28 73 65 74 71 20 62 65 67 20 28 70 6f 69 6e 74 29 29 0a 20 20 orary......(setq.beg.(point))...
37ae0 20 20 28 73 65 74 71 20 70 6f 73 20 28 77 69 6e 64 6f 77 2d 73 74 61 72 74 29 29 0a 20 20 20 20 ..(setq.pos.(window-start)).....
37b00 28 75 6e 6c 65 73 73 20 63 61 6e 64 69 64 61 74 65 0a 20 20 20 20 20 20 28 73 65 74 71 20 63 61 (unless.candidate.......(setq.ca
37b20 6e 64 69 64 61 74 65 20 28 63 61 72 20 28 63 61 6c 69 62 72 65 64 62 2d 66 69 6e 64 2d 63 61 6e ndidate.(car.(calibredb-find-can
37b40 64 69 64 61 74 65 2d 61 74 2d 70 6f 69 6e 74 29 29 29 29 0a 20 20 20 20 28 70 6f 70 2d 74 6f 2d didate-at-point)))).....(pop-to-
37b60 62 75 66 66 65 72 20 28 67 65 6e 65 72 61 74 65 2d 6e 65 77 2d 62 75 66 66 65 72 2d 6e 61 6d 65 buffer.(generate-new-buffer-name
37b80 20 22 2a 63 61 6c 69 62 72 65 64 62 2d 65 64 69 74 2d 61 6e 6e 61 74 61 74 69 6f 6e 2a 22 29 29 ."*calibredb-edit-annatation*"))
37ba0 0a 20 20 20 20 28 63 61 6c 69 62 72 65 64 62 2d 69 6e 73 65 72 74 2d 61 6e 6e 6f 74 61 74 69 6f .....(calibredb-insert-annotatio
37bc0 6e 20 63 61 6e 64 69 64 61 74 65 29 0a 20 20 20 20 28 63 61 6c 69 62 72 65 64 62 2d 65 64 69 74 n.candidate).....(calibredb-edit
37be0 2d 61 6e 6e 6f 74 61 74 69 6f 6e 2d 6d 6f 64 65 29 0a 20 20 20 20 28 73 65 74 20 28 6d 61 6b 65 -annotation-mode).....(set.(make
37c00 2d 6c 6f 63 61 6c 2d 76 61 72 69 61 62 6c 65 20 27 63 61 6c 69 62 72 65 64 62 2d 61 6e 6e 6f 74 -local-variable.'calibredb-annot
37c20 61 74 69 6f 6e 2d 63 61 6e 64 69 64 61 74 65 29 20 63 61 6e 64 69 64 61 74 65 29 0a 20 20 20 20 ation-candidate).candidate).....
37c40 28 73 65 74 20 28 6d 61 6b 65 2d 6c 6f 63 61 6c 2d 76 61 72 69 61 62 6c 65 20 27 63 61 6c 69 62 (set.(make-local-variable.'calib
37c60 72 65 64 62 2d 61 6e 6e 6f 74 61 74 69 6f 6e 2d 70 61 72 61 6d 65 74 65 72 29 20 60 28 2c 62 65 redb-annotation-parameter).`(,be
37c80 67 20 2e 20 2c 70 6f 73 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 63 61 6c 69 62 72 65 64 62 2d 64 g...,pos))))..(defun.calibredb-d
37ca0 65 66 61 75 6c 74 2d 61 6e 6e 6f 74 61 74 69 6f 6e 2d 74 65 78 74 20 28 74 69 74 6c 65 29 0a 20 efault-annotation-text.(title)..
37cc0 20 22 52 65 74 75 72 6e 20 64 65 66 61 75 6c 74 20 61 6e 6e 6f 74 61 74 69 6f 6e 20 74 65 78 74 ."Return.default.annotation.text
37ce0 20 66 6f 72 20 54 49 54 4c 45 2e 0a 54 68 65 20 64 65 66 61 75 6c 74 20 61 6e 6e 6f 74 61 74 69 .for.TITLE..The.default.annotati
37d00 6f 6e 20 74 65 78 74 20 69 73 20 73 69 6d 70 6c 79 20 73 6f 6d 65 20 74 65 78 74 20 65 78 70 6c on.text.is.simply.some.text.expl
37d20 61 69 6e 69 6e 67 20 68 6f 77 20 74 6f 20 75 73 65 0a 61 6e 6e 6f 74 61 74 69 6f 6e 73 2e 22 0a aining.how.to.use.annotations.".
37d40 20 20 28 63 6f 6e 63 61 74 20 22 23 20 20 54 79 70 65 20 74 68 65 20 61 6e 6e 6f 74 61 74 69 6f ..(concat."#..Type.the.annotatio
37d60 6e 20 66 6f 72 20 69 74 65 6d 20 60 22 20 74 69 74 6c 65 20 22 27 20 68 65 72 65 2e 5c 6e 22 0a n.for.item.`".title."'.here.\n".
37d80 20 20 20 20 20 20 20 20 20 20 22 23 20 20 41 6c 6c 20 6c 69 6e 65 73 20 74 68 61 74 20 73 74 61 .........."#..All.lines.that.sta
37da0 72 74 20 77 69 74 68 20 61 20 60 23 27 20 77 69 6c 6c 20 62 65 20 64 65 6c 65 74 65 64 2e 5c 6e rt.with.a.`#'.will.be.deleted.\n
37dc0 22 0a 20 20 20 20 20 20 20 20 20 20 22 23 20 20 54 79 70 65 20 60 43 2d 63 20 43 2d 63 27 20 77 "..........."#..Type.`C-c.C-c'.w
37de0 68 65 6e 20 64 6f 6e 65 2e 5c 6e 23 5c 6e 22 0a 20 20 20 20 20 20 20 20 20 20 22 23 20 20 41 75 hen.done.\n#\n"..........."#..Au
37e00 74 68 6f 72 3a 20 22 20 28 75 73 65 72 2d 66 75 6c 6c 2d 6e 61 6d 65 29 20 22 20 3c 22 20 28 75 thor:.".(user-full-name).".<".(u
37e20 73 65 72 2d 6c 6f 67 69 6e 2d 6e 61 6d 65 29 20 22 40 22 0a 20 20 20 20 20 20 20 20 20 20 28 73 ser-login-name)."@"...........(s
37e40 79 73 74 65 6d 2d 6e 61 6d 65 29 20 22 3e 5c 6e 22 0a 20 20 20 20 20 20 20 20 20 20 22 23 20 20 ystem-name).">\n"..........."#..
37e60 44 61 74 65 3a 20 20 20 20 22 20 28 63 75 72 72 65 6e 74 2d 74 69 6d 65 2d 73 74 72 69 6e 67 29 Date:....".(current-time-string)
37e80 20 22 5c 6e 22 29 29 0a 0a 28 64 65 66 75 6e 20 63 61 6c 69 62 72 65 64 62 2d 69 6e 73 65 72 74 ."\n"))..(defun.calibredb-insert
37ea0 2d 61 6e 6e 6f 74 61 74 69 6f 6e 20 28 63 61 6e 64 69 64 61 74 65 29 0a 20 20 22 49 6e 73 65 72 -annotation.(candidate)..."Inser
37ec0 74 20 61 6e 6e 6f 74 61 74 69 6f 6e 20 66 6f 72 20 43 41 4e 44 49 44 41 54 45 2e 22 0a 20 20 28 t.annotation.for.CANDIDATE."...(
37ee0 77 68 65 6e 20 63 61 6c 69 62 72 65 64 62 2d 65 64 69 74 2d 61 6e 6e 6f 74 61 74 69 6f 6e 2d 74 when.calibredb-edit-annotation-t
37f00 65 78 74 2d 66 75 6e 63 0a 20 20 20 20 28 69 6e 73 65 72 74 20 28 66 75 6e 63 61 6c 6c 20 63 61 ext-func.....(insert.(funcall.ca
37f20 6c 69 62 72 65 64 62 2d 65 64 69 74 2d 61 6e 6e 6f 74 61 74 69 6f 6e 2d 74 65 78 74 2d 66 75 6e libredb-edit-annotation-text-fun
37f40 63 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 61 6c 69 62 72 65 64 c......................(calibred
37f60 62 2d 72 65 61 64 2d 6d 65 74 61 64 61 74 61 73 20 22 74 69 74 6c 65 22 20 63 61 6e 64 69 64 61 b-read-metadatas."title".candida
37f80 74 65 29 29 29 29 0a 20 20 28 6c 65 74 20 28 28 61 6e 6e 6f 74 61 74 69 6f 6e 20 20 28 63 61 6c te))))...(let.((annotation..(cal
37fa0 69 62 72 65 64 62 2d 72 65 61 64 2d 6d 65 74 61 64 61 74 61 73 20 22 63 6f 6d 6d 65 6e 74 73 22 ibredb-read-metadatas."comments"
37fc0 20 63 61 6e 64 69 64 61 74 65 29 29 29 0a 20 20 20 20 28 77 68 65 6e 20 28 61 6e 64 20 61 6e 6e .candidate))).....(when.(and.ann
37fe0 6f 74 61 74 69 6f 6e 20 20 28 6e 6f 74 20 28 73 74 72 69 6e 67 2d 65 71 75 61 6c 20 61 6e 6e 6f otation..(not.(string-equal.anno
38000 74 61 74 69 6f 6e 20 22 22 29 29 29 20 28 69 6e 73 65 72 74 20 61 6e 6e 6f 74 61 74 69 6f 6e 29 tation.""))).(insert.annotation)
38020 29 29 29 0a 0a 28 64 65 66 75 6e 20 63 61 6c 69 62 72 65 64 62 2d 6b 69 6c 6c 2d 6c 69 6e 65 20 )))..(defun.calibredb-kill-line.
38040 28 26 6f 70 74 69 6f 6e 61 6c 20 6e 65 77 6c 69 6e 65 2d 74 6f 6f 29 0a 20 20 22 4b 69 6c 6c 20 (&optional.newline-too)..."Kill.
38060 66 72 6f 6d 20 70 6f 69 6e 74 20 74 6f 20 65 6e 64 20 6f 66 20 6c 69 6e 65 2e 0a 49 66 20 6f 70 from.point.to.end.of.line..If.op
38080 74 69 6f 6e 61 6c 20 61 72 67 20 4e 45 57 4c 49 4e 45 2d 54 4f 4f 20 69 73 20 6e 6f 6e 2d 6e 69 tional.arg.NEWLINE-TOO.is.non-ni
380a0 6c 2c 20 64 65 6c 65 74 65 20 74 68 65 20 6e 65 77 6c 69 6e 65 20 74 6f 6f 2e 0a 44 6f 65 73 20 l,.delete.the.newline.too..Does.
380c0 6e 6f 74 20 61 66 66 65 63 74 20 74 68 65 20 6b 69 6c 6c 20 72 69 6e 67 2e 22 0a 20 20 28 6c 65 not.affect.the.kill.ring."...(le
380e0 74 20 28 28 65 6f 6c 20 28 6c 69 6e 65 2d 65 6e 64 2d 70 6f 73 69 74 69 6f 6e 29 29 29 0a 20 20 t.((eol.(line-end-position)))...
38100 20 20 28 64 65 6c 65 74 65 2d 72 65 67 69 6f 6e 20 28 70 6f 69 6e 74 29 20 65 6f 6c 29 0a 20 20 ..(delete-region.(point).eol)...
38120 20 20 28 77 68 65 6e 20 28 61 6e 64 20 6e 65 77 6c 69 6e 65 2d 74 6f 6f 20 28 3d 20 28 66 6f 6c ..(when.(and.newline-too.(=.(fol
38140 6c 6f 77 69 6e 67 2d 63 68 61 72 29 20 3f 5c 6e 29 29 0a 20 20 20 20 20 20 28 64 65 6c 65 74 65 lowing-char).?\n)).......(delete
38160 2d 63 68 61 72 20 31 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 63 61 6c 69 62 72 65 64 62 2d 73 65 -char.1))))..(defun.calibredb-se
38180 6e 64 2d 65 64 69 74 65 64 2d 61 6e 6e 6f 74 61 74 69 6f 6e 20 28 29 0a 20 20 22 55 73 65 20 62 nd-edited-annotation.()..."Use.b
381a0 75 66 66 65 72 20 63 6f 6e 74 65 6e 74 73 20 61 73 20 61 6e 6e 6f 74 61 74 69 6f 6e 20 66 6f 72 uffer.contents.as.annotation.for
381c0 20 61 6e 20 65 62 6f 6f 6b 2e 0a 4c 69 6e 65 73 20 62 65 67 69 6e 6e 69 6e 67 20 77 69 74 68 20 .an.ebook..Lines.beginning.with.
381e0 60 23 27 20 61 72 65 20 69 67 6e 6f 72 65 64 2e 0a 42 6f 75 6e 64 20 74 6f 20 5c 5c 3c 43 2d 63 `#'.are.ignored..Bound.to.\\<C-c
38200 43 2d 63 3e 20 69 6e 20 60 63 61 6c 69 62 72 65 64 62 2d 65 64 69 74 2d 61 6e 6e 6f 74 61 74 69 C-c>.in.`calibredb-edit-annotati
38220 6f 6e 2d 6d 6f 64 65 27 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 0a 20 20 28 75 6e on-mode'."...(interactive)...(un
38240 6c 65 73 73 20 28 64 65 72 69 76 65 64 2d 6d 6f 64 65 2d 70 20 27 63 61 6c 69 62 72 65 64 62 2d less.(derived-mode-p.'calibredb-
38260 65 64 69 74 2d 61 6e 6e 6f 74 61 74 69 6f 6e 2d 6d 6f 64 65 29 0a 20 20 20 20 28 65 72 72 6f 72 edit-annotation-mode).....(error
38280 20 22 4e 6f 74 20 69 6e 20 6d 6f 64 65 20 64 65 72 69 76 65 64 20 66 72 6f 6d 20 60 63 61 6c 69 ."Not.in.mode.derived.from.`cali
382a0 62 72 65 64 62 2d 65 64 69 74 2d 61 6e 6e 6f 74 61 74 69 6f 6e 2d 6d 6f 64 65 27 22 29 29 0a 20 bredb-edit-annotation-mode'"))..
382c0 20 28 67 6f 74 6f 2d 63 68 61 72 20 28 70 6f 69 6e 74 2d 6d 69 6e 29 29 0a 20 20 3b 3b 20 28 77 .(goto-char.(point-min))...;;.(w
382e0 68 69 6c 65 20 28 3c 20 28 70 6f 69 6e 74 29 20 28 70 6f 69 6e 74 2d 6d 61 78 29 29 20 28 69 66 hile.(<.(point).(point-max)).(if
38300 20 28 3d 20 28 66 6f 6c 6c 6f 77 69 6e 67 2d 63 68 61 72 29 20 3f 23 29 20 28 63 61 6c 69 62 72 .(=.(following-char).?#).(calibr
38320 65 64 62 2d 6b 69 6c 6c 2d 6c 69 6e 65 20 74 29 20 28 66 6f 72 77 61 72 64 2d 6c 69 6e 65 20 31 edb-kill-line.t).(forward-line.1
38340 29 29 29 0a 20 20 28 6c 65 74 20 28 28 61 6e 6e 6f 74 61 74 69 6f 6e 20 20 20 20 20 20 28 62 75 )))...(let.((annotation......(bu
38360 66 66 65 72 2d 73 75 62 73 74 72 69 6e 67 2d 6e 6f 2d 70 72 6f 70 65 72 74 69 65 73 20 28 70 6f ffer-substring-no-properties.(po
38380 69 6e 74 2d 6d 69 6e 29 20 28 70 6f 69 6e 74 2d 6d 61 78 29 29 29 0a 20 20 20 20 20 20 20 20 28 int-min).(point-max))).........(
383a0 63 61 6e 64 69 64 61 74 65 20 20 20 20 20 20 20 20 63 61 6c 69 62 72 65 64 62 2d 61 6e 6e 6f 74 candidate........calibredb-annot
383c0 61 74 69 6f 6e 2d 63 61 6e 64 69 64 61 74 65 29 0a 20 20 20 20 20 20 20 20 28 62 65 67 20 20 20 ation-candidate).........(beg...
383e0 20 20 20 20 20 28 63 61 72 20 63 61 6c 69 62 72 65 64 62 2d 61 6e 6e 6f 74 61 74 69 6f 6e 2d 70 .....(car.calibredb-annotation-p
38400 61 72 61 6d 65 74 65 72 29 29 0a 20 20 20 20 20 20 20 20 28 70 6f 73 20 20 20 20 20 20 20 20 28 arameter)).........(pos........(
38420 63 64 72 20 63 61 6c 69 62 72 65 64 62 2d 61 6e 6e 6f 74 61 74 69 6f 6e 2d 70 61 72 61 6d 65 74 cdr.calibredb-annotation-paramet
38440 65 72 29 29 29 0a 20 20 20 20 28 77 68 65 6e 20 28 73 74 72 69 6e 67 3d 20 61 6e 6e 6f 74 61 74 er))).....(when.(string=.annotat
38460 69 6f 6e 20 22 22 29 20 28 73 65 74 71 20 61 6e 6e 6f 74 61 74 69 6f 6e 20 6e 69 6c 29 29 0a 20 ion."").(setq.annotation.nil))..
38480 20 20 20 28 63 61 6c 69 62 72 65 64 62 2d 63 6f 6d 6d 61 6e 64 20 3a 63 6f 6d 6d 61 6e 64 20 22 ...(calibredb-command.:command."
384a0 73 65 74 5f 6d 65 74 61 64 61 74 61 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 set_metadata"...................
384c0 20 20 20 20 20 3a 6f 70 74 69 6f 6e 20 28 66 6f 72 6d 61 74 20 22 2d 2d 66 69 65 6c 64 20 25 73 .....:option.(format."--field.%s
384e0 3a 25 73 20 22 20 63 61 6c 69 62 72 65 64 62 2d 61 6e 6e 6f 74 61 74 69 6f 6e 2d 66 69 65 6c 64 :%s.".calibredb-annotation-field
38500 20 28 70 72 69 6e 31 2d 74 6f 2d 73 74 72 69 6e 67 20 61 6e 6e 6f 74 61 74 69 6f 6e 29 29 0a 20 .(prin1-to-string.annotation))..
38520 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 69 64 20 28 63 61 6c 69 62 ......................:id.(calib
38540 72 65 64 62 2d 67 65 74 61 74 74 72 20 63 61 6e 64 69 64 61 74 65 20 3a 69 64 29 0a 20 20 20 20 redb-getattr.candidate.:id).....
38560 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 6c 69 62 72 61 72 79 20 28 66 6f 72 ...................:library.(for
38580 6d 61 74 20 22 2d 2d 6c 69 62 72 61 72 79 2d 70 61 74 68 20 5c 22 25 73 5c 22 22 20 63 61 6c 69 mat."--library-path.\"%s\"".cali
385a0 62 72 65 64 62 2d 72 6f 6f 74 2d 64 69 72 29 29 0a 20 20 20 20 28 63 61 6c 69 62 72 65 64 62 2d bredb-root-dir)).....(calibredb-
385c0 61 6e 6e 6f 74 61 74 69 6f 6e 2d 71 75 69 74 29 0a 20 20 20 20 28 63 61 6c 69 62 72 65 64 62 2d annotation-quit).....(calibredb-
385e0 73 65 61 72 63 68 2d 72 65 66 72 65 73 68 2d 6f 72 2d 72 65 73 75 6d 65 20 62 65 67 20 70 6f 73 search-refresh-or-resume.beg.pos
38600 29 29 29 0a 0a 28 64 65 66 75 6e 20 63 61 6c 69 62 72 65 64 62 2d 61 6e 6e 6f 74 61 74 69 6f 6e )))..(defun.calibredb-annotation
38620 2d 71 75 69 74 20 28 29 0a 20 20 22 51 75 69 74 20 2a 63 61 6c 69 62 72 65 64 62 2d 65 64 69 74 -quit.()..."Quit.*calibredb-edit
38640 2d 61 6e 6e 61 74 61 74 69 6f 6e 2a 2e 0a 42 6f 75 6e 64 20 74 6f 20 5c 5c 3c 43 2d 63 43 2d 6b -annatation*..Bound.to.\\<C-cC-k
38660 3e 20 69 6e 20 60 63 61 6c 69 62 72 65 64 62 2d 65 64 69 74 2d 61 6e 6e 6f 74 61 74 69 6f 6e 2d >.in.`calibredb-edit-annotation-
38680 6d 6f 64 65 27 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 0a 20 20 28 77 68 65 6e 20 mode'."...(interactive)...(when.
386a0 28 65 71 20 6d 61 6a 6f 72 2d 6d 6f 64 65 20 27 63 61 6c 69 62 72 65 64 62 2d 65 64 69 74 2d 61 (eq.major-mode.'calibredb-edit-a
386c0 6e 6e 6f 74 61 74 69 6f 6e 2d 6d 6f 64 65 29 0a 20 20 20 20 28 69 66 20 28 3c 20 28 6c 65 6e 67 nnotation-mode).....(if.(<.(leng
386e0 74 68 20 28 77 69 6e 64 6f 77 2d 70 72 65 76 2d 62 75 66 66 65 72 73 29 29 20 32 29 0a 20 20 20 th.(window-prev-buffers)).2)....
38700 20 20 20 20 20 28 70 72 6f 67 6e 0a 20 20 20 20 20 20 20 20 20 20 28 71 75 69 74 2d 77 69 6e 64 .....(progn...........(quit-wind
38720 6f 77 29 0a 20 20 20 20 20 20 20 20 20 20 28 6b 69 6c 6c 2d 62 75 66 66 65 72 20 22 2a 63 61 6c ow)...........(kill-buffer."*cal
38740 69 62 72 65 64 62 2d 65 64 69 74 2d 61 6e 6e 61 74 61 74 69 6f 6e 2a 22 29 29 0a 20 20 20 20 20 ibredb-edit-annatation*"))......
38760 20 28 6b 69 6c 6c 2d 62 75 66 66 65 72 29 29 29 29 0a 0a 28 70 72 6f 76 69 64 65 20 27 63 61 6c .(kill-buffer))))..(provide.'cal
38780 69 62 72 65 64 62 2d 61 6e 6e 6f 74 61 74 69 6f 6e 29 0a 0a 3b 3b 3b 20 63 61 6c 69 62 72 65 64 ibredb-annotation)..;;;.calibred
387a0 62 2d 61 6e 6e 6f 74 61 74 69 6f 6e 2e 65 6c 20 65 6e 64 73 20 68 65 72 65 0a 00 00 00 00 00 00 b-annotation.el.ends.here.......
387c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
387e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
38800 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
38820 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
38840 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
38860 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
38880 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
388a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
388c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
388e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
38900 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
38920 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
38940 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
38960 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
38980 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
389a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
389c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
389e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
38a00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
38a20 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
38a40 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
38a60 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
38a80 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
38aa0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
38ac0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
38ae0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
38b00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
38b20 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
38b40 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
38b60 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
38b80 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
38ba0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
38bc0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
38be0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
38c00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
38c20 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
38c40 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
38c60 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
38c80 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
38ca0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
38cc0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
38ce0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
38d00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
38d20 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
38d40 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
38d60 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
38d80 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
38da0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
38dc0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
38de0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
38e00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
38e20 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
38e40 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
38e60 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
38e80 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
38ea0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
38ec0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
38ee0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
38f00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
38f20 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
38f40 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
38f60 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
38f80 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
38fa0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
38fc0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
38fe0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
39000 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
39020 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
39040 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
39060 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
39080 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
390a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
390c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
390e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
39100 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
39120 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
39140 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
39160 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
39180 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
391a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
391c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
391e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
39200 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
39220 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
39240 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
39260 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
39280 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
392a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
392c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
392e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
39300 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
39320 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
39340 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
39360 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
39380 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
393a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
393c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
393e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
39400 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
39420 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
39440 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
39460 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
39480 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
394a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
394c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
394e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
39500 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
39520 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
39540 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
39560 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
39580 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
395a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
395c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
395e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
39600 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
39620 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
39640 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
39660 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
39680 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
396a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
396c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
396e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
39700 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
39720 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
39740 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
39760 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
39780 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
397a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
397c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
397e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
generated by cgit v1.2.3 (git 2.25.1) at 2025-11-04 14:10:38 +0000