summaryrefslogtreecommitdiff
path: root/.localrepo/org-noter-20240918.1703.tar
blob: f6691dc24e8e803dcaeebcd96ebbf22cdb7057ec (plain)
ofshex dumpascii
0000 6f 72 67 2d 6e 6f 74 65 72 2d 32 30 32 34 30 39 31 38 2e 31 37 30 33 2f 00 00 00 00 00 00 00 00 org-noter-20240918.1703/........
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 37 33 31 00 20 35 00 00 00 0000000.00000000000.012731..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 6f 72 67 2d 6e 6f 74 65 72 2d 32 30 32 34 30 39 31 38 2e 31 37 30 33 2f 6d 6f 64 75 6c 65 73 2f org-noter-20240918.1703/modules/
0220 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
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 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
0280 30 30 30 30 30 30 30 00 30 30 30 30 30 30 30 30 30 30 30 00 30 31 34 34 30 31 00 20 35 00 00 00 0000000.00000000000.014401..5...
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 6f 72 67 2d 6e 6f 74 65 72 2d 32 30 32 34 30 39 31 38 2e 31 37 30 33 2f 6d 6f 64 75 6c 65 73 2f org-noter-20240918.1703/modules/
0420 6f 72 67 2d 6e 6f 74 65 72 2d 64 6a 76 75 2e 65 6c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 org-noter-djvu.el...............
0440 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
0460 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
0480 30 30 31 34 36 31 36 00 30 30 30 30 30 30 30 30 30 30 30 00 30 31 37 36 31 35 00 20 30 00 00 00 0014616.00000000000.017615..0...
04a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
04c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
04e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
0500 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...................
0520 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...................
0540 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
0560 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
0580 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
05a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
05c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
05e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
0600 3b 3b 3b 20 6f 72 67 2d 6e 6f 74 65 72 2d 64 6a 76 75 2e 65 6c 20 2d 2d 2d 20 4d 6f 64 75 6c 65 ;;;.org-noter-djvu.el.---.Module
0620 20 66 6f 72 20 44 4a 56 55 20 20 20 20 20 20 20 20 20 20 20 20 2d 2a 2d 20 6c 65 78 69 63 61 6c .for.DJVU............-*-.lexical
0640 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 20 28 -binding:.t;.-*-..;;.Copyright.(
0660 43 29 20 32 30 32 32 20 20 63 31 2d 67 0a 0a 3b 3b 20 41 75 74 68 6f 72 3a 20 63 31 2d 67 20 3c C).2022..c1-g..;;.Author:.c1-g.<
0680 63 68 61 72 31 69 65 67 6f 72 64 6f 6e 40 70 72 6f 74 6f 6e 6d 61 69 6c 2e 63 6f 6d 3e 0a 3b 3b char1iegordon@protonmail.com>.;;
06a0 20 4b 65 79 77 6f 72 64 73 3a 20 6d 75 6c 74 69 6d 65 64 69 61 0a 0a 3b 3b 20 54 68 69 73 20 70 .Keywords:.multimedia..;;.This.p
06c0 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 61 6e rogram.is.free.software;.you.can
06e0 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 0a 3b .redistribute.it.and/or.modify.;
0700 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 55 20 ;.it.under.the.terms.of.the.GNU.
0720 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 69 73 General.Public.License.as.publis
0740 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 75 6e hed.by.;;.the.Free.Software.Foun
0760 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 65 20 dation,.either.version.3.of.the.
0780 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 29 20 License,.or.;;.(at.your.option).
07a0 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 6f 67 any.later.version...;;.This.prog
07c0 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 20 74 ram.is.distributed.in.the.hope.t
07e0 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 57 49 hat.it.will.be.useful,.;;.but.WI
0800 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 65 6e THOUT.ANY.WARRANTY;.without.even
0820 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 52 43 .the.implied.warranty.of.;;.MERC
0840 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 41 52 HANTABILITY.or.FITNESS.FOR.A.PAR
0860 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 4e 55 TICULAR.PURPOSE...See.the.;;.GNU
0880 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 72 65 .General.Public.License.for.more
08a0 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 72 65 .details...;;.You.should.have.re
08c0 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 61 6c ceived.a.copy.of.the.GNU.General
08e0 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 74 68 .Public.License.;;.along.with.th
0900 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 73 3a is.program...If.not,.see.<https:
0920 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 20 43 //www.gnu.org/licenses/>...;;;.C
0940 6f 6d 6d 65 6e 74 61 72 79 3a 0a 0a 3b 3b 0a 0a 3b 3b 3b 20 43 6f 64 65 3a 0a 28 72 65 71 75 69 ommentary:..;;..;;;.Code:.(requi
0960 72 65 20 27 6f 72 67 2d 6e 6f 74 65 72 2d 63 6f 72 65 29 0a 0a 28 65 76 61 6c 2d 77 68 65 6e 2d re.'org-noter-core)..(eval-when-
0980 63 6f 6d 70 69 6c 65 20 3b 20 65 6e 73 75 72 65 20 74 68 61 74 20 74 68 65 20 63 6f 6d 70 69 6c compile.;.ensure.that.the.compil
09a0 65 64 20 63 6f 64 65 20 6b 6e 6f 77 73 20 61 62 6f 75 74 20 44 4a 56 55 2c 20 69 66 20 69 6e 73 ed.code.knows.about.DJVU,.if.ins
09c0 74 61 6c 6c 65 64 0a 20 20 28 63 6f 6e 64 69 74 69 6f 6e 2d 63 61 73 65 20 6e 69 6c 0a 20 20 20 talled...(condition-case.nil....
09e0 20 20 20 28 72 65 71 75 69 72 65 20 27 64 6a 76 75 29 0a 20 20 20 20 28 65 72 72 6f 72 20 28 6d ...(require.'djvu).....(error.(m
0a00 65 73 73 61 67 65 20 22 60 64 6a 76 75 27 20 70 61 63 6b 61 67 65 20 6e 6f 74 20 66 6f 75 6e 64 essage."`djvu'.package.not.found
0a20 22 29 29 29 29 0a 28 63 6f 6e 64 69 74 69 6f 6e 2d 63 61 73 65 20 6e 69 6c 20 3b 20 72 75 6e 20 ")))).(condition-case.nil.;.run.
0a40 74 69 6d 65 20 77 61 72 6e 69 6e 67 0a 20 20 20 20 28 72 65 71 75 69 72 65 20 27 64 6a 76 75 29 time.warning.....(require.'djvu)
0a60 0a 20 20 28 65 72 72 6f 72 20 28 6d 65 73 73 61 67 65 20 22 41 54 54 45 4e 54 49 4f 4e 3a 20 6f ...(error.(message."ATTENTION:.o
0a80 72 67 2d 6e 6f 74 65 72 2d 64 6a 76 75 20 6e 65 65 64 73 20 74 68 65 20 70 61 63 6b 61 67 65 20 rg-noter-djvu.needs.the.package.
0aa0 60 64 6a 76 75 27 22 29 29 29 0a 0a 28 70 75 73 68 20 22 64 6a 76 75 22 20 6f 72 67 2d 6e 6f 74 `djvu'")))..(push."djvu".org-not
0ac0 65 72 2d 2d 64 6f 63 2d 65 78 74 65 6e 73 69 6f 6e 73 29 0a 0a 28 64 65 66 75 6e 20 6f 72 67 2d er--doc-extensions)..(defun.org-
0ae0 6e 6f 74 65 72 2d 64 6a 76 75 2d 2d 70 72 65 74 74 79 2d 70 72 69 6e 74 2d 6c 6f 63 61 74 69 6f noter-djvu--pretty-print-locatio
0b00 6e 20 28 6c 6f 63 61 74 69 6f 6e 29 0a 20 20 28 6f 72 67 2d 6e 6f 74 65 72 2d 2d 77 69 74 68 2d n.(location)...(org-noter--with-
0b20 76 61 6c 69 64 2d 73 65 73 73 69 6f 6e 0a 20 20 20 28 77 68 65 6e 20 28 65 71 20 28 6f 72 67 2d valid-session....(when.(eq.(org-
0b40 6e 6f 74 65 72 2d 2d 73 65 73 73 69 6f 6e 2d 64 6f 63 2d 6d 6f 64 65 20 73 65 73 73 69 6f 6e 29 noter--session-doc-mode.session)
0b60 20 27 64 6a 76 75 2d 72 65 61 64 2d 6d 6f 64 65 29 0a 20 20 20 20 20 28 66 6f 72 6d 61 74 20 22 .'djvu-read-mode)......(format."
0b80 25 73 22 20 28 69 66 20 28 6f 72 20 28 6e 6f 74 20 28 6f 72 67 2d 6e 6f 74 65 72 2d 2d 67 65 74 %s".(if.(or.(not.(org-noter--get
0ba0 2d 6c 6f 63 61 74 69 6f 6e 2d 74 6f 70 20 6c 6f 63 61 74 69 6f 6e 29 29 20 28 3c 3d 20 28 6f 72 -location-top.location)).(<=.(or
0bc0 67 2d 6e 6f 74 65 72 2d 2d 67 65 74 2d 6c 6f 63 61 74 69 6f 6e 2d 74 6f 70 20 6c 6f 63 61 74 69 g-noter--get-location-top.locati
0be0 6f 6e 29 20 30 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 63 on).0)).......................(c
0c00 61 72 20 6c 6f 63 61 74 69 6f 6e 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ar.location)....................
0c20 20 6c 6f 63 61 74 69 6f 6e 29 29 29 29 29 0a 0a 28 61 64 64 2d 74 6f 2d 6c 69 73 74 20 27 6f 72 .location)))))..(add-to-list.'or
0c40 67 2d 6e 6f 74 65 72 2d 2d 70 72 65 74 74 79 2d 70 72 69 6e 74 2d 6c 6f 63 61 74 69 6f 6e 2d 68 g-noter--pretty-print-location-h
0c60 6f 6f 6b 20 23 27 6f 72 67 2d 6e 6f 74 65 72 2d 64 6a 76 75 2d 2d 70 72 65 74 74 79 2d 70 72 69 ook.#'org-noter-djvu--pretty-pri
0c80 6e 74 2d 6c 6f 63 61 74 69 6f 6e 29 0a 28 61 64 64 2d 74 6f 2d 6c 69 73 74 20 27 6f 72 67 2d 6e nt-location).(add-to-list.'org-n
0ca0 6f 74 65 72 2d 2d 70 72 65 74 74 79 2d 70 72 69 6e 74 2d 6c 6f 63 61 74 69 6f 6e 2d 66 6f 72 2d oter--pretty-print-location-for-
0cc0 74 69 74 6c 65 2d 68 6f 6f 6b 20 23 27 6f 72 67 2d 6e 6f 74 65 72 2d 64 6a 76 75 2d 2d 70 72 65 title-hook.#'org-noter-djvu--pre
0ce0 74 74 79 2d 70 72 69 6e 74 2d 6c 6f 63 61 74 69 6f 6e 29 0a 0a 28 64 65 66 75 6e 20 6f 72 67 2d tty-print-location)..(defun.org-
0d00 6e 6f 74 65 72 2d 64 6a 76 75 2d 2d 61 70 70 72 6f 78 2d 6c 6f 63 61 74 69 6f 6e 2d 63 6f 6e 73 noter-djvu--approx-location-cons
0d20 20 28 6d 6f 64 65 20 26 6f 70 74 69 6f 6e 61 6c 20 70 72 65 63 69 73 65 2d 69 6e 66 6f 20 5f 66 .(mode.&optional.precise-info._f
0d40 6f 72 63 65 2d 6e 65 77 2d 72 65 66 29 0a 20 20 28 77 68 65 6e 20 28 65 71 20 6d 6f 64 65 20 27 orce-new-ref)...(when.(eq.mode.'
0d60 64 6a 76 75 2d 72 65 61 64 2d 6d 6f 64 65 29 0a 20 20 20 20 28 63 6f 6e 73 20 64 6a 76 75 2d 64 djvu-read-mode).....(cons.djvu-d
0d80 6f 63 2d 70 61 67 65 20 28 69 66 20 28 6f 72 20 28 6e 75 6d 62 65 72 70 20 70 72 65 63 69 73 65 oc-page.(if.(or.(numberp.precise
0da0 2d 69 6e 66 6f 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 -info)..........................
0dc0 20 20 20 20 20 20 20 28 61 6e 64 20 28 63 6f 6e 73 70 20 70 72 65 63 69 73 65 2d 69 6e 66 6f 29 .......(and.(consp.precise-info)
0de0 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 ................................
0e00 20 20 20 20 20 20 28 6e 75 6d 62 65 72 70 20 28 63 61 72 20 70 72 65 63 69 73 65 2d 69 6e 66 6f ......(numberp.(car.precise-info
0e20 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 ))..............................
0e40 20 20 20 20 20 20 20 20 28 6e 75 6d 62 65 72 70 20 28 63 64 72 20 70 72 65 63 69 73 65 2d 69 6e ........(numberp.(cdr.precise-in
0e60 66 6f 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 20 fo))))..........................
0e80 20 20 20 70 72 65 63 69 73 65 2d 69 6e 66 6f 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ...precise-info.................
0ea0 20 20 20 20 20 20 20 20 20 20 28 6d 61 78 20 31 20 28 2f 20 28 2b 20 28 77 69 6e 64 6f 77 2d 73 ..........(max.1.(/.(+.(window-s
0ec0 74 61 72 74 29 20 28 77 69 6e 64 6f 77 2d 65 6e 64 20 6e 69 6c 20 74 29 29 20 32 29 29 29 29 29 tart).(window-end.nil.t)).2)))))
0ee0 29 0a 0a 28 61 64 64 2d 74 6f 2d 6c 69 73 74 20 27 6f 72 67 2d 6e 6f 74 65 72 2d 2d 64 6f 63 2d )..(add-to-list.'org-noter--doc-
0f00 61 70 70 72 6f 78 2d 6c 6f 63 61 74 69 6f 6e 2d 68 6f 6f 6b 20 23 27 6f 72 67 2d 6e 6f 74 65 72 approx-location-hook.#'org-noter
0f20 2d 64 6a 76 75 2d 2d 61 70 70 72 6f 78 2d 6c 6f 63 61 74 69 6f 6e 2d 63 6f 6e 73 29 0a 0a 28 64 -djvu--approx-location-cons)..(d
0f40 65 66 75 6e 20 6f 72 67 2d 6e 6f 74 65 72 2d 64 6a 76 75 2d 2d 67 65 74 2d 70 72 65 63 69 73 65 efun.org-noter-djvu--get-precise
0f60 2d 69 6e 66 6f 20 28 6d 6f 64 65 20 77 69 6e 64 6f 77 29 0a 20 20 28 77 68 65 6e 20 28 65 71 20 -info.(mode.window)...(when.(eq.
0f80 6d 6f 64 65 20 27 64 6a 76 75 2d 72 65 61 64 2d 6d 6f 64 65 29 0a 20 20 20 20 28 69 66 20 28 72 mode.'djvu-read-mode).....(if.(r
0fa0 65 67 69 6f 6e 2d 61 63 74 69 76 65 2d 70 29 0a 20 20 20 20 20 20 20 20 28 63 6f 6e 73 20 28 6d egion-active-p).........(cons.(m
0fc0 61 72 6b 29 20 28 70 6f 69 6e 74 29 29 0a 20 20 20 20 20 20 28 6c 65 74 20 28 28 65 76 65 6e 74 ark).(point)).......(let.((event
0fe0 20 6e 69 6c 29 29 0a 20 20 20 20 20 20 20 20 28 77 68 69 6c 65 20 28 6e 6f 74 20 28 61 6e 64 20 .nil)).........(while.(not.(and.
1000 28 65 71 20 27 6d 6f 75 73 65 2d 31 20 28 63 61 72 20 65 76 65 6e 74 29 29 0a 20 20 20 20 20 20 (eq.'mouse-1.(car.event)).......
1020 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 65 71 20 77 69 6e 64 6f 77 20 28 70 ...................(eq.window.(p
1040 6f 73 6e 2d 77 69 6e 64 6f 77 20 28 65 76 65 6e 74 2d 73 74 61 72 74 20 65 76 65 6e 74 29 29 29 osn-window.(event-start.event)))
1060 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 65 76 65 6e 74 20 28 72 65 61 64 2d 65 ))...........(setq.event.(read-e
1080 76 65 6e 74 20 22 43 6c 69 63 6b 20 77 68 65 72 65 20 79 6f 75 20 77 61 6e 74 20 74 68 65 20 73 vent."Click.where.you.want.the.s
10a0 74 61 72 74 20 6f 66 20 74 68 65 20 6e 6f 74 65 20 74 6f 20 62 65 21 22 29 29 29 0a 20 20 20 20 tart.of.the.note.to.be!"))).....
10c0 20 20 20 20 28 70 6f 73 6e 2d 70 6f 69 6e 74 20 28 65 76 65 6e 74 2d 73 74 61 72 74 20 65 76 65 ....(posn-point.(event-start.eve
10e0 6e 74 29 29 29 29 29 29 0a 0a 28 61 64 64 2d 74 6f 2d 6c 69 73 74 20 27 6f 72 67 2d 6e 6f 74 65 nt))))))..(add-to-list.'org-note
1100 72 2d 2d 67 65 74 2d 70 72 65 63 69 73 65 2d 69 6e 66 6f 2d 68 6f 6f 6b 20 23 27 6f 72 67 2d 6e r--get-precise-info-hook.#'org-n
1120 6f 74 65 72 2d 64 6a 76 75 2d 2d 67 65 74 2d 70 72 65 63 69 73 65 2d 69 6e 66 6f 29 0a 0a 28 64 oter-djvu--get-precise-info)..(d
1140 65 66 75 6e 20 6f 72 67 2d 6e 6f 74 65 72 2d 64 6a 76 75 2d 2d 73 65 74 75 70 2d 68 61 6e 64 6c efun.org-noter-djvu--setup-handl
1160 65 72 20 28 6d 6f 64 65 29 0a 20 20 28 77 68 65 6e 20 28 65 71 20 6d 6f 64 65 20 27 64 6a 76 75 er.(mode)...(when.(eq.mode.'djvu
1180 2d 72 65 61 64 2d 6d 6f 64 65 29 0a 20 20 20 20 28 61 64 76 69 63 65 2d 61 64 64 20 27 64 6a 76 -read-mode).....(advice-add.'djv
11a0 75 2d 69 6e 69 74 2d 70 61 67 65 20 3a 61 66 74 65 72 20 27 6f 72 67 2d 6e 6f 74 65 72 2d 2d 6c u-init-page.:after.'org-noter--l
11c0 6f 63 61 74 69 6f 6e 2d 63 68 61 6e 67 65 2d 61 64 76 69 63 65 29 0a 20 20 20 20 74 29 29 0a 0a ocation-change-advice).....t))..
11e0 28 61 64 64 2d 74 6f 2d 6c 69 73 74 20 27 6f 72 67 2d 6e 6f 74 65 72 2d 73 65 74 2d 75 70 2d 64 (add-to-list.'org-noter-set-up-d
1200 6f 63 75 6d 65 6e 74 2d 68 6f 6f 6b 20 23 27 6f 72 67 2d 6e 6f 74 65 72 2d 64 6a 76 75 2d 2d 73 ocument-hook.#'org-noter-djvu--s
1220 65 74 75 70 2d 68 61 6e 64 6c 65 72 29 0a 0a 28 64 65 66 75 6e 20 6f 72 67 2d 6e 6f 74 65 72 2d etup-handler)..(defun.org-noter-
1240 64 6a 76 75 2d 2d 67 6f 74 6f 2d 6c 6f 63 61 74 69 6f 6e 20 28 6d 6f 64 65 20 6c 6f 63 61 74 69 djvu--goto-location.(mode.locati
1260 6f 6e 20 26 6f 70 74 69 6f 6e 61 6c 20 77 69 6e 64 6f 77 29 0a 20 20 22 44 4a 56 55 20 6d 6f 64 on.&optional.window)..."DJVU.mod
1280 65 20 66 75 6e 63 74 69 6f 6e 20 66 6f 72 20 60 6f 72 67 2d 6e 6f 74 65 72 2d 2d 64 6f 63 2d 67 e.function.for.`org-noter--doc-g
12a0 6f 74 6f 2d 6c 6f 63 61 74 69 6f 6e 2d 68 6f 6f 6b 27 2e 0a 4d 4f 44 45 20 69 73 20 74 68 65 20 oto-location-hook'..MODE.is.the.
12c0 64 6f 63 75 6d 65 6e 74 20 6d 6f 64 65 20 61 6e 64 20 4c 4f 43 41 54 49 4f 4e 20 69 73 20 74 68 document.mode.and.LOCATION.is.th
12e0 65 20 6e 6f 74 65 20 6c 6f 63 61 74 69 6f 6e 2e 0a 57 49 4e 44 4f 57 20 69 73 20 72 65 71 75 69 e.note.location..WINDOW.is.requi
1300 72 65 64 20 62 79 20 74 68 65 20 68 6f 6f 6b 2c 20 62 75 74 20 6e 6f 74 20 75 73 65 64 20 69 6e red.by.the.hook,.but.not.used.in
1320 20 74 68 69 73 20 66 75 6e 63 74 69 6f 6e 2e 22 0a 20 20 28 77 68 65 6e 20 28 65 71 20 6d 6f 64 .this.function."...(when.(eq.mod
1340 65 20 27 64 6a 76 75 2d 72 65 61 64 2d 6d 6f 64 65 29 0a 20 20 20 20 28 64 6a 76 75 2d 67 6f 74 e.'djvu-read-mode).....(djvu-got
1360 6f 2d 70 61 67 65 20 28 63 61 72 20 6c 6f 63 61 74 69 6f 6e 29 29 0a 20 20 20 20 28 67 6f 74 6f o-page.(car.location)).....(goto
1380 2d 63 68 61 72 20 28 6f 72 67 2d 6e 6f 74 65 72 2d 2d 67 65 74 2d 6c 6f 63 61 74 69 6f 6e 2d 74 -char.(org-noter--get-location-t
13a0 6f 70 20 6c 6f 63 61 74 69 6f 6e 29 29 29 29 0a 0a 28 61 64 64 2d 74 6f 2d 6c 69 73 74 20 27 6f op.location))))..(add-to-list.'o
13c0 72 67 2d 6e 6f 74 65 72 2d 2d 64 6f 63 2d 67 6f 74 6f 2d 6c 6f 63 61 74 69 6f 6e 2d 68 6f 6f 6b rg-noter--doc-goto-location-hook
13e0 20 23 27 6f 72 67 2d 6e 6f 74 65 72 2d 64 6a 76 75 2d 2d 67 6f 74 6f 2d 6c 6f 63 61 74 69 6f 6e .#'org-noter-djvu--goto-location
1400 29 0a 0a 28 64 65 66 75 6e 20 6f 72 67 2d 6e 6f 74 65 72 2d 64 6a 76 75 2d 2d 67 65 74 2d 63 75 )..(defun.org-noter-djvu--get-cu
1420 72 72 65 6e 74 2d 76 69 65 77 20 28 6d 6f 64 65 29 0a 20 20 28 77 68 65 6e 20 28 65 71 20 6d 6f rrent-view.(mode)...(when.(eq.mo
1440 64 65 20 27 64 6a 76 75 2d 72 65 61 64 2d 6d 6f 64 65 29 0a 20 20 20 20 28 76 65 63 74 6f 72 20 de.'djvu-read-mode).....(vector.
1460 27 70 61 67 65 64 20 28 63 61 72 20 28 6f 72 67 2d 6e 6f 74 65 72 2d 64 6a 76 75 2d 2d 61 70 70 'paged.(car.(org-noter-djvu--app
1480 72 6f 78 2d 6c 6f 63 61 74 69 6f 6e 2d 63 6f 6e 73 20 6d 6f 64 65 29 29 29 29 29 0a 0a 28 61 64 rox-location-cons.mode)))))..(ad
14a0 64 2d 74 6f 2d 6c 69 73 74 20 27 6f 72 67 2d 6e 6f 74 65 72 2d 2d 67 65 74 2d 63 75 72 72 65 6e d-to-list.'org-noter--get-curren
14c0 74 2d 76 69 65 77 2d 68 6f 6f 6b 20 23 27 6f 72 67 2d 6e 6f 74 65 72 2d 64 6a 76 75 2d 2d 67 65 t-view-hook.#'org-noter-djvu--ge
14e0 74 2d 63 75 72 72 65 6e 74 2d 76 69 65 77 29 0a 0a 28 64 65 66 75 6e 20 6f 72 67 2d 6e 6f 74 65 t-current-view)..(defun.org-note
1500 72 2d 64 6a 76 75 2d 2d 67 65 74 2d 73 65 6c 65 63 74 65 64 2d 74 65 78 74 20 28 6d 6f 64 65 29 r-djvu--get-selected-text.(mode)
1520 0a 20 20 28 77 68 65 6e 20 28 61 6e 64 20 28 65 71 20 6d 6f 64 65 20 27 64 6a 76 75 2d 72 65 61 ...(when.(and.(eq.mode.'djvu-rea
1540 64 2d 6d 6f 64 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 72 65 67 69 6f 6e 2d 61 63 74 d-mode)..............(region-act
1560 69 76 65 2d 70 29 29 0a 20 20 20 20 28 62 75 66 66 65 72 2d 73 75 62 73 74 72 69 6e 67 2d 6e 6f ive-p)).....(buffer-substring-no
1580 2d 70 72 6f 70 65 72 74 69 65 73 20 28 6d 61 72 6b 29 20 28 70 6f 69 6e 74 29 29 29 29 0a 0a 28 -properties.(mark).(point))))..(
15a0 61 64 64 2d 74 6f 2d 6c 69 73 74 20 27 6f 72 67 2d 6e 6f 74 65 72 2d 67 65 74 2d 73 65 6c 65 63 add-to-list.'org-noter-get-selec
15c0 74 65 64 2d 74 65 78 74 2d 68 6f 6f 6b 20 23 27 6f 72 67 2d 6e 6f 74 65 72 2d 64 6a 76 75 2d 2d ted-text-hook.#'org-noter-djvu--
15e0 67 65 74 2d 73 65 6c 65 63 74 65 64 2d 74 65 78 74 29 0a 0a 28 64 65 66 75 6e 20 6f 72 67 2d 6e get-selected-text)..(defun.org-n
1600 6f 74 65 72 2d 64 6a 76 75 2d 2d 63 72 65 61 74 65 2d 73 6b 65 6c 65 74 6f 6e 20 28 6d 6f 64 65 oter-djvu--create-skeleton.(mode
1620 29 0a 20 20 28 77 68 65 6e 20 28 65 71 20 6d 6f 64 65 20 27 64 6a 76 75 2d 72 65 61 64 2d 6d 6f )...(when.(eq.mode.'djvu-read-mo
1640 64 65 29 0a 20 20 20 20 28 6f 72 67 2d 6e 6f 74 65 72 2d 2d 77 69 74 68 2d 76 61 6c 69 64 2d 73 de).....(org-noter--with-valid-s
1660 65 73 73 69 6f 6e 0a 20 20 20 20 20 28 6c 65 74 2a 20 28 28 61 73 74 20 28 6f 72 67 2d 6e 6f 74 ession......(let*.((ast.(org-not
1680 65 72 2d 2d 70 61 72 73 65 2d 72 6f 6f 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 74 6f er--parse-root)).............(to
16a0 70 2d 6c 65 76 65 6c 20 28 6f 72 20 28 6f 72 67 2d 65 6c 65 6d 65 6e 74 2d 70 72 6f 70 65 72 74 p-level.(or.(org-element-propert
16c0 79 20 3a 6c 65 76 65 6c 20 61 73 74 29 20 30 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 6f 75 y.:level.ast).0)).............ou
16e0 74 70 75 74 2d 64 61 74 61 29 0a 20 20 20 20 20 20 20 28 72 65 71 75 69 72 65 20 27 74 68 69 6e tput-data)........(require.'thin
1700 67 61 74 70 74 29 0a 20 20 20 20 20 20 20 28 77 69 74 68 2d 63 75 72 72 65 6e 74 2d 62 75 66 66 gatpt)........(with-current-buff
1720 65 72 20 28 64 6a 76 75 2d 72 65 66 20 6f 75 74 6c 69 6e 65 2d 62 75 66 29 0a 20 20 20 20 20 20 er.(djvu-ref.outline-buf).......
1740 20 20 20 28 75 6e 6c 65 73 73 20 28 73 74 72 69 6e 67 3d 20 28 62 75 66 66 65 72 2d 73 74 72 69 ...(unless.(string=.(buffer-stri
1760 6e 67 29 20 22 22 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 70 75 73 68 20 28 76 65 63 74 6f 72 ng)."")............(push.(vector
1780 20 22 53 6b 65 6c 65 74 6f 6e 22 20 6e 69 6c 20 31 29 20 6f 75 74 70 75 74 2d 64 61 74 61 29 0a ."Skeleton".nil.1).output-data).
17a0 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 0a 20 20 20 20 20 ...........(save-excursion......
17c0 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 6d 69 6e 29 29 0a ........(goto-char.(point-min)).
17e0 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 68 69 6c 65 20 28 6e 6f 74 20 28 6c 6f 6f 6b 69 6e .............(while.(not.(lookin
1800 67 2d 61 74 20 22 5e 24 22 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 75 73 68 g-at."^$"))................(push
1820 20 28 76 65 63 74 6f 72 20 28 73 74 72 69 6e 67 2d 74 72 69 6d 2d 72 69 67 68 74 20 28 73 74 72 .(vector.(string-trim-right.(str
1840 69 6e 67 2d 74 72 69 6d 20 28 74 68 69 6e 67 2d 61 74 2d 70 6f 69 6e 74 20 27 6c 69 6e 65 20 74 ing-trim.(thing-at-point.'line.t
1860 29 29 20 22 20 5b 5b 3a 64 69 67 69 74 3a 5d 5d 2b 22 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 )).".[[:digit:]]+").............
1880 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 69 73 74 20 28 73 74 72 69 6e 67 2d 74 .................(list.(string-t
18a0 72 69 6d 2d 6c 65 66 74 20 28 73 74 72 69 6e 67 2d 74 72 69 6d 20 28 74 68 69 6e 67 2d 61 74 2d rim-left.(string-trim.(thing-at-
18c0 70 6f 69 6e 74 20 27 6c 69 6e 65 20 74 29 29 20 22 2e 2a 20 22 29 29 0a 20 20 20 20 20 20 20 20 point.'line.t)).".*.")).........
18e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 2b 20 32 20 28 68 6f 77 2d 6d .....................(+.2.(how-m
1900 61 6e 79 20 22 20 20 22 20 28 70 6f 69 6e 74 2d 61 74 2d 62 6f 6c 29 20 28 70 6f 69 6e 74 2d 61 any."..".(point-at-bol).(point-a
1920 74 2d 65 6f 6c 29 29 29 29 20 6f 75 74 70 75 74 2d 64 61 74 61 29 0a 20 20 20 20 20 20 20 20 20 t-eol)))).output-data)..........
1940 20 20 20 20 20 20 28 66 6f 72 77 61 72 64 2d 6c 69 6e 65 29 29 29 29 29 0a 0a 20 20 20 20 20 20 ......(forward-line)))))........
1960 20 28 77 69 74 68 2d 63 75 72 72 65 6e 74 2d 62 75 66 66 65 72 20 28 6f 72 67 2d 6e 6f 74 65 72 .(with-current-buffer.(org-noter
1980 2d 2d 73 65 73 73 69 6f 6e 2d 6e 6f 74 65 73 2d 62 75 66 66 65 72 20 73 65 73 73 69 6f 6e 29 0a --session-notes-buffer.session).
19a0 20 20 20 20 20 20 20 20 20 3b 3b 20 4e 4f 54 45 28 6e 6f 78 29 3a 20 6f 72 67 2d 77 69 74 68 2d .........;;.NOTE(nox):.org-with-
19c0 77 69 64 65 2d 62 75 66 66 65 72 20 63 61 6e 27 74 20 62 65 20 75 73 65 64 20 62 65 63 61 75 73 wide-buffer.can't.be.used.becaus
19e0 65 20 77 65 20 77 61 6e 74 20 74 6f 20 72 65 73 65 74 20 74 68 65 0a 20 20 20 20 20 20 20 20 20 e.we.want.to.reset.the..........
1a00 3b 3b 20 6e 61 72 72 6f 77 20 72 65 67 69 6f 6e 20 74 6f 20 69 6e 63 6c 75 64 65 20 74 68 65 20 ;;.narrow.region.to.include.the.
1a20 6e 65 77 20 68 65 61 64 69 6e 67 73 0a 20 20 20 20 20 20 20 20 20 28 77 69 64 65 6e 29 0a 20 20 new.headings..........(widen)...
1a40 20 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 .......(save-excursion..........
1a60 20 20 28 67 6f 74 6f 2d 63 68 61 72 20 28 6f 72 67 2d 65 6c 65 6d 65 6e 74 2d 70 72 6f 70 65 72 ..(goto-char.(org-element-proper
1a80 74 79 20 3a 65 6e 64 20 61 73 74 29 29 0a 0a 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 ty.:end.ast)).............(let.(
1aa0 6c 61 73 74 2d 61 62 73 6f 6c 75 74 65 2d 6c 65 76 65 6c 0a 20 20 20 20 20 20 20 20 20 20 20 20 last-absolute-level.............
1ac0 20 20 20 20 20 74 69 74 6c 65 20 6c 6f 63 61 74 69 6f 6e 20 72 65 6c 61 74 69 76 65 2d 6c 65 76 .....title.location.relative-lev
1ae0 65 6c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6c 65 76 65 6c 29 0a 0a 20 20 20 20 el..................level)......
1b00 20 20 20 20 20 20 20 20 20 28 64 6f 6c 69 73 74 20 28 64 61 74 61 20 28 6e 72 65 76 65 72 73 65 .........(dolist.(data.(nreverse
1b20 20 6f 75 74 70 75 74 2d 64 61 74 61 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 .output-data))................(s
1b40 65 74 71 20 74 69 74 6c 65 20 28 61 72 65 66 20 64 61 74 61 20 30 29 0a 20 20 20 20 20 20 20 20 etq.title.(aref.data.0).........
1b60 20 20 20 20 20 20 20 20 20 20 20 20 20 6c 6f 63 61 74 69 6f 6e 20 28 61 72 65 66 20 64 61 74 61 .............location.(aref.data
1b80 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 72 65 6c 61 74 69 76 .1)......................relativ
1ba0 65 2d 6c 65 76 65 6c 20 28 61 72 65 66 20 64 61 74 61 20 32 29 29 0a 0a 20 20 20 20 20 20 20 20 e-level.(aref.data.2))..........
1bc0 20 20 20 20 20 20 20 28 73 65 74 71 20 6c 61 73 74 2d 61 62 73 6f 6c 75 74 65 2d 6c 65 76 65 6c .......(setq.last-absolute-level
1be0 20 28 2b 20 74 6f 70 2d 6c 65 76 65 6c 20 72 65 6c 61 74 69 76 65 2d 6c 65 76 65 6c 29 0a 20 20 .(+.top-level.relative-level)...
1c00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6c 65 76 65 6c 20 6c 61 73 74 2d 61 62 ...................level.last-ab
1c20 73 6f 6c 75 74 65 2d 6c 65 76 65 6c 29 0a 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6f solute-level).................(o
1c40 72 67 2d 6e 6f 74 65 72 2d 2d 69 6e 73 65 72 74 2d 68 65 61 64 69 6e 67 20 6c 65 76 65 6c 20 74 rg-noter--insert-heading.level.t
1c60 69 74 6c 65 29 0a 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 6c 6f 63 61 itle).................(when.loca
1c80 74 69 6f 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6f 72 67 2d 65 6e 74 72 79 tion..................(org-entry
1ca0 2d 70 75 74 20 6e 69 6c 20 6f 72 67 2d 6e 6f 74 65 72 2d 70 72 6f 70 65 72 74 79 2d 6e 6f 74 65 -put.nil.org-noter-property-note
1cc0 2d 6c 6f 63 61 74 69 6f 6e 20 28 6f 72 67 2d 6e 6f 74 65 72 2d 2d 70 72 65 74 74 79 2d 70 72 69 -location.(org-noter--pretty-pri
1ce0 6e 74 2d 6c 6f 63 61 74 69 6f 6e 20 6c 6f 63 61 74 69 6f 6e 29 29 29 0a 0a 20 20 20 20 20 20 20 nt-location.location))).........
1d00 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 6f 72 67 2d 6e 6f 74 65 72 2d 64 6f 63 2d 70 72 6f 70 ........(when.org-noter-doc-prop
1d20 65 72 74 79 2d 69 6e 2d 6e 6f 74 65 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 erty-in-notes..................(
1d40 6f 72 67 2d 65 6e 74 72 79 2d 70 75 74 20 6e 69 6c 20 6f 72 67 2d 6e 6f 74 65 72 2d 70 72 6f 70 org-entry-put.nil.org-noter-prop
1d60 65 72 74 79 2d 64 6f 63 2d 66 69 6c 65 20 28 6f 72 67 2d 6e 6f 74 65 72 2d 2d 73 65 73 73 69 6f erty-doc-file.(org-noter--sessio
1d80 6e 2d 70 72 6f 70 65 72 74 79 2d 74 65 78 74 20 73 65 73 73 69 6f 6e 29 29 0a 20 20 20 20 20 20 n-property-text.session)).......
1da0 20 20 20 20 20 20 20 20 20 20 20 28 6f 72 67 2d 65 6e 74 72 79 2d 70 75 74 20 6e 69 6c 20 6f 72 ...........(org-entry-put.nil.or
1dc0 67 2d 6e 6f 74 65 72 2d 2d 70 72 6f 70 65 72 74 79 2d 61 75 74 6f 2d 73 61 76 65 2d 6c 61 73 74 g-noter--property-auto-save-last
1de0 2d 6c 6f 63 61 74 69 6f 6e 20 22 6e 69 6c 22 29 29 29 29 0a 0a 20 20 20 20 20 20 20 20 20 20 20 -location."nil")))).............
1e00 28 73 65 74 71 20 61 73 74 20 28 6f 72 67 2d 6e 6f 74 65 72 2d 2d 70 61 72 73 65 2d 72 6f 6f 74 (setq.ast.(org-noter--parse-root
1e20 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 6f 72 67 2d 6e 6f 74 65 72 2d 2d 6e 61 72 72 6f 77 ))............(org-noter--narrow
1e40 2d 74 6f 2d 72 6f 6f 74 20 61 73 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 67 6f 74 6f 2d 63 -to-root.ast)............(goto-c
1e60 68 61 72 20 28 6f 72 67 2d 65 6c 65 6d 65 6e 74 2d 70 72 6f 70 65 72 74 79 20 3a 62 65 67 69 6e har.(org-element-property.:begin
1e80 20 61 73 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 28 6f 72 67 2d 61 74 2d .ast))............(when.(org-at-
1ea0 68 65 61 64 69 6e 67 2d 70 29 20 28 6f 75 74 6c 69 6e 65 2d 68 69 64 65 2d 73 75 62 74 72 65 65 heading-p).(outline-hide-subtree
1ec0 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 6f 72 67 2d 73 68 6f 77 2d 63 68 69 6c 64 72 65 6e ))............(org-show-children
1ee0 20 32 29 29 29 0a 20 20 20 20 20 20 20 6f 75 74 70 75 74 2d 64 61 74 61 29 29 29 29 0a 0a 28 61 .2)))........output-data))))..(a
1f00 64 64 2d 74 6f 2d 6c 69 73 74 20 27 6f 72 67 2d 6e 6f 74 65 72 2d 63 72 65 61 74 65 2d 73 6b 65 dd-to-list.'org-noter-create-ske
1f20 6c 65 74 6f 6e 2d 66 75 6e 63 74 69 6f 6e 73 20 23 27 6f 72 67 2d 6e 6f 74 65 72 2d 64 6a 76 75 leton-functions.#'org-noter-djvu
1f40 2d 2d 63 72 65 61 74 65 2d 73 6b 65 6c 65 74 6f 6e 29 0a 0a 28 70 72 6f 76 69 64 65 20 27 6f 72 --create-skeleton)..(provide.'or
1f60 67 2d 6e 6f 74 65 72 2d 64 6a 76 75 29 0a 3b 3b 3b 20 6f 72 67 2d 6e 6f 74 65 72 2d 64 6a 76 75 g-noter-djvu).;;;.org-noter-djvu
1f80 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...................
1fa0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
1fc0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
1fe0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
2000 6f 72 67 2d 6e 6f 74 65 72 2d 32 30 32 34 30 39 31 38 2e 31 37 30 33 2f 6d 6f 64 75 6c 65 73 2f org-noter-20240918.1703/modules/
2020 6f 72 67 2d 6e 6f 74 65 72 2d 6e 6f 76 2e 65 6c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 org-noter-nov.el................
2040 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
2060 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
2080 30 30 32 31 33 30 30 00 30 30 30 30 30 30 30 30 30 30 30 00 30 31 37 34 33 33 00 20 30 00 00 00 0021300.00000000000.017433..0...
20a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
20c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
20e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
2100 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...................
2120 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...................
2140 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
2160 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
2180 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
21a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
21c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
21e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
2200 3b 3b 3b 20 6f 72 67 2d 6e 6f 74 65 72 2d 6e 6f 76 2e 65 6c 20 2d 2d 2d 20 49 6e 74 65 67 72 61 ;;;.org-noter-nov.el.---.Integra
2220 74 69 6f 6e 20 77 69 74 68 20 4e 6f 76 2e 65 6c 20 20 20 20 20 2d 2a 2d 20 6c 65 78 69 63 61 6c tion.with.Nov.el.....-*-.lexical
2240 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 20 28 -binding:.t;.-*-..;;.Copyright.(
2260 43 29 20 32 30 32 32 20 20 63 31 2d 67 0a 0a 3b 3b 20 41 75 74 68 6f 72 3a 20 63 31 2d 67 20 3c C).2022..c1-g..;;.Author:.c1-g.<
2280 63 68 61 72 31 69 65 67 6f 72 64 6f 6e 40 70 72 6f 74 6f 6e 6d 61 69 6c 2e 63 6f 6d 3e 0a 3b 3b char1iegordon@protonmail.com>.;;
22a0 20 4b 65 79 77 6f 72 64 73 3a 20 6d 75 6c 74 69 6d 65 64 69 61 0a 0a 3b 3b 20 54 68 69 73 20 70 .Keywords:.multimedia..;;.This.p
22c0 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 61 6e rogram.is.free.software;.you.can
22e0 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 0a 3b .redistribute.it.and/or.modify.;
2300 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 55 20 ;.it.under.the.terms.of.the.GNU.
2320 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 69 73 General.Public.License.as.publis
2340 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 75 6e hed.by.;;.the.Free.Software.Foun
2360 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 65 20 dation,.either.version.3.of.the.
2380 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 29 20 License,.or.;;.(at.your.option).
23a0 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 6f 67 any.later.version...;;.This.prog
23c0 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 20 74 ram.is.distributed.in.the.hope.t
23e0 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 57 49 hat.it.will.be.useful,.;;.but.WI
2400 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 65 6e THOUT.ANY.WARRANTY;.without.even
2420 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 52 43 .the.implied.warranty.of.;;.MERC
2440 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 41 52 HANTABILITY.or.FITNESS.FOR.A.PAR
2460 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 4e 55 TICULAR.PURPOSE...See.the.;;.GNU
2480 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 72 65 .General.Public.License.for.more
24a0 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 72 65 .details...;;.You.should.have.re
24c0 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 61 6c ceived.a.copy.of.the.GNU.General
24e0 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 74 68 .Public.License.;;.along.with.th
2500 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 73 3a is.program...If.not,.see.<https:
2520 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 20 43 //www.gnu.org/licenses/>...;;;.C
2540 6f 6d 6d 65 6e 74 61 72 79 3a 0a 0a 3b 3b 0a 0a 3b 3b 3b 20 43 6f 64 65 3a 0a 28 72 65 71 75 69 ommentary:..;;..;;;.Code:.(requi
2560 72 65 20 27 6f 72 67 2d 6e 6f 74 65 72 2d 63 6f 72 65 29 0a 0a 28 65 76 61 6c 2d 77 68 65 6e 2d re.'org-noter-core)..(eval-when-
2580 63 6f 6d 70 69 6c 65 20 3b 20 65 6e 73 75 72 65 20 74 68 61 74 20 74 68 65 20 63 6f 6d 70 69 6c compile.;.ensure.that.the.compil
25a0 65 64 20 63 6f 64 65 20 6b 6e 6f 77 73 20 61 62 6f 75 74 20 4e 4f 56 2c 20 69 66 20 69 6e 73 74 ed.code.knows.about.NOV,.if.inst
25c0 61 6c 6c 65 64 0a 20 20 28 63 6f 6e 64 69 74 69 6f 6e 2d 63 61 73 65 20 6e 69 6c 0a 20 20 20 20 alled...(condition-case.nil.....
25e0 20 20 28 72 65 71 75 69 72 65 20 27 6e 6f 76 29 0a 20 20 20 20 28 65 72 72 6f 72 20 28 6d 65 73 ..(require.'nov).....(error.(mes
2600 73 61 67 65 20 22 60 6e 6f 76 27 20 70 61 63 6b 61 67 65 20 6e 6f 74 20 66 6f 75 6e 64 22 29 29 sage."`nov'.package.not.found"))
2620 29 29 0a 28 63 6f 6e 64 69 74 69 6f 6e 2d 63 61 73 65 20 6e 69 6c 20 3b 20 72 75 6e 20 74 69 6d )).(condition-case.nil.;.run.tim
2640 65 20 77 61 72 6e 69 6e 67 0a 20 20 20 20 28 72 65 71 75 69 72 65 20 27 6e 6f 76 29 0a 20 20 28 e.warning.....(require.'nov)...(
2660 65 72 72 6f 72 20 28 6d 65 73 73 61 67 65 20 22 41 54 54 45 4e 54 49 4f 4e 3a 20 6f 72 67 2d 6e error.(message."ATTENTION:.org-n
2680 6f 74 65 72 2d 6e 6f 76 20 6e 65 65 64 73 20 74 68 65 20 70 61 63 6b 61 67 65 20 60 6e 6f 76 27 oter-nov.needs.the.package.`nov'
26a0 22 29 29 29 0a 0a 28 70 75 73 68 20 22 65 70 75 62 22 20 6f 72 67 2d 6e 6f 74 65 72 2d 2d 64 6f ")))..(push."epub".org-noter--do
26c0 63 2d 65 78 74 65 6e 73 69 6f 6e 73 29 0a 0a 28 64 65 66 76 61 72 20 6e 6f 76 2d 64 6f 63 75 6d c-extensions)..(defvar.nov-docum
26e0 65 6e 74 73 2d 69 6e 64 65 78 29 0a 28 64 65 66 76 61 72 20 6e 6f 76 2d 66 69 6c 65 2d 6e 61 6d ents-index).(defvar.nov-file-nam
2700 65 29 0a 28 64 65 66 76 61 72 2d 6c 6f 63 61 6c 20 6f 72 67 2d 6e 6f 74 65 72 2d 2d 6e 6f 76 2d e).(defvar-local.org-noter--nov-
2720 74 69 6d 65 72 20 6e 69 6c 0a 20 20 22 54 69 6d 65 72 20 66 6f 72 20 73 79 6e 63 68 72 6f 6e 69 timer.nil..."Timer.for.synchroni
2740 7a 69 6e 67 20 6e 6f 74 65 73 20 61 66 74 65 72 20 73 63 72 6f 6c 6c 69 6e 67 2e 22 29 0a 0a 28 zing.notes.after.scrolling.")..(
2760 64 65 66 75 6e 20 6f 72 67 2d 6e 6f 74 65 72 2d 6e 6f 76 2d 2d 67 65 74 2d 62 75 66 66 65 72 2d defun.org-noter-nov--get-buffer-
2780 66 69 6c 65 2d 6e 61 6d 65 20 28 26 6f 70 74 69 6f 6e 61 6c 20 5f 6d 6f 64 65 29 0a 20 20 28 62 file-name.(&optional._mode)...(b
27a0 6f 75 6e 64 2d 61 6e 64 2d 74 72 75 65 2d 70 20 6e 6f 76 2d 66 69 6c 65 2d 6e 61 6d 65 29 29 0a ound-and-true-p.nov-file-name)).
27c0 0a 28 61 64 64 2d 74 6f 2d 6c 69 73 74 20 27 6f 72 67 2d 6e 6f 74 65 72 2d 67 65 74 2d 62 75 66 .(add-to-list.'org-noter-get-buf
27e0 66 65 72 2d 66 69 6c 65 2d 6e 61 6d 65 2d 68 6f 6f 6b 20 23 27 6f 72 67 2d 6e 6f 74 65 72 2d 6e fer-file-name-hook.#'org-noter-n
2800 6f 76 2d 2d 67 65 74 2d 62 75 66 66 65 72 2d 66 69 6c 65 2d 6e 61 6d 65 29 0a 0a 28 64 65 66 75 ov--get-buffer-file-name)..(defu
2820 6e 20 6f 72 67 2d 6e 6f 74 65 72 2d 6e 6f 76 2d 2d 61 70 70 72 6f 78 2d 6c 6f 63 61 74 69 6f 6e n.org-noter-nov--approx-location
2840 2d 63 6f 6e 73 20 28 6d 6f 64 65 20 26 6f 70 74 69 6f 6e 61 6c 20 70 72 65 63 69 73 65 2d 69 6e -cons.(mode.&optional.precise-in
2860 66 6f 20 5f 66 6f 72 63 65 2d 6e 65 77 2d 72 65 66 29 0a 20 20 28 77 68 65 6e 20 28 65 71 20 6d fo._force-new-ref)...(when.(eq.m
2880 6f 64 65 20 27 6e 6f 76 2d 6d 6f 64 65 29 0a 20 20 20 20 28 63 6f 6e 73 20 6e 6f 76 2d 64 6f 63 ode.'nov-mode).....(cons.nov-doc
28a0 75 6d 65 6e 74 73 2d 69 6e 64 65 78 20 28 69 66 20 28 6f 72 20 28 6e 75 6d 62 65 72 70 20 70 72 uments-index.(if.(or.(numberp.pr
28c0 65 63 69 73 65 2d 69 6e 66 6f 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ecise-info).....................
28e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 61 6e 64 20 28 63 6f 6e 73 70 20 70 72 ..................(and.(consp.pr
2900 65 63 69 73 65 2d 69 6e 66 6f 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ecise-info).....................
2920 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6e 75 6d 62 65 72 70 20 .......................(numberp.
2940 28 63 61 72 20 70 72 65 63 69 73 65 2d 69 6e 66 6f 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 (car.precise-info)).............
2960 20 20 20 20 20 20 20 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 ...............................(
2980 6e 75 6d 62 65 72 70 20 28 63 64 72 20 70 72 65 63 69 73 65 2d 69 6e 66 6f 29 29 29 29 0a 20 20 numberp.(cdr.precise-info))))...
29a0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ................................
29c0 70 72 65 63 69 73 65 2d 69 6e 66 6f 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 precise-info....................
29e0 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6d 61 78 20 31 20 28 2f 20 28 2b 20 28 77 69 6e 64 6f .............(max.1.(/.(+.(windo
2a00 77 2d 73 74 61 72 74 29 20 28 77 69 6e 64 6f 77 2d 65 6e 64 20 6e 69 6c 20 74 29 29 20 32 29 29 w-start).(window-end.nil.t)).2))
2a20 29 29 29 29 0a 0a 28 61 64 64 2d 74 6f 2d 6c 69 73 74 20 27 6f 72 67 2d 6e 6f 74 65 72 2d 2d 64 ))))..(add-to-list.'org-noter--d
2a40 6f 63 2d 61 70 70 72 6f 78 2d 6c 6f 63 61 74 69 6f 6e 2d 68 6f 6f 6b 20 23 27 6f 72 67 2d 6e 6f oc-approx-location-hook.#'org-no
2a60 74 65 72 2d 6e 6f 76 2d 2d 61 70 70 72 6f 78 2d 6c 6f 63 61 74 69 6f 6e 2d 63 6f 6e 73 29 0a 0a ter-nov--approx-location-cons)..
2a80 28 64 65 66 75 6e 20 6f 72 67 2d 6e 6f 74 65 72 2d 6e 6f 76 2d 2d 73 63 72 6f 6c 6c 2d 68 61 6e (defun.org-noter-nov--scroll-han
2aa0 64 6c 65 72 20 28 26 72 65 73 74 20 5f 29 0a 20 20 28 77 68 65 6e 20 6f 72 67 2d 6e 6f 74 65 72 dler.(&rest._)...(when.org-noter
2ac0 2d 2d 6e 6f 76 2d 74 69 6d 65 72 20 28 63 61 6e 63 65 6c 2d 74 69 6d 65 72 20 6f 72 67 2d 6e 6f --nov-timer.(cancel-timer.org-no
2ae0 74 65 72 2d 2d 6e 6f 76 2d 74 69 6d 65 72 29 29 0a 20 20 28 75 6e 6c 65 73 73 20 6f 72 67 2d 6e ter--nov-timer))...(unless.org-n
2b00 6f 74 65 72 2d 2d 69 6e 68 69 62 69 74 2d 6c 6f 63 61 74 69 6f 6e 2d 63 68 61 6e 67 65 2d 68 61 oter--inhibit-location-change-ha
2b20 6e 64 6c 65 72 0a 20 20 20 20 28 73 65 74 71 20 6f 72 67 2d 6e 6f 74 65 72 2d 2d 6e 6f 76 2d 74 ndler.....(setq.org-noter--nov-t
2b40 69 6d 65 72 20 28 72 75 6e 2d 77 69 74 68 2d 74 69 6d 65 72 20 30 2e 32 35 20 6e 69 6c 20 27 6f imer.(run-with-timer.0.25.nil.'o
2b60 72 67 2d 6e 6f 74 65 72 2d 2d 64 6f 63 2d 6c 6f 63 61 74 69 6f 6e 2d 63 68 61 6e 67 65 2d 68 61 rg-noter--doc-location-change-ha
2b80 6e 64 6c 65 72 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 6f 72 67 2d 6e 6f 74 65 72 2d 6e 6f 76 2d ndler))))..(defun.org-noter-nov-
2ba0 2d 73 65 74 75 70 2d 68 61 6e 64 6c 65 72 20 28 6d 6f 64 65 29 0a 20 20 28 77 68 65 6e 20 28 65 -setup-handler.(mode)...(when.(e
2bc0 71 20 6d 6f 64 65 20 27 6e 6f 76 2d 6d 6f 64 65 29 0a 20 20 20 20 28 61 64 76 69 63 65 2d 61 64 q.mode.'nov-mode).....(advice-ad
2be0 64 20 27 6e 6f 76 2d 72 65 6e 64 65 72 2d 64 6f 63 75 6d 65 6e 74 20 3a 61 66 74 65 72 20 27 6f d.'nov-render-document.:after.'o
2c00 72 67 2d 6e 6f 74 65 72 2d 6e 6f 76 2d 2d 73 63 72 6f 6c 6c 2d 68 61 6e 64 6c 65 72 29 0a 20 20 rg-noter-nov--scroll-handler)...
2c20 20 20 28 61 64 64 2d 68 6f 6f 6b 20 27 77 69 6e 64 6f 77 2d 73 63 72 6f 6c 6c 2d 66 75 6e 63 74 ..(add-hook.'window-scroll-funct
2c40 69 6f 6e 73 20 27 6f 72 67 2d 6e 6f 74 65 72 2d 6e 6f 76 2d 2d 73 63 72 6f 6c 6c 2d 68 61 6e 64 ions.'org-noter-nov--scroll-hand
2c60 6c 65 72 20 6e 69 6c 20 74 29 0a 20 20 20 20 74 29 29 0a 0a 28 61 64 64 2d 74 6f 2d 6c 69 73 74 ler.nil.t).....t))..(add-to-list
2c80 20 27 6f 72 67 2d 6e 6f 74 65 72 2d 73 65 74 2d 75 70 2d 64 6f 63 75 6d 65 6e 74 2d 68 6f 6f 6b .'org-noter-set-up-document-hook
2ca0 20 23 27 6f 72 67 2d 6e 6f 74 65 72 2d 6e 6f 76 2d 2d 73 65 74 75 70 2d 68 61 6e 64 6c 65 72 29 .#'org-noter-nov--setup-handler)
2cc0 0a 0a 28 64 65 66 75 6e 20 6f 72 67 2d 6e 6f 74 65 72 2d 6e 6f 76 2d 2d 6e 6f 2d 73 65 73 73 69 ..(defun.org-noter-nov--no-sessi
2ce0 6f 6e 73 2d 72 65 6d 6f 76 65 2d 61 64 76 69 63 65 20 28 29 0a 20 20 22 52 65 6d 6f 76 65 20 6e ons-remove-advice.()..."Remove.n
2d00 6f 76 2d 73 70 65 63 69 66 69 63 20 61 64 76 69 63 65 20 77 68 65 6e 20 61 6c 6c 20 73 65 73 73 ov-specific.advice.when.all.sess
2d20 69 6f 6e 73 20 61 72 65 20 63 6c 6f 73 65 64 2e 22 0a 20 20 28 61 64 76 69 63 65 2d 72 65 6d 6f ions.are.closed."...(advice-remo
2d40 76 65 20 27 6e 6f 76 2d 72 65 6e 64 65 72 2d 64 6f 63 75 6d 65 6e 74 20 27 6f 72 67 2d 6e 6f 74 ve.'nov-render-document.'org-not
2d60 65 72 2d 6e 6f 76 2d 2d 73 63 72 6f 6c 6c 2d 68 61 6e 64 6c 65 72 29 29 0a 0a 28 61 64 64 2d 74 er-nov--scroll-handler))..(add-t
2d80 6f 2d 6c 69 73 74 20 27 6f 72 67 2d 6e 6f 74 65 72 2d 2d 6e 6f 2d 73 65 73 73 69 6f 6e 73 2d 72 o-list.'org-noter--no-sessions-r
2da0 65 6d 6f 76 65 2d 61 64 76 69 63 65 2d 68 6f 6f 6b 73 20 23 27 6f 72 67 2d 6e 6f 74 65 72 2d 6e emove-advice-hooks.#'org-noter-n
2dc0 6f 76 2d 2d 6e 6f 2d 73 65 73 73 69 6f 6e 73 2d 72 65 6d 6f 76 65 2d 61 64 76 69 63 65 29 0a 0a ov--no-sessions-remove-advice)..
2de0 28 64 65 66 75 6e 20 6f 72 67 2d 6e 6f 74 65 72 2d 6e 6f 76 2d 2d 70 72 65 74 74 79 2d 70 72 69 (defun.org-noter-nov--pretty-pri
2e00 6e 74 2d 6c 6f 63 61 74 69 6f 6e 20 28 6c 6f 63 61 74 69 6f 6e 29 0a 20 20 28 6f 72 67 2d 6e 6f nt-location.(location)...(org-no
2e20 74 65 72 2d 2d 77 69 74 68 2d 76 61 6c 69 64 2d 73 65 73 73 69 6f 6e 0a 20 20 20 28 77 68 65 6e ter--with-valid-session....(when
2e40 20 28 65 71 20 28 6f 72 67 2d 6e 6f 74 65 72 2d 2d 73 65 73 73 69 6f 6e 2d 64 6f 63 2d 6d 6f 64 .(eq.(org-noter--session-doc-mod
2e60 65 20 73 65 73 73 69 6f 6e 29 20 27 6e 6f 76 2d 6d 6f 64 65 29 0a 20 20 20 20 20 28 66 6f 72 6d e.session).'nov-mode)......(form
2e80 61 74 20 22 25 73 22 20 28 69 66 20 28 6f 72 20 28 6e 6f 74 20 28 6f 72 67 2d 6e 6f 74 65 72 2d at."%s".(if.(or.(not.(org-noter-
2ea0 2d 67 65 74 2d 6c 6f 63 61 74 69 6f 6e 2d 74 6f 70 20 6c 6f 63 61 74 69 6f 6e 29 29 20 28 3c 3d -get-location-top.location)).(<=
2ec0 20 28 6f 72 67 2d 6e 6f 74 65 72 2d 2d 67 65 74 2d 6c 6f 63 61 74 69 6f 6e 2d 74 6f 70 20 6c 6f .(org-noter--get-location-top.lo
2ee0 63 61 74 69 6f 6e 29 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 cation).1)).....................
2f00 20 20 28 6f 72 67 2d 6e 6f 74 65 72 2d 2d 67 65 74 2d 6c 6f 63 61 74 69 6f 6e 2d 70 61 67 65 20 ..(org-noter--get-location-page.
2f20 6c 6f 63 61 74 69 6f 6e 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6c 6f location).....................lo
2f40 63 61 74 69 6f 6e 29 29 29 29 29 0a 0a 28 61 64 64 2d 74 6f 2d 6c 69 73 74 20 27 6f 72 67 2d 6e cation)))))..(add-to-list.'org-n
2f60 6f 74 65 72 2d 2d 70 72 65 74 74 79 2d 70 72 69 6e 74 2d 6c 6f 63 61 74 69 6f 6e 2d 68 6f 6f 6b oter--pretty-print-location-hook
2f80 20 23 27 6f 72 67 2d 6e 6f 74 65 72 2d 6e 6f 76 2d 2d 70 72 65 74 74 79 2d 70 72 69 6e 74 2d 6c .#'org-noter-nov--pretty-print-l
2fa0 6f 63 61 74 69 6f 6e 29 0a 28 61 64 64 2d 74 6f 2d 6c 69 73 74 20 27 6f 72 67 2d 6e 6f 74 65 72 ocation).(add-to-list.'org-noter
2fc0 2d 2d 70 72 65 74 74 79 2d 70 72 69 6e 74 2d 6c 6f 63 61 74 69 6f 6e 2d 66 6f 72 2d 74 69 74 6c --pretty-print-location-for-titl
2fe0 65 2d 68 6f 6f 6b 20 23 27 6f 72 67 2d 6e 6f 74 65 72 2d 6e 6f 76 2d 2d 70 72 65 74 74 79 2d 70 e-hook.#'org-noter-nov--pretty-p
3000 72 69 6e 74 2d 6c 6f 63 61 74 69 6f 6e 29 0a 0a 28 64 65 66 75 6e 20 6f 72 67 2d 6e 6f 74 65 72 rint-location)..(defun.org-noter
3020 2d 6e 6f 76 2d 2d 67 65 74 2d 70 72 65 63 69 73 65 2d 69 6e 66 6f 20 28 6d 6f 64 65 20 77 69 6e -nov--get-precise-info.(mode.win
3040 64 6f 77 29 0a 20 20 28 77 68 65 6e 20 28 65 71 20 6d 6f 64 65 20 27 6e 6f 76 2d 6d 6f 64 65 29 dow)...(when.(eq.mode.'nov-mode)
3060 0a 20 20 20 20 28 69 66 20 28 72 65 67 69 6f 6e 2d 61 63 74 69 76 65 2d 70 29 0a 20 20 20 20 20 .....(if.(region-active-p)......
3080 20 20 20 28 63 6f 6e 73 20 28 6d 61 72 6b 29 20 28 70 6f 69 6e 74 29 29 0a 20 20 20 20 20 20 28 ...(cons.(mark).(point)).......(
30a0 6c 65 74 20 28 28 65 76 65 6e 74 20 6e 69 6c 29 29 0a 20 20 20 20 20 20 20 20 28 77 68 69 6c 65 let.((event.nil)).........(while
30c0 20 28 6e 6f 74 20 28 61 6e 64 20 28 65 71 20 27 6d 6f 75 73 65 2d 31 20 28 63 61 72 20 65 76 65 .(not.(and.(eq.'mouse-1.(car.eve
30e0 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 20 20 20 20 20 28 65 nt))..........................(e
3100 71 20 77 69 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 73 74 61 q.window.(posn-window.(event-sta
3120 72 74 20 65 76 65 6e 74 29 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 65 76 rt.event)))))...........(setq.ev
3140 65 6e 74 20 28 72 65 61 64 2d 65 76 65 6e 74 20 22 43 6c 69 63 6b 20 77 68 65 72 65 20 79 6f 75 ent.(read-event."Click.where.you
3160 20 77 61 6e 74 20 74 68 65 20 73 74 61 72 74 20 6f 66 20 74 68 65 20 6e 6f 74 65 20 74 6f 20 62 .want.the.start.of.the.note.to.b
3180 65 21 22 29 29 29 0a 20 20 20 20 20 20 20 20 28 70 6f 73 6e 2d 70 6f 69 6e 74 20 28 65 76 65 6e e!"))).........(posn-point.(even
31a0 74 2d 73 74 61 72 74 20 65 76 65 6e 74 29 29 29 29 29 29 0a 0a 28 61 64 64 2d 74 6f 2d 6c 69 73 t-start.event))))))..(add-to-lis
31c0 74 20 27 6f 72 67 2d 6e 6f 74 65 72 2d 2d 67 65 74 2d 70 72 65 63 69 73 65 2d 69 6e 66 6f 2d 68 t.'org-noter--get-precise-info-h
31e0 6f 6f 6b 20 23 27 6f 72 67 2d 6e 6f 74 65 72 2d 6e 6f 76 2d 2d 67 65 74 2d 70 72 65 63 69 73 65 ook.#'org-noter-nov--get-precise
3200 2d 69 6e 66 6f 29 0a 0a 28 64 65 66 75 6e 20 6f 72 67 2d 6e 6f 74 65 72 2d 6e 6f 76 2d 2d 67 6f -info)..(defun.org-noter-nov--go
3220 74 6f 2d 6c 6f 63 61 74 69 6f 6e 20 28 6d 6f 64 65 20 6c 6f 63 61 74 69 6f 6e 20 26 6f 70 74 69 to-location.(mode.location.&opti
3240 6f 6e 61 6c 20 5f 77 69 6e 64 6f 77 29 0a 20 20 28 77 68 65 6e 20 28 65 71 20 6d 6f 64 65 20 27 onal._window)...(when.(eq.mode.'
3260 6e 6f 76 2d 6d 6f 64 65 29 0a 20 20 20 20 28 73 65 74 71 20 6e 6f 76 2d 64 6f 63 75 6d 65 6e 74 nov-mode).....(setq.nov-document
3280 73 2d 69 6e 64 65 78 20 28 6f 72 67 2d 6e 6f 74 65 72 2d 2d 67 65 74 2d 6c 6f 63 61 74 69 6f 6e s-index.(org-noter--get-location
32a0 2d 70 61 67 65 20 6c 6f 63 61 74 69 6f 6e 29 29 0a 20 20 20 20 28 6e 6f 76 2d 72 65 6e 64 65 72 -page.location)).....(nov-render
32c0 2d 64 6f 63 75 6d 65 6e 74 29 0a 20 20 20 20 28 67 6f 74 6f 2d 63 68 61 72 20 28 6f 72 67 2d 6e -document).....(goto-char.(org-n
32e0 6f 74 65 72 2d 2d 67 65 74 2d 6c 6f 63 61 74 69 6f 6e 2d 74 6f 70 20 6c 6f 63 61 74 69 6f 6e 29 oter--get-location-top.location)
3300 29 0a 20 20 20 20 3b 3b 20 4e 4f 54 45 28 6e 6f 78 29 3a 20 54 68 69 73 20 6e 65 65 64 73 20 74 ).....;;.NOTE(nox):.This.needs.t
3320 6f 20 62 65 20 68 65 72 65 2c 20 62 65 63 61 75 73 65 20 69 74 20 77 6f 75 6c 64 20 62 65 20 69 o.be.here,.because.it.would.be.i
3340 73 73 75 65 64 20 61 6e 79 77 61 79 20 61 66 74 65 72 0a 20 20 20 20 3b 3b 20 65 76 65 72 79 74 ssued.anyway.after.....;;.everyt
3360 68 69 6e 67 20 61 6e 64 20 77 6f 75 6c 64 20 72 75 6e 20 6f 72 67 2d 6e 6f 74 65 72 2d 2d 6e 6f hing.and.would.run.org-noter--no
3380 76 2d 73 63 72 6f 6c 6c 2d 68 61 6e 64 6c 65 72 2e 0a 20 20 20 20 28 72 65 63 65 6e 74 65 72 29 v-scroll-handler......(recenter)
33a0 29 29 0a 0a 28 61 64 64 2d 74 6f 2d 6c 69 73 74 20 27 6f 72 67 2d 6e 6f 74 65 72 2d 2d 64 6f 63 ))..(add-to-list.'org-noter--doc
33c0 2d 67 6f 74 6f 2d 6c 6f 63 61 74 69 6f 6e 2d 68 6f 6f 6b 20 23 27 6f 72 67 2d 6e 6f 74 65 72 2d -goto-location-hook.#'org-noter-
33e0 6e 6f 76 2d 2d 67 6f 74 6f 2d 6c 6f 63 61 74 69 6f 6e 29 0a 0a 28 64 65 66 75 6e 20 6f 72 67 2d nov--goto-location)..(defun.org-
3400 6e 6f 74 65 72 2d 6e 6f 76 2d 2d 67 65 74 2d 63 75 72 72 65 6e 74 2d 76 69 65 77 20 28 6d 6f 64 noter-nov--get-current-view.(mod
3420 65 29 0a 20 20 28 77 68 65 6e 20 28 65 71 20 6d 6f 64 65 20 27 6e 6f 76 2d 6d 6f 64 65 29 0a 20 e)...(when.(eq.mode.'nov-mode)..
3440 20 20 20 28 76 65 63 74 6f 72 20 27 6e 6f 76 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 6f 72 67 ...(vector.'nov.............(org
3460 2d 6e 6f 74 65 72 2d 6e 6f 76 2d 2d 61 70 70 72 6f 78 2d 6c 6f 63 61 74 69 6f 6e 2d 63 6f 6e 73 -noter-nov--approx-location-cons
3480 20 6d 6f 64 65 20 28 77 69 6e 64 6f 77 2d 73 74 61 72 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 .mode.(window-start))...........
34a0 20 20 28 6f 72 67 2d 6e 6f 74 65 72 2d 6e 6f 76 2d 2d 61 70 70 72 6f 78 2d 6c 6f 63 61 74 69 6f ..(org-noter-nov--approx-locatio
34c0 6e 2d 63 6f 6e 73 20 6d 6f 64 65 20 28 77 69 6e 64 6f 77 2d 65 6e 64 20 6e 69 6c 20 74 29 29 29 n-cons.mode.(window-end.nil.t)))
34e0 29 29 0a 0a 28 61 64 64 2d 74 6f 2d 6c 69 73 74 20 27 6f 72 67 2d 6e 6f 74 65 72 2d 2d 67 65 74 ))..(add-to-list.'org-noter--get
3500 2d 63 75 72 72 65 6e 74 2d 76 69 65 77 2d 68 6f 6f 6b 20 23 27 6f 72 67 2d 6e 6f 74 65 72 2d 6e -current-view-hook.#'org-noter-n
3520 6f 76 2d 2d 67 65 74 2d 63 75 72 72 65 6e 74 2d 76 69 65 77 29 0a 0a 28 64 65 66 75 6e 20 6f 72 ov--get-current-view)..(defun.or
3540 67 2d 6e 6f 74 65 72 2d 6e 6f 76 2d 2d 67 65 74 2d 73 65 6c 65 63 74 65 64 2d 74 65 78 74 20 28 g-noter-nov--get-selected-text.(
3560 6d 6f 64 65 29 0a 20 20 28 77 68 65 6e 20 28 61 6e 64 20 28 65 71 20 6d 6f 64 65 20 27 6e 6f 76 mode)...(when.(and.(eq.mode.'nov
3580 2d 6d 6f 64 65 29 20 28 72 65 67 69 6f 6e 2d 61 63 74 69 76 65 2d 70 29 29 0a 20 20 20 20 28 62 -mode).(region-active-p)).....(b
35a0 75 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 6d uffer-substring-no-properties.(m
35c0 61 72 6b 29 20 28 70 6f 69 6e 74 29 29 29 29 0a 0a 28 61 64 64 2d 74 6f 2d 6c 69 73 74 20 27 6f ark).(point))))..(add-to-list.'o
35e0 72 67 2d 6e 6f 74 65 72 2d 67 65 74 2d 73 65 6c 65 63 74 65 64 2d 74 65 78 74 2d 68 6f 6f 6b 20 rg-noter-get-selected-text-hook.
3600 23 27 6f 72 67 2d 6e 6f 74 65 72 2d 6e 6f 76 2d 2d 67 65 74 2d 73 65 6c 65 63 74 65 64 2d 74 65 #'org-noter-nov--get-selected-te
3620 78 74 29 0a 0a 0a 3b 3b 20 53 68 61 6d 65 6c 65 73 73 6c 79 20 73 74 6f 6c 65 6e 20 63 6f 64 65 xt)...;;.Shamelessly.stolen.code
3640 20 66 72 6f 6d 20 59 75 63 68 65 6e 20 4c 69 2e 0a 3b 3b 20 54 68 69 73 20 63 6f 64 65 20 69 73 .from.Yuchen.Li..;;.This.code.is
3660 20 6f 72 69 67 69 6e 61 6c 6c 79 20 66 72 6f 6d 20 6f 72 67 2d 6e 6f 74 65 72 2d 70 6c 75 73 20 .originally.from.org-noter-plus.
3680 70 61 63 6b 61 67 65 2e 0a 3b 3b 20 41 74 20 68 74 74 70 73 3a 2f 2f 67 69 74 68 75 62 2e 63 6f package..;;.At.https://github.co
36a0 6d 2f 79 75 63 68 65 6e 2d 6c 65 61 2f 6f 72 67 2d 6e 6f 74 65 72 2d 70 6c 75 73 0a 0a 28 64 65 m/yuchen-lea/org-noter-plus..(de
36c0 66 75 6e 20 6f 72 67 2d 6e 6f 74 65 72 2d 6e 6f 76 2d 2d 68 61 6e 64 6c 65 2d 74 6f 63 2d 69 74 fun.org-noter-nov--handle-toc-it
36e0 65 6d 20 28 6f 6c 20 64 65 70 74 68 29 0a 20 20 28 6d 61 70 63 61 72 20 28 6c 61 6d 62 64 61 20 em.(ol.depth)...(mapcar.(lambda.
3700 28 6c 69 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 6d 61 70 63 61 72 20 28 6c 61 6d 62 64 61 (li).............(mapcar.(lambda
3720 20 28 61 2d 6f 72 2d 6f 6c 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .(a-or-ol)......................
3740 20 28 70 63 61 73 65 2d 65 78 68 61 75 73 74 69 76 65 20 28 64 6f 6d 2d 74 61 67 20 61 2d 6f 72 .(pcase-exhaustive.(dom-tag.a-or
3760 2d 6f 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 28 27 61 -ol).........................('a
3780 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 76 65 63 74 6f ..........................(vecto
37a0 72 20 3a 64 65 70 74 68 20 64 65 70 74 68 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 r.:depth.depth..................
37c0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 74 69 74 6c 65 20 28 64 6f 6d 2d 74 65 78 74 ................:title.(dom-text
37e0 20 61 2d 6f 72 2d 6f 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 .a-or-ol).......................
3800 20 20 20 20 20 20 20 20 20 20 20 3a 68 72 65 66 20 28 65 73 78 6d 6c 2d 6e 6f 64 65 2d 61 74 74 ...........:href.(esxml-node-att
3820 72 69 62 75 74 65 20 27 68 72 65 66 20 61 2d 6f 72 2d 6f 6c 29 29 29 0a 20 20 20 20 20 20 20 20 ribute.'href.a-or-ol))).........
3840 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 27 6f 6c 0a 20 20 20 20 20 20 20 20 20 20 20 ................('ol............
3860 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6f 72 67 2d 6e 6f 74 65 72 2d 6e 6f 76 2d 2d 68 61 ..............(org-noter-nov--ha
3880 6e 64 6c 65 2d 74 6f 63 2d 69 74 65 6d 20 61 2d 6f 72 2d 6f 6c 0a 20 20 20 20 20 20 20 20 20 20 ndle-toc-item.a-or-ol...........
38a0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ................................
38c0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 31 2b 20 64 65 70 74 68 29 29 29 29 29 0a 20 20 ...............(1+.depth)))))...
38e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 64 6f 6d 2d 63 68 69 6c 64 72 65 6e 20 ..................(dom-children.
3900 6c 69 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 64 6f 6d 2d 63 68 69 6c 64 72 65 6e 20 6f 6c li)))...........(dom-children.ol
3920 29 29 29 0a 0a 28 64 65 66 75 6e 20 6f 72 67 2d 6e 6f 74 65 72 2d 6e 6f 76 2d 2d 63 72 65 61 74 )))..(defun.org-noter-nov--creat
3940 65 2d 73 6b 65 6c 65 74 6f 6e 2d 65 70 75 62 20 28 6d 6f 64 65 29 0a 20 20 22 45 70 75 62 20 6f e-skeleton-epub.(mode)..."Epub.o
3960 75 74 6c 69 6e 65 20 77 69 74 68 20 6e 6f 76 20 6c 69 6e 6b 2e 22 0a 20 20 28 77 68 65 6e 20 28 utline.with.nov.link."...(when.(
3980 65 71 20 6d 6f 64 65 20 27 6e 6f 76 2d 6d 6f 64 65 29 0a 20 20 20 20 28 72 65 71 75 69 72 65 20 eq.mode.'nov-mode).....(require.
39a0 27 65 73 78 6d 6c 29 0a 20 20 20 20 28 72 65 71 75 69 72 65 20 27 6e 6f 76 29 0a 20 20 20 20 28 'esxml).....(require.'nov).....(
39c0 72 65 71 75 69 72 65 20 27 64 6f 6d 29 0a 20 20 20 20 28 6f 72 67 2d 6e 6f 74 65 72 2d 2d 77 69 require.'dom).....(org-noter--wi
39e0 74 68 2d 76 61 6c 69 64 2d 73 65 73 73 69 6f 6e 0a 20 20 20 20 20 28 6c 65 74 2a 20 28 28 61 73 th-valid-session......(let*.((as
3a00 74 20 28 6f 72 67 2d 6e 6f 74 65 72 2d 2d 70 61 72 73 65 2d 72 6f 6f 74 29 29 0a 20 20 20 20 20 t.(org-noter--parse-root))......
3a20 20 20 20 20 20 20 20 28 74 6f 70 2d 6c 65 76 65 6c 20 28 6f 72 20 28 6f 72 67 2d 65 6c 65 6d 65 .......(top-level.(or.(org-eleme
3a40 6e 74 2d 70 72 6f 70 65 72 74 79 20 3a 6c 65 76 65 6c 20 61 73 74 29 20 30 29 29 0a 20 20 20 20 nt-property.:level.ast).0)).....
3a60 20 20 20 20 20 20 20 20 6f 75 74 70 75 74 2d 64 61 74 61 29 0a 20 20 20 20 20 20 20 28 77 69 74 ........output-data)........(wit
3a80 68 2d 63 75 72 72 65 6e 74 2d 62 75 66 66 65 72 20 28 6f 72 67 2d 6e 6f 74 65 72 2d 2d 73 65 73 h-current-buffer.(org-noter--ses
3aa0 73 69 6f 6e 2d 64 6f 63 2d 62 75 66 66 65 72 20 73 65 73 73 69 6f 6e 29 0a 20 20 20 20 20 20 20 sion-doc-buffer.session)........
3ac0 20 20 28 6c 65 74 2a 20 28 28 74 6f 63 2d 70 61 74 68 20 28 63 64 72 20 28 61 72 65 66 20 6e 6f ..(let*.((toc-path.(cdr.(aref.no
3ae0 76 2d 64 6f 63 75 6d 65 6e 74 73 20 30 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 v-documents.0)))................
3b00 20 28 74 6f 63 2d 74 72 65 65 20 28 77 69 74 68 2d 74 65 6d 70 2d 62 75 66 66 65 72 0a 20 20 20 .(toc-tree.(with-temp-buffer....
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 28 69 6e 73 65 72 74 .........................(insert
3b40 20 28 6e 6f 76 2d 6e 63 78 2d 74 6f 2d 68 74 6d 6c 20 74 6f 63 2d 70 61 74 68 29 29 0a 20 20 20 .(nov-ncx-to-html.toc-path))....
3b60 20 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 67 6f 74 6f 2d 63 .........................(goto-c
3b80 68 61 72 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 20 20 20 20 har.(point-min))................
3ba0 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 68 69 6c 65 20 28 72 65 2d 73 65 61 72 63 68 2d 66 .............(while.(re-search-f
3bc0 6f 72 77 61 72 64 20 22 5c 6e 22 20 6e 69 6c 20 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 orward."\n".nil.t)..............
3be0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 72 65 70 6c 61 63 65 2d 6d 61 74 63 68 20 .................(replace-match.
3c00 22 22 20 6e 69 6c 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 "".nil.nil))....................
3c20 20 20 20 20 20 20 20 20 20 28 6c 69 62 78 6d 6c 2d 70 61 72 73 65 2d 68 74 6d 6c 2d 72 65 67 69 .........(libxml-parse-html-regi
3c40 6f 6e 20 28 70 6f 69 6e 74 2d 6d 69 6e 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 on.(point-min)..................
3c60 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ................................
3c80 20 20 20 20 20 28 70 6f 69 6e 74 2d 6d 61 78 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 .....(point-max)))).............
3ca0 20 20 20 20 28 6f 72 69 67 69 6e 2d 69 6e 64 65 78 20 6e 6f 76 2d 64 6f 63 75 6d 65 6e 74 73 2d ....(origin-index.nov-documents-
3cc0 69 6e 64 65 78 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6f 72 69 67 69 6e 2d 70 index).................(origin-p
3ce0 6f 69 6e 74 20 28 70 6f 69 6e 74 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 64 6f 6c 69 73 oint.(point)))............(dolis
3d00 74 20 28 69 74 65 6d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6e 72 65 t.(item.....................(nre
3d20 76 65 72 73 65 20 28 66 6c 61 74 74 65 6e 2d 74 72 65 65 20 28 6f 72 67 2d 6e 6f 74 65 72 2d 6e verse.(flatten-tree.(org-noter-n
3d40 6f 76 2d 2d 68 61 6e 64 6c 65 2d 74 6f 63 2d 69 74 65 6d 20 74 6f 63 2d 74 72 65 65 20 31 29 29 ov--handle-toc-item.toc-tree.1))
3d60 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 72 65 6c 61 74 69 76 65 2d ))..............(let.((relative-
3d80 6c 65 76 65 6c 20 20 28 61 72 65 66 20 69 74 65 6d 20 31 29 29 0a 20 20 20 20 20 20 20 20 20 20 level..(aref.item.1))...........
3da0 20 20 20 20 20 20 20 20 20 28 74 69 74 6c 65 20 20 28 61 72 65 66 20 69 74 65 6d 20 33 29 29 0a .........(title..(aref.item.3)).
3dc0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 75 72 6c 20 28 61 72 65 66 20 69 74 ...................(url.(aref.it
3de0 65 6d 20 35 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 61 70 70 6c 79 20 27 6e em.5)))................(apply.'n
3e00 6f 76 2d 76 69 73 69 74 2d 72 65 6c 61 74 69 76 65 2d 66 69 6c 65 0a 20 20 20 20 20 20 20 20 20 ov-visit-relative-file..........
3e20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6e 6f 76 2d 75 72 6c 2d 66 69 6c 65 6e 61 6d 65 2d 61 .............(nov-url-filename-a
3e40 6e 64 2d 74 61 72 67 65 74 20 75 72 6c 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 nd-target.url))................(
3e60 77 68 65 6e 20 28 6e 6f 74 20 28 69 6e 74 65 67 65 72 70 20 6e 6f 76 2d 64 6f 63 75 6d 65 6e 74 when.(not.(integerp.nov-document
3e80 73 2d 69 6e 64 65 78 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 s-index))..................(setq
3ea0 20 6e 6f 76 2d 64 6f 63 75 6d 65 6e 74 73 2d 69 6e 64 65 78 20 30 29 29 0a 20 20 20 20 20 20 20 .nov-documents-index.0))........
3ec0 20 20 20 20 20 20 20 20 28 70 75 73 68 20 28 76 65 63 74 6f 72 20 74 69 74 6c 65 20 28 6c 69 73 ........(push.(vector.title.(lis
3ee0 74 20 6e 6f 76 2d 64 6f 63 75 6d 65 6e 74 73 2d 69 6e 64 65 78 20 28 70 6f 69 6e 74 29 29 20 72 t.nov-documents-index.(point)).r
3f00 65 6c 61 74 69 76 65 2d 6c 65 76 65 6c 29 20 6f 75 74 70 75 74 2d 64 61 74 61 29 29 29 0a 20 20 elative-level).output-data)))...
3f20 20 20 20 20 20 20 20 20 20 28 70 75 73 68 20 28 76 65 63 74 6f 72 20 22 53 6b 65 6c 65 74 6f 6e .........(push.(vector."Skeleton
3f40 22 20 28 6c 69 73 74 20 30 29 20 31 29 20 6f 75 74 70 75 74 2d 64 61 74 61 29 0a 0a 20 20 20 20 ".(list.0).1).output-data)......
3f60 20 20 20 20 20 20 20 28 6e 6f 76 2d 67 6f 74 6f 2d 64 6f 63 75 6d 65 6e 74 20 6f 72 69 67 69 6e .......(nov-goto-document.origin
3f80 2d 69 6e 64 65 78 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 67 6f 74 6f 2d 63 68 61 72 20 6f 72 -index)............(goto-char.or
3fa0 69 67 69 6e 2d 70 6f 69 6e 74 29 29 29 0a 20 20 20 20 20 20 20 28 73 61 76 65 2d 65 78 63 75 72 igin-point)))........(save-excur
3fc0 73 69 6f 6e 0a 20 20 20 20 20 20 20 20 20 28 67 6f 74 6f 2d 63 68 61 72 20 28 6f 72 67 2d 65 6c sion..........(goto-char.(org-el
3fe0 65 6d 65 6e 74 2d 70 72 6f 70 65 72 74 79 20 3a 65 6e 64 20 61 73 74 29 29 0a 20 20 20 20 20 20 ement-property.:end.ast)).......
4000 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 6f 72 67 2d 6e 6f 74 ...(with-current-buffer.(org-not
4020 65 72 2d 2d 73 65 73 73 69 6f 6e 2d 6e 6f 74 65 73 2d 62 75 66 66 65 72 20 73 65 73 73 69 6f 6e er--session-notes-buffer.session
4040 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 64 6f 6c 69 73 74 20 28 64 61 74 61 20 6f 75 74 70 75 )............(dolist.(data.outpu
4060 74 2d 64 61 74 61 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 2a 20 28 28 74 69 74 t-data)..............(let*.((tit
4080 6c 65 20 20 20 20 20 20 20 20 20 20 28 61 72 65 66 20 64 61 74 61 20 30 29 29 0a 20 20 20 20 20 le..........(aref.data.0))......
40a0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 6f 63 61 74 69 6f 6e 20 20 20 20 20 20 20 28 ...............(location.......(
40c0 61 72 65 66 20 64 61 74 61 20 31 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 aref.data.1))...................
40e0 20 20 28 72 65 6c 61 74 69 76 65 2d 6c 65 76 65 6c 20 28 61 72 65 66 20 64 61 74 61 20 32 29 29 ..(relative-level.(aref.data.2))
4100 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 61 73 74 2d 61 62 73 6f 6c .....................(last-absol
4120 75 74 65 2d 6c 65 76 65 6c 20 28 2b 20 74 6f 70 2d 6c 65 76 65 6c 20 72 65 6c 61 74 69 76 65 2d ute-level.(+.top-level.relative-
4140 6c 65 76 65 6c 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 76 level)).....................(lev
4160 65 6c 20 6c 61 73 74 2d 61 62 73 6f 6c 75 74 65 2d 6c 65 76 65 6c 29 29 0a 0a 20 20 20 20 20 20 el.last-absolute-level))........
4180 20 20 20 20 20 20 20 20 20 28 6f 72 67 2d 6e 6f 74 65 72 2d 2d 69 6e 73 65 72 74 2d 68 65 61 64 .........(org-noter--insert-head
41a0 69 6e 67 20 6c 65 76 65 6c 20 74 69 74 6c 65 29 0a 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ing.level.title)................
41c0 20 28 77 68 65 6e 20 6c 6f 63 61 74 69 6f 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .(when.location.................
41e0 20 28 6f 72 67 2d 65 6e 74 72 79 2d 70 75 74 20 6e 69 6c 20 6f 72 67 2d 6e 6f 74 65 72 2d 70 72 .(org-entry-put.nil.org-noter-pr
4200 6f 70 65 72 74 79 2d 6e 6f 74 65 2d 6c 6f 63 61 74 69 6f 6e 20 28 6f 72 67 2d 6e 6f 74 65 72 2d operty-note-location.(org-noter-
4220 2d 70 72 65 74 74 79 2d 70 72 69 6e 74 2d 6c 6f 63 61 74 69 6f 6e 20 6c 6f 63 61 74 69 6f 6e 29 -pretty-print-location.location)
4240 29 29 0a 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 6f 72 67 2d 6e 6f 74 )).................(when.org-not
4260 65 72 2d 64 6f 63 2d 70 72 6f 70 65 72 74 79 2d 69 6e 2d 6e 6f 74 65 73 0a 20 20 20 20 20 20 20 er-doc-property-in-notes........
4280 20 20 20 20 20 20 20 20 20 20 28 6f 72 67 2d 65 6e 74 72 79 2d 70 75 74 20 6e 69 6c 20 6f 72 67 ..........(org-entry-put.nil.org
42a0 2d 6e 6f 74 65 72 2d 70 72 6f 70 65 72 74 79 2d 64 6f 63 2d 66 69 6c 65 20 28 6f 72 67 2d 6e 6f -noter-property-doc-file.(org-no
42c0 74 65 72 2d 2d 73 65 73 73 69 6f 6e 2d 70 72 6f 70 65 72 74 79 2d 74 65 78 74 20 73 65 73 73 69 ter--session-property-text.sessi
42e0 6f 6e 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6f 72 67 2d 65 6e 74 72 79 on))..................(org-entry
4300 2d 70 75 74 20 6e 69 6c 20 6f 72 67 2d 6e 6f 74 65 72 2d 2d 70 72 6f 70 65 72 74 79 2d 61 75 74 -put.nil.org-noter--property-aut
4320 6f 2d 73 61 76 65 2d 6c 61 73 74 2d 6c 6f 63 61 74 69 6f 6e 20 22 6e 69 6c 22 29 29 29 29 0a 20 o-save-last-location."nil"))))..
4340 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 61 73 74 20 28 6f 72 67 2d 6e 6f 74 65 72 2d 2d ..........(setq.ast.(org-noter--
4360 70 61 72 73 65 2d 72 6f 6f 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 6f 72 67 2d 6e 6f 74 parse-root))............(org-not
4380 65 72 2d 2d 6e 61 72 72 6f 77 2d 74 6f 2d 72 6f 6f 74 20 61 73 74 29 0a 20 20 20 20 20 20 20 20 er--narrow-to-root.ast).........
43a0 20 20 20 28 67 6f 74 6f 2d 63 68 61 72 20 28 6f 72 67 2d 65 6c 65 6d 65 6e 74 2d 70 72 6f 70 65 ...(goto-char.(org-element-prope
43c0 72 74 79 20 3a 62 65 67 69 6e 20 61 73 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 6f 75 74 rty.:begin.ast))............(out
43e0 6c 69 6e 65 2d 68 69 64 65 2d 73 75 62 74 72 65 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 6f line-hide-subtree)............(o
4400 72 67 2d 73 68 6f 77 2d 63 68 69 6c 64 72 65 6e 20 32 29 29 29 0a 20 20 20 20 20 20 20 6f 75 74 rg-show-children.2)))........out
4420 70 75 74 2d 64 61 74 61 29 29 29 29 0a 0a 28 61 64 64 2d 74 6f 2d 6c 69 73 74 20 27 6f 72 67 2d put-data))))..(add-to-list.'org-
4440 6e 6f 74 65 72 2d 63 72 65 61 74 65 2d 73 6b 65 6c 65 74 6f 6e 2d 66 75 6e 63 74 69 6f 6e 73 20 noter-create-skeleton-functions.
4460 23 27 6f 72 67 2d 6e 6f 74 65 72 2d 6e 6f 76 2d 2d 63 72 65 61 74 65 2d 73 6b 65 6c 65 74 6f 6e #'org-noter-nov--create-skeleton
4480 2d 65 70 75 62 29 0a 0a 28 70 72 6f 76 69 64 65 20 27 6f 72 67 2d 6e 6f 74 65 72 2d 6e 6f 76 29 -epub)..(provide.'org-noter-nov)
44a0 0a 3b 3b 3b 20 6f 72 67 2d 6e 6f 74 65 72 2d 6e 6f 76 2e 65 6c 20 65 6e 64 73 20 68 65 72 65 0a .;;;.org-noter-nov.el.ends.here.
44c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
44e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
4500 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
4520 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
4540 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
4560 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
4580 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
45a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
45c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
45e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
4600 6f 72 67 2d 6e 6f 74 65 72 2d 32 30 32 34 30 39 31 38 2e 31 37 30 33 2f 6d 6f 64 75 6c 65 73 2f org-noter-20240918.1703/modules/
4620 6f 72 67 2d 6e 6f 74 65 72 2d 6f 72 67 2d 72 6f 61 6d 2e 65 6c 00 00 00 00 00 00 00 00 00 00 00 org-noter-org-roam.el...........
4640 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
4660 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
4680 30 30 31 35 34 35 31 00 30 30 30 30 30 30 30 30 30 30 30 00 30 32 30 33 36 36 00 20 30 00 00 00 0015451.00000000000.020366..0...
46a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
46c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
46e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
4700 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...................
4720 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...................
4740 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
4760 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
4780 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
47a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
47c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
47e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
4800 3b 3b 3b 20 6f 72 67 2d 6e 6f 74 65 72 2d 6f 72 67 2d 72 6f 61 6d 20 2d 2d 2d 20 6f 72 67 2d 72 ;;;.org-noter-org-roam.---.org-r
4820 6f 61 6d 20 73 75 70 70 6f 72 74 20 66 6f 72 20 6f 72 67 2d 6e 6f 74 65 72 20 20 20 20 20 20 20 oam.support.for.org-noter.......
4840 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 3b 3b 20 -*-.lexical-binding:.t;.-*-..;;.
4860 43 6f 70 79 72 69 67 68 74 20 28 43 29 20 32 30 32 33 20 44 6d 69 74 72 79 20 4d 61 72 6b 75 73 Copyright.(C).2023.Dmitry.Markus
4880 68 65 76 69 63 68 0a 0a 3b 3b 20 54 68 69 73 20 66 69 6c 65 20 69 73 20 6e 6f 74 20 70 61 72 74 hevich..;;.This.file.is.not.part
48a0 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.
48c0 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
48e0 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
4900 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
4920 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.
4940 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,
4960 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
4980 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
49a0 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.
49c0 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.
49e0 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
4a00 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
4a20 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
4a40 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
4a60 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
4a80 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
4aa0 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.
4ac0 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
4ae0 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
4b00 72 61 6d 2e 20 20 49 66 20 6e 6f 74 2c 20 73 65 65 20 3c 68 74 74 70 3a 2f 2f 77 77 77 2e 67 6e ram...If.not,.see.<http://www.gn
4b20 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 72 u.org/licenses/>...;;;.Commentar
4b40 79 3a 0a 0a 3b 3b 20 54 68 69 73 20 6d 6f 64 75 6c 65 20 61 64 64 73 20 6f 72 67 2d 72 6f 61 6d y:..;;.This.module.adds.org-roam
4b60 20 69 6e 74 65 67 72 61 74 69 6f 6e 20 74 6f 20 6f 72 67 2d 6e 6f 74 65 72 0a 0a 3b 3b 3b 20 43 .integration.to.org-noter..;;;.C
4b80 6f 64 65 3a 0a 0a 28 72 65 71 75 69 72 65 20 27 63 6c 2d 6c 69 62 29 0a 0a 3b 3b 20 73 69 6e 63 ode:..(require.'cl-lib)..;;.sinc
4ba0 65 20 6f 72 67 2d 72 6f 61 6d 20 69 73 20 61 6e 20 6f 70 74 69 6f 6e 61 6c 20 64 65 70 65 6e 64 e.org-roam.is.an.optional.depend
4bc0 65 6e 63 79 2c 20 69 74 20 69 73 20 6e 6f 74 20 72 65 71 75 69 72 65 64 20 66 6f 72 20 67 65 6e ency,.it.is.not.required.for.gen
4be0 65 72 61 6c 20 75 73 65 0a 28 65 76 61 6c 2d 77 68 65 6e 2d 63 6f 6d 70 69 6c 65 0a 20 20 28 63 eral.use.(eval-when-compile...(c
4c00 6f 6e 64 69 74 69 6f 6e 2d 63 61 73 65 20 6e 69 6c 0a 20 20 20 20 20 20 28 72 65 71 75 69 72 65 ondition-case.nil.......(require
4c20 20 27 6f 72 67 2d 72 6f 61 6d 2d 6e 6f 64 65 29 0a 20 20 20 20 28 65 72 72 6f 72 20 28 6d 65 73 .'org-roam-node).....(error.(mes
4c40 73 61 67 65 20 22 60 6f 72 67 2d 72 6f 61 6d 2d 6e 6f 64 65 20 69 73 20 6e 6f 74 20 66 6f 75 6e sage."`org-roam-node.is.not.foun
4c60 64 2e 20 6f 72 67 2d 6e 6f 74 65 72 27 73 20 6f 72 67 2d 72 6f 61 6d 20 73 75 70 70 6f 72 74 20 d..org-noter's.org-roam.support.
4c80 72 65 71 75 69 72 65 73 20 6f 72 67 2d 72 6f 61 6d 20 74 6f 20 62 65 20 69 6e 73 74 61 6c 6c 65 requires.org-roam.to.be.installe
4ca0 64 2e 20 50 6c 65 61 73 65 20 69 6e 73 74 61 6c 6c 20 6f 72 67 2d 72 6f 61 6d 2e 22 29 29 29 29 d..Please.install.org-roam."))))
4cc0 0a 3b 3b 20 72 75 6e 20 74 69 6d 65 20 77 61 72 6e 69 6e 67 0a 28 63 6f 6e 64 69 74 69 6f 6e 2d .;;.run.time.warning.(condition-
4ce0 63 61 73 65 20 6e 69 6c 0a 20 20 20 20 28 72 65 71 75 69 72 65 20 27 6f 72 67 2d 72 6f 61 6d 2d case.nil.....(require.'org-roam-
4d00 6e 6f 64 65 29 0a 20 20 28 65 72 72 6f 72 20 28 6d 65 73 73 61 67 65 20 22 60 6f 72 67 2d 72 6f node)...(error.(message."`org-ro
4d20 61 6d 2d 6e 6f 64 65 20 69 73 20 6e 6f 74 20 66 6f 75 6e 64 2e 20 6f 72 67 2d 6e 6f 74 65 72 27 am-node.is.not.found..org-noter'
4d40 73 20 6f 72 67 2d 72 6f 61 6d 20 73 75 70 70 6f 72 74 20 72 65 71 75 69 72 65 73 20 6f 72 67 2d s.org-roam.support.requires.org-
4d60 72 6f 61 6d 20 74 6f 20 62 65 20 69 6e 73 74 61 6c 6c 65 64 2e 20 50 6c 65 61 73 65 20 69 6e 73 roam.to.be.installed..Please.ins
4d80 74 61 6c 6c 20 6f 72 67 2d 72 6f 61 6d 2e 22 29 29 29 0a 0a 0a 0a 0a 28 64 65 66 75 6e 20 6f 72 tall.org-roam."))).....(defun.or
4da0 67 2d 6e 6f 74 65 72 2d 2d 67 65 74 2d 6e 6f 64 65 73 2d 77 69 74 68 2d 6e 6f 74 65 72 2d 64 6f g-noter--get-nodes-with-noter-do
4dc0 63 75 6d 65 6e 74 2d 70 72 6f 70 65 72 74 79 20 28 64 6f 63 2d 70 61 74 68 29 0a 20 20 22 53 65 cument-property.(doc-path)..."Se
4de0 61 72 63 68 20 66 6f 72 20 61 6c 6c 20 6f 72 67 2d 72 6f 61 6d 20 6e 6f 64 65 73 20 74 68 61 74 arch.for.all.org-roam.nodes.that
4e00 20 68 61 76 65 20 61 20 4e 4f 54 45 52 5f 44 4f 43 55 4d 45 4e 54 20 70 72 6f 70 65 72 74 79 20 .have.a.NOTER_DOCUMENT.property.
4e20 6d 61 74 63 68 69 6e 67 20 44 4f 43 2d 50 41 54 48 22 0a 20 20 28 6d 65 73 73 61 67 65 20 22 6f matching.DOC-PATH"...(message."o
4e40 72 67 2d 6e 6f 74 65 72 2d 2d 67 65 74 2d 6e 6f 64 65 73 2d 77 69 74 68 2d 6e 6f 74 65 72 2d 64 rg-noter--get-nodes-with-noter-d
4e60 6f 63 75 6d 65 6e 74 2d 70 72 6f 70 65 72 74 79 22 29 0a 20 20 28 6c 65 74 20 28 28 73 65 61 72 ocument-property")...(let.((sear
4e80 63 68 5f 73 74 61 74 65 6d 65 6e 74 20 28 66 6f 72 6d 61 74 20 22 25 25 4e 4f 54 45 52 5f 44 4f ch_statement.(format."%%NOTER_DO
4ea0 43 55 4d 45 4e 54 25 25 25 73 25 25 22 20 64 6f 63 2d 70 61 74 68 29 29 29 0a 20 20 20 20 28 6d CUMENT%%%s%%".doc-path))).....(m
4ec0 65 73 73 61 67 65 20 22 53 65 61 72 63 68 20 73 74 61 74 65 6d 65 6e 74 3a 20 25 73 22 20 73 65 essage."Search.statement:.%s".se
4ee0 61 72 63 68 5f 73 74 61 74 65 6d 65 6e 74 29 0a 20 20 28 6f 72 67 2d 72 6f 61 6d 2d 64 62 2d 71 arch_statement)...(org-roam-db-q
4f00 75 65 72 79 0a 20 20 20 5b 3a 73 65 6c 65 63 74 20 5b 70 72 6f 70 65 72 74 69 65 73 5d 0a 20 20 uery....[:select.[properties]...
4f20 20 20 20 20 20 20 20 20 20 20 3a 66 72 6f 6d 20 6e 6f 64 65 73 0a 20 20 20 20 20 20 20 20 20 20 ..........:from.nodes...........
4f40 20 20 3a 77 68 65 72 65 20 28 6c 69 6b 65 20 70 72 6f 70 65 72 74 69 65 73 20 24 72 31 29 0a 20 ..:where.(like.properties.$r1)..
4f60 20 20 20 20 20 20 20 20 20 20 20 3a 6c 69 6d 69 74 20 31 30 0a 20 20 20 20 20 20 20 20 20 20 20 ...........:limit.10............
4f80 20 5d 20 73 65 61 72 63 68 5f 73 74 61 74 65 6d 65 6e 74 0a 20 20 20 29 29 29 0a 0a 28 64 65 66 .].search_statement....)))..(def
4fa0 75 6e 20 6f 72 67 2d 6e 6f 74 65 72 2d 2d 66 69 6e 64 2d 65 78 69 73 74 69 6e 67 2d 6e 6f 64 65 un.org-noter--find-existing-node
4fc0 2d 66 6f 72 2d 64 6f 63 75 6d 65 6e 74 20 28 64 6f 63 2d 70 61 74 68 29 0a 20 20 22 46 69 6e 64 -for-document.(doc-path)..."Find
4fe0 20 61 6e 20 6f 72 67 2d 72 6f 61 6d 20 6e 6f 64 65 20 77 68 6f 73 65 20 3a 4e 4f 54 45 52 5f 44 .an.org-roam.node.whose.:NOTER_D
5000 4f 43 55 4d 45 4e 54 3a 20 6d 61 74 63 68 65 73 20 74 68 65 20 64 6f 63 75 6d 65 6e 74 20 77 65 OCUMENT:.matches.the.document.we
5020 20 61 72 65 20 74 72 79 69 6e 67 20 74 6f 20 6f 70 65 6e 2e 0a 52 65 74 75 72 6e 73 20 74 68 65 .are.trying.to.open..Returns.the
5040 20 70 61 74 68 20 74 6f 20 74 68 65 20 6e 6f 74 65 73 20 66 69 6c 65 2e 22 0a 20 20 28 6c 65 74 .path.to.the.notes.file."...(let
5060 2a 20 28 28 6d 61 74 63 68 65 73 20 28 6f 72 67 2d 6e 6f 74 65 72 2d 2d 67 65 74 2d 6e 6f 64 65 *.((matches.(org-noter--get-node
5080 73 2d 77 69 74 68 2d 6e 6f 74 65 72 2d 64 6f 63 75 6d 65 6e 74 2d 70 72 6f 70 65 72 74 79 20 64 s-with-noter-document-property.d
50a0 6f 63 2d 70 61 74 68 29 29 29 0a 20 20 20 20 28 6d 65 73 73 61 67 65 20 28 66 6f 72 6d 61 74 20 oc-path))).....(message.(format.
50c0 22 4e 6f 64 65 73 20 6d 61 74 63 68 69 6e 67 20 28 70 61 74 68 3d 25 73 29 3a 20 25 73 22 20 64 "Nodes.matching.(path=%s):.%s".d
50e0 6f 63 2d 70 61 74 68 20 28 6c 65 6e 67 74 68 20 6d 61 74 63 68 65 73 29 29 29 0a 20 20 20 20 28 oc-path.(length.matches))).....(
5100 6d 61 70 63 61 72 20 23 27 28 6c 61 6d 62 64 61 20 28 72 6f 77 29 0a 20 20 20 20 20 20 20 20 20 mapcar.#'(lambda.(row)..........
5120 20 20 20 20 20 20 28 63 64 72 20 28 61 73 73 6f 63 20 22 46 49 4c 45 22 20 28 63 61 72 20 72 6f ......(cdr.(assoc."FILE".(car.ro
5140 77 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 6d 61 74 63 68 65 73 29 29 29 0a 0a 28 64 w)))).............matches)))..(d
5160 65 66 75 6e 20 6f 72 67 2d 6e 6f 74 65 72 2d 2d 67 65 74 2d 66 69 6c 65 6e 61 6d 65 2d 69 6e 74 efun.org-noter--get-filename-int
5180 65 72 61 63 74 69 76 65 6c 79 20 28 29 0a 20 20 22 55 73 65 20 6f 72 67 2d 72 6f 61 6d 20 74 6f eractively.()..."Use.org-roam.to
51a0 20 73 70 65 63 69 66 79 20 61 20 6e 6f 64 65 2e 22 0a 20 20 28 6c 65 74 2a 20 28 28 74 65 6d 70 .specify.a.node."...(let*.((temp
51c0 6c 61 74 65 73 20 28 6c 69 73 74 20 28 61 70 70 65 6e 64 20 28 63 61 72 20 6f 72 67 2d 72 6f 61 lates.(list.(append.(car.org-roa
51e0 6d 2d 63 61 70 74 75 72 65 2d 74 65 6d 70 6c 61 74 65 73 29 20 27 28 3a 69 6d 6d 65 64 69 61 74 m-capture-templates).'(:immediat
5200 65 2d 66 69 6e 69 73 68 20 74 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 28 6e 6f 64 65 20 28 6f e-finish.t))))..........(node.(o
5220 72 67 2d 72 6f 61 6d 2d 6e 6f 64 65 2d 72 65 61 64 29 29 0a 20 20 20 20 20 20 20 20 20 28 5f 20 rg-roam-node-read))..........(_.
5240 28 6f 72 67 2d 72 6f 61 6d 2d 63 61 70 74 75 72 65 2d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 (org-roam-capture-..............
5260 3a 6e 6f 64 65 20 6e 6f 64 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 69 6e 66 6f 20 6e 69 :node.node..............:info.ni
5280 6c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 74 65 6d 70 6c 61 74 65 73 20 74 65 6d 70 6c 61 l..............:templates.templa
52a0 74 65 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 70 72 6f 70 73 20 6e 69 6c 29 29 0a 20 20 tes..............:props.nil))...
52c0 20 20 20 20 20 20 20 28 6e 6f 64 65 2d 69 64 20 28 6f 72 67 2d 72 6f 61 6d 2d 6e 6f 64 65 2d 69 .......(node-id.(org-roam-node-i
52e0 64 20 6e 6f 64 65 29 29 0a 20 20 20 20 20 20 20 20 20 28 66 69 6c 65 2d 70 61 74 68 2d 66 6f 72 d.node))..........(file-path-for
5300 2d 6e 65 77 2d 65 6e 74 72 79 20 28 6f 72 67 2d 72 6f 61 6d 2d 6e 6f 64 65 2d 66 69 6c 65 20 28 -new-entry.(org-roam-node-file.(
5320 6f 72 67 2d 72 6f 61 6d 2d 6e 6f 64 65 2d 66 72 6f 6d 2d 69 64 20 6e 6f 64 65 2d 69 64 29 29 29 org-roam-node-from-id.node-id)))
5340 29 0a 20 20 20 20 28 6d 65 73 73 61 67 65 20 22 25 73 22 20 66 69 6c 65 2d 70 61 74 68 2d 66 6f ).....(message."%s".file-path-fo
5360 72 2d 6e 65 77 2d 65 6e 74 72 79 29 0a 20 20 20 20 66 69 6c 65 2d 70 61 74 68 2d 66 6f 72 2d 6e r-new-entry).....file-path-for-n
5380 65 77 2d 65 6e 74 72 79 29 29 0a 0a 0a 28 64 65 66 75 6e 20 6f 72 67 2d 6e 6f 74 65 72 2d 2d 63 ew-entry))...(defun.org-noter--c
53a0 72 65 61 74 65 2d 73 65 73 73 69 6f 6e 2d 66 72 6f 6d 2d 64 6f 63 75 6d 65 6e 74 2d 66 69 6c 65 reate-session-from-document-file
53c0 2d 73 75 70 70 6f 72 74 69 6e 67 2d 6f 72 67 2d 72 6f 61 6d 0a 20 20 20 20 28 26 6f 70 74 69 6f -supporting-org-roam.....(&optio
53e0 6e 61 6c 20 61 72 67 20 64 6f 63 2d 70 61 74 68 29 0a 20 20 22 4d 61 69 6e 20 70 6f 69 6e 74 20 nal.arg.doc-path)..."Main.point.
5400 6f 66 20 69 6e 74 65 67 72 61 74 69 6f 6e 20 77 69 74 68 20 6f 72 67 2d 6e 6f 74 65 72 2e 0a 0a of.integration.with.org-noter...
5420 54 68 69 73 20 69 73 20 61 20 68 6f 6f 6b 20 66 75 6e 63 74 69 6f 6e 20 74 68 61 74 20 69 73 20 This.is.a.hook.function.that.is.
5440 74 6f 20 62 65 20 61 73 73 69 67 6e 65 64 0a 74 6f 20 60 6f 72 67 2d 6e 6f 74 65 72 2d 63 72 65 to.be.assigned.to.`org-noter-cre
5460 61 74 65 2d 73 65 73 73 69 6f 6e 2d 66 72 6f 6d 2d 64 6f 63 75 6d 65 6e 74 2d 68 6f 6f 6b 27 20 ate-session-from-document-hook'.
5480 74 6f 20 65 6e 61 62 6c 65 20 6f 72 67 2d 72 6f 61 6d 20 69 6e 74 65 67 72 61 74 69 6f 6e 3a 0a to.enable.org-roam.integration:.
54a0 0a 20 20 60 28 73 65 74 71 20 6f 72 67 2d 6e 6f 74 65 72 2d 63 72 65 61 74 65 2d 73 65 73 73 69 ...`(setq.org-noter-create-sessi
54c0 6f 6e 2d 66 72 6f 6d 2d 64 6f 63 75 6d 65 6e 74 2d 68 6f 6f 6b 20 27 28 6f 72 67 2d 6e 6f 74 65 on-from-document-hook.'(org-note
54e0 72 2d 2d 63 72 65 61 74 65 2d 73 65 73 73 69 6f 6e 2d 66 72 6f 6d 2d 64 6f 63 75 6d 65 6e 74 2d r--create-session-from-document-
5500 66 69 6c 65 2d 73 75 70 70 6f 72 74 69 6e 67 2d 6f 72 67 2d 72 6f 61 6d 29 27 0a 0a 0a 41 6c 74 file-supporting-org-roam)'...Alt
5520 65 72 6e 61 74 69 76 65 6c 79 2c 20 79 6f 75 20 63 61 6e 20 63 61 6c 6c 20 74 68 65 20 60 6f 72 ernatively,.you.can.call.the.`or
5540 67 2d 6e 6f 74 65 72 2d 65 6e 61 62 6c 65 2d 6f 72 67 2d 72 6f 61 6d 2d 69 6e 74 65 67 72 61 74 g-noter-enable-org-roam-integrat
5560 69 6f 6e 27 2e 0a 0a 41 52 47 20 69 73 20 6e 6f 74 20 63 75 72 72 65 6e 74 20 75 73 65 64 20 62 ion'...ARG.is.not.current.used.b
5580 75 74 20 68 65 72 65 20 66 6f 72 20 63 6f 6d 70 61 74 69 62 69 6c 69 74 79 20 72 65 61 73 6f 6e ut.here.for.compatibility.reason
55a0 73 2e 0a 44 4f 43 2d 50 41 54 48 20 69 73 20 74 68 65 20 70 61 74 68 20 74 6f 20 74 68 65 20 64 s..DOC-PATH.is.the.path.to.the.d
55c0 6f 63 75 6d 65 6e 74 20 28 70 64 66 29 2e 22 0a 0a 20 20 3b 3b 20 63 68 65 63 6b 20 69 66 20 61 ocument.(pdf)."....;;.check.if.a
55e0 20 6e 6f 64 65 20 66 6f 72 20 73 70 65 63 69 66 69 65 64 20 70 64 66 20 70 61 74 68 20 61 6c 72 .node.for.specified.pdf.path.alr
5600 65 61 64 79 20 65 78 69 73 74 73 0a 20 20 3b 3b 20 69 66 20 69 74 20 64 6f 65 73 6e 27 74 20 61 eady.exists...;;.if.it.doesn't.a
5620 73 6b 20 74 68 65 20 75 73 65 72 20 74 6f 20 73 70 65 63 69 66 79 20 6f 6e 65 20 75 73 69 6e 67 sk.the.user.to.specify.one.using
5640 20 74 79 70 69 63 61 6c 20 6f 72 67 2d 72 6f 61 6d 2d 66 69 6e 64 0a 20 20 28 6c 65 74 2a 20 28 .typical.org-roam-find...(let*.(
5660 28 66 69 6c 65 2d 70 61 74 68 2d 66 6f 72 2d 6f 72 67 2d 72 6f 61 6d 2d 6e 6f 64 65 20 28 6f 72 (file-path-for-org-roam-node.(or
5680 20 28 63 61 72 20 28 6f 72 67 2d 6e 6f 74 65 72 2d 2d 66 69 6e 64 2d 65 78 69 73 74 69 6e 67 2d .(car.(org-noter--find-existing-
56a0 6e 6f 64 65 2d 66 6f 72 2d 64 6f 63 75 6d 65 6e 74 20 64 6f 63 2d 70 61 74 68 29 29 0a 20 20 20 node-for-document.doc-path))....
56c0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ................................
56e0 20 20 20 20 20 20 20 28 6f 72 67 2d 6e 6f 74 65 72 2d 2d 67 65 74 2d 66 69 6c 65 6e 61 6d 65 2d .......(org-noter--get-filename-
5700 69 6e 74 65 72 61 63 74 69 76 65 6c 79 29 29 29 0a 20 20 20 20 20 20 20 20 20 28 5f 20 28 6d 65 interactively)))..........(_.(me
5720 73 73 61 67 65 20 22 5b 64 5d 20 6f 70 65 6e 69 6e 67 20 75 70 20 6e 6f 74 65 73 3a 20 25 73 20 ssage."[d].opening.up.notes:.%s.
5740 64 6f 63 3a 20 25 73 22 20 66 69 6c 65 2d 70 61 74 68 2d 66 6f 72 2d 6f 72 67 2d 72 6f 61 6d 2d doc:.%s".file-path-for-org-roam-
5760 6e 6f 64 65 20 64 6f 63 2d 70 61 74 68 29 29 0a 20 20 20 20 20 20 20 20 20 3b 3b 20 63 72 65 61 node.doc-path))..........;;.crea
5780 74 65 20 6f 72 20 66 69 6e 64 20 61 20 74 6f 70 20 6c 65 76 65 6c 20 68 65 61 64 69 6e 67 20 66 te.or.find.a.top.level.heading.f
57a0 6f 72 20 74 68 65 20 64 6f 63 75 6d 65 6e 74 20 61 6e 64 20 72 65 74 75 72 6e 20 69 74 0a 20 20 or.the.document.and.return.it...
57c0 20 20 20 20 20 20 20 28 74 6f 70 2d 6c 65 76 65 6c 2d 68 65 61 64 69 6e 67 2d 66 6f 72 2d 64 6f .......(top-level-heading-for-do
57e0 63 2d 70 6f 73 69 74 69 6f 6e 20 28 77 69 74 68 2d 63 75 72 72 65 6e 74 2d 62 75 66 66 65 72 20 c-position.(with-current-buffer.
5800 28 66 69 6e 64 2d 66 69 6c 65 2d 6e 6f 73 65 6c 65 63 74 20 66 69 6c 65 2d 70 61 74 68 2d 66 6f (find-file-noselect.file-path-fo
5820 72 2d 6f 72 67 2d 72 6f 61 6d 2d 6e 6f 64 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 r-org-roam-node)................
5840 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ................................
5860 28 6f 72 67 2d 6e 6f 74 65 72 2d 2d 66 69 6e 64 2d 63 72 65 61 74 65 2d 74 6f 70 2d 6c 65 76 65 (org-noter--find-create-top-leve
5880 6c 2d 68 65 61 64 69 6e 67 2d 66 6f 72 2d 64 6f 63 20 64 6f 63 2d 70 61 74 68 20 28 66 69 6c 65 l-heading-for-doc.doc-path.(file
58a0 2d 6e 61 6d 65 2d 62 61 73 65 20 64 6f 63 2d 70 61 74 68 29 29 29 29 29 0a 20 20 20 20 28 6d 65 -name-base.doc-path))))).....(me
58c0 73 73 61 67 65 20 22 67 6f 69 6e 67 20 74 6f 20 70 6f 73 3a 20 25 73 22 20 74 6f 70 2d 6c 65 76 ssage."going.to.pos:.%s".top-lev
58e0 65 6c 2d 68 65 61 64 69 6e 67 2d 66 6f 72 2d 64 6f 63 2d 70 6f 73 69 74 69 6f 6e 29 0a 20 20 20 el-heading-for-doc-position)....
5900 20 28 77 69 74 68 2d 63 75 72 72 65 6e 74 2d 62 75 66 66 65 72 20 28 66 69 6e 64 2d 66 69 6c 65 .(with-current-buffer.(find-file
5920 2d 6e 6f 73 65 6c 65 63 74 20 66 69 6c 65 2d 70 61 74 68 2d 66 6f 72 2d 6f 72 67 2d 72 6f 61 6d -noselect.file-path-for-org-roam
5940 2d 6e 6f 64 65 29 0a 20 20 20 20 20 20 28 67 6f 74 6f 2d 63 68 61 72 20 74 6f 70 2d 6c 65 76 65 -node).......(goto-char.top-leve
5960 6c 2d 68 65 61 64 69 6e 67 2d 66 6f 72 2d 64 6f 63 2d 70 6f 73 69 74 69 6f 6e 29 0a 20 20 20 20 l-heading-for-doc-position).....
5980 20 20 28 6f 72 67 2d 6e 6f 74 65 72 29 29 29 29 0a 0a 0a 0a 0a 28 64 65 66 75 6e 20 6f 72 67 2d ..(org-noter)))).....(defun.org-
59a0 6e 6f 74 65 72 2d 2d 66 69 6e 64 2d 74 6f 70 2d 6c 65 76 65 6c 2d 68 65 61 64 69 6e 67 2d 66 6f noter--find-top-level-heading-fo
59c0 72 2d 64 6f 63 75 6d 65 6e 74 2d 70 61 74 68 20 28 64 6f 63 2d 70 61 74 68 29 0a 20 20 22 47 69 r-document-path.(doc-path)..."Gi
59e0 76 65 6e 20 61 20 44 4f 43 2d 50 41 54 48 20 63 68 65 63 6b 20 74 6f 20 73 65 65 20 69 66 20 74 ven.a.DOC-PATH.check.to.see.if.t
5a00 68 65 72 65 27 73 20 61 20 74 6f 70 20 6c 65 76 65 6c 20 68 65 61 64 69 6e 67 20 66 6f 72 20 69 here's.a.top.level.heading.for.i
5a20 74 2e 0a 49 74 20 72 65 74 75 72 6e 73 20 74 68 65 20 70 6f 69 6e 74 20 66 6f 72 20 74 68 65 20 t..It.returns.the.point.for.the.
5a40 68 65 61 64 69 6e 67 20 28 69 66 20 66 6f 75 6e 64 29 20 5c 22 6e 69 6c 5c 22 20 6f 74 68 65 72 heading.(if.found).\"nil\".other
5a60 77 69 73 65 2e 22 0a 20 20 28 6c 65 74 20 28 28 66 6f 75 6e 64 2d 68 65 61 64 69 6e 67 2d 70 6f wise."...(let.((found-heading-po
5a80 73 69 74 69 6f 6e 20 6e 69 6c 29 29 0a 20 20 20 20 28 6f 72 67 2d 77 69 74 68 2d 70 6f 69 6e 74 sition.nil)).....(org-with-point
5aa0 2d 61 74 20 28 70 6f 69 6e 74 2d 6d 69 6e 29 0a 20 20 20 20 20 20 28 63 6f 6e 64 69 74 69 6f 6e -at.(point-min).......(condition
5ac0 2d 63 61 73 65 20 6e 69 6c 0a 20 20 20 20 20 20 20 20 20 20 3b 3b 20 6c 6f 6f 6b 20 66 6f 72 20 -case.nil...........;;.look.for.
5ae0 4e 4f 54 45 52 5f 44 4f 43 55 4d 45 4e 54 20 70 72 6f 70 65 72 74 79 20 74 68 61 74 20 6d 61 74 NOTER_DOCUMENT.property.that.mat
5b00 63 68 65 73 20 74 68 65 20 64 6f 63 2d 70 61 74 68 0a 20 20 20 20 20 20 20 20 20 20 28 77 68 69 ches.the.doc-path...........(whi
5b20 6c 65 20 28 61 6e 64 20 28 6e 6f 74 20 66 6f 75 6e 64 2d 68 65 61 64 69 6e 67 2d 70 6f 73 69 74 le.(and.(not.found-heading-posit
5b40 69 6f 6e 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 72 65 2d 73 ion).......................(re-s
5b60 65 61 72 63 68 2d 66 6f 72 77 61 72 64 20 28 6f 72 67 2d 72 65 2d 70 72 6f 70 65 72 74 79 20 6f earch-forward.(org-re-property.o
5b80 72 67 2d 6e 6f 74 65 72 2d 70 72 6f 70 65 72 74 79 2d 64 6f 63 2d 66 69 6c 65 29 29 29 0a 20 20 rg-noter-property-doc-file)))...
5ba0 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 63 75 72 72 65 6e 74 2d 66 69 6c 65 2d 6e 61 ..........(let.((current-file-na
5bc0 6d 65 20 28 65 78 70 61 6e 64 2d 66 69 6c 65 2d 6e 61 6d 65 20 28 6d 61 74 63 68 2d 73 74 72 69 me.(expand-file-name.(match-stri
5be0 6e 67 20 33 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 6f 6f 6b 69 ng.3)))...................(looki
5c00 6e 67 2d 66 6f 72 2d 66 69 6c 65 6e 61 6d 65 20 28 65 78 70 61 6e 64 2d 66 69 6c 65 2d 6e 61 6d ng-for-filename.(expand-file-nam
5c20 65 20 64 6f 63 2d 70 61 74 68 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 68 65 e.doc-path)))...............(whe
5c40 6e 20 28 66 69 6c 65 2d 65 71 75 61 6c 2d 70 20 63 75 72 72 65 6e 74 2d 66 69 6c 65 2d 6e 61 6d n.(file-equal-p.current-file-nam
5c60 65 20 6c 6f 6f 6b 69 6e 67 2d 66 6f 72 2d 66 69 6c 65 6e 61 6d 65 29 0a 20 20 20 20 20 20 20 20 e.looking-for-filename).........
5c80 20 20 20 20 20 20 20 20 28 73 65 74 71 20 66 6f 75 6e 64 2d 68 65 61 64 69 6e 67 2d 70 6f 73 69 ........(setq.found-heading-posi
5ca0 74 69 6f 6e 20 28 70 6f 69 6e 74 29 29 29 29 29 0a 20 20 20 20 20 20 20 20 28 73 65 61 72 63 68 tion.(point))))).........(search
5cc0 2d 66 61 69 6c 65 64 20 20 20 3b 3b 20 77 68 65 6e 20 72 65 3d 73 65 61 72 63 68 2d 66 6f 72 77 -failed...;;.when.re=search-forw
5ce0 61 72 64 20 68 69 74 73 20 74 68 65 20 65 6e 64 20 69 74 20 74 68 72 6f 77 73 20 61 6e 20 65 72 ard.hits.the.end.it.throws.an.er
5d00 72 6f 72 20 77 68 69 63 68 20 77 65 20 73 68 6f 75 6c 64 20 63 61 74 63 68 0a 20 20 20 20 20 20 ror.which.we.should.catch.......
5d20 20 20 20 28 6d 65 73 73 61 67 65 20 22 54 68 69 73 20 62 75 66 66 65 72 20 64 6f 65 73 6e 27 74 ...(message."This.buffer.doesn't
5d40 20 73 65 65 6d 20 74 6f 20 68 61 76 65 20 61 20 6d 61 74 63 68 69 6e 67 20 4e 4f 54 45 52 5f 44 .seem.to.have.a.matching.NOTER_D
5d60 4f 43 55 4d 45 4e 54 20 68 65 61 64 69 6e 67 2e 22 29 20 6e 69 6c 29 29 29 0a 20 20 20 20 66 6f OCUMENT.heading.").nil))).....fo
5d80 75 6e 64 2d 68 65 61 64 69 6e 67 2d 70 6f 73 69 74 69 6f 6e 29 29 0a 0a 0a 28 64 65 66 75 6e 20 und-heading-position))...(defun.
5da0 6f 72 67 2d 6e 6f 74 65 72 2d 2d 66 69 6e 64 2d 63 72 65 61 74 65 2d 74 6f 70 2d 6c 65 76 65 6c org-noter--find-create-top-level
5dc0 2d 68 65 61 64 69 6e 67 2d 66 6f 72 2d 64 6f 63 20 28 64 6f 63 2d 70 61 74 68 20 64 65 73 69 72 -heading-for-doc.(doc-path.desir
5de0 65 64 2d 68 65 61 64 69 6e 67 29 0a 20 20 22 49 6e 20 63 75 72 72 65 6e 74 20 62 75 66 66 65 72 ed-heading)..."In.current.buffer
5e00 2c 20 6c 6f 6f 6b 20 66 6f 72 20 61 20 74 6f 70 20 6c 65 76 65 6c 20 68 65 61 64 69 6e 67 20 66 ,.look.for.a.top.level.heading.f
5e20 6f 72 20 64 6f 63 75 6d 65 6e 74 20 61 74 20 44 4f 43 2d 50 41 54 48 2e 0a 49 66 20 6f 6e 65 20 or.document.at.DOC-PATH..If.one.
5e40 69 73 20 6e 6f 74 20 66 6f 75 6e 64 2c 20 44 45 53 49 52 45 44 2d 48 45 41 44 49 4e 47 20 69 73 is.not.found,.DESIRED-HEADING.is
5e60 20 63 72 65 61 74 65 64 20 61 6e 64 20 69 74 27 73 20 70 6f 73 69 74 69 6f 6e 20 69 73 20 72 65 .created.and.it's.position.is.re
5e80 74 75 72 6e 65 64 22 0a 20 20 20 20 28 6c 65 74 2a 20 28 28 74 6f 70 2d 6c 65 76 65 6c 2d 68 65 turned".....(let*.((top-level-he
5ea0 61 64 69 6e 67 2d 66 6f 72 2d 64 6f 63 2d 70 6f 73 69 74 69 6f 6e 20 28 6f 72 67 2d 6e 6f 74 65 ading-for-doc-position.(org-note
5ec0 72 2d 2d 66 69 6e 64 2d 74 6f 70 2d 6c 65 76 65 6c 2d 68 65 61 64 69 6e 67 2d 66 6f 72 2d 64 6f r--find-top-level-heading-for-do
5ee0 63 75 6d 65 6e 74 2d 70 61 74 68 20 64 6f 63 2d 70 61 74 68 29 29 29 0a 20 20 20 20 20 20 3b 3b cument-path.doc-path))).......;;
5f00 20 64 6f 65 73 20 74 68 69 73 20 62 75 66 66 65 72 20 68 61 76 65 20 61 20 74 6f 70 20 6c 65 76 .does.this.buffer.have.a.top.lev
5f20 65 6c 20 6e 6f 74 65 73 20 68 65 61 64 69 6e 67 20 66 6f 72 20 74 68 69 73 20 64 6f 63 75 6d 65 el.notes.heading.for.this.docume
5f40 6e 74 3f 0a 20 20 20 20 20 20 28 69 66 20 28 65 71 20 74 6f 70 2d 6c 65 76 65 6c 2d 68 65 61 64 nt?.......(if.(eq.top-level-head
5f60 69 6e 67 2d 66 6f 72 2d 64 6f 63 2d 70 6f 73 69 74 69 6f 6e 20 6e 69 6c 29 0a 20 20 20 20 20 20 ing-for-doc-position.nil).......
5f80 20 20 28 6f 72 67 2d 6e 6f 74 65 72 2d 2d 63 72 65 61 74 65 2d 6e 6f 74 65 73 2d 68 65 61 64 69 ..(org-noter--create-notes-headi
5fa0 6e 67 20 64 65 73 69 72 65 64 2d 68 65 61 64 69 6e 67 20 64 6f 63 2d 70 61 74 68 29 0a 20 20 20 ng.desired-heading.doc-path)....
5fc0 20 20 20 74 6f 70 2d 6c 65 76 65 6c 2d 68 65 61 64 69 6e 67 2d 66 6f 72 2d 64 6f 63 2d 70 6f 73 ...top-level-heading-for-doc-pos
5fe0 69 74 69 6f 6e 29 29 29 0a 0a 0a 3b 3b 20 54 4f 44 4f 20 48 6f 77 20 69 73 20 74 68 69 73 20 64 ition)))...;;.TODO.How.is.this.d
6000 69 66 66 65 72 65 6e 74 20 66 72 6f 6d 20 6f 72 67 2d 6e 6f 74 65 72 2d 2d 69 6e 73 65 72 74 2d ifferent.from.org-noter--insert-
6020 68 65 61 64 69 6e 67 3f 0a 3b 3b 20 6f 72 67 2d 6e 6f 74 65 72 2d 2d 69 6e 73 65 72 74 2d 68 65 heading?.;;.org-noter--insert-he
6040 61 64 69 6e 67 20 64 6f 65 73 6e 27 74 20 64 65 61 6c 20 77 69 74 68 20 74 6f 70 20 6c 65 76 65 ading.doesn't.deal.with.top.leve
6060 6c 20 68 65 61 64 69 6e 67 73 2e 0a 28 64 65 66 75 6e 20 6f 72 67 2d 6e 6f 74 65 72 2d 2d 63 72 l.headings..(defun.org-noter--cr
6080 65 61 74 65 2d 6e 6f 74 65 73 2d 68 65 61 64 69 6e 67 20 28 6e 6f 74 65 73 2d 68 65 61 64 69 6e eate-notes-heading.(notes-headin
60a0 67 20 64 6f 63 75 6d 65 6e 74 2d 70 61 74 68 29 0a 20 20 22 43 72 65 61 74 65 20 61 20 74 6f 70 g.document-path)..."Create.a.top
60c0 20 6c 65 76 65 6c 20 6e 6f 74 65 73 20 68 65 61 64 69 6e 67 20 66 6f 72 20 74 68 65 20 64 6f 63 .level.notes.heading.for.the.doc
60e0 75 6d 65 6e 74 2e 0a 4e 4f 54 45 53 2d 48 45 41 44 49 4e 47 20 69 73 20 74 68 65 20 68 65 61 64 ument..NOTES-HEADING.is.the.head
6100 6c 69 6e 65 2c 20 44 4f 43 55 4d 45 4e 54 2d 50 41 54 48 20 69 73 20 75 73 65 64 20 66 6f 72 20 line,.DOCUMENT-PATH.is.used.for.
6120 74 68 65 0a 4e 4f 54 45 52 5f 44 4f 43 55 4d 45 4e 54 20 70 72 6f 70 65 72 74 79 2e 20 20 52 65 the.NOTER_DOCUMENT.property...Re
6140 74 75 72 6e 20 74 68 65 20 70 6f 69 6e 74 20 77 68 65 72 65 20 74 68 65 20 68 65 61 64 69 6e 67 turn.the.point.where.the.heading
6160 20 77 61 73 20 69 6e 73 65 72 74 65 64 2e 22 0a 20 20 28 63 6c 2d 61 73 73 65 72 74 20 6e 6f 74 .was.inserted."...(cl-assert.not
6180 65 73 2d 68 65 61 64 69 6e 67 20 74 20 22 6e 6f 74 65 73 2d 68 65 61 64 69 6e 67 20 63 61 6e 6e es-heading.t."notes-heading.cann
61a0 6f 74 20 62 65 20 6e 69 6c 2e 20 77 65 20 63 61 6e 27 74 20 69 6e 73 65 72 74 20 61 20 6e 69 6c ot.be.nil..we.can't.insert.a.nil
61c0 20 68 65 61 64 69 6e 67 2e 22 29 0a 20 20 28 67 6f 74 6f 2d 63 68 61 72 20 28 70 6f 69 6e 74 2d .heading.")...(goto-char.(point-
61e0 6d 61 78 29 29 0a 20 20 28 69 6e 73 65 72 74 20 28 69 66 20 28 73 61 76 65 2d 65 78 63 75 72 73 max))...(insert.(if.(save-excurs
6200 69 6f 6e 20 28 62 65 67 69 6e 6e 69 6e 67 2d 6f 66 2d 6c 69 6e 65 29 20 28 6c 6f 6f 6b 69 6e 67 ion.(beginning-of-line).(looking
6220 2d 61 74 20 22 5b 5b 3a 73 70 61 63 65 3a 5d 5d 2a 24 22 29 29 20 22 22 20 22 5c 6e 22 29 0a 20 -at."[[:space:]]*$")).""."\n")..
6240 20 20 20 20 20 20 20 20 20 22 2a 20 22 20 6e 6f 74 65 73 2d 68 65 61 64 69 6e 67 20 29 0a 20 20 ........."*.".notes-heading.)...
6260 28 6f 72 67 2d 65 6e 74 72 79 2d 70 75 74 20 6e 69 6c 20 6f 72 67 2d 6e 6f 74 65 72 2d 70 72 6f (org-entry-put.nil.org-noter-pro
6280 70 65 72 74 79 2d 64 6f 63 2d 66 69 6c 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 perty-doc-file..................
62a0 28 65 78 70 61 6e 64 2d 66 69 6c 65 2d 6e 61 6d 65 20 64 6f 63 75 6d 65 6e 74 2d 70 61 74 68 29 (expand-file-name.document-path)
62c0 29 0a 20 20 28 6f 72 67 2d 69 64 2d 67 65 74 2d 63 72 65 61 74 65 29 0a 20 20 28 70 6f 69 6e 74 )...(org-id-get-create)...(point
62e0 29 29 0a 0a 0a 0a 28 70 72 6f 76 69 64 65 20 27 6f 72 67 2d 6e 6f 74 65 72 2d 6f 72 67 2d 72 6f ))....(provide.'org-noter-org-ro
6300 61 6d 29 0a 0a 3b 3b 3b 20 6f 72 67 2d 6e 6f 74 65 72 2d 6f 72 67 2d 72 6f 61 6d 2e 65 6c 20 65 am)..;;;.org-noter-org-roam.el.e
6320 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 00 nds.here........................
6340 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
6360 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
6380 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
63a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
63c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
63e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
6400 6f 72 67 2d 6e 6f 74 65 72 2d 32 30 32 34 30 39 31 38 2e 31 37 30 33 2f 6d 6f 64 75 6c 65 73 2f org-noter-20240918.1703/modules/
6420 6f 72 67 2d 6e 6f 74 65 72 2d 70 64 66 2e 65 6c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 org-noter-pdf.el................
6440 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
6460 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
6480 30 30 36 30 30 32 35 00 30 30 30 30 30 30 30 30 30 30 30 00 30 31 37 34 31 31 00 20 30 00 00 00 0060025.00000000000.017411..0...
64a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
64c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
64e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
6500 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...................
6520 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...................
6540 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
6560 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
6580 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
65a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
65c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
65e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
6600 3b 3b 3b 20 6f 72 67 2d 6e 6f 74 65 72 2d 70 64 66 2e 65 6c 20 2d 2d 2d 20 4d 6f 64 75 6c 65 73 ;;;.org-noter-pdf.el.---.Modules
6620 20 66 6f 72 20 50 44 46 2d 54 6f 6f 6c 73 20 61 6e 64 20 44 6f 63 56 69 65 77 20 6d 6f 64 65 20 .for.PDF-Tools.and.DocView.mode.
6640 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 3b 3b .-*-.lexical-binding:.t;.-*-..;;
6660 20 43 6f 70 79 72 69 67 68 74 20 28 43 29 20 32 30 32 32 20 20 63 31 2d 67 0a 0a 3b 3b 20 41 75 .Copyright.(C).2022..c1-g..;;.Au
6680 74 68 6f 72 3a 20 63 31 2d 67 20 3c 63 68 61 72 31 69 65 67 6f 72 64 6f 6e 40 70 72 6f 74 6f 6e thor:.c1-g.<char1iegordon@proton
66a0 6d 61 69 6c 2e 63 6f 6d 3e 0a 3b 3b 20 4b 65 79 77 6f 72 64 73 3a 20 6d 75 6c 74 69 6d 65 64 69 mail.com>.;;.Keywords:.multimedi
66c0 61 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 77 a..;;.This.program.is.free.softw
66e0 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 64 are;.you.can.redistribute.it.and
6700 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 73 /or.modify.;;.it.under.the.terms
6720 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 6e .of.the.GNU.General.Public.Licen
6740 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 53 se.as.published.by.;;.the.Free.S
6760 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 69 oftware.Foundation,.either.versi
6780 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 79 on.3.of.the.License,.or.;;.(at.y
67a0 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 0a our.option).any.later.version...
67c0 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 69 ;;.This.program.is.distributed.i
67e0 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 75 n.the.hope.that.it.will.be.usefu
6800 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 20 l,.;;.but.WITHOUT.ANY.WARRANTY;.
6820 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 74 without.even.the.implied.warrant
6840 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 45 y.of.;;.MERCHANTABILITY.or.FITNE
6860 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 65 SS.FOR.A.PARTICULAR.PURPOSE...Se
6880 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 65 e.the.;;.GNU.General.Public.Lice
68a0 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 68 nse.for.more.details...;;.You.sh
68c0 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 65 ould.have.received.a.copy.of.the
68e0 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 61 .GNU.General.Public.License.;;.a
6900 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 2c long.with.this.program...If.not,
6920 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 73 .see.<https://www.gnu.org/licens
6940 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 0a 0a 3b 3b 3b 20 es/>...;;;.Commentary:..;;..;;;.
6960 43 6f 64 65 3a 0a 28 65 76 61 6c 2d 77 68 65 6e 2d 63 6f 6d 70 69 6c 65 20 28 72 65 71 75 69 72 Code:.(eval-when-compile.(requir
6980 65 20 27 73 75 62 72 2d 78 29 29 0a 28 72 65 71 75 69 72 65 20 27 63 6c 2d 6c 69 62 29 0a 28 72 e.'subr-x)).(require.'cl-lib).(r
69a0 65 71 75 69 72 65 20 27 6f 72 67 2d 6e 6f 74 65 72 2d 63 6f 72 65 29 0a 28 65 76 61 6c 2d 77 68 equire.'org-noter-core).(eval-wh
69c0 65 6e 2d 63 6f 6d 70 69 6c 65 20 3b 20 65 6e 73 75 72 65 20 74 68 61 74 20 74 68 65 20 63 6f 6d en-compile.;.ensure.that.the.com
69e0 70 69 6c 65 64 20 63 6f 64 65 20 6b 6e 6f 77 73 20 61 62 6f 75 74 20 50 44 46 2d 54 4f 4f 4c 53 piled.code.knows.about.PDF-TOOLS
6a00 2c 20 69 66 20 69 6e 73 74 61 6c 6c 65 64 0a 20 20 28 63 6f 6e 64 69 74 69 6f 6e 2d 63 61 73 65 ,.if.installed...(condition-case
6a20 20 6e 69 6c 0a 20 20 20 20 20 20 28 72 65 71 75 69 72 65 20 27 70 64 66 2d 74 6f 6f 6c 73 29 0a .nil.......(require.'pdf-tools).
6a40 20 20 20 20 28 65 72 72 6f 72 20 28 6d 65 73 73 61 67 65 20 22 60 70 64 66 2d 74 6f 6f 6c 73 27 ....(error.(message."`pdf-tools'
6a60 20 70 61 63 6b 61 67 65 20 6e 6f 74 20 66 6f 75 6e 64 22 29 29 29 29 0a 28 63 6f 6e 64 69 74 69 .package.not.found")))).(conditi
6a80 6f 6e 2d 63 61 73 65 20 6e 69 6c 20 3b 20 69 6e 66 6f 72 6d 20 75 73 65 72 20 61 74 20 72 75 6e on-case.nil.;.inform.user.at.run
6aa0 20 74 69 6d 65 20 69 66 20 70 64 66 2d 74 6f 6f 6c 73 20 69 73 20 6d 69 73 73 69 6e 67 0a 20 20 .time.if.pdf-tools.is.missing...
6ac0 20 20 28 72 65 71 75 69 72 65 20 27 70 64 66 2d 74 6f 6f 6c 73 29 0a 20 20 28 65 72 72 6f 72 20 ..(require.'pdf-tools)...(error.
6ae0 28 6d 65 73 73 61 67 65 20 22 41 54 54 45 4e 54 49 4f 4e 3a 20 6f 72 67 2d 6e 6f 74 65 72 2d 70 (message."ATTENTION:.org-noter-p
6b00 64 66 20 68 61 73 20 6d 61 6e 79 20 66 65 61 74 75 65 73 20 74 68 61 74 20 64 65 70 65 6e 64 20 df.has.many.featues.that.depend.
6b20 6f 6e 20 74 68 65 20 70 61 63 6b 61 67 65 20 60 70 64 66 2d 74 6f 6f 6c 73 27 22 29 29 29 0a 0a on.the.package.`pdf-tools'")))..
6b40 28 70 75 73 68 20 22 70 64 66 22 20 6f 72 67 2d 6e 6f 74 65 72 2d 2d 64 6f 63 2d 65 78 74 65 6e (push."pdf".org-noter--doc-exten
6b60 73 69 6f 6e 73 29 0a 28 63 6c 2d 64 65 66 73 74 72 75 63 74 20 70 64 66 2d 68 69 67 68 6c 69 67 sions).(cl-defstruct.pdf-highlig
6b80 68 74 20 70 61 67 65 20 63 6f 6f 72 64 73 29 0a 0a 28 64 65 66 75 6e 20 6f 72 67 2d 6e 6f 74 65 ht.page.coords)..(defun.org-note
6ba0 72 2d 70 64 66 2d 2d 67 65 74 2d 68 69 67 68 6c 69 67 68 74 20 28 29 0a 20 20 22 49 66 20 74 68 r-pdf--get-highlight.()..."If.th
6bc0 65 72 65 27 73 20 61 6e 20 61 63 74 69 76 65 20 70 64 66 20 73 65 6c 65 63 74 69 6f 6e 2c 20 72 ere's.an.active.pdf.selection,.r
6be0 65 74 75 72 6e 73 20 61 20 20 74 68 61 74 20 63 6f 6e 74 61 69 6e 73 20 61 6c 6c 0a 74 68 65 20 eturns.a..that.contains.all.the.
6c00 72 65 6c 65 76 61 6e 74 20 69 6e 66 6f 20 28 70 61 67 65 2c 20 63 6f 6f 72 64 69 6e 61 74 65 73 relevant.info.(page,.coordinates
6c20 29 0a 0a 4f 74 68 65 72 77 69 73 65 20 72 65 74 75 72 6e 73 20 6e 69 6c 22 0a 20 20 20 20 28 69 )..Otherwise.returns.nil".....(i
6c40 66 2d 6c 65 74 2a 20 28 28 5f 20 28 70 64 66 2d 76 69 65 77 2d 61 63 74 69 76 65 2d 72 65 67 69 f-let*.((_.(pdf-view-active-regi
6c60 6f 6e 2d 70 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 61 67 65 20 28 69 6d 61 on-p))................(page.(ima
6c80 67 65 2d 6d 6f 64 65 2d 77 69 6e 64 6f 77 2d 67 65 74 20 27 70 61 67 65 29 29 0a 20 20 20 20 20 ge-mode-window-get.'page))......
6ca0 20 20 20 20 20 20 20 20 20 20 28 63 6f 6f 72 64 73 20 28 70 64 66 2d 76 69 65 77 2d 61 63 74 69 ..........(coords.(pdf-view-acti
6cc0 76 65 2d 72 65 67 69 6f 6e 29 29 29 0a 20 20 20 20 20 20 20 28 6d 61 6b 65 2d 70 64 66 2d 68 69 ve-region)))........(make-pdf-hi
6ce0 67 68 6c 69 67 68 74 20 3a 70 61 67 65 20 70 61 67 65 20 3a 63 6f 6f 72 64 73 20 63 6f 6f 72 64 ghlight.:page.page.:coords.coord
6d00 73 29 0a 20 20 20 20 20 20 6e 69 6c 29 29 0a 0a 28 61 64 64 2d 74 6f 2d 6c 69 73 74 20 27 6f 72 s).......nil))..(add-to-list.'or
6d20 67 2d 6e 6f 74 65 72 2d 2d 67 65 74 2d 68 69 67 68 6c 69 67 68 74 2d 6c 6f 63 61 74 69 6f 6e 2d g-noter--get-highlight-location-
6d40 68 6f 6f 6b 20 27 6f 72 67 2d 6e 6f 74 65 72 2d 70 64 66 2d 2d 67 65 74 2d 68 69 67 68 6c 69 67 hook.'org-noter-pdf--get-highlig
6d60 68 74 29 0a 0a 28 64 65 66 75 6e 20 6f 72 67 2d 6e 6f 74 65 72 2d 70 64 66 2d 2d 70 72 65 74 74 ht)..(defun.org-noter-pdf--prett
6d80 79 2d 70 72 69 6e 74 2d 68 69 67 68 6c 69 67 68 74 20 28 68 69 67 68 6c 69 67 68 74 2d 69 6e 66 y-print-highlight.(highlight-inf
6da0 6f 29 0a 20 20 28 66 6f 72 6d 61 74 20 22 25 73 22 20 68 69 67 68 6c 69 67 68 74 2d 69 6e 66 6f o)...(format."%s".highlight-info
6dc0 29 29 0a 0a 28 61 64 64 2d 74 6f 2d 6c 69 73 74 20 27 6f 72 67 2d 6e 6f 74 65 72 2d 2d 70 72 65 ))..(add-to-list.'org-noter--pre
6de0 74 74 79 2d 70 72 69 6e 74 2d 68 69 67 68 6c 69 67 68 74 2d 6c 6f 63 61 74 69 6f 6e 2d 68 6f 6f tty-print-highlight-location-hoo
6e00 6b 20 23 27 6f 72 67 2d 6e 6f 74 65 72 2d 70 64 66 2d 2d 70 72 65 74 74 79 2d 70 72 69 6e 74 2d k.#'org-noter-pdf--pretty-print-
6e20 68 69 67 68 6c 69 67 68 74 29 0a 0a 28 64 65 66 75 6e 20 6f 72 67 2d 6e 6f 74 65 72 2d 70 64 66 highlight)..(defun.org-noter-pdf
6e40 2d 2d 61 70 70 72 6f 78 2d 6c 6f 63 61 74 69 6f 6e 2d 63 6f 6e 73 20 28 6d 6f 64 65 20 26 6f 70 --approx-location-cons.(mode.&op
6e60 74 69 6f 6e 61 6c 20 70 72 65 63 69 73 65 2d 69 6e 66 6f 20 5f 66 6f 72 63 65 2d 6e 65 77 2d 72 tional.precise-info._force-new-r
6e80 65 66 29 0a 20 20 22 52 65 74 75 72 6e 20 6c 6f 63 61 74 69 6f 6e 20 61 73 20 61 20 63 6f 6e 73 ef)..."Return.location.as.a.cons
6ea0 20 63 65 6c 6c 2e 0a 52 75 6e 73 20 77 68 65 6e 20 4d 4f 44 45 20 69 73 20 60 64 6f 63 2d 76 69 .cell..Runs.when.MODE.is.`doc-vi
6ec0 65 77 2d 6d 6f 64 65 27 20 6f 72 20 60 70 64 66 2d 76 69 65 77 2d 6d 6f 64 65 27 0a 0a 52 65 74 ew-mode'.or.`pdf-view-mode'..Ret
6ee0 75 72 6e 73 20 70 61 67 65 20 6c 6f 63 61 74 69 6f 6e 20 61 73 20 28 70 61 67 65 20 2e 20 30 29 urns.page.location.as.(page...0)
6f00 2e 20 20 57 68 65 6e 20 70 72 6f 63 65 73 73 69 6e 67 0a 50 52 45 43 49 53 45 2d 49 4e 46 4f 2c ...When.processing.PRECISE-INFO,
6f20 20 72 65 74 75 72 6e 20 28 70 61 67 65 20 76 2d 70 6f 73 29 20 6f 72 20 28 70 61 67 65 20 76 2d .return.(page.v-pos).or.(page.v-
6f40 70 6f 73 20 2e 20 68 2d 70 6f 73 29 2e 22 0a 20 20 28 77 68 65 6e 20 28 6d 65 6d 71 20 6d 6f 64 pos...h-pos)."...(when.(memq.mod
6f60 65 20 27 28 64 6f 63 2d 76 69 65 77 2d 6d 6f 64 65 20 70 64 66 2d 76 69 65 77 2d 6d 6f 64 65 29 e.'(doc-view-mode.pdf-view-mode)
6f80 29 0a 20 20 20 20 28 63 6f 6e 73 20 28 69 6d 61 67 65 2d 6d 6f 64 65 2d 77 69 6e 64 6f 77 2d 67 ).....(cons.(image-mode-window-g
6fa0 65 74 20 27 70 61 67 65 29 20 28 69 66 20 28 6f 72 20 28 6e 75 6d 62 65 72 70 20 70 72 65 63 69 et.'page).(if.(or.(numberp.preci
6fc0 73 65 2d 69 6e 66 6f 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 se-info)........................
6fe0 20 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 6e 64 20 28 63 .........................(and.(c
7000 6f 6e 73 70 20 70 72 65 63 69 73 65 2d 69 6e 66 6f 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 onsp.precise-info)..............
7020 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ................................
7040 20 20 20 20 20 20 20 20 28 6e 75 6d 62 65 72 70 20 28 63 61 72 20 70 72 65 63 69 73 65 2d 69 6e ........(numberp.(car.precise-in
7060 66 6f 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 fo))............................
7080 20 20 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 6e 75 6d 62 65 ..........................(numbe
70a0 72 70 20 28 63 64 72 20 70 72 65 63 69 73 65 2d 69 6e 66 6f 29 29 29 29 0a 20 20 20 20 20 20 20 rp.(cdr.precise-info))))........
70c0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ................................
70e0 20 20 20 20 20 70 72 65 63 69 73 65 2d 69 6e 66 6f 20 30 29 29 29 29 0a 0a 28 61 64 64 2d 74 6f .....precise-info.0))))..(add-to
7100 2d 6c 69 73 74 20 27 6f 72 67 2d 6e 6f 74 65 72 2d 2d 64 6f 63 2d 61 70 70 72 6f 78 2d 6c 6f 63 -list.'org-noter--doc-approx-loc
7120 61 74 69 6f 6e 2d 68 6f 6f 6b 20 23 27 6f 72 67 2d 6e 6f 74 65 72 2d 70 64 66 2d 2d 61 70 70 72 ation-hook.#'org-noter-pdf--appr
7140 6f 78 2d 6c 6f 63 61 74 69 6f 6e 2d 63 6f 6e 73 29 0a 0a 28 64 65 66 75 6e 20 6f 72 67 2d 6e 6f ox-location-cons)..(defun.org-no
7160 74 65 72 2d 70 64 66 2d 2d 67 65 74 2d 62 75 66 66 65 72 2d 66 69 6c 65 2d 6e 61 6d 65 20 28 26 ter-pdf--get-buffer-file-name.(&
7180 6f 70 74 69 6f 6e 61 6c 20 5f 6d 6f 64 65 29 0a 20 20 22 52 65 74 75 72 6e 20 74 68 65 20 66 69 optional._mode)..."Return.the.fi
71a0 6c 65 20 6e 61 6d 69 6e 67 20 62 61 63 6b 69 6e 67 20 74 68 65 20 64 6f 63 75 6d 65 6e 74 20 62 le.naming.backing.the.document.b
71c0 75 66 66 65 72 2e 0a 0a 4d 4f 44 45 20 28 75 6e 75 73 65 64 29 20 69 73 20 72 65 71 75 69 72 65 uffer...MODE.(unused).is.require
71e0 64 20 66 6f 72 20 74 68 69 73 20 74 79 70 65 20 6f 66 20 68 6f 6f 6b 2e 22 0a 20 20 28 62 6f 75 d.for.this.type.of.hook."...(bou
7200 6e 64 2d 61 6e 64 2d 74 72 75 65 2d 70 20 70 64 66 2d 66 69 6c 65 2d 6e 61 6d 65 29 29 0a 0a 28 nd-and-true-p.pdf-file-name))..(
7220 61 64 64 2d 74 6f 2d 6c 69 73 74 20 27 6f 72 67 2d 6e 6f 74 65 72 2d 67 65 74 2d 62 75 66 66 65 add-to-list.'org-noter-get-buffe
7240 72 2d 66 69 6c 65 2d 6e 61 6d 65 2d 68 6f 6f 6b 20 23 27 6f 72 67 2d 6e 6f 74 65 72 2d 70 64 66 r-file-name-hook.#'org-noter-pdf
7260 2d 2d 67 65 74 2d 62 75 66 66 65 72 2d 66 69 6c 65 2d 6e 61 6d 65 29 0a 0a 28 64 65 66 75 6e 20 --get-buffer-file-name)..(defun.
7280 6f 72 67 2d 6e 6f 74 65 72 2d 70 64 66 2d 2d 70 64 66 2d 76 69 65 77 2d 73 65 74 75 70 2d 68 61 org-noter-pdf--pdf-view-setup-ha
72a0 6e 64 6c 65 72 20 28 6d 6f 64 65 29 0a 20 20 28 77 68 65 6e 20 28 65 71 20 6d 6f 64 65 20 27 70 ndler.(mode)...(when.(eq.mode.'p
72c0 64 66 2d 76 69 65 77 2d 6d 6f 64 65 29 0a 20 20 20 20 3b 3b 20 28 73 65 74 71 20 62 75 66 66 65 df-view-mode).....;;.(setq.buffe
72e0 72 2d 66 69 6c 65 2d 6e 61 6d 65 20 64 6f 63 75 6d 65 6e 74 2d 70 61 74 68 29 0a 20 20 20 20 28 r-file-name.document-path).....(
7300 70 64 66 2d 76 69 65 77 2d 6d 6f 64 65 29 0a 20 20 20 20 28 61 64 64 2d 68 6f 6f 6b 20 27 70 64 pdf-view-mode).....(add-hook.'pd
7320 66 2d 76 69 65 77 2d 61 66 74 65 72 2d 63 68 61 6e 67 65 2d 70 61 67 65 2d 68 6f 6f 6b 20 27 6f f-view-after-change-page-hook.'o
7340 72 67 2d 6e 6f 74 65 72 2d 2d 64 6f 63 2d 6c 6f 63 61 74 69 6f 6e 2d 63 68 61 6e 67 65 2d 68 61 rg-noter--doc-location-change-ha
7360 6e 64 6c 65 72 20 6e 69 6c 20 74 29 0a 20 20 20 20 74 29 29 0a 0a 28 61 64 64 2d 74 6f 2d 6c 69 ndler.nil.t).....t))..(add-to-li
7380 73 74 20 27 6f 72 67 2d 6e 6f 74 65 72 2d 73 65 74 2d 75 70 2d 64 6f 63 75 6d 65 6e 74 2d 68 6f st.'org-noter-set-up-document-ho
73a0 6f 6b 20 23 27 6f 72 67 2d 6e 6f 74 65 72 2d 70 64 66 2d 2d 70 64 66 2d 76 69 65 77 2d 73 65 74 ok.#'org-noter-pdf--pdf-view-set
73c0 75 70 2d 68 61 6e 64 6c 65 72 29 0a 0a 28 64 65 66 75 6e 20 6f 72 67 2d 6e 6f 74 65 72 2d 70 64 up-handler)..(defun.org-noter-pd
73e0 66 2d 2d 64 6f 63 2d 76 69 65 77 2d 73 65 74 75 70 2d 68 61 6e 64 6c 65 72 20 28 6d 6f 64 65 29 f--doc-view-setup-handler.(mode)
7400 0a 20 20 28 77 68 65 6e 20 28 65 71 20 6d 6f 64 65 20 27 64 6f 63 2d 76 69 65 77 2d 6d 6f 64 65 ...(when.(eq.mode.'doc-view-mode
7420 29 0a 20 20 20 20 3b 3b 20 28 73 65 74 71 20 62 75 66 66 65 72 2d 66 69 6c 65 2d 6e 61 6d 65 20 ).....;;.(setq.buffer-file-name.
7440 64 6f 63 75 6d 65 6e 74 2d 70 61 74 68 29 0a 20 20 20 20 28 64 6f 63 2d 76 69 65 77 2d 6d 6f 64 document-path).....(doc-view-mod
7460 65 29 0a 20 20 20 20 28 61 64 76 69 63 65 2d 61 64 64 20 27 64 6f 63 2d 76 69 65 77 2d 67 6f 74 e).....(advice-add.'doc-view-got
7480 6f 2d 70 61 67 65 20 3a 61 66 74 65 72 20 27 6f 72 67 2d 6e 6f 74 65 72 2d 2d 6c 6f 63 61 74 69 o-page.:after.'org-noter--locati
74a0 6f 6e 2d 63 68 61 6e 67 65 2d 61 64 76 69 63 65 29 0a 20 20 20 20 74 29 29 0a 0a 28 61 64 64 2d on-change-advice).....t))..(add-
74c0 74 6f 2d 6c 69 73 74 20 27 6f 72 67 2d 6e 6f 74 65 72 2d 73 65 74 2d 75 70 2d 64 6f 63 75 6d 65 to-list.'org-noter-set-up-docume
74e0 6e 74 2d 68 6f 6f 6b 20 23 27 6f 72 67 2d 6e 6f 74 65 72 2d 70 64 66 2d 2d 64 6f 63 2d 76 69 65 nt-hook.#'org-noter-pdf--doc-vie
7500 77 2d 73 65 74 75 70 2d 68 61 6e 64 6c 65 72 29 0a 0a 28 64 65 66 75 6e 20 6f 72 67 2d 6e 6f 74 w-setup-handler)..(defun.org-not
7520 65 72 2d 70 64 66 2d 2d 6e 6f 2d 73 65 73 73 69 6f 6e 73 2d 72 65 6d 6f 76 65 2d 61 64 76 69 63 er-pdf--no-sessions-remove-advic
7540 65 20 28 29 0a 20 20 22 52 65 6d 6f 76 65 20 64 6f 63 2d 76 69 65 77 2d 73 70 65 63 69 66 69 63 e.()..."Remove.doc-view-specific
7560 20 61 64 76 69 63 65 20 77 68 65 6e 20 61 6c 6c 20 73 65 73 73 69 6f 6e 73 20 61 72 65 20 63 6c .advice.when.all.sessions.are.cl
7580 6f 73 65 64 2e 22 0a 20 20 28 61 64 76 69 63 65 2d 72 65 6d 6f 76 65 20 27 64 6f 63 2d 76 69 65 osed."...(advice-remove.'doc-vie
75a0 77 2d 67 6f 74 6f 2d 70 61 67 65 20 27 6f 72 67 2d 6e 6f 74 65 72 2d 2d 6c 6f 63 61 74 69 6f 6e w-goto-page.'org-noter--location
75c0 2d 63 68 61 6e 67 65 2d 61 64 76 69 63 65 29 29 0a 0a 28 61 64 64 2d 74 6f 2d 6c 69 73 74 20 27 -change-advice))..(add-to-list.'
75e0 6f 72 67 2d 6e 6f 74 65 72 2d 2d 6e 6f 2d 73 65 73 73 69 6f 6e 73 2d 72 65 6d 6f 76 65 2d 61 64 org-noter--no-sessions-remove-ad
7600 76 69 63 65 2d 68 6f 6f 6b 73 20 23 27 6f 72 67 2d 6e 6f 74 65 72 2d 70 64 66 2d 2d 6e 6f 2d 73 vice-hooks.#'org-noter-pdf--no-s
7620 65 73 73 69 6f 6e 73 2d 72 65 6d 6f 76 65 2d 61 64 76 69 63 65 29 0a 0a 28 64 65 66 75 6e 20 6f essions-remove-advice)..(defun.o
7640 72 67 2d 6e 6f 74 65 72 2d 70 64 66 2d 2d 70 72 65 74 74 79 2d 70 72 69 6e 74 2d 6c 6f 63 61 74 rg-noter-pdf--pretty-print-locat
7660 69 6f 6e 20 28 6c 6f 63 61 74 69 6f 6e 29 0a 20 20 22 46 6f 72 6d 61 74 73 20 4c 4f 43 41 54 49 ion.(location)..."Formats.LOCATI
7680 4f 4e 20 77 69 74 68 20 66 75 6c 6c 20 70 72 65 63 69 73 69 6f 6e 20 66 6f 72 20 70 72 6f 70 65 ON.with.full.precision.for.prope
76a0 72 74 79 20 64 72 61 77 65 72 73 2e 22 0a 20 20 28 6f 72 67 2d 6e 6f 74 65 72 2d 2d 77 69 74 68 rty.drawers."...(org-noter--with
76c0 2d 76 61 6c 69 64 2d 73 65 73 73 69 6f 6e 0a 20 20 20 28 77 68 65 6e 20 28 6d 65 6d 71 20 28 6f -valid-session....(when.(memq.(o
76e0 72 67 2d 6e 6f 74 65 72 2d 2d 73 65 73 73 69 6f 6e 2d 64 6f 63 2d 6d 6f 64 65 20 73 65 73 73 69 rg-noter--session-doc-mode.sessi
7700 6f 6e 29 20 27 28 64 6f 63 2d 76 69 65 77 2d 6d 6f 64 65 20 70 64 66 2d 76 69 65 77 2d 6d 6f 64 on).'(doc-view-mode.pdf-view-mod
7720 65 29 29 0a 20 20 20 20 20 28 66 6f 72 6d 61 74 20 22 25 73 22 20 28 69 66 20 28 6f 72 20 28 6e e))......(format."%s".(if.(or.(n
7740 6f 74 20 28 6f 72 67 2d 6e 6f 74 65 72 2d 2d 67 65 74 2d 6c 6f 63 61 74 69 6f 6e 2d 74 6f 70 20 ot.(org-noter--get-location-top.
7760 6c 6f 63 61 74 69 6f 6e 29 29 20 28 3c 3d 20 28 6f 72 67 2d 6e 6f 74 65 72 2d 2d 67 65 74 2d 6c location)).(<=.(org-noter--get-l
7780 6f 63 61 74 69 6f 6e 2d 74 6f 70 20 6c 6f 63 61 74 69 6f 6e 29 20 30 29 29 0a 20 20 20 20 20 20 ocation-top.location).0)).......
77a0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 61 72 20 6c 6f 63 61 74 69 6f 6e 29 0a 20 ................(car.location)..
77c0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6c 6f 63 61 74 69 6f 6e 29 29 29 29 29 ...................location)))))
77e0 0a 0a 28 61 64 64 2d 74 6f 2d 6c 69 73 74 20 27 6f 72 67 2d 6e 6f 74 65 72 2d 2d 70 72 65 74 74 ..(add-to-list.'org-noter--prett
7800 79 2d 70 72 69 6e 74 2d 6c 6f 63 61 74 69 6f 6e 2d 68 6f 6f 6b 20 23 27 6f 72 67 2d 6e 6f 74 65 y-print-location-hook.#'org-note
7820 72 2d 70 64 66 2d 2d 70 72 65 74 74 79 2d 70 72 69 6e 74 2d 6c 6f 63 61 74 69 6f 6e 29 0a 0a 28 r-pdf--pretty-print-location)..(
7840 64 65 66 75 6e 20 6f 72 67 2d 6e 6f 74 65 72 2d 70 64 66 2d 2d 70 72 65 74 74 79 2d 70 72 69 6e defun.org-noter-pdf--pretty-prin
7860 74 2d 6c 6f 63 61 74 69 6f 6e 2d 66 6f 72 2d 74 69 74 6c 65 20 28 6c 6f 63 61 74 69 6f 6e 29 0a t-location-for-title.(location).
7880 20 20 22 43 6f 6e 76 65 72 74 20 4c 4f 43 41 54 49 4f 4e 20 74 6f 20 61 20 68 75 6d 61 6e 20 72 .."Convert.LOCATION.to.a.human.r
78a0 65 61 64 61 62 6c 65 20 66 6f 72 6d 61 74 2e 0a 57 69 74 68 20 60 70 64 66 2d 76 69 65 77 2d 6d eadable.format..With.`pdf-view-m
78c0 6f 64 65 27 2c 20 74 68 65 20 66 6f 72 6d 61 74 20 75 73 65 73 20 70 61 67 65 6c 61 62 65 6c 20 ode',.the.format.uses.pagelabel.
78e0 61 6e 64 20 76 65 72 74 69 63 61 6c 20 61 6e 64 0a 68 6f 72 69 7a 6f 6e 74 61 6c 20 70 65 72 63 and.vertical.and.horizontal.perc
7900 65 6e 74 61 67 65 73 2e 20 20 57 69 74 68 20 60 64 6f 63 2d 76 69 65 77 2d 6d 6f 64 65 27 2c 20 entages...With.`doc-view-mode',.
7920 74 68 69 73 20 66 61 6c 6c 73 20 62 61 63 6b 20 74 6f 0a 6f 72 69 67 69 6e 61 6c 20 70 72 65 74 this.falls.back.to.original.pret
7940 74 79 2d 70 72 69 6e 74 20 66 75 6e 63 74 69 6f 6e 2e 22 0a 20 20 28 6f 72 67 2d 6e 6f 74 65 72 ty-print.function."...(org-noter
7960 2d 2d 77 69 74 68 2d 76 61 6c 69 64 2d 73 65 73 73 69 6f 6e 0a 20 20 20 28 6c 65 74 20 28 28 6d --with-valid-session....(let.((m
7980 6f 64 65 20 28 6f 72 67 2d 6e 6f 74 65 72 2d 2d 73 65 73 73 69 6f 6e 2d 64 6f 63 2d 6d 6f 64 65 ode.(org-noter--session-doc-mode
79a0 20 73 65 73 73 69 6f 6e 29 29 0a 20 20 20 20 20 20 20 20 20 28 76 70 6f 73 20 28 6f 72 67 2d 6e .session))..........(vpos.(org-n
79c0 6f 74 65 72 2d 2d 67 65 74 2d 6c 6f 63 61 74 69 6f 6e 2d 74 6f 70 20 6c 6f 63 61 74 69 6f 6e 29 oter--get-location-top.location)
79e0 29 0a 20 20 20 20 20 20 20 20 20 28 68 70 6f 73 20 28 6f 72 67 2d 6e 6f 74 65 72 2d 2d 67 65 74 )..........(hpos.(org-noter--get
7a00 2d 6c 6f 63 61 74 69 6f 6e 2d 6c 65 66 74 20 6c 6f 63 61 74 69 6f 6e 29 29 0a 20 20 20 20 20 20 -location-left.location)).......
7a20 20 20 20 28 76 74 78 74 20 22 22 29 20 28 68 74 78 74 20 22 22 29 0a 20 20 20 20 20 20 20 20 20 ...(vtxt."").(htxt."")..........
7a40 70 61 67 65 6c 61 62 65 6c 29 0a 20 20 20 20 20 28 63 6f 6e 64 20 28 28 65 71 20 6d 6f 64 65 20 pagelabel)......(cond.((eq.mode.
7a60 27 70 64 66 2d 76 69 65 77 2d 6d 6f 64 65 29 20 3b 20 66 6f 72 20 64 65 66 61 75 6c 74 20 74 69 'pdf-view-mode).;.for.default.ti
7a80 74 6c 65 2c 20 72 65 66 65 72 65 6e 63 65 20 70 61 67 65 6c 61 62 65 6c 20 69 6e 73 74 65 61 64 tle,.reference.pagelabel.instead
7aa0 20 6f 66 20 70 61 67 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 69 66 20 28 3e 20 68 70 6f 73 .of.page.............(if.(>.hpos
7ac0 20 30 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 68 74 78 74 20 28 .0).................(setq.htxt.(
7ae0 66 6f 72 6d 61 74 20 22 20 48 3a 20 25 64 25 25 22 20 28 72 6f 75 6e 64 20 28 2a 20 31 30 30 20 format.".H:.%d%%".(round.(*.100.
7b00 68 70 6f 73 29 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 69 66 20 28 6f 72 20 28 3e hpos))))).............(if.(or.(>
7b20 20 76 70 6f 73 20 30 29 20 28 3e 20 68 70 6f 73 20 30 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 .vpos.0).(>.hpos.0))............
7b40 20 20 20 20 20 28 73 65 74 71 20 76 74 78 74 20 28 66 6f 72 6d 61 74 20 22 20 56 3a 20 25 64 25 .....(setq.vtxt.(format.".V:.%d%
7b60 25 22 20 28 72 6f 75 6e 64 20 28 2a 20 31 30 30 20 76 70 6f 73 29 29 29 29 29 0a 20 20 20 20 20 %".(round.(*.100.vpos)))))......
7b80 20 20 20 20 20 20 20 28 73 65 6c 65 63 74 2d 77 69 6e 64 6f 77 20 28 6f 72 67 2d 6e 6f 74 65 72 .......(select-window.(org-noter
7ba0 2d 2d 67 65 74 2d 64 6f 63 2d 77 69 6e 64 6f 77 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 --get-doc-window)).............(
7bc0 73 65 74 71 20 70 61 67 65 6c 61 62 65 6c 20 28 70 64 66 2d 76 69 65 77 2d 63 75 72 72 65 6e 74 setq.pagelabel.(pdf-view-current
7be0 2d 70 61 67 65 6c 61 62 65 6c 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 6c 65 63 74 -pagelabel)).............(select
7c00 2d 77 69 6e 64 6f 77 20 28 6f 72 67 2d 6e 6f 74 65 72 2d 2d 67 65 74 2d 6e 6f 74 65 73 2d 77 69 -window.(org-noter--get-notes-wi
7c20 6e 64 6f 77 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 66 6f 72 6d 61 74 20 22 25 73 25 73 ndow)).............(format."%s%s
7c40 25 73 22 20 70 61 67 65 6c 61 62 65 6c 20 76 74 78 74 20 68 74 78 74 29 29 0a 20 20 20 20 20 20 %s".pagelabel.vtxt.htxt)).......
7c60 20 20 20 20 20 28 28 65 71 20 6d 6f 64 65 20 27 64 6f 63 2d 76 69 65 77 2d 6d 6f 64 65 29 20 3b .....((eq.mode.'doc-view-mode).;
7c80 20 66 61 6c 6c 20 62 61 63 6b 20 74 6f 20 6f 72 69 67 69 6e 61 6c 20 70 70 20 66 6f 72 20 64 6f .fall.back.to.original.pp.for.do
7ca0 63 2d 6d 6f 64 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 6f 72 67 2d 6e 6f 74 65 72 2d 70 64 c-mode.............(org-noter-pd
7cc0 66 2d 2d 70 72 65 74 74 79 2d 70 72 69 6e 74 2d 6c 6f 63 61 74 69 6f 6e 20 6c 6f 63 61 74 69 6f f--pretty-print-location.locatio
7ce0 6e 29 29 29 29 29 29 0a 0a 28 61 64 64 2d 74 6f 2d 6c 69 73 74 20 27 6f 72 67 2d 6e 6f 74 65 72 n))))))..(add-to-list.'org-noter
7d00 2d 2d 70 72 65 74 74 79 2d 70 72 69 6e 74 2d 6c 6f 63 61 74 69 6f 6e 2d 66 6f 72 2d 74 69 74 6c --pretty-print-location-for-titl
7d20 65 2d 68 6f 6f 6b 20 23 27 6f 72 67 2d 6e 6f 74 65 72 2d 70 64 66 2d 2d 70 72 65 74 74 79 2d 70 e-hook.#'org-noter-pdf--pretty-p
7d40 72 69 6e 74 2d 6c 6f 63 61 74 69 6f 6e 2d 66 6f 72 2d 74 69 74 6c 65 29 0a 0a 28 64 65 66 75 6e rint-location-for-title)..(defun
7d60 20 6f 72 67 2d 6e 6f 74 65 72 2d 70 64 66 2d 2d 70 64 66 2d 76 69 65 77 2d 67 65 74 2d 70 72 65 .org-noter-pdf--pdf-view-get-pre
7d80 63 69 73 65 2d 69 6e 66 6f 20 28 6d 6f 64 65 20 77 69 6e 64 6f 77 29 0a 20 20 28 77 68 65 6e 20 cise-info.(mode.window)...(when.
7da0 28 65 71 20 6d 6f 64 65 20 27 70 64 66 2d 76 69 65 77 2d 6d 6f 64 65 29 0a 20 20 20 20 28 6c 65 (eq.mode.'pdf-view-mode).....(le
7dc0 74 20 28 76 2d 70 6f 73 69 74 69 6f 6e 20 68 2d 70 6f 73 69 74 69 6f 6e 29 0a 20 20 20 20 20 20 t.(v-position.h-position).......
7de0 28 69 66 20 28 70 64 66 2d 76 69 65 77 2d 61 63 74 69 76 65 2d 72 65 67 69 6f 6e 2d 70 29 0a 20 (if.(pdf-view-active-region-p)..
7e00 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 65 64 67 65 73 20 28 63 61 72 20 28 70 64 66 2d .........(let.((edges.(car.(pdf-
7e20 76 69 65 77 2d 61 63 74 69 76 65 2d 72 65 67 69 6f 6e 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 view-active-region))))..........
7e40 20 20 20 28 73 65 74 71 20 76 2d 70 6f 73 69 74 69 6f 6e 20 28 6d 69 6e 20 28 6e 74 68 20 31 20 ...(setq.v-position.(min.(nth.1.
7e60 65 64 67 65 73 29 20 28 6e 74 68 20 33 20 65 64 67 65 73 29 29 0a 20 20 20 20 20 20 20 20 20 20 edges).(nth.3.edges))...........
7e80 20 20 20 20 20 20 20 20 68 2d 70 6f 73 69 74 69 6f 6e 20 28 6d 69 6e 20 28 6e 74 68 20 30 20 65 ........h-position.(min.(nth.0.e
7ea0 64 67 65 73 29 20 28 6e 74 68 20 32 20 65 64 67 65 73 29 29 29 29 0a 0a 20 20 20 20 20 20 20 20 dges).(nth.2.edges))))..........
7ec0 28 6c 65 74 20 28 28 65 76 65 6e 74 20 6e 69 6c 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 77 68 (let.((event.nil))...........(wh
7ee0 69 6c 65 20 28 6e 6f 74 20 28 61 6e 64 20 28 65 71 20 27 6d 6f 75 73 65 2d 31 20 28 63 61 72 20 ile.(not.(and.(eq.'mouse-1.(car.
7f00 65 76 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 20 20 20 20 event)).........................
7f20 20 20 20 28 65 71 20 77 69 6e 64 6f 77 20 28 70 6f 73 6e 2d 77 69 6e 64 6f 77 20 28 65 76 65 6e ...(eq.window.(posn-window.(even
7f40 74 2d 73 74 61 72 74 20 65 76 65 6e 74 29 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 t-start.event))))).............(
7f60 73 65 74 71 20 65 76 65 6e 74 20 28 72 65 61 64 2d 65 76 65 6e 74 20 22 43 6c 69 63 6b 20 77 68 setq.event.(read-event."Click.wh
7f80 65 72 65 20 79 6f 75 20 77 61 6e 74 20 74 68 65 20 73 74 61 72 74 20 6f 66 20 74 68 65 20 6e 6f ere.you.want.the.start.of.the.no
7fa0 74 65 20 74 6f 20 62 65 21 22 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 2a 20 28 28 te.to.be!")))...........(let*.((
7fc0 63 6f 6c 2d 72 6f 77 20 28 70 6f 73 6e 2d 63 6f 6c 2d 72 6f 77 20 28 65 76 65 6e 74 2d 73 74 61 col-row.(posn-col-row.(event-sta
7fe0 72 74 20 65 76 65 6e 74 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6c rt.event)))..................(cl
8000 69 63 6b 2d 70 6f 73 69 74 69 6f 6e 20 28 6f 72 67 2d 6e 6f 74 65 72 2d 2d 63 6f 6e 76 2d 70 61 ick-position.(org-noter--conv-pa
8020 67 65 2d 73 63 72 6f 6c 6c 2d 70 65 72 63 65 6e 74 61 67 65 20 28 2b 20 28 77 69 6e 64 6f 77 2d ge-scroll-percentage.(+.(window-
8040 76 73 63 72 6f 6c 6c 29 20 28 63 64 72 20 63 6f 6c 2d 72 6f 77 29 29 0a 20 20 20 20 20 20 20 20 vscroll).(cdr.col-row)).........
8060 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ................................
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 20 20 20 20 20 20 ................................
80a0 20 28 2b 20 28 77 69 6e 64 6f 77 2d 68 73 63 72 6f 6c 6c 29 20 28 63 61 72 20 63 6f 6c 2d 72 6f .(+.(window-hscroll).(car.col-ro
80c0 77 29 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 76 2d 70 6f 73 69 74 w))))).............(setq.v-posit
80e0 69 6f 6e 20 28 63 61 72 20 63 6c 69 63 6b 2d 70 6f 73 69 74 69 6f 6e 29 0a 20 20 20 20 20 20 20 ion.(car.click-position)........
8100 20 20 20 20 20 20 20 20 20 20 20 68 2d 70 6f 73 69 74 69 6f 6e 20 28 63 64 72 20 63 6c 69 63 6b ...........h-position.(cdr.click
8120 2d 70 6f 73 69 74 69 6f 6e 29 29 29 29 29 0a 20 20 20 20 20 20 28 63 6f 6e 73 20 76 2d 70 6f 73 -position))))).......(cons.v-pos
8140 69 74 69 6f 6e 20 68 2d 70 6f 73 69 74 69 6f 6e 29 29 29 29 0a 0a 28 61 64 64 2d 74 6f 2d 6c 69 ition.h-position))))..(add-to-li
8160 73 74 20 27 6f 72 67 2d 6e 6f 74 65 72 2d 2d 67 65 74 2d 70 72 65 63 69 73 65 2d 69 6e 66 6f 2d st.'org-noter--get-precise-info-
8180 68 6f 6f 6b 20 23 27 6f 72 67 2d 6e 6f 74 65 72 2d 70 64 66 2d 2d 70 64 66 2d 76 69 65 77 2d 67 hook.#'org-noter-pdf--pdf-view-g
81a0 65 74 2d 70 72 65 63 69 73 65 2d 69 6e 66 6f 29 0a 0a 28 64 65 66 75 6e 20 6f 72 67 2d 6e 6f 74 et-precise-info)..(defun.org-not
81c0 65 72 2d 70 64 66 2d 2d 64 6f 63 2d 76 69 65 77 2d 67 65 74 2d 70 72 65 63 69 73 65 2d 69 6e 66 er-pdf--doc-view-get-precise-inf
81e0 6f 20 28 6d 6f 64 65 20 77 69 6e 64 6f 77 29 0a 20 20 28 77 68 65 6e 20 28 65 71 20 6d 6f 64 65 o.(mode.window)...(when.(eq.mode
8200 20 27 64 6f 63 2d 76 69 65 77 2d 6d 6f 64 65 29 0a 20 20 20 20 28 6c 65 74 20 28 28 65 76 65 6e .'doc-view-mode).....(let.((even
8220 74 20 6e 69 6c 29 29 0a 20 20 20 20 20 20 28 77 68 69 6c 65 20 28 6e 6f 74 20 28 61 6e 64 20 28 t.nil)).......(while.(not.(and.(
8240 65 71 20 27 6d 6f 75 73 65 2d 31 20 28 63 61 72 20 65 76 65 6e 74 29 29 0a 20 20 20 20 20 20 20 eq.'mouse-1.(car.event))........
8260 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 65 71 20 77 69 6e 64 6f 77 20 28 70 6f 73 6e ................(eq.window.(posn
8280 2d 77 69 6e 64 6f 77 20 28 65 76 65 6e 74 2d 73 74 61 72 74 20 65 76 65 6e 74 29 29 29 29 29 0a -window.(event-start.event))))).
82a0 20 20 20 20 20 20 20 20 28 73 65 74 71 20 65 76 65 6e 74 20 28 72 65 61 64 2d 65 76 65 6e 74 20 ........(setq.event.(read-event.
82c0 22 43 6c 69 63 6b 20 77 68 65 72 65 20 79 6f 75 20 77 61 6e 74 20 74 68 65 20 73 74 61 72 74 20 "Click.where.you.want.the.start.
82e0 6f 66 20 74 68 65 20 6e 6f 74 65 20 74 6f 20 62 65 21 22 29 29 29 0a 20 20 20 20 20 20 28 6f 72 of.the.note.to.be!"))).......(or
8300 67 2d 6e 6f 74 65 72 2d 2d 63 6f 6e 76 2d 70 61 67 65 2d 73 63 72 6f 6c 6c 2d 70 65 72 63 65 6e g-noter--conv-page-scroll-percen
8320 74 61 67 65 20 28 2b 20 28 77 69 6e 64 6f 77 2d 76 73 63 72 6f 6c 6c 29 0a 20 20 20 20 20 20 20 tage.(+.(window-vscroll)........
8340 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ................................
8360 20 20 20 20 20 20 20 20 20 20 28 63 64 72 20 28 70 6f 73 6e 2d 63 6f 6c 2d 72 6f 77 20 28 65 76 ..........(cdr.(posn-col-row.(ev
8380 65 6e 74 2d 73 74 61 72 74 20 65 76 65 6e 74 29 29 29 29 29 29 29 29 0a 0a 28 61 64 64 2d 74 6f ent-start.event))))))))..(add-to
83a0 2d 6c 69 73 74 20 27 6f 72 67 2d 6e 6f 74 65 72 2d 2d 67 65 74 2d 70 72 65 63 69 73 65 2d 69 6e -list.'org-noter--get-precise-in
83c0 66 6f 2d 68 6f 6f 6b 20 23 27 6f 72 67 2d 6e 6f 74 65 72 2d 70 64 66 2d 2d 64 6f 63 2d 76 69 65 fo-hook.#'org-noter-pdf--doc-vie
83e0 77 2d 67 65 74 2d 70 72 65 63 69 73 65 2d 69 6e 66 6f 29 0a 0a 28 64 65 66 75 6e 20 6f 72 67 2d w-get-precise-info)..(defun.org-
8400 6e 6f 74 65 72 2d 70 64 66 2d 2d 67 6f 74 6f 2d 6c 6f 63 61 74 69 6f 6e 20 28 6d 6f 64 65 20 6c noter-pdf--goto-location.(mode.l
8420 6f 63 61 74 69 6f 6e 20 77 69 6e 64 6f 77 29 0a 20 20 28 77 68 65 6e 20 28 6d 65 6d 71 20 6d 6f ocation.window)...(when.(memq.mo
8440 64 65 20 27 28 64 6f 63 2d 76 69 65 77 2d 6d 6f 64 65 20 70 64 66 2d 76 69 65 77 2d 6d 6f 64 65 de.'(doc-view-mode.pdf-view-mode
8460 29 29 0a 20 20 20 20 28 6c 65 74 20 28 28 74 6f 70 20 28 6f 72 67 2d 6e 6f 74 65 72 2d 2d 67 65 )).....(let.((top.(org-noter--ge
8480 74 2d 6c 6f 63 61 74 69 6f 6e 2d 74 6f 70 20 6c 6f 63 61 74 69 6f 6e 29 29 0a 20 20 20 20 20 20 t-location-top.location)).......
84a0 20 20 20 20 28 6c 65 66 74 20 28 6f 72 67 2d 6e 6f 74 65 72 2d 2d 67 65 74 2d 6c 6f 63 61 74 69 ....(left.(org-noter--get-locati
84c0 6f 6e 2d 6c 65 66 74 20 6c 6f 63 61 74 69 6f 6e 29 29 29 0a 0a 20 20 20 20 20 20 28 69 66 20 28 on-left.location)))........(if.(
84e0 65 71 20 6d 6f 64 65 20 27 64 6f 63 2d 76 69 65 77 2d 6d 6f 64 65 29 0a 20 20 20 20 20 20 20 20 eq.mode.'doc-view-mode).........
8500 20 20 28 64 6f 63 2d 76 69 65 77 2d 67 6f 74 6f 2d 70 61 67 65 20 28 6f 72 67 2d 6e 6f 74 65 72 ..(doc-view-goto-page.(org-noter
8520 2d 2d 67 65 74 2d 6c 6f 63 61 74 69 6f 6e 2d 70 61 67 65 20 6c 6f 63 61 74 69 6f 6e 29 29 0a 20 --get-location-page.location))..
8540 20 20 20 20 20 20 20 28 70 64 66 2d 76 69 65 77 2d 67 6f 74 6f 2d 70 61 67 65 20 28 6f 72 67 2d .......(pdf-view-goto-page.(org-
8560 6e 6f 74 65 72 2d 2d 67 65 74 2d 6c 6f 63 61 74 69 6f 6e 2d 70 61 67 65 20 6c 6f 63 61 74 69 6f noter--get-location-page.locatio
8580 6e 29 29 0a 20 20 20 20 20 20 20 20 3b 3b 20 4e 4f 54 45 28 6e 6f 78 29 3a 20 54 68 69 73 20 74 n)).........;;.NOTE(nox):.This.t
85a0 69 6d 65 72 20 69 73 20 6e 65 65 64 65 64 20 62 65 63 61 75 73 65 20 74 68 65 20 74 6f 6f 6c 74 imer.is.needed.because.the.toolt
85c0 69 70 20 6d 61 79 20 69 6e 74 72 6f 64 75 63 65 20 61 20 64 65 6c 61 79 2c 0a 20 20 20 20 20 20 ip.may.introduce.a.delay,.......
85e0 20 20 3b 3b 20 73 6f 20 73 79 6e 63 69 6e 67 20 6d 75 6c 74 69 70 6c 65 20 70 61 67 65 73 20 77 ..;;.so.syncing.multiple.pages.w
8600 61 73 20 73 6c 6f 77 0a 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 28 3e 3d 20 6f 72 67 2d 6e 6f as.slow.........(when.(>=.org-no
8620 74 65 72 2d 61 72 72 6f 77 2d 64 65 6c 61 79 20 30 29 0a 20 20 20 20 20 20 20 20 20 20 28 77 68 ter-arrow-delay.0)...........(wh
8640 65 6e 20 6f 72 67 2d 6e 6f 74 65 72 2d 2d 61 72 72 6f 77 2d 6c 6f 63 61 74 69 6f 6e 20 28 63 61 en.org-noter--arrow-location.(ca
8660 6e 63 65 6c 2d 74 69 6d 65 72 20 28 61 72 65 66 20 6f 72 67 2d 6e 6f 74 65 72 2d 2d 61 72 72 6f ncel-timer.(aref.org-noter--arro
8680 77 2d 6c 6f 63 61 74 69 6f 6e 20 30 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 w-location.0)))...........(setq.
86a0 6f 72 67 2d 6e 6f 74 65 72 2d 2d 61 72 72 6f 77 2d 6c 6f 63 61 74 69 6f 6e 0a 20 20 20 20 20 20 org-noter--arrow-location.......
86c0 20 20 20 20 20 20 20 20 20 20 28 76 65 63 74 6f 72 20 28 72 75 6e 2d 77 69 74 68 2d 69 64 6c 65 ..........(vector.(run-with-idle
86e0 2d 74 69 6d 65 72 20 6f 72 67 2d 6e 6f 74 65 72 2d 61 72 72 6f 77 2d 64 65 6c 61 79 20 6e 69 6c -timer.org-noter-arrow-delay.nil
8700 20 27 6f 72 67 2d 6e 6f 74 65 72 2d 2d 73 68 6f 77 2d 61 72 72 6f 77 29 0a 20 20 20 20 20 20 20 .'org-noter--show-arrow)........
8720 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 69 6e 64 6f 77 0a 20 20 20 20 20 20 20 20 .................window.........
8740 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 6f 70 0a 20 20 20 20 20 20 20 20 20 20 20 20 ................top.............
8760 20 20 20 20 20 20 20 20 20 20 20 20 6c 65 66 74 29 29 29 29 0a 20 20 20 20 20 20 28 69 6d 61 67 ............left)))).......(imag
8780 65 2d 73 63 72 6f 6c 6c 2d 75 70 20 28 2d 20 28 6f 72 67 2d 6e 6f 74 65 72 2d 2d 63 6f 6e 76 2d e-scroll-up.(-.(org-noter--conv-
87a0 70 61 67 65 2d 70 65 72 63 65 6e 74 61 67 65 2d 73 63 72 6f 6c 6c 20 74 6f 70 29 0a 20 20 20 20 page-percentage-scroll.top).....
87c0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 6c 6f 6f 72 20 28 2b 20 ......................(floor.(+.
87e0 28 77 69 6e 64 6f 77 2d 76 73 63 72 6f 6c 6c 29 20 6f 72 67 2d 6e 6f 74 65 72 2d 76 73 63 72 6f (window-vscroll).org-noter-vscro
8800 6c 6c 2d 62 75 66 66 65 72 29 29 29 29 29 29 29 0a 0a 28 61 64 64 2d 74 6f 2d 6c 69 73 74 20 27 ll-buffer)))))))..(add-to-list.'
8820 6f 72 67 2d 6e 6f 74 65 72 2d 2d 64 6f 63 2d 67 6f 74 6f 2d 6c 6f 63 61 74 69 6f 6e 2d 68 6f 6f org-noter--doc-goto-location-hoo
8840 6b 20 23 27 6f 72 67 2d 6e 6f 74 65 72 2d 70 64 66 2d 2d 67 6f 74 6f 2d 6c 6f 63 61 74 69 6f 6e k.#'org-noter-pdf--goto-location
8860 29 0a 0a 28 64 65 66 75 6e 20 6f 72 67 2d 6e 6f 74 65 72 2d 70 64 66 2d 2d 67 65 74 2d 63 75 72 )..(defun.org-noter-pdf--get-cur
8880 72 65 6e 74 2d 76 69 65 77 20 28 6d 6f 64 65 29 0a 20 20 28 77 68 65 6e 20 28 6d 65 6d 71 20 6d rent-view.(mode)...(when.(memq.m
88a0 6f 64 65 20 27 28 64 6f 63 2d 76 69 65 77 2d 6d 6f 64 65 20 70 64 66 2d 76 69 65 77 2d 6d 6f 64 ode.'(doc-view-mode.pdf-view-mod
88c0 65 29 29 0a 20 20 20 20 28 76 65 63 74 6f 72 20 27 70 61 67 65 64 20 28 63 61 72 20 28 6f 72 67 e)).....(vector.'paged.(car.(org
88e0 2d 6e 6f 74 65 72 2d 70 64 66 2d 2d 61 70 70 72 6f 78 2d 6c 6f 63 61 74 69 6f 6e 2d 63 6f 6e 73 -noter-pdf--approx-location-cons
8900 20 6d 6f 64 65 29 29 29 29 29 0a 0a 28 61 64 64 2d 74 6f 2d 6c 69 73 74 20 27 6f 72 67 2d 6e 6f .mode)))))..(add-to-list.'org-no
8920 74 65 72 2d 2d 67 65 74 2d 63 75 72 72 65 6e 74 2d 76 69 65 77 2d 68 6f 6f 6b 20 23 27 6f 72 67 ter--get-current-view-hook.#'org
8940 2d 6e 6f 74 65 72 2d 70 64 66 2d 2d 67 65 74 2d 63 75 72 72 65 6e 74 2d 76 69 65 77 29 0a 0a 28 -noter-pdf--get-current-view)..(
8960 64 65 66 75 6e 20 6f 72 67 2d 6e 6f 74 65 72 2d 70 64 66 2d 2d 67 65 74 2d 73 65 6c 65 63 74 65 defun.org-noter-pdf--get-selecte
8980 64 2d 74 65 78 74 20 28 6d 6f 64 65 29 0a 20 20 28 77 68 65 6e 20 28 61 6e 64 20 28 65 71 20 6d d-text.(mode)...(when.(and.(eq.m
89a0 6f 64 65 20 27 70 64 66 2d 76 69 65 77 2d 6d 6f 64 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 ode.'pdf-view-mode).............
89c0 20 28 70 64 66 2d 76 69 65 77 2d 61 63 74 69 76 65 2d 72 65 67 69 6f 6e 2d 70 29 29 0a 20 20 20 .(pdf-view-active-region-p))....
89e0 20 28 6d 61 70 63 6f 6e 63 61 74 20 27 69 64 65 6e 74 69 74 79 20 28 70 64 66 2d 76 69 65 77 2d .(mapconcat.'identity.(pdf-view-
8a00 61 63 74 69 76 65 2d 72 65 67 69 6f 6e 2d 74 65 78 74 29 20 3f 20 29 29 29 0a 0a 28 61 64 64 2d active-region-text).?.)))..(add-
8a20 74 6f 2d 6c 69 73 74 20 27 6f 72 67 2d 6e 6f 74 65 72 2d 67 65 74 2d 73 65 6c 65 63 74 65 64 2d to-list.'org-noter-get-selected-
8a40 74 65 78 74 2d 68 6f 6f 6b 20 23 27 6f 72 67 2d 6e 6f 74 65 72 2d 70 64 66 2d 2d 67 65 74 2d 73 text-hook.#'org-noter-pdf--get-s
8a60 65 6c 65 63 74 65 64 2d 74 65 78 74 29 0a 0a 3b 3b 20 4e 4f 54 45 28 6e 6f 78 29 3a 20 46 72 6f elected-text)..;;.NOTE(nox):.Fro
8a80 6d 20 6d 61 63 68 63 2f 70 64 66 2d 74 6f 6f 6c 73 2d 6f 72 67 0a 28 64 65 66 75 6e 20 6f 72 67 m.machc/pdf-tools-org.(defun.org
8aa0 2d 6e 6f 74 65 72 2d 70 64 66 2d 2d 65 64 67 65 73 2d 74 6f 2d 72 65 67 69 6f 6e 20 28 65 64 67 -noter-pdf--edges-to-region.(edg
8ac0 65 73 29 0a 20 20 22 47 65 74 20 34 2d 65 6e 74 72 79 20 72 65 67 69 6f 6e 20 28 4c 45 46 54 20 es)..."Get.4-entry.region.(LEFT.
8ae0 54 4f 50 20 52 49 47 48 54 20 42 4f 54 54 4f 4d 29 20 66 72 6f 6d 20 73 65 76 65 72 61 6c 20 45 TOP.RIGHT.BOTTOM).from.several.E
8b00 44 47 45 53 2e 22 0a 20 20 28 77 68 65 6e 20 65 64 67 65 73 0a 20 20 20 20 28 6c 65 74 20 28 28 DGES."...(when.edges.....(let.((
8b20 6c 65 66 74 30 20 28 6e 74 68 20 30 20 28 63 61 72 20 65 64 67 65 73 29 29 29 0a 20 20 20 20 20 left0.(nth.0.(car.edges)))......
8b40 20 20 20 20 20 28 74 6f 70 30 20 28 6e 74 68 20 31 20 28 63 61 72 20 65 64 67 65 73 29 29 29 0a .....(top0.(nth.1.(car.edges))).
8b60 20 20 20 20 20 20 20 20 20 20 28 62 6f 74 74 6f 6d 30 20 28 6e 74 68 20 33 20 28 63 61 72 20 65 ..........(bottom0.(nth.3.(car.e
8b80 64 67 65 73 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 74 6f 70 31 20 28 6e 74 68 20 31 20 28 dges)))...........(top1.(nth.1.(
8ba0 63 61 72 20 28 6c 61 73 74 20 65 64 67 65 73 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 72 car.(last.edges))))...........(r
8bc0 69 67 68 74 31 20 28 6e 74 68 20 32 20 28 63 61 72 20 28 6c 61 73 74 20 65 64 67 65 73 29 29 29 ight1.(nth.2.(car.(last.edges)))
8be0 29 0a 20 20 20 20 20 20 20 20 20 20 28 62 6f 74 74 6f 6d 31 20 28 6e 74 68 20 33 20 28 63 61 72 )...........(bottom1.(nth.3.(car
8c00 20 28 6c 61 73 74 20 65 64 67 65 73 29 29 29 29 29 0a 20 20 20 20 20 20 28 6c 69 73 74 20 6c 65 .(last.edges))))).......(list.le
8c20 66 74 30 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 2b 20 74 6f 70 30 20 28 2f 20 28 2d 20 62 6f ft0.............(+.top0.(/.(-.bo
8c40 74 74 6f 6d 30 20 74 6f 70 30 29 20 33 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 72 69 67 68 ttom0.top0).3)).............righ
8c60 74 31 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 2d 20 62 6f 74 74 6f 6d 31 20 28 2f 20 28 2d 20 t1.............(-.bottom1.(/.(-.
8c80 62 6f 74 74 6f 6d 31 20 74 6f 70 31 29 20 33 29 29 29 29 29 29 0a 0a 28 64 65 66 61 6c 69 61 73 bottom1.top1).3))))))..(defalias
8ca0 20 27 6f 72 67 2d 6e 6f 74 65 72 2d 2d 70 64 66 2d 74 6f 6f 6c 73 2d 65 64 67 65 73 2d 74 6f 2d .'org-noter--pdf-tools-edges-to-
8cc0 72 65 67 69 6f 6e 20 27 6f 72 67 2d 6e 6f 74 65 72 2d 70 64 66 2d 2d 65 64 67 65 73 2d 74 6f 2d region.'org-noter-pdf--edges-to-
8ce0 72 65 67 69 6f 6e 0a 20 20 22 46 6f 72 20 4f 52 47 2d 4e 4f 54 45 52 2d 50 44 46 54 4f 4f 4c 53 region..."For.ORG-NOTER-PDFTOOLS
8d00 20 62 61 63 6b 77 61 72 64 20 63 6f 6d 70 61 74 69 62 6c 69 74 79 2e 20 20 54 68 65 20 6e 61 6d .backward.compatiblity...The.nam
8d20 65 20 6f 66 20 74 68 65 0a 75 6e 64 65 72 6c 79 69 6e 67 20 66 75 6e 63 74 69 6f 6e 20 69 73 20 e.of.the.underlying.function.is.
8d40 63 75 72 72 65 6e 74 6c 79 20 75 6e 64 65 72 20 64 69 73 63 75 73 73 69 6f 6e 22 29 0a 0a 28 64 currently.under.discussion")..(d
8d60 65 66 75 6e 20 6f 72 67 2d 6e 6f 74 65 72 2d 70 64 66 2d 2d 63 72 65 61 74 65 2d 73 6b 65 6c 65 efun.org-noter-pdf--create-skele
8d80 74 6f 6e 20 28 6d 6f 64 65 29 0a 20 20 22 43 72 65 61 74 65 20 6e 6f 74 65 73 20 73 6b 65 6c 65 ton.(mode)..."Create.notes.skele
8da0 74 6f 6e 20 77 69 74 68 20 74 68 65 20 50 44 46 20 6f 75 74 6c 69 6e 65 20 6f 72 20 61 6e 6e 6f ton.with.the.PDF.outline.or.anno
8dc0 74 61 74 69 6f 6e 73 2e 22 0a 20 20 28 77 68 65 6e 20 28 65 71 20 6d 6f 64 65 20 27 70 64 66 2d tations."...(when.(eq.mode.'pdf-
8de0 76 69 65 77 2d 6d 6f 64 65 29 0a 20 20 20 20 28 6f 72 67 2d 6e 6f 74 65 72 2d 2d 77 69 74 68 2d view-mode).....(org-noter--with-
8e00 76 61 6c 69 64 2d 73 65 73 73 69 6f 6e 0a 20 20 20 20 20 28 6c 65 74 2a 20 28 28 61 73 74 20 28 valid-session......(let*.((ast.(
8e20 6f 72 67 2d 6e 6f 74 65 72 2d 2d 70 61 72 73 65 2d 72 6f 6f 74 29 29 0a 20 20 20 20 20 20 20 20 org-noter--parse-root)).........
8e40 20 20 20 20 28 74 6f 70 2d 6c 65 76 65 6c 20 28 6f 72 20 28 6f 72 67 2d 65 6c 65 6d 65 6e 74 2d ....(top-level.(or.(org-element-
8e60 70 72 6f 70 65 72 74 79 20 3a 6c 65 76 65 6c 20 61 73 74 29 20 30 29 29 0a 20 20 20 20 20 20 20 property.:level.ast).0))........
8e80 20 20 20 20 20 28 6f 70 74 69 6f 6e 73 20 27 28 28 22 4f 75 74 6c 69 6e 65 22 20 2e 20 28 6f 75 .....(options.'(("Outline"...(ou
8ea0 74 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 28 tline))........................(
8ec0 22 41 6e 6e 6f 74 61 74 69 6f 6e 73 22 20 2e 20 28 61 6e 6e 6f 74 73 29 29 0a 20 20 20 20 20 20 "Annotations"...(annots)).......
8ee0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 22 42 6f 74 68 22 20 2e 20 28 6f 75 74 6c .................("Both"...(outl
8f00 69 6e 65 20 61 6e 6e 6f 74 73 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 61 6e 73 77 65 ine.annots)))).............answe
8f20 72 20 6f 75 74 70 75 74 2d 64 61 74 61 29 0a 20 20 20 20 20 20 20 28 77 69 74 68 2d 63 75 72 72 r.output-data)........(with-curr
8f40 65 6e 74 2d 62 75 66 66 65 72 20 28 6f 72 67 2d 6e 6f 74 65 72 2d 2d 73 65 73 73 69 6f 6e 2d 64 ent-buffer.(org-noter--session-d
8f60 6f 63 2d 62 75 66 66 65 72 20 73 65 73 73 69 6f 6e 29 0a 20 20 20 20 20 20 20 20 20 28 73 65 74 oc-buffer.session)..........(set
8f80 71 20 61 6e 73 77 65 72 20 28 61 73 73 6f 63 20 28 63 6f 6d 70 6c 65 74 69 6e 67 2d 72 65 61 64 q.answer.(assoc.(completing-read
8fa0 20 22 57 68 61 74 20 64 6f 20 79 6f 75 20 77 61 6e 74 20 74 6f 20 69 6d 70 6f 72 74 3f 20 22 20 ."What.do.you.want.to.import?.".
8fc0 6f 70 74 69 6f 6e 73 20 6e 69 6c 20 74 29 20 6f 70 74 69 6f 6e 73 29 29 0a 0a 20 20 20 20 20 20 options.nil.t).options))........
8fe0 20 20 20 28 77 68 65 6e 20 28 6d 65 6d 71 20 27 6f 75 74 6c 69 6e 65 20 61 6e 73 77 65 72 29 0a ...(when.(memq.'outline.answer).
9000 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 28 70 64 66 2d 69 6e ...........(dolist.(item.(pdf-in
9020 66 6f 2d 6f 75 74 6c 69 6e 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 fo-outline))..............(let.(
9040 28 74 79 70 65 20 28 61 6c 69 73 74 2d 67 65 74 20 27 74 79 70 65 20 69 74 65 6d 29 29 0a 20 20 (type.(alist-get.'type.item))...
9060 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 61 67 65 20 28 61 6c 69 73 74 2d 67 65 .................(page.(alist-ge
9080 74 20 27 70 61 67 65 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 t.'page.item))..................
90a0 20 20 28 64 65 70 74 68 20 28 61 6c 69 73 74 2d 67 65 74 20 27 64 65 70 74 68 20 69 74 65 6d 29 ..(depth.(alist-get.'depth.item)
90c0 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 74 69 74 6c 65 20 28 61 6c 69 )....................(title.(ali
90e0 73 74 2d 67 65 74 20 27 74 69 74 6c 65 20 69 74 65 6d 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 st-get.'title.item))............
9100 20 20 20 20 20 20 20 20 28 74 6f 70 20 28 61 6c 69 73 74 2d 67 65 74 20 27 74 6f 70 20 69 74 65 ........(top.(alist-get.'top.ite
9120 6d 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 28 61 6e 64 20 28 m)))................(when.(and.(
9140 65 71 20 74 79 70 65 20 27 67 6f 74 6f 2d 64 65 73 74 29 20 28 3e 20 70 61 67 65 20 30 29 29 0a eq.type.'goto-dest).(>.page.0)).
9160 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 75 73 68 20 28 76 65 63 74 6f 72 20 74 .................(push.(vector.t
9180 69 74 6c 65 20 28 63 6f 6e 73 20 70 61 67 65 20 74 6f 70 29 20 28 31 2b 20 64 65 70 74 68 29 20 itle.(cons.page.top).(1+.depth).
91a0 6e 69 6c 29 20 6f 75 74 70 75 74 2d 64 61 74 61 29 29 29 29 29 0a 0a 20 20 20 20 20 20 20 20 20 nil).output-data)))))...........
91c0 28 77 68 65 6e 20 28 6d 65 6d 71 20 27 61 6e 6e 6f 74 73 20 61 6e 73 77 65 72 29 0a 20 20 20 20 (when.(memq.'annots.answer).....
91e0 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 70 6f 73 73 69 62 6c 65 2d 61 6e 6e 6f 74 73 20 28 6c .......(let.((possible-annots.(l
9200 69 73 74 20 27 28 22 48 69 67 68 6c 69 67 68 74 73 22 20 2e 20 68 69 67 68 6c 69 67 68 74 29 0a ist.'("Highlights"...highlight).
9220 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ................................
9240 20 20 20 20 20 20 20 20 27 28 22 55 6e 64 65 72 6c 69 6e 65 73 22 20 2e 20 75 6e 64 65 72 6c 69 ........'("Underlines"...underli
9260 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 20 20 20 20 20 20 20 ne).............................
9280 20 20 20 20 20 20 20 20 20 20 20 20 27 28 22 53 71 75 69 67 67 6c 69 65 73 22 20 2e 20 73 71 75 ............'("Squigglies"...squ
92a0 69 67 67 6c 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 iggly)..........................
92c0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 28 22 54 65 78 74 20 6e 6f 74 65 73 22 20 2e 20 ...............'("Text.notes"...
92e0 74 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 20 20 text)...........................
9300 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 28 22 53 74 72 69 6b 65 6f 75 74 73 22 20 2e 20 73 ..............'("Strikeouts"...s
9320 74 72 69 6b 65 2d 6f 75 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 trike-out)......................
9340 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 28 22 4c 69 6e 6b 73 22 20 2e 20 6c ...................'("Links"...l
9360 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 20 ink)............................
9380 20 20 20 20 20 20 20 20 20 20 20 20 20 27 28 22 41 4c 4c 22 20 2e 20 61 6c 6c 29 29 29 0a 20 20 .............'("ALL"...all)))...
93a0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 68 6f 73 65 6e 2d 61 6e 6e 6f 74 73 20 69 6e 73 ...............chosen-annots.ins
93c0 65 72 74 2d 63 6f 6e 74 65 6e 74 73 20 70 61 67 65 73 2d 77 69 74 68 2d 6c 69 6e 6b 73 29 0a 20 ert-contents.pages-with-links)..
93e0 20 20 20 20 20 20 20 20 20 20 20 20 28 77 68 69 6c 65 20 28 3e 20 28 6c 65 6e 67 74 68 20 70 6f ............(while.(>.(length.po
9400 73 73 69 62 6c 65 2d 61 6e 6e 6f 74 73 29 20 31 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ssible-annots).1)...............
9420 20 28 6c 65 74 2a 20 28 28 63 68 6f 73 65 6e 2d 73 74 72 69 6e 67 20 28 63 6f 6d 70 6c 65 74 69 .(let*.((chosen-string.(completi
9440 6e 67 2d 72 65 61 64 20 22 57 68 69 63 68 20 74 79 70 65 73 20 6f 66 20 61 6e 6e 6f 74 61 74 69 ng-read."Which.types.of.annotati
9460 6f 6e 73 20 64 6f 20 79 6f 75 20 77 61 6e 74 3f 20 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 ons.do.you.want?."..............
9480 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ................................
94a0 20 20 20 20 20 20 20 20 20 70 6f 73 73 69 62 6c 65 2d 61 6e 6e 6f 74 73 20 6e 69 6c 20 74 29 29 .........possible-annots.nil.t))
94c0 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 68 6f 73 65 6e 2d 70 .......................(chosen-p
94e0 61 69 72 20 28 61 73 73 6f 63 20 63 68 6f 73 65 6e 2d 73 74 72 69 6e 67 20 70 6f 73 73 69 62 6c air.(assoc.chosen-string.possibl
9500 65 2d 61 6e 6e 6f 74 73 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6f e-annots)))..................(co
9520 6e 64 20 28 28 65 71 20 28 63 64 72 20 63 68 6f 73 65 6e 2d 70 61 69 72 29 20 27 61 6c 6c 29 0a nd.((eq.(cdr.chosen-pair).'all).
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 28 64 6f 6c 69 73 74 20 ........................(dolist.
9560 28 61 6e 6e 6f 74 20 70 6f 73 73 69 62 6c 65 2d 61 6e 6e 6f 74 73 29 0a 20 20 20 20 20 20 20 20 (annot.possible-annots).........
9580 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 61 6e 64 20 28 63 64 ..................(when.(and.(cd
95a0 72 20 61 6e 6e 6f 74 29 20 28 6e 6f 74 20 28 65 71 20 28 63 64 72 20 61 6e 6e 6f 74 29 20 27 61 r.annot).(not.(eq.(cdr.annot).'a
95c0 6c 6c 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 ll)))...........................
95e0 20 20 28 70 75 73 68 20 28 63 64 72 20 61 6e 6e 6f 74 29 20 63 68 6f 73 65 6e 2d 61 6e 6e 6f 74 ..(push.(cdr.annot).chosen-annot
9600 73 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 28 73 65 s))).........................(se
9620 74 71 20 70 6f 73 73 69 62 6c 65 2d 61 6e 6e 6f 74 73 20 6e 69 6c 29 29 0a 20 20 20 20 20 20 20 tq.possible-annots.nil))........
9640 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 28 63 64 72 20 63 68 6f 73 65 6e 2d 70 61 69 ................((cdr.chosen-pai
9660 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 28 70 75 73 68 r).........................(push
9680 20 28 63 64 72 20 63 68 6f 73 65 6e 2d 70 61 69 72 29 20 63 68 6f 73 65 6e 2d 61 6e 6e 6f 74 73 .(cdr.chosen-pair).chosen-annots
96a0 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 73 65 74 71 20 ).........................(setq.
96c0 70 6f 73 73 69 62 6c 65 2d 61 6e 6e 6f 74 73 20 28 64 65 6c 71 20 63 68 6f 73 65 6e 2d 70 61 69 possible-annots.(delq.chosen-pai
96e0 72 20 70 6f 73 73 69 62 6c 65 2d 61 6e 6e 6f 74 73 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 r.possible-annots)).............
9700 20 20 20 20 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 28 3d 20 31 20 28 6c 65 6e 67 74 68 20 63 ............(when.(=.1.(length.c
9720 68 6f 73 65 6e 2d 61 6e 6e 6f 74 73 29 29 20 28 70 75 73 68 20 27 28 22 44 4f 4e 45 22 29 20 70 hosen-annots)).(push.'("DONE").p
9740 6f 73 73 69 62 6c 65 2d 61 6e 6e 6f 74 73 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ossible-annots)))...............
9760 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 20 20 .........(t.....................
9780 20 20 20 20 28 73 65 74 71 20 70 6f 73 73 69 62 6c 65 2d 61 6e 6e 6f 74 73 20 6e 69 6c 29 29 29 ....(setq.possible-annots.nil)))
97a0 29 29 0a 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 69 6e 73 65 72 74 2d 63 6f ))...............(setq.insert-co
97c0 6e 74 65 6e 74 73 20 28 79 2d 6f 72 2d 6e 2d 70 20 22 53 68 6f 75 6c 64 20 77 65 20 69 6e 73 65 ntents.(y-or-n-p."Should.we.inse
97e0 72 74 20 74 68 65 20 61 6e 6e 6f 74 61 74 69 6f 6e 73 20 63 6f 6e 74 65 6e 74 73 3f 20 22 29 29 rt.the.annotations.contents?."))
9800 0a 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 28 70 64 ...............(dolist.(item.(pd
9820 66 2d 69 6e 66 6f 2d 67 65 74 61 6e 6e 6f 74 73 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 f-info-getannots))..............
9840 20 20 28 6c 65 74 2a 20 28 28 74 79 70 65 20 28 61 6c 69 73 74 2d 67 65 74 20 27 74 79 70 65 20 ..(let*.((type.(alist-get.'type.
9860 69 74 65 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 28 70 61 item)).......................(pa
9880 67 65 20 28 61 6c 69 73 74 2d 67 65 74 20 27 70 61 67 65 20 69 74 65 6d 29 29 0a 20 20 20 20 20 ge.(alist-get.'page.item))......
98a0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 65 64 67 65 73 20 28 6f 72 20 28 6f 72 67 .................(edges.(or.(org
98c0 2d 6e 6f 74 65 72 2d 70 64 66 2d 2d 65 64 67 65 73 2d 74 6f 2d 72 65 67 69 6f 6e 20 28 61 6c 69 -noter-pdf--edges-to-region.(ali
98e0 73 74 2d 67 65 74 20 27 6d 61 72 6b 75 70 2d 65 64 67 65 73 20 69 74 65 6d 29 29 0a 20 20 20 20 st-get.'markup-edges.item)).....
9900 20 20 20 20 20 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 .............................(al
9920 69 73 74 2d 67 65 74 20 27 65 64 67 65 73 20 69 74 65 6d 29 29 29 0a 20 20 20 20 20 20 20 20 20 ist-get.'edges.item)))..........
9940 20 20 20 20 20 20 20 20 20 20 20 20 20 28 74 6f 70 20 28 6e 74 68 20 31 20 65 64 67 65 73 29 29 .............(top.(nth.1.edges))
9960 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 74 65 6d 2d 73 75 62 .......................(item-sub
9980 6a 65 63 74 20 28 61 6c 69 73 74 2d 67 65 74 20 27 73 75 62 6a 65 63 74 20 69 74 65 6d 29 29 0a ject.(alist-get.'subject.item)).
99a0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 74 65 6d 2d 63 6f 6e 74 ......................(item-cont
99c0 65 6e 74 73 20 28 61 6c 69 73 74 2d 67 65 74 20 27 63 6f 6e 74 65 6e 74 73 20 69 74 65 6d 29 29 ents.(alist-get.'contents.item))
99e0 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6e 61 6d 65 20 63 6f 6e 74 .......................name.cont
9a00 65 6e 74 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 28 61 6e ents)..................(when.(an
9a20 64 20 28 6d 65 6d 71 20 74 79 70 65 20 63 68 6f 73 65 6e 2d 61 6e 6e 6f 74 73 29 20 28 3e 20 70 d.(memq.type.chosen-annots).(>.p
9a40 61 67 65 20 30 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 66 20 28 age.0))....................(if.(
9a60 65 71 20 74 79 70 65 20 27 6c 69 6e 6b 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 eq.type.'link)..................
9a80 20 20 20 20 20 20 28 63 6c 2d 70 75 73 68 6e 65 77 20 70 61 67 65 20 70 61 67 65 73 2d 77 69 74 ......(cl-pushnew.page.pages-wit
9aa0 68 2d 6c 69 6e 6b 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 h-links)......................(s
9ac0 65 74 71 20 6e 61 6d 65 20 28 63 6f 6e 64 20 28 28 65 71 20 74 79 70 65 20 27 68 69 67 68 6c 69 etq.name.(cond.((eq.type.'highli
9ae0 67 68 74 29 20 22 48 69 67 68 6c 69 67 68 74 22 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ght)."Highlight")...............
9b00 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 65 71 20 74 79 70 ........................((eq.typ
9b20 65 20 27 75 6e 64 65 72 6c 69 6e 65 29 20 22 55 6e 64 65 72 6c 69 6e 65 22 29 0a 20 20 20 20 20 e.'underline)."Underline")......
9b40 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ................................
9b60 20 28 28 65 71 20 74 79 70 65 20 27 73 71 75 69 67 67 6c 79 29 20 22 53 71 75 69 67 67 6c 79 22 .((eq.type.'squiggly)."Squiggly"
9b80 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 )...............................
9ba0 20 20 20 20 20 20 20 20 28 28 65 71 20 74 79 70 65 20 27 74 65 78 74 29 20 22 54 65 78 74 20 6e ........((eq.type.'text)."Text.n
9bc0 6f 74 65 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 ote")...........................
9be0 20 20 20 20 20 20 20 20 20 20 20 20 28 28 65 71 20 74 79 70 65 20 27 73 74 72 69 6b 65 2d 6f 75 ............((eq.type.'strike-ou
9c00 74 29 20 22 53 74 72 69 6b 65 6f 75 74 22 29 29 29 0a 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 t)."Strikeout")))...............
9c20 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 69 6e 73 65 72 74 2d 63 6f 6e 74 65 6e 74 73 0a 20 20 ........(when.insert-contents...
9c40 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 6f 6e 74 65 .....................(setq.conte
9c60 6e 74 73 20 28 63 6f 6e 73 20 28 70 64 66 2d 69 6e 66 6f 2d 67 65 74 74 65 78 74 20 70 61 67 65 nts.(cons.(pdf-info-gettext.page
9c80 20 65 64 67 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 20 .edges).........................
9ca0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 61 6e 64 20 28 6f 72 20 28 61 6e ....................(and.(or.(an
9cc0 64 20 69 74 65 6d 2d 73 75 62 6a 65 63 74 20 28 3e 20 28 6c 65 6e 67 74 68 20 69 74 65 6d 2d 73 d.item-subject.(>.(length.item-s
9ce0 75 62 6a 65 63 74 29 20 30 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ubject).0)).....................
9d00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ................................
9d20 20 28 61 6e 64 20 69 74 65 6d 2d 63 6f 6e 74 65 6e 74 73 20 28 3e 20 28 6c 65 6e 67 74 68 20 69 .(and.item-contents.(>.(length.i
9d40 74 65 6d 2d 63 6f 6e 74 65 6e 74 73 29 20 30 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 tem-contents).0)))..............
9d60 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ................................
9d80 20 20 20 20 28 63 6f 6e 63 61 74 20 28 6f 72 20 69 74 65 6d 2d 73 75 62 6a 65 63 74 20 22 22 29 ....(concat.(or.item-subject."")
9da0 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 ................................
9dc0 20 20 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
9de0 6e 64 20 69 74 65 6d 2d 73 75 62 6a 65 63 74 20 69 74 65 6d 2d 63 6f 6e 74 65 6e 74 73 29 20 22 nd.item-subject.item-contents)."
9e00 5c 6e 22 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 \n"."").........................
9e20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ................................
9e40 20 28 6f 72 20 69 74 65 6d 2d 63 6f 6e 74 65 6e 74 73 20 22 22 29 29 29 29 29 29 0a 0a 20 20 20 .(or.item-contents."")))))).....
9e60 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 76 65 63 74 6f 72 20 ..................(push.(vector.
9e80 28 66 6f 72 6d 61 74 20 22 25 73 20 6f 6e 20 70 61 67 65 20 25 64 22 20 6e 61 6d 65 20 70 61 67 (format."%s.on.page.%d".name.pag
9ea0 65 29 20 28 63 6f 6e 73 20 70 61 67 65 20 74 6f 70 29 20 27 69 6e 73 69 64 65 20 63 6f 6e 74 65 e).(cons.page.top).'inside.conte
9ec0 6e 74 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 nts)............................
9ee0 6f 75 74 70 75 74 2d 64 61 74 61 29 29 29 29 29 0a 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 output-data)))))...............(
9f00 64 6f 6c 69 73 74 20 28 70 61 67 65 20 70 61 67 65 73 2d 77 69 74 68 2d 6c 69 6e 6b 73 29 0a 20 dolist.(page.pages-with-links)..
9f20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 6c 69 6e 6b 73 20 28 70 64 66 2d ..............(let.((links.(pdf-
9f40 69 6e 66 6f 2d 70 61 67 65 6c 69 6e 6b 73 20 70 61 67 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 info-pagelinks.page))...........
9f60 20 20 20 20 20 20 20 20 20 20 20 74 79 70 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ...........type)................
9f80 20 20 28 64 6f 6c 69 73 74 20 28 6c 69 6e 6b 20 6c 69 6e 6b 73 29 0a 20 20 20 20 20 20 20 20 20 ..(dolist.(link.links)..........
9fa0 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 74 79 70 65 20 28 61 6c 69 73 74 2d 67 65 74 20 ..........(setq.type.(alist-get.
9fc0 27 74 79 70 65 20 6c 69 6e 6b 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 'type.link))....................
9fe0 28 75 6e 6c 65 73 73 20 28 65 71 20 74 79 70 65 20 27 67 6f 74 6f 2d 64 65 73 74 29 20 3b 3b 20 (unless.(eq.type.'goto-dest).;;.
a000 4e 4f 54 45 28 6e 6f 78 29 3a 20 49 67 6e 6f 72 65 20 69 6e 74 65 72 6e 61 6c 20 6c 69 6e 6b 73 NOTE(nox):.Ignore.internal.links
a020 0a 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 65 64 ......................(let*.((ed
a040 67 65 73 20 28 61 6c 69 73 74 2d 67 65 74 20 27 65 64 67 65 73 20 6c 69 6e 6b 29 29 0a 20 20 20 ges.(alist-get.'edges.link))....
a060 20 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 69 74 6c 65 20 .........................(title.
a080 28 61 6c 69 73 74 2d 67 65 74 20 27 74 69 74 6c 65 20 6c 69 6e 6b 29 29 0a 20 20 20 20 20 20 20 (alist-get.'title.link))........
a0a0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 74 6f 70 20 28 6e 74 68 20 31 .....................(top.(nth.1
a0c0 20 65 64 67 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 20 .edges))........................
a0e0 20 20 20 20 20 28 74 61 72 67 65 74 2d 70 61 67 65 20 28 61 6c 69 73 74 2d 67 65 74 20 27 70 61 .....(target-page.(alist-get.'pa
a100 67 65 20 6c 69 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 ge.link)).......................
a120 20 20 20 20 20 20 74 61 72 67 65 74 20 68 65 61 64 69 6e 67 2d 74 65 78 74 29 0a 0a 20 20 20 20 ......target.heading-text)......
a140 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 61 6e 64 20 ...................(unless.(and.
a160 74 69 74 6c 65 20 28 3e 20 28 6c 65 6e 67 74 68 20 74 69 74 6c 65 29 20 30 29 29 20 28 73 65 74 title.(>.(length.title).0)).(set
a180 71 20 74 69 74 6c 65 20 28 70 64 66 2d 69 6e 66 6f 2d 67 65 74 74 65 78 74 20 70 61 67 65 20 65 q.title.(pdf-info-gettext.page.e
a1a0 64 67 65 73 29 29 29 0a 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 dges))).........................
a1c0 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 28 28 (cond.........................((
a1e0 65 71 20 74 79 70 65 20 27 75 72 69 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 eq.type.'uri)...................
a200 20 20 20 20 20 20 20 28 73 65 74 71 20 74 61 72 67 65 74 20 28 61 6c 69 73 74 2d 67 65 74 20 27 .......(setq.target.(alist-get.'
a220 75 72 69 20 6c 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 uri.link).......................
a240 20 20 20 20 20 20 20 20 20 68 65 61 64 69 6e 67 2d 74 65 78 74 20 28 66 6f 72 6d 61 74 20 22 4c .........heading-text.(format."L
a260 69 6e 6b 20 6f 6e 20 70 61 67 65 20 25 64 3a 20 5b 5b 25 73 5d 5b 25 73 5d 5d 22 20 70 61 67 65 ink.on.page.%d:.[[%s][%s]]".page
a280 20 74 61 72 67 65 74 20 74 69 74 6c 65 29 29 29 0a 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .target.title)))................
a2a0 20 20 20 20 20 20 20 20 20 20 28 28 65 71 20 74 79 70 65 20 27 67 6f 74 6f 2d 72 65 6d 6f 74 65 ..........((eq.type.'goto-remote
a2c0 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 28 73 65 74 71 )..........................(setq
a2e0 20 74 61 72 67 65 74 20 28 63 6f 6e 63 61 74 20 22 66 69 6c 65 3a 22 20 28 61 6c 69 73 74 2d 67 .target.(concat."file:".(alist-g
a300 65 74 20 27 66 69 6c 65 6e 61 6d 65 20 6c 69 6e 6b 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 et.'filename.link)).............
a320 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 68 65 61 64 69 6e 67 2d 74 65 78 74 20 ...................heading-text.
a340 28 66 6f 72 6d 61 74 20 22 4c 69 6e 6b 20 74 6f 20 64 6f 63 75 6d 65 6e 74 20 6f 6e 20 70 61 67 (format."Link.to.document.on.pag
a360 65 20 25 64 3a 20 5b 5b 25 73 5d 5b 25 73 5d 5d 22 20 70 61 67 65 20 74 61 72 67 65 74 20 74 69 e.%d:.[[%s][%s]]".page.target.ti
a380 74 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 28 tle))..........................(
a3a0 77 68 65 6e 20 74 61 72 67 65 74 2d 70 61 67 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 when.target-page................
a3c0 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 68 65 61 64 69 6e 67 2d 74 65 78 74 20 28 ............(setq.heading-text.(
a3e0 63 6f 6e 63 61 74 20 68 65 61 64 69 6e 67 2d 74 65 78 74 20 28 66 6f 72 6d 61 74 20 22 20 28 74 concat.heading-text.(format.".(t
a400 61 72 67 65 74 20 70 61 67 65 3a 20 25 64 29 22 20 74 61 72 67 65 74 2d 70 61 67 65 29 29 29 29 arget.page:.%d)".target-page))))
a420 29 0a 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 74 20 28 65 )..........................(t.(e
a440 72 72 6f 72 20 22 55 6e 65 78 70 65 63 74 65 64 20 6c 69 6e 6b 20 74 79 70 65 22 29 29 29 0a 0a rror."Unexpected.link.type")))..
a460 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 20 28 76 65 .......................(push.(ve
a480 63 74 6f 72 20 68 65 61 64 69 6e 67 2d 74 65 78 74 20 28 63 6f 6e 73 20 70 61 67 65 20 74 6f 70 ctor.heading-text.(cons.page.top
a4a0 29 20 27 69 6e 73 69 64 65 20 6e 69 6c 29 20 6f 75 74 70 75 74 2d 64 61 74 61 29 29 29 29 29 29 ).'inside.nil).output-data))))))
a4c0 29 29 0a 0a 0a 20 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 6f 75 74 70 75 74 2d 64 61 74 61 0a ))............(when.output-data.
a4e0 20 20 20 20 20 20 20 20 20 20 20 28 69 66 20 28 6d 65 6d 71 20 27 61 6e 6e 6f 74 73 20 61 6e 73 ...........(if.(memq.'annots.ans
a500 77 65 72 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 6f 75 74 70 75 74 wer)................(setq.output
a520 2d 64 61 74 61 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 6f 72 74 -data......................(sort
a540 20 6f 75 74 70 75 74 2d 64 61 74 61 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .output-data....................
a560 20 20 20 20 20 20 20 20 28 6c 61 6d 62 64 61 20 28 65 31 20 65 32 29 0a 20 20 20 20 20 20 20 20 ........(lambda.(e1.e2).........
a580 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 6e 6f 74 20 28 61 .....................(or.(not.(a
a5a0 72 65 66 20 65 31 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 ref.e1.1))......................
a5c0 20 20 20 20 20 20 20 20 20 20 20 20 28 61 6e 64 20 28 61 72 65 66 20 65 32 20 31 29 0a 20 20 20 ............(and.(aref.e2.1)....
a5e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ................................
a600 20 20 20 28 6f 72 67 2d 6e 6f 74 65 72 2d 2d 63 6f 6d 70 61 72 65 2d 6c 6f 63 61 74 69 6f 6e 73 ...(org-noter--compare-locations
a620 20 27 3c 20 28 61 72 65 66 20 65 31 20 31 29 20 28 61 72 65 66 20 65 32 20 31 29 29 29 29 29 29 .'<.(aref.e1.1).(aref.e2.1))))))
a640 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 6f 75 74 70 75 74 2d 64 61 74 61 )..............(setq.output-data
a660 20 28 6e 72 65 76 65 72 73 65 20 6f 75 74 70 75 74 2d 64 61 74 61 29 29 29 0a 0a 20 20 20 20 20 .(nreverse.output-data))).......
a680 20 20 20 20 20 20 28 70 75 73 68 20 28 76 65 63 74 6f 72 20 22 53 6b 65 6c 65 74 6f 6e 22 20 6e ......(push.(vector."Skeleton".n
a6a0 69 6c 20 31 20 6e 69 6c 29 20 6f 75 74 70 75 74 2d 64 61 74 61 29 29 29 0a 0a 20 20 20 20 20 20 il.1.nil).output-data)))........
a6c0 20 28 77 69 74 68 2d 63 75 72 72 65 6e 74 2d 62 75 66 66 65 72 20 28 6f 72 67 2d 6e 6f 74 65 72 .(with-current-buffer.(org-noter
a6e0 2d 2d 73 65 73 73 69 6f 6e 2d 6e 6f 74 65 73 2d 62 75 66 66 65 72 20 73 65 73 73 69 6f 6e 29 0a --session-notes-buffer.session).
a700 20 20 20 20 20 20 20 20 20 3b 3b 20 4e 4f 54 45 28 6e 6f 78 29 3a 20 6f 72 67 2d 77 69 74 68 2d .........;;.NOTE(nox):.org-with-
a720 77 69 64 65 2d 62 75 66 66 65 72 20 63 61 6e 27 74 20 62 65 20 75 73 65 64 20 62 65 63 61 75 73 wide-buffer.can't.be.used.becaus
a740 65 20 77 65 20 77 61 6e 74 20 74 6f 20 72 65 73 65 74 20 74 68 65 0a 20 20 20 20 20 20 20 20 20 e.we.want.to.reset.the..........
a760 3b 3b 20 6e 61 72 72 6f 77 20 72 65 67 69 6f 6e 20 74 6f 20 69 6e 63 6c 75 64 65 20 74 68 65 20 ;;.narrow.region.to.include.the.
a780 6e 65 77 20 68 65 61 64 69 6e 67 73 0a 20 20 20 20 20 20 20 20 20 28 77 69 64 65 6e 29 0a 20 20 new.headings..........(widen)...
a7a0 20 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 .......(save-excursion..........
a7c0 20 20 28 67 6f 74 6f 2d 63 68 61 72 20 28 6f 72 67 2d 65 6c 65 6d 65 6e 74 2d 70 72 6f 70 65 72 ..(goto-char.(org-element-proper
a7e0 74 79 20 3a 65 6e 64 20 61 73 74 29 29 0a 0a 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 ty.:end.ast)).............(let.(
a800 6c 61 73 74 2d 61 62 73 6f 6c 75 74 65 2d 6c 65 76 65 6c 0a 20 20 20 20 20 20 20 20 20 20 20 20 last-absolute-level.............
a820 20 20 20 20 20 74 69 74 6c 65 20 6c 6f 63 61 74 69 6f 6e 20 72 65 6c 61 74 69 76 65 2d 6c 65 76 .....title.location.relative-lev
a840 65 6c 20 63 6f 6e 74 65 6e 74 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6c 65 76 el.contents..................lev
a860 65 6c 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 64 6f 6c 69 73 74 20 28 64 61 74 61 20 6f el)..............(dolist.(data.o
a880 75 74 70 75 74 2d 64 61 74 61 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 utput-data)................(setq
a8a0 20 74 69 74 6c 65 20 28 61 72 65 66 20 64 61 74 61 20 30 29 0a 20 20 20 20 20 20 20 20 20 20 20 .title.(aref.data.0)............
a8c0 20 20 20 20 20 20 20 20 20 20 6c 6f 63 61 74 69 6f 6e 20 28 61 72 65 66 20 64 61 74 61 20 31 29 ..........location.(aref.data.1)
a8e0 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 72 65 6c 61 74 69 76 65 2d 6c ......................relative-l
a900 65 76 65 6c 20 28 61 72 65 66 20 64 61 74 61 20 32 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 evel.(aref.data.2)..............
a920 20 20 20 20 20 20 20 20 63 6f 6e 74 65 6e 74 73 20 28 61 72 65 66 20 64 61 74 61 20 33 29 29 0a ........contents.(aref.data.3)).
a940 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 66 20 28 73 79 6d 62 6f 6c 70 20 72 65 6c ................(if.(symbolp.rel
a960 61 74 69 76 65 2d 6c 65 76 65 6c 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ative-level)....................
a980 28 73 65 74 71 20 6c 65 76 65 6c 20 28 31 2b 20 6c 61 73 74 2d 61 62 73 6f 6c 75 74 65 2d 6c 65 (setq.level.(1+.last-absolute-le
a9a0 76 65 6c 29 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 6c 61 73 vel))..................(setq.las
a9c0 74 2d 61 62 73 6f 6c 75 74 65 2d 6c 65 76 65 6c 20 28 2b 20 74 6f 70 2d 6c 65 76 65 6c 20 72 65 t-absolute-level.(+.top-level.re
a9e0 6c 61 74 69 76 65 2d 6c 65 76 65 6c 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 lative-level)...................
aa00 20 20 20 20 20 6c 65 76 65 6c 20 6c 61 73 74 2d 61 62 73 6f 6c 75 74 65 2d 6c 65 76 65 6c 29 29 .....level.last-absolute-level))
aa20 0a 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6f 72 67 2d 6e 6f 74 65 72 2d 2d 69 6e 73 .................(org-noter--ins
aa40 65 72 74 2d 68 65 61 64 69 6e 67 20 6c 65 76 65 6c 20 74 69 74 6c 65 29 0a 0a 20 20 20 20 20 20 ert-heading.level.title)........
aa60 20 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 6c 6f 63 61 74 69 6f 6e 0a 20 20 20 20 20 20 20 20 .........(when.location.........
aa80 20 20 20 20 20 20 20 20 20 28 6f 72 67 2d 65 6e 74 72 79 2d 70 75 74 20 6e 69 6c 20 6f 72 67 2d .........(org-entry-put.nil.org-
aaa0 6e 6f 74 65 72 2d 70 72 6f 70 65 72 74 79 2d 6e 6f 74 65 2d 6c 6f 63 61 74 69 6f 6e 20 28 6f 72 noter-property-note-location.(or
aac0 67 2d 6e 6f 74 65 72 2d 2d 70 72 65 74 74 79 2d 70 72 69 6e 74 2d 6c 6f 63 61 74 69 6f 6e 20 6c g-noter--pretty-print-location.l
aae0 6f 63 61 74 69 6f 6e 29 29 29 0a 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 68 65 6e ocation))).................(when
ab00 20 6f 72 67 2d 6e 6f 74 65 72 2d 64 6f 63 2d 70 72 6f 70 65 72 74 79 2d 69 6e 2d 6e 6f 74 65 73 .org-noter-doc-property-in-notes
ab20 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6f 72 67 2d 65 6e 74 72 79 2d 70 75 74 ..................(org-entry-put
ab40 20 6e 69 6c 20 6f 72 67 2d 6e 6f 74 65 72 2d 70 72 6f 70 65 72 74 79 2d 64 6f 63 2d 66 69 6c 65 .nil.org-noter-property-doc-file
ab60 20 28 6f 72 67 2d 6e 6f 74 65 72 2d 2d 73 65 73 73 69 6f 6e 2d 70 72 6f 70 65 72 74 79 2d 74 65 .(org-noter--session-property-te
ab80 78 74 20 73 65 73 73 69 6f 6e 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6f xt.session))..................(o
aba0 72 67 2d 65 6e 74 72 79 2d 70 75 74 20 6e 69 6c 20 6f 72 67 2d 6e 6f 74 65 72 2d 2d 70 72 6f 70 rg-entry-put.nil.org-noter--prop
abc0 65 72 74 79 2d 61 75 74 6f 2d 73 61 76 65 2d 6c 61 73 74 2d 6c 6f 63 61 74 69 6f 6e 20 22 6e 69 erty-auto-save-last-location."ni
abe0 6c 22 29 29 0a 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 28 63 61 72 20 l")).................(when.(car.
ac00 63 6f 6e 74 65 6e 74 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6f 72 67 2d contents)..................(org-
ac20 6e 6f 74 65 72 2d 2d 69 6e 73 65 72 74 2d 68 65 61 64 69 6e 67 20 28 31 2b 20 6c 65 76 65 6c 29 noter--insert-heading.(1+.level)
ac40 20 22 43 6f 6e 74 65 6e 74 73 22 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 ."Contents")..................(i
ac60 6e 73 65 72 74 20 28 63 61 72 20 63 6f 6e 74 65 6e 74 73 29 29 29 0a 20 20 20 20 20 20 20 20 20 nsert.(car.contents)))..........
ac80 20 20 20 20 20 20 28 77 68 65 6e 20 28 63 64 72 20 63 6f 6e 74 65 6e 74 73 29 0a 20 20 20 20 20 ......(when.(cdr.contents)......
aca0 20 20 20 20 20 20 20 20 20 20 20 20 28 6f 72 67 2d 6e 6f 74 65 72 2d 2d 69 6e 73 65 72 74 2d 68 ............(org-noter--insert-h
acc0 65 61 64 69 6e 67 20 28 31 2b 20 6c 65 76 65 6c 29 20 22 43 6f 6d 6d 65 6e 74 22 29 0a 20 20 20 eading.(1+.level)."Comment")....
ace0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 6e 73 65 72 74 20 28 63 64 72 20 63 6f 6e 74 65 ..............(insert.(cdr.conte
ad00 6e 74 73 29 29 29 29 29 0a 0a 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 61 73 74 20 28 nts))))).............(setq.ast.(
ad20 6f 72 67 2d 6e 6f 74 65 72 2d 2d 70 61 72 73 65 2d 72 6f 6f 74 29 29 0a 20 20 20 20 20 20 20 20 org-noter--parse-root)).........
ad40 20 20 20 28 6f 72 67 2d 6e 6f 74 65 72 2d 2d 6e 61 72 72 6f 77 2d 74 6f 2d 72 6f 6f 74 20 61 73 ...(org-noter--narrow-to-root.as
ad60 74 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 6f 72 67 2d 65 6c t)............(goto-char.(org-el
ad80 65 6d 65 6e 74 2d 70 72 6f 70 65 72 74 79 20 3a 62 65 67 69 6e 20 61 73 74 29 29 0a 20 20 20 20 ement-property.:begin.ast)).....
ada0 20 20 20 20 20 20 20 28 6f 75 74 6c 69 6e 65 2d 68 69 64 65 2d 73 75 62 74 72 65 65 29 0a 20 20 .......(outline-hide-subtree)...
adc0 20 20 20 20 20 20 20 20 20 28 6f 72 67 2d 73 68 6f 77 2d 63 68 69 6c 64 72 65 6e 20 32 29 29 29 .........(org-show-children.2)))
ade0 0a 20 20 20 20 20 20 20 6f 75 74 70 75 74 2d 64 61 74 61 29 29 29 29 0a 0a 28 61 64 64 2d 74 6f ........output-data))))..(add-to
ae00 2d 6c 69 73 74 20 27 6f 72 67 2d 6e 6f 74 65 72 2d 63 72 65 61 74 65 2d 73 6b 65 6c 65 74 6f 6e -list.'org-noter-create-skeleton
ae20 2d 66 75 6e 63 74 69 6f 6e 73 20 23 27 6f 72 67 2d 6e 6f 74 65 72 2d 70 64 66 2d 2d 63 72 65 61 -functions.#'org-noter-pdf--crea
ae40 74 65 2d 73 6b 65 6c 65 74 6f 6e 29 0a 0a 28 64 65 66 75 6e 20 6f 72 67 2d 6e 6f 74 65 72 2d 70 te-skeleton)..(defun.org-noter-p
ae60 64 66 2d 2d 63 72 65 61 74 65 2d 6d 69 73 73 69 6e 67 2d 61 6e 6e 6f 74 61 74 69 6f 6e 20 28 29 df--create-missing-annotation.()
ae80 0a 20 20 22 41 64 64 20 61 20 68 69 67 68 6c 69 67 68 74 20 66 72 6f 6d 20 61 20 73 65 6c 65 63 ..."Add.a.highlight.from.a.selec
aea0 74 65 64 20 6e 6f 74 65 2e 22 0a 20 20 28 6c 65 74 20 28 28 6c 6f 63 61 74 69 6f 6e 20 28 6f 72 ted.note."...(let.((location.(or
aec0 67 2d 6e 6f 74 65 72 2d 2d 70 61 72 73 65 2d 6c 6f 63 61 74 69 6f 6e 2d 70 72 6f 70 65 72 74 79 g-noter--parse-location-property
aee0 20 28 6f 72 67 2d 6e 6f 74 65 72 2d 2d 67 65 74 2d 63 6f 6e 74 61 69 6e 69 6e 67 2d 65 6c 65 6d .(org-noter--get-containing-elem
af00 65 6e 74 29 29 29 0a 20 20 20 20 20 20 20 20 28 77 69 6e 64 6f 77 20 28 6f 72 67 2d 6e 6f 74 65 ent))).........(window.(org-note
af20 72 2d 2d 67 65 74 2d 64 6f 63 2d 77 69 6e 64 6f 77 29 29 29 0a 20 20 20 20 28 6f 72 67 2d 6e 6f r--get-doc-window))).....(org-no
af40 74 65 72 2d 70 64 66 2d 2d 67 6f 74 6f 2d 6c 6f 63 61 74 69 6f 6e 20 27 70 64 66 2d 76 69 65 77 ter-pdf--goto-location.'pdf-view
af60 2d 6d 6f 64 65 20 6c 6f 63 61 74 69 6f 6e 20 77 69 6e 64 6f 77 29 0a 20 20 20 20 28 70 64 66 2d -mode.location.window).....(pdf-
af80 61 6e 6e 6f 74 2d 61 64 64 2d 68 69 67 68 6c 69 67 68 74 2d 6d 61 72 6b 75 70 2d 61 6e 6e 6f 74 annot-add-highlight-markup-annot
afa0 61 74 69 6f 6e 20 28 63 64 72 20 6c 6f 63 61 74 69 6f 6e 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 ation.(cdr.location))))..(defun.
afc0 6f 72 67 2d 6e 6f 74 65 72 2d 70 64 66 2d 2d 68 69 67 68 6c 69 67 68 74 2d 6c 6f 63 61 74 69 6f org-noter-pdf--highlight-locatio
afe0 6e 20 28 6d 6f 64 65 20 70 72 65 63 69 73 65 2d 6c 6f 63 61 74 69 6f 6e 29 0a 20 20 22 48 69 67 n.(mode.precise-location)..."Hig
b000 68 6c 69 67 68 74 20 61 20 70 72 65 63 69 73 65 20 6c 6f 63 61 74 69 6f 6e 20 69 6e 20 50 44 46 hlight.a.precise.location.in.PDF
b020 2e 22 0a 20 20 28 6d 65 73 73 61 67 65 20 22 2d 2d 2d 3e 20 25 73 20 25 73 22 20 6d 6f 64 65 20 ."...(message."--->.%s.%s".mode.
b040 70 72 65 63 69 73 65 2d 6c 6f 63 61 74 69 6f 6e 29 0a 20 20 28 77 68 65 6e 20 28 61 6e 64 20 28 precise-location)...(when.(and.(
b060 6d 65 6d 71 20 6d 6f 64 65 20 27 28 64 6f 63 2d 76 69 65 77 2d 6d 6f 64 65 20 70 64 66 2d 76 69 memq.mode.'(doc-view-mode.pdf-vi
b080 65 77 2d 6d 6f 64 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 64 66 2d 76 69 65 77 ew-mode))..............(pdf-view
b0a0 2d 61 63 74 69 76 65 2d 72 65 67 69 6f 6e 2d 70 29 29 0a 20 20 20 20 28 70 64 66 2d 61 6e 6e 6f -active-region-p)).....(pdf-anno
b0c0 74 2d 61 64 64 2d 68 69 67 68 6c 69 67 68 74 2d 6d 61 72 6b 75 70 2d 61 6e 6e 6f 74 61 74 69 6f t-add-highlight-markup-annotatio
b0e0 6e 20 28 70 64 66 2d 76 69 65 77 2d 61 63 74 69 76 65 2d 72 65 67 69 6f 6e 29 29 29 29 0a 0a 28 n.(pdf-view-active-region))))..(
b100 61 64 64 2d 74 6f 2d 6c 69 73 74 20 27 6f 72 67 2d 6e 6f 74 65 72 2d 2d 61 64 64 2d 68 69 67 68 add-to-list.'org-noter--add-high
b120 6c 69 67 68 74 2d 68 6f 6f 6b 20 23 27 6f 72 67 2d 6e 6f 74 65 72 2d 70 64 66 2d 2d 68 69 67 68 light-hook.#'org-noter-pdf--high
b140 6c 69 67 68 74 2d 6c 6f 63 61 74 69 6f 6e 29 0a 0a 28 64 65 66 75 6e 20 6f 72 67 2d 6e 6f 74 65 light-location)..(defun.org-note
b160 72 2d 70 64 66 2d 2d 63 6f 6e 76 65 72 74 2d 74 6f 2d 6c 6f 63 61 74 69 6f 6e 2d 63 6f 6e 73 20 r-pdf--convert-to-location-cons.
b180 28 6c 6f 63 61 74 69 6f 6e 29 0a 20 20 22 45 6e 63 6f 64 65 20 70 72 65 63 69 73 65 20 4c 4f 43 (location)..."Encode.precise.LOC
b1a0 41 54 49 4f 4e 20 61 73 20 61 20 63 6f 6e 73 20 63 65 6c 6c 20 66 6f 72 20 6e 6f 74 65 20 69 6e ATION.as.a.cons.cell.for.note.in
b1c0 73 65 72 74 69 6f 6e 20 6f 72 64 65 72 69 6e 67 2e 0a 43 6f 6e 76 65 72 74 73 20 28 70 61 67 65 sertion.ordering..Converts.(page
b1e0 20 76 20 2e 20 68 29 20 70 72 65 63 69 73 65 20 6c 6f 63 61 74 69 6f 6e 73 20 74 6f 20 28 70 61 .v...h).precise.locations.to.(pa
b200 67 65 20 76 27 29 20 73 75 63 68 20 74 68 61 74 0a 76 27 20 72 65 70 72 65 73 65 6e 74 73 20 74 ge.v').such.that.v'.represents.t
b220 68 65 20 66 72 61 63 74 69 6f 6e 61 6c 20 64 69 73 74 61 6e 63 65 20 74 68 72 6f 75 67 68 20 74 he.fractional.distance.through.t
b240 68 65 20 70 61 67 65 20 61 6c 6f 6e 67 0a 63 6f 6c 75 6d 6e 73 2c 20 73 6f 20 69 74 20 74 61 6b he.page.along.columns,.so.it.tak
b260 65 73 20 76 61 6c 75 65 73 20 62 65 74 77 65 65 6e 20 30 20 61 6e 64 20 74 68 65 20 6e 75 6d 62 es.values.between.0.and.the.numb
b280 65 72 20 6f 66 20 63 6f 6c 75 6d 6e 73 2e 0a 45 61 63 68 20 63 6f 6c 75 6d 6e 20 69 73 20 73 70 er.of.columns..Each.column.is.sp
b2a0 65 63 69 66 69 65 64 20 62 79 20 69 74 73 20 72 69 67 68 74 20 65 64 67 65 20 61 73 20 61 20 66 ecified.by.its.right.edge.as.a.f
b2c0 72 61 63 74 69 6f 6e 61 6c 0a 68 6f 72 69 7a 6f 6e 74 61 6c 20 70 6f 73 69 74 69 6f 6e 2e 20 20 ractional.horizontal.position...
b2e0 4f 75 74 70 75 74 20 69 73 20 6e 69 6c 20 66 6f 72 20 73 74 61 6e 64 61 72 64 20 6e 6f 74 65 73 Output.is.nil.for.standard.notes
b300 20 61 6e 64 20 28 70 61 67 65 0a 76 27 29 20 66 6f 72 20 70 72 65 63 69 73 65 20 6e 6f 74 65 73 .and.(page.v').for.precise.notes
b320 2e 22 0a 20 20 28 69 66 2d 6c 65 74 2a 20 28 28 5f 20 28 61 6e 64 20 28 63 6f 6e 73 70 20 6c 6f ."...(if-let*.((_.(and.(consp.lo
b340 63 61 74 69 6f 6e 29 20 28 63 6f 6e 73 70 20 28 63 64 72 20 6c 6f 63 61 74 69 6f 6e 29 29 29 29 cation).(consp.(cdr.location))))
b360 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 6c 75 6d 6e 2d 65 64 67 65 73 2d 73 74 72 69 6e .............(column-edges-strin
b380 67 20 28 77 68 65 6e 20 28 64 65 72 69 76 65 64 2d 6d 6f 64 65 2d 70 20 27 6f 72 67 2d 6d 6f 64 g.(when.(derived-mode-p.'org-mod
b3a0 65 29 20 28 6f 72 67 2d 65 6e 74 72 79 2d 67 65 74 20 6e 69 6c 20 22 43 4f 4c 55 4d 4e 5f 45 44 e).(org-entry-get.nil."COLUMN_ED
b3c0 47 45 53 22 20 74 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 72 69 67 68 74 2d 65 64 67 GES".t))).............(right-edg
b3e0 65 2d 6c 69 73 74 20 28 63 61 72 20 28 72 65 61 64 2d 66 72 6f 6d 2d 73 74 72 69 6e 67 20 63 6f e-list.(car.(read-from-string.co
b400 6c 75 6d 6e 2d 65 64 67 65 73 2d 73 74 72 69 6e 67 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 lumn-edges-string)))............
b420 20 3b 3b 28 6e 63 6f 6c 20 28 6c 65 6e 67 74 68 20 6c 65 66 74 2d 65 64 67 65 2d 6c 69 73 74 29 .;;(ncol.(length.left-edge-list)
b440 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 70 61 67 65 20 28 63 61 72 20 6c 6f 63 61 74 69 6f ).............(page.(car.locatio
b460 6e 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 76 2d 70 6f 73 20 28 63 61 64 72 20 6c 6f 63 n)).............(v-pos.(cadr.loc
b480 61 74 69 6f 6e 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 68 2d 70 6f 73 20 28 63 64 64 72 ation)).............(h-pos.(cddr
b4a0 20 6c 6f 63 61 74 69 6f 6e 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 6c 75 6d 6e 2d .location)).............(column-
b4c0 69 6e 64 65 78 20 28 73 65 71 2d 70 6f 73 69 74 69 6f 6e 20 72 69 67 68 74 2d 65 64 67 65 2d 6c index.(seq-position.right-edge-l
b4e0 69 73 74 20 68 2d 70 6f 73 20 23 27 3e 3d 29 29 29 0a 20 20 20 20 20 20 28 63 6f 6e 73 20 70 61 ist.h-pos.#'>=))).......(cons.pa
b500 67 65 20 28 2b 20 76 2d 70 6f 73 20 63 6f 6c 75 6d 6e 2d 69 6e 64 65 78 29 29 29 29 0a 0a 28 61 ge.(+.v-pos.column-index))))..(a
b520 64 64 2d 74 6f 2d 6c 69 73 74 20 27 6f 72 67 2d 6e 6f 74 65 72 2d 2d 63 6f 6e 76 65 72 74 2d 74 dd-to-list.'org-noter--convert-t
b540 6f 2d 6c 6f 63 61 74 69 6f 6e 2d 63 6f 6e 73 2d 68 6f 6f 6b 20 23 27 6f 72 67 2d 6e 6f 74 65 72 o-location-cons-hook.#'org-noter
b560 2d 70 64 66 2d 2d 63 6f 6e 76 65 72 74 2d 74 6f 2d 6c 6f 63 61 74 69 6f 6e 2d 63 6f 6e 73 29 0a -pdf--convert-to-location-cons).
b580 0a 28 64 65 66 75 6e 20 6f 72 67 2d 6e 6f 74 65 72 2d 70 64 66 2d 2d 73 68 6f 77 2d 61 72 72 6f .(defun.org-noter-pdf--show-arro
b5a0 77 20 28 29 0a 20 20 3b 3b 20 46 72 6f 6d 20 60 70 64 66 2d 75 74 69 6c 2d 74 6f 6f 6c 74 69 70 w.()...;;.From.`pdf-util-tooltip
b5c0 2d 61 72 72 6f 77 27 2e 0a 20 20 28 70 64 66 2d 75 74 69 6c 2d 61 73 73 65 72 74 2d 70 64 66 2d -arrow'....(pdf-util-assert-pdf-
b5e0 77 69 6e 64 6f 77 29 0a 20 20 28 6c 65 74 2a 20 28 78 2d 67 74 6b 2d 75 73 65 2d 73 79 73 74 65 window)...(let*.(x-gtk-use-syste
b600 6d 2d 74 6f 6f 6c 74 69 70 73 0a 20 20 20 20 20 20 20 20 20 28 61 72 72 6f 77 2d 74 6f 70 20 20 m-tooltips..........(arrow-top..
b620 28 61 72 65 66 20 6f 72 67 2d 6e 6f 74 65 72 2d 2d 61 72 72 6f 77 2d 6c 6f 63 61 74 69 6f 6e 20 (aref.org-noter--arrow-location.
b640 32 29 29 20 3b 20 25 20 6f 66 20 70 61 67 65 0a 20 20 20 20 20 20 20 20 20 28 61 72 72 6f 77 2d 2)).;.%.of.page..........(arrow-
b660 6c 65 66 74 20 28 61 72 65 66 20 6f 72 67 2d 6e 6f 74 65 72 2d 2d 61 72 72 6f 77 2d 6c 6f 63 61 left.(aref.org-noter--arrow-loca
b680 74 69 6f 6e 20 33 29 29 0a 20 20 20 20 20 20 20 20 20 28 69 6d 61 67 65 2d 74 6f 70 20 20 28 69 tion.3))..........(image-top..(i
b6a0 66 20 28 66 6c 6f 61 74 70 20 61 72 72 6f 77 2d 74 6f 70 29 0a 20 20 20 20 20 20 20 20 20 20 20 f.(floatp.arrow-top)............
b6c0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 72 6f 75 6e 64 20 28 2a 20 61 72 72 6f 77 2d 74 6f ..............(round.(*.arrow-to
b6e0 70 20 20 28 63 64 72 20 28 70 64 66 2d 76 69 65 77 2d 69 6d 61 67 65 2d 73 69 7a 65 29 29 29 29 p..(cdr.(pdf-view-image-size))))
b700 29 29 20 3b 20 70 69 78 65 6c 20 6c 6f 63 61 74 69 6f 6e 20 6f 6e 20 70 61 67 65 20 28 6d 61 67 )).;.pixel.location.on.page.(mag
b720 6e 69 66 69 63 61 74 69 6f 6e 2d 64 65 70 65 6e 64 65 6e 74 29 0a 20 20 20 20 20 20 20 20 20 28 nification-dependent)..........(
b740 69 6d 61 67 65 2d 6c 65 66 74 20 28 69 66 20 28 66 6c 6f 61 74 70 20 61 72 72 6f 77 2d 6c 65 66 image-left.(if.(floatp.arrow-lef
b760 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 20 28 66 6c 6f t)..........................(flo
b780 6f 72 20 28 2a 20 61 72 72 6f 77 2d 6c 65 66 74 20 28 63 61 72 20 28 70 64 66 2d 76 69 65 77 2d or.(*.arrow-left.(car.(pdf-view-
b7a0 69 6d 61 67 65 2d 73 69 7a 65 29 29 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 28 64 78 20 28 6f image-size))))))..........(dx.(o
b7c0 72 20 69 6d 61 67 65 2d 6c 65 66 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 2b r.image-left..................(+
b7e0 20 28 6f 72 20 28 63 61 72 20 28 77 69 6e 64 6f 77 2d 6d 61 72 67 69 6e 73 29 29 20 30 29 0a 20 .(or.(car.(window-margins)).0)..
b800 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 61 72 20 28 77 69 6e 64 6f 77 2d ...................(car.(window-
b820 66 72 69 6e 67 65 73 29 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 28 64 79 20 28 6f 72 20 69 6d fringes)))))..........(dy.(or.im
b840 61 67 65 2d 74 6f 70 20 30 29 29 0a 20 20 20 20 20 20 20 20 20 28 70 6f 73 20 28 6c 69 73 74 20 age-top.0))..........(pos.(list.
b860 64 78 20 64 79 20 64 78 20 28 2b 20 64 79 20 28 2a 20 32 20 28 66 72 61 6d 65 2d 63 68 61 72 2d dx.dy.dx.(+.dy.(*.2.(frame-char-
b880 68 65 69 67 68 74 29 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 28 76 73 63 72 6f 6c 6c 20 28 70 height)))))..........(vscroll.(p
b8a0 64 66 2d 75 74 69 6c 2d 72 65 71 75 69 72 65 64 2d 76 73 63 72 6f 6c 6c 20 70 6f 73 29 29 0a 20 df-util-required-vscroll.pos))..
b8c0 20 20 20 20 20 20 20 20 28 74 6f 6f 6c 74 69 70 2d 66 72 61 6d 65 2d 70 61 72 61 6d 65 74 65 72 ........(tooltip-frame-parameter
b8e0 73 0a 20 20 20 20 20 20 20 20 20 20 60 28 28 62 6f 72 64 65 72 2d 77 69 64 74 68 20 2e 20 30 29 s...........`((border-width...0)
b900 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 69 6e 74 65 72 6e 61 6c 2d 62 6f 72 64 65 72 2d 77 69 .............(internal-border-wi
b920 64 74 68 20 2e 20 30 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 2c 40 74 6f 6f 6c 74 69 70 2d 66 dth...0).............,@tooltip-f
b940 72 61 6d 65 2d 70 61 72 61 6d 65 74 65 72 73 29 29 0a 20 20 20 20 20 20 20 20 20 28 74 6f 6f 6c rame-parameters))..........(tool
b960 74 69 70 2d 68 69 64 65 2d 64 65 6c 61 79 20 33 29 29 0a 0a 20 20 20 20 28 77 68 65 6e 20 76 73 tip-hide-delay.3))......(when.vs
b980 63 72 6f 6c 6c 0a 20 20 20 20 20 20 28 69 6d 61 67 65 2d 73 65 74 2d 77 69 6e 64 6f 77 2d 76 73 croll.......(image-set-window-vs
b9a0 63 72 6f 6c 6c 20 76 73 63 72 6f 6c 6c 29 29 0a 20 20 20 20 28 73 65 74 71 20 64 79 20 28 6d 61 croll.vscroll)).....(setq.dy.(ma
b9c0 78 20 30 20 28 2d 20 64 79 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 x.0.(-.dy.......................
b9e0 20 28 63 64 72 20 28 70 64 66 2d 76 69 65 77 2d 69 6d 61 67 65 2d 6f 66 66 73 65 74 29 29 0a 20 .(cdr.(pdf-view-image-offset))..
ba00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 69 6e 64 6f 77 2d 76 73 ......................(window-vs
ba20 63 72 6f 6c 6c 20 6e 69 6c 20 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 croll.nil.t)....................
ba40 20 20 20 20 28 66 72 61 6d 65 2d 63 68 61 72 2d 68 65 69 67 68 74 29 29 29 29 0a 20 20 20 20 28 ....(frame-char-height)))).....(
ba60 77 68 65 6e 20 28 6f 76 65 72 6c 61 79 2d 67 65 74 20 28 70 64 66 2d 76 69 65 77 2d 63 75 72 72 when.(overlay-get.(pdf-view-curr
ba80 65 6e 74 2d 6f 76 65 72 6c 61 79 29 20 27 62 65 66 6f 72 65 2d 73 74 72 69 6e 67 29 0a 20 20 20 ent-overlay).'before-string)....
baa0 20 20 20 28 6c 65 74 2a 20 28 28 65 20 28 77 69 6e 64 6f 77 2d 69 6e 73 69 64 65 2d 70 69 78 65 ...(let*.((e.(window-inside-pixe
bac0 6c 2d 65 64 67 65 73 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 78 77 20 28 70 64 66 2d l-edges))..............(xw.(pdf-
bae0 75 74 69 6c 2d 77 69 74 68 2d 65 64 67 65 73 20 28 65 29 20 65 2d 77 69 64 74 68 29 29 0a 20 20 util-with-edges.(e).e-width))...
bb00 20 20 20 20 20 20 20 20 20 20 20 28 64 69 73 70 6c 61 79 2d 6c 65 66 74 2d 6d 61 72 67 69 6e 20 ...........(display-left-margin.
bb20 28 2f 20 28 2d 20 78 77 20 28 63 61 72 20 28 70 64 66 2d 76 69 65 77 2d 69 6d 61 67 65 2d 73 69 (/.(-.xw.(car.(pdf-view-image-si
bb40 7a 65 20 74 29 29 29 20 32 29 29 29 0a 20 20 20 20 20 20 20 20 28 63 6c 2d 69 6e 63 66 20 64 78 ze.t))).2))).........(cl-incf.dx
bb60 20 64 69 73 70 6c 61 79 2d 6c 65 66 74 2d 6d 61 72 67 69 6e 29 29 29 0a 20 20 20 20 28 73 65 74 .display-left-margin))).....(set
bb80 71 20 64 78 20 28 6d 61 78 20 30 20 28 2b 20 64 78 20 6f 72 67 2d 6e 6f 74 65 72 2d 61 72 72 6f q.dx.(max.0.(+.dx.org-noter-arro
bba0 77 2d 68 6f 72 69 7a 6f 6e 74 61 6c 2d 6f 66 66 73 65 74 29 29 29 0a 20 20 20 20 28 70 64 66 2d w-horizontal-offset))).....(pdf-
bbc0 75 74 69 6c 2d 74 6f 6f 6c 74 69 70 2d 69 6e 2d 77 69 6e 64 6f 77 0a 20 20 20 20 20 28 70 72 6f util-tooltip-in-window......(pro
bbe0 70 65 72 74 69 7a 65 0a 20 20 20 20 20 20 22 20 22 20 27 64 69 73 70 6c 61 79 20 28 70 72 6f 70 pertize.......".".'display.(prop
bc00 65 72 74 69 7a 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 5c 75 32 31 ertize....................."\u21
bc20 39 32 22 20 3b 3b 20 72 69 67 68 74 20 61 72 72 6f 77 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 92".;;.right.arrow..............
bc40 20 20 20 20 20 20 20 27 64 69 73 70 6c 61 79 20 27 28 68 65 69 67 68 74 20 32 29 0a 20 20 20 20 .......'display.'(height.2).....
bc60 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 66 61 63 65 20 60 28 3a 66 6f 72 65 67 72 6f ................'face.`(:foregro
bc80 75 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 20 und.............................
bca0 2c 6f 72 67 2d 6e 6f 74 65 72 2d 61 72 72 6f 77 2d 66 6f 72 65 67 72 6f 75 6e 64 2d 63 6f 6c 6f ,org-noter-arrow-foreground-colo
bcc0 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 20 20 3a 62 r.............................:b
bce0 61 63 6b 67 72 6f 75 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 ackground.......................
bd00 20 20 20 20 20 20 2c 28 69 66 20 28 62 6f 75 6e 64 2d 61 6e 64 2d 74 72 75 65 2d 70 20 70 64 66 ......,(if.(bound-and-true-p.pdf
bd20 2d 76 69 65 77 2d 6d 69 64 6e 69 67 68 74 2d 6d 69 6e 6f 72 2d 6d 6f 64 65 29 0a 20 20 20 20 20 -view-midnight-minor-mode)......
bd40 20 20 20 20 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 64 72 ............................(cdr
bd60 20 70 64 66 2d 76 69 65 77 2d 6d 69 64 6e 69 67 68 74 2d 63 6f 6c 6f 72 73 29 0a 20 20 20 20 20 .pdf-view-midnight-colors)......
bd80 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6f 72 67 2d 6e 6f ..........................org-no
bda0 74 65 72 2d 61 72 72 6f 77 2d 62 61 63 6b 67 72 6f 75 6e 64 2d 63 6f 6c 6f 72 29 29 29 29 0a 20 ter-arrow-background-color))))..
bdc0 20 20 20 20 64 78 20 64 79 29 29 29 0a 0a 28 61 64 64 2d 74 6f 2d 6c 69 73 74 20 27 6f 72 67 2d ....dx.dy)))..(add-to-list.'org-
bde0 6e 6f 74 65 72 2d 2d 73 68 6f 77 2d 61 72 72 6f 77 2d 68 6f 6f 6b 20 23 27 6f 72 67 2d 6e 6f 74 noter--show-arrow-hook.#'org-not
be00 65 72 2d 70 64 66 2d 2d 73 68 6f 77 2d 61 72 72 6f 77 29 0a 0a 28 64 65 66 75 6e 20 6f 72 67 2d er-pdf--show-arrow)..(defun.org-
be20 6e 6f 74 65 72 2d 70 64 66 2d 73 65 74 2d 63 6f 6c 75 6d 6e 73 20 28 6e 75 6d 2d 63 6f 6c 75 6d noter-pdf-set-columns.(num-colum
be40 6e 73 29 0a 20 20 22 49 6e 74 65 72 61 63 74 69 76 65 6c 79 20 73 65 74 20 74 68 65 20 43 4f 4c ns)..."Interactively.set.the.COL
be60 55 4d 4e 5f 45 44 47 45 53 20 70 72 6f 70 65 72 74 79 20 66 6f 72 20 74 68 65 20 63 75 72 72 65 UMN_EDGES.property.for.the.curre
be80 6e 74 20 68 65 61 64 69 6e 67 2e 0a 4e 55 4d 2d 43 4f 4c 55 4d 4e 53 20 63 61 6e 20 62 65 20 67 nt.heading..NUM-COLUMNS.can.be.g
bea0 69 76 65 6e 20 61 73 20 61 6e 20 69 6e 74 65 67 65 72 20 70 72 65 66 69 78 20 6f 72 20 69 6e 20 iven.as.an.integer.prefix.or.in.
bec0 74 68 65 0a 6d 69 6e 69 62 75 66 66 65 72 2e 20 20 54 68 65 20 75 73 65 72 20 69 73 20 74 68 65 the.minibuffer...The.user.is.the
bee0 6e 20 70 72 6f 6d 70 74 65 64 20 74 6f 20 63 6c 69 63 6b 20 6f 6e 20 74 68 65 20 72 69 67 68 74 n.prompted.to.click.on.the.right
bf00 20 65 64 67 65 0a 6f 66 20 65 61 63 68 20 63 6f 6c 75 6d 6e 2c 20 65 78 63 65 70 74 20 66 6f 72 .edge.of.each.column,.except.for
bf20 20 74 68 65 20 6c 61 73 74 20 6f 6e 65 2e 20 20 53 75 62 68 65 61 64 69 6e 67 73 20 6f 66 20 74 .the.last.one...Subheadings.of.t
bf40 68 65 0a 63 75 72 72 65 6e 74 20 68 65 61 64 69 6e 67 20 69 6e 68 65 72 69 74 20 74 68 65 20 43 he.current.heading.inherit.the.C
bf60 4f 4c 55 4d 4e 5f 45 44 47 45 53 20 70 72 6f 70 65 72 74 79 2e 22 0a 20 20 28 69 6e 74 65 72 61 OLUMN_EDGES.property."...(intera
bf80 63 74 69 76 65 20 22 4e 45 6e 74 65 72 20 6e 75 6d 62 65 72 20 6f 66 20 63 6f 6c 75 6d 6e 73 3a ctive."NEnter.number.of.columns:
bfa0 20 22 29 0a 20 20 28 73 65 6c 65 63 74 2d 77 69 6e 64 6f 77 20 28 6f 72 67 2d 6e 6f 74 65 72 2d .")...(select-window.(org-noter-
bfc0 2d 67 65 74 2d 64 6f 63 2d 77 69 6e 64 6f 77 29 29 0a 20 20 28 6c 65 74 20 28 65 76 65 6e 74 0a -get-doc-window))...(let.(event.
bfe0 20 20 20 20 20 20 20 20 65 64 67 65 2d 6c 69 73 74 0a 20 20 20 20 20 20 20 20 28 77 69 6e 64 6f ........edge-list.........(windo
c000 77 20 28 63 61 72 20 28 77 69 6e 64 6f 77 2d 6c 69 73 74 29 29 29 29 0a 20 20 20 20 28 64 6f 74 w.(car.(window-list)))).....(dot
c020 69 6d 65 73 20 28 69 69 20 28 31 2d 20 6e 75 6d 2d 63 6f 6c 75 6d 6e 73 29 29 0a 20 20 20 20 20 imes.(ii.(1-.num-columns))......
c040 20 28 77 68 69 6c 65 20 28 6e 6f 74 20 28 61 6e 64 20 28 65 71 20 27 6d 6f 75 73 65 2d 31 20 28 .(while.(not.(and.(eq.'mouse-1.(
c060 63 61 72 20 65 76 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 car.event)).....................
c080 20 20 20 28 65 71 20 77 69 6e 64 6f 77 20 28 70 6f 73 6e 2d 77 69 6e 64 6f 77 20 28 65 76 65 6e ...(eq.window.(posn-window.(even
c0a0 74 2d 73 74 61 72 74 20 65 76 65 6e 74 29 29 29 29 29 0a 20 20 20 20 20 20 20 20 28 73 65 74 71 t-start.event))))).........(setq
c0c0 20 65 76 65 6e 74 20 28 72 65 61 64 2d 65 76 65 6e 74 20 28 66 6f 72 6d 61 74 20 22 43 6c 69 63 .event.(read-event.(format."Clic
c0e0 6b 20 6f 6e 20 74 68 65 20 72 69 67 68 74 20 62 6f 75 6e 64 61 72 79 20 6f 66 20 63 6f 6c 75 6d k.on.the.right.boundary.of.colum
c100 6e 20 25 64 22 20 28 31 2b 20 69 69 29 29 29 29 29 0a 20 20 20 20 20 20 28 6c 65 74 2a 20 28 28 n.%d".(1+.ii))))).......(let*.((
c120 63 6f 6c 2d 72 6f 77 20 28 70 6f 73 6e 2d 63 6f 6c 2d 72 6f 77 20 28 65 76 65 6e 74 2d 73 74 61 col-row.(posn-col-row.(event-sta
c140 72 74 20 65 76 65 6e 74 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6c 69 63 6b 2d rt.event)))..............(click-
c160 70 6f 73 69 74 69 6f 6e 20 28 6f 72 67 2d 6e 6f 74 65 72 2d 2d 63 6f 6e 76 2d 70 61 67 65 2d 73 position.(org-noter--conv-page-s
c180 63 72 6f 6c 6c 2d 70 65 72 63 65 6e 74 61 67 65 20 28 2b 20 28 77 69 6e 64 6f 77 2d 76 73 63 72 croll-percentage.(+.(window-vscr
c1a0 6f 6c 6c 29 20 28 63 64 72 20 63 6f 6c 2d 72 6f 77 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 oll).(cdr.col-row)).............
c1c0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ................................
c1e0 20 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 2b 20 28 77 69 6e .........................(+.(win
c200 64 6f 77 2d 68 73 63 72 6f 6c 6c 29 20 28 63 61 72 20 63 6f 6c 2d 72 6f 77 29 29 29 29 0a 20 20 dow-hscroll).(car.col-row))))...
c220 20 20 20 20 20 20 20 20 20 20 20 28 68 2d 70 6f 73 69 74 69 6f 6e 20 28 63 64 72 20 63 6c 69 63 ...........(h-position.(cdr.clic
c240 6b 2d 70 6f 73 69 74 69 6f 6e 29 29 29 0a 20 20 20 20 20 20 20 20 28 73 65 74 71 20 65 76 65 6e k-position))).........(setq.even
c260 74 20 6e 69 6c 29 0a 20 20 20 20 20 20 20 20 28 73 65 74 71 20 65 64 67 65 2d 6c 69 73 74 20 28 t.nil).........(setq.edge-list.(
c280 61 70 70 65 6e 64 20 65 64 67 65 2d 6c 69 73 74 20 28 6c 69 73 74 20 68 2d 70 6f 73 69 74 69 6f append.edge-list.(list.h-positio
c2a0 6e 29 29 29 29 29 0a 20 20 20 20 28 73 65 74 71 20 65 64 67 65 2d 6c 69 73 74 20 28 61 70 70 65 n))))).....(setq.edge-list.(appe
c2c0 6e 64 20 65 64 67 65 2d 6c 69 73 74 20 27 28 31 29 29 29 0a 20 20 20 20 28 73 65 6c 65 63 74 2d nd.edge-list.'(1))).....(select-
c2e0 77 69 6e 64 6f 77 20 28 6f 72 67 2d 6e 6f 74 65 72 2d 2d 67 65 74 2d 6e 6f 74 65 73 2d 77 69 6e window.(org-noter--get-notes-win
c300 64 6f 77 29 29 0a 20 20 20 20 28 6f 72 67 2d 65 6e 74 72 79 2d 70 75 74 20 6e 69 6c 20 22 43 4f dow)).....(org-entry-put.nil."CO
c320 4c 55 4d 4e 5f 45 44 47 45 53 22 20 28 66 6f 72 6d 61 74 20 22 25 73 22 20 28 70 72 69 6e 63 20 LUMN_EDGES".(format."%s".(princ.
c340 65 64 67 65 2d 6c 69 73 74 29 29 29 29 29 0a 0a 3b 3b 3b 20 6f 76 65 72 72 69 64 65 20 73 6f 6d edge-list)))))..;;;.override.som
c360 65 20 64 65 6c 65 74 65 72 69 6f 75 73 20 6b 65 79 62 69 6e 64 69 6e 67 73 20 69 6e 20 70 64 66 e.deleterious.keybindings.in.pdf
c380 2d 76 69 65 77 2d 6d 6f 64 65 2e 0a 28 64 65 66 69 6e 65 2d 6b 65 79 20 6f 72 67 2d 6e 6f 74 65 -view-mode..(define-key.org-note
c3a0 72 2d 64 6f 63 2d 6d 6f 64 65 2d 6d 61 70 20 28 6b 62 64 20 22 43 2d 63 20 43 2d 63 22 29 0a 20 r-doc-mode-map.(kbd."C-c.C-c")..
c3c0 20 28 64 65 66 75 6e 20 6f 72 67 2d 6e 6f 74 65 72 2d 70 64 66 2d 2d 65 78 65 63 75 74 65 2d 43 .(defun.org-noter-pdf--execute-C
c3e0 63 43 63 2d 69 6e 2d 6e 6f 74 65 73 20 28 29 0a 20 20 20 20 22 4f 76 65 72 72 69 64 65 20 43 2d cCc-in-notes.()....."Override.C-
c400 63 20 43 2d 63 20 69 6e 20 70 64 66 20 64 6f 63 75 6d 65 6e 74 20 62 75 66 66 65 72 2e 22 0a 20 c.C-c.in.pdf.document.buffer."..
c420 20 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 0a 20 20 20 20 28 73 65 6c 65 63 74 2d 77 69 6e ...(interactive).....(select-win
c440 64 6f 77 20 28 6f 72 67 2d 6e 6f 74 65 72 2d 2d 67 65 74 2d 6e 6f 74 65 73 2d 77 69 6e 64 6f 77 dow.(org-noter--get-notes-window
c460 29 29 0a 20 20 20 20 28 6f 72 67 2d 63 74 72 6c 2d 63 2d 63 74 72 6c 2d 63 29 29 29 0a 0a 28 64 )).....(org-ctrl-c-ctrl-c)))..(d
c480 65 66 69 6e 65 2d 6b 65 79 20 6f 72 67 2d 6e 6f 74 65 72 2d 64 6f 63 2d 6d 6f 64 65 2d 6d 61 70 efine-key.org-noter-doc-mode-map
c4a0 20 28 6b 62 64 20 22 43 2d 63 20 43 2d 78 22 29 0a 20 20 28 64 65 66 75 6e 20 6f 72 67 2d 6e 6f .(kbd."C-c.C-x")...(defun.org-no
c4c0 74 65 72 2d 70 64 66 2d 2d 65 78 65 63 75 74 65 2d 43 63 43 78 2d 69 6e 2d 6e 6f 74 65 73 20 28 ter-pdf--execute-CcCx-in-notes.(
c4e0 29 0a 20 20 20 20 22 4f 76 65 72 72 69 64 65 20 43 2d 63 20 43 2d 78 20 3c 65 76 65 6e 74 3e 20 )....."Override.C-c.C-x.<event>.
c500 69 6e 20 70 64 66 20 64 6f 63 75 6d 65 6e 74 20 62 75 66 66 65 72 2e 22 0a 20 20 20 20 28 69 6e in.pdf.document.buffer.".....(in
c520 74 65 72 61 63 74 69 76 65 29 0a 20 20 20 20 28 6c 65 74 20 28 28 74 68 69 73 2d 43 78 43 63 2d teractive).....(let.((this-CxCc-
c540 63 6d 64 20 28 76 65 63 74 6f 72 20 28 72 65 61 64 2d 65 76 65 6e 74 29 29 29 29 0a 20 20 20 20 cmd.(vector.(read-event)))).....
c560 20 20 28 73 65 6c 65 63 74 2d 77 69 6e 64 6f 77 20 28 6f 72 67 2d 6e 6f 74 65 72 2d 2d 67 65 74 ..(select-window.(org-noter--get
c580 2d 6e 6f 74 65 73 2d 77 69 6e 64 6f 77 29 29 0a 20 20 20 20 20 20 28 65 78 65 63 75 74 65 2d 6b -notes-window)).......(execute-k
c5a0 62 64 2d 6d 61 63 72 6f 0a 20 20 20 20 20 20 20 28 76 63 6f 6e 63 61 74 20 28 6b 62 64 20 22 43 bd-macro........(vconcat.(kbd."C
c5c0 2d 63 20 43 2d 78 22 29 20 74 68 69 73 2d 43 78 43 63 2d 63 6d 64 29 29 29 29 29 0a 0a 28 70 72 -c.C-x").this-CxCc-cmd)))))..(pr
c5e0 6f 76 69 64 65 20 27 6f 72 67 2d 6e 6f 74 65 72 2d 70 64 66 29 0a 3b 3b 3b 20 6f 72 67 2d 6e 6f ovide.'org-noter-pdf).;;;.org-no
c600 74 65 72 2d 70 64 66 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 ter-pdf.el.ends.here............
c620 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
c640 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
c660 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
c680 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
c6a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
c6c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
c6e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
c700 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
c720 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
c740 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
c760 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
c780 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
c7a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
c7c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
c7e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
c800 6f 72 67 2d 6e 6f 74 65 72 2d 32 30 32 34 30 39 31 38 2e 31 37 30 33 2f 6f 72 67 2d 6e 6f 74 65 org-noter-20240918.1703/org-note
c820 72 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 r-core.el.......................
c840 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
c860 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
c880 30 33 35 32 35 33 31 00 30 30 30 30 30 30 30 30 30 30 30 00 30 31 36 31 32 36 00 20 30 00 00 00 0352531.00000000000.016126..0...
c8a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
c8c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
c8e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
c900 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...................
c920 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...................
c940 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
c960 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
c980 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
c9a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
c9c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
c9e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
ca00 3b 3b 3b 20 6f 72 67 2d 6e 6f 74 65 72 2d 63 6f 72 65 2e 65 6c 20 2d 2d 2d 20 43 6f 72 65 20 66 ;;;.org-noter-core.el.---.Core.f
ca20 75 6e 63 74 69 6f 6e 73 20 6f 66 20 4f 72 67 2d 6e 6f 74 65 72 20 20 20 20 20 20 20 2d 2a 2d 20 unctions.of.Org-noter.......-*-.
ca40 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 70 79 lexical-binding:.t;.-*-..;;.Copy
ca60 72 69 67 68 74 20 28 43 29 20 32 30 31 37 2d 32 30 31 39 20 20 47 6f 6e c3 a7 61 6c 6f 20 53 61 right.(C).2017-2019..Gon..alo.Sa
ca80 6e 74 6f 73 0a 0a 3b 3b 20 41 75 74 68 6f 72 3a 20 47 6f 6e c3 a7 61 6c 6f 20 53 61 6e 74 6f 73 ntos..;;.Author:.Gon..alo.Santos
caa0 20 28 61 6b 61 2e 20 77 65 69 72 64 4e 6f 78 40 47 69 74 48 75 62 29 0a 0a 3b 3b 20 54 68 69 73 .(aka..weirdNox@GitHub)..;;.This
cac0 20 66 69 6c 65 20 69 73 20 6e 6f 74 20 70 61 72 74 20 6f 66 20 47 4e 55 20 45 6d 61 63 73 2e 0a .file.is.not.part.of.GNU.Emacs..
cae0 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 77 61 72 .;;.This.program.is.free.softwar
cb00 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 64 2f 6f e;.you.can.redistribute.it.and/o
cb20 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 73 20 6f r.modify.;;.it.under.the.terms.o
cb40 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
cb60 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 53 6f 66 .as.published.by.;;.the.Free.Sof
cb80 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 69 6f 6e tware.Foundation,.either.version
cba0 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 79 6f 75 .3.of.the.License,.or.;;.(at.you
cbc0 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 0a 3b 3b r.option).any.later.version...;;
cbe0 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 69 6e 20 .This.program.is.distributed.in.
cc00 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 75 6c 2c the.hope.that.it.will.be.useful,
cc20 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 20 77 69 .;;.but.WITHOUT.ANY.WARRANTY;.wi
cc40 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 74 79 20 thout.even.the.implied.warranty.
cc60 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 45 53 53 of.;;.MERCHANTABILITY.or.FITNESS
cc80 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 65 65 20 .FOR.A.PARTICULAR.PURPOSE...See.
cca0 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 65 6e 73 the.;;.GNU.General.Public.Licens
ccc0 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 68 6f 75 e.for.more.details...;;.You.shou
cce0 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 65 20 47 ld.have.received.a.copy.of.the.G
cd00 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 61 6c 6f NU.General.Public.License.;;.alo
cd20 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 2c 20 73 ng.with.this.program...If.not,.s
cd40 65 65 20 3c 68 74 74 70 3a 2f 2f 77 77 77 2e 67 6e 75 2e 6f 72 67 2f 6c 69 63 65 6e 73 65 73 2f ee.<http://www.gnu.org/licenses/
cd60 3e 2e 0a 0a 3b 3b 3b 20 43 6f 64 65 3a 0a 28 72 65 71 75 69 72 65 20 27 6f 72 67 29 0a 28 72 65 >...;;;.Code:.(require.'org).(re
cd80 71 75 69 72 65 20 27 6f 72 67 2d 65 6c 65 6d 65 6e 74 29 0a 28 72 65 71 75 69 72 65 20 27 63 6c quire.'org-element).(require.'cl
cda0 2d 6c 69 62 29 0a 0a 28 64 65 63 6c 61 72 65 2d 66 75 6e 63 74 69 6f 6e 20 6f 72 67 2d 6e 6f 74 -lib)..(declare-function.org-not
cdc0 65 72 20 22 6f 72 67 2d 6e 6f 74 65 72 22 29 0a 28 64 65 63 6c 61 72 65 2d 66 75 6e 63 74 69 6f er."org-noter").(declare-functio
cde0 6e 20 64 6f 63 2d 76 69 65 77 2d 67 6f 74 6f 2d 70 61 67 65 20 22 64 6f 63 2d 76 69 65 77 22 29 n.doc-view-goto-page."doc-view")
ce00 0a 28 64 65 63 6c 61 72 65 2d 66 75 6e 63 74 69 6f 6e 20 69 6d 61 67 65 2d 64 69 73 70 6c 61 79 .(declare-function.image-display
ce20 2d 73 69 7a 65 20 22 69 6d 61 67 65 2d 6d 6f 64 65 22 29 0a 28 64 65 63 6c 61 72 65 2d 66 75 6e -size."image-mode").(declare-fun
ce40 63 74 69 6f 6e 20 69 6d 61 67 65 2d 67 65 74 2d 64 69 73 70 6c 61 79 2d 70 72 6f 70 65 72 74 79 ction.image-get-display-property
ce60 20 22 69 6d 61 67 65 2d 6d 6f 64 65 22 29 0a 28 64 65 63 6c 61 72 65 2d 66 75 6e 63 74 69 6f 6e ."image-mode").(declare-function
ce80 20 69 6d 61 67 65 2d 6d 6f 64 65 2d 77 69 6e 64 6f 77 2d 67 65 74 20 22 69 6d 61 67 65 2d 6d 6f .image-mode-window-get."image-mo
cea0 64 65 22 29 0a 28 64 65 63 6c 61 72 65 2d 66 75 6e 63 74 69 6f 6e 20 69 6d 61 67 65 2d 73 63 72 de").(declare-function.image-scr
cec0 6f 6c 6c 2d 75 70 20 22 69 6d 61 67 65 2d 6d 6f 64 65 22 29 0a 28 64 65 63 6c 61 72 65 2d 66 75 oll-up."image-mode").(declare-fu
cee0 6e 63 74 69 6f 6e 20 6f 72 67 2d 61 74 74 61 63 68 2d 64 69 72 20 22 6f 72 67 2d 61 74 74 61 63 nction.org-attach-dir."org-attac
cf00 68 22 29 0a 28 64 65 63 6c 61 72 65 2d 66 75 6e 63 74 69 6f 6e 20 6f 72 67 2d 61 74 74 61 63 68 h").(declare-function.org-attach
cf20 2d 66 69 6c 65 2d 6c 69 73 74 20 22 6f 72 67 2d 61 74 74 61 63 68 22 29 0a 0a 3b 3b 20 2d 2d 2d -file-list."org-attach")..;;.---
cf40 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d --------------------------------
cf60 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d --------------------------------
cf80 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 3b 3b 3b 20 55 73 65 72 20 76 61 72 69 61 62 6c 65 73 -------------.;;;.User.variables
cfa0 0a 28 64 65 66 67 72 6f 75 70 20 6f 72 67 2d 6e 6f 74 65 72 20 6e 69 6c 0a 20 20 22 41 20 73 79 .(defgroup.org-noter.nil..."A.sy
cfc0 6e 63 68 72 6f 6e 69 7a 65 64 2c 20 65 78 74 65 72 6e 61 6c 20 61 6e 6e 6f 74 61 74 6f 72 2e 22 nchronized,.external.annotator."
cfe0 0a 20 20 3a 67 72 6f 75 70 20 27 63 6f 6e 76 65 6e 69 65 6e 63 65 0a 20 20 3a 76 65 72 73 69 6f ...:group.'convenience...:versio
d000 6e 20 22 32 35 2e 33 2e 31 22 29 0a 0a 28 64 65 66 67 72 6f 75 70 20 6f 72 67 2d 6e 6f 74 65 72 n."25.3.1")..(defgroup.org-noter
d020 2d 6c 61 79 6f 75 74 20 6e 69 6c 0a 20 20 22 4f 72 67 2d 6e 6f 74 65 72 20 6c 61 79 6f 75 74 20 -layout.nil..."Org-noter.layout.
d040 61 6e 64 20 76 69 73 69 62 69 6c 69 74 79 20 76 61 72 69 61 62 6c 65 73 2e 22 0a 20 20 3a 67 72 and.visibility.variables."...:gr
d060 6f 75 70 20 27 6f 72 67 2d 6e 6f 74 65 72 0a 20 20 3a 76 65 72 73 69 6f 6e 20 22 32 38 2e 32 22 oup.'org-noter...:version."28.2"
d080 29 0a 0a 28 64 65 66 67 72 6f 75 70 20 6f 72 67 2d 6e 6f 74 65 72 2d 6e 61 76 69 67 61 74 69 6f )..(defgroup.org-noter-navigatio
d0a0 6e 20 6e 69 6c 0a 20 20 22 4f 72 67 2d 6e 6f 74 65 72 20 6e 61 76 69 67 61 74 69 6f 6e 20 61 6e n.nil..."Org-noter.navigation.an
d0c0 64 20 64 69 73 70 6c 61 79 20 76 61 72 69 61 62 6c 65 73 2e 22 0a 20 20 3a 67 72 6f 75 70 20 27 d.display.variables."...:group.'
d0e0 6f 72 67 2d 6e 6f 74 65 72 0a 20 20 3a 76 65 72 73 69 6f 6e 20 22 32 38 2e 32 22 29 0a 0a 28 64 org-noter...:version."28.2")..(d
d100 65 66 67 72 6f 75 70 20 6f 72 67 2d 6e 6f 74 65 72 2d 69 6e 73 65 72 74 69 6f 6e 20 6e 69 6c 0a efgroup.org-noter-insertion.nil.
d120 20 20 22 4f 72 67 2d 6e 6f 74 65 72 20 6e 6f 74 65 2d 69 6e 73 65 72 74 69 6f 6e 20 76 61 72 69 .."Org-noter.note-insertion.vari
d140 61 62 6c 65 73 2e 22 0a 20 20 3a 67 72 6f 75 70 20 27 6f 72 67 2d 6e 6f 74 65 72 0a 20 20 3a 76 ables."...:group.'org-noter...:v
d160 65 72 73 69 6f 6e 20 22 32 38 2e 32 22 29 0a 0a 28 64 65 66 63 75 73 74 6f 6d 20 6f 72 67 2d 6e ersion."28.2")..(defcustom.org-n
d180 6f 74 65 72 2d 73 75 70 70 6f 72 74 65 64 2d 6d 6f 64 65 73 20 27 28 64 6f 63 2d 76 69 65 77 2d oter-supported-modes.'(doc-view-
d1a0 6d 6f 64 65 20 70 64 66 2d 76 69 65 77 2d 6d 6f 64 65 20 6e 6f 76 2d 6d 6f 64 65 20 64 6a 76 75 mode.pdf-view-mode.nov-mode.djvu
d1c0 2d 72 65 61 64 2d 6d 6f 64 65 29 0a 20 20 22 4d 61 6a 6f 72 20 6d 6f 64 65 73 20 74 68 61 74 20 -read-mode)..."Major.modes.that.
d1e0 61 72 65 20 73 75 70 70 6f 72 74 65 64 20 62 79 20 6f 72 67 2d 6e 6f 74 65 72 2e 22 0a 20 20 3a are.supported.by.org-noter."...:
d200 67 72 6f 75 70 20 27 6f 72 67 2d 6e 6f 74 65 72 0a 20 20 3a 74 79 70 65 20 27 28 72 65 70 65 61 group.'org-noter...:type.'(repea
d220 74 20 73 79 6d 62 6f 6c 29 29 0a 0a 28 64 65 66 76 61 72 20 6f 72 67 2d 6e 6f 74 65 72 2d 2d 64 t.symbol))..(defvar.org-noter--d
d240 6f 63 2d 65 78 74 65 6e 73 69 6f 6e 73 20 6e 69 6c 0a 20 20 22 4c 69 73 74 20 6f 66 20 65 78 74 oc-extensions.nil..."List.of.ext
d260 65 6e 73 69 6f 6e 73 20 68 61 6e 64 6c 65 64 20 62 79 20 6f 72 67 2d 6e 6f 74 65 72 20 77 68 65 ensions.handled.by.org-noter.whe
d280 6e 20 64 6f 63 75 6d 65 6e 74 73 20 61 72 65 20 6d 6f 76 65 64 2e 0a 55 73 65 64 20 62 79 20 60 n.documents.are.moved..Used.by.`
d2a0 6f 72 67 2d 6e 6f 74 65 72 2d 2d 75 70 64 61 74 65 2d 64 6f 63 2d 72 65 6e 61 6d 65 2d 69 6e 2d org-noter--update-doc-rename-in-
d2c0 6e 6f 74 65 73 27 2e 20 20 54 68 69 73 20 76 61 72 69 61 62 6c 65 0a 67 65 74 73 20 66 69 6c 6c notes'...This.variable.gets.fill
d2e0 65 64 20 69 6e 20 62 79 20 73 75 70 70 6f 72 74 65 64 20 6d 6f 64 65 73 2c 20 73 6f 20 69 74 20 ed.in.by.supported.modes,.so.it.
d300 69 73 20 6e 6f 74 20 61 20 60 64 65 66 63 75 73 74 6f 6d 27 0a 76 61 72 69 61 62 6c 65 2e 22 29 is.not.a.`defcustom'.variable.")
d320 0a 0a 28 64 65 66 63 75 73 74 6f 6d 20 6f 72 67 2d 6e 6f 74 65 72 2d 70 72 6f 70 65 72 74 79 2d ..(defcustom.org-noter-property-
d340 64 6f 63 2d 66 69 6c 65 20 22 4e 4f 54 45 52 5f 44 4f 43 55 4d 45 4e 54 22 0a 20 20 22 4e 61 6d doc-file."NOTER_DOCUMENT"..."Nam
d360 65 20 6f 66 20 74 68 65 20 70 72 6f 70 65 72 74 79 20 74 68 61 74 20 73 70 65 63 69 66 69 65 73 e.of.the.property.that.specifies
d380 20 74 68 65 20 64 6f 63 75 6d 65 6e 74 2e 22 0a 20 20 3a 67 72 6f 75 70 20 27 6f 72 67 2d 6e 6f .the.document."...:group.'org-no
d3a0 74 65 72 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 6d ter...:type.'string)..(defcustom
d3c0 20 6f 72 67 2d 6e 6f 74 65 72 2d 70 72 6f 70 65 72 74 79 2d 6e 6f 74 65 2d 6c 6f 63 61 74 69 6f .org-noter-property-note-locatio
d3e0 6e 20 22 4e 4f 54 45 52 5f 50 41 47 45 22 0a 20 20 22 4e 61 6d 65 20 6f 66 20 74 68 65 20 70 72 n."NOTER_PAGE"..."Name.of.the.pr
d400 6f 70 65 72 74 79 20 74 68 61 74 20 73 70 65 63 69 66 69 65 73 20 74 68 65 20 6c 6f 63 61 74 69 operty.that.specifies.the.locati
d420 6f 6e 20 6f 66 20 74 68 65 20 63 75 72 72 65 6e 74 20 6e 6f 74 65 2e 0a 54 68 65 20 64 65 66 61 on.of.the.current.note..The.defa
d440 75 6c 74 20 76 61 6c 75 65 20 69 73 20 73 74 69 6c 6c 20 4e 4f 54 45 52 5f 50 41 47 45 20 66 6f ult.value.is.still.NOTER_PAGE.fo
d460 72 20 62 61 63 6b 77 61 72 64 73 20 63 6f 6d 70 61 74 69 62 69 6c 69 74 79 2e 22 0a 20 20 3a 67 r.backwards.compatibility."...:g
d480 72 6f 75 70 20 27 6f 72 67 2d 6e 6f 74 65 72 0a 20 20 3a 74 79 70 65 20 27 73 74 72 69 6e 67 29 roup.'org-noter...:type.'string)
d4a0 0a 0a 28 64 65 66 63 75 73 74 6f 6d 20 6f 72 67 2d 6e 6f 74 65 72 2d 64 65 66 61 75 6c 74 2d 68 ..(defcustom.org-noter-default-h
d4c0 65 61 64 69 6e 67 2d 74 69 74 6c 65 20 22 4e 6f 74 65 73 20 66 6f 72 20 70 61 67 65 20 24 70 24 eading-title."Notes.for.page.$p$
d4e0 22 0a 20 20 22 54 68 65 20 64 65 66 61 75 6c 74 20 74 69 74 6c 65 20 66 6f 72 20 68 65 61 64 69 "..."The.default.title.for.headi
d500 6e 67 73 20 63 72 65 61 74 65 64 20 77 69 74 68 20 60 6f 72 67 2d 6e 6f 74 65 72 2d 69 6e 73 65 ngs.created.with.`org-noter-inse
d520 72 74 2d 6e 6f 74 65 27 2e 0a 24 70 24 20 69 73 20 72 65 70 6c 61 63 65 64 20 77 69 74 68 20 74 rt-note'..$p$.is.replaced.with.t
d540 68 65 20 6e 75 6d 62 65 72 20 6f 66 20 74 68 65 20 70 61 67 65 20 6f 72 20 63 68 61 70 74 65 72 he.number.of.the.page.or.chapter
d560 20 79 6f 75 20 61 72 65 20 69 6e 0a 61 74 20 74 68 65 20 6d 6f 6d 65 6e 74 2e 22 0a 20 20 3a 67 .you.are.in.at.the.moment."...:g
d580 72 6f 75 70 20 27 6f 72 67 2d 6e 6f 74 65 72 2d 69 6e 73 65 72 74 69 6f 6e 0a 20 20 3a 74 79 70 roup.'org-noter-insertion...:typ
d5a0 65 20 27 73 74 72 69 6e 67 29 0a 0a 28 64 65 66 63 75 73 74 6f 6d 20 6f 72 67 2d 6e 6f 74 65 72 e.'string)..(defcustom.org-noter
d5c0 2d 6e 6f 74 65 73 2d 77 69 6e 64 6f 77 2d 62 65 68 61 76 69 6f 72 20 27 28 73 74 61 72 74 20 73 -notes-window-behavior.'(start.s
d5e0 63 72 6f 6c 6c 29 0a 20 20 22 53 70 65 63 69 66 69 65 73 20 73 69 74 75 61 74 69 6f 6e 73 20 66 croll)..."Specifies.situations.f
d600 6f 72 20 77 68 69 63 68 20 74 68 65 20 6e 6f 74 65 73 20 77 69 6e 64 6f 77 20 69 73 20 63 72 65 or.which.the.notes.window.is.cre
d620 61 74 65 64 2e 0a 0a 57 68 65 6e 20 74 68 65 20 6c 69 73 74 20 63 6f 6e 74 61 69 6e 73 3a 0a 2d ated...When.the.list.contains:.-
d640 20 60 73 74 61 72 74 27 2c 20 74 68 65 20 6e 6f 74 65 73 20 77 69 6e 64 6f 77 20 77 69 6c 6c 20 .`start',.the.notes.window.will.
d660 62 65 20 63 72 65 61 74 65 64 20 77 68 65 6e 20 73 74 61 72 74 69 6e 67 20 61 6e 0a 20 20 60 6f be.created.when.starting.an...`o
d680 72 67 2d 6e 6f 74 65 72 27 20 73 65 73 73 69 6f 6e 2e 0a 2d 20 60 73 63 72 6f 6c 6c 27 2c 20 69 rg-noter'.session..-.`scroll',.i
d6a0 74 20 77 69 6c 6c 20 62 65 20 63 72 65 61 74 65 64 20 77 68 65 6e 20 79 6f 75 20 67 6f 20 74 6f t.will.be.created.when.you.go.to
d6c0 20 61 20 6c 6f 63 61 74 69 6f 6e 20 77 69 74 68 20 61 6e 0a 20 20 20 61 73 73 6f 63 69 61 74 65 .a.location.with.an....associate
d6e0 64 20 6e 6f 74 65 2e 0a 2d 20 60 6f 6e 6c 79 2d 70 72 65 76 27 2c 20 69 74 20 77 69 6c 6c 20 62 d.note..-.`only-prev',.it.will.b
d700 65 20 63 72 65 61 74 65 64 20 77 68 65 6e 20 79 6f 75 20 67 6f 20 74 6f 20 61 20 6c 6f 63 61 74 e.created.when.you.go.to.a.locat
d720 69 6f 6e 0a 20 20 20 77 69 74 68 6f 75 74 20 6e 6f 74 65 73 2c 20 62 75 74 20 74 68 61 74 20 68 ion....without.notes,.but.that.h
d740 61 73 20 70 72 65 76 69 6f 75 73 20 6e 6f 74 65 73 20 74 68 61 74 20 61 72 65 20 73 68 6f 77 6e as.previous.notes.that.are.shown
d760 2e 22 0a 20 20 3a 67 72 6f 75 70 20 27 6f 72 67 2d 6e 6f 74 65 72 0a 20 20 3a 74 79 70 65 20 27 ."...:group.'org-noter...:type.'
d780 28 73 65 74 20 28 63 6f 6e 73 74 20 3a 74 61 67 20 22 53 65 73 73 69 6f 6e 20 73 74 61 72 74 22 (set.(const.:tag."Session.start"
d7a0 20 73 74 61 72 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 6e 73 74 20 3a 74 61 .start)...............(const.:ta
d7c0 67 20 22 53 63 72 6f 6c 6c 20 74 6f 20 6c 6f 63 61 74 69 6f 6e 20 77 69 74 68 20 6e 6f 74 65 73 g."Scroll.to.location.with.notes
d7e0 22 20 73 63 72 6f 6c 6c 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 6e 73 74 20 3a ".scroll)...............(const.:
d800 74 61 67 20 22 53 63 72 6f 6c 6c 20 74 6f 20 6c 6f 63 61 74 69 6f 6e 20 77 69 74 68 20 70 72 65 tag."Scroll.to.location.with.pre
d820 76 69 6f 75 73 20 6e 6f 74 65 73 20 6f 6e 6c 79 22 20 6f 6e 6c 79 2d 70 72 65 76 29 29 29 0a 0a vious.notes.only".only-prev)))..
d840 28 64 65 66 63 75 73 74 6f 6d 20 6f 72 67 2d 6e 6f 74 65 72 2d 6e 6f 74 65 73 2d 77 69 6e 64 6f (defcustom.org-noter-notes-windo
d860 77 2d 6c 6f 63 61 74 69 6f 6e 20 27 68 6f 72 69 7a 6f 6e 74 61 6c 2d 73 70 6c 69 74 0a 20 20 22 w-location.'horizontal-split..."
d880 54 68 65 20 64 65 66 61 75 6c 74 20 64 6f 63 75 6d 65 6e 74 2f 6e 6f 74 65 73 20 77 69 6e 64 6f The.default.document/notes.windo
d8a0 77 20 6c 61 79 6f 75 74 2e 0a 4f 70 74 69 6f 6e 73 20 61 72 65 3a 20 5c 22 48 6f 72 69 7a 6f 6e w.layout..Options.are:.\"Horizon
d8c0 74 61 6c 5c 22 2c 20 5c 22 56 65 72 74 69 63 61 6c 5c 22 2c 20 6f 72 20 5c 22 4f 74 68 65 72 20 tal\",.\"Vertical\",.or.\"Other.
d8e0 66 72 61 6d 65 5c 22 0a 0a 4e 6f 74 65 20 74 68 61 74 20 74 68 69 73 20 77 69 6c 6c 20 6f 6e 6c frame\"..Note.that.this.will.onl
d900 79 20 68 61 76 65 20 65 66 66 65 63 74 20 6f 6e 20 73 65 73 73 69 6f 6e 20 73 74 61 72 74 75 70 y.have.effect.on.session.startup
d920 20 69 66 20 60 73 74 61 72 74 27 0a 69 73 20 6d 65 6d 62 65 72 20 6f 66 20 60 6f 72 67 2d 6e 6f .if.`start'.is.member.of.`org-no
d940 74 65 72 2d 6e 6f 74 65 73 2d 77 69 6e 64 6f 77 2d 62 65 68 61 76 69 6f 72 27 20 28 77 68 69 63 ter-notes-window-behavior'.(whic
d960 68 20 73 65 65 29 2e 22 0a 20 20 3a 67 72 6f 75 70 20 27 6f 72 67 2d 6e 6f 74 65 72 2d 6c 61 79 h.see)."...:group.'org-noter-lay
d980 6f 75 74 0a 20 20 3a 74 79 70 65 20 27 28 63 68 6f 69 63 65 20 28 63 6f 6e 73 74 20 3a 74 61 67 out...:type.'(choice.(const.:tag
d9a0 20 22 48 6f 72 69 7a 6f 6e 74 61 6c 22 20 68 6f 72 69 7a 6f 6e 74 61 6c 2d 73 70 6c 69 74 29 0a ."Horizontal".horizontal-split).
d9c0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 6e 73 74 20 3a 74 61 67 20 22 56 65 .................(const.:tag."Ve
d9e0 72 74 69 63 61 6c 22 20 76 65 72 74 69 63 61 6c 2d 73 70 6c 69 74 29 0a 20 20 20 20 20 20 20 20 rtical".vertical-split).........
da00 20 20 20 20 20 20 20 20 20 28 63 6f 6e 73 74 20 3a 74 61 67 20 22 4f 74 68 65 72 20 66 72 61 6d .........(const.:tag."Other.fram
da20 65 22 20 6f 74 68 65 72 2d 66 72 61 6d 65 29 29 29 0a 0a 28 64 65 66 69 6e 65 2d 6f 62 73 6f 6c e".other-frame)))..(define-obsol
da40 65 74 65 2d 76 61 72 69 61 62 6c 65 2d 61 6c 69 61 73 20 27 6f 72 67 2d 6e 6f 74 65 72 2d 64 6f ete-variable-alias.'org-noter-do
da60 63 2d 73 70 6c 69 74 2d 70 65 72 63 65 6e 74 61 67 65 20 27 6f 72 67 2d 6e 6f 74 65 72 2d 64 6f c-split-percentage.'org-noter-do
da80 63 2d 73 70 6c 69 74 2d 66 72 61 63 74 69 6f 6e 20 22 31 2e 32 2e 30 22 29 0a 28 64 65 66 63 75 c-split-fraction."1.2.0").(defcu
daa0 73 74 6f 6d 20 6f 72 67 2d 6e 6f 74 65 72 2d 64 6f 63 2d 73 70 6c 69 74 2d 66 72 61 63 74 69 6f stom.org-noter-doc-split-fractio
dac0 6e 20 27 28 30 2e 35 20 2e 20 30 2e 35 29 0a 20 20 22 46 72 61 63 74 69 6f 6e 20 6f 66 20 74 68 n.'(0.5...0.5)..."Fraction.of.th
dae0 65 20 66 72 61 6d 65 20 74 68 61 74 20 74 68 65 20 64 6f 63 75 6d 65 6e 74 20 77 69 6e 64 6f 77 e.frame.that.the.document.window
db00 20 77 69 6c 6c 20 6f 63 63 75 70 79 20 77 68 65 6e 20 73 70 6c 69 74 2e 0a 54 68 69 73 20 69 73 .will.occupy.when.split..This.is
db20 20 61 20 63 6f 6e 73 20 6f 66 20 74 68 65 20 74 79 70 65 20 28 48 4f 52 49 5a 4f 4e 54 41 4c 2d .a.cons.of.the.type.(HORIZONTAL-
db40 46 52 41 43 54 49 4f 4e 20 2e 20 56 45 52 54 49 43 41 4c 2d 46 52 41 43 54 49 4f 4e 29 2e 22 0a FRACTION...VERTICAL-FRACTION).".
db60 20 20 3a 67 72 6f 75 70 20 27 6f 72 67 2d 6e 6f 74 65 72 2d 6c 61 79 6f 75 74 0a 20 20 3a 74 79 ..:group.'org-noter-layout...:ty
db80 70 65 20 27 28 63 6f 6e 73 20 28 6e 75 6d 62 65 72 20 3a 74 61 67 20 22 48 6f 72 69 7a 6f 6e 74 pe.'(cons.(number.:tag."Horizont
dba0 61 6c 20 66 72 61 63 74 69 6f 6e 22 29 20 28 6e 75 6d 62 65 72 20 3a 74 61 67 20 22 56 65 72 74 al.fraction").(number.:tag."Vert
dbc0 69 63 61 6c 20 66 72 61 63 74 69 6f 6e 22 29 29 29 0a 0a 28 64 65 66 63 75 73 74 6f 6d 20 6f 72 ical.fraction")))..(defcustom.or
dbe0 67 2d 6e 6f 74 65 72 2d 61 75 74 6f 2d 73 61 76 65 2d 6c 61 73 74 2d 6c 6f 63 61 74 69 6f 6e 20 g-noter-auto-save-last-location.
dc00 6e 69 6c 0a 20 20 22 4f 70 74 69 6f 6e 20 74 6f 20 73 61 76 65 20 64 6f 63 75 6d 65 6e 74 20 6c nil..."Option.to.save.document.l
dc20 6f 63 61 74 69 6f 6e 20 69 6e 20 6e 6f 74 65 73 20 66 69 6c 65 2e 0a 57 68 65 6e 20 6e 6f 6e 2d ocation.in.notes.file..When.non-
dc40 6e 69 6c 2c 20 73 61 76 65 20 74 68 65 20 6c 61 73 74 20 76 69 73 69 74 65 64 20 6c 6f 63 61 74 nil,.save.the.last.visited.locat
dc60 69 6f 6e 20 61 75 74 6f 6d 61 74 69 63 61 6c 6c 79 3b 20 77 68 65 6e 0a 73 74 61 72 74 69 6e 67 ion.automatically;.when.starting
dc80 20 61 20 6e 65 77 20 73 65 73 73 69 6f 6e 2c 20 67 6f 20 74 6f 20 74 68 61 74 20 6c 6f 63 61 74 .a.new.session,.go.to.that.locat
dca0 69 6f 6e 2e 20 20 57 68 65 6e 20 6e 69 6c 2c 20 73 65 73 73 69 6f 6e 73 0a 73 74 61 72 74 20 61 ion...When.nil,.sessions.start.a
dcc0 74 20 74 68 65 20 62 65 67 69 6e 6e 69 6e 67 20 6f 66 20 74 68 65 20 64 6f 63 75 6d 65 6e 74 2e t.the.beginning.of.the.document.
dce0 22 0a 20 20 3a 67 72 6f 75 70 20 27 6f 72 67 2d 6e 6f 74 65 72 0a 20 20 3a 74 79 70 65 20 27 62 "...:group.'org-noter...:type.'b
dd00 6f 6f 6c 65 61 6e 29 0a 0a 28 64 65 66 63 75 73 74 6f 6d 20 6f 72 67 2d 6e 6f 74 65 72 2d 70 72 oolean)..(defcustom.org-noter-pr
dd20 65 66 65 72 2d 72 6f 6f 74 2d 61 73 2d 66 69 6c 65 2d 6c 65 76 65 6c 20 6e 69 6c 0a 20 20 22 4f efer-root-as-file-level.nil..."O
dd40 70 74 69 6f 6e 20 74 6f 20 70 72 65 66 65 72 65 6e 74 69 61 6c 6c 79 20 75 73 65 20 74 68 65 20 ption.to.preferentially.use.the.
dd60 66 69 6c 65 2d 6c 65 76 65 6c 20 70 72 6f 70 65 72 74 79 20 64 72 61 77 65 72 2e 0a 0a 57 68 65 file-level.property.drawer...Whe
dd80 6e 20 6e 6f 6e 2d 6e 69 6c 2c 20 6f 72 67 2d 6e 6f 74 65 72 20 77 69 6c 6c 20 61 6c 77 61 79 73 n.non-nil,.org-noter.will.always
dda0 20 74 72 79 20 74 6f 20 72 65 74 75 72 6e 20 74 68 65 20 66 69 6c 65 2d 6c 65 76 65 6c 0a 70 72 .try.to.return.the.file-level.pr
ddc0 6f 70 65 72 74 79 20 64 72 61 77 65 72 20 65 76 65 6e 20 77 68 65 6e 20 74 68 65 72 65 20 61 72 operty.drawer.even.when.there.ar
dde0 65 20 68 65 61 64 69 6e 67 73 2e 0a 0a 57 69 74 68 20 74 68 65 20 64 65 66 61 75 6c 74 20 76 61 e.headings...With.the.default.va
de00 6c 75 65 20 6e 69 6c 2c 20 6f 72 67 2d 6e 6f 74 65 72 20 77 69 6c 6c 20 61 6c 77 61 79 73 20 75 lue.nil,.org-noter.will.always.u
de20 73 65 20 74 68 65 20 66 69 72 73 74 0a 68 65 61 64 69 6e 67 20 61 73 20 72 6f 6f 74 20 77 68 65 se.the.first.heading.as.root.whe
de40 6e 20 74 68 65 72 65 20 69 73 20 61 74 20 6c 65 61 73 74 20 6f 6e 65 20 68 65 61 64 69 6e 67 2e n.there.is.at.least.one.heading.
de60 22 0a 20 20 3a 67 72 6f 75 70 20 27 6f 72 67 2d 6e 6f 74 65 72 0a 20 20 3a 74 79 70 65 20 27 62 "...:group.'org-noter...:type.'b
de80 6f 6f 6c 65 61 6e 29 0a 0a 28 64 65 66 63 75 73 74 6f 6d 20 6f 72 67 2d 6e 6f 74 65 72 2d 68 69 oolean)..(defcustom.org-noter-hi
dea0 64 65 2d 6f 74 68 65 72 20 74 0a 20 20 22 48 69 64 65 20 6e 6f 74 65 73 20 74 68 61 74 20 61 72 de-other.t..."Hide.notes.that.ar
dec0 65 20 6e 6f 74 20 6c 69 6e 6b 65 64 20 74 6f 20 74 68 65 20 63 75 72 72 65 6e 74 20 64 6f 63 75 e.not.linked.to.the.current.docu
dee0 6d 65 6e 74 20 70 61 67 65 2e 0a 57 68 65 6e 20 6e 6f 6e 2d 6e 69 6c 2c 20 68 69 64 65 20 61 6c ment.page..When.non-nil,.hide.al
df00 6c 20 68 65 61 64 69 6e 67 73 20 6e 6f 74 20 72 65 6c 61 74 65 64 20 74 6f 20 74 68 65 20 63 6f l.headings.not.related.to.the.co
df20 6d 6d 61 6e 64 20 75 73 65 64 2e 0a 46 6f 72 20 65 78 61 6d 70 6c 65 2c 20 77 68 65 6e 20 73 63 mmand.used..For.example,.when.sc
df40 72 6f 6c 6c 69 6e 67 20 74 6f 20 70 61 67 65 73 20 77 69 74 68 20 6e 6f 74 65 73 2c 20 63 6f 6c rolling.to.pages.with.notes,.col
df60 6c 61 70 73 65 20 61 6c 6c 20 74 68 65 0a 6e 6f 74 65 73 20 74 68 61 74 20 61 72 65 20 6e 6f 74 lapse.all.the.notes.that.are.not
df80 20 61 6e 6e 6f 74 61 74 69 6e 67 20 74 68 65 20 63 75 72 72 65 6e 74 20 70 61 67 65 2e 22 0a 20 .annotating.the.current.page."..
dfa0 20 3a 67 72 6f 75 70 20 27 6f 72 67 2d 6e 6f 74 65 72 2d 6c 61 79 6f 75 74 0a 20 20 3a 74 79 70 .:group.'org-noter-layout...:typ
dfc0 65 20 27 62 6f 6f 6c 65 61 6e 29 0a 0a 28 64 65 66 63 75 73 74 6f 6d 20 6f 72 67 2d 6e 6f 74 65 e.'boolean)..(defcustom.org-note
dfe0 72 2d 61 6c 77 61 79 73 2d 63 72 65 61 74 65 2d 66 72 61 6d 65 20 74 0a 20 20 22 43 72 65 61 74 r-always-create-frame.t..."Creat
e000 65 20 61 20 6e 65 77 20 66 72 61 6d 65 20 66 6f 72 20 65 61 63 68 20 64 6f 63 75 6d 65 6e 74 20 e.a.new.frame.for.each.document.
e020 73 65 73 73 69 6f 6e 2e 0a 57 68 65 6e 20 6e 6f 6e 2d 6e 69 6c 2c 20 6f 72 67 2d 6e 6f 74 65 72 session..When.non-nil,.org-noter
e040 20 77 69 6c 6c 20 61 6c 77 61 79 73 20 63 72 65 61 74 65 20 61 20 6e 65 77 20 66 72 61 6d 65 20 .will.always.create.a.new.frame.
e060 66 6f 72 20 74 68 65 0a 73 65 73 73 69 6f 6e 2e 20 20 57 68 65 6e 20 6e 69 6c 2c 20 69 74 20 77 for.the.session...When.nil,.it.w
e080 69 6c 6c 20 75 73 65 20 74 68 65 20 73 65 6c 65 63 74 65 64 20 66 72 61 6d 65 20 69 66 20 69 74 ill.use.the.selected.frame.if.it
e0a0 20 64 6f 65 73 20 6e 6f 74 0a 62 65 6c 6f 6e 67 20 74 6f 20 61 6e 79 20 6f 74 68 65 72 20 73 65 .does.not.belong.to.any.other.se
e0c0 73 73 69 6f 6e 2e 22 0a 20 20 3a 67 72 6f 75 70 20 27 6f 72 67 2d 6e 6f 74 65 72 0a 20 20 3a 74 ssion."...:group.'org-noter...:t
e0e0 79 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 6f 72 67 2d 6e 6f ype.'boolean)..(defcustom.org-no
e100 74 65 72 2d 64 69 73 61 62 6c 65 2d 6e 61 72 72 6f 77 69 6e 67 20 6e 69 6c 0a 20 20 22 44 69 73 ter-disable-narrowing.nil..."Dis
e120 61 62 6c 65 20 6e 61 72 72 6f 77 69 6e 67 20 69 6e 20 6e 6f 74 65 73 2f 6f 72 67 20 62 75 66 66 able.narrowing.in.notes/org.buff
e140 65 72 2e 22 0a 20 20 3a 67 72 6f 75 70 20 27 6f 72 67 2d 6e 6f 74 65 72 2d 6c 61 79 6f 75 74 0a er."...:group.'org-noter-layout.
e160 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 73 74 6f 6d 20 6f 72 ..:type.'boolean)..(defcustom.or
e180 67 2d 6e 6f 74 65 72 2d 75 73 65 2d 69 6e 64 69 72 65 63 74 2d 62 75 66 66 65 72 20 74 0a 20 20 g-noter-use-indirect-buffer.t...
e1a0 22 55 73 65 20 69 6e 64 69 72 65 63 74 20 62 75 66 66 65 72 20 66 6f 72 20 6e 6f 74 65 73 2e 0a "Use.indirect.buffer.for.notes..
e1c0 57 68 65 6e 20 6e 6f 6e 2d 6e 69 6c 2c 20 6f 72 67 2d 6e 6f 74 65 72 20 77 69 6c 6c 20 63 72 65 When.non-nil,.org-noter.will.cre
e1e0 61 74 65 20 61 6e 20 69 6e 64 69 72 65 63 74 20 62 75 66 66 65 72 20 6f 66 20 74 68 65 0a 63 61 ate.an.indirect.buffer.of.the.ca
e200 6c 6c 69 6e 67 20 6f 72 67 20 66 69 6c 65 20 61 73 20 61 20 6e 6f 74 65 20 62 75 66 66 65 72 20 lling.org.file.as.a.note.buffer.
e220 6f 66 20 74 68 65 20 73 65 73 73 69 6f 6e 2e 20 20 57 68 65 6e 20 6e 69 6c 2c 20 69 74 0a 77 69 of.the.session...When.nil,.it.wi
e240 6c 6c 20 75 73 65 20 74 68 65 20 72 65 61 6c 20 62 75 66 66 65 72 2e 22 0a 20 20 3a 67 72 6f 75 ll.use.the.real.buffer."...:grou
e260 70 20 27 6f 72 67 2d 6e 6f 74 65 72 0a 20 20 3a 74 79 70 65 20 27 62 6f 6f 6c 65 61 6e 29 0a 0a p.'org-noter...:type.'boolean)..
e280 28 64 65 66 63 75 73 74 6f 6d 20 6f 72 67 2d 6e 6f 74 65 72 2d 73 77 61 70 2d 77 69 6e 64 6f 77 (defcustom.org-noter-swap-window
e2a0 20 6e 69 6c 0a 20 20 22 53 77 61 70 20 74 68 65 20 6c 65 66 74 2f 72 69 67 68 74 20 6f 72 20 74 .nil..."Swap.the.left/right.or.t
e2c0 6f 70 2f 62 6f 74 74 6f 6d 20 6c 61 79 6f 75 74 20 6f 66 20 74 68 65 20 64 6f 63 20 61 6e 64 20 op/bottom.layout.of.the.doc.and.
e2e0 6e 6f 74 65 73 2e 0a 0a 42 79 20 64 65 66 61 75 6c 74 20 60 6f 72 67 2d 6e 6f 74 65 72 27 20 77 notes...By.default.`org-noter'.w
e300 69 6c 6c 20 6d 61 6b 65 20 61 20 73 65 73 73 69 6f 6e 20 62 79 20 73 65 74 74 69 6e 67 20 74 68 ill.make.a.session.by.setting.th
e320 65 20 62 75 66 66 65 72 0a 6f 66 20 74 68 65 20 73 65 6c 65 63 74 65 64 20 77 69 6e 64 6f 77 20 e.buffer.of.the.selected.window.
e340 74 6f 20 74 68 65 20 64 6f 63 75 6d 65 6e 74 20 62 75 66 66 65 72 20 74 68 65 6e 20 73 70 6c 69 to.the.document.buffer.then.spli
e360 74 20 77 69 74 68 20 74 68 65 0a 77 69 6e 64 6f 77 20 6f 66 20 74 68 65 20 6e 6f 74 65 73 20 62 t.with.the.window.of.the.notes.b
e380 75 66 66 65 72 20 6f 6e 20 74 68 65 20 72 69 67 68 74 2e 0a 0a 49 66 20 74 68 69 73 20 76 61 72 uffer.on.the.right...If.this.var
e3a0 69 61 62 6c 65 20 69 73 20 6e 6f 6e 2d 6e 69 6c 2c 20 74 68 65 20 62 75 66 66 65 72 73 20 6f 66 iable.is.non-nil,.the.buffers.of
e3c0 20 74 68 65 20 74 77 6f 20 77 69 6e 64 6f 77 73 20 77 69 6c 6c 0a 62 65 20 74 68 65 20 6f 74 68 .the.two.windows.will.be.the.oth
e3e0 65 72 20 77 61 79 20 61 72 6f 75 6e 64 2e 22 0a 20 20 3a 67 72 6f 75 70 20 27 6f 72 67 2d 6e 6f er.way.around."...:group.'org-no
e400 74 65 72 2d 6c 61 79 6f 75 74 0a 20 20 3a 74 79 70 65 20 27 62 6f 6f 6c 65 61 6e 29 0a 0a 0a 28 ter-layout...:type.'boolean)...(
e420 64 65 66 63 75 73 74 6f 6d 20 6f 72 67 2d 6e 6f 74 65 72 2d 73 75 67 67 65 73 74 2d 66 72 6f 6d defcustom.org-noter-suggest-from
e440 2d 61 74 74 61 63 68 6d 65 6e 74 73 20 74 0a 20 20 22 53 75 67 67 65 73 74 20 64 6f 63 75 6d 65 -attachments.t..."Suggest.docume
e460 6e 74 20 66 69 6c 65 73 20 66 72 6f 6d 20 61 74 74 61 63 68 6d 65 6e 74 73 20 28 69 6e 20 61 6e nt.files.from.attachments.(in.an
e480 20 4f 72 67 20 66 69 6c 65 29 2e 0a 57 68 65 6e 20 6e 6f 6e 2d 6e 69 6c 2c 20 6f 72 67 2d 6e 6f .Org.file)..When.non-nil,.org-no
e4a0 74 65 72 20 77 69 6c 6c 20 73 75 67 67 65 73 74 20 66 69 6c 65 73 20 66 72 6f 6d 20 74 68 65 20 ter.will.suggest.files.from.the.
e4c0 61 74 74 61 63 68 6d 65 6e 74 73 0a 77 68 65 6e 20 63 72 65 61 74 69 6e 67 20 61 20 73 65 73 73 attachments.when.creating.a.sess
e4e0 69 6f 6e 2c 20 69 66 20 74 68 65 20 64 6f 63 75 6d 65 6e 74 20 69 73 20 6d 69 73 73 69 6e 67 2e ion,.if.the.document.is.missing.
e500 22 0a 20 20 3a 67 72 6f 75 70 20 27 6f 72 67 2d 6e 6f 74 65 72 0a 20 20 3a 74 79 70 65 20 27 62 "...:group.'org-noter...:type.'b
e520 6f 6f 6c 65 61 6e 29 0a 0a 28 64 65 66 63 75 73 74 6f 6d 20 6f 72 67 2d 6e 6f 74 65 72 2d 73 65 oolean)..(defcustom.org-noter-se
e540 70 61 72 61 74 65 2d 6e 6f 74 65 73 2d 66 72 6f 6d 2d 68 65 61 64 69 6e 67 20 6e 69 6c 0a 20 20 parate-notes-from-heading.nil...
e560 22 57 68 65 6e 20 6e 6f 6e 2d 6e 69 6c 2c 20 61 64 64 20 61 6e 20 65 6d 70 74 79 20 6c 69 6e 65 "When.non-nil,.add.an.empty.line
e580 20 62 65 74 77 65 65 6e 20 65 61 63 68 20 6e 6f 74 65 27 73 20 68 65 61 64 69 6e 67 20 61 6e 64 .between.each.note's.heading.and
e5a0 20 63 6f 6e 74 65 6e 74 2e 22 0a 20 20 3a 67 72 6f 75 70 20 27 6f 72 67 2d 6e 6f 74 65 72 2d 69 .content."...:group.'org-noter-i
e5c0 6e 73 65 72 74 69 6f 6e 0a 20 20 3a 74 79 70 65 20 27 62 6f 6f 6c 65 61 6e 29 0a 0a 28 64 65 66 nsertion...:type.'boolean)..(def
e5e0 63 75 73 74 6f 6d 20 6f 72 67 2d 6e 6f 74 65 72 2d 69 6e 73 65 72 74 2d 73 65 6c 65 63 74 65 64 custom.org-noter-insert-selected
e600 2d 74 65 78 74 2d 69 6e 73 69 64 65 2d 6e 6f 74 65 20 74 0a 20 20 22 4f 70 74 69 6f 6e 20 74 6f -text-inside-note.t..."Option.to
e620 20 61 70 70 65 6e 64 20 73 65 6c 65 63 74 65 64 20 74 65 78 74 20 74 6f 20 65 78 69 73 74 69 6e .append.selected.text.to.existin
e640 67 20 6e 6f 74 65 2e 0a 0a 57 68 65 6e 20 6e 6f 6e 2d 6e 69 6c 20 28 64 65 66 61 75 6c 74 29 2c g.note...When.non-nil.(default),
e660 20 69 74 20 77 69 6c 6c 20 61 75 74 6f 6d 61 74 69 63 61 6c 6c 79 20 61 70 70 65 6e 64 20 74 68 .it.will.automatically.append.th
e680 65 20 73 65 6c 65 63 74 65 64 0a 74 65 78 74 20 69 6e 74 6f 20 61 6e 20 65 78 69 73 74 69 6e 67 e.selected.text.into.an.existing
e6a0 20 6e 6f 74 65 2e 0a 0a 57 68 65 6e 20 6e 69 6c 2c 20 73 65 6c 65 63 74 65 64 20 74 65 78 74 20 .note...When.nil,.selected.text.
e6c0 77 69 6c 6c 20 6e 6f 74 20 62 65 20 61 70 70 65 6e 64 65 64 20 74 6f 20 65 78 69 73 74 69 6e 67 will.not.be.appended.to.existing
e6e0 0a 6e 6f 74 65 20 28 6e 6f 74 20 72 65 63 6f 6d 6d 65 6e 64 65 64 29 2e 22 0a 20 20 3a 67 72 6f .note.(not.recommended)."...:gro
e700 75 70 20 27 6f 72 67 2d 6e 6f 74 65 72 2d 69 6e 73 65 72 74 69 6f 6e 0a 20 20 3a 74 79 70 65 20 up.'org-noter-insertion...:type.
e720 27 62 6f 6f 6c 65 61 6e 29 0a 0a 28 64 65 66 63 75 73 74 6f 6d 20 6f 72 67 2d 6e 6f 74 65 72 2d 'boolean)..(defcustom.org-noter-
e740 63 6c 6f 73 65 73 74 2d 74 69 70 70 69 6e 67 2d 70 6f 69 6e 74 20 30 2e 33 0a 20 20 22 44 65 66 closest-tipping-point.0.3..."Def
e760 69 6e 65 73 20 77 68 65 6e 20 74 6f 20 73 68 6f 77 20 74 68 65 20 63 6c 6f 73 65 73 74 20 70 72 ines.when.to.show.the.closest.pr
e780 65 76 69 6f 75 73 20 6e 6f 74 65 2e 0a 0a 4c 65 74 20 78 20 62 65 20 28 74 68 69 73 20 76 61 6c evious.note...Let.x.be.(this.val
e7a0 75 65 29 2a 31 30 30 2e 20 20 54 68 65 20 66 6f 6c 6c 6f 77 69 6e 67 20 73 63 68 65 6d 61 74 69 ue)*100...The.following.schemati
e7c0 63 20 72 65 70 72 65 73 65 6e 74 73 20 74 68 65 0a 76 69 65 77 20 28 65 67 2e 2c 20 61 20 70 61 c.represents.the.view.(eg.,.a.pa
e7e0 67 65 20 6f 66 20 61 20 50 44 46 29 3a 0a 0a 2b 2d 2d 2d 2d 2b 0a 7c 20 20 20 20 7c 20 2d 3e 20 ge.of.a.PDF):..+----+.|....|.->.
e800 49 66 20 74 68 65 72 65 20 61 72 65 20 6e 6f 74 65 73 20 69 6e 20 68 65 72 65 2c 20 74 68 65 20 If.there.are.notes.in.here,.the.
e820 63 6c 6f 73 65 73 74 20 70 72 65 76 69 6f 75 73 20 6e 6f 74 65 20 69 73 20 6e 6f 74 20 73 68 6f closest.previous.note.is.not.sho
e840 77 6e 0a 2b 2d 2d 2d 2d 2b 2d 2d 3e 20 54 69 70 70 69 6e 67 20 70 6f 69 6e 74 2c 20 61 74 20 78 wn.+----+-->.Tipping.point,.at.x
e860 25 20 6f 66 20 74 68 65 20 76 69 65 77 0a 7c 20 20 20 20 7c 20 2d 3e 20 57 68 65 6e 20 5f 61 6c %.of.the.view.|....|.->.When._al
e880 6c 5f 20 6e 6f 74 65 73 20 61 72 65 20 69 6e 20 68 65 72 65 2c 20 62 65 6c 6f 77 20 74 68 65 20 l_.notes.are.in.here,.below.the.
e8a0 74 69 70 70 69 6e 67 20 70 6f 69 6e 74 2c 20 74 68 65 20 63 6c 6f 73 65 73 74 0a 7c 20 20 20 20 tipping.point,.the.closest.|....
e8c0 7c 20 20 20 20 70 72 65 76 69 6f 75 73 20 6e 6f 74 65 20 77 69 6c 6c 20 62 65 20 73 68 6f 77 6e |....previous.note.will.be.shown
e8e0 2e 0a 2b 2d 2d 2d 2d 2b 0a 0a 57 68 65 6e 20 74 68 69 73 20 76 61 6c 75 65 20 69 73 20 6e 65 67 ..+----+..When.this.value.is.neg
e900 61 74 69 76 65 2c 20 64 69 73 61 62 6c 65 20 74 68 69 73 20 66 65 61 74 75 72 65 2e 0a 0a 54 68 ative,.disable.this.feature...Th
e920 69 73 20 73 65 74 74 69 6e 67 20 6d 61 79 20 62 65 20 6f 76 65 72 72 69 64 64 65 6e 20 69 6e 20 is.setting.may.be.overridden.in.
e940 61 20 64 6f 63 75 6d 65 6e 74 20 77 69 74 68 20 74 68 65 20 66 75 6e 63 74 69 6f 6e 0a 60 6f 72 a.document.with.the.function.`or
e960 67 2d 6e 6f 74 65 72 2d 73 65 74 2d 63 6c 6f 73 65 73 74 2d 74 69 70 70 69 6e 67 2d 70 6f 69 6e g-noter-set-closest-tipping-poin
e980 74 27 2c 20 77 68 69 63 68 20 73 65 65 2e 22 0a 20 20 3a 67 72 6f 75 70 20 27 6f 72 67 2d 6e 6f t',.which.see."...:group.'org-no
e9a0 74 65 72 2d 6e 61 76 69 67 61 74 69 6f 6e 0a 20 20 3a 74 79 70 65 20 27 6e 75 6d 62 65 72 29 0a ter-navigation...:type.'number).
e9c0 0a 28 64 65 66 63 75 73 74 6f 6d 20 6f 72 67 2d 6e 6f 74 65 72 2d 64 65 66 61 75 6c 74 2d 6e 6f .(defcustom.org-noter-default-no
e9e0 74 65 73 2d 66 69 6c 65 2d 6e 61 6d 65 73 20 27 28 22 4e 6f 74 65 73 2e 6f 72 67 22 29 0a 20 20 tes-file-names.'("Notes.org")...
ea00 22 4c 69 73 74 20 6f 66 20 70 6f 73 73 69 62 6c 65 20 6e 61 6d 65 73 20 66 6f 72 20 74 68 65 20 "List.of.possible.names.for.the.
ea20 64 65 66 61 75 6c 74 20 6e 6f 74 65 73 20 66 69 6c 65 2e 0a 54 68 65 20 6c 69 73 74 20 69 73 20 default.notes.file..The.list.is.
ea40 69 6e 20 69 6e 63 72 65 61 73 69 6e 67 20 6f 72 64 65 72 20 6f 66 20 70 72 69 6f 72 69 74 79 2e in.increasing.order.of.priority.
ea60 22 0a 20 20 3a 67 72 6f 75 70 20 27 6f 72 67 2d 6e 6f 74 65 72 0a 20 20 3a 74 79 70 65 20 27 28 "...:group.'org-noter...:type.'(
ea80 72 65 70 65 61 74 20 73 74 72 69 6e 67 29 29 0a 0a 28 64 65 66 63 75 73 74 6f 6d 20 6f 72 67 2d repeat.string))..(defcustom.org-
eaa0 6e 6f 74 65 72 2d 6e 6f 74 65 73 2d 73 65 61 72 63 68 2d 70 61 74 68 20 27 28 22 7e 2f 44 6f 63 noter-notes-search-path.'("~/Doc
eac0 75 6d 65 6e 74 73 22 29 0a 20 20 22 4c 69 73 74 20 6f 66 20 70 61 74 68 73 20 74 6f 20 63 68 65 uments")..."List.of.paths.to.che
eae0 63 6b 20 28 6e 6f 6e 20 72 65 63 75 72 73 69 76 65 6c 79 29 20 77 68 65 6e 20 73 65 61 72 63 68 ck.(non.recursively).when.search
eb00 69 6e 67 20 66 6f 72 20 61 20 6e 6f 74 65 73 20 66 69 6c 65 2e 22 0a 20 20 3a 67 72 6f 75 70 20 ing.for.a.notes.file."...:group.
eb20 27 6f 72 67 2d 6e 6f 74 65 72 0a 20 20 3a 74 79 70 65 20 27 28 72 65 70 65 61 74 20 73 74 72 69 'org-noter...:type.'(repeat.stri
eb40 6e 67 29 29 0a 0a 28 64 65 66 63 75 73 74 6f 6d 20 6f 72 67 2d 6e 6f 74 65 72 2d 61 72 72 6f 77 ng))..(defcustom.org-noter-arrow
eb60 2d 64 65 6c 61 79 20 30 2e 32 0a 20 20 22 44 65 6c 61 79 20 28 69 6e 20 73 65 63 6f 6e 64 73 29 -delay.0.2..."Delay.(in.seconds)
eb80 20 61 66 74 65 20 61 20 73 79 6e 63 20 62 65 66 6f 72 65 20 73 68 6f 77 69 6e 67 20 74 68 65 20 .afte.a.sync.before.showing.the.
eba0 74 6f 6f 6c 74 69 70 20 61 72 72 6f 77 2e 0a 0a 57 68 65 6e 20 73 65 74 20 74 6f 20 61 20 6e 65 tooltip.arrow...When.set.to.a.ne
ebc0 67 61 74 69 76 65 20 6e 75 6d 62 65 72 2c 20 74 68 65 20 61 72 72 6f 77 20 74 6f 6f 6c 74 69 70 gative.number,.the.arrow.tooltip
ebe0 20 69 73 20 64 69 73 61 62 6c 65 64 2e 0a 54 68 69 73 20 69 73 20 6e 65 65 64 65 64 20 69 6e 20 .is.disabled..This.is.needed.in.
ec00 6f 72 64 65 72 20 74 6f 20 6b 65 65 70 20 45 6d 61 63 73 20 66 72 6f 6d 20 68 61 6e 67 69 6e 67 order.to.keep.Emacs.from.hanging
ec20 20 77 68 65 6e 20 64 6f 69 6e 67 20 6d 61 6e 79 20 73 79 6e 63 73 2e 22 0a 20 20 3a 67 72 6f 75 .when.doing.many.syncs."...:grou
ec40 70 20 27 6f 72 67 2d 6e 6f 74 65 72 2d 6e 61 76 69 67 61 74 69 6f 6e 0a 20 20 3a 74 79 70 65 20 p.'org-noter-navigation...:type.
ec60 27 6e 75 6d 62 65 72 29 0a 0a 28 64 65 66 63 75 73 74 6f 6d 20 6f 72 67 2d 6e 6f 74 65 72 2d 61 'number)..(defcustom.org-noter-a
ec80 72 72 6f 77 2d 68 6f 72 69 7a 6f 6e 74 61 6c 2d 6f 66 66 73 65 74 20 2d 32 30 0a 20 20 22 48 6f rrow-horizontal-offset.-20..."Ho
eca0 72 69 7a 6f 6e 74 61 6c 20 6f 66 66 73 65 74 20 6f 66 20 74 68 65 20 74 6f 6f 6c 74 69 70 20 61 rizontal.offset.of.the.tooltip.a
ecc0 72 72 6f 77 20 72 65 6c 61 74 69 76 65 20 74 6f 20 61 20 70 72 65 63 69 73 65 20 6c 6f 63 61 74 rrow.relative.to.a.precise.locat
ece0 69 6f 6e 2e 0a 0a 55 6e 69 74 73 20 61 72 65 20 64 69 73 70 6c 61 79 20 70 69 78 65 6c 73 3b 20 ion...Units.are.display.pixels;.
ed00 70 6f 73 69 74 69 76 65 20 76 61 6c 75 65 73 20 6d 6f 76 65 20 74 68 65 20 61 72 72 6f 77 20 74 positive.values.move.the.arrow.t
ed20 6f 20 74 68 65 0a 72 69 67 68 74 2c 20 77 68 69 6c 65 20 6e 65 67 61 74 69 76 65 20 76 61 6c 75 o.the.right,.while.negative.valu
ed40 65 73 20 6d 6f 76 65 20 69 74 20 74 6f 20 74 68 65 20 6c 65 66 74 2e 20 20 54 68 65 20 69 6e 74 es.move.it.to.the.left...The.int
ed60 65 6e 74 20 69 73 0a 74 6f 20 6d 6f 76 65 20 74 68 65 20 61 72 72 6f 77 20 73 6f 20 74 68 61 74 ent.is.to.move.the.arrow.so.that
ed80 20 69 74 20 64 6f 65 73 20 6e 6f 74 20 63 6f 76 65 72 20 74 65 78 74 20 6f 66 20 69 6e 74 65 72 .it.does.not.cover.text.of.inter
eda0 65 65 73 74 2c 0a 62 75 74 20 72 6f 75 6e 64 6f 66 66 20 65 72 72 6f 72 73 20 63 61 75 73 65 20 eest,.but.roundoff.errors.cause.
edc0 74 68 65 20 61 72 72 6f 77 20 70 6f 73 69 74 69 6f 6e 20 73 74 69 6c 6c 20 74 6f 20 62 65 0a 64 the.arrow.position.still.to.be.d
ede0 65 70 65 6e 64 65 6e 74 20 75 70 6f 6e 20 6d 61 67 6e 69 66 69 63 61 74 69 6f 6e 20 61 74 20 74 ependent.upon.magnification.at.t
ee00 68 65 20 31 2d 65 6d 20 6c 65 76 65 6c 22 0a 20 20 3a 67 72 6f 75 70 20 27 6f 72 67 2d 6e 6f 74 he.1-em.level"...:group.'org-not
ee20 65 72 2d 6e 61 76 69 67 61 74 69 6f 6e 0a 20 20 3a 74 79 70 65 20 27 6e 75 6d 62 65 72 0a 20 20 er-navigation...:type.'number...
ee40 3a 76 65 72 73 69 6f 6e 20 22 32 38 2e 32 22 29 0a 0a 28 64 65 66 63 75 73 74 6f 6d 20 6f 72 67 :version."28.2")..(defcustom.org
ee60 2d 6e 6f 74 65 72 2d 61 72 72 6f 77 2d 66 6f 72 65 67 72 6f 75 6e 64 2d 63 6f 6c 6f 72 20 22 6f -noter-arrow-foreground-color."o
ee80 72 61 6e 67 65 20 72 65 64 22 0a 20 20 22 44 65 66 61 75 6c 74 20 63 6f 6c 6f 72 20 6f 66 20 74 range.red"..."Default.color.of.t
eea0 68 65 20 74 6f 6f 6c 74 69 70 20 61 72 72 6f 77 2e 22 0a 20 20 3a 67 72 6f 75 70 20 27 6f 72 67 he.tooltip.arrow."...:group.'org
eec0 2d 6e 6f 74 65 72 2d 6e 61 76 69 67 61 74 69 6f 6e 0a 20 20 3a 74 79 70 65 20 27 73 74 72 69 6e -noter-navigation...:type.'strin
eee0 67 0a 20 20 3a 76 65 72 73 69 6f 6e 20 22 32 38 2e 32 22 29 0a 0a 28 64 65 66 63 75 73 74 6f 6d g...:version."28.2")..(defcustom
ef00 20 6f 72 67 2d 6e 6f 74 65 72 2d 61 72 72 6f 77 2d 62 61 63 6b 67 72 6f 75 6e 64 2d 63 6f 6c 6f .org-noter-arrow-background-colo
ef20 72 20 22 77 68 69 74 65 22 0a 20 20 22 44 65 66 61 75 6c 74 20 62 61 63 6b 67 72 6f 75 6e 64 20 r."white"..."Default.background.
ef40 63 6f 6c 6f 72 20 6f 66 20 74 68 65 20 74 6f 6f 6c 74 69 70 20 61 72 72 6f 77 2e 22 0a 20 20 3a color.of.the.tooltip.arrow."...:
ef60 67 72 6f 75 70 20 27 6f 72 67 2d 6e 6f 74 65 72 2d 6e 61 76 69 67 61 74 69 6f 6e 0a 20 20 3a 74 group.'org-noter-navigation...:t
ef80 79 70 65 20 27 73 74 72 69 6e 67 0a 20 20 3a 76 65 72 73 69 6f 6e 20 22 32 38 2e 32 22 29 0a 0a ype.'string...:version."28.2")..
efa0 28 64 65 66 63 75 73 74 6f 6d 20 6f 72 67 2d 6e 6f 74 65 72 2d 76 73 63 72 6f 6c 6c 2d 62 75 66 (defcustom.org-noter-vscroll-buf
efc0 66 65 72 20 35 0a 20 20 22 4d 69 6e 69 6d 75 6d 20 6e 75 6d 62 65 72 20 6f 66 20 64 6f 63 75 6d fer.5..."Minimum.number.of.docum
efe0 65 6e 74 20 64 69 73 70 6c 61 79 20 6c 69 6e 65 73 20 74 6f 20 6c 65 61 76 65 20 61 62 6f 76 65 ent.display.lines.to.leave.above
f000 20 70 72 65 63 69 73 65 20 6e 6f 74 65 2e 0a 4e 61 76 69 67 61 74 69 6f 6e 20 77 69 6c 6c 20 73 .precise.note..Navigation.will.s
f020 63 72 6f 6c 6c 20 70 72 65 63 69 73 65 20 6e 6f 74 65 73 20 74 6f 20 74 68 65 20 74 6f 70 20 6f croll.precise.notes.to.the.top.o
f040 66 20 74 68 65 20 62 75 66 66 65 72 2e 20 20 41 0a 76 61 6c 75 65 20 6f 66 20 30 20 70 6c 61 63 f.the.buffer...A.value.of.0.plac
f060 65 73 20 74 68 65 20 70 72 65 63 69 73 65 20 6e 6f 74 65 20 61 74 20 74 68 65 20 74 6f 70 20 6f es.the.precise.note.at.the.top.o
f080 66 20 74 68 65 20 77 69 6e 64 6f 77 20 77 68 65 6e 0a 70 6f 73 73 69 62 6c 65 2e 20 20 41 20 70 f.the.window.when.possible...A.p
f0a0 6f 73 69 74 69 76 65 20 6e 75 6d 62 65 72 20 6c 65 61 76 65 73 20 73 6f 6d 65 20 63 6f 6e 74 65 ositive.number.leaves.some.conte
f0c0 78 74 20 61 62 6f 76 65 20 74 68 65 0a 70 72 65 63 69 73 65 20 6e 6f 74 65 20 6c 6f 63 61 74 69 xt.above.the.precise.note.locati
f0e0 6f 6e 2e 22 0a 20 20 3a 67 72 6f 75 70 20 27 6f 72 67 2d 6e 6f 74 65 72 2d 6e 61 76 69 67 61 74 on."...:group.'org-noter-navigat
f100 69 6f 6e 0a 20 20 3a 74 79 70 65 20 27 6e 75 6d 62 65 72 0a 20 20 3a 76 65 72 73 69 6f 6e 20 22 ion...:type.'number...:version."
f120 32 38 2e 32 22 29 0a 0a 28 64 65 66 63 75 73 74 6f 6d 20 6f 72 67 2d 6e 6f 74 65 72 2d 64 6f 63 28.2")..(defcustom.org-noter-doc
f140 2d 70 72 6f 70 65 72 74 79 2d 69 6e 2d 6e 6f 74 65 73 20 6e 69 6c 0a 20 20 22 49 66 20 6e 6f 6e -property-in-notes.nil..."If.non
f160 2d 6e 69 6c 2c 20 65 76 65 72 79 20 6e 65 77 20 6e 6f 74 65 20 77 69 6c 6c 20 68 61 76 65 20 74 -nil,.every.new.note.will.have.t
f180 68 65 20 64 6f 63 75 6d 65 6e 74 20 70 72 6f 70 65 72 74 79 20 74 6f 6f 2e 0a 54 68 69 73 20 6d he.document.property.too..This.m
f1a0 61 6b 65 73 20 6d 6f 76 69 6e 67 20 6e 6f 74 65 73 20 6f 75 74 20 6f 66 20 74 68 65 20 72 6f 6f akes.moving.notes.out.of.the.roo
f1c0 74 20 68 65 61 64 69 6e 67 20 65 61 73 69 65 72 2e 22 0a 20 20 3a 67 72 6f 75 70 20 27 6f 72 67 t.heading.easier."...:group.'org
f1e0 2d 6e 6f 74 65 72 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 -noter...:type.'boolean)..(defcu
f200 73 74 6f 6d 20 6f 72 67 2d 6e 6f 74 65 72 2d 69 6e 73 65 72 74 2d 6e 6f 74 65 2d 6e 6f 2d 71 75 stom.org-noter-insert-note-no-qu
f220 65 73 74 69 6f 6e 73 20 6e 69 6c 0a 20 20 22 44 6f 20 6e 6f 74 20 70 72 6f 6d 70 74 20 66 6f 72 estions.nil..."Do.not.prompt.for
f240 20 61 20 6e 6f 74 65 20 74 69 74 6c 65 2e 0a 57 68 65 6e 20 6e 6f 6e 2d 6e 69 6c 2c 20 60 6f 72 .a.note.title..When.non-nil,.`or
f260 67 2d 6e 6f 74 65 72 2d 69 6e 73 65 72 74 2d 6e 6f 74 65 27 20 77 6f 6e 27 74 20 61 73 6b 20 66 g-noter-insert-note'.won't.ask.f
f280 6f 72 20 61 20 74 69 74 6c 65 20 61 6e 64 0a 77 69 6c 6c 20 61 6c 77 61 79 73 20 69 6e 73 65 72 or.a.title.and.will.always.inser
f2a0 74 20 61 20 6e 65 77 20 6e 6f 74 65 2e 20 20 54 68 65 20 74 69 74 6c 65 20 75 73 65 64 20 77 69 t.a.new.note...The.title.used.wi
f2c0 6c 6c 20 62 65 20 74 68 65 20 6f 6e 65 20 6f 66 0a 64 65 66 61 75 6c 74 73 3a 20 74 68 65 20 73 ll.be.the.one.of.defaults:.the.s
f2e0 65 6c 65 63 74 65 64 20 74 65 78 74 20 28 69 66 20 69 74 20 64 6f 65 73 20 6e 6f 74 20 65 78 63 elected.text.(if.it.does.not.exc
f300 65 65 64 0a 60 6f 72 67 2d 6e 6f 74 65 72 2d 6d 61 78 2d 73 68 6f 72 74 2d 73 65 6c 65 63 74 65 eed.`org-noter-max-short-selecte
f320 64 2d 74 65 78 74 2d 6c 65 6e 67 74 68 27 29 20 6f 72 0a 60 6f 72 67 2d 6e 6f 74 65 72 2d 64 65 d-text-length').or.`org-noter-de
f340 66 61 75 6c 74 2d 68 65 61 64 69 6e 67 2d 74 69 74 6c 65 27 2e 22 0a 20 20 3a 67 72 6f 75 70 20 fault-heading-title'."...:group.
f360 27 6f 72 67 2d 6e 6f 74 65 72 2d 69 6e 73 65 72 74 69 6f 6e 0a 20 20 3a 74 79 70 65 20 27 62 6f 'org-noter-insertion...:type.'bo
f380 6f 6c 65 61 6e 29 0a 0a 28 64 65 66 63 75 73 74 6f 6d 20 6f 72 67 2d 6e 6f 74 65 72 2d 6b 69 6c olean)..(defcustom.org-noter-kil
f3a0 6c 2d 66 72 61 6d 65 2d 61 74 2d 73 65 73 73 69 6f 6e 2d 65 6e 64 20 74 0a 20 20 22 43 6c 6f 73 l-frame-at-session-end.t..."Clos
f3c0 65 20 74 68 65 20 66 72 61 6d 65 20 77 68 65 6e 20 65 78 69 74 69 6e 67 20 61 20 73 65 73 73 69 e.the.frame.when.exiting.a.sessi
f3e0 6f 6e 2e 0a 49 66 20 6e 6f 6e 2d 6e 69 6c 2c 20 60 6f 72 67 2d 6e 6f 74 65 72 2d 6b 69 6c 6c 2d on..If.non-nil,.`org-noter-kill-
f400 73 65 73 73 69 6f 6e 27 20 77 69 6c 6c 20 64 65 6c 65 74 65 20 74 68 65 20 66 72 61 6d 65 20 69 session'.will.delete.the.frame.i
f420 66 0a 6f 74 68 65 72 73 20 65 78 69 73 74 20 6f 6e 20 74 68 65 20 63 75 72 72 65 6e 74 20 64 69 f.others.exist.on.the.current.di
f440 73 70 6c 61 79 2e 27 22 0a 20 20 3a 67 72 6f 75 70 20 27 6f 72 67 2d 6e 6f 74 65 72 0a 20 20 3a splay.'"...:group.'org-noter...:
f460 74 79 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 6f 72 67 2d 6e type.'boolean)..(defcustom.org-n
f480 6f 74 65 72 2d 69 6e 73 65 72 74 2d 68 65 61 64 69 6e 67 2d 68 6f 6f 6b 20 6e 69 6c 0a 20 20 22 oter-insert-heading-hook.nil..."
f4a0 48 6f 6f 6b 20 62 65 69 6e 67 20 72 75 6e 20 61 66 74 65 72 20 69 6e 73 65 72 74 69 6e 67 20 61 Hook.being.run.after.inserting.a
f4c0 20 6e 65 77 20 68 65 61 64 69 6e 67 2e 22 0a 20 20 3a 67 72 6f 75 70 20 27 6f 72 67 2d 6e 6f 74 .new.heading."...:group.'org-not
f4e0 65 72 2d 69 6e 73 65 72 74 69 6f 6e 0a 20 20 3a 74 79 70 65 20 27 68 6f 6f 6b 29 0a 0a 28 64 65 er-insertion...:type.'hook)..(de
f500 66 63 75 73 74 6f 6d 20 6f 72 67 2d 6e 6f 74 65 72 2d 63 72 65 61 74 65 2d 73 65 73 73 69 6f 6e fcustom.org-noter-create-session
f520 2d 66 72 6f 6d 2d 64 6f 63 75 6d 65 6e 74 2d 68 6f 6f 6b 20 27 28 6f 72 67 2d 6e 6f 74 65 72 2d -from-document-hook.'(org-noter-
f540 2d 63 72 65 61 74 65 2d 73 65 73 73 69 6f 6e 2d 66 72 6f 6d 2d 64 6f 63 75 6d 65 6e 74 2d 66 69 -create-session-from-document-fi
f560 6c 65 2d 64 65 66 61 75 6c 74 29 0a 20 20 22 48 6f 6f 6b 20 74 68 61 74 20 69 73 20 69 6e 76 6f le-default)..."Hook.that.is.invo
f580 6b 65 64 20 77 68 65 6e 20 60 6f 72 67 2d 6e 6f 74 65 72 27 20 69 73 20 69 6e 76 6f 6b 65 64 20 ked.when.`org-noter'.is.invoked.
f5a0 66 72 6f 6d 20 61 20 64 6f 63 75 6d 65 6e 74 2e 22 0a 20 20 3a 67 72 6f 75 70 20 27 6f 72 67 2d from.a.document."...:group.'org-
f5c0 6e 6f 74 65 72 0a 20 20 3a 74 79 70 65 20 27 68 6f 6f 6b 29 0a 0a 28 64 65 66 63 75 73 74 6f 6d noter...:type.'hook)..(defcustom
f5e0 20 6f 72 67 2d 6e 6f 74 65 72 2d 68 69 67 68 6c 69 67 68 74 2d 73 65 6c 65 63 74 65 64 2d 74 65 .org-noter-highlight-selected-te
f600 78 74 20 6e 69 6c 0a 20 20 22 48 69 67 68 6c 69 67 68 74 20 73 65 6c 65 63 74 65 64 20 74 65 78 xt.nil..."Highlight.selected.tex
f620 74 20 77 68 65 6e 20 63 72 65 61 74 69 6e 67 20 6e 6f 74 65 73 2e 0a 49 66 20 6e 6f 6e 2d 6e 69 t.when.creating.notes..If.non-ni
f640 6c 2c 20 68 69 67 68 6c 69 67 68 74 20 73 65 6c 65 63 74 65 64 2d 74 65 78 74 20 77 68 65 6e 20 l,.highlight.selected-text.when.
f660 63 72 65 61 74 69 6e 67 20 6e 6f 74 65 73 2e 20 20 54 68 69 73 0a 76 61 72 69 61 62 6c 65 20 69 creating.notes...This.variable.i
f680 73 20 74 65 6d 70 6f 72 61 72 69 6c 79 20 74 6f 67 67 6c 65 64 20 62 79 20 70 72 65 66 69 78 69 s.temporarily.toggled.by.prefixi
f6a0 6e 67 20 74 68 65 20 69 6e 73 65 72 74 69 6f 6e 0a 63 6f 6d 6d 61 6e 64 20 77 69 74 68 20 61 6e ng.the.insertion.command.with.an
f6c0 79 20 6e 6f 6e 2d 6e 69 6c 20 70 72 65 66 69 78 20 73 75 63 68 20 61 73 20 5c 5c 5b 75 6e 69 76 y.non-nil.prefix.such.as.\\[univ
f6e0 65 72 73 61 6c 2d 61 72 67 75 6d 65 6e 74 5d 2e 22 0a 20 20 3a 67 72 6f 75 70 20 27 6f 72 67 2d ersal-argument]."...:group.'org-
f700 6e 6f 74 65 72 2d 69 6e 73 65 72 74 69 6f 6e 0a 20 20 3a 74 79 70 65 20 27 62 6f 6f 6c 65 61 6e noter-insertion...:type.'boolean
f720 0a 20 20 3a 76 65 72 73 69 6f 6e 20 22 32 38 2e 32 22 29 0a 0a 28 64 65 66 63 75 73 74 6f 6d 20 ...:version."28.2")..(defcustom.
f740 6f 72 67 2d 6e 6f 74 65 72 2d 6d 61 78 2d 73 68 6f 72 74 2d 73 65 6c 65 63 74 65 64 2d 74 65 78 org-noter-max-short-selected-tex
f760 74 2d 6c 65 6e 67 74 68 20 38 30 0a 20 20 22 4d 61 78 69 6d 75 6d 20 6c 65 6e 67 74 68 20 6f 66 t-length.80..."Maximum.length.of
f780 20 61 20 73 68 6f 72 74 20 74 65 78 74 20 73 65 6c 65 63 74 69 6f 6e 2e 0a 53 68 6f 72 74 20 74 .a.short.text.selection..Short.t
f7a0 65 78 74 20 73 65 6c 65 63 74 69 6f 6e 73 20 61 72 65 20 74 68 65 20 70 72 69 6d 61 72 79 20 64 ext.selections.are.the.primary.d
f7c0 65 66 61 75 6c 74 20 6e 6f 74 65 20 74 69 74 6c 65 2e 20 20 57 68 65 6e 0a 74 68 65 79 20 61 72 efault.note.title...When.they.ar
f7e0 65 20 71 75 6f 74 65 64 20 69 6e 20 74 68 65 20 6e 6f 74 65 2c 20 74 68 65 79 20 61 72 65 20 71 e.quoted.in.the.note,.they.are.q
f800 75 6f 74 65 64 20 61 73 0a 60 60 73 68 6f 72 74 2d 73 65 6c 65 63 74 65 64 2d 74 65 78 74 27 27 uoted.as.``short-selected-text''
f820 20 72 61 74 68 65 72 20 74 68 61 6e 20 69 6e 73 69 64 65 20 61 20 51 55 4f 54 45 2d 62 6c 6f 63 .rather.than.inside.a.QUOTE-bloc
f840 6b 2e 22 0a 20 20 3a 67 72 6f 75 70 20 27 6f 72 67 2d 6e 6f 74 65 72 2d 69 6e 73 65 72 74 69 6f k."...:group.'org-noter-insertio
f860 6e 0a 20 20 3a 74 79 70 65 20 27 69 6e 74 65 67 65 72 0a 20 20 3a 76 65 72 73 69 6f 6e 20 22 32 n...:type.'integer...:version."2
f880 38 2e 32 22 29 0a 0a 28 64 65 66 63 75 73 74 6f 6d 20 6f 72 67 2d 6e 6f 74 65 72 2d 66 69 6e 64 8.2")..(defcustom.org-noter-find
f8a0 2d 61 64 64 69 74 69 6f 6e 61 6c 2d 6e 6f 74 65 73 2d 66 75 6e 63 74 69 6f 6e 73 20 6e 69 6c 0a -additional-notes-functions.nil.
f8c0 20 20 22 4c 69 73 74 20 6f 66 20 66 75 6e 63 74 69 6f 6e 73 20 74 68 61 74 20 6d 61 70 20 61 20 .."List.of.functions.that.map.a.
f8e0 64 6f 63 75 6d 65 6e 74 20 74 6f 20 61 6e 20 4f 72 67 2d 6e 6f 74 65 72 20 66 69 6c 65 70 61 74 document.to.an.Org-noter.filepat
f900 68 2e 0a 0a 54 68 65 20 66 75 6e 63 74 69 6f 6e 73 20 69 6e 20 74 68 69 73 20 6c 69 73 74 20 6d h...The.functions.in.this.list.m
f920 75 73 74 20 61 63 63 65 70 74 20 31 20 61 72 67 75 6d 65 6e 74 2c 20 61 20 66 69 6c 65 20 6e 61 ust.accept.1.argument,.a.file.na
f940 6d 65 2e 0a 54 68 65 20 61 72 67 75 6d 65 6e 74 20 77 69 6c 6c 20 62 65 20 67 69 76 65 6e 20 62 me..The.argument.will.be.given.b
f960 79 20 60 6f 72 67 2d 6e 6f 74 65 72 27 2e 0a 0a 54 68 65 20 72 65 74 75 72 6e 20 76 61 6c 75 65 y.`org-noter'...The.return.value
f980 20 6d 75 73 74 20 62 65 20 61 20 70 61 74 68 20 74 6f 20 61 6e 20 6f 72 67 20 66 69 6c 65 2e 20 .must.be.a.path.to.an.org.file..
f9a0 20 4e 6f 20 6d 61 74 74 65 72 20 69 66 0a 69 74 27 73 20 61 6e 20 61 62 73 6f 6c 75 74 65 20 6f .No.matter.if.it's.an.absolute.o
f9c0 72 20 72 65 6c 61 74 69 76 65 20 70 61 74 68 2c 20 74 68 65 20 66 69 6c 65 20 6e 61 6d 65 20 77 r.relative.path,.the.file.name.w
f9e0 69 6c 6c 20 62 65 20 65 78 70 61 6e 64 65 64 0a 74 6f 20 65 61 63 68 20 64 69 72 65 63 74 6f 72 ill.be.expanded.to.each.director
fa00 79 20 73 65 74 20 69 6e 20 60 6f 72 67 2d 6e 6f 74 65 72 2d 6e 6f 74 65 73 2d 73 65 61 72 63 68 y.set.in.`org-noter-notes-search
fa20 2d 70 61 74 68 27 20 74 6f 20 74 65 73 74 20 69 66 0a 69 74 20 65 78 69 73 74 73 2e 0a 0a 49 66 -path'.to.test.if.it.exists...If
fa40 20 69 74 20 65 78 69 73 74 73 2c 20 69 74 20 77 69 6c 6c 20 62 65 20 6c 69 73 74 65 64 20 61 73 .it.exists,.it.will.be.listed.as
fa60 20 61 20 63 61 6e 64 69 64 61 74 65 20 74 68 61 74 20 60 6f 72 67 2d 6e 6f 74 65 72 27 0a 77 69 .a.candidate.that.`org-noter'.wi
fa80 6c 6c 20 68 61 76 65 20 74 68 65 20 75 73 65 72 20 73 65 6c 65 63 74 20 74 6f 20 75 73 65 20 61 ll.have.the.user.select.to.use.a
faa0 73 20 74 68 65 20 6e 6f 74 65 20 66 69 6c 65 20 6f 66 20 74 68 65 0a 64 6f 63 75 6d 65 6e 74 2e s.the.note.file.of.the.document.
fac0 22 0a 20 20 3a 67 72 6f 75 70 20 27 6f 72 67 2d 6e 6f 74 65 72 0a 20 20 3a 74 79 70 65 20 27 68 "...:group.'org-noter...:type.'h
fae0 6f 6f 6b 0a 20 20 3a 76 65 72 73 69 6f 6e 20 22 32 38 2e 32 22 29 0a 0a 28 64 65 66 63 75 73 74 ook...:version."28.2")..(defcust
fb00 6f 6d 20 6f 72 67 2d 6e 6f 74 65 72 2d 68 65 61 64 6c 69 6e 65 2d 74 69 74 6c 65 2d 64 65 63 6f om.org-noter-headline-title-deco
fb20 72 61 74 69 6f 6e 20 22 22 0a 20 20 22 44 65 63 6f 72 61 74 69 6f 6e 20 28 65 6d 70 68 61 73 69 ration.""..."Decoration.(emphasi
fb40 73 29 20 66 6f 72 20 74 68 65 20 68 65 61 64 6c 69 6e 65 20 74 69 74 6c 65 20 73 74 72 69 6e 67 s).for.the.headline.title.string
fb60 2e 0a 0a 49 66 20 79 6f 75 20 75 73 65 20 74 68 65 20 4f 72 67 20 53 54 41 52 54 55 50 20 6f 70 ...If.you.use.the.Org.STARTUP.op
fb80 74 69 6f 6e 20 5c 22 65 6e 74 69 74 69 65 73 70 72 65 74 74 79 5c 22 2c 20 66 69 6c 65 6e 61 6d tion.\"entitiespretty\",.filenam
fba0 65 73 0a 77 69 74 68 20 75 6e 64 65 72 73 63 6f 72 65 73 20 77 69 6c 6c 20 65 6e 64 20 75 70 20 es.with.underscores.will.end.up.
fbc0 6c 6f 6f 6b 69 6e 67 20 75 67 6c 79 2e 20 20 54 68 69 73 20 73 74 72 69 6e 67 20 69 73 0a 70 72 looking.ugly...This.string.is.pr
fbe0 65 70 65 6e 64 65 64 20 61 6e 64 20 61 70 70 65 6e 64 65 64 20 74 6f 20 74 68 65 20 64 6f 63 75 epended.and.appended.to.the.docu
fc00 6d 65 6e 74 20 74 69 74 6c 65 20 69 6e 20 74 68 65 20 74 6f 70 2d 6c 65 76 65 6c 0a 68 65 61 64 ment.title.in.the.top-level.head
fc20 6c 69 6e 65 2c 20 6d 61 6b 69 6e 67 20 69 74 20 6c 6f 6f 6b 20 6e 69 63 65 72 2e 0a 0a 52 65 61 line,.making.it.look.nicer...Rea
fc40 73 6f 6e 61 62 6c 65 20 63 68 6f 69 63 65 73 20 61 72 65 3a 20 2f 2c 20 2a 2c 20 3d 2c 20 7e 2c sonable.choices.are:./,.*,.=,.~,
fc60 20 5f 0a 0a 57 69 74 68 20 5c 22 2f 5c 22 2c 20 5c 22 54 68 65 5f 54 69 74 6c 65 5c 22 20 77 6f ._..With.\"/\",.\"The_Title\".wo
fc80 75 6c 64 20 62 65 63 6f 6d 65 20 5c 22 2f 54 68 65 5f 54 69 74 6c 65 2f 5c 22 2e 22 0a 20 20 3a uld.become.\"/The_Title/\"."...:
fca0 67 72 6f 75 70 20 27 6f 72 67 2d 6e 6f 74 65 72 0a 20 20 3a 74 79 70 65 20 27 73 74 72 69 6e 67 group.'org-noter...:type.'string
fcc0 0a 20 20 3a 76 65 72 73 69 6f 6e 20 22 32 38 2e 32 22 29 0a 0a 28 64 65 66 66 61 63 65 20 6f 72 ...:version."28.2")..(defface.or
fce0 67 2d 6e 6f 74 65 72 2d 6e 6f 2d 6e 6f 74 65 73 2d 65 78 69 73 74 2d 66 61 63 65 0a 20 20 27 28 g-noter-no-notes-exist-face...'(
fd00 28 74 0a 20 20 20 20 20 3a 66 6f 72 65 67 72 6f 75 6e 64 20 22 63 68 6f 63 6f 6c 61 74 65 22 0a (t......:foreground."chocolate".
fd20 20 20 20 20 20 3a 77 65 69 67 68 74 20 62 6f 6c 64 29 29 0a 20 20 22 46 61 63 65 20 66 6f 72 20 .....:weight.bold))..."Face.for.
fd40 6d 6f 64 65 6c 69 6e 65 20 6e 6f 74 65 20 63 6f 75 6e 74 2c 20 77 68 65 6e 20 30 2e 22 0a 20 20 modeline.note.count,.when.0."...
fd60 3a 67 72 6f 75 70 20 27 6f 72 67 2d 6e 6f 74 65 72 2d 6e 61 76 69 67 61 74 69 6f 6e 29 0a 0a 28 :group.'org-noter-navigation)..(
fd80 64 65 66 66 61 63 65 20 6f 72 67 2d 6e 6f 74 65 72 2d 6e 6f 74 65 73 2d 65 78 69 73 74 2d 66 61 defface.org-noter-notes-exist-fa
fda0 63 65 0a 20 20 27 28 28 74 0a 20 20 20 20 20 3a 66 6f 72 65 67 72 6f 75 6e 64 20 22 53 70 72 69 ce...'((t......:foreground."Spri
fdc0 6e 67 47 72 65 65 6e 22 0a 20 20 20 20 20 3a 77 65 69 67 68 74 20 62 6f 6c 64 29 29 0a 20 20 22 ngGreen"......:weight.bold))..."
fde0 46 61 63 65 20 66 6f 72 20 6d 6f 64 65 6c 69 6e 65 20 6e 6f 74 65 20 63 6f 75 6e 74 2c 20 77 68 Face.for.modeline.note.count,.wh
fe00 65 6e 20 6e 6f 74 20 30 2e 22 0a 20 20 3a 67 72 6f 75 70 20 27 6f 72 67 2d 6e 6f 74 65 72 2d 6e en.not.0."...:group.'org-noter-n
fe20 61 76 69 67 61 74 69 6f 6e 29 0a 0a 3b 3b 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d avigation)..;;.-----------------
fe40 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d --------------------------------
fe60 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a -------------------------------.
fe80 3b 3b 3b 20 49 6e 74 65 67 72 61 74 69 6f 6e 20 77 69 74 68 20 6f 74 68 65 72 20 70 61 63 6b 61 ;;;.Integration.with.other.packa
fea0 67 65 73 0a 28 64 65 66 67 72 6f 75 70 20 6f 72 67 2d 6e 6f 74 65 72 2d 6d 6f 64 75 6c 65 2d 68 ges.(defgroup.org-noter-module-h
fec0 6f 6f 6b 73 20 6e 69 6c 0a 20 20 22 48 6f 6f 6b 73 20 66 6f 72 20 69 6e 74 65 67 72 61 74 69 6e ooks.nil..."Hooks.for.integratin
fee0 67 20 6f 72 67 2d 6e 6f 74 65 72 20 77 69 74 68 20 6f 74 68 65 72 20 70 61 63 6b 61 67 65 73 20 g.org-noter.with.other.packages.
ff00 28 70 64 66 76 69 65 77 2c 20 6e 6f 76 2c 20 64 6a 76 75 29 2e 22 0a 20 20 3a 67 72 6f 75 70 20 (pdfview,.nov,.djvu)."...:group.
ff20 27 6f 72 67 2d 6e 6f 74 65 72 0a 20 20 3a 76 65 72 73 69 6f 6e 20 22 32 38 2e 32 22 29 0a 0a 28 'org-noter...:version."28.2")..(
ff40 64 65 66 63 75 73 74 6f 6d 20 6f 72 67 2d 6e 6f 74 65 72 2d 2d 67 65 74 2d 6c 6f 63 61 74 69 6f defcustom.org-noter--get-locatio
ff60 6e 2d 70 72 6f 70 65 72 74 79 2d 68 6f 6f 6b 20 6e 69 6c 0a 20 20 22 54 68 65 20 6c 69 73 74 20 n-property-hook.nil..."The.list.
ff80 6f 66 20 66 75 6e 63 74 69 6f 6e 73 20 74 68 61 74 20 77 69 6c 6c 20 72 65 74 75 72 6e 20 74 68 of.functions.that.will.return.th
ffa0 65 20 6e 6f 74 65 20 6c 6f 63 61 74 69 6f 6e 20 6f 66 20 61 6e 20 6f 72 67 20 65 6c 65 6d 65 6e e.note.location.of.an.org.elemen
ffc0 74 2e 0a 0a 54 68 65 73 65 20 66 75 6e 63 74 69 6f 6e 73 20 6d 75 73 74 20 61 63 63 65 70 74 20 t...These.functions.must.accept.
ffe0 6f 6e 65 20 61 72 67 75 6d 65 6e 74 2c 20 61 6e 20 6f 72 67 20 65 6c 65 6d 65 6e 74 2e 0a 54 68 one.argument,.an.org.element..Th
10000 65 73 65 20 66 75 6e 63 74 69 6f 6e 73 20 69 73 20 75 73 65 64 20 62 79 20 60 6f 72 67 2d 6e 6f ese.functions.is.used.by.`org-no
10020 74 65 72 2d 2d 70 61 72 73 65 2d 6c 6f 63 61 74 69 6f 6e 2d 70 72 6f 70 65 72 74 79 27 20 61 6e ter--parse-location-property'.an
10040 64 0a 60 6f 72 67 2d 6e 6f 74 65 72 2d 2d 63 68 65 63 6b 2d 6c 6f 63 61 74 69 6f 6e 2d 70 72 6f d.`org-noter--check-location-pro
10060 70 65 72 74 79 27 20 77 68 65 6e 20 74 68 65 79 20 63 61 6e 27 74 20 66 69 6e 64 20 74 68 65 20 perty'.when.they.can't.find.the.
10080 6e 6f 74 65 20 6c 6f 63 61 74 69 6f 6e 0a 6f 66 20 74 68 65 20 6f 72 67 20 65 6c 65 6d 65 6e 74 note.location.of.the.org.element
100a0 20 67 69 76 65 6e 20 74 6f 20 74 68 65 6d 2c 20 74 68 61 74 20 6f 72 67 20 65 6c 65 6d 65 6e 74 .given.to.them,.that.org.element
100c0 20 77 69 6c 6c 20 62 65 20 70 61 73 73 65 64 20 74 6f 0a 74 68 65 20 66 75 6e 63 74 69 6f 6e 73 .will.be.passed.to.the.functions
100e0 20 69 6e 20 74 68 69 73 20 6c 69 73 74 2e 22 0a 20 20 3a 67 72 6f 75 70 20 27 6f 72 67 2d 6e 6f .in.this.list."...:group.'org-no
10100 74 65 72 2d 6d 6f 64 75 6c 65 2d 68 6f 6f 6b 73 0a 20 20 3a 74 79 70 65 20 27 68 6f 6f 6b 29 0a ter-module-hooks...:type.'hook).
10120 0a 28 64 65 66 63 75 73 74 6f 6d 20 6f 72 67 2d 6e 6f 74 65 72 2d 2d 67 65 74 2d 63 6f 6e 74 61 .(defcustom.org-noter--get-conta
10140 69 6e 69 6e 67 2d 65 6c 65 6d 65 6e 74 2d 68 6f 6f 6b 20 27 28 6f 72 67 2d 6e 6f 74 65 72 2d 2d ining-element-hook.'(org-noter--
10160 67 65 74 2d 63 6f 6e 74 61 69 6e 69 6e 67 2d 68 65 61 64 69 6e 67 0a 20 20 20 20 20 20 20 20 20 get-containing-heading..........
10180 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ................................
101a0 20 20 20 20 20 20 20 20 20 20 20 6f 72 67 2d 6e 6f 74 65 72 2d 2d 67 65 74 2d 63 6f 6e 74 61 69 ...........org-noter--get-contai
101c0 6e 69 6e 67 2d 70 72 6f 70 65 72 74 79 2d 64 72 61 77 65 72 29 0a 20 20 22 4c 69 73 74 20 6f 66 ning-property-drawer)..."List.of
101e0 20 66 75 6e 63 74 69 6f 6e 73 20 74 68 61 74 20 72 65 74 75 72 6e 20 74 68 65 20 4f 72 67 20 65 .functions.that.return.the.Org.e
10200 6c 65 6d 65 6e 74 20 6f 66 20 61 20 6e 6f 74 65 2e 0a 0a 54 68 65 73 65 20 66 75 6e 63 74 69 6f lement.of.a.note...These.functio
10220 6e 73 20 77 69 6c 6c 20 62 65 20 63 61 6c 6c 65 64 20 62 79 0a 60 6f 72 67 2d 6e 6f 74 65 72 2d ns.will.be.called.by.`org-noter-
10240 2d 67 65 74 2d 63 6f 6e 74 61 69 6e 69 6e 67 2d 65 6c 65 6d 65 6e 74 27 20 74 6f 20 67 65 74 20 -get-containing-element'.to.get.
10260 74 68 65 20 4f 72 67 20 65 6c 65 6d 65 6e 74 20 6f 66 20 74 68 65 0a 6e 6f 74 65 20 61 74 20 70 the.Org.element.of.the.note.at.p
10280 6f 69 6e 74 2e 22 0a 20 20 3a 67 72 6f 75 70 20 27 6f 72 67 2d 6e 6f 74 65 72 2d 6d 6f 64 75 6c oint."...:group.'org-noter-modul
102a0 65 2d 68 6f 6f 6b 73 0a 20 20 3a 74 79 70 65 20 27 68 6f 6f 6b 29 0a 0a 28 64 65 66 63 75 73 74 e-hooks...:type.'hook)..(defcust
102c0 6f 6d 20 6f 72 67 2d 6e 6f 74 65 72 2d 70 61 72 73 65 2d 64 6f 63 75 6d 65 6e 74 2d 70 72 6f 70 om.org-noter-parse-document-prop
102e0 65 72 74 79 2d 68 6f 6f 6b 20 6e 69 6c 0a 20 20 22 54 68 65 20 6c 69 73 74 20 6f 66 20 66 75 6e erty-hook.nil..."The.list.of.fun
10300 63 74 69 6f 6e 73 20 74 68 61 74 20 70 61 72 73 65 20 4e 4f 54 45 52 5f 44 4f 43 55 4d 45 4e 54 ctions.that.parse.NOTER_DOCUMENT
10320 20 66 6f 72 20 61 20 66 69 6c 65 6e 61 6d 65 2e 0a 4f 72 20 77 68 61 74 65 76 65 72 20 74 68 65 .for.a.filename..Or.whatever.the
10340 20 70 72 6f 70 65 72 74 79 20 60 6f 72 67 2d 6e 6f 74 65 72 2d 70 72 6f 70 65 72 74 79 2d 64 6f .property.`org-noter-property-do
10360 63 2d 66 69 6c 65 27 20 69 73 20 73 65 74 20 74 6f 2e 0a 0a 54 68 69 73 20 69 73 20 75 73 65 64 c-file'.is.set.to...This.is.used
10380 20 62 79 20 60 6f 72 67 2d 6e 6f 74 65 72 2d 2d 67 65 74 2d 6f 72 2d 72 65 61 64 2d 64 6f 63 75 .by.`org-noter--get-or-read-docu
103a0 6d 65 6e 74 2d 70 72 6f 70 65 72 74 79 27 20 61 6e 64 0a 60 6f 72 67 2d 6e 6f 74 65 72 2d 2d 64 ment-property'.and.`org-noter--d
103c0 6f 63 2d 66 69 6c 65 2d 70 72 6f 70 65 72 74 79 27 2e 0a 0a 54 68 69 73 20 69 73 20 61 64 64 65 oc-file-property'...This.is.adde
103e0 64 20 66 6f 72 20 69 6e 74 65 67 72 61 74 69 6f 6e 20 77 69 74 68 20 6f 74 68 65 72 20 70 61 63 d.for.integration.with.other.pac
10400 6b 61 67 65 73 2e 0a 0a 46 6f 72 20 65 78 61 6d 70 6c 65 2c 20 74 68 65 20 6d 6f 64 75 6c 65 20 kages...For.example,.the.module.
10420 60 6f 72 67 2d 6e 6f 74 65 72 2d 63 69 74 61 72 27 20 61 64 64 73 20 74 68 65 20 66 75 6e 63 74 `org-noter-citar'.adds.the.funct
10440 69 6f 6e 0a 60 6f 72 67 2d 6e 6f 74 65 72 2d 63 69 74 61 72 2d 66 69 6e 64 2d 64 6f 63 75 6d 65 ion.`org-noter-citar-find-docume
10460 6e 74 2d 66 72 6f 6d 2d 72 65 66 73 27 20 74 6f 20 74 68 69 73 20 6c 69 73 74 20 77 68 69 63 68 nt-from-refs'.to.this.list.which
10480 20 77 68 65 6e 0a 74 68 65 20 70 72 6f 70 65 72 74 79 20 5c 22 4e 4f 54 45 52 5f 44 4f 43 55 4d .when.the.property.\"NOTER_DOCUM
104a0 45 4e 54 5c 22 20 28 74 68 65 20 64 65 66 61 75 6c 74 20 76 61 6c 75 65 20 6f 66 0a 60 6f 72 67 ENT\".(the.default.value.of.`org
104c0 2d 6e 6f 74 65 72 2d 70 72 6f 70 65 72 74 79 2d 64 6f 63 2d 66 69 6c 65 27 29 20 6f 66 20 61 6e -noter-property-doc-file').of.an
104e0 20 6f 72 67 20 66 69 6c 65 20 70 61 73 73 65 64 20 74 6f 20 69 74 20 69 73 20 61 0a 63 69 74 61 .org.file.passed.to.it.is.a.cita
10500 74 69 6f 6e 20 6b 65 79 2c 20 69 74 20 77 69 6c 6c 20 72 65 74 75 72 6e 20 74 68 65 20 70 61 74 tion.key,.it.will.return.the.pat
10520 68 20 74 6f 20 74 68 65 20 6e 6f 74 65 20 66 69 6c 65 20 61 73 73 6f 63 69 61 74 65 64 0a 77 69 h.to.the.note.file.associated.wi
10540 74 68 20 74 68 65 20 63 69 74 61 74 69 6f 6e 20 6b 65 79 20 61 6e 64 20 74 68 61 74 20 70 61 74 th.the.citation.key.and.that.pat
10560 68 20 77 69 6c 6c 20 62 65 20 75 73 65 64 20 66 6f 72 20 6f 74 68 65 72 0a 6f 70 65 72 61 74 69 h.will.be.used.for.other.operati
10580 6f 6e 73 20 69 6e 73 74 65 61 64 20 6f 66 20 74 68 65 20 72 65 61 6c 20 76 61 6c 75 65 20 6f 66 ons.instead.of.the.real.value.of
105a0 20 74 68 65 20 70 72 6f 70 65 72 74 79 2e 22 0a 20 20 3a 67 72 6f 75 70 20 27 6f 72 67 2d 6e 6f .the.property."...:group.'org-no
105c0 74 65 72 2d 6d 6f 64 75 6c 65 2d 68 6f 6f 6b 73 0a 20 20 3a 74 79 70 65 20 27 68 6f 6f 6b 29 0a ter-module-hooks...:type.'hook).
105e0 0a 28 64 65 66 63 75 73 74 6f 6d 20 6f 72 67 2d 6e 6f 74 65 72 2d 67 65 74 2d 62 75 66 66 65 72 .(defcustom.org-noter-get-buffer
10600 2d 66 69 6c 65 2d 6e 61 6d 65 2d 68 6f 6f 6b 20 6e 69 6c 0a 20 20 22 46 75 6e 63 74 69 6f 6e 73 -file-name-hook.nil..."Functions
10620 20 74 68 61 74 20 77 68 65 6e 20 70 61 73 73 65 64 20 61 20 6d 61 6a 6f 72 20 6d 6f 64 65 2c 20 .that.when.passed.a.major.mode,.
10640 72 65 74 75 72 6e 20 74 68 65 20 63 75 72 72 65 6e 74 20 62 75 66 66 65 72 20 66 69 6c 65 20 6e return.the.current.buffer.file.n
10660 61 6d 65 2e 0a 0a 54 68 69 73 20 69 73 20 75 73 65 64 20 62 79 20 74 68 65 20 60 6f 72 67 2d 6e ame...This.is.used.by.the.`org-n
10680 6f 74 65 72 27 20 63 6f 6d 6d 61 6e 64 20 74 6f 20 64 65 74 65 72 6d 69 6e 65 20 74 68 65 20 66 oter'.command.to.determine.the.f
106a0 69 6c 65 20 6e 61 6d 65 20 77 68 65 6e 0a 75 73 65 72 20 63 61 6c 6c 73 20 60 6f 72 67 2d 6e 6f ile.name.when.user.calls.`org-no
106c0 74 65 72 27 20 6f 6e 20 61 20 64 6f 63 75 6d 65 6e 74 20 62 75 66 66 65 72 2e 0a 0a 46 6f 72 20 ter'.on.a.document.buffer...For.
106e0 65 78 61 6d 70 6c 65 2c 20 60 6e 6f 76 2d 6d 6f 64 65 27 2c 20 61 20 72 65 6e 64 65 72 65 72 20 example,.`nov-mode',.a.renderer.
10700 66 6f 72 20 45 50 55 42 20 64 6f 63 75 6d 65 6e 74 73 20 75 73 65 73 20 61 20 75 6e 69 71 75 65 for.EPUB.documents.uses.a.unique
10720 20 76 61 72 69 61 62 6c 65 0a 63 61 6c 6c 65 64 20 60 6e 6f 76 2d 66 69 6c 65 2d 6e 61 6d 65 27 .variable.called.`nov-file-name'
10740 20 74 6f 20 73 74 6f 72 65 20 74 68 65 20 66 69 6c 65 20 6e 61 6d 65 20 6f 66 20 69 74 73 20 64 .to.store.the.file.name.of.its.d
10760 6f 63 75 6d 65 6e 74 20 77 68 69 6c 65 20 74 68 65 20 6f 74 68 65 72 0a 6d 61 6a 6f 72 20 6d 6f ocument.while.the.other.major.mo
10780 64 65 73 20 75 73 65 20 74 68 65 20 76 61 72 69 61 62 6c 65 20 60 62 75 66 66 65 72 2d 66 69 6c des.use.the.variable.`buffer-fil
107a0 65 2d 6e 61 6d 65 27 2e 22 0a 20 20 3a 67 72 6f 75 70 20 27 6f 72 67 2d 6e 6f 74 65 72 2d 6d 6f e-name'."...:group.'org-noter-mo
107c0 64 75 6c 65 2d 68 6f 6f 6b 73 0a 20 20 3a 74 79 70 65 20 27 68 6f 6f 6b 29 0a 0a 28 64 65 66 63 dule-hooks...:type.'hook)..(defc
107e0 75 73 74 6f 6d 20 6f 72 67 2d 6e 6f 74 65 72 2d 73 65 74 2d 75 70 2d 64 6f 63 75 6d 65 6e 74 2d ustom.org-noter-set-up-document-
10800 68 6f 6f 6b 20 6e 69 6c 0a 20 20 22 54 4f 44 4f 2e 22 0a 20 20 3a 67 72 6f 75 70 20 27 6f 72 67 hook.nil..."TODO."...:group.'org
10820 2d 6e 6f 74 65 72 2d 6d 6f 64 75 6c 65 2d 68 6f 6f 6b 73 0a 20 20 3a 74 79 70 65 20 27 68 6f 6f -noter-module-hooks...:type.'hoo
10840 6b 29 0a 0a 28 64 65 66 63 75 73 74 6f 6d 20 6f 72 67 2d 6e 6f 74 65 72 2d 67 65 74 2d 73 65 6c k)..(defcustom.org-noter-get-sel
10860 65 63 74 65 64 2d 74 65 78 74 2d 68 6f 6f 6b 20 6e 69 6c 0a 20 20 22 54 4f 44 4f 2e 22 0a 20 20 ected-text-hook.nil..."TODO."...
10880 3a 67 72 6f 75 70 20 27 6f 72 67 2d 6e 6f 74 65 72 2d 6d 6f 64 75 6c 65 2d 68 6f 6f 6b 73 0a 20 :group.'org-noter-module-hooks..
108a0 20 3a 74 79 70 65 20 27 68 6f 6f 6b 29 0a 0a 28 64 65 66 63 75 73 74 6f 6d 20 6f 72 67 2d 6e 6f .:type.'hook)..(defcustom.org-no
108c0 74 65 72 2d 2d 63 68 65 63 6b 2d 6c 6f 63 61 74 69 6f 6e 2d 70 72 6f 70 65 72 74 79 2d 68 6f 6f ter--check-location-property-hoo
108e0 6b 20 6e 69 6c 0a 20 20 22 54 4f 44 4f 2e 22 0a 20 20 3a 67 72 6f 75 70 20 27 6f 72 67 2d 6e 6f k.nil..."TODO."...:group.'org-no
10900 74 65 72 2d 6d 6f 64 75 6c 65 2d 68 6f 6f 6b 73 0a 20 20 3a 74 79 70 65 20 27 68 6f 6f 6b 29 0a ter-module-hooks...:type.'hook).
10920 0a 28 64 65 66 63 75 73 74 6f 6d 20 6f 72 67 2d 6e 6f 74 65 72 2d 2d 70 61 72 73 65 2d 6c 6f 63 .(defcustom.org-noter--parse-loc
10940 61 74 69 6f 6e 2d 70 72 6f 70 65 72 74 79 2d 68 6f 6f 6b 20 6e 69 6c 0a 20 20 22 54 4f 44 4f 2e ation-property-hook.nil..."TODO.
10960 22 0a 20 20 3a 67 72 6f 75 70 20 27 6f 72 67 2d 6e 6f 74 65 72 2d 6d 6f 64 75 6c 65 2d 68 6f 6f "...:group.'org-noter-module-hoo
10980 6b 73 0a 20 20 3a 74 79 70 65 20 27 68 6f 6f 6b 29 0a 0a 28 64 65 66 63 75 73 74 6f 6d 20 6f 72 ks...:type.'hook)..(defcustom.or
109a0 67 2d 6e 6f 74 65 72 2d 2d 70 72 65 74 74 79 2d 70 72 69 6e 74 2d 6c 6f 63 61 74 69 6f 6e 2d 68 g-noter--pretty-print-location-h
109c0 6f 6f 6b 20 6e 69 6c 0a 20 20 22 54 4f 44 4f 2e 22 0a 20 20 3a 67 72 6f 75 70 20 27 6f 72 67 2d ook.nil..."TODO."...:group.'org-
109e0 6e 6f 74 65 72 2d 6d 6f 64 75 6c 65 2d 68 6f 6f 6b 73 0a 20 20 3a 74 79 70 65 20 27 68 6f 6f 6b noter-module-hooks...:type.'hook
10a00 29 0a 0a 28 64 65 66 63 75 73 74 6f 6d 20 6f 72 67 2d 6e 6f 74 65 72 2d 2d 70 72 65 74 74 79 2d )..(defcustom.org-noter--pretty-
10a20 70 72 69 6e 74 2d 6c 6f 63 61 74 69 6f 6e 2d 66 6f 72 2d 74 69 74 6c 65 2d 68 6f 6f 6b 20 6e 69 print-location-for-title-hook.ni
10a40 6c 0a 20 20 22 54 4f 44 4f 2e 22 0a 20 20 3a 67 72 6f 75 70 20 27 6f 72 67 2d 6e 6f 74 65 72 2d l..."TODO."...:group.'org-noter-
10a60 6d 6f 64 75 6c 65 2d 68 6f 6f 6b 73 0a 20 20 3a 74 79 70 65 20 27 68 6f 6f 6b 29 0a 0a 28 64 65 module-hooks...:type.'hook)..(de
10a80 66 63 75 73 74 6f 6d 20 6f 72 67 2d 6e 6f 74 65 72 2d 2d 63 6f 6e 76 65 72 74 2d 74 6f 2d 6c 6f fcustom.org-noter--convert-to-lo
10aa0 63 61 74 69 6f 6e 2d 63 6f 6e 73 2d 68 6f 6f 6b 20 6e 69 6c 0a 20 20 22 54 4f 44 4f 2e 22 0a 20 cation-cons-hook.nil..."TODO."..
10ac0 20 3a 67 72 6f 75 70 20 27 6f 72 67 2d 6e 6f 74 65 72 2d 6d 6f 64 75 6c 65 2d 68 6f 6f 6b 73 0a .:group.'org-noter-module-hooks.
10ae0 20 20 3a 74 79 70 65 20 27 68 6f 6f 6b 29 0a 0a 28 64 65 66 63 75 73 74 6f 6d 20 6f 72 67 2d 6e ..:type.'hook)..(defcustom.org-n
10b00 6f 74 65 72 2d 2d 64 6f 63 2d 67 6f 74 6f 2d 6c 6f 63 61 74 69 6f 6e 2d 68 6f 6f 6b 20 6e 69 6c oter--doc-goto-location-hook.nil
10b20 0a 20 20 22 54 4f 44 4f 2e 22 0a 20 20 3a 67 72 6f 75 70 20 27 6f 72 67 2d 6e 6f 74 65 72 2d 6d ..."TODO."...:group.'org-noter-m
10b40 6f 64 75 6c 65 2d 68 6f 6f 6b 73 0a 20 20 3a 74 79 70 65 20 27 68 6f 6f 6b 29 0a 0a 28 64 65 66 odule-hooks...:type.'hook)..(def
10b60 63 75 73 74 6f 6d 20 6f 72 67 2d 6e 6f 74 65 72 2d 2d 70 72 65 74 74 79 2d 70 72 69 6e 74 2d 68 custom.org-noter--pretty-print-h
10b80 69 67 68 6c 69 67 68 74 2d 6c 6f 63 61 74 69 6f 6e 2d 68 6f 6f 6b 20 6e 69 6c 0a 20 20 22 48 6f ighlight-location-hook.nil..."Ho
10ba0 6f 6b 20 74 68 61 74 20 73 65 72 69 61 6c 69 7a 65 73 20 61 20 68 69 67 68 6c 69 67 68 74 20 6c ok.that.serializes.a.highlight.l
10bc0 6f 63 61 74 69 6f 6e 20 73 6f 20 74 68 61 74 20 69 74 20 63 61 6e 20 62 65 20 73 74 6f 72 65 64 ocation.so.that.it.can.be.stored
10be0 20 69 6e 20 6f 72 67 2e 22 0a 20 20 3a 67 72 6f 75 70 20 27 6f 72 67 2d 6e 6f 74 65 72 2d 6d 6f .in.org."...:group.'org-noter-mo
10c00 64 75 6c 65 2d 68 6f 6f 6b 73 0a 20 20 3a 74 79 70 65 20 27 68 6f 6f 6b 29 0a 0a 28 64 65 66 63 dule-hooks...:type.'hook)..(defc
10c20 75 73 74 6f 6d 20 6f 72 67 2d 6e 6f 74 65 72 2d 2d 67 65 74 2d 68 69 67 68 6c 69 67 68 74 2d 6c ustom.org-noter--get-highlight-l
10c40 6f 63 61 74 69 6f 6e 2d 68 6f 6f 6b 20 6e 69 6c 0a 20 20 22 48 6f 6f 6b 20 74 68 61 74 20 72 75 ocation-hook.nil..."Hook.that.ru
10c60 6e 73 20 74 6f 20 67 65 74 20 74 68 65 20 6c 6f 63 61 74 69 6f 6e 20 6f 66 20 61 20 68 69 67 68 ns.to.get.the.location.of.a.high
10c80 6c 69 67 68 74 2e 22 0a 20 20 3a 67 72 6f 75 70 20 27 6f 72 67 2d 6e 6f 74 65 72 2d 6d 6f 64 75 light."...:group.'org-noter-modu
10ca0 6c 65 2d 68 6f 6f 6b 73 0a 20 20 3a 74 79 70 65 20 27 68 6f 6f 6b 29 0a 0a 28 64 65 66 63 75 73 le-hooks...:type.'hook)..(defcus
10cc0 74 6f 6d 20 6f 72 67 2d 6e 6f 74 65 72 2d 2d 61 64 64 2d 68 69 67 68 6c 69 67 68 74 2d 68 6f 6f tom.org-noter--add-highlight-hoo
10ce0 6b 20 6e 69 6c 0a 20 20 22 48 6f 6f 6b 20 63 61 6c 6c 65 64 20 74 6f 20 68 69 67 68 6c 69 67 68 k.nil..."Hook.called.to.highligh
10d00 74 20 73 65 6c 65 63 74 65 64 20 74 65 78 74 20 77 68 65 6e 20 63 72 65 61 74 69 6e 67 20 6e 6f t.selected.text.when.creating.no
10d20 74 65 73 2e 0a 57 68 65 6e 20 61 20 6e 6f 74 65 20 69 73 20 63 72 65 61 74 65 64 20 74 68 69 73 tes..When.a.note.is.created.this
10d40 20 77 69 6c 6c 20 62 65 20 67 69 76 65 6e 20 60 4d 41 4a 4f 52 2d 4d 4f 44 45 27 20 61 6e 64 0a .will.be.given.`MAJOR-MODE'.and.
10d60 60 50 52 45 43 49 53 45 2d 49 4e 46 4f 27 2e 20 20 46 6f 72 20 65 78 61 6d 70 6c 65 2c 20 74 68 `PRECISE-INFO'...For.example,.th
10d80 69 73 20 68 6f 6f 6b 20 63 61 6e 20 62 65 20 75 73 65 64 20 69 6e 20 70 64 66 2d 6d 6f 64 65 0a is.hook.can.be.used.in.pdf-mode.
10da0 74 6f 20 61 64 64 20 61 20 70 65 72 6d 61 6e 65 6e 74 20 68 69 67 68 6c 69 67 68 74 20 74 6f 20 to.add.a.permanent.highlight.to.
10dc0 74 68 65 20 64 6f 63 75 6d 65 6e 74 2e 22 0a 20 20 3a 67 72 6f 75 70 20 27 6f 72 67 2d 6e 6f 74 the.document."...:group.'org-not
10de0 65 72 2d 6d 6f 64 75 6c 65 2d 68 6f 6f 6b 73 0a 20 20 3a 74 79 70 65 20 27 68 6f 6f 6b 29 0a 0a er-module-hooks...:type.'hook)..
10e00 28 64 65 66 63 75 73 74 6f 6d 20 6f 72 67 2d 6e 6f 74 65 72 2d 2d 6e 6f 74 65 2d 61 66 74 65 72 (defcustom.org-noter--note-after
10e20 2d 74 69 70 70 69 6e 67 2d 70 6f 69 6e 74 2d 68 6f 6f 6b 20 6e 69 6c 0a 20 20 22 54 4f 44 4f 2e -tipping-point-hook.nil..."TODO.
10e40 22 0a 20 20 3a 67 72 6f 75 70 20 27 6f 72 67 2d 6e 6f 74 65 72 2d 6d 6f 64 75 6c 65 2d 68 6f 6f "...:group.'org-noter-module-hoo
10e60 6b 73 0a 20 20 3a 74 79 70 65 20 27 68 6f 6f 6b 29 0a 0a 28 64 65 66 63 75 73 74 6f 6d 20 6f 72 ks...:type.'hook)..(defcustom.or
10e80 67 2d 6e 6f 74 65 72 2d 2d 72 65 6c 61 74 69 76 65 2d 70 6f 73 69 74 69 6f 6e 2d 74 6f 2d 76 69 g-noter--relative-position-to-vi
10ea0 65 77 2d 68 6f 6f 6b 20 6e 69 6c 0a 20 20 22 54 4f 44 4f 2e 22 0a 20 20 3a 67 72 6f 75 70 20 27 ew-hook.nil..."TODO."...:group.'
10ec0 6f 72 67 2d 6e 6f 74 65 72 2d 6d 6f 64 75 6c 65 2d 68 6f 6f 6b 73 0a 20 20 3a 74 79 70 65 20 27 org-noter-module-hooks...:type.'
10ee0 68 6f 6f 6b 29 0a 0a 28 64 65 66 63 75 73 74 6f 6d 20 6f 72 67 2d 6e 6f 74 65 72 2d 2d 67 65 74 hook)..(defcustom.org-noter--get
10f00 2d 70 72 65 63 69 73 65 2d 69 6e 66 6f 2d 68 6f 6f 6b 20 6e 69 6c 0a 20 20 22 54 4f 44 4f 2e 22 -precise-info-hook.nil..."TODO."
10f20 0a 20 20 3a 67 72 6f 75 70 20 27 6f 72 67 2d 6e 6f 74 65 72 2d 6d 6f 64 75 6c 65 2d 68 6f 6f 6b ...:group.'org-noter-module-hook
10f40 73 0a 20 20 3a 74 79 70 65 20 27 68 6f 6f 6b 29 0a 0a 28 64 65 66 63 75 73 74 6f 6d 20 6f 72 67 s...:type.'hook)..(defcustom.org
10f60 2d 6e 6f 74 65 72 2d 2d 67 65 74 2d 63 75 72 72 65 6e 74 2d 76 69 65 77 2d 68 6f 6f 6b 20 6e 69 -noter--get-current-view-hook.ni
10f80 6c 0a 20 20 22 54 4f 44 4f 2e 22 0a 20 20 3a 67 72 6f 75 70 20 27 6f 72 67 2d 6e 6f 74 65 72 2d l..."TODO."...:group.'org-noter-
10fa0 6d 6f 64 75 6c 65 2d 68 6f 6f 6b 73 0a 20 20 3a 74 79 70 65 20 27 68 6f 6f 6b 29 0a 0a 28 64 65 module-hooks...:type.'hook)..(de
10fc0 66 63 75 73 74 6f 6d 20 6f 72 67 2d 6e 6f 74 65 72 2d 2d 64 6f 63 2d 61 70 70 72 6f 78 2d 6c 6f fcustom.org-noter--doc-approx-lo
10fe0 63 61 74 69 6f 6e 2d 68 6f 6f 6b 20 6e 69 6c 0a 20 20 22 54 68 69 73 20 72 65 74 75 72 6e 73 20 cation-hook.nil..."This.returns.
11000 61 6e 20 61 70 70 72 6f 78 69 6d 61 74 65 20 6c 6f 63 61 74 69 6f 6e 20 69 66 20 6e 6f 20 70 72 an.approximate.location.if.no.pr
11020 65 63 69 73 65 20 69 6e 66 6f 20 69 73 20 70 61 73 73 65 64 3a 20 28 50 41 47 45 20 30 29 0a 6f ecise.info.is.passed:.(PAGE.0).o
11040 72 20 69 66 20 70 72 65 63 69 73 65 20 69 6e 66 6f 20 69 73 20 70 61 73 73 65 64 2c 20 69 74 27 r.if.precise.info.is.passed,.it'
11060 73 20 28 50 41 47 45 20 56 20 2e 20 48 29 2e 22 0a 20 20 3a 67 72 6f 75 70 20 27 6f 72 67 2d 6e s.(PAGE.V...H)."...:group.'org-n
11080 6f 74 65 72 2d 6d 6f 64 75 6c 65 2d 68 6f 6f 6b 73 0a 20 20 3a 74 79 70 65 20 27 68 6f 6f 6b 29 oter-module-hooks...:type.'hook)
110a0 0a 0a 28 64 65 66 63 75 73 74 6f 6d 20 6f 72 67 2d 6e 6f 74 65 72 2d 63 72 65 61 74 65 2d 73 6b ..(defcustom.org-noter-create-sk
110c0 65 6c 65 74 6f 6e 2d 66 75 6e 63 74 69 6f 6e 73 20 6e 69 6c 0a 20 20 22 4c 69 73 74 20 6f 66 20 eleton-functions.nil..."List.of.
110e0 66 75 6e 63 74 69 6f 6e 73 20 74 68 61 74 20 63 6f 6e 76 65 72 74 20 64 6f 63 75 6d 65 6e 74 20 functions.that.convert.document.
11100 6f 75 74 6c 69 6e 65 20 69 6e 74 6f 20 6e 6f 74 65 72 20 68 65 61 64 6c 69 6e 65 73 2e 0a 0a 54 outline.into.noter.headlines...T
11120 68 65 20 66 75 6e 63 74 69 6f 6e 73 20 77 69 6c 6c 20 62 65 20 67 69 76 65 6e 20 61 20 6d 61 6a he.functions.will.be.given.a.maj
11140 6f 72 20 6d 6f 64 65 20 6f 66 20 74 68 65 20 64 6f 63 75 6d 65 6e 74 20 61 6e 64 20 6d 75 73 74 or.mode.of.the.document.and.must
11160 0a 72 65 74 75 72 6e 20 61 20 6e 6f 6e 2d 6e 69 6c 20 76 61 6c 75 65 20 77 68 65 6e 20 74 68 65 .return.a.non-nil.value.when.the
11180 20 6f 75 74 6c 69 6e 65 20 69 73 20 63 72 65 61 74 65 64 2e 0a 0a 55 73 65 64 20 62 79 20 60 6f .outline.is.created...Used.by.`o
111a0 72 67 2d 6e 6f 74 65 72 2d 63 72 65 61 74 65 2d 73 6b 65 6c 65 74 6f 6e 27 2e 22 0a 20 20 3a 67 rg-noter-create-skeleton'."...:g
111c0 72 6f 75 70 20 27 6f 72 67 2d 6e 6f 74 65 72 2d 6d 6f 64 75 6c 65 2d 68 6f 6f 6b 73 0a 20 20 3a roup.'org-noter-module-hooks...:
111e0 74 79 70 65 20 27 68 6f 6f 6b 29 0a 0a 28 64 65 66 63 75 73 74 6f 6d 20 6f 72 67 2d 6e 6f 74 65 type.'hook)..(defcustom.org-note
11200 72 2d 6f 70 65 6e 2d 64 6f 63 75 6d 65 6e 74 2d 66 75 6e 63 74 69 6f 6e 73 20 6e 69 6c 0a 20 20 r-open-document-functions.nil...
11220 22 46 75 6e 63 74 69 6f 6e 73 20 74 68 61 74 20 67 69 76 65 73 20 61 20 62 75 66 66 65 72 20 77 "Functions.that.gives.a.buffer.w
11240 68 65 6e 20 70 61 73 73 65 64 20 77 69 74 68 20 61 20 64 6f 63 75 6d 65 6e 74 20 70 72 6f 70 65 hen.passed.with.a.document.prope
11260 72 74 79 2e 0a 55 73 65 64 20 62 79 20 60 6f 72 67 2d 6e 6f 74 65 72 2d 2d 63 72 65 61 74 65 2d rty..Used.by.`org-noter--create-
11280 73 65 73 73 69 6f 6e 27 20 77 68 65 6e 20 63 72 65 61 74 69 6e 67 20 61 20 6e 65 77 20 73 65 73 session'.when.creating.a.new.ses
112a0 73 69 6f 6e 2e 22 0a 20 20 3a 67 72 6f 75 70 20 27 6f 72 67 2d 6e 6f 74 65 72 2d 6d 6f 64 75 6c sion."...:group.'org-noter-modul
112c0 65 2d 68 6f 6f 6b 73 0a 20 20 3a 74 79 70 65 20 27 68 6f 6f 6b 29 0a 0a 28 64 65 66 63 75 73 74 e-hooks...:type.'hook)..(defcust
112e0 6f 6d 20 6f 72 67 2d 6e 6f 74 65 72 2d 2d 73 68 6f 77 2d 61 72 72 6f 77 2d 68 6f 6f 6b 20 6e 69 om.org-noter--show-arrow-hook.ni
11300 6c 0a 20 20 22 4c 69 73 74 20 6f 66 20 66 75 6e 63 74 69 6f 6e 73 20 74 68 61 74 20 73 68 6f 77 l..."List.of.functions.that.show
11320 20 70 72 65 63 69 73 65 20 6e 6f 74 65 20 6c 6f 63 61 74 69 6f 6e 20 69 6e 20 64 6f 63 75 6d 65 .precise.note.location.in.docume
11340 6e 74 2e 0a 46 6f 72 20 65 78 61 6d 70 6c 65 2c 20 73 65 65 20 60 6f 72 67 2d 6e 6f 74 65 72 2d nt..For.example,.see.`org-noter-
11360 70 64 66 2d 2d 73 68 6f 77 2d 61 72 72 6f 77 27 2e 22 0a 20 20 3a 67 72 6f 75 70 20 27 6f 72 67 pdf--show-arrow'."...:group.'org
11380 2d 6e 6f 74 65 72 2d 6d 6f 64 75 6c 65 2d 68 6f 6f 6b 73 0a 20 20 3a 74 79 70 65 20 27 68 6f 6f -noter-module-hooks...:type.'hoo
113a0 6b 29 0a 0a 3b 3b 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d k)..;;.-------------------------
113c0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d --------------------------------
113e0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 3b 3b 3b 20 50 72 69 76 -----------------------.;;;.Priv
11400 61 74 65 20 76 61 72 69 61 62 6c 65 73 20 6f 72 20 63 6f 6e 73 74 61 6e 74 73 0a 28 63 6c 2d 64 ate.variables.or.constants.(cl-d
11420 65 66 73 74 72 75 63 74 20 6f 72 67 2d 6e 6f 74 65 72 2d 2d 73 65 73 73 69 6f 6e 0a 20 20 69 64 efstruct.org-noter--session...id
11440 20 66 72 61 6d 65 20 64 6f 63 2d 62 75 66 66 65 72 20 6e 6f 74 65 73 2d 62 75 66 66 65 72 20 61 .frame.doc-buffer.notes-buffer.a
11460 73 74 20 6d 6f 64 69 66 69 65 64 2d 74 69 63 6b 20 64 6f 63 2d 6d 6f 64 65 20 64 69 73 70 6c 61 st.modified-tick.doc-mode.displa
11480 79 2d 6e 61 6d 65 20 6e 6f 74 65 73 2d 66 69 6c 65 2d 70 61 74 68 20 70 72 6f 70 65 72 74 79 2d y-name.notes-file-path.property-
114a0 74 65 78 74 0a 20 20 6c 65 76 65 6c 20 6e 75 6d 2d 6e 6f 74 65 73 2d 69 6e 2d 76 69 65 77 20 77 text...level.num-notes-in-view.w
114c0 69 6e 64 6f 77 2d 62 65 68 61 76 69 6f 72 20 77 69 6e 64 6f 77 2d 6c 6f 63 61 74 69 6f 6e 20 64 indow-behavior.window-location.d
114e0 6f 63 2d 73 70 6c 69 74 2d 66 72 61 63 74 69 6f 6e 20 61 75 74 6f 2d 73 61 76 65 2d 6c 61 73 74 oc-split-fraction.auto-save-last
11500 2d 6c 6f 63 61 74 69 6f 6e 0a 20 20 68 69 64 65 2d 6f 74 68 65 72 20 63 6c 6f 73 65 73 74 2d 74 -location...hide-other.closest-t
11520 69 70 70 69 6e 67 2d 70 6f 69 6e 74 29 0a 0a 28 64 65 66 76 61 72 20 6f 72 67 2d 6e 6f 74 65 72 ipping-point)..(defvar.org-noter
11540 2d 2d 73 65 73 73 69 6f 6e 73 20 6e 69 6c 0a 20 20 22 4c 69 73 74 20 6f 66 20 60 6f 72 67 2d 6e --sessions.nil..."List.of.`org-n
11560 6f 74 65 72 27 20 73 65 73 73 69 6f 6e 73 2e 22 29 0a 0a 28 64 65 66 76 61 72 2d 6c 6f 63 61 6c oter'.sessions.")..(defvar-local
11580 20 6f 72 67 2d 6e 6f 74 65 72 2d 2d 73 65 73 73 69 6f 6e 20 6e 69 6c 0a 20 20 22 53 65 73 73 69 .org-noter--session.nil..."Sessi
115a0 6f 6e 20 61 73 73 6f 63 69 61 74 65 64 20 77 69 74 68 20 74 68 65 20 63 75 72 72 65 6e 74 20 62 on.associated.with.the.current.b
115c0 75 66 66 65 72 2e 22 29 0a 0a 28 64 65 66 76 61 72 20 6f 72 67 2d 6e 6f 74 65 72 2d 2d 69 6e 68 uffer.")..(defvar.org-noter--inh
115e0 69 62 69 74 2d 6c 6f 63 61 74 69 6f 6e 2d 63 68 61 6e 67 65 2d 68 61 6e 64 6c 65 72 20 6e 69 6c ibit-location-change-handler.nil
11600 0a 20 20 22 50 72 65 76 65 6e 74 20 6c 6f 63 61 74 69 6f 6e 20 63 68 61 6e 67 65 20 66 72 6f 6d ..."Prevent.location.change.from
11620 20 75 70 64 61 74 69 6e 67 20 70 6f 69 6e 74 20 69 6e 20 6e 6f 74 65 73 2e 22 29 0a 0a 28 64 65 .updating.point.in.notes.")..(de
11640 66 76 61 72 20 6f 72 67 2d 6e 6f 74 65 72 2d 2d 73 74 61 72 74 2d 6c 6f 63 61 74 69 6f 6e 2d 6f fvar.org-noter--start-location-o
11660 76 65 72 72 69 64 65 20 6e 69 6c 0a 20 20 22 55 73 65 64 20 74 6f 20 6f 70 65 6e 20 74 68 65 20 verride.nil..."Used.to.open.the.
11680 73 65 73 73 69 6f 6e 20 66 72 6f 6d 20 74 68 65 20 64 6f 63 75 6d 65 6e 74 20 69 6e 20 74 68 65 session.from.the.document.in.the
116a0 20 72 69 67 68 74 20 70 61 67 65 2e 22 29 0a 0a 28 64 65 66 76 61 72 20 6f 72 67 2d 6e 6f 74 65 .right.page.")..(defvar.org-note
116c0 72 2d 2d 61 72 72 6f 77 2d 6c 6f 63 61 74 69 6f 6e 20 6e 69 6c 0a 20 20 22 41 20 76 65 63 74 6f r--arrow-location.nil..."A.vecto
116e0 72 20 74 68 61 74 20 73 68 6f 77 73 20 77 68 65 72 65 20 74 68 65 20 61 72 72 6f 77 20 73 68 6f r.that.shows.where.the.arrow.sho
11700 75 6c 64 20 61 70 70 65 61 72 2c 20 77 68 65 6e 20 69 64 6c 69 6e 67 2e 0a 46 6f 72 6d 61 74 3a uld.appear,.when.idling..Format:
11720 20 5b 54 49 4d 45 52 20 57 49 4e 44 4f 57 20 54 4f 50 20 4c 45 46 54 5d 22 29 0a 0a 28 64 65 66 .[TIMER.WINDOW.TOP.LEFT]")..(def
11740 76 61 72 20 6f 72 67 2d 6e 6f 74 65 72 2d 2d 63 6f 6d 70 6c 65 74 69 6e 67 2d 72 65 61 64 2d 6b var.org-noter--completing-read-k
11760 65 79 6d 61 70 20 28 6d 61 6b 65 2d 73 70 61 72 73 65 2d 6b 65 79 6d 61 70 29 0a 20 20 22 41 20 eymap.(make-sparse-keymap)..."A.
11780 60 63 6f 6d 70 6c 65 74 69 6e 67 2d 72 65 61 64 27 20 6b 65 79 6d 61 70 20 74 68 61 74 20 6c 65 `completing-read'.keymap.that.le
117a0 74 27 73 20 74 68 65 20 75 73 65 72 20 69 6e 73 65 72 74 20 73 70 61 63 65 73 2e 22 29 0a 0a 28 t's.the.user.insert.spaces.")..(
117c0 73 65 74 2d 6b 65 79 6d 61 70 2d 70 61 72 65 6e 74 20 6f 72 67 2d 6e 6f 74 65 72 2d 2d 63 6f 6d set-keymap-parent.org-noter--com
117e0 70 6c 65 74 69 6e 67 2d 72 65 61 64 2d 6b 65 79 6d 61 70 20 6d 69 6e 69 62 75 66 66 65 72 2d 6c pleting-read-keymap.minibuffer-l
11800 6f 63 61 6c 2d 63 6f 6d 70 6c 65 74 69 6f 6e 2d 6d 61 70 29 0a 28 64 65 66 69 6e 65 2d 6b 65 79 ocal-completion-map).(define-key
11820 20 6f 72 67 2d 6e 6f 74 65 72 2d 2d 63 6f 6d 70 6c 65 74 69 6e 67 2d 72 65 61 64 2d 6b 65 79 6d .org-noter--completing-read-keym
11840 61 70 20 28 6b 62 64 20 22 53 50 43 22 29 20 27 73 65 6c 66 2d 69 6e 73 65 72 74 2d 63 6f 6d 6d ap.(kbd."SPC").'self-insert-comm
11860 61 6e 64 29 0a 0a 28 64 65 66 63 6f 6e 73 74 20 6f 72 67 2d 6e 6f 74 65 72 2d 2d 70 72 6f 70 65 and)..(defconst.org-noter--prope
11880 72 74 79 2d 62 65 68 61 76 69 6f 72 20 22 4e 4f 54 45 52 5f 4e 4f 54 45 53 5f 42 45 48 41 56 49 rty-behavior."NOTER_NOTES_BEHAVI
118a0 4f 52 22 0a 20 20 22 50 72 6f 70 65 72 74 79 20 66 6f 72 20 6f 76 65 72 72 69 64 69 6e 67 20 67 OR"..."Property.for.overriding.g
118c0 6c 6f 62 61 6c 20 60 6f 72 67 2d 6e 6f 74 65 72 2d 6e 6f 74 65 73 2d 77 69 6e 64 6f 77 2d 62 65 lobal.`org-noter-notes-window-be
118e0 68 61 76 69 6f 72 27 2e 22 29 0a 0a 28 64 65 66 63 6f 6e 73 74 20 6f 72 67 2d 6e 6f 74 65 72 2d havior'.")..(defconst.org-noter-
11900 2d 70 72 6f 70 65 72 74 79 2d 6c 6f 63 61 74 69 6f 6e 20 22 4e 4f 54 45 52 5f 4e 4f 54 45 53 5f -property-location."NOTER_NOTES_
11920 4c 4f 43 41 54 49 4f 4e 22 0a 20 20 22 50 72 6f 70 65 72 74 79 20 66 6f 72 20 6f 76 65 72 72 69 LOCATION"..."Property.for.overri
11940 64 69 6e 67 20 67 6c 6f 62 61 6c 20 60 6f 72 67 2d 6e 6f 74 65 72 2d 6e 6f 74 65 73 2d 77 69 6e ding.global.`org-noter-notes-win
11960 64 6f 77 2d 6c 6f 63 61 74 69 6f 6e 27 2e 22 29 0a 0a 28 64 65 66 63 6f 6e 73 74 20 6f 72 67 2d dow-location'.")..(defconst.org-
11980 6e 6f 74 65 72 2d 2d 70 72 6f 70 65 72 74 79 2d 64 6f 63 2d 73 70 6c 69 74 2d 66 72 61 63 74 69 noter--property-doc-split-fracti
119a0 6f 6e 20 22 4e 4f 54 45 52 5f 44 4f 43 55 4d 45 4e 54 5f 53 50 4c 49 54 5f 46 52 41 43 54 49 4f on."NOTER_DOCUMENT_SPLIT_FRACTIO
119c0 4e 22 0a 20 20 22 50 72 6f 70 65 72 74 79 20 66 6f 72 20 6f 76 65 72 72 69 64 69 6e 67 20 67 6c N"..."Property.for.overriding.gl
119e0 6f 62 61 6c 20 60 6f 72 67 2d 6e 6f 74 65 72 2d 64 6f 63 2d 73 70 6c 69 74 2d 66 72 61 63 74 69 obal.`org-noter-doc-split-fracti
11a00 6f 6e 27 2e 22 29 0a 0a 28 64 65 66 63 6f 6e 73 74 20 6f 72 67 2d 6e 6f 74 65 72 2d 2d 70 72 6f on'.")..(defconst.org-noter--pro
11a20 70 65 72 74 79 2d 61 75 74 6f 2d 73 61 76 65 2d 6c 61 73 74 2d 6c 6f 63 61 74 69 6f 6e 20 22 4e perty-auto-save-last-location."N
11a40 4f 54 45 52 5f 41 55 54 4f 5f 53 41 56 45 5f 4c 41 53 54 5f 4c 4f 43 41 54 49 4f 4e 22 0a 20 20 OTER_AUTO_SAVE_LAST_LOCATION"...
11a60 22 50 72 6f 70 65 72 74 79 20 66 6f 72 20 6f 76 65 72 72 69 64 69 6e 67 20 67 6c 6f 62 61 6c 20 "Property.for.overriding.global.
11a80 60 6f 72 67 2d 6e 6f 74 65 72 2d 61 75 74 6f 2d 73 61 76 65 2d 6c 61 73 74 2d 6c 6f 63 61 74 69 `org-noter-auto-save-last-locati
11aa0 6f 6e 27 2e 22 29 0a 0a 28 64 65 66 63 6f 6e 73 74 20 6f 72 67 2d 6e 6f 74 65 72 2d 2d 70 72 6f on'.")..(defconst.org-noter--pro
11ac0 70 65 72 74 79 2d 68 69 64 65 2d 6f 74 68 65 72 20 22 4e 4f 54 45 52 5f 48 49 44 45 5f 4f 54 48 perty-hide-other."NOTER_HIDE_OTH
11ae0 45 52 22 0a 20 20 22 50 72 6f 70 65 72 74 79 20 66 6f 72 20 6f 76 65 72 72 69 64 69 6e 67 20 67 ER"..."Property.for.overriding.g
11b00 6c 6f 62 61 6c 20 60 6f 72 67 2d 6e 6f 74 65 72 2d 68 69 64 65 2d 6f 74 68 65 72 27 2e 22 29 0a lobal.`org-noter-hide-other'.").
11b20 0a 28 64 65 66 63 6f 6e 73 74 20 6f 72 67 2d 6e 6f 74 65 72 2d 2d 70 72 6f 70 65 72 74 79 2d 63 .(defconst.org-noter--property-c
11b40 6c 6f 73 65 73 74 2d 74 69 70 70 69 6e 67 2d 70 6f 69 6e 74 20 22 4e 4f 54 45 52 5f 43 4c 4f 53 losest-tipping-point."NOTER_CLOS
11b60 45 53 54 5f 54 49 50 50 49 4e 47 5f 50 4f 49 4e 54 22 0a 20 20 22 50 72 6f 70 65 72 74 79 20 66 EST_TIPPING_POINT"..."Property.f
11b80 6f 72 20 6f 76 65 72 72 69 64 69 6e 67 20 67 6c 6f 62 61 6c 20 60 6f 72 67 2d 6e 6f 74 65 72 2d or.overriding.global.`org-noter-
11ba0 63 6c 6f 73 65 73 74 2d 74 69 70 70 69 6e 67 2d 70 6f 69 6e 74 27 2e 22 29 0a 0a 28 64 65 66 63 closest-tipping-point'.")..(defc
11bc0 6f 6e 73 74 20 6f 72 67 2d 6e 6f 74 65 72 2d 2d 6e 6f 74 65 2d 73 65 61 72 63 68 2d 6e 6f 2d 72 onst.org-noter--note-search-no-r
11be0 65 63 75 72 73 65 20 28 64 65 6c 65 74 65 20 27 68 65 61 64 6c 69 6e 65 20 28 61 70 70 65 6e 64 ecurse.(delete.'headline.(append
11c00 20 6f 72 67 2d 65 6c 65 6d 65 6e 74 2d 61 6c 6c 2d 65 6c 65 6d 65 6e 74 73 20 6e 69 6c 29 29 0a .org-element-all-elements.nil)).
11c20 20 20 22 4c 69 73 74 20 6f 66 20 65 6c 65 6d 65 6e 74 73 20 74 68 61 74 20 73 68 6f 75 6c 64 6e .."List.of.elements.that.shouldn
11c40 27 74 20 62 65 20 72 65 63 75 72 73 65 64 20 69 6e 74 6f 20 77 68 65 6e 20 73 65 61 72 63 68 69 't.be.recursed.into.when.searchi
11c60 6e 67 20 66 6f 72 20 6e 6f 74 65 73 2e 22 29 0a 0a 28 64 65 66 63 6f 6e 73 74 20 6f 72 67 2d 6e ng.for.notes.")..(defconst.org-n
11c80 6f 74 65 72 2d 2d 6e 6f 74 65 2d 73 65 61 72 63 68 2d 65 6c 65 6d 65 6e 74 2d 74 79 70 65 20 27 oter--note-search-element-type.'
11ca0 28 68 65 61 64 6c 69 6e 65 29 0a 20 20 22 4c 69 73 74 20 6f 66 20 65 6c 65 6d 65 6e 74 73 20 74 (headline)..."List.of.elements.t
11cc0 68 61 74 20 73 68 6f 75 6c 64 20 62 65 20 73 65 61 72 63 68 65 64 20 66 6f 72 20 6e 6f 74 65 73 hat.should.be.searched.for.notes
11ce0 2e 22 29 0a 0a 28 64 65 66 63 6f 6e 73 74 20 6f 72 67 2d 6e 6f 74 65 72 2d 2d 69 64 2d 74 65 78 .")..(defconst.org-noter--id-tex
11d00 74 2d 70 72 6f 70 65 72 74 79 20 27 6f 72 67 2d 6e 6f 74 65 72 2d 73 65 73 73 69 6f 6e 2d 69 64 t-property.'org-noter-session-id
11d20 0a 20 20 22 54 65 78 74 20 70 72 6f 70 65 72 74 79 20 75 73 65 64 20 74 6f 20 6d 61 72 6b 20 74 ..."Text.property.used.to.mark.t
11d40 68 65 20 68 65 61 64 69 6e 67 73 20 77 69 74 68 20 6f 70 65 6e 20 73 65 73 73 69 6f 6e 73 2e 22 he.headings.with.open.sessions."
11d60 29 0a 0a 28 64 65 66 76 61 72 20 6f 72 67 2d 6e 6f 74 65 72 2d 2d 75 72 6c 2d 72 65 67 65 78 70 )..(defvar.org-noter--url-regexp
11d80 0a 20 20 28 63 6f 6e 63 61 74 0a 20 20 20 22 5c 5c 62 5c 5c 28 5c 5c 28 77 77 77 5c 5c 2e 5c 5c ...(concat...."\\b\\(\\(www\\.\\
11da0 7c 5c 5c 28 73 3f 68 74 74 70 73 3f 5c 5c 7c 66 74 70 5c 5c 7c 66 69 6c 65 5c 5c 7c 67 6f 70 68 |\\(s?https?\\|ftp\\|file\\|goph
11dc0 65 72 5c 5c 7c 22 0a 20 20 20 22 6e 6e 74 70 5c 5c 7c 6e 65 77 73 5c 5c 7c 74 65 6c 6e 65 74 5c er\\|"...."nntp\\|news\\|telnet\
11de0 5c 7c 77 61 69 73 5c 5c 7c 6d 61 69 6c 74 6f 5c 5c 7c 69 6e 66 6f 5c 5c 29 3a 5c 5c 29 22 0a 20 \|wais\\|mailto\\|info\\):\\)"..
11e00 20 20 22 5c 5c 28 2f 2f 5b 2d 61 2d 7a 30 2d 39 5f 2e 5d 2b 3a 5b 30 2d 39 5d 2a 5c 5c 29 3f 22 .."\\(//[-a-z0-9_.]+:[0-9]*\\)?"
11e20 0a 20 20 20 28 6c 65 74 20 28 28 63 68 61 72 73 20 22 2d 61 2d 7a 30 2d 39 5f 3d 23 24 40 7e 25 ....(let.((chars."-a-z0-9_=#$@~%
11e40 26 2a 2b 5c 5c 2f 5b 3a 77 6f 72 64 3a 5d 22 29 0a 20 20 20 20 20 20 20 20 20 28 70 75 6e 63 74 &*+\\/[:word:]")..........(punct
11e60 20 22 21 3f 3a 3b 2e 2c 22 29 29 0a 20 20 20 20 20 28 63 6f 6e 63 61 74 0a 20 20 20 20 20 20 22 ."!?:;.,"))......(concat......."
11e80 5c 5c 28 3f 3a 22 0a 20 20 20 20 20 20 3b 3b 20 4d 61 74 63 68 20 70 61 69 72 65 64 20 70 61 72 \\(?:".......;;.Match.paired.par
11ea0 65 6e 74 68 65 73 65 73 2c 20 65 2e 67 2e 20 69 6e 20 57 69 6b 69 70 65 64 69 61 20 55 52 4c 73 entheses,.e.g..in.Wikipedia.URLs
11ec0 3a 0a 20 20 20 20 20 20 3b 3b 20 68 74 74 70 3a 2f 2f 74 68 72 65 61 64 2e 67 6d 61 6e 65 2e 6f :.......;;.http://thread.gmane.o
11ee0 72 67 2f 34 37 42 34 45 33 42 32 2e 33 30 35 30 34 30 32 40 67 6d 61 69 6c 2e 63 6f 6d 0a 20 20 rg/47B4E3B2.3050402@gmail.com...
11f00 20 20 20 20 22 5b 22 20 63 68 61 72 73 20 70 75 6e 63 74 20 22 5d 2b 22 20 22 28 22 20 22 5b 22 ...."[".chars.punct."]+"."("."["
11f20 20 63 68 61 72 73 20 70 75 6e 63 74 20 22 5d 2b 22 20 22 29 22 0a 20 20 20 20 20 20 22 5c 5c 28 .chars.punct."]+".")"......."\\(
11f40 3f 3a 22 20 22 5b 22 20 63 68 61 72 73 20 70 75 6e 63 74 20 22 5d 2b 22 20 22 5b 22 20 63 68 61 ?:"."[".chars.punct."]+"."[".cha
11f60 72 73 20 22 5d 22 20 22 5c 5c 29 3f 22 0a 20 20 20 20 20 20 22 5c 5c 7c 22 0a 20 20 20 20 20 20 rs."]"."\\)?"......."\\|".......
11f80 22 5b 22 20 63 68 61 72 73 20 70 75 6e 63 74 20 22 5d 2b 22 20 22 5b 22 20 63 68 61 72 73 20 22 "[".chars.punct."]+"."[".chars."
11fa0 5d 22 0a 20 20 20 20 20 20 22 5c 5c 29 22 29 29 0a 20 20 20 22 5c 5c 29 22 29 0a 20 20 22 52 65 ]"......."\\)"))...."\\)")..."Re
11fc0 67 75 6c 61 72 20 65 78 70 72 65 73 73 69 6f 6e 20 74 68 61 74 20 6d 61 74 63 68 65 73 20 55 52 gular.expression.that.matches.UR
11fe0 4c 73 2e 22 29 0a 0a 28 64 65 66 76 61 72 20 6f 72 67 2d 6e 6f 74 65 72 2d 2d 6e 6f 2d 73 65 73 Ls.")..(defvar.org-noter--no-ses
12000 73 69 6f 6e 73 2d 72 65 6d 6f 76 65 2d 61 64 76 69 63 65 2d 68 6f 6f 6b 73 20 6e 69 6c 0a 20 20 sions-remove-advice-hooks.nil...
12020 22 4c 69 73 74 20 6f 66 20 66 75 6e 63 74 69 6f 6e 73 20 74 6f 20 72 65 6d 6f 76 65 20 61 64 76 "List.of.functions.to.remove.adv
12040 69 63 65 20 77 68 65 6e 20 61 6c 6c 20 73 65 73 73 69 6f 6e 73 20 61 72 65 20 63 6c 6f 73 65 64 ice.when.all.sessions.are.closed
12060 2e 22 29 0a 0a 3b 3b 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d .")..;;.------------------------
12080 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d --------------------------------
120a0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 3b 3b 3b 20 55 74 69 ------------------------.;;;.Uti
120c0 6c 69 74 79 20 66 75 6e 63 74 69 6f 6e 73 0a 0a 28 64 65 66 75 6e 20 6f 72 67 2d 6e 6f 74 65 72 lity.functions..(defun.org-noter
120e0 2d 2d 6e 6f 2d 68 65 61 64 69 6e 67 2d 70 20 28 29 0a 20 20 22 52 65 74 75 72 6e 20 6e 69 6c 20 --no-heading-p.()..."Return.nil.
12100 69 66 20 74 68 65 20 63 75 72 72 65 6e 74 20 62 75 66 66 65 72 20 68 61 73 20 61 74 6c 65 61 73 if.the.current.buffer.has.atleas
12120 74 20 6f 6e 65 20 68 65 61 64 69 6e 67 2e 0a 4f 74 68 65 72 77 69 73 65 20 72 65 74 75 72 6e 20 t.one.heading..Otherwise.return.
12140 74 68 65 20 6d 61 78 69 6d 75 6d 20 76 61 6c 75 65 20 66 6f 72 20 70 6f 69 6e 74 2e 22 0a 20 20 the.maximum.value.for.point."...
12160 28 73 61 76 65 2d 65 78 63 75 72 73 69 6f 6e 0a 20 20 20 20 28 61 6e 64 20 28 6f 72 67 2d 62 65 (save-excursion.....(and.(org-be
12180 66 6f 72 65 2d 66 69 72 73 74 2d 68 65 61 64 69 6e 67 2d 70 29 20 28 6f 72 67 2d 6e 65 78 74 2d fore-first-heading-p).(org-next-
121a0 76 69 73 69 62 6c 65 2d 68 65 61 64 69 6e 67 20 31 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 6f 72 visible-heading.1))))..(defun.or
121c0 67 2d 6e 6f 74 65 72 2d 2d 67 65 74 2d 6e 65 77 2d 69 64 20 28 29 0a 20 20 28 63 61 74 63 68 20 g-noter--get-new-id.()...(catch.
121e0 27 62 72 65 61 6b 0a 20 20 20 20 28 77 68 69 6c 65 20 74 0a 20 20 20 20 20 20 28 6c 65 74 20 28 'break.....(while.t.......(let.(
12200 28 69 64 20 28 72 61 6e 64 6f 6d 20 6d 6f 73 74 2d 70 6f 73 69 74 69 76 65 2d 66 69 78 6e 75 6d (id.(random.most-positive-fixnum
12220 29 29 29 0a 20 20 20 20 20 20 20 20 28 75 6e 6c 65 73 73 20 28 63 6c 2d 6c 6f 6f 70 20 66 6f 72 ))).........(unless.(cl-loop.for
12240 20 73 65 73 73 69 6f 6e 20 69 6e 20 6f 72 67 2d 6e 6f 74 65 72 2d 2d 73 65 73 73 69 6f 6e 73 0a .session.in.org-noter--sessions.
12260 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 68 65 6e 20 28 3d .........................when.(=
12280 20 28 6f 72 67 2d 6e 6f 74 65 72 2d 2d 73 65 73 73 69 6f 6e 2d 69 64 20 73 65 73 73 69 6f 6e 29 .(org-noter--session-id.session)
122a0 20 69 64 29 20 72 65 74 75 72 6e 20 74 29 0a 20 20 20 20 20 20 20 20 20 20 28 74 68 72 6f 77 20 .id).return.t)...........(throw.
122c0 27 62 72 65 61 6b 20 69 64 29 29 29 29 29 29 0a 0a 28 64 65 66 6d 61 63 72 6f 20 6f 72 67 2d 6e 'break.id))))))..(defmacro.org-n
122e0 6f 74 65 72 2d 2d 70 72 6f 70 65 72 74 79 2d 6f 72 2d 64 65 66 61 75 6c 74 20 28 6e 61 6d 65 29 oter--property-or-default.(name)
12300 0a 20 20 28 6c 65 74 20 28 28 66 75 6e 63 74 69 6f 6e 2d 6e 61 6d 65 20 28 69 6e 74 65 72 6e 20 ...(let.((function-name.(intern.
12320 28 63 6f 6e 63 61 74 20 22 6f 72 67 2d 6e 6f 74 65 72 2d 2d 22 20 28 73 79 6d 62 6f 6c 2d 6e 61 (concat."org-noter--".(symbol-na
12340 6d 65 20 6e 61 6d 65 29 20 22 2d 70 72 6f 70 65 72 74 79 22 29 29 29 0a 20 20 20 20 20 20 20 20 me.name)."-property"))).........
12360 28 76 61 72 69 61 62 6c 65 20 20 20 20 20 20 28 69 6e 74 65 72 6e 20 28 63 6f 6e 63 61 74 20 22 (variable......(intern.(concat."
12380 6f 72 67 2d 6e 6f 74 65 72 2d 22 20 20 28 73 79 6d 62 6f 6c 2d 6e 61 6d 65 20 6e 61 6d 65 29 29 org-noter-"..(symbol-name.name))
123a0 29 29 29 0a 20 20 20 20 60 28 6c 65 74 20 28 28 70 72 6f 70 2d 76 61 6c 75 65 20 28 2c 66 75 6e ))).....`(let.((prop-value.(,fun
123c0 63 74 69 6f 6e 2d 6e 61 6d 65 20 61 73 74 29 29 29 0a 20 20 20 20 20 20 20 28 63 6f 6e 64 20 28 ction-name.ast)))........(cond.(
123e0 28 65 71 20 70 72 6f 70 2d 76 61 6c 75 65 20 27 64 69 73 61 62 6c 65 29 20 6e 69 6c 29 0a 20 20 (eq.prop-value.'disable).nil)...
12400 20 20 20 20 20 20 20 20 20 20 20 28 70 72 6f 70 2d 76 61 6c 75 65 29 0a 20 20 20 20 20 20 20 20 ...........(prop-value).........
12420 20 20 20 20 20 28 74 20 2c 76 61 72 69 61 62 6c 65 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 6f .....(t.,variable)))))..(defun.o
12440 72 67 2d 6e 6f 74 65 72 2d 70 61 72 73 65 2d 6c 69 6e 6b 20 28 73 29 0a 20 20 28 70 63 61 73 65 rg-noter-parse-link.(s)...(pcase
12460 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 28 6c .(with-temp-buffer............(l
12480 65 74 20 28 28 6f 72 67 2d 69 6e 68 69 62 69 74 2d 73 74 61 72 74 75 70 20 6e 69 6c 29 29 0a 20 et.((org-inhibit-startup.nil))..
124a0 20 20 20 20 20 20 20 20 20 20 20 20 28 69 6e 73 65 72 74 20 73 29 0a 20 20 20 20 20 20 20 20 20 ............(insert.s)..........
124c0 20 20 20 20 28 6f 72 67 2d 6d 6f 64 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 67 6f 74 ....(org-mode)..............(got
124e0 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 20 20 20 20 20 o-char.(point-min)).............
12500 20 28 6f 72 67 2d 65 6c 65 6d 65 6e 74 2d 6c 69 6e 6b 2d 70 61 72 73 65 72 29 29 29 0a 20 20 20 .(org-element-link-parser)))....
12520 20 28 60 6e 69 6c 20 6e 69 6c 29 0a 20 20 20 20 28 6c 69 6e 6b 20 6c 69 6e 6b 29 29 29 0a 0a 28 .(`nil.nil).....(link.link)))..(
12540 64 65 66 75 6e 20 6f 72 67 2d 6e 6f 74 65 72 2d 2d 63 72 65 61 74 65 2d 73 65 73 73 69 6f 6e 20 defun.org-noter--create-session.
12560 28 61 73 74 20 64 6f 63 75 6d 65 6e 74 2d 70 72 6f 70 65 72 74 79 2d 76 61 6c 75 65 20 6e 6f 74 (ast.document-property-value.not
12580 65 73 2d 66 69 6c 65 2d 70 61 74 68 29 0a 20 20 28 6c 65 74 2a 20 28 28 72 61 77 2d 76 61 6c 75 es-file-path)...(let*.((raw-valu
125a0 65 2d 6e 6f 74 2d 65 6d 70 74 79 20 28 3e 20 28 6c 65 6e 67 74 68 20 28 6f 72 67 2d 65 6c 65 6d e-not-empty.(>.(length.(org-elem
125c0 65 6e 74 2d 70 72 6f 70 65 72 74 79 20 3a 72 61 77 2d 76 61 6c 75 65 20 61 73 74 29 29 20 30 29 ent-property.:raw-value.ast)).0)
125e0 29 0a 20 20 20 20 20 20 20 20 20 28 6c 69 6e 6b 2d 70 20 28 6f 72 20 28 73 74 72 69 6e 67 2d 6d )..........(link-p.(or.(string-m
12600 61 74 63 68 2d 70 20 6f 72 67 2d 6c 69 6e 6b 2d 62 72 61 63 6b 65 74 2d 72 65 20 64 6f 63 75 6d atch-p.org-link-bracket-re.docum
12620 65 6e 74 2d 70 72 6f 70 65 72 74 79 2d 76 61 6c 75 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 ent-property-value).............
12640 20 20 20 20 20 20 20 20 20 28 73 74 72 69 6e 67 2d 6d 61 74 63 68 2d 70 20 6f 72 67 2d 6e 6f 74 .........(string-match-p.org-not
12660 65 72 2d 2d 75 72 6c 2d 72 65 67 65 78 70 20 64 6f 63 75 6d 65 6e 74 2d 70 72 6f 70 65 72 74 79 er--url-regexp.document-property
12680 2d 76 61 6c 75 65 29 29 29 0a 20 20 20 20 20 20 20 20 20 28 64 69 73 70 6c 61 79 2d 6e 61 6d 65 -value)))..........(display-name
126a0 20 28 69 66 20 72 61 77 2d 76 61 6c 75 65 2d 6e 6f 74 2d 65 6d 70 74 79 0a 20 20 20 20 20 20 20 .(if.raw-value-not-empty........
126c0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6f 72 67 2d 65 6c 65 6d 65 6e 74 ....................(org-element
126e0 2d 70 72 6f 70 65 72 74 79 20 3a 72 61 77 2d 76 61 6c 75 65 20 61 73 74 29 0a 20 20 20 20 20 20 -property.:raw-value.ast).......
12700 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 66 20 6c 69 6e 6b 2d 70 0a 20 20 ...................(if.link-p...
12720 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 64 6f 63 75 6d ...........................docum
12740 65 6e 74 2d 70 72 6f 70 65 72 74 79 2d 76 61 6c 75 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 ent-property-value..............
12760 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 69 6c 65 2d 6e 61 6d 65 2d 6e 6f 6e 64 69 72 65 ..............(file-name-nondire
12780 63 74 6f 72 79 20 64 6f 63 75 6d 65 6e 74 2d 70 72 6f 70 65 72 74 79 2d 76 61 6c 75 65 29 29 29 ctory.document-property-value)))
127a0 29 0a 0a 20 20 20 20 20 20 20 20 20 28 66 72 61 6d 65 2d 6e 61 6d 65 20 28 66 6f 72 6d 61 74 20 )...........(frame-name.(format.
127c0 22 45 6d 61 63 73 20 4f 72 67 2d 6e 6f 74 65 72 20 2d 20 25 73 22 20 64 69 73 70 6c 61 79 2d 6e "Emacs.Org-noter.-.%s".display-n
127e0 61 6d 65 29 29 0a 20 20 20 20 20 20 20 20 20 28 64 6f 63 75 6d 65 6e 74 20 28 6f 72 20 28 72 75 ame))..........(document.(or.(ru
12800 6e 2d 68 6f 6f 6b 2d 77 69 74 68 2d 61 72 67 73 2d 75 6e 74 69 6c 2d 73 75 63 63 65 73 73 20 27 n-hook-with-args-until-success.'
12820 6f 72 67 2d 6e 6f 74 65 72 2d 6f 70 65 6e 2d 64 6f 63 75 6d 65 6e 74 2d 66 75 6e 63 74 69 6f 6e org-noter-open-document-function
12840 73 20 64 6f 63 75 6d 65 6e 74 2d 70 72 6f 70 65 72 74 79 2d 76 61 6c 75 65 29 0a 20 20 20 20 20 s.document-property-value)......
12860 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 66 20 6c 69 6e 6b 2d 70 0a 20 20 20 ..................(if.link-p....
12880 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 67 6e 20 28 ........................(progn.(
128a0 6f 72 67 2d 6c 69 6e 6b 2d 6f 70 65 6e 2d 66 72 6f 6d 2d 73 74 72 69 6e 67 20 64 6f 63 75 6d 65 org-link-open-from-string.docume
128c0 6e 74 2d 70 72 6f 70 65 72 74 79 2d 76 61 6c 75 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 nt-property-value)..............
128e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 75 72 72 65 6e 74 2d 62 75 .....................(current-bu
12900 66 66 65 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 ffer))..........................
12920 28 66 69 6e 64 2d 66 69 6c 65 2d 6e 6f 73 65 6c 65 63 74 20 64 6f 63 75 6d 65 6e 74 2d 70 72 6f (find-file-noselect.document-pro
12940 70 65 72 74 79 2d 76 61 6c 75 65 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 28 64 6f 63 75 6d 65 perty-value))))..........(docume
12960 6e 74 2d 6d 61 6a 6f 72 2d 6d 6f 64 65 20 28 69 66 20 28 6f 72 20 6c 69 6e 6b 2d 70 20 28 65 71 nt-major-mode.(if.(or.link-p.(eq
12980 20 64 6f 63 75 6d 65 6e 74 20 28 63 75 72 72 65 6e 74 2d 62 75 66 66 65 72 29 29 29 0a 20 20 20 .document.(current-buffer)))....
129a0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 64 ...............................d
129c0 6f 63 75 6d 65 6e 74 2d 70 72 6f 70 65 72 74 79 2d 76 61 6c 75 65 0a 20 20 20 20 20 20 20 20 20 ocument-property-value..........
129e0 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 75 66 66 65 72 2d 6c .......................(buffer-l
12a00 6f 63 61 6c 2d 76 61 6c 75 65 20 27 6d 61 6a 6f 72 2d 6d 6f 64 65 20 64 6f 63 75 6d 65 6e 74 29 ocal-value.'major-mode.document)
12a20 29 29 0a 20 20 20 20 20 20 20 20 20 3b 3b 20 28 64 6f 63 75 6d 65 6e 74 2d 62 75 66 66 65 72 2d ))..........;;.(document-buffer-
12a40 6e 61 6d 65 0a 20 20 20 20 20 20 20 20 20 3b 3b 20 20 28 67 65 6e 65 72 61 74 65 2d 6e 65 77 2d name..........;;..(generate-new-
12a60 62 75 66 66 65 72 2d 6e 61 6d 65 20 28 63 6f 6e 63 61 74 20 28 75 6e 6c 65 73 73 20 72 61 77 2d buffer-name.(concat.(unless.raw-
12a80 76 61 6c 75 65 2d 6e 6f 74 2d 65 6d 70 74 79 20 22 4f 72 67 2d 6e 6f 74 65 72 3a 20 22 29 20 64 value-not-empty."Org-noter:.").d
12aa0 69 73 70 6c 61 79 2d 6e 61 6d 65 29 29 29 0a 20 20 20 20 20 20 20 20 20 28 64 6f 63 75 6d 65 6e isplay-name)))..........(documen
12ac0 74 2d 62 75 66 66 65 72 20 64 6f 63 75 6d 65 6e 74 29 0a 0a 20 20 20 20 20 20 20 20 20 28 6e 6f t-buffer.document)...........(no
12ae0 74 65 73 2d 62 75 66 66 65 72 0a 20 20 20 20 20 20 20 20 20 20 28 70 72 6f 67 6e 20 28 77 68 65 tes-buffer...........(progn.(whe
12b00 6e 20 28 61 6e 64 20 6f 72 67 2d 77 69 6e 64 6f 77 2d 63 6f 6e 66 69 67 2d 62 65 66 6f 72 65 2d n.(and.org-window-config-before-
12b20 66 6f 6c 6c 6f 77 2d 6c 69 6e 6b 20 6c 69 6e 6b 2d 70 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 follow-link.link-p).............
12b40 20 20 20 20 20 20 20 28 73 65 74 2d 77 69 6e 64 6f 77 2d 63 6f 6e 66 69 67 75 72 61 74 69 6f 6e .......(set-window-configuration
12b60 20 6f 72 67 2d 77 69 6e 64 6f 77 2d 63 6f 6e 66 69 67 2d 62 65 66 6f 72 65 2d 66 6f 6c 6c 6f 77 .org-window-config-before-follow
12b80 2d 6c 69 6e 6b 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 66 20 6f 72 67 -link))..................(if.org
12ba0 2d 6e 6f 74 65 72 2d 75 73 65 2d 69 6e 64 69 72 65 63 74 2d 62 75 66 66 65 72 0a 20 20 20 20 20 -noter-use-indirect-buffer......
12bc0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6d 61 6b 65 2d 69 6e 64 69 72 65 63 74 2d 62 ................(make-indirect-b
12be0 75 66 66 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 28 6f 72 20 uffer.......................(or.
12c00 28 62 75 66 66 65 72 2d 62 61 73 65 2d 62 75 66 66 65 72 29 0a 20 20 20 20 20 20 20 20 20 20 20 (buffer-base-buffer)............
12c20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 75 72 72 65 6e 74 2d 62 75 66 66 65 72 29 29 ...............(current-buffer))
12c40 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 67 65 6e 65 72 61 74 65 .......................(generate
12c60 2d 6e 65 77 2d 62 75 66 66 65 72 2d 6e 61 6d 65 20 28 63 6f 6e 63 61 74 20 22 4e 6f 74 65 73 20 -new-buffer-name.(concat."Notes.
12c80 6f 66 20 22 20 64 69 73 70 6c 61 79 2d 6e 61 6d 65 29 29 20 74 29 0a 20 20 20 20 20 20 20 20 20 of.".display-name)).t)..........
12ca0 20 20 20 20 20 20 20 20 20 20 28 63 75 72 72 65 6e 74 2d 62 75 66 66 65 72 29 29 29 29 0a 0a 20 ..........(current-buffer))))...
12cc0 20 20 20 20 20 20 20 20 28 73 69 6e 67 6c 65 20 28 65 71 20 28 6f 72 20 28 62 75 66 66 65 72 2d ........(single.(eq.(or.(buffer-
12ce0 62 61 73 65 2d 62 75 66 66 65 72 20 64 6f 63 75 6d 65 6e 74 2d 62 75 66 66 65 72 29 0a 20 20 20 base-buffer.document-buffer)....
12d00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 64 6f 63 75 6d 65 6e 74 2d 62 ......................document-b
12d20 75 66 66 65 72 29 0a 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 uffer)......................(or.
12d40 28 62 75 66 66 65 72 2d 62 61 73 65 2d 62 75 66 66 65 72 20 6e 6f 74 65 73 2d 62 75 66 66 65 72 (buffer-base-buffer.notes-buffer
12d60 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 6e 6f 74 65 73 )..........................notes
12d80 2d 62 75 66 66 65 72 29 29 29 0a 0a 20 20 20 20 20 20 20 20 20 28 73 65 73 73 69 6f 6e 0a 20 20 -buffer)))...........(session...
12da0 20 20 20 20 20 20 20 20 28 6d 61 6b 65 2d 6f 72 67 2d 6e 6f 74 65 72 2d 2d 73 65 73 73 69 6f 6e ........(make-org-noter--session
12dc0 0a 20 20 20 20 20 20 20 20 20 20 20 3a 69 64 20 28 6f 72 67 2d 6e 6f 74 65 72 2d 2d 67 65 74 2d ............:id.(org-noter--get-
12de0 6e 65 77 2d 69 64 29 0a 20 20 20 20 20 20 20 20 20 20 20 3a 64 69 73 70 6c 61 79 2d 6e 61 6d 65 new-id)............:display-name
12e00 20 64 69 73 70 6c 61 79 2d 6e 61 6d 65 0a 20 20 20 20 20 20 20 20 20 20 20 3a 66 72 61 6d 65 0a .display-name............:frame.
12e20 20 20 20 20 20 20 20 20 20 20 20 28 69 66 20 28 6f 72 20 6f 72 67 2d 6e 6f 74 65 72 2d 61 6c 77 ...........(if.(or.org-noter-alw
12e40 61 79 73 2d 63 72 65 61 74 65 2d 66 72 61 6d 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ays-create-frame................
12e60 20 20 20 20 28 63 61 74 63 68 20 27 68 61 73 2d 73 65 73 73 69 6f 6e 0a 20 20 20 20 20 20 20 20 ....(catch.'has-session.........
12e80 20 20 20 20 20 20 20 20 20 20 20 20 20 28 64 6f 6c 69 73 74 20 28 74 65 73 74 2d 73 65 73 73 69 .............(dolist.(test-sessi
12ea0 6f 6e 20 6f 72 67 2d 6e 6f 74 65 72 2d 2d 73 65 73 73 69 6f 6e 73 29 0a 20 20 20 20 20 20 20 20 on.org-noter--sessions).........
12ec0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 28 65 71 20 28 6f 72 67 2d 6e 6f ...............(when.(eq.(org-no
12ee0 74 65 72 2d 2d 73 65 73 73 69 6f 6e 2d 66 72 61 6d 65 20 74 65 73 74 2d 73 65 73 73 69 6f 6e 29 ter--session-frame.test-session)
12f00 20 28 73 65 6c 65 63 74 65 64 2d 66 72 61 6d 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 .(selected-frame))..............
12f20 20 20 20 20 20 20 20 20 20 20 20 20 28 74 68 72 6f 77 20 27 68 61 73 2d 73 65 73 73 69 6f 6e 20 ............(throw.'has-session.
12f40 74 29 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6d 61 6b 65 2d 66 72 61 6d t)))))................(make-fram
12f60 65 20 60 28 28 6e 61 6d 65 20 2e 20 2c 66 72 61 6d 65 2d 6e 61 6d 65 29 20 28 66 75 6c 6c 73 63 e.`((name...,frame-name).(fullsc
12f80 72 65 65 6e 20 2e 20 6d 61 78 69 6d 69 7a 65 64 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 reen...maximized))).............
12fa0 20 28 73 65 74 2d 66 72 61 6d 65 2d 70 61 72 61 6d 65 74 65 72 20 6e 69 6c 20 27 6e 61 6d 65 20 .(set-frame-parameter.nil.'name.
12fc0 66 72 61 6d 65 2d 6e 61 6d 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 6c 65 63 74 frame-name)..............(select
12fe0 65 64 2d 66 72 61 6d 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 3a 64 6f 63 2d 6d 6f 64 65 20 ed-frame))............:doc-mode.
13000 64 6f 63 75 6d 65 6e 74 2d 6d 61 6a 6f 72 2d 6d 6f 64 65 0a 20 20 20 20 20 20 20 20 20 20 20 3a document-major-mode............:
13020 70 72 6f 70 65 72 74 79 2d 74 65 78 74 20 64 6f 63 75 6d 65 6e 74 2d 70 72 6f 70 65 72 74 79 2d property-text.document-property-
13040 76 61 6c 75 65 0a 20 20 20 20 20 20 20 20 20 20 20 3a 6e 6f 74 65 73 2d 66 69 6c 65 2d 70 61 74 value............:notes-file-pat
13060 68 20 6e 6f 74 65 73 2d 66 69 6c 65 2d 70 61 74 68 0a 20 20 20 20 20 20 20 20 20 20 20 3a 64 6f h.notes-file-path............:do
13080 63 2d 62 75 66 66 65 72 20 64 6f 63 75 6d 65 6e 74 2d 62 75 66 66 65 72 0a 20 20 20 20 20 20 20 c-buffer.document-buffer........
130a0 20 20 20 20 3a 6e 6f 74 65 73 2d 62 75 66 66 65 72 20 6e 6f 74 65 73 2d 62 75 66 66 65 72 0a 20 ....:notes-buffer.notes-buffer..
130c0 20 20 20 20 20 20 20 20 20 20 3a 6c 65 76 65 6c 20 28 6f 72 20 28 6f 72 67 2d 65 6c 65 6d 65 6e ..........:level.(or.(org-elemen
130e0 74 2d 70 72 6f 70 65 72 74 79 20 3a 6c 65 76 65 6c 20 61 73 74 29 20 30 29 0a 20 20 20 20 20 20 t-property.:level.ast).0).......
13100 20 20 20 20 20 3a 77 69 6e 64 6f 77 2d 62 65 68 61 76 69 6f 72 20 28 6f 72 67 2d 6e 6f 74 65 72 .....:window-behavior.(org-noter
13120 2d 2d 70 72 6f 70 65 72 74 79 2d 6f 72 2d 64 65 66 61 75 6c 74 20 6e 6f 74 65 73 2d 77 69 6e 64 --property-or-default.notes-wind
13140 6f 77 2d 62 65 68 61 76 69 6f 72 29 0a 20 20 20 20 20 20 20 20 20 20 20 3a 77 69 6e 64 6f 77 2d ow-behavior)............:window-
13160 6c 6f 63 61 74 69 6f 6e 20 28 6f 72 67 2d 6e 6f 74 65 72 2d 2d 70 72 6f 70 65 72 74 79 2d 6f 72 location.(org-noter--property-or
13180 2d 64 65 66 61 75 6c 74 20 6e 6f 74 65 73 2d 77 69 6e 64 6f 77 2d 6c 6f 63 61 74 69 6f 6e 29 0a -default.notes-window-location).
131a0 20 20 20 20 20 20 20 20 20 20 20 3a 64 6f 63 2d 73 70 6c 69 74 2d 66 72 61 63 74 69 6f 6e 20 28 ...........:doc-split-fraction.(
131c0 6f 72 67 2d 6e 6f 74 65 72 2d 2d 70 72 6f 70 65 72 74 79 2d 6f 72 2d 64 65 66 61 75 6c 74 20 64 org-noter--property-or-default.d
131e0 6f 63 2d 73 70 6c 69 74 2d 66 72 61 63 74 69 6f 6e 29 0a 20 20 20 20 20 20 20 20 20 20 20 3a 61 oc-split-fraction)............:a
13200 75 74 6f 2d 73 61 76 65 2d 6c 61 73 74 2d 6c 6f 63 61 74 69 6f 6e 20 28 6f 72 67 2d 6e 6f 74 65 uto-save-last-location.(org-note
13220 72 2d 2d 70 72 6f 70 65 72 74 79 2d 6f 72 2d 64 65 66 61 75 6c 74 20 61 75 74 6f 2d 73 61 76 65 r--property-or-default.auto-save
13240 2d 6c 61 73 74 2d 6c 6f 63 61 74 69 6f 6e 29 0a 20 20 20 20 20 20 20 20 20 20 20 3a 68 69 64 65 -last-location)............:hide
13260 2d 6f 74 68 65 72 20 28 6f 72 67 2d 6e 6f 74 65 72 2d 2d 70 72 6f 70 65 72 74 79 2d 6f 72 2d 64 -other.(org-noter--property-or-d
13280 65 66 61 75 6c 74 20 68 69 64 65 2d 6f 74 68 65 72 29 0a 20 20 20 20 20 20 20 20 20 20 20 3a 63 efault.hide-other)............:c
132a0 6c 6f 73 65 73 74 2d 74 69 70 70 69 6e 67 2d 70 6f 69 6e 74 20 28 6f 72 67 2d 6e 6f 74 65 72 2d losest-tipping-point.(org-noter-
132c0 2d 70 72 6f 70 65 72 74 79 2d 6f 72 2d 64 65 66 61 75 6c 74 20 63 6c 6f 73 65 73 74 2d 74 69 70 -property-or-default.closest-tip
132e0 70 69 6e 67 2d 70 6f 69 6e 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 3a 6d 6f 64 69 66 69 65 64 ping-point)............:modified
13300 2d 74 69 63 6b 20 2d 31 29 29 0a 0a 20 20 20 20 20 20 20 20 20 28 74 61 72 67 65 74 2d 6c 6f 63 -tick.-1))...........(target-loc
13320 61 74 69 6f 6e 20 6f 72 67 2d 6e 6f 74 65 72 2d 2d 73 74 61 72 74 2d 6c 6f 63 61 74 69 6f 6e 2d ation.org-noter--start-location-
13340 6f 76 65 72 72 69 64 65 29 0a 20 20 20 20 20 20 20 20 20 28 73 74 61 72 74 69 6e 67 2d 70 6f 69 override)..........(starting-poi
13360 6e 74 20 28 70 6f 69 6e 74 29 29 29 0a 0a 20 20 20 20 28 61 64 64 2d 68 6f 6f 6b 20 27 64 65 6c nt.(point)))......(add-hook.'del
13380 65 74 65 2d 66 72 61 6d 65 2d 66 75 6e 63 74 69 6f 6e 73 20 27 6f 72 67 2d 6e 6f 74 65 72 2d 2d ete-frame-functions.'org-noter--
133a0 68 61 6e 64 6c 65 2d 64 65 6c 65 74 65 2d 66 72 61 6d 65 29 0a 20 20 20 20 28 70 75 73 68 20 73 handle-delete-frame).....(push.s
133c0 65 73 73 69 6f 6e 20 6f 72 67 2d 6e 6f 74 65 72 2d 2d 73 65 73 73 69 6f 6e 73 29 0a 0a 20 20 20 ession.org-noter--sessions).....
133e0 20 28 77 69 74 68 2d 63 75 72 72 65 6e 74 2d 62 75 66 66 65 72 20 64 6f 63 75 6d 65 6e 74 2d 62 .(with-current-buffer.document-b
13400 75 66 66 65 72 0a 20 20 20 20 20 20 28 6f 72 20 28 72 75 6e 2d 68 6f 6f 6b 2d 77 69 74 68 2d 61 uffer.......(or.(run-hook-with-a
13420 72 67 73 2d 75 6e 74 69 6c 2d 73 75 63 63 65 73 73 20 27 6f 72 67 2d 6e 6f 74 65 72 2d 73 65 74 rgs-until-success.'org-noter-set
13440 2d 75 70 2d 64 6f 63 75 6d 65 6e 74 2d 68 6f 6f 6b 20 64 6f 63 75 6d 65 6e 74 2d 6d 61 6a 6f 72 -up-document-hook.document-major
13460 2d 6d 6f 64 65 29 0a 20 20 20 20 20 20 20 20 20 20 28 72 75 6e 2d 68 6f 6f 6b 2d 77 69 74 68 2d -mode)...........(run-hook-with-
13480 61 72 67 73 2d 75 6e 74 69 6c 2d 73 75 63 63 65 73 73 20 27 6f 72 67 2d 6e 6f 74 65 72 2d 73 65 args-until-success.'org-noter-se
134a0 74 2d 75 70 2d 64 6f 63 75 6d 65 6e 74 2d 68 6f 6f 6b 20 64 6f 63 75 6d 65 6e 74 2d 70 72 6f 70 t-up-document-hook.document-prop
134c0 65 72 74 79 2d 76 61 6c 75 65 29 0a 20 20 20 20 20 20 20 20 20 20 28 65 72 72 6f 72 20 22 54 68 erty-value)...........(error."Th
134e0 69 73 20 64 6f 63 75 6d 65 6e 74 20 68 61 6e 64 6c 65 72 20 69 73 20 6e 6f 74 20 73 75 70 70 6f is.document.handler.is.not.suppo
13500 72 74 65 64 20 3a 2f 22 29 29 0a 0a 20 20 20 20 20 20 28 6f 72 67 2d 6e 6f 74 65 72 2d 64 6f 63 rted.:/"))........(org-noter-doc
13520 2d 6d 6f 64 65 20 31 29 0a 20 20 20 20 20 20 28 73 65 74 71 20 6f 72 67 2d 6e 6f 74 65 72 2d 2d -mode.1).......(setq.org-noter--
13540 73 65 73 73 69 6f 6e 20 73 65 73 73 69 6f 6e 29 0a 20 20 20 20 20 20 28 61 64 64 2d 68 6f 6f 6b session.session).......(add-hook
13560 20 27 6b 69 6c 6c 2d 62 75 66 66 65 72 2d 68 6f 6f 6b 20 27 6f 72 67 2d 6e 6f 74 65 72 2d 2d 68 .'kill-buffer-hook.'org-noter--h
13580 61 6e 64 6c 65 2d 6b 69 6c 6c 2d 62 75 66 66 65 72 20 6e 69 6c 20 74 29 29 0a 0a 20 20 20 20 28 andle-kill-buffer.nil.t))......(
135a0 77 69 74 68 2d 63 75 72 72 65 6e 74 2d 62 75 66 66 65 72 20 6e 6f 74 65 73 2d 62 75 66 66 65 72 with-current-buffer.notes-buffer
135c0 0a 20 20 20 20 20 20 28 6f 72 67 2d 6e 6f 74 65 72 2d 6e 6f 74 65 73 2d 6d 6f 64 65 20 31 29 0a .......(org-noter-notes-mode.1).
135e0 20 20 20 20 20 20 3b 3b 20 4e 4f 54 45 28 6e 6f 78 29 3a 20 54 68 69 73 20 69 73 20 6e 65 65 64 ......;;.NOTE(nox):.This.is.need
13600 65 64 20 62 65 63 61 75 73 65 20 61 20 73 65 73 73 69 6f 6e 20 63 72 65 61 74 65 64 20 69 6e 20 ed.because.a.session.created.in.
13620 61 6e 20 69 6e 64 69 72 65 63 74 20 62 75 66 66 65 72 20 77 6f 75 6c 64 20 75 73 65 20 74 68 65 an.indirect.buffer.would.use.the
13640 20 70 6f 69 6e 74 20 6f 66 0a 20 20 20 20 20 20 3b 3b 20 74 68 65 20 62 61 73 65 20 62 75 66 66 .point.of.......;;.the.base.buff
13660 65 72 20 28 61 73 20 74 68 69 73 20 62 75 66 66 65 72 20 69 73 20 69 6e 64 69 72 65 63 74 20 74 er.(as.this.buffer.is.indirect.t
13680 6f 20 74 68 65 20 62 61 73 65 21 29 0a 20 20 20 20 20 20 28 67 6f 74 6f 2d 63 68 61 72 20 73 74 o.the.base!).......(goto-char.st
136a0 61 72 74 69 6e 67 2d 70 6f 69 6e 74 29 0a 20 20 20 20 20 20 28 73 65 74 71 20 62 75 66 66 65 72 arting-point).......(setq.buffer
136c0 2d 66 69 6c 65 2d 6e 61 6d 65 20 6e 6f 74 65 73 2d 66 69 6c 65 2d 70 61 74 68 0a 20 20 20 20 20 -file-name.notes-file-path......
136e0 20 20 20 20 20 20 20 6f 72 67 2d 6e 6f 74 65 72 2d 2d 73 65 73 73 69 6f 6e 20 73 65 73 73 69 6f .......org-noter--session.sessio
13700 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 66 72 69 6e 67 65 2d 69 6e 64 69 63 61 74 6f 72 2d 61 n.............fringe-indicator-a
13720 6c 69 73 74 20 27 28 28 74 72 75 6e 63 61 74 69 6f 6e 20 2e 20 6e 69 6c 29 29 29 0a 20 20 20 20 list.'((truncation...nil))).....
13740 20 20 28 61 64 64 2d 68 6f 6f 6b 20 27 6b 69 6c 6c 2d 62 75 66 66 65 72 2d 68 6f 6f 6b 20 27 6f ..(add-hook.'kill-buffer-hook.'o
13760 72 67 2d 6e 6f 74 65 72 2d 2d 68 61 6e 64 6c 65 2d 6b 69 6c 6c 2d 62 75 66 66 65 72 20 6e 69 6c rg-noter--handle-kill-buffer.nil
13780 20 74 29 0a 20 20 20 20 20 20 28 61 64 64 2d 68 6f 6f 6b 20 27 77 69 6e 64 6f 77 2d 73 63 72 6f .t).......(add-hook.'window-scro
137a0 6c 6c 2d 66 75 6e 63 74 69 6f 6e 73 20 27 6f 72 67 2d 6e 6f 74 65 72 2d 2d 73 65 74 2d 6e 6f 74 ll-functions.'org-noter--set-not
137c0 65 73 2d 73 63 72 6f 6c 6c 20 6e 69 6c 20 74 29 0a 20 20 20 20 20 20 28 6f 72 67 2d 6e 6f 74 65 es-scroll.nil.t).......(org-note
137e0 72 2d 2d 73 65 74 2d 74 65 78 74 2d 70 72 6f 70 65 72 74 69 65 73 20 28 6f 72 67 2d 6e 6f 74 65 r--set-text-properties.(org-note
13800 72 2d 2d 70 61 72 73 65 2d 72 6f 6f 74 20 28 76 65 63 74 6f 72 20 6e 6f 74 65 73 2d 62 75 66 66 r--parse-root.(vector.notes-buff
13820 65 72 20 64 6f 63 75 6d 65 6e 74 2d 70 72 6f 70 65 72 74 79 2d 76 61 6c 75 65 29 29 0a 20 20 20 er.document-property-value))....
13840 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ................................
13860 20 20 20 28 6f 72 67 2d 6e 6f 74 65 72 2d 2d 73 65 73 73 69 6f 6e 2d 69 64 20 73 65 73 73 69 6f ...(org-noter--session-id.sessio
13880 6e 29 29 0a 20 20 20 20 20 20 28 75 6e 6c 65 73 73 20 74 61 72 67 65 74 2d 6c 6f 63 61 74 69 6f n)).......(unless.target-locatio
138a0 6e 0a 20 20 20 20 20 20 20 20 28 73 65 74 71 20 74 61 72 67 65 74 2d 6c 6f 63 61 74 69 6f 6e 20 n.........(setq.target-location.
138c0 28 6f 72 67 2d 6e 6f 74 65 72 2d 2d 70 61 72 73 65 2d 6c 6f 63 61 74 69 6f 6e 2d 70 72 6f 70 65 (org-noter--parse-location-prope
138e0 72 74 79 20 28 6f 72 67 2d 6e 6f 74 65 72 2d 2d 67 65 74 2d 63 6f 6e 74 61 69 6e 69 6e 67 2d 65 rty.(org-noter--get-containing-e
13900 6c 65 6d 65 6e 74 20 74 29 29 29 29 29 0a 0a 20 20 20 20 3b 3b 20 4e 4f 54 45 28 6e 6f 78 29 3a lement.t)))))......;;.NOTE(nox):
13920 20 54 68 69 73 20 74 69 6d 65 72 20 69 73 20 66 6f 72 20 70 72 65 76 65 6e 74 69 6e 67 20 72 65 .This.timer.is.for.preventing.re
13940 66 6c 6f 77 69 6e 67 20 74 6f 6f 20 73 6f 6f 6e 2e 0a 20 20 20 20 28 75 6e 6c 65 73 73 20 73 69 flowing.too.soon......(unless.si
13960 6e 67 6c 65 0a 20 20 20 20 20 20 28 72 75 6e 2d 77 69 74 68 2d 69 64 6c 65 2d 74 69 6d 65 72 0a ngle.......(run-with-idle-timer.
13980 20 20 20 20 20 20 20 30 2e 30 35 20 6e 69 6c 0a 20 20 20 20 20 20 20 28 6c 61 6d 62 64 61 20 28 .......0.05.nil........(lambda.(
139a0 29 0a 20 20 20 20 20 20 20 20 20 3b 3b 20 4e 4f 54 45 28 61 68 6d 65 64 2d 73 68 61 72 69 66 66 )..........;;.NOTE(ahmed-shariff
139c0 29 3a 20 73 65 74 75 70 2d 77 69 6e 64 6f 77 20 72 75 6e 20 68 65 72 65 20 74 6f 20 61 76 6f 69 ):.setup-window.run.here.to.avoi
139e0 64 20 63 72 61 73 68 20 77 68 65 6e 20 6e 6f 74 65 73 20 62 75 66 66 65 72 20 6e 6f 74 20 73 65 d.crash.when.notes.buffer.not.se
13a00 74 75 70 20 69 6e 20 74 69 6d 65 0a 20 20 20 20 20 20 20 20 20 28 6f 72 67 2d 6e 6f 74 65 72 2d tup.in.time..........(org-noter-
13a20 2d 73 65 74 75 70 2d 77 69 6e 64 6f 77 73 20 73 65 73 73 69 6f 6e 29 0a 20 20 20 20 20 20 20 20 -setup-windows.session).........
13a40 20 28 77 69 74 68 2d 63 75 72 72 65 6e 74 2d 62 75 66 66 65 72 20 64 6f 63 75 6d 65 6e 74 2d 62 .(with-current-buffer.document-b
13a60 75 66 66 65 72 0a 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 6f 72 67 2d 6e 6f 74 65 uffer............(let.((org-note
13a80 72 2d 2d 69 6e 68 69 62 69 74 2d 6c 6f 63 61 74 69 6f 6e 2d 63 68 61 6e 67 65 2d 68 61 6e 64 6c r--inhibit-location-change-handl
13aa0 65 72 20 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 74 61 72 67 65 74 er.t))..............(when.target
13ac0 2d 6c 6f 63 61 74 69 6f 6e 20 28 6f 72 67 2d 6e 6f 74 65 72 2d 2d 64 6f 63 2d 67 6f 74 6f 2d 6c -location.(org-noter--doc-goto-l
13ae0 6f 63 61 74 69 6f 6e 20 74 61 72 67 65 74 2d 6c 6f 63 61 74 69 6f 6e 29 29 29 0a 20 20 20 20 20 ocation.target-location)))......
13b00 20 20 20 20 20 20 28 6f 72 67 2d 6e 6f 74 65 72 2d 2d 64 6f 63 2d 6c 6f 63 61 74 69 6f 6e 2d 63 ......(org-noter--doc-location-c
13b20 68 61 6e 67 65 2d 68 61 6e 64 6c 65 72 29 29 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 6f 72 67 hange-handler)))))))..(defun.org
13b40 2d 6e 6f 74 65 72 2d 2d 76 61 6c 69 64 2d 73 65 73 73 69 6f 6e 20 28 73 65 73 73 69 6f 6e 29 0a -noter--valid-session.(session).
13b60 20 20 28 77 68 65 6e 20 73 65 73 73 69 6f 6e 0a 20 20 20 20 28 69 66 20 28 61 6e 64 20 28 66 72 ..(when.session.....(if.(and.(fr
13b80 61 6d 65 2d 6c 69 76 65 2d 70 20 28 6f 72 67 2d 6e 6f 74 65 72 2d 2d 73 65 73 73 69 6f 6e 2d 66 ame-live-p.(org-noter--session-f
13ba0 72 61 6d 65 20 73 65 73 73 69 6f 6e 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 62 75 66 rame.session))..............(buf
13bc0 66 65 72 2d 6c 69 76 65 2d 70 20 28 6f 72 67 2d 6e 6f 74 65 72 2d 2d 73 65 73 73 69 6f 6e 2d 64 fer-live-p.(org-noter--session-d
13be0 6f 63 2d 62 75 66 66 65 72 20 73 65 73 73 69 6f 6e 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 oc-buffer.session)).............
13c00 20 28 62 75 66 66 65 72 2d 6c 69 76 65 2d 70 20 28 6f 72 67 2d 6e 6f 74 65 72 2d 2d 73 65 73 73 .(buffer-live-p.(org-noter--sess
13c20 69 6f 6e 2d 6e 6f 74 65 73 2d 62 75 66 66 65 72 20 73 65 73 73 69 6f 6e 29 29 29 0a 20 20 20 20 ion-notes-buffer.session))).....
13c40 20 20 20 20 74 0a 20 20 20 20 20 20 28 6f 72 67 2d 6e 6f 74 65 72 2d 6b 69 6c 6c 2d 73 65 73 73 ....t.......(org-noter-kill-sess
13c60 69 6f 6e 20 73 65 73 73 69 6f 6e 29 0a 20 20 20 20 20 20 6e 69 6c 29 29 29 0a 0a 28 64 65 66 6d ion.session).......nil)))..(defm
13c80 61 63 72 6f 20 6f 72 67 2d 6e 6f 74 65 72 2d 2d 77 69 74 68 2d 76 61 6c 69 64 2d 73 65 73 73 69 acro.org-noter--with-valid-sessi
13ca0 6f 6e 20 28 26 72 65 73 74 20 62 6f 64 79 29 0a 20 20 60 28 6c 65 74 20 28 28 73 65 73 73 69 6f on.(&rest.body)...`(let.((sessio
13cc0 6e 20 6f 72 67 2d 6e 6f 74 65 72 2d 2d 73 65 73 73 69 6f 6e 29 29 0a 20 20 20 20 20 28 77 68 65 n.org-noter--session))......(whe
13ce0 6e 20 28 6f 72 67 2d 6e 6f 74 65 72 2d 2d 76 61 6c 69 64 2d 73 65 73 73 69 6f 6e 20 73 65 73 73 n.(org-noter--valid-session.sess
13d00 69 6f 6e 29 0a 20 20 20 20 20 20 20 28 70 72 6f 67 6e 20 2c 40 62 6f 64 79 29 29 29 29 0a 0a 28 ion)........(progn.,@body))))..(
13d20 64 65 66 75 6e 20 6f 72 67 2d 6e 6f 74 65 72 2d 2d 68 61 6e 64 6c 65 2d 6b 69 6c 6c 2d 62 75 66 defun.org-noter--handle-kill-buf
13d40 66 65 72 20 28 29 0a 20 20 28 6f 72 67 2d 6e 6f 74 65 72 2d 2d 77 69 74 68 2d 76 61 6c 69 64 2d fer.()...(org-noter--with-valid-
13d60 73 65 73 73 69 6f 6e 0a 20 20 20 28 6c 65 74 20 28 28 62 75 66 66 65 72 20 28 63 75 72 72 65 6e session....(let.((buffer.(curren
13d80 74 2d 62 75 66 66 65 72 29 29 0a 20 20 20 20 20 20 20 20 20 28 6e 6f 74 65 73 2d 62 75 66 66 65 t-buffer))..........(notes-buffe
13da0 72 20 28 6f 72 67 2d 6e 6f 74 65 72 2d 2d 73 65 73 73 69 6f 6e 2d 6e 6f 74 65 73 2d 62 75 66 66 r.(org-noter--session-notes-buff
13dc0 65 72 20 73 65 73 73 69 6f 6e 29 29 0a 20 20 20 20 20 20 20 20 20 28 64 6f 63 2d 62 75 66 66 65 er.session))..........(doc-buffe
13de0 72 20 28 6f 72 67 2d 6e 6f 74 65 72 2d 2d 73 65 73 73 69 6f 6e 2d 64 6f 63 2d 62 75 66 66 65 72 r.(org-noter--session-doc-buffer
13e00 20 73 65 73 73 69 6f 6e 29 29 29 0a 20 20 20 20 20 3b 3b 20 4e 4f 54 45 28 6e 6f 78 29 3a 20 54 .session)))......;;.NOTE(nox):.T
13e20 68 69 73 20 6e 65 65 64 73 20 74 6f 20 62 65 20 63 68 65 63 6b 65 64 20 69 6e 20 6f 72 64 65 72 his.needs.to.be.checked.in.order
13e40 20 74 6f 20 70 72 65 76 65 6e 74 20 73 65 73 73 69 6f 6e 20 6b 69 6c 6c 69 6e 67 20 62 65 63 61 .to.prevent.session.killing.beca
13e60 75 73 65 20 6f 66 0a 20 20 20 20 20 3b 3b 20 74 65 6d 70 6f 72 61 72 79 20 62 75 66 66 65 72 73 use.of......;;.temporary.buffers
13e80 20 77 69 74 68 20 74 68 65 20 73 61 6d 65 20 6c 6f 63 61 6c 20 76 61 72 69 61 62 6c 65 73 0a 20 .with.the.same.local.variables..
13ea0 20 20 20 20 28 77 68 65 6e 20 28 6f 72 20 28 65 71 20 62 75 66 66 65 72 20 6e 6f 74 65 73 2d 62 ....(when.(or.(eq.buffer.notes-b
13ec0 75 66 66 65 72 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 65 71 20 62 75 66 66 65 72 uffer)................(eq.buffer
13ee0 20 64 6f 63 2d 62 75 66 66 65 72 29 29 0a 20 20 20 20 20 20 20 28 6f 72 67 2d 6e 6f 74 65 72 2d .doc-buffer))........(org-noter-
13f00 6b 69 6c 6c 2d 73 65 73 73 69 6f 6e 20 73 65 73 73 69 6f 6e 29 29 29 29 29 0a 0a 28 64 65 66 75 kill-session.session)))))..(defu
13f20 6e 20 6f 72 67 2d 6e 6f 74 65 72 2d 2d 68 61 6e 64 6c 65 2d 64 65 6c 65 74 65 2d 66 72 61 6d 65 n.org-noter--handle-delete-frame
13f40 20 28 66 72 61 6d 65 29 0a 20 20 28 64 6f 6c 69 73 74 20 28 73 65 73 73 69 6f 6e 20 6f 72 67 2d .(frame)...(dolist.(session.org-
13f60 6e 6f 74 65 72 2d 2d 73 65 73 73 69 6f 6e 73 29 0a 20 20 20 20 28 77 68 65 6e 20 28 65 71 20 28 noter--sessions).....(when.(eq.(
13f80 6f 72 67 2d 6e 6f 74 65 72 2d 2d 73 65 73 73 69 6f 6e 2d 66 72 61 6d 65 20 73 65 73 73 69 6f 6e org-noter--session-frame.session
13fa0 29 20 66 72 61 6d 65 29 0a 20 20 20 20 20 20 28 6f 72 67 2d 6e 6f 74 65 72 2d 6b 69 6c 6c 2d 73 ).frame).......(org-noter-kill-s
13fc0 65 73 73 69 6f 6e 20 73 65 73 73 69 6f 6e 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 6f 72 67 2d 6e ession.session))))..(defun.org-n
13fe0 6f 74 65 72 2d 2d 70 61 72 73 65 2d 72 6f 6f 74 20 28 26 6f 70 74 69 6f 6e 61 6c 20 69 6e 66 6f oter--parse-root.(&optional.info
14000 29 0a 20 20 22 50 61 72 73 65 20 61 6e 64 20 72 65 74 75 72 6e 20 74 68 65 20 72 6f 6f 74 20 41 )..."Parse.and.return.the.root.A
14020 53 54 2e 0a 57 68 65 6e 20 75 73 65 64 2c 20 74 68 65 20 49 4e 46 4f 20 61 72 67 75 6d 65 6e 74 ST..When.used,.the.INFO.argument
14040 20 6d 61 79 20 62 65 20 61 6e 20 6f 72 67 2d 6e 6f 74 65 72 20 73 65 73 73 69 6f 6e 20 6f 72 20 .may.be.an.org-noter.session.or.
14060 61 0a 76 65 63 74 6f 72 20 5b 4e 6f 74 65 73 42 75 66 66 65 72 20 50 72 6f 70 65 72 74 79 54 65 a.vector.[NotesBuffer.PropertyTe
14080 78 74 5d 2e 20 20 49 66 20 6e 69 6c 2c 20 74 68 65 20 73 65 73 73 69 6f 6e 20 75 73 65 64 20 77 xt]...If.nil,.the.session.used.w
140a0 69 6c 6c 0a 62 65 20 60 6f 72 67 2d 6e 6f 74 65 72 2d 2d 73 65 73 73 69 6f 6e 27 2e 22 0a 20 20 ill.be.`org-noter--session'."...
140c0 28 6c 65 74 2a 20 28 28 61 72 67 2d 69 73 2d 73 65 73 73 69 6f 6e 20 28 6f 72 67 2d 6e 6f 74 65 (let*.((arg-is-session.(org-note
140e0 72 2d 2d 73 65 73 73 69 6f 6e 2d 70 20 69 6e 66 6f 29 29 0a 20 20 20 20 20 20 20 20 20 28 73 65 r--session-p.info))..........(se
14100 73 73 69 6f 6e 20 28 6f 72 20 28 61 6e 64 20 61 72 67 2d 69 73 2d 73 65 73 73 69 6f 6e 20 69 6e ssion.(or.(and.arg-is-session.in
14120 66 6f 29 20 6f 72 67 2d 6e 6f 74 65 72 2d 2d 73 65 73 73 69 6f 6e 29 29 0a 20 20 20 20 20 20 20 fo).org-noter--session))........
14140 20 20 72 6f 6f 74 2d 70 6f 73 20 61 73 74 29 0a 20 20 20 20 28 63 6f 6e 64 0a 20 20 20 20 20 28 ..root-pos.ast).....(cond......(
14160 28 61 6e 64 20 28 6e 6f 74 20 61 72 67 2d 69 73 2d 73 65 73 73 69 6f 6e 29 20 28 76 65 63 74 6f (and.(not.arg-is-session).(vecto
14180 72 70 20 69 6e 66 6f 29 29 0a 20 20 20 20 20 20 3b 3b 20 4e 4f 54 45 28 6e 6f 78 29 3a 20 55 73 rp.info)).......;;.NOTE(nox):.Us
141a0 65 20 61 72 67 75 6d 65 6e 74 73 20 74 6f 20 66 69 6e 64 20 68 65 61 64 69 6e 67 2c 20 62 79 20 e.arguments.to.find.heading,.by.
141c0 74 72 79 69 6e 67 20 74 6f 20 66 69 6e 64 20 74 68 65 20 6f 75 74 65 72 6d 6f 73 74 20 70 61 72 trying.to.find.the.outermost.par
141e0 65 6e 74 20 68 65 61 64 69 6e 67 20 77 69 74 68 0a 20 20 20 20 20 20 20 20 20 20 3b 3b 20 74 68 ent.heading.with...........;;.th
14200 65 20 73 70 65 63 69 66 69 65 64 20 70 72 6f 70 65 72 74 79 0a 20 20 20 20 20 20 28 6c 65 74 20 e.specified.property.......(let.
14220 28 28 6e 6f 74 65 73 2d 62 75 66 66 65 72 20 28 61 72 65 66 20 69 6e 66 6f 20 30 29 29 0a 20 20 ((notes-buffer.(aref.info.0))...
14240 20 20 20 20 20 20 20 20 20 20 28 77 61 6e 74 65 64 2d 70 72 6f 70 20 20 28 61 72 65 66 20 69 6e ..........(wanted-prop..(aref.in
14260 66 6f 20 31 29 29 29 0a 20 20 20 20 20 20 20 20 28 75 6e 6c 65 73 73 20 28 61 6e 64 20 28 62 75 fo.1))).........(unless.(and.(bu
14280 66 66 65 72 2d 6c 69 76 65 2d 70 20 6e 6f 74 65 73 2d 62 75 66 66 65 72 29 20 28 6f 72 20 28 73 ffer-live-p.notes-buffer).(or.(s
142a0 74 72 69 6e 67 70 20 77 61 6e 74 65 64 2d 70 72 6f 70 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 tringp.wanted-prop).............
142c0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ................................
142e0 20 20 20 20 20 20 20 20 20 20 28 65 71 20 27 6c 69 6e 6b 20 28 6f 72 67 2d 65 6c 65 6d 65 6e 74 ..........(eq.'link.(org-element
14300 2d 74 79 70 65 20 77 61 6e 74 65 64 2d 70 72 6f 70 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 -type.wanted-prop)))............
14320 20 20 20 20 20 20 20 20 20 20 28 65 71 20 28 62 75 66 66 65 72 2d 6c 6f 63 61 6c 2d 76 61 6c 75 ..........(eq.(buffer-local-valu
14340 65 20 27 6d 61 6a 6f 72 2d 6d 6f 64 65 20 6e 6f 74 65 73 2d 62 75 66 66 65 72 29 20 27 6f 72 67 e.'major-mode.notes-buffer).'org
14360 2d 6d 6f 64 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 65 72 72 6f 72 20 22 45 72 72 6f 72 20 -mode))...........(error."Error.
14380 70 61 72 73 69 6e 67 20 72 6f 6f 74 20 77 69 74 68 20 69 6e 76 61 6c 69 64 20 61 72 67 75 6d 65 parsing.root.with.invalid.argume
143a0 6e 74 73 22 29 29 0a 0a 20 20 20 20 20 20 20 20 28 77 69 74 68 2d 63 75 72 72 65 6e 74 2d 62 75 nts"))..........(with-current-bu
143c0 66 66 65 72 20 6e 6f 74 65 73 2d 62 75 66 66 65 72 0a 20 20 20 20 20 20 20 20 20 20 28 6f 72 67 ffer.notes-buffer...........(org
143e0 2d 77 69 74 68 2d 77 69 64 65 2d 62 75 66 66 65 72 0a 20 20 20 20 20 20 20 20 20 20 20 28 63 61 -with-wide-buffer............(ca
14400 74 63 68 20 27 62 72 65 61 6b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 68 69 6c 65 20 74 tch.'break..............(while.t
14420 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 64 6f 63 75 6d 65 6e 74 2d ................(let.((document-
14440 70 72 6f 70 65 72 74 79 20 28 6f 72 67 2d 65 6e 74 72 79 2d 67 65 74 20 6e 69 6c 20 6f 72 67 2d property.(org-entry-get.nil.org-
14460 6e 6f 74 65 72 2d 70 72 6f 70 65 72 74 79 2d 64 6f 63 2d 66 69 6c 65 20 74 29 29 29 0a 20 20 20 noter-property-doc-file.t)))....
14480 20 20 20 20 20 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 6f 72 ..............(when.(string=.(or
144a0 20 28 72 75 6e 2d 68 6f 6f 6b 2d 77 69 74 68 2d 61 72 67 73 2d 75 6e 74 69 6c 2d 73 75 63 63 65 .(run-hook-with-args-until-succe
144c0 73 73 20 27 6f 72 67 2d 6e 6f 74 65 72 2d 70 61 72 73 65 2d 64 6f 63 75 6d 65 6e 74 2d 70 72 6f ss.'org-noter-parse-document-pro
144e0 70 65 72 74 79 2d 68 6f 6f 6b 20 64 6f 63 75 6d 65 6e 74 2d 70 72 6f 70 65 72 74 79 29 0a 20 20 perty-hook.document-property)...
14500 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ................................
14520 20 20 64 6f 63 75 6d 65 6e 74 2d 70 72 6f 70 65 72 74 79 29 0a 20 20 20 20 20 20 20 20 20 20 20 ..document-property)............
14540 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 61 6e 74 65 64 2d 70 72 6f 70 .....................wanted-prop
14560 29 0a 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 6f 6f 74 2d )....................(setq.root-
14580 70 6f 73 20 28 63 6f 70 79 2d 6d 61 72 6b 65 72 20 28 69 66 20 28 61 6e 64 20 6f 72 67 2d 6e 6f pos.(copy-marker.(if.(and.org-no
145a0 74 65 72 2d 70 72 65 66 65 72 2d 72 6f 6f 74 2d 61 73 2d 66 69 6c 65 2d 6c 65 76 65 6c 0a 20 20 ter-prefer-root-as-file-level...
145c0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ................................
145e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 61 76 65 2d 65 78 63 75 ......................(save-excu
14600 72 73 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 20 20 20 rsion...........................
14620 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ................................
14640 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 20 (goto-char.(point-min)).........
14660 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ................................
14680 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 65 71 20 27 70 72 6f 70 65 72 74 79 2d ..................(eq.'property-
146a0 64 72 61 77 65 72 20 28 6f 72 67 2d 65 6c 65 6d 65 6e 74 2d 74 79 70 65 20 28 6f 72 67 2d 65 6c drawer.(org-element-type.(org-el
146c0 65 6d 65 6e 74 2d 61 74 2d 70 6f 69 6e 74 29 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 ement-at-point))))).............
146e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ................................
14700 20 20 20 20 20 20 20 28 70 6f 69 6e 74 2d 6d 69 6e 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 .......(point-min)..............
14720 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ................................
14740 20 20 20 20 28 70 6f 69 6e 74 29 29 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ....(point))))))................
14760 28 75 6e 6c 65 73 73 20 28 6f 72 67 2d 75 70 2d 68 65 61 64 69 6e 67 2d 73 61 66 65 29 20 28 74 (unless.(org-up-heading-safe).(t
14780 68 72 6f 77 20 27 62 72 65 61 6b 20 74 29 29 29 29 29 29 29 29 0a 0a 20 20 20 20 20 28 28 6f 72 hrow.'break.t)))))))).......((or
147a0 67 2d 6e 6f 74 65 72 2d 2d 76 61 6c 69 64 2d 73 65 73 73 69 6f 6e 20 73 65 73 73 69 6f 6e 29 0a g-noter--valid-session.session).
147c0 20 20 20 20 20 20 3b 3b 20 4e 4f 54 45 28 6e 6f 78 29 3a 20 55 73 65 20 73 65 73 73 69 6f 6e 20 ......;;.NOTE(nox):.Use.session.
147e0 74 6f 20 66 69 6e 64 20 68 65 61 64 69 6e 67 0a 20 20 20 20 20 20 28 6f 72 20 28 61 6e 64 20 28 to.find.heading.......(or.(and.(
14800 3d 20 28 62 75 66 66 65 72 2d 63 68 61 72 73 2d 6d 6f 64 69 66 69 65 64 2d 74 69 63 6b 20 28 6f =.(buffer-chars-modified-tick.(o
14820 72 67 2d 6e 6f 74 65 72 2d 2d 73 65 73 73 69 6f 6e 2d 6e 6f 74 65 73 2d 62 75 66 66 65 72 20 73 rg-noter--session-notes-buffer.s
14840 65 73 73 69 6f 6e 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6f 72 67 2d ession))...................(org-
14860 6e 6f 74 65 72 2d 2d 73 65 73 73 69 6f 6e 2d 6d 6f 64 69 66 69 65 64 2d 74 69 63 6b 20 73 65 73 noter--session-modified-tick.ses
14880 73 69 6f 6e 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 61 73 74 20 sion))................(setq.ast.
148a0 28 6f 72 67 2d 6e 6f 74 65 72 2d 2d 73 65 73 73 69 6f 6e 2d 61 73 74 20 73 65 73 73 69 6f 6e 29 (org-noter--session-ast.session)
148c0 29 29 20 3b 20 4e 4f 54 45 28 6e 6f 78 29 3a 20 43 61 63 68 65 64 20 76 65 72 73 69 6f 6e 21 0a )).;.NOTE(nox):.Cached.version!.
148e0 0a 20 20 20 20 20 20 20 20 20 20 3b 3b 20 4e 4f 54 45 28 6e 6f 78 29 3a 20 46 69 6e 64 20 73 65 ...........;;.NOTE(nox):.Find.se
14900 73 73 69 6f 6e 20 69 64 20 74 65 78 74 20 70 72 6f 70 65 72 74 79 0a 20 20 20 20 20 20 20 20 20 ssion.id.text.property..........
14920 20 28 77 69 74 68 2d 63 75 72 72 65 6e 74 2d 62 75 66 66 65 72 20 28 6f 72 67 2d 6e 6f 74 65 72 .(with-current-buffer.(org-noter
14940 2d 2d 73 65 73 73 69 6f 6e 2d 6e 6f 74 65 73 2d 62 75 66 66 65 72 20 73 65 73 73 69 6f 6e 29 0a --session-notes-buffer.session).
14960 20 20 20 20 20 20 20 20 20 20 20 20 28 6f 72 67 2d 77 69 74 68 2d 77 69 64 65 2d 62 75 66 66 65 ............(org-with-wide-buffe
14980 72 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 70 6f 73 20 28 74 65 78 74 2d r..............(let.((pos.(text-
149a0 70 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 property-any.(point-min).(point-
149c0 6d 61 78 29 20 6f 72 67 2d 6e 6f 74 65 72 2d 2d 69 64 2d 74 65 78 74 2d 70 72 6f 70 65 72 74 79 max).org-noter--id-text-property
149e0 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 ................................
14a00 20 20 20 20 20 20 20 20 20 20 20 20 28 6f 72 67 2d 6e 6f 74 65 72 2d 2d 73 65 73 73 69 6f 6e 2d ............(org-noter--session-
14a20 69 64 20 73 65 73 73 69 6f 6e 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 id.session))))................(w
14a40 68 65 6e 20 70 6f 73 20 28 73 65 74 71 20 72 6f 6f 74 2d 70 6f 73 20 28 63 6f 70 79 2d 6d 61 72 hen.pos.(setq.root-pos.(copy-mar
14a60 6b 65 72 20 70 6f 73 29 29 29 29 29 29 29 29 29 0a 0a 20 20 20 20 28 75 6e 6c 65 73 73 20 61 73 ker.pos)))))))))......(unless.as
14a80 74 0a 20 20 20 20 20 20 28 75 6e 6c 65 73 73 20 72 6f 6f 74 2d 70 6f 73 20 28 69 66 20 28 6f 72 t.......(unless.root-pos.(if.(or
14aa0 20 6f 72 67 2d 6e 6f 74 65 72 2d 70 72 65 66 65 72 2d 72 6f 6f 74 2d 61 73 2d 66 69 6c 65 2d 6c .org-noter-prefer-root-as-file-l
14ac0 65 76 65 6c 20 28 6f 72 67 2d 6e 6f 74 65 72 2d 2d 6e 6f 2d 68 65 61 64 69 6e 67 2d 70 29 29 0a evel.(org-noter--no-heading-p)).
14ae0 20 20 20 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 ...........................(setq
14b00 20 72 6f 6f 74 2d 70 6f 73 20 28 63 6f 70 79 2d 6d 61 72 6b 65 72 20 28 70 6f 69 6e 74 2d 6d 69 .root-pos.(copy-marker.(point-mi
14b20 6e 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 28 6f n)))..........................(o
14b40 72 67 2d 6e 65 78 74 2d 76 69 73 69 62 6c 65 2d 68 65 61 64 69 6e 67 20 31 29 0a 20 20 20 20 20 rg-next-visible-heading.1)......
14b60 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 6f 6f 74 2d 70 ....................(setq.root-p
14b80 6f 73 20 28 63 6f 70 79 2d 6d 61 72 6b 65 72 20 28 70 6f 69 6e 74 29 29 29 29 29 0a 20 20 20 20 os.(copy-marker.(point))))).....
14ba0 20 20 28 77 69 74 68 2d 63 75 72 72 65 6e 74 2d 62 75 66 66 65 72 20 28 6d 61 72 6b 65 72 2d 62 ..(with-current-buffer.(marker-b
14bc0 75 66 66 65 72 20 72 6f 6f 74 2d 70 6f 73 29 0a 20 20 20 20 20 20 20 20 28 6f 72 67 2d 77 69 74 uffer.root-pos).........(org-wit
14be0 68 2d 70 6f 69 6e 74 2d 61 74 20 28 6d 61 72 6b 65 72 2d 70 6f 73 69 74 69 6f 6e 20 72 6f 6f 74 h-point-at.(marker-position.root
14c00 2d 70 6f 73 29 0a 20 20 20 20 20 20 20 20 20 20 28 6f 72 67 2d 62 61 63 6b 2d 74 6f 2d 68 65 61 -pos)...........(org-back-to-hea
14c20 64 69 6e 67 2d 6f 72 2d 70 6f 69 6e 74 2d 6d 69 6e 20 74 29 0a 20 20 20 20 20 20 20 20 20 20 28 ding-or-point-min.t)...........(
14c40 69 66 20 28 6f 72 67 2d 61 74 2d 68 65 61 64 69 6e 67 2d 70 29 0a 20 20 20 20 20 20 20 20 20 20 if.(org-at-heading-p)...........
14c60 20 20 20 20 28 6f 72 67 2d 6e 61 72 72 6f 77 2d 74 6f 2d 73 75 62 74 72 65 65 29 0a 20 20 20 20 ....(org-narrow-to-subtree).....
14c80 20 20 20 20 20 20 20 20 28 6f 72 67 2d 68 69 64 65 2d 64 72 61 77 65 72 2d 74 6f 67 67 6c 65 20 ........(org-hide-drawer-toggle.
14ca0 27 66 6f 72 63 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 61 73 74 20 28 63 61 'force))...........(setq.ast.(ca
14cc0 72 20 28 6f 72 67 2d 65 6c 65 6d 65 6e 74 2d 63 6f 6e 74 65 6e 74 73 20 28 6f 72 67 2d 65 6c 65 r.(org-element-contents.(org-ele
14ce0 6d 65 6e 74 2d 70 61 72 73 65 2d 62 75 66 66 65 72 20 27 67 72 65 61 74 65 72 2d 65 6c 65 6d 65 ment-parse-buffer.'greater-eleme
14d00 6e 74 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 28 61 6e 64 20 28 6e 6f 74 nt))))...........(when.(and.(not
14d20 20 28 76 65 63 74 6f 72 70 20 69 6e 66 6f 29 29 20 28 6f 72 67 2d 6e 6f 74 65 72 2d 2d 76 61 6c .(vectorp.info)).(org-noter--val
14d40 69 64 2d 73 65 73 73 69 6f 6e 20 73 65 73 73 69 6f 6e 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 id-session.session))............
14d60 20 28 73 65 74 66 20 28 6f 72 67 2d 6e 6f 74 65 72 2d 2d 73 65 73 73 69 6f 6e 2d 61 73 74 20 73 .(setf.(org-noter--session-ast.s
14d80 65 73 73 69 6f 6e 29 20 61 73 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6f ession).ast...................(o
14da0 72 67 2d 6e 6f 74 65 72 2d 2d 73 65 73 73 69 6f 6e 2d 6d 6f 64 69 66 69 65 64 2d 74 69 63 6b 20 rg-noter--session-modified-tick.
14dc0 73 65 73 73 69 6f 6e 29 20 28 62 75 66 66 65 72 2d 63 68 61 72 73 2d 6d 6f 64 69 66 69 65 64 2d session).(buffer-chars-modified-
14de0 74 69 63 6b 29 29 29 29 29 29 0a 20 20 20 20 61 73 74 29 29 0a 0a 28 64 65 66 75 6e 20 6f 72 67 tick)))))).....ast))..(defun.org
14e00 2d 6e 6f 74 65 72 2d 2d 67 65 74 2d 70 72 6f 70 65 72 74 69 65 73 2d 65 6e 64 20 28 61 73 74 20 -noter--get-properties-end.(ast.
14e20 26 6f 70 74 69 6f 6e 61 6c 20 66 6f 72 63 65 2d 74 72 69 6d 29 0a 20 20 28 77 68 65 6e 20 61 73 &optional.force-trim)...(when.as
14e40 74 0a 20 20 20 20 28 6c 65 74 2a 20 28 28 63 6f 6e 74 65 6e 74 73 20 28 6f 72 67 2d 65 6c 65 6d t.....(let*.((contents.(org-elem
14e60 65 6e 74 2d 63 6f 6e 74 65 6e 74 73 20 61 73 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 73 ent-contents.ast))............(s
14e80 65 63 74 69 6f 6e 20 28 6f 72 67 2d 65 6c 65 6d 65 6e 74 2d 6d 61 70 20 63 6f 6e 74 65 6e 74 73 ection.(org-element-map.contents
14ea0 20 27 73 65 63 74 69 6f 6e 20 27 69 64 65 6e 74 69 74 79 20 6e 69 6c 20 74 20 27 68 65 61 64 6c .'section.'identity.nil.t.'headl
14ec0 69 6e 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 70 72 6f 70 65 72 74 69 65 73 20 28 6f 72 ine))............(properties.(or
14ee0 20 28 6f 72 67 2d 65 6c 65 6d 65 6e 74 2d 6d 61 70 20 73 65 63 74 69 6f 6e 20 27 70 72 6f 70 65 .(org-element-map.section.'prope
14f00 72 74 79 2d 64 72 61 77 65 72 20 27 69 64 65 6e 74 69 74 79 20 6e 69 6c 20 74 29 0a 20 20 20 20 rty-drawer.'identity.nil.t).....
14f20 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 67 2d 65 6c 65 6d .......................(org-elem
14f40 65 6e 74 2d 6d 61 70 20 63 6f 6e 74 65 6e 74 73 20 27 70 72 6f 70 65 72 74 79 2d 64 72 61 77 65 ent-map.contents.'property-drawe
14f60 72 20 27 69 64 65 6e 74 69 74 79 20 6e 69 6c 20 74 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 r.'identity.nil.t)))............
14f80 70 72 6f 70 65 72 74 69 65 73 2d 65 6e 64 29 0a 20 20 20 20 20 20 28 69 66 20 28 6e 6f 74 20 70 properties-end).......(if.(not.p
14fa0 72 6f 70 65 72 74 69 65 73 29 0a 20 20 20 20 20 20 20 20 20 20 28 6f 72 67 2d 65 6c 65 6d 65 6e roperties)...........(org-elemen
14fc0 74 2d 70 72 6f 70 65 72 74 79 20 3a 63 6f 6e 74 65 6e 74 73 2d 62 65 67 69 6e 20 61 73 74 29 0a t-property.:contents-begin.ast).
14fe0 20 20 20 20 20 20 20 20 28 73 65 74 71 20 70 72 6f 70 65 72 74 69 65 73 2d 65 6e 64 20 28 6f 72 ........(setq.properties-end.(or
15000 67 2d 65 6c 65 6d 65 6e 74 2d 70 72 6f 70 65 72 74 79 20 3a 65 6e 64 20 70 72 6f 70 65 72 74 69 g-element-property.:end.properti
15020 65 73 29 29 0a 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 28 6f 72 20 66 6f 72 63 65 2d 74 72 69 es)).........(when.(or.force-tri
15040 6d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 3d 20 28 6f 72 67 2d 65 6c 65 6d m...................(=.(org-elem
15060 65 6e 74 2d 70 72 6f 70 65 72 74 79 20 3a 65 6e 64 20 73 65 63 74 69 6f 6e 29 20 70 72 6f 70 65 ent-property.:end.section).prope
15080 72 74 69 65 73 2d 65 6e 64 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 77 68 69 6c 65 20 28 6e 6f rties-end))...........(while.(no
150a0 74 20 28 65 71 20 28 63 68 61 72 2d 62 65 66 6f 72 65 20 70 72 6f 70 65 72 74 69 65 73 2d 65 6e t.(eq.(char-before.properties-en
150c0 64 29 20 3f 3a 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 70 72 6f 70 65 72 d).?:)).............(setq.proper
150e0 74 69 65 73 2d 65 6e 64 20 28 31 2d 20 70 72 6f 70 65 72 74 69 65 73 2d 65 6e 64 29 29 29 29 0a ties-end.(1-.properties-end)))).
15100 20 20 20 20 20 20 20 20 70 72 6f 70 65 72 74 69 65 73 2d 65 6e 64 29 29 29 29 0a 0a 28 64 65 66 ........properties-end))))..(def
15120 75 6e 20 6f 72 67 2d 6e 6f 74 65 72 2d 2d 73 65 74 2d 74 65 78 74 2d 70 72 6f 70 65 72 74 69 65 un.org-noter--set-text-propertie
15140 73 20 28 61 73 74 20 69 64 29 0a 20 20 28 6f 72 67 2d 77 69 74 68 2d 77 69 64 65 2d 62 75 66 66 s.(ast.id)...(org-with-wide-buff
15160 65 72 0a 20 20 20 28 77 68 65 6e 20 61 73 74 0a 20 20 20 20 20 28 6c 65 74 2a 20 28 28 6c 65 76 er....(when.ast......(let*.((lev
15180 65 6c 20 28 6f 72 20 28 6f 72 67 2d 65 6c 65 6d 65 6e 74 2d 70 72 6f 70 65 72 74 79 20 3a 6c 65 el.(or.(org-element-property.:le
151a0 76 65 6c 20 61 73 74 29 20 30 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 62 65 67 69 6e 20 vel.ast).0)).............(begin.
151c0 28 6f 72 67 2d 65 6c 65 6d 65 6e 74 2d 70 72 6f 70 65 72 74 79 20 3a 62 65 67 69 6e 20 61 73 74 (org-element-property.:begin.ast
151e0 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 74 69 74 6c 65 2d 62 65 67 69 6e 20 28 2b 20 31 )).............(title-begin.(+.1
15200 20 6c 65 76 65 6c 20 62 65 67 69 6e 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 6e 74 .level.begin)).............(cont
15220 65 6e 74 73 2d 62 65 67 69 6e 20 28 6f 72 67 2d 65 6c 65 6d 65 6e 74 2d 70 72 6f 70 65 72 74 79 ents-begin.(org-element-property
15240 20 3a 63 6f 6e 74 65 6e 74 73 2d 62 65 67 69 6e 20 61 73 74 29 29 0a 20 20 20 20 20 20 20 20 20 .:contents-begin.ast))..........
15260 20 20 20 28 70 72 6f 70 65 72 74 69 65 73 2d 65 6e 64 20 28 6f 72 67 2d 6e 6f 74 65 72 2d 2d 67 ...(properties-end.(org-noter--g
15280 65 74 2d 70 72 6f 70 65 72 74 69 65 73 2d 65 6e 64 20 61 73 74 20 74 29 29 0a 20 20 20 20 20 20 et-properties-end.ast.t)).......
152a0 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 20 20 20 ......(inhibit-read-only.t).....
152c0 20 20 20 20 20 20 20 20 28 6d 6f 64 69 66 69 65 64 20 28 62 75 66 66 65 72 2d 6d 6f 64 69 66 69 ........(modified.(buffer-modifi
152e0 65 64 2d 70 29 29 29 0a 20 20 20 20 20 20 20 28 69 66 20 28 3d 20 6c 65 76 65 6c 20 30 29 0a 20 ed-p)))........(if.(=.level.0)..
15300 20 20 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 70 72 6f 70 65 72 74 69 65 73 2d 65 6e 64 0a 20 ..........(when.properties-end..
15320 20 20 20 20 20 20 20 20 20 20 20 20 28 61 64 64 2d 74 65 78 74 2d 70 72 6f 70 65 72 74 69 65 73 ............(add-text-properties
15340 20 63 6f 6e 74 65 6e 74 73 2d 62 65 67 69 6e 20 70 72 6f 70 65 72 74 69 65 73 2d 65 6e 64 0a 20 .contents-begin.properties-end..
15360 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ................................
15380 20 60 28 72 65 61 64 2d 6f 6e 6c 79 20 74 20 72 65 61 72 2d 6e 6f 6e 73 74 69 63 6b 79 20 74 20 .`(read-only.t.rear-nonsticky.t.
153a0 2c 6f 72 67 2d 6e 6f 74 65 72 2d 2d 69 64 2d 74 65 78 74 2d 70 72 6f 70 65 72 74 79 20 2c 69 64 ,org-noter--id-text-property.,id
153c0 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 72 2d 6d 6f 64 69 ))..............(set-buffer-modi
153e0 66 69 65 64 2d 70 20 6d 6f 64 69 66 69 65 64 29 29 0a 20 20 20 20 20 20 20 20 20 28 61 64 64 2d fied-p.modified))..........(add-
15400 74 65 78 74 2d 70 72 6f 70 65 72 74 69 65 73 20 28 6d 61 78 20 31 20 28 31 2d 20 62 65 67 69 6e text-properties.(max.1.(1-.begin
15420 29 29 20 62 65 67 69 6e 20 27 28 72 65 61 64 2d 6f 6e 6c 79 20 74 29 29 0a 20 20 20 20 20 20 20 )).begin.'(read-only.t))........
15440 20 20 28 61 64 64 2d 74 65 78 74 2d 70 72 6f 70 65 72 74 69 65 73 20 62 65 67 69 6e 20 28 31 2d ..(add-text-properties.begin.(1-
15460 20 74 69 74 6c 65 2d 62 65 67 69 6e 29 20 60 28 72 65 61 64 2d 6f 6e 6c 79 20 74 20 66 72 6f 6e .title-begin).`(read-only.t.fron
15480 74 2d 73 74 69 63 6b 79 20 74 20 2c 6f 72 67 2d 6e 6f 74 65 72 2d 2d 69 64 2d 74 65 78 74 2d 70 t-sticky.t.,org-noter--id-text-p
154a0 72 6f 70 65 72 74 79 20 2c 69 64 29 29 0a 20 20 20 20 20 20 20 20 20 28 61 64 64 2d 74 65 78 74 roperty.,id))..........(add-text
154c0 2d 70 72 6f 70 65 72 74 69 65 73 20 28 31 2d 20 74 69 74 6c 65 2d 62 65 67 69 6e 29 20 74 69 74 -properties.(1-.title-begin).tit
154e0 6c 65 2d 62 65 67 69 6e 20 27 28 72 65 61 64 2d 6f 6e 6c 79 20 74 20 72 65 61 72 2d 6e 6f 6e 73 le-begin.'(read-only.t.rear-nons
15500 74 69 63 6b 79 20 74 29 29 0a 20 20 20 20 20 20 20 20 20 3b 3b 20 28 61 64 64 2d 74 65 78 74 2d ticky.t))..........;;.(add-text-
15520 70 72 6f 70 65 72 74 69 65 73 20 28 31 2d 20 63 6f 6e 74 65 6e 74 73 2d 62 65 67 69 6e 29 20 28 properties.(1-.contents-begin).(
15540 31 2d 20 70 72 6f 70 65 72 74 69 65 73 2d 65 6e 64 29 20 27 28 72 65 61 64 2d 6f 6e 6c 79 20 74 1-.properties-end).'(read-only.t
15560 29 29 0a 20 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 70 72 6f 70 65 72 74 69 65 73 2d 65 6e 64 ))..........(when.properties-end
15580 0a 20 20 20 20 20 20 20 20 20 20 20 28 61 64 64 2d 74 65 78 74 2d 70 72 6f 70 65 72 74 69 65 73 ............(add-text-properties
155a0 20 28 31 2d 20 70 72 6f 70 65 72 74 69 65 73 2d 65 6e 64 29 20 70 72 6f 70 65 72 74 69 65 73 2d .(1-.properties-end).properties-
155c0 65 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 20 end.............................
155e0 20 20 20 20 27 28 72 65 61 64 2d 6f 6e 6c 79 20 74 20 72 65 61 72 2d 6e 6f 6e 73 74 69 63 6b 79 ....'(read-only.t.rear-nonsticky
15600 20 74 29 29 29 0a 20 20 20 20 20 20 20 20 20 28 73 65 74 2d 62 75 66 66 65 72 2d 6d 6f 64 69 66 .t)))..........(set-buffer-modif
15620 69 65 64 2d 70 20 6d 6f 64 69 66 69 65 64 29 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 6f 72 67 ied-p.modified))))))..(defun.org
15640 2d 6e 6f 74 65 72 2d 2d 75 6e 73 65 74 2d 74 65 78 74 2d 70 72 6f 70 65 72 74 69 65 73 20 28 61 -noter--unset-text-properties.(a
15660 73 74 29 0a 20 20 28 77 68 65 6e 20 61 73 74 0a 20 20 20 20 28 6f 72 67 2d 77 69 74 68 2d 77 69 st)...(when.ast.....(org-with-wi
15680 64 65 2d 62 75 66 66 65 72 0a 20 20 20 20 20 28 6c 65 74 2a 20 28 28 62 65 67 69 6e 20 28 6f 72 de-buffer......(let*.((begin.(or
156a0 67 2d 65 6c 65 6d 65 6e 74 2d 70 72 6f 70 65 72 74 79 20 3a 62 65 67 69 6e 20 61 73 74 29 29 0a g-element-property.:begin.ast)).
156c0 20 20 20 20 20 20 20 20 20 20 20 20 28 65 6e 64 20 28 6f 72 67 2d 6e 6f 74 65 72 2d 2d 67 65 74 ............(end.(org-noter--get
156e0 2d 70 72 6f 70 65 72 74 69 65 73 2d 65 6e 64 20 61 73 74 20 74 29 29 0a 20 20 20 20 20 20 20 20 -properties-end.ast.t)).........
15700 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 20 20 20 20 20 ....(inhibit-read-only.t).......
15720 20 20 20 20 20 20 28 6d 6f 64 69 66 69 65 64 20 28 62 75 66 66 65 72 2d 6d 6f 64 69 66 69 65 64 ......(modified.(buffer-modified
15740 2d 70 29 29 29 0a 20 20 20 20 20 20 20 28 77 68 65 6e 20 65 6e 64 0a 20 20 20 20 20 20 20 20 20 -p)))........(when.end..........
15760 28 72 65 6d 6f 76 65 2d 6c 69 73 74 2d 6f 66 2d 74 65 78 74 2d 70 72 6f 70 65 72 74 69 65 73 20 (remove-list-of-text-properties.
15780 28 6d 61 78 20 31 20 28 31 2d 20 62 65 67 69 6e 29 29 20 65 6e 64 0a 20 20 20 20 20 20 20 20 20 (max.1.(1-.begin)).end..........
157a0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ................................
157c0 60 28 72 65 61 64 2d 6f 6e 6c 79 20 66 72 6f 6e 74 2d 73 74 69 63 6b 79 20 72 65 61 72 2d 6e 6f `(read-only.front-sticky.rear-no
157e0 6e 73 74 69 63 6b 79 20 2c 6f 72 67 2d 6e 6f 74 65 72 2d 2d 69 64 2d 74 65 78 74 2d 70 72 6f 70 nsticky.,org-noter--id-text-prop
15800 65 72 74 79 29 29 0a 0a 20 20 20 20 20 20 20 20 20 28 73 65 74 2d 62 75 66 66 65 72 2d 6d 6f 64 erty))...........(set-buffer-mod
15820 69 66 69 65 64 2d 70 20 6d 6f 64 69 66 69 65 64 29 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 6f ified-p.modified))))))..(defun.o
15840 72 67 2d 6e 6f 74 65 72 2d 2d 73 65 74 2d 6e 6f 74 65 73 2d 73 63 72 6f 6c 6c 20 28 77 69 6e 64 rg-noter--set-notes-scroll.(wind
15860 6f 77 20 26 72 65 73 74 20 69 67 6e 6f 72 65 64 29 0a 20 20 28 77 68 65 6e 20 77 69 6e 64 6f 77 ow.&rest.ignored)...(when.window
15880 0a 20 20 20 20 28 77 69 74 68 2d 73 65 6c 65 63 74 65 64 2d 77 69 6e 64 6f 77 20 77 69 6e 64 6f .....(with-selected-window.windo
158a0 77 0a 20 20 20 20 20 20 28 6f 72 67 2d 6e 6f 74 65 72 2d 2d 77 69 74 68 2d 76 61 6c 69 64 2d 73 w.......(org-noter--with-valid-s
158c0 65 73 73 69 6f 6e 0a 20 20 20 20 20 20 20 28 6c 65 74 2a 20 28 28 6c 65 76 65 6c 20 28 6f 72 67 ession........(let*.((level.(org
158e0 2d 6e 6f 74 65 72 2d 2d 73 65 73 73 69 6f 6e 2d 6c 65 76 65 6c 20 73 65 73 73 69 6f 6e 29 29 0a -noter--session-level.session)).
15900 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 67 6f 61 6c 20 28 2a 20 28 31 2d 20 6c 65 76 65 6c ..............(goal.(*.(1-.level
15920 29 20 32 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 75 72 72 65 6e 74 2d 73 63 72 ).2))...............(current-scr
15940 6f 6c 6c 20 28 77 69 6e 64 6f 77 2d 68 73 63 72 6f 6c 6c 29 29 29 0a 20 20 20 20 20 20 20 20 20 oll.(window-hscroll)))..........
15960 28 77 68 65 6e 20 28 61 6e 64 20 28 62 6f 75 6e 64 2d 61 6e 64 2d 74 72 75 65 2d 70 20 6f 72 67 (when.(and.(bound-and-true-p.org
15980 2d 69 6e 64 65 6e 74 2d 6d 6f 64 65 29 20 28 3c 20 63 75 72 72 65 6e 74 2d 73 63 72 6f 6c 6c 20 -indent-mode).(<.current-scroll.
159a0 67 6f 61 6c 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 73 63 72 6f 6c 6c 2d 72 69 67 68 74 20 goal))............(scroll-right.
159c0 63 75 72 72 65 6e 74 2d 73 63 72 6f 6c 6c 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 73 63 72 6f current-scroll)............(scro
159e0 6c 6c 2d 6c 65 66 74 20 67 6f 61 6c 20 74 29 29 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 6f 72 ll-left.goal.t)))))))..(defun.or
15a00 67 2d 6e 6f 74 65 72 2d 2d 69 6e 73 65 72 74 2d 68 65 61 64 69 6e 67 20 28 6c 65 76 65 6c 20 74 g-noter--insert-heading.(level.t
15a20 69 74 6c 65 20 26 6f 70 74 69 6f 6e 61 6c 20 6e 65 77 6c 69 6e 65 73 2d 6e 75 6d 62 65 72 20 6c itle.&optional.newlines-number.l
15a40 6f 63 61 74 69 6f 6e 29 0a 20 20 22 49 6e 73 65 72 74 20 61 20 6e 65 77 20 68 65 61 64 69 6e 67 ocation)..."Insert.a.new.heading
15a60 20 61 74 20 4c 45 56 45 4c 20 77 69 74 68 20 54 49 54 4c 45 2e 0a 54 68 65 20 70 6f 69 6e 74 20 .at.LEVEL.with.TITLE..The.point.
15a80 77 69 6c 6c 20 62 65 20 61 74 20 74 68 65 20 73 74 61 72 74 20 6f 66 20 74 68 65 20 63 6f 6e 74 will.be.at.the.start.of.the.cont
15aa0 65 6e 74 73 2c 20 61 66 74 65 72 20 61 6e 79 0a 70 72 6f 70 65 72 74 69 65 73 2c 20 62 79 20 61 ents,.after.any.properties,.by.a
15ac0 20 6d 61 72 67 69 6e 20 6f 66 20 4e 45 57 4c 49 4e 45 53 2d 4e 55 4d 42 45 52 2e 0a 0a 57 68 65 .margin.of.NEWLINES-NUMBER...Whe
15ae0 6e 20 4c 4f 43 41 54 49 4f 4e 20 69 73 20 70 72 6f 76 64 65 64 2c 20 69 74 20 69 73 20 77 72 69 n.LOCATION.is.provded,.it.is.wri
15b00 74 74 65 6e 20 69 6e 74 6f 20 74 68 65 20 70 72 6f 70 65 72 74 79 20 64 72 61 77 65 72 0a 6f 66 tten.into.the.property.drawer.of
15b20 20 74 68 65 20 68 65 61 64 69 6e 67 20 75 6e 64 65 72 20 60 6f 72 67 2d 6e 6f 74 65 72 2d 70 72 .the.heading.under.`org-noter-pr
15b40 6f 70 65 72 74 79 2d 6e 6f 74 65 2d 6c 6f 63 61 74 69 6f 6e 27 20 28 64 65 66 61 75 6c 74 3a 0a operty-note-location'.(default:.
15b60 4e 4f 54 45 52 5f 50 41 47 45 29 2e 22 0a 20 20 28 73 65 74 71 20 6e 65 77 6c 69 6e 65 73 2d 6e NOTER_PAGE)."...(setq.newlines-n
15b80 75 6d 62 65 72 20 28 6f 72 20 6e 65 77 6c 69 6e 65 73 2d 6e 75 6d 62 65 72 20 31 29 29 0a 20 20 umber.(or.newlines-number.1))...
15ba0 28 6f 72 67 2d 69 6e 73 65 72 74 2d 68 65 61 64 69 6e 67 20 6e 69 6c 20 74 29 0a 20 20 28 6c 65 (org-insert-heading.nil.t)...(le
15bc0 74 2a 20 28 28 69 6e 69 74 69 61 6c 2d 6c 65 76 65 6c 20 28 6f 72 67 2d 65 6c 65 6d 65 6e 74 2d t*.((initial-level.(org-element-
15be0 70 72 6f 70 65 72 74 79 20 3a 6c 65 76 65 6c 20 28 6f 72 67 2d 65 6c 65 6d 65 6e 74 2d 61 74 2d property.:level.(org-element-at-
15c00 70 6f 69 6e 74 29 29 29 0a 20 20 20 20 20 20 20 20 20 28 63 68 61 6e 67 65 72 20 28 69 66 20 28 point)))..........(changer.(if.(
15c20 3e 20 6c 65 76 65 6c 20 69 6e 69 74 69 61 6c 2d 6c 65 76 65 6c 29 20 27 6f 72 67 2d 64 6f 2d 64 >.level.initial-level).'org-do-d
15c40 65 6d 6f 74 65 20 27 6f 72 67 2d 64 6f 2d 70 72 6f 6d 6f 74 65 29 29 0a 20 20 20 20 20 20 20 20 emote.'org-do-promote)).........
15c60 20 28 6e 75 6d 62 65 72 2d 6f 66 2d 74 69 6d 65 73 20 28 61 62 73 20 28 2d 20 6c 65 76 65 6c 20 .(number-of-times.(abs.(-.level.
15c80 69 6e 69 74 69 61 6c 2d 6c 65 76 65 6c 29 29 29 29 0a 20 20 20 20 28 64 6f 74 69 6d 65 73 20 28 initial-level)))).....(dotimes.(
15ca0 5f 20 6e 75 6d 62 65 72 2d 6f 66 2d 74 69 6d 65 73 29 20 28 66 75 6e 63 61 6c 6c 20 63 68 61 6e _.number-of-times).(funcall.chan
15cc0 67 65 72 29 29 0a 20 20 20 20 28 69 6e 73 65 72 74 20 28 6f 72 67 2d 74 72 69 6d 20 28 72 65 70 ger)).....(insert.(org-trim.(rep
15ce0 6c 61 63 65 2d 72 65 67 65 78 70 2d 69 6e 2d 73 74 72 69 6e 67 20 22 5c 6e 22 20 22 20 22 20 74 lace-regexp-in-string."\n".".".t
15d00 69 74 6c 65 29 29 29 0a 0a 20 20 20 20 28 6f 72 67 2d 65 6e 64 2d 6f 66 2d 73 75 62 74 72 65 65 itle)))......(org-end-of-subtree
15d20 29 0a 20 20 20 20 28 75 6e 6c 65 73 73 20 28 62 6f 6c 70 29 20 28 69 6e 73 65 72 74 20 22 5c 6e ).....(unless.(bolp).(insert."\n
15d40 22 29 29 0a 20 20 20 20 28 6f 72 67 2d 4e 2d 65 6d 70 74 79 2d 6c 69 6e 65 73 2d 62 65 66 6f 72 ")).....(org-N-empty-lines-befor
15d60 65 2d 63 75 72 72 65 6e 74 20 28 31 2d 20 6e 65 77 6c 69 6e 65 73 2d 6e 75 6d 62 65 72 29 29 0a e-current.(1-.newlines-number)).
15d80 0a 20 20 20 20 28 77 68 65 6e 20 6c 6f 63 61 74 69 6f 6e 0a 20 20 20 20 20 20 28 6f 72 67 2d 65 .....(when.location.......(org-e
15da0 6e 74 72 79 2d 70 75 74 20 6e 69 6c 20 6f 72 67 2d 6e 6f 74 65 72 2d 70 72 6f 70 65 72 74 79 2d ntry-put.nil.org-noter-property-
15dc0 6e 6f 74 65 2d 6c 6f 63 61 74 69 6f 6e 20 28 6f 72 67 2d 6e 6f 74 65 72 2d 2d 70 72 65 74 74 79 note-location.(org-noter--pretty
15de0 2d 70 72 69 6e 74 2d 6c 6f 63 61 74 69 6f 6e 20 6c 6f 63 61 74 69 6f 6e 29 29 0a 0a 20 20 20 20 -print-location.location))......
15e00 20 20 28 77 68 65 6e 20 6f 72 67 2d 6e 6f 74 65 72 2d 64 6f 63 2d 70 72 6f 70 65 72 74 79 2d 69 ..(when.org-noter-doc-property-i
15e20 6e 2d 6e 6f 74 65 73 0a 20 20 20 20 20 20 20 20 28 6f 72 67 2d 6e 6f 74 65 72 2d 2d 77 69 74 68 n-notes.........(org-noter--with
15e40 2d 76 61 6c 69 64 2d 73 65 73 73 69 6f 6e 0a 20 20 20 20 20 20 20 20 20 28 6f 72 67 2d 65 6e 74 -valid-session..........(org-ent
15e60 72 79 2d 70 75 74 20 6e 69 6c 20 6f 72 67 2d 6e 6f 74 65 72 2d 70 72 6f 70 65 72 74 79 2d 64 6f ry-put.nil.org-noter-property-do
15e80 63 2d 66 69 6c 65 20 28 6f 72 67 2d 6e 6f 74 65 72 2d 2d 73 65 73 73 69 6f 6e 2d 70 72 6f 70 65 c-file.(org-noter--session-prope
15ea0 72 74 79 2d 74 65 78 74 20 73 65 73 73 69 6f 6e 29 29 0a 20 20 20 20 20 20 20 20 20 28 6f 72 67 rty-text.session))..........(org
15ec0 2d 65 6e 74 72 79 2d 70 75 74 20 6e 69 6c 20 6f 72 67 2d 6e 6f 74 65 72 2d 2d 70 72 6f 70 65 72 -entry-put.nil.org-noter--proper
15ee0 74 79 2d 61 75 74 6f 2d 73 61 76 65 2d 6c 61 73 74 2d 6c 6f 63 61 74 69 6f 6e 20 22 6e 69 6c 22 ty-auto-save-last-location."nil"
15f00 29 29 29 29 0a 0a 20 20 20 20 28 72 75 6e 2d 68 6f 6f 6b 73 20 27 6f 72 67 2d 6e 6f 74 65 72 2d ))))......(run-hooks.'org-noter-
15f20 69 6e 73 65 72 74 2d 68 65 61 64 69 6e 67 2d 68 6f 6f 6b 29 29 29 0a 0a 28 64 65 66 75 6e 20 6f insert-heading-hook)))..(defun.o
15f40 72 67 2d 6e 6f 74 65 72 2d 2d 6e 61 72 72 6f 77 2d 74 6f 2d 72 6f 6f 74 20 28 61 73 74 29 0a 20 rg-noter--narrow-to-root.(ast)..
15f60 20 28 77 68 65 6e 20 28 61 6e 64 20 61 73 74 20 28 6e 6f 74 20 28 6f 72 67 2d 6e 6f 74 65 72 2d .(when.(and.ast.(not.(org-noter-
15f80 2d 6e 6f 2d 68 65 61 64 69 6e 67 2d 70 29 29 29 0a 20 20 20 20 28 73 61 76 65 2d 65 78 63 75 72 -no-heading-p))).....(save-excur
15fa0 73 69 6f 6e 0a 20 20 20 20 20 20 28 67 6f 74 6f 2d 63 68 61 72 20 28 6f 72 67 2d 65 6c 65 6d 65 sion.......(goto-char.(org-eleme
15fc0 6e 74 2d 70 72 6f 70 65 72 74 79 20 3a 63 6f 6e 74 65 6e 74 73 2d 62 65 67 69 6e 20 61 73 74 29 nt-property.:contents-begin.ast)
15fe0 29 0a 20 20 20 20 20 20 28 6f 72 67 2d 73 68 6f 77 2d 65 6e 74 72 79 29 0a 20 20 20 20 20 20 28 ).......(org-show-entry).......(
16000 6f 72 67 2d 6e 61 72 72 6f 77 2d 74 6f 2d 73 75 62 74 72 65 65 29 0a 20 20 20 20 20 20 28 6f 72 org-narrow-to-subtree).......(or
16020 67 2d 63 79 63 6c 65 2d 68 69 64 65 2d 64 72 61 77 65 72 73 20 27 61 6c 6c 29 29 29 29 0a 0a 28 g-cycle-hide-drawers.'all))))..(
16040 64 65 66 75 6e 20 6f 72 67 2d 6e 6f 74 65 72 2d 2d 67 65 74 2d 64 6f 63 2d 77 69 6e 64 6f 77 20 defun.org-noter--get-doc-window.
16060 28 29 0a 20 20 28 6f 72 67 2d 6e 6f 74 65 72 2d 2d 77 69 74 68 2d 76 61 6c 69 64 2d 73 65 73 73 ()...(org-noter--with-valid-sess
16080 69 6f 6e 0a 20 20 20 28 6f 72 20 28 67 65 74 2d 62 75 66 66 65 72 2d 77 69 6e 64 6f 77 20 28 6f ion....(or.(get-buffer-window.(o
160a0 72 67 2d 6e 6f 74 65 72 2d 2d 73 65 73 73 69 6f 6e 2d 64 6f 63 2d 62 75 66 66 65 72 20 73 65 73 rg-noter--session-doc-buffer.ses
160c0 73 69 6f 6e 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 sion)...........................
160e0 28 6f 72 67 2d 6e 6f 74 65 72 2d 2d 73 65 73 73 69 6f 6e 2d 66 72 61 6d 65 20 73 65 73 73 69 6f (org-noter--session-frame.sessio
16100 6e 29 29 0a 20 20 20 20 20 20 20 28 6f 72 67 2d 6e 6f 74 65 72 2d 2d 73 65 74 75 70 2d 77 69 6e n))........(org-noter--setup-win
16120 64 6f 77 73 20 6f 72 67 2d 6e 6f 74 65 72 2d 2d 73 65 73 73 69 6f 6e 29 0a 20 20 20 20 20 20 20 dows.org-noter--session)........
16140 28 67 65 74 2d 62 75 66 66 65 72 2d 77 69 6e 64 6f 77 20 28 6f 72 67 2d 6e 6f 74 65 72 2d 2d 73 (get-buffer-window.(org-noter--s
16160 65 73 73 69 6f 6e 2d 64 6f 63 2d 62 75 66 66 65 72 20 73 65 73 73 69 6f 6e 29 0a 20 20 20 20 20 ession-doc-buffer.session)......
16180 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6f 72 67 2d 6e 6f 74 65 72 2d .....................(org-noter-
161a0 2d 73 65 73 73 69 6f 6e 2d 66 72 61 6d 65 20 73 65 73 73 69 6f 6e 29 29 29 29 29 0a 0a 28 64 65 -session-frame.session)))))..(de
161c0 66 75 6e 20 6f 72 67 2d 6e 6f 74 65 72 2d 2d 67 65 74 2d 6e 6f 74 65 73 2d 77 69 6e 64 6f 77 20 fun.org-noter--get-notes-window.
161e0 28 26 6f 70 74 69 6f 6e 61 6c 20 74 79 70 65 29 0a 20 20 22 43 6f 6e 6a 75 72 65 20 74 68 65 20 (&optional.type)..."Conjure.the.
16200 6e 6f 74 65 73 2d 77 69 6e 64 6f 77 20 66 72 6f 6d 20 74 68 65 20 76 6f 69 64 2e 22 0a 20 20 28 notes-window.from.the.void."...(
16220 6f 72 67 2d 6e 6f 74 65 72 2d 2d 77 69 74 68 2d 76 61 6c 69 64 2d 73 65 73 73 69 6f 6e 0a 20 20 org-noter--with-valid-session...
16240 20 28 6c 65 74 20 28 28 6e 6f 74 65 73 2d 62 75 66 66 65 72 20 28 6f 72 67 2d 6e 6f 74 65 72 2d .(let.((notes-buffer.(org-noter-
16260 2d 73 65 73 73 69 6f 6e 2d 6e 6f 74 65 73 2d 62 75 66 66 65 72 20 73 65 73 73 69 6f 6e 29 29 0a -session-notes-buffer.session)).
16280 20 20 20 20 20 20 20 20 20 28 77 69 6e 64 6f 77 2d 6c 6f 63 61 74 69 6f 6e 20 28 6f 72 67 2d 6e .........(window-location.(org-n
162a0 6f 74 65 72 2d 2d 73 65 73 73 69 6f 6e 2d 77 69 6e 64 6f 77 2d 6c 6f 63 61 74 69 6f 6e 20 73 65 oter--session-window-location.se
162c0 73 73 69 6f 6e 29 29 0a 20 20 20 20 20 20 20 20 20 28 77 69 6e 64 6f 77 2d 62 65 68 61 76 69 6f ssion))..........(window-behavio
162e0 72 20 28 6f 72 67 2d 6e 6f 74 65 72 2d 2d 73 65 73 73 69 6f 6e 2d 77 69 6e 64 6f 77 2d 62 65 68 r.(org-noter--session-window-beh
16300 61 76 69 6f 72 20 73 65 73 73 69 6f 6e 29 29 0a 20 20 20 20 20 20 20 20 20 6e 6f 74 65 73 2d 77 avior.session))..........notes-w
16320 69 6e 64 6f 77 29 0a 20 20 20 20 20 28 6f 72 20 28 67 65 74 2d 62 75 66 66 65 72 2d 77 69 6e 64 indow)......(or.(get-buffer-wind
16340 6f 77 20 6e 6f 74 65 73 2d 62 75 66 66 65 72 20 74 29 0a 20 20 20 20 20 20 20 20 20 28 77 68 65 ow.notes-buffer.t)..........(whe
16360 6e 20 28 6f 72 20 28 65 71 20 74 79 70 65 20 27 66 6f 72 63 65 29 20 28 6d 65 6d 71 20 74 79 70 n.(or.(eq.type.'force).(memq.typ
16380 65 20 77 69 6e 64 6f 77 2d 62 65 68 61 76 69 6f 72 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 e.window-behavior))............(
163a0 69 66 20 28 65 71 20 77 69 6e 64 6f 77 2d 6c 6f 63 61 74 69 6f 6e 20 27 6f 74 68 65 72 2d 66 72 if.(eq.window-location.'other-fr
163c0 61 6d 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 72 65 73 74 6f ame)................(let.((resto
163e0 72 65 2d 66 72 61 6d 65 20 28 73 65 6c 65 63 74 65 64 2d 66 72 61 6d 65 29 29 29 0a 20 20 20 20 re-frame.(selected-frame))).....
16400 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 77 69 74 63 68 2d 74 6f 2d 62 75 66 66 65 72 2d 6f .............(switch-to-buffer-o
16420 74 68 65 72 2d 66 72 61 6d 65 20 6e 6f 74 65 73 2d 62 75 66 66 65 72 29 0a 20 20 20 20 20 20 20 ther-frame.notes-buffer)........
16440 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 6e 6f 74 65 73 2d 77 69 6e 64 6f 77 20 28 67 65 ..........(setq.notes-window.(ge
16460 74 2d 62 75 66 66 65 72 2d 77 69 6e 64 6f 77 20 6e 6f 74 65 73 2d 62 75 66 66 65 72 20 74 29 29 t-buffer-window.notes-buffer.t))
16480 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 78 2d 66 6f 63 75 73 2d 66 72 61 6d 65 ..................(x-focus-frame
164a0 20 72 65 73 74 6f 72 65 2d 66 72 61 6d 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .restore-frame).................
164c0 20 28 72 61 69 73 65 2d 66 72 61 6d 65 20 28 77 69 6e 64 6f 77 2d 66 72 61 6d 65 20 6e 6f 74 65 .(raise-frame.(window-frame.note
164e0 73 2d 77 69 6e 64 6f 77 29 29 29 0a 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 69 74 68 2d s-window)))...............(with-
16500 73 65 6c 65 63 74 65 64 2d 77 69 6e 64 6f 77 20 28 6f 72 67 2d 6e 6f 74 65 72 2d 2d 67 65 74 2d selected-window.(org-noter--get-
16520 64 6f 63 2d 77 69 6e 64 6f 77 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 doc-window)................(let.
16540 28 28 68 6f 72 69 7a 6f 6e 74 61 6c 20 28 65 71 20 77 69 6e 64 6f 77 2d 6c 6f 63 61 74 69 6f 6e ((horizontal.(eq.window-location
16560 20 27 68 6f 72 69 7a 6f 6e 74 61 6c 2d 73 70 6c 69 74 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 .'horizontal-split)))...........
16580 20 20 20 20 20 20 20 28 73 65 74 71 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6e .......(setq...................n
165a0 6f 74 65 73 2d 77 69 6e 64 6f 77 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 otes-window...................(i
165c0 66 20 28 77 69 6e 64 6f 77 2d 63 6f 6d 62 69 6e 65 64 2d 70 20 6e 69 6c 20 68 6f 72 69 7a 6f 6e f.(window-combined-p.nil.horizon
165e0 74 61 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 3b 3b 20 4e 4f tal).......................;;.NO
16600 54 45 28 6e 6f 78 29 3a 20 52 65 75 73 65 20 61 6c 72 65 61 64 79 20 65 78 69 73 74 65 6e 74 20 TE(nox):.Reuse.already.existent.
16620 77 69 6e 64 6f 77 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 65 window.......................(le
16640 74 20 28 28 73 69 62 6c 69 6e 67 2d 77 69 6e 64 6f 77 20 28 6f 72 20 28 77 69 6e 64 6f 77 2d 6e t.((sibling-window.(or.(window-n
16660 65 78 74 2d 73 69 62 6c 69 6e 67 29 20 28 77 69 6e 64 6f 77 2d 70 72 65 76 2d 73 69 62 6c 69 6e ext-sibling).(window-prev-siblin
16680 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 20 28 6f g)))).........................(o
166a0 72 20 28 77 69 6e 64 6f 77 2d 74 6f 70 2d 63 68 69 6c 64 20 73 69 62 6c 69 6e 67 2d 77 69 6e 64 r.(window-top-child.sibling-wind
166c0 6f 77 29 20 28 77 69 6e 64 6f 77 2d 6c 65 66 74 2d 63 68 69 6c 64 20 73 69 62 6c 69 6e 67 2d 77 ow).(window-left-child.sibling-w
166e0 69 6e 64 6f 77 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 indow)..........................
16700 20 20 20 73 69 62 6c 69 6e 67 2d 77 69 6e 64 6f 77 29 29 0a 0a 20 20 20 20 20 20 20 20 20 20 20 ...sibling-window)).............
16720 20 20 20 20 20 20 20 20 20 28 69 66 20 68 6f 72 69 7a 6f 6e 74 61 6c 0a 20 20 20 20 20 20 20 20 .........(if.horizontal.........
16740 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 70 6c 69 74 2d 77 69 6e 64 6f 77 2d 72 69 ................(split-window-ri
16760 67 68 74 20 28 63 65 69 6c 69 6e 67 20 28 2a 20 28 63 61 72 20 28 6f 72 67 2d 6e 6f 74 65 72 2d ght.(ceiling.(*.(car.(org-noter-
16780 2d 73 65 73 73 69 6f 6e 2d 64 6f 63 2d 73 70 6c 69 74 2d 66 72 61 63 74 69 6f 6e 20 73 65 73 73 -session-doc-split-fraction.sess
167a0 69 6f 6e 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 ion))...........................
167c0 20 20 20 20 20 20 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 ..............................(w
167e0 69 6e 64 6f 77 2d 74 6f 74 61 6c 2d 77 69 64 74 68 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 indow-total-width))))...........
16800 20 20 20 20 20 20 20 20 20 20 20 20 28 73 70 6c 69 74 2d 77 69 6e 64 6f 77 2d 62 65 6c 6f 77 20 ............(split-window-below.
16820 28 63 65 69 6c 69 6e 67 20 28 2a 20 28 63 64 72 20 28 6f 72 67 2d 6e 6f 74 65 72 2d 2d 73 65 73 (ceiling.(*.(cdr.(org-noter--ses
16840 73 69 6f 6e 2d 64 6f 63 2d 73 70 6c 69 74 2d 66 72 61 63 74 69 6f 6e 20 73 65 73 73 69 6f 6e 29 sion-doc-split-fraction.session)
16860 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 )...............................
16880 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 69 6e 64 6f 77 2d ........................(window-
168a0 74 6f 74 61 6c 2d 68 65 69 67 68 74 29 29 29 29 29 29 29 29 29 0a 0a 20 20 20 20 20 20 20 20 20 total-height)))))))))...........
168c0 20 20 20 20 28 73 65 74 2d 77 69 6e 64 6f 77 2d 62 75 66 66 65 72 20 6e 6f 74 65 73 2d 77 69 6e ....(set-window-buffer.notes-win
168e0 64 6f 77 20 6e 6f 74 65 73 2d 62 75 66 66 65 72 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 6e 6f dow.notes-buffer))............no
16900 74 65 73 2d 77 69 6e 64 6f 77 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 6f 72 67 2d 6e 6f 74 65 tes-window)))))..(defun.org-note
16920 72 2d 2d 72 65 6c 6f 63 61 74 65 2d 6e 6f 74 65 73 2d 77 69 6e 64 6f 77 20 28 6e 6f 74 65 73 2d r--relocate-notes-window.(notes-
16940 62 75 66 66 65 72 29 0a 20 20 22 43 6c 65 61 72 20 74 68 65 20 6e 6f 74 65 73 2d 77 69 6e 64 6f buffer)..."Clear.the.notes-windo
16960 77 20 61 6e 64 20 28 72 65 29 6c 6f 63 61 74 65 20 69 74 2e 0a 55 73 65 64 20 62 79 20 69 6e 74 w.and.(re)locate.it..Used.by.int
16980 65 72 61 63 74 69 76 65 20 6e 6f 74 65 2d 77 69 6e 64 6f 77 20 6c 6f 63 61 74 69 6f 6e 20 66 75 eractive.note-window.location.fu
169a0 6e 63 74 69 6f 6e 73 2e 22 0a 20 20 28 6c 65 74 20 28 65 78 69 73 74 73 29 0a 20 20 20 20 28 64 nctions."...(let.(exists).....(d
169c0 6f 6c 69 73 74 20 28 77 69 6e 64 6f 77 20 28 67 65 74 2d 62 75 66 66 65 72 2d 77 69 6e 64 6f 77 olist.(window.(get-buffer-window
169e0 2d 6c 69 73 74 20 6e 6f 74 65 73 2d 62 75 66 66 65 72 20 6e 69 6c 20 74 29 29 0a 20 20 20 20 20 -list.notes-buffer.nil.t))......
16a00 20 28 73 65 74 71 20 65 78 69 73 74 73 20 74 29 0a 20 20 20 20 20 20 28 77 69 74 68 2d 73 65 6c .(setq.exists.t).......(with-sel
16a20 65 63 74 65 64 2d 66 72 61 6d 65 20 28 77 69 6e 64 6f 77 2d 66 72 61 6d 65 20 77 69 6e 64 6f 77 ected-frame.(window-frame.window
16a40 29 0a 20 20 20 20 20 20 20 20 28 69 66 20 28 3d 20 28 63 6f 75 6e 74 2d 77 69 6e 64 6f 77 73 29 ).........(if.(=.(count-windows)
16a60 20 31 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 64 65 6c 65 74 65 2d 66 72 61 6d 65 29 0a 20 .1).............(delete-frame)..
16a80 20 20 20 20 20 20 20 20 20 28 64 65 6c 65 74 65 2d 77 69 6e 64 6f 77 20 77 69 6e 64 6f 77 29 29 .........(delete-window.window))
16aa0 29 29 0a 20 20 20 20 28 77 68 65 6e 20 65 78 69 73 74 73 20 28 6f 72 67 2d 6e 6f 74 65 72 2d 2d )).....(when.exists.(org-noter--
16ac0 67 65 74 2d 6e 6f 74 65 73 2d 77 69 6e 64 6f 77 20 27 66 6f 72 63 65 29 29 29 29 0a 0a 28 64 65 get-notes-window.'force))))..(de
16ae0 66 75 6e 20 6f 72 67 2d 6e 6f 74 65 72 2d 2d 73 65 74 75 70 2d 77 69 6e 64 6f 77 73 20 28 73 65 fun.org-noter--setup-windows.(se
16b00 73 73 69 6f 6e 29 0a 20 20 22 53 65 74 75 70 20 77 69 6e 64 6f 77 73 20 77 68 65 6e 20 73 74 61 ssion)..."Setup.windows.when.sta
16b20 72 74 69 6e 67 20 53 45 53 53 49 4f 4e 2c 20 72 65 73 70 65 63 74 69 6e 67 20 75 73 65 72 20 63 rting.SESSION,.respecting.user.c
16b40 6f 6e 66 69 67 75 72 61 74 69 6f 6e 2e 22 0a 20 20 28 77 68 65 6e 20 28 6f 72 67 2d 6e 6f 74 65 onfiguration."...(when.(org-note
16b60 72 2d 2d 76 61 6c 69 64 2d 73 65 73 73 69 6f 6e 20 73 65 73 73 69 6f 6e 29 0a 20 20 20 20 28 77 r--valid-session.session).....(w
16b80 69 74 68 2d 73 65 6c 65 63 74 65 64 2d 66 72 61 6d 65 20 28 6f 72 67 2d 6e 6f 74 65 72 2d 2d 73 ith-selected-frame.(org-noter--s
16ba0 65 73 73 69 6f 6e 2d 66 72 61 6d 65 20 73 65 73 73 69 6f 6e 29 0a 20 20 20 20 20 20 28 64 65 6c ession-frame.session).......(del
16bc0 65 74 65 2d 6f 74 68 65 72 2d 77 69 6e 64 6f 77 73 29 0a 20 20 20 20 20 20 28 6c 65 74 2a 20 28 ete-other-windows).......(let*.(
16be0 28 64 6f 63 2d 62 75 66 66 65 72 20 28 6f 72 67 2d 6e 6f 74 65 72 2d 2d 73 65 73 73 69 6f 6e 2d (doc-buffer.(org-noter--session-
16c00 64 6f 63 2d 62 75 66 66 65 72 20 73 65 73 73 69 6f 6e 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 doc-buffer.session))............
16c20 20 20 28 64 6f 63 2d 77 69 6e 64 6f 77 20 28 73 65 6c 65 63 74 65 64 2d 77 69 6e 64 6f 77 29 29 ..(doc-window.(selected-window))
16c40 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6e 6f 74 65 73 2d 62 75 66 66 65 72 20 28 6f 72 67 ..............(notes-buffer.(org
16c60 2d 6e 6f 74 65 72 2d 2d 73 65 73 73 69 6f 6e 2d 6e 6f 74 65 73 2d 62 75 66 66 65 72 20 73 65 73 -noter--session-notes-buffer.ses
16c80 73 69 6f 6e 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 69 6e 64 6f 77 2d 6c 6f 63 61 sion))..............(window-loca
16ca0 74 69 6f 6e 20 28 6f 72 67 2d 6e 6f 74 65 72 2d 2d 73 65 73 73 69 6f 6e 2d 77 69 6e 64 6f 77 2d tion.(org-noter--session-window-
16cc0 6c 6f 63 61 74 69 6f 6e 20 73 65 73 73 69 6f 6e 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 location.session))..............
16ce0 6e 6f 74 65 73 2d 77 69 6e 64 6f 77 29 0a 0a 20 20 20 20 20 20 20 20 28 73 65 74 2d 77 69 6e 64 notes-window)..........(set-wind
16d00 6f 77 2d 62 75 66 66 65 72 20 64 6f 63 2d 77 69 6e 64 6f 77 20 64 6f 63 2d 62 75 66 66 65 72 29 ow-buffer.doc-window.doc-buffer)
16d20 0a 0a 20 20 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 6e ..........(with-current-buffer.n
16d40 6f 74 65 73 2d 62 75 66 66 65 72 0a 20 20 20 20 20 20 20 20 20 20 28 75 6e 6c 65 73 73 20 6f 72 otes-buffer...........(unless.or
16d60 67 2d 6e 6f 74 65 72 2d 64 69 73 61 62 6c 65 2d 6e 61 72 72 6f 77 69 6e 67 0a 20 20 20 20 20 20 g-noter-disable-narrowing.......
16d80 20 20 20 20 20 20 28 6f 72 67 2d 6e 6f 74 65 72 2d 2d 6e 61 72 72 6f 77 2d 74 6f 2d 72 6f 6f 74 ......(org-noter--narrow-to-root
16da0 20 28 6f 72 67 2d 6e 6f 74 65 72 2d 2d 70 61 72 73 65 2d 72 6f 6f 74 20 73 65 73 73 69 6f 6e 29 .(org-noter--parse-root.session)
16dc0 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 6e 6f 74 65 73 2d 77 69 6e 64 6f 77 20 ))...........(setq.notes-window.
16de0 28 6f 72 67 2d 6e 6f 74 65 72 2d 2d 67 65 74 2d 6e 6f 74 65 73 2d 77 69 6e 64 6f 77 20 27 73 74 (org-noter--get-notes-window.'st
16e00 61 72 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 6f 72 67 2d 6e 6f 74 65 72 2d 2d 73 65 74 2d art))...........(org-noter--set-
16e20 6e 6f 74 65 73 2d 73 63 72 6f 6c 6c 20 6e 6f 74 65 73 2d 77 69 6e 64 6f 77 29 29 0a 0a 20 20 20 notes-scroll.notes-window)).....
16e40 20 20 20 20 20 28 77 68 65 6e 20 6f 72 67 2d 6e 6f 74 65 72 2d 73 77 61 70 2d 77 69 6e 64 6f 77 .....(when.org-noter-swap-window
16e60 0a 20 20 20 20 20 20 20 20 20 20 28 63 6c 2d 6c 61 62 65 6c 73 20 28 28 73 77 61 70 2d 77 69 6e ...........(cl-labels.((swap-win
16e80 64 6f 77 73 20 28 77 69 6e 64 6f 77 31 20 77 69 6e 64 6f 77 32 29 0a 20 20 20 20 20 20 20 20 20 dows.(window1.window2)..........
16ea0 20 20 20 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 53 77 61 70 ..........................."Swap
16ec0 20 74 68 65 20 62 75 66 66 65 72 73 20 6f 66 20 57 49 4e 44 4f 57 31 20 61 6e 64 20 57 49 4e 44 .the.buffers.of.WINDOW1.and.WIND
16ee0 4f 57 32 2e 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 OW2."...........................
16f00 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 62 75 66 66 65 72 31 20 28 77 69 6e 64 6f 77 ..........(let.((buffer1.(window
16f20 2d 62 75 66 66 65 72 20 77 69 6e 64 6f 77 31 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 -buffer.window1))...............
16f40 20 20 20 20 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 75 66 ............................(buf
16f60 66 65 72 32 20 28 77 69 6e 64 6f 77 2d 62 75 66 66 65 72 20 77 69 6e 64 6f 77 32 29 29 29 0a 20 fer2.(window-buffer.window2)))..
16f80 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ................................
16fa0 20 20 20 20 20 28 73 65 74 2d 77 69 6e 64 6f 77 2d 62 75 66 66 65 72 20 77 69 6e 64 6f 77 31 20 .....(set-window-buffer.window1.
16fc0 62 75 66 66 65 72 32 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 buffer2)........................
16fe0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 2d 77 69 6e 64 6f 77 2d 62 75 66 66 65 ...............(set-window-buffe
17000 72 20 77 69 6e 64 6f 77 32 20 62 75 66 66 65 72 31 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 r.window2.buffer1)..............
17020 20 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 6c 65 63 74 .........................(select
17040 2d 77 69 6e 64 6f 77 20 77 69 6e 64 6f 77 32 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 -window.window2)))).............
17060 28 6c 65 74 20 28 28 66 72 61 6d 65 20 28 77 69 6e 64 6f 77 2d 66 72 61 6d 65 20 6e 6f 74 65 73 (let.((frame.(window-frame.notes
17080 2d 77 69 6e 64 6f 77 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 28 -window)))...............(when.(
170a0 61 6e 64 20 28 66 72 61 6d 65 2d 6c 69 76 65 2d 70 20 66 72 61 6d 65 29 0a 20 20 20 20 20 20 20 and.(frame-live-p.frame)........
170c0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6e 6f 74 20 28 65 71 20 66 72 61 6d 65 ..................(not.(eq.frame
170e0 20 28 73 65 6c 65 63 74 65 64 2d 66 72 61 6d 65 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 .(selected-frame))))............
17100 20 20 20 20 20 28 73 65 6c 65 63 74 2d 66 72 61 6d 65 2d 73 65 74 2d 69 6e 70 75 74 2d 66 6f 63 .....(select-frame-set-input-foc
17120 75 73 20 28 77 69 6e 64 6f 77 2d 66 72 61 6d 65 20 6e 6f 74 65 73 2d 77 69 6e 64 6f 77 29 29 29 us.(window-frame.notes-window)))
17140 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 28 61 6e 64 20 28 77 69 6e 64 6f ...............(when.(and.(windo
17160 77 2d 6c 69 76 65 2d 70 20 6e 6f 74 65 73 2d 77 69 6e 64 6f 77 29 0a 20 20 20 20 20 20 20 20 20 w-live-p.notes-window)..........
17180 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6e 6f 74 20 28 65 71 20 6e 6f 74 65 73 2d 77 ................(not.(eq.notes-w
171a0 69 6e 64 6f 77 20 64 6f 63 2d 77 69 6e 64 6f 77 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 indow.doc-window))).............
171c0 20 20 20 20 28 73 77 61 70 2d 77 69 6e 64 6f 77 73 20 6e 6f 74 65 73 2d 77 69 6e 64 6f 77 20 64 ....(swap-windows.notes-window.d
171e0 6f 63 2d 77 69 6e 64 6f 77 29 29 29 29 0a 0a 20 20 20 20 20 20 20 20 20 20 28 69 66 20 28 65 71 oc-window))))............(if.(eq
17200 20 77 69 6e 64 6f 77 2d 6c 6f 63 61 74 69 6f 6e 20 27 68 6f 72 69 7a 6f 6e 74 61 6c 2d 73 70 6c .window-location.'horizontal-spl
17220 69 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 65 6e 6c 61 72 67 65 2d 77 69 6e 64 6f it)...............(enlarge-windo
17240 77 20 28 2d 20 28 63 65 69 6c 69 6e 67 20 28 2a 20 28 2d 20 31 20 28 63 61 72 20 28 6f 72 67 2d w.(-.(ceiling.(*.(-.1.(car.(org-
17260 6e 6f 74 65 72 2d 2d 73 65 73 73 69 6f 6e 2d 64 6f 63 2d 73 70 6c 69 74 2d 66 72 61 63 74 69 6f noter--session-doc-split-fractio
17280 6e 20 73 65 73 73 69 6f 6e 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 n.session)))....................
172a0 20 20 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 72 61 6d 65 ..........................(frame
172c0 2d 77 69 64 74 68 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 -width))).......................
172e0 20 20 20 20 20 20 20 20 20 20 20 28 77 69 6e 64 6f 77 2d 74 6f 74 61 6c 2d 77 69 64 74 68 29 29 ...........(window-total-width))
17300 20 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 65 6e 6c 61 72 67 65 2d 77 69 6e 64 6f 77 20 .t).............(enlarge-window.
17320 28 2d 20 28 63 65 69 6c 69 6e 67 20 28 2a 20 28 2d 20 31 20 28 63 64 72 20 28 6f 72 67 2d 6e 6f (-.(ceiling.(*.(-.1.(cdr.(org-no
17340 74 65 72 2d 2d 73 65 73 73 69 6f 6e 2d 64 6f 63 2d 73 70 6c 69 74 2d 66 72 61 63 74 69 6f 6e 20 ter--session-doc-split-fraction.
17360 73 65 73 73 69 6f 6e 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 session)))......................
17380 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 72 61 6d 65 2d 68 65 69 ......................(frame-hei
173a0 67 68 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 ght)))..........................
173c0 20 20 20 20 20 20 28 77 69 6e 64 6f 77 2d 74 6f 74 61 6c 2d 68 65 69 67 68 74 29 29 29 29 29 0a ......(window-total-height))))).
173e0 0a 20 20 20 20 20 20 20 20 28 69 66 20 6f 72 67 2d 6e 6f 74 65 72 2d 73 77 61 70 2d 77 69 6e 64 .........(if.org-noter-swap-wind
17400 6f 77 0a 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 74 68 65 20 76 61 72 69 61 62 6c 65 20 4e ow.............;;.the.variable.N
17420 4f 54 45 53 2d 57 49 4e 44 4f 57 20 68 65 72 65 20 69 73 20 72 65 61 6c 6c 79 0a 20 20 20 20 20 OTES-WINDOW.here.is.really......
17440 20 20 20 20 20 20 20 3b 3b 20 74 68 65 20 64 6f 63 75 6d 65 6e 74 20 77 69 6e 64 6f 77 20 73 69 .......;;.the.document.window.si
17460 6e 63 65 20 74 68 65 20 74 77 6f 20 67 6f 74 20 73 77 61 70 70 65 64 0a 20 20 20 20 20 20 20 20 nce.the.two.got.swapped.........
17480 20 20 20 20 28 73 65 74 2d 77 69 6e 64 6f 77 2d 64 65 64 69 63 61 74 65 64 2d 70 20 6e 6f 74 65 ....(set-window-dedicated-p.note
174a0 73 2d 77 69 6e 64 6f 77 20 74 29 0a 20 20 20 20 20 20 20 20 20 20 3b 3b 20 49 74 27 73 20 6e 6f s-window.t)...........;;.It's.no
174c0 74 20 73 77 61 70 70 65 64 20 73 6f 20 73 65 74 20 69 74 20 6e 6f 72 6d 61 6c 6c 79 0a 20 20 20 t.swapped.so.set.it.normally....
174e0 20 20 20 20 20 20 20 28 73 65 74 2d 77 69 6e 64 6f 77 2d 64 65 64 69 63 61 74 65 64 2d 70 20 64 .......(set-window-dedicated-p.d
17500 6f 63 2d 77 69 6e 64 6f 77 20 74 29 29 29 29 29 29 0a 0a 28 64 65 66 6d 61 63 72 6f 20 6f 72 67 oc-window.t))))))..(defmacro.org
17520 2d 6e 6f 74 65 72 2d 2d 77 69 74 68 2d 73 65 6c 65 63 74 65 64 2d 6e 6f 74 65 73 2d 77 69 6e 64 -noter--with-selected-notes-wind
17540 6f 77 20 28 65 72 72 6f 72 2d 73 74 72 20 26 72 65 73 74 20 62 6f 64 79 29 0a 20 20 28 6c 65 74 ow.(error-str.&rest.body)...(let
17560 20 28 28 77 69 74 68 2d 65 72 72 6f 72 20 28 73 74 72 69 6e 67 70 20 65 72 72 6f 72 2d 73 74 72 .((with-error.(stringp.error-str
17580 29 29 29 0a 20 20 20 20 60 28 6f 72 67 2d 6e 6f 74 65 72 2d 2d 77 69 74 68 2d 76 61 6c 69 64 2d ))).....`(org-noter--with-valid-
175a0 73 65 73 73 69 6f 6e 0a 20 20 20 20 20 20 28 6c 65 74 20 28 28 6e 6f 74 65 73 2d 77 69 6e 64 6f session.......(let.((notes-windo
175c0 77 20 28 6f 72 67 2d 6e 6f 74 65 72 2d 2d 67 65 74 2d 6e 6f 74 65 73 2d 77 69 6e 64 6f 77 29 29 w.(org-noter--get-notes-window))
175e0 29 0a 20 20 20 20 20 20 20 20 28 69 66 20 6e 6f 74 65 73 2d 77 69 6e 64 6f 77 0a 20 20 20 20 20 ).........(if.notes-window......
17600 20 20 20 20 20 20 20 28 77 69 74 68 2d 73 65 6c 65 63 74 65 64 2d 77 69 6e 64 6f 77 20 6e 6f 74 .......(with-selected-window.not
17620 65 73 2d 77 69 6e 64 6f 77 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2c 28 69 66 20 77 69 74 es-window...............,(if.wit
17640 68 2d 65 72 72 6f 72 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 60 28 70 72 6f h-error....................`(pro
17660 67 6e 20 2c 40 62 6f 64 79 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 66 20 gn.,@body)..................(if.
17680 62 6f 64 79 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 60 28 70 72 6f 67 body......................`(prog
176a0 6e 20 2c 65 72 72 6f 72 2d 73 74 72 20 2c 40 62 6f 64 79 29 0a 20 20 20 20 20 20 20 20 20 20 20 n.,error-str.,@body)............
176c0 20 20 20 20 20 20 20 20 60 28 70 72 6f 67 6e 20 2c 65 72 72 6f 72 2d 73 74 72 29 29 29 29 0a 20 ........`(progn.,error-str))))..
176e0 20 20 20 20 20 20 20 20 20 2c 28 77 68 65 6e 20 77 69 74 68 2d 65 72 72 6f 72 20 60 28 75 73 65 .........,(when.with-error.`(use
17700 72 2d 65 72 72 6f 72 20 22 25 73 22 20 2c 65 72 72 6f 72 2d 73 74 72 29 29 29 29 29 29 29 0a 0a r-error."%s".,error-str)))))))..
17720 28 64 65 66 75 6e 20 6f 72 67 2d 6e 6f 74 65 72 2d 2d 6e 6f 74 65 73 2d 77 69 6e 64 6f 77 2d 62 (defun.org-noter--notes-window-b
17740 65 68 61 76 69 6f 72 2d 70 72 6f 70 65 72 74 79 20 28 61 73 74 29 0a 20 20 28 6c 65 74 20 28 28 ehavior-property.(ast)...(let.((
17760 70 72 6f 70 65 72 74 79 20 28 6f 72 67 2d 65 6c 65 6d 65 6e 74 2d 70 72 6f 70 65 72 74 79 20 28 property.(org-element-property.(
17780 69 6e 74 65 72 6e 20 28 63 6f 6e 63 61 74 20 22 3a 22 20 6f 72 67 2d 6e 6f 74 65 72 2d 2d 70 72 intern.(concat.":".org-noter--pr
177a0 6f 70 65 72 74 79 2d 62 65 68 61 76 69 6f 72 29 29 20 61 73 74 29 29 0a 20 20 20 20 20 20 20 20 operty-behavior)).ast)).........
177c0 76 61 6c 75 65 29 0a 20 20 20 20 28 77 68 65 6e 20 28 61 6e 64 20 28 73 74 72 69 6e 67 70 20 70 value).....(when.(and.(stringp.p
177e0 72 6f 70 65 72 74 79 29 20 28 3e 20 28 6c 65 6e 67 74 68 20 70 72 6f 70 65 72 74 79 29 20 30 29 roperty).(>.(length.property).0)
17800 29 0a 20 20 20 20 20 20 28 73 65 74 71 20 76 61 6c 75 65 20 28 63 61 72 20 28 72 65 61 64 2d 66 ).......(setq.value.(car.(read-f
17820 72 6f 6d 2d 73 74 72 69 6e 67 20 70 72 6f 70 65 72 74 79 29 29 29 0a 20 20 20 20 20 20 28 77 68 rom-string.property))).......(wh
17840 65 6e 20 28 6c 69 73 74 70 20 76 61 6c 75 65 29 20 76 61 6c 75 65 29 29 29 29 0a 0a 28 64 65 66 en.(listp.value).value))))..(def
17860 75 6e 20 6f 72 67 2d 6e 6f 74 65 72 2d 2d 6e 6f 74 65 73 2d 77 69 6e 64 6f 77 2d 6c 6f 63 61 74 un.org-noter--notes-window-locat
17880 69 6f 6e 2d 70 72 6f 70 65 72 74 79 20 28 61 73 74 29 0a 20 20 28 6c 65 74 20 28 28 70 72 6f 70 ion-property.(ast)...(let.((prop
178a0 65 72 74 79 20 28 6f 72 67 2d 65 6c 65 6d 65 6e 74 2d 70 72 6f 70 65 72 74 79 20 28 69 6e 74 65 erty.(org-element-property.(inte
178c0 72 6e 20 28 63 6f 6e 63 61 74 20 22 3a 22 20 6f 72 67 2d 6e 6f 74 65 72 2d 2d 70 72 6f 70 65 72 rn.(concat.":".org-noter--proper
178e0 74 79 2d 6c 6f 63 61 74 69 6f 6e 29 29 20 61 73 74 29 29 0a 20 20 20 20 20 20 20 20 76 61 6c 75 ty-location)).ast)).........valu
17900 65 29 0a 20 20 20 20 28 77 68 65 6e 20 28 61 6e 64 20 28 73 74 72 69 6e 67 70 20 70 72 6f 70 65 e).....(when.(and.(stringp.prope
17920 72 74 79 29 20 28 3e 20 28 6c 65 6e 67 74 68 20 70 72 6f 70 65 72 74 79 29 20 30 29 29 0a 20 20 rty).(>.(length.property).0))...
17940 20 20 20 20 28 73 65 74 71 20 76 61 6c 75 65 20 28 69 6e 74 65 72 6e 20 70 72 6f 70 65 72 74 79 ....(setq.value.(intern.property
17960 29 29 0a 20 20 20 20 20 20 28 77 68 65 6e 20 28 6d 65 6d 71 20 76 61 6c 75 65 20 27 28 68 6f 72 )).......(when.(memq.value.'(hor
17980 69 7a 6f 6e 74 61 6c 2d 73 70 6c 69 74 20 76 65 72 74 69 63 61 6c 2d 73 70 6c 69 74 20 6f 74 68 izontal-split.vertical-split.oth
179a0 65 72 2d 66 72 61 6d 65 29 29 20 76 61 6c 75 65 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 6f 72 67 er-frame)).value))))..(defun.org
179c0 2d 6e 6f 74 65 72 2d 2d 64 6f 63 2d 73 70 6c 69 74 2d 66 72 61 63 74 69 6f 6e 2d 70 72 6f 70 65 -noter--doc-split-fraction-prope
179e0 72 74 79 20 28 61 73 74 29 0a 20 20 28 6c 65 74 20 28 28 70 72 6f 70 65 72 74 79 20 28 6f 72 67 rty.(ast)...(let.((property.(org
17a00 2d 65 6c 65 6d 65 6e 74 2d 70 72 6f 70 65 72 74 79 20 28 69 6e 74 65 72 6e 20 28 63 6f 6e 63 61 -element-property.(intern.(conca
17a20 74 20 22 3a 22 20 6f 72 67 2d 6e 6f 74 65 72 2d 2d 70 72 6f 70 65 72 74 79 2d 64 6f 63 2d 73 70 t.":".org-noter--property-doc-sp
17a40 6c 69 74 2d 66 72 61 63 74 69 6f 6e 29 29 20 61 73 74 29 29 0a 20 20 20 20 20 20 20 20 76 61 6c lit-fraction)).ast)).........val
17a60 75 65 29 0a 20 20 20 20 28 77 68 65 6e 20 28 61 6e 64 20 28 73 74 72 69 6e 67 70 20 70 72 6f 70 ue).....(when.(and.(stringp.prop
17a80 65 72 74 79 29 20 28 3e 20 28 6c 65 6e 67 74 68 20 70 72 6f 70 65 72 74 79 29 20 30 29 29 0a 20 erty).(>.(length.property).0))..
17aa0 20 20 20 20 20 28 73 65 74 71 20 76 61 6c 75 65 20 28 63 61 72 20 28 72 65 61 64 2d 66 72 6f 6d .....(setq.value.(car.(read-from
17ac0 2d 73 74 72 69 6e 67 20 70 72 6f 70 65 72 74 79 29 29 29 0a 20 20 20 20 20 20 28 77 68 65 6e 20 -string.property))).......(when.
17ae0 28 63 6f 6e 73 70 20 76 61 6c 75 65 29 20 76 61 6c 75 65 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 (consp.value).value))))..(defun.
17b00 6f 72 67 2d 6e 6f 74 65 72 2d 2d 61 75 74 6f 2d 73 61 76 65 2d 6c 61 73 74 2d 6c 6f 63 61 74 69 org-noter--auto-save-last-locati
17b20 6f 6e 2d 70 72 6f 70 65 72 74 79 20 28 61 73 74 29 0a 20 20 28 6c 65 74 20 28 28 70 72 6f 70 65 on-property.(ast)...(let.((prope
17b40 72 74 79 20 28 6f 72 67 2d 65 6c 65 6d 65 6e 74 2d 70 72 6f 70 65 72 74 79 20 28 69 6e 74 65 72 rty.(org-element-property.(inter
17b60 6e 20 28 63 6f 6e 63 61 74 20 22 3a 22 20 6f 72 67 2d 6e 6f 74 65 72 2d 2d 70 72 6f 70 65 72 74 n.(concat.":".org-noter--propert
17b80 79 2d 61 75 74 6f 2d 73 61 76 65 2d 6c 61 73 74 2d 6c 6f 63 61 74 69 6f 6e 29 29 20 61 73 74 29 y-auto-save-last-location)).ast)
17ba0 29 29 0a 20 20 20 20 28 77 68 65 6e 20 28 61 6e 64 20 28 73 74 72 69 6e 67 70 20 70 72 6f 70 65 )).....(when.(and.(stringp.prope
17bc0 72 74 79 29 20 28 3e 20 28 6c 65 6e 67 74 68 20 70 72 6f 70 65 72 74 79 29 20 30 29 29 0a 20 20 rty).(>.(length.property).0))...
17be0 20 20 20 20 28 69 66 20 28 69 6e 74 65 72 6e 20 70 72 6f 70 65 72 74 79 29 20 74 20 27 64 69 73 ....(if.(intern.property).t.'dis
17c00 61 62 6c 65 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 6f 72 67 2d 6e 6f 74 65 72 2d 2d 68 69 64 65 able))))..(defun.org-noter--hide
17c20 2d 6f 74 68 65 72 2d 70 72 6f 70 65 72 74 79 20 28 61 73 74 29 0a 20 20 28 6c 65 74 20 28 28 70 -other-property.(ast)...(let.((p
17c40 72 6f 70 65 72 74 79 20 28 6f 72 67 2d 65 6c 65 6d 65 6e 74 2d 70 72 6f 70 65 72 74 79 20 28 69 roperty.(org-element-property.(i
17c60 6e 74 65 72 6e 20 28 63 6f 6e 63 61 74 20 22 3a 22 20 6f 72 67 2d 6e 6f 74 65 72 2d 2d 70 72 6f ntern.(concat.":".org-noter--pro
17c80 70 65 72 74 79 2d 68 69 64 65 2d 6f 74 68 65 72 29 29 20 61 73 74 29 29 29 0a 20 20 20 20 28 77 perty-hide-other)).ast))).....(w
17ca0 68 65 6e 20 28 61 6e 64 20 28 73 74 72 69 6e 67 70 20 70 72 6f 70 65 72 74 79 29 20 28 3e 20 28 hen.(and.(stringp.property).(>.(
17cc0 6c 65 6e 67 74 68 20 70 72 6f 70 65 72 74 79 29 20 30 29 29 0a 20 20 20 20 20 20 28 69 66 20 28 length.property).0)).......(if.(
17ce0 69 6e 74 65 72 6e 20 70 72 6f 70 65 72 74 79 29 20 74 20 27 64 69 73 61 62 6c 65 29 29 29 29 0a intern.property).t.'disable)))).
17d00 0a 28 64 65 66 75 6e 20 6f 72 67 2d 6e 6f 74 65 72 2d 2d 63 6c 6f 73 65 73 74 2d 74 69 70 70 69 .(defun.org-noter--closest-tippi
17d20 6e 67 2d 70 6f 69 6e 74 2d 70 72 6f 70 65 72 74 79 20 28 61 73 74 29 0a 20 20 28 6c 65 74 20 28 ng-point-property.(ast)...(let.(
17d40 28 70 72 6f 70 65 72 74 79 20 28 6f 72 67 2d 65 6c 65 6d 65 6e 74 2d 70 72 6f 70 65 72 74 79 20 (property.(org-element-property.
17d60 28 69 6e 74 65 72 6e 20 28 63 6f 6e 63 61 74 20 22 3a 22 20 6f 72 67 2d 6e 6f 74 65 72 2d 2d 70 (intern.(concat.":".org-noter--p
17d80 72 6f 70 65 72 74 79 2d 63 6c 6f 73 65 73 74 2d 74 69 70 70 69 6e 67 2d 70 6f 69 6e 74 29 29 20 roperty-closest-tipping-point)).
17da0 61 73 74 29 29 29 0a 20 20 20 20 28 77 68 65 6e 20 28 61 6e 64 20 28 73 74 72 69 6e 67 70 20 70 ast))).....(when.(and.(stringp.p
17dc0 72 6f 70 65 72 74 79 29 20 28 3e 20 28 6c 65 6e 67 74 68 20 70 72 6f 70 65 72 74 79 29 20 30 29 roperty).(>.(length.property).0)
17de0 29 0a 20 20 20 20 20 20 28 69 67 6e 6f 72 65 2d 65 72 72 6f 72 73 20 28 73 74 72 69 6e 67 2d 74 ).......(ignore-errors.(string-t
17e00 6f 2d 6e 75 6d 62 65 72 20 70 72 6f 70 65 72 74 79 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 6f o-number.property)))))..(defun.o
17e20 72 67 2d 6e 6f 74 65 72 2d 2d 64 6f 63 2d 61 70 70 72 6f 78 2d 6c 6f 63 61 74 69 6f 6e 20 28 26 rg-noter--doc-approx-location.(&
17e40 6f 70 74 69 6f 6e 61 6c 20 70 72 65 63 69 73 65 2d 69 6e 66 6f 20 66 6f 72 63 65 2d 6e 65 77 2d optional.precise-info.force-new-
17e60 72 65 66 29 0a 20 20 22 52 65 74 75 72 6e 20 64 6f 63 75 6d 65 6e 74 20 6c 6f 63 61 74 69 6f 6e ref)..."Return.document.location
17e80 20 61 73 20 28 70 61 67 65 20 2e 20 76 29 20 6f 72 20 28 70 61 67 65 20 76 20 2e 20 68 29 2e 0a .as.(page...v).or.(page.v...h)..
17ea0 49 66 20 50 52 45 43 49 53 45 2d 49 4e 46 4f 20 69 73 20 67 69 76 65 6e 2c 20 72 65 74 75 72 6e If.PRECISE-INFO.is.given,.return
17ec0 20 74 68 65 20 6c 6f 63 61 74 69 6f 6e 20 69 6e 20 74 68 65 20 73 61 6d 65 20 66 6f 72 6d 61 74 .the.location.in.the.same.format
17ee0 2e 0a 46 4f 52 43 45 2d 4e 45 57 2d 52 45 46 20 69 73 20 6e 6f 74 20 75 73 65 64 20 62 79 20 50 ..FORCE-NEW-REF.is.not.used.by.P
17f00 44 46 2c 20 4e 4f 56 2c 20 6f 72 20 44 4a 56 55 20 66 6f 72 6d 61 74 20 66 69 6c 65 73 2e 22 0a DF,.NOV,.or.DJVU.format.files.".
17f20 20 20 28 6c 65 74 20 28 28 77 69 6e 64 6f 77 20 28 69 66 20 28 6f 72 67 2d 6e 6f 74 65 72 2d 2d ..(let.((window.(if.(org-noter--
17f40 76 61 6c 69 64 2d 73 65 73 73 69 6f 6e 20 6f 72 67 2d 6e 6f 74 65 72 2d 2d 73 65 73 73 69 6f 6e valid-session.org-noter--session
17f60 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6f 72 67 2d 6e 6f 74 65 72 ).....................(org-noter
17f80 2d 2d 67 65 74 2d 64 6f 63 2d 77 69 6e 64 6f 77 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 --get-doc-window)...............
17fa0 20 20 20 20 28 73 65 6c 65 63 74 65 64 2d 77 69 6e 64 6f 77 29 29 29 29 0a 20 20 20 20 28 63 6c ....(selected-window)))).....(cl
17fc0 2d 61 73 73 65 72 74 20 77 69 6e 64 6f 77 29 0a 20 20 20 20 28 77 69 74 68 2d 73 65 6c 65 63 74 -assert.window).....(with-select
17fe0 65 64 2d 77 69 6e 64 6f 77 20 77 69 6e 64 6f 77 0a 20 20 20 20 20 20 28 6f 72 20 28 72 75 6e 2d ed-window.window.......(or.(run-
18000 68 6f 6f 6b 2d 77 69 74 68 2d 61 72 67 73 2d 75 6e 74 69 6c 2d 73 75 63 63 65 73 73 0a 20 20 20 hook-with-args-until-success....
18020 20 20 20 20 20 20 20 20 27 6f 72 67 2d 6e 6f 74 65 72 2d 2d 64 6f 63 2d 61 70 70 72 6f 78 2d 6c ........'org-noter--doc-approx-l
18040 6f 63 61 74 69 6f 6e 2d 68 6f 6f 6b 20 6d 61 6a 6f 72 2d 6d 6f 64 65 20 70 72 65 63 69 73 65 2d ocation-hook.major-mode.precise-
18060 69 6e 66 6f 20 66 6f 72 63 65 2d 6e 65 77 2d 72 65 66 29 0a 20 20 20 20 20 20 20 20 20 20 28 65 info.force-new-ref)...........(e
18080 72 72 6f 72 20 22 55 6e 6b 6e 6f 77 6e 20 64 6f 63 75 6d 65 6e 74 20 74 79 70 65 20 25 73 22 20 rror."Unknown.document.type.%s".
180a0 6d 61 6a 6f 72 2d 6d 6f 64 65 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 6f 72 67 2d 6e 6f 74 65 major-mode)))))..(defun.org-note
180c0 72 2d 2d 6c 6f 63 61 74 69 6f 6e 2d 63 68 61 6e 67 65 2d 61 64 76 69 63 65 20 28 26 72 65 73 74 r--location-change-advice.(&rest
180e0 20 5f 29 0a 20 20 28 6f 72 67 2d 6e 6f 74 65 72 2d 2d 77 69 74 68 2d 76 61 6c 69 64 2d 73 65 73 ._)...(org-noter--with-valid-ses
18100 73 69 6f 6e 20 28 6f 72 67 2d 6e 6f 74 65 72 2d 2d 64 6f 63 2d 6c 6f 63 61 74 69 6f 6e 2d 63 68 sion.(org-noter--doc-location-ch
18120 61 6e 67 65 2d 68 61 6e 64 6c 65 72 29 29 29 0a 0a 28 64 65 66 73 75 62 73 74 20 6f 72 67 2d 6e ange-handler)))..(defsubst.org-n
18140 6f 74 65 72 2d 2d 64 6f 63 2d 66 69 6c 65 2d 70 72 6f 70 65 72 74 79 20 28 68 65 61 64 6c 69 6e oter--doc-file-property.(headlin
18160 65 29 0a 20 20 28 77 68 65 6e 20 28 64 65 72 69 76 65 64 2d 6d 6f 64 65 2d 70 20 27 6f 72 67 2d e)...(when.(derived-mode-p.'org-
18180 6d 6f 64 65 29 0a 20 20 20 20 28 6c 65 74 20 28 28 64 6f 63 2d 70 72 6f 70 20 28 6f 72 20 28 6f mode).....(let.((doc-prop.(or.(o
181a0 72 67 2d 65 6c 65 6d 65 6e 74 2d 70 72 6f 70 65 72 74 79 20 28 69 6e 74 65 72 6e 20 28 63 6f 6e rg-element-property.(intern.(con
181c0 63 61 74 20 22 3a 22 20 6f 72 67 2d 6e 6f 74 65 72 2d 70 72 6f 70 65 72 74 79 2d 64 6f 63 2d 66 cat.":".org-noter-property-doc-f
181e0 69 6c 65 29 29 20 68 65 61 64 6c 69 6e 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ile)).headline).................
18200 20 20 20 20 20 20 20 20 28 6f 72 67 2d 65 6e 74 72 79 2d 67 65 74 20 6e 69 6c 20 6f 72 67 2d 6e ........(org-entry-get.nil.org-n
18220 6f 74 65 72 2d 70 72 6f 70 65 72 74 79 2d 64 6f 63 2d 66 69 6c 65 20 74 29 29 29 29 0a 20 20 20 oter-property-doc-file.t))))....
18240 20 20 20 28 6f 72 20 28 72 75 6e 2d 68 6f 6f 6b 2d 77 69 74 68 2d 61 72 67 73 2d 75 6e 74 69 6c ...(or.(run-hook-with-args-until
18260 2d 73 75 63 63 65 73 73 20 27 6f 72 67 2d 6e 6f 74 65 72 2d 70 61 72 73 65 2d 64 6f 63 75 6d 65 -success.'org-noter-parse-docume
18280 6e 74 2d 70 72 6f 70 65 72 74 79 2d 68 6f 6f 6b 20 64 6f 63 2d 70 72 6f 70 29 0a 20 20 20 20 20 nt-property-hook.doc-prop)......
182a0 20 20 20 20 20 64 6f 63 2d 70 72 6f 70 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 6f 72 67 2d 6e 6f .....doc-prop))))..(defun.org-no
182c0 74 65 72 2d 2d 63 68 65 63 6b 2d 6c 6f 63 61 74 69 6f 6e 2d 70 72 6f 70 65 72 74 79 20 28 61 72 ter--check-location-property.(ar
182e0 67 29 0a 20 20 28 6c 65 74 20 28 28 70 72 6f 70 65 72 74 79 20 28 69 66 20 28 73 74 72 69 6e 67 g)...(let.((property.(if.(string
18300 70 20 61 72 67 29 20 61 72 67 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 p.arg).arg.....................(
18320 6f 72 20 28 6f 72 67 2d 65 6c 65 6d 65 6e 74 2d 70 72 6f 70 65 72 74 79 0a 20 20 20 20 20 20 20 or.(org-element-property........
18340 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 6e 74 65 72 6e 20 28 63 6f 6e 63 61 ..................(intern.(conca
18360 74 20 22 3a 22 20 6f 72 67 2d 6e 6f 74 65 72 2d 70 72 6f 70 65 72 74 79 2d 6e 6f 74 65 2d 6c 6f t.":".org-noter-property-note-lo
18380 63 61 74 69 6f 6e 29 29 20 61 72 67 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 cation)).arg)...................
183a0 20 20 20 20 20 20 28 72 75 6e 2d 68 6f 6f 6b 2d 77 69 74 68 2d 61 72 67 73 2d 75 6e 74 69 6c 2d ......(run-hook-with-args-until-
183c0 73 75 63 63 65 73 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 success.........................
183e0 20 27 6f 72 67 2d 6e 6f 74 65 72 2d 2d 67 65 74 2d 6c 6f 63 61 74 69 6f 6e 2d 70 72 6f 70 65 72 .'org-noter--get-location-proper
18400 74 79 2d 68 6f 6f 6b 20 61 72 67 29 29 29 29 29 0a 20 20 20 20 28 77 68 65 6e 20 28 61 6e 64 20 ty-hook.arg))))).....(when.(and.
18420 28 73 74 72 69 6e 67 70 20 70 72 6f 70 65 72 74 79 29 20 28 3e 20 28 6c 65 6e 67 74 68 20 70 72 (stringp.property).(>.(length.pr
18440 6f 70 65 72 74 79 29 20 30 29 29 0a 20 20 20 20 20 20 28 6f 72 20 28 72 75 6e 2d 68 6f 6f 6b 2d operty).0)).......(or.(run-hook-
18460 77 69 74 68 2d 61 72 67 73 2d 75 6e 74 69 6c 2d 73 75 63 63 65 73 73 20 27 6f 72 67 2d 6e 6f 74 with-args-until-success.'org-not
18480 65 72 2d 2d 63 68 65 63 6b 2d 6c 6f 63 61 74 69 6f 6e 2d 70 72 6f 70 65 72 74 79 2d 68 6f 6f 6b er--check-location-property-hook
184a0 20 70 72 6f 70 65 72 74 79 29 0a 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 76 61 6c 75 .property)...........(let.((valu
184c0 65 20 28 63 61 72 20 28 72 65 61 64 2d 66 72 6f 6d 2d 73 74 72 69 6e 67 20 70 72 6f 70 65 72 74 e.(car.(read-from-string.propert
184e0 79 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 6f 72 20 28 61 6e 64 20 28 63 6f 6e 73 y)))).............(or.(and.(cons
18500 70 20 76 61 6c 75 65 29 20 28 69 6e 74 65 67 65 72 70 20 28 63 61 72 20 76 61 6c 75 65 29 29 20 p.value).(integerp.(car.value)).
18520 28 6e 75 6d 62 65 72 70 20 28 63 64 72 20 76 61 6c 75 65 29 29 29 0a 20 20 20 20 20 20 20 20 20 (numberp.(cdr.value)))..........
18540 20 20 20 20 20 20 20 28 61 6e 64 20 28 63 6f 6e 73 70 20 76 61 6c 75 65 29 20 28 69 6e 74 65 67 .......(and.(consp.value).(integ
18560 65 72 70 20 28 63 61 72 20 76 61 6c 75 65 29 29 20 28 6e 75 6d 62 65 72 70 20 28 63 61 64 72 20 erp.(car.value)).(numberp.(cadr.
18580 76 61 6c 75 65 29 29 20 28 6e 75 6d 62 65 72 70 20 28 63 64 64 72 20 76 61 6c 75 65 29 29 29 0a value)).(numberp.(cddr.value))).
185a0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 6e 74 65 67 65 72 70 20 76 61 6c 75 65 29 ................(integerp.value)
185c0 29 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 6f 72 67 2d 6e 6f 74 65 72 2d 2d 70 61 72 73 65 2d ))))))..(defun.org-noter--parse-
185e0 6c 6f 63 61 74 69 6f 6e 2d 70 72 6f 70 65 72 74 79 20 28 61 72 67 29 0a 20 20 28 6c 65 74 20 28 location-property.(arg)...(let.(
18600 28 70 72 6f 70 65 72 74 79 20 28 69 66 20 28 73 74 72 69 6e 67 70 20 61 72 67 29 20 61 72 67 0a (property.(if.(stringp.arg).arg.
18620 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 6f 72 67 2d 65 6c 65 ....................(or.(org-ele
18640 6d 65 6e 74 2d 70 72 6f 70 65 72 74 79 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ment-property...................
18660 20 20 20 20 20 20 20 28 69 6e 74 65 72 6e 20 28 63 6f 6e 63 61 74 20 22 3a 22 20 6f 72 67 2d 6e .......(intern.(concat.":".org-n
18680 6f 74 65 72 2d 70 72 6f 70 65 72 74 79 2d 6e 6f 74 65 2d 6c 6f 63 61 74 69 6f 6e 29 29 20 61 72 oter-property-note-location)).ar
186a0 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 28 72 75 6e 2d g).........................(run-
186c0 68 6f 6f 6b 2d 77 69 74 68 2d 61 72 67 73 2d 75 6e 74 69 6c 2d 73 75 63 63 65 73 73 0a 20 20 20 hook-with-args-until-success....
186e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 6f 72 67 2d 6e 6f 74 65 72 ......................'org-noter
18700 2d 2d 67 65 74 2d 6c 6f 63 61 74 69 6f 6e 2d 70 72 6f 70 65 72 74 79 2d 68 6f 6f 6b 20 61 72 67 --get-location-property-hook.arg
18720 29 29 29 29 29 0a 20 20 20 20 28 77 68 65 6e 20 28 61 6e 64 20 28 73 74 72 69 6e 67 70 20 70 72 ))))).....(when.(and.(stringp.pr
18740 6f 70 65 72 74 79 29 20 28 3e 20 28 6c 65 6e 67 74 68 20 70 72 6f 70 65 72 74 79 29 20 30 29 29 operty).(>.(length.property).0))
18760 0a 20 20 20 20 20 20 28 6f 72 20 28 72 75 6e 2d 68 6f 6f 6b 2d 77 69 74 68 2d 61 72 67 73 2d 75 .......(or.(run-hook-with-args-u
18780 6e 74 69 6c 2d 73 75 63 63 65 73 73 20 27 6f 72 67 2d 6e 6f 74 65 72 2d 2d 70 61 72 73 65 2d 6c ntil-success.'org-noter--parse-l
187a0 6f 63 61 74 69 6f 6e 2d 70 72 6f 70 65 72 74 79 2d 68 6f 6f 6b 20 70 72 6f 70 65 72 74 79 29 0a ocation-property-hook.property).
187c0 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 76 61 6c 75 65 20 28 63 61 72 20 28 72 65 61 ..........(let.((value.(car.(rea
187e0 64 2d 66 72 6f 6d 2d 73 74 72 69 6e 67 20 70 72 6f 70 65 72 74 79 29 29 29 29 0a 20 20 20 20 20 d-from-string.property))))......
18800 20 20 20 20 20 20 20 28 63 6f 6e 64 20 28 28 61 6e 64 20 28 63 6f 6e 73 70 20 76 61 6c 75 65 29 .......(cond.((and.(consp.value)
18820 20 28 69 6e 74 65 67 65 72 70 20 28 63 61 72 20 76 61 6c 75 65 29 29 20 28 6e 75 6d 62 65 72 70 .(integerp.(car.value)).(numberp
18840 20 28 63 64 72 20 76 61 6c 75 65 29 29 29 20 76 61 6c 75 65 29 0a 20 20 20 20 20 20 20 20 20 20 .(cdr.value))).value)...........
18860 20 20 20 20 20 20 20 20 28 28 61 6e 64 20 28 63 6f 6e 73 70 20 76 61 6c 75 65 29 20 28 69 6e 74 ........((and.(consp.value).(int
18880 65 67 65 72 70 20 28 63 61 72 20 76 61 6c 75 65 29 29 20 28 63 6f 6e 73 70 20 28 63 64 72 20 76 egerp.(car.value)).(consp.(cdr.v
188a0 61 6c 75 65 29 29 20 28 6e 75 6d 62 65 72 70 20 28 63 61 64 72 20 76 61 6c 75 65 29 29 20 28 6e alue)).(numberp.(cadr.value)).(n
188c0 75 6d 62 65 72 70 20 28 63 64 64 72 20 76 61 6c 75 65 29 29 29 20 76 61 6c 75 65 29 0a 20 20 20 umberp.(cddr.value))).value)....
188e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 28 69 6e 74 65 67 65 72 70 20 76 61 6c 75 65 29 ...............((integerp.value)
18900 20 28 63 6f 6e 73 20 76 61 6c 75 65 20 30 29 29 29 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 6f .(cons.value.0))))))))..(defun.o
18920 72 67 2d 6e 6f 74 65 72 2d 2d 70 72 65 74 74 79 2d 70 72 69 6e 74 2d 6c 6f 63 61 74 69 6f 6e 20 rg-noter--pretty-print-location.
18940 28 6c 6f 63 61 74 69 6f 6e 29 0a 20 20 22 4f 72 69 67 69 6e 61 6c 20 70 72 65 74 74 79 2d 70 72 (location)..."Original.pretty-pr
18960 69 6e 74 20 66 6f 72 20 70 72 6f 70 65 72 74 79 20 64 72 61 77 65 72 2e 0a 4c 4f 43 41 54 49 4f int.for.property.drawer..LOCATIO
18980 4e 20 63 6f 6e 74 61 69 6e 73 20 74 68 65 20 70 61 67 65 20 6e 75 6d 62 65 72 20 61 6e 64 2c 20 N.contains.the.page.number.and,.
189a0 6f 70 74 69 6f 6e 61 6c 6c 79 2c 20 74 68 65 20 76 65 72 74 69 63 61 6c 0a 61 6e 64 2f 6f 72 20 optionally,.the.vertical.and/or.
189c0 68 6f 72 69 7a 6f 6e 74 61 6c 20 70 6f 73 69 74 69 6f 6e 73 2e 22 0a 20 20 28 6f 72 67 2d 6e 6f horizontal.positions."...(org-no
189e0 74 65 72 2d 2d 77 69 74 68 2d 76 61 6c 69 64 2d 73 65 73 73 69 6f 6e 0a 20 20 20 28 72 75 6e 2d ter--with-valid-session....(run-
18a00 68 6f 6f 6b 2d 77 69 74 68 2d 61 72 67 73 2d 75 6e 74 69 6c 2d 73 75 63 63 65 73 73 0a 20 20 20 hook-with-args-until-success....
18a20 20 27 6f 72 67 2d 6e 6f 74 65 72 2d 2d 70 72 65 74 74 79 2d 70 72 69 6e 74 2d 6c 6f 63 61 74 69 .'org-noter--pretty-print-locati
18a40 6f 6e 2d 68 6f 6f 6b 20 6c 6f 63 61 74 69 6f 6e 29 29 29 0a 0a 28 64 65 66 75 6e 20 6f 72 67 2d on-hook.location)))..(defun.org-
18a60 6e 6f 74 65 72 2d 2d 70 72 65 74 74 79 2d 70 72 69 6e 74 2d 6c 6f 63 61 74 69 6f 6e 2d 66 6f 72 noter--pretty-print-location-for
18a80 2d 74 69 74 6c 65 20 28 6c 6f 63 61 74 69 6f 6e 29 0a 20 20 22 50 72 65 74 74 79 2d 70 72 69 6e -title.(location)..."Pretty-prin
18aa0 74 20 66 6f 72 20 74 69 74 6c 65 73 2e 0a 43 6f 6d 70 61 72 65 64 20 74 6f 20 74 68 65 20 6f 72 t.for.titles..Compared.to.the.or
18ac0 69 67 69 6e 61 6c 20 66 75 6e 63 74 69 6f 6e 73 2f 68 6f 6f 6b 2c 20 74 68 69 73 20 6f 6e 65 20 iginal.functions/hook,.this.one.
18ae0 6d 61 79 20 70 72 65 73 65 6e 74 0a 6d 6f 72 65 20 68 75 6d 61 6e 2d 72 65 61 64 61 62 6c 65 20 may.present.more.human-readable.
18b00 74 65 78 74 2e 20 20 4c 4f 43 41 54 49 4f 4e 20 63 6f 6e 74 61 69 6e 73 20 74 68 65 20 70 61 67 text...LOCATION.contains.the.pag
18b20 65 20 6e 75 6d 62 65 72 20 61 6e 64 2c 0a 6f 70 74 69 6f 6e 61 6c 6c 79 2c 20 74 68 65 20 76 65 e.number.and,.optionally,.the.ve
18b40 72 74 69 63 61 6c 20 61 6e 64 2f 6f 72 20 68 6f 72 69 7a 6f 6e 74 61 6c 20 70 6f 73 69 74 69 6f rtical.and/or.horizontal.positio
18b60 6e 73 2e 22 0a 20 20 28 6f 72 67 2d 6e 6f 74 65 72 2d 2d 77 69 74 68 2d 76 61 6c 69 64 2d 73 65 ns."...(org-noter--with-valid-se
18b80 73 73 69 6f 6e 0a 20 20 20 28 72 75 6e 2d 68 6f 6f 6b 2d 77 69 74 68 2d 61 72 67 73 2d 75 6e 74 ssion....(run-hook-with-args-unt
18ba0 69 6c 2d 73 75 63 63 65 73 73 0a 20 20 20 20 27 6f 72 67 2d 6e 6f 74 65 72 2d 2d 70 72 65 74 74 il-success.....'org-noter--prett
18bc0 79 2d 70 72 69 6e 74 2d 6c 6f 63 61 74 69 6f 6e 2d 66 6f 72 2d 74 69 74 6c 65 2d 68 6f 6f 6b 20 y-print-location-for-title-hook.
18be0 6c 6f 63 61 74 69 6f 6e 29 29 29 0a 0a 3b 3b 20 54 4f 44 4f 3a 20 44 6f 63 75 6d 65 6e 74 61 74 location)))..;;.TODO:.Documentat
18c00 69 6f 6e 0a 28 64 65 66 75 6e 20 6f 72 67 2d 6e 6f 74 65 72 2d 2d 67 65 74 2d 63 6f 6e 74 61 69 ion.(defun.org-noter--get-contai
18c20 6e 69 6e 67 2d 65 6c 65 6d 65 6e 74 20 28 26 6f 70 74 69 6f 6e 61 6c 20 69 6e 63 6c 75 64 65 2d ning-element.(&optional.include-
18c40 72 6f 6f 74 29 0a 20 20 22 52 75 6e 20 60 6f 72 67 2d 6e 6f 74 65 72 2d 2d 67 65 74 2d 63 6f 6e root)..."Run.`org-noter--get-con
18c60 74 61 69 6e 69 6e 67 2d 65 6c 65 6d 65 6e 74 2d 68 6f 6f 6b 27 73 20 75 6e 74 69 6c 20 73 75 63 taining-element-hook's.until.suc
18c80 63 65 73 73 2e 0a 0a 52 75 6e 73 20 60 6f 72 67 2d 6e 6f 74 65 72 2d 2d 67 65 74 2d 63 6f 6e 74 cess...Runs.`org-noter--get-cont
18ca0 61 69 6e 69 6e 67 2d 68 65 61 64 69 6e 67 27 2c 20 74 68 65 6e 0a 60 6f 72 67 2d 6e 6f 74 65 72 aining-heading',.then.`org-noter
18cc0 2d 2d 67 65 74 2d 63 6f 6e 74 61 69 6e 69 6e 67 2d 70 72 6f 70 65 72 74 79 2d 64 72 61 77 65 72 --get-containing-property-drawer
18ce0 27 2e 20 20 54 68 69 73 20 66 75 6e 63 74 69 6f 6e 20 69 73 0a 75 73 65 64 20 69 6e 20 60 6f 72 '...This.function.is.used.in.`or
18d00 67 2d 6e 6f 74 65 72 2d 73 79 6e 63 2d 63 75 72 72 65 6e 74 2d 6e 6f 74 65 27 2c 0a 60 6f 72 67 g-noter-sync-current-note',.`org
18d20 2d 6e 6f 74 65 72 2d 73 79 6e 63 2d 70 72 65 76 69 6f 75 73 2d 6e 6f 74 65 27 2c 20 61 6e 64 20 -noter-sync-previous-note',.and.
18d40 60 6f 72 67 2d 6e 6f 74 65 72 2d 2d 63 72 65 61 74 65 2d 73 65 73 73 69 6f 6e 27 2e 0a 0a 57 68 `org-noter--create-session'...Wh
18d60 65 6e 20 49 4e 43 4c 55 44 45 2d 52 4f 4f 54 20 69 73 20 6e 6f 6e 2d 6e 69 6c 2c 20 74 68 65 20 en.INCLUDE-ROOT.is.non-nil,.the.
18d80 72 6f 6f 74 20 68 65 61 64 69 6e 67 20 69 73 20 61 6c 73 6f 20 65 6c 69 67 69 62 6c 65 0a 74 6f root.heading.is.also.eligible.to
18da0 20 62 65 20 72 65 74 75 72 6e 65 64 2e 22 0a 20 20 28 72 75 6e 2d 68 6f 6f 6b 2d 77 69 74 68 2d .be.returned."...(run-hook-with-
18dc0 61 72 67 73 2d 75 6e 74 69 6c 2d 73 75 63 63 65 73 73 20 27 6f 72 67 2d 6e 6f 74 65 72 2d 2d 67 args-until-success.'org-noter--g
18de0 65 74 2d 63 6f 6e 74 61 69 6e 69 6e 67 2d 65 6c 65 6d 65 6e 74 2d 68 6f 6f 6b 20 69 6e 63 6c 75 et-containing-element-hook.inclu
18e00 64 65 2d 72 6f 6f 74 29 29 0a 0a 28 64 65 66 75 6e 20 6f 72 67 2d 6e 6f 74 65 72 2d 2d 67 65 74 de-root))..(defun.org-noter--get
18e20 2d 63 6f 6e 74 61 69 6e 69 6e 67 2d 68 65 61 64 69 6e 67 20 28 26 6f 70 74 69 6f 6e 61 6c 20 69 -containing-heading.(&optional.i
18e40 6e 63 6c 75 64 65 2d 72 6f 6f 74 29 0a 20 20 22 52 65 74 75 72 6e 20 74 68 65 20 73 6d 61 6c 6c nclude-root)..."Return.the.small
18e60 65 73 74 20 68 65 61 64 69 6e 67 20 61 72 6f 75 6e 64 20 70 6f 69 6e 74 20 77 69 74 68 20 61 20 est.heading.around.point.with.a.
18e80 6c 6f 63 61 74 69 6f 6e 20 70 72 6f 70 65 72 74 79 2e 0a 0a 47 65 74 20 73 6d 61 6c 6c 65 73 74 location.property...Get.smallest
18ea0 20 63 6f 6e 74 61 69 6e 69 6e 67 20 68 65 61 64 69 6e 67 20 74 68 61 74 20 65 6e 63 6c 6f 73 65 .containing.heading.that.enclose
18ec0 73 20 74 68 65 20 70 6f 69 6e 74 20 61 6e 64 20 68 61 73 0a 6c 6f 63 61 74 69 6f 6e 20 70 72 6f s.the.point.and.has.location.pro
18ee0 70 65 72 74 79 2e 20 20 49 66 20 74 68 65 20 70 6f 69 6e 74 20 69 73 6e 27 74 20 69 6e 73 69 64 perty...If.the.point.isn't.insid
18f00 65 20 61 6e 79 20 68 65 61 64 69 6e 67 20 77 69 74 68 0a 6c 6f 63 61 74 69 6f 6e 20 70 72 6f 70 e.any.heading.with.location.prop
18f20 65 72 74 79 2c 20 72 65 74 75 72 6e 20 74 68 65 20 6f 75 74 65 72 20 68 65 61 64 69 6e 67 2e 20 erty,.return.the.outer.heading..
18f40 20 57 68 65 6e 20 49 4e 43 4c 55 44 45 2d 52 4f 4f 54 0a 69 73 20 6e 6f 6e 2d 6e 69 6c 2c 20 74 .When.INCLUDE-ROOT.is.non-nil,.t
18f60 68 65 20 72 6f 6f 74 20 68 65 61 64 69 6e 67 20 69 73 20 61 6c 73 6f 20 65 6c 69 67 69 62 6c 65 he.root.heading.is.also.eligible
18f80 20 74 6f 20 62 65 20 72 65 74 75 72 6e 65 64 2e 22 0a 20 20 28 6f 72 67 2d 6e 6f 74 65 72 2d 2d .to.be.returned."...(org-noter--
18fa0 77 69 74 68 2d 76 61 6c 69 64 2d 73 65 73 73 69 6f 6e 0a 20 20 20 28 6f 72 67 2d 77 69 74 68 2d with-valid-session....(org-with-
18fc0 77 69 64 65 2d 62 75 66 66 65 72 0a 20 20 20 20 28 75 6e 6c 65 73 73 20 28 6f 72 67 2d 62 65 66 wide-buffer.....(unless.(org-bef
18fe0 6f 72 65 2d 66 69 72 73 74 2d 68 65 61 64 69 6e 67 2d 70 29 0a 20 20 20 20 20 20 28 6f 72 67 2d ore-first-heading-p).......(org-
19000 62 61 63 6b 2d 74 6f 2d 68 65 61 64 69 6e 67 20 74 29 0a 20 20 20 20 20 20 28 6c 65 74 20 28 70 back-to-heading.t).......(let.(p
19020 72 65 76 69 6f 75 73 29 0a 20 20 20 20 20 20 20 20 28 63 61 74 63 68 20 27 62 72 65 61 6b 0a 20 revious).........(catch.'break..
19040 20 20 20 20 20 20 20 20 20 28 77 68 69 6c 65 20 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 6c .........(while.t.............(l
19060 65 74 20 28 28 70 72 6f 70 20 28 6f 72 67 2d 6e 6f 74 65 72 2d 2d 63 68 65 63 6b 2d 6c 6f 63 61 et.((prop.(org-noter--check-loca
19080 74 69 6f 6e 2d 70 72 6f 70 65 72 74 79 20 28 6f 72 67 2d 65 6e 74 72 79 2d 67 65 74 20 6e 69 6c tion-property.(org-entry-get.nil
190a0 20 6f 72 67 2d 6e 6f 74 65 72 2d 70 72 6f 70 65 72 74 79 2d 6e 6f 74 65 2d 6c 6f 63 61 74 69 6f .org-noter-property-note-locatio
190c0 6e 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 61 74 2d 72 6f 6f 74 20 n)))...................(at-root.
190e0 28 65 71 75 61 6c 20 28 6f 72 67 2d 6e 6f 74 65 72 2d 2d 73 65 73 73 69 6f 6e 2d 69 64 20 73 65 (equal.(org-noter--session-id.se
19100 73 73 69 6f 6e 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 ssion)..........................
19120 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 79 20 28 70 6f 69 .........(get-text-property.(poi
19140 6e 74 29 20 6f 72 67 2d 6e 6f 74 65 72 2d 2d 69 64 2d 74 65 78 74 2d 70 72 6f 70 65 72 74 79 29 nt).org-noter--id-text-property)
19160 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 68 65 61 64 69 6e 67 20 28 6f ))...................(heading.(o
19180 72 67 2d 65 6c 65 6d 65 6e 74 2d 61 74 2d 70 6f 69 6e 74 29 29 29 0a 20 20 20 20 20 20 20 20 20 rg-element-at-point)))..........
191a0 20 20 20 20 20 28 77 68 65 6e 20 28 61 6e 64 20 70 72 6f 70 20 28 6f 72 20 69 6e 63 6c 75 64 65 .....(when.(and.prop.(or.include
191c0 2d 72 6f 6f 74 20 28 6e 6f 74 20 61 74 2d 72 6f 6f 74 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 -root.(not.at-root)))...........
191e0 20 20 20 20 20 20 28 74 68 72 6f 77 20 27 62 72 65 61 6b 20 68 65 61 64 69 6e 67 29 29 0a 0a 20 ......(throw.'break.heading))...
19200 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 28 6f 72 20 61 74 2d 72 6f 6f 74 20 28 .............(when.(or.at-root.(
19220 6e 6f 74 20 28 6f 72 67 2d 75 70 2d 68 65 61 64 69 6e 67 2d 73 61 66 65 29 29 29 0a 20 20 20 20 not.(org-up-heading-safe))).....
19240 20 20 20 20 20 20 20 20 20 20 20 20 28 74 68 72 6f 77 20 27 62 72 65 61 6b 20 28 69 66 20 69 6e ............(throw.'break.(if.in
19260 63 6c 75 64 65 2d 72 6f 6f 74 20 68 65 61 64 69 6e 67 20 70 72 65 76 69 6f 75 73 29 29 29 0a 0a clude-root.heading.previous)))..
19280 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 70 72 65 76 69 6f 75 73 20 68 65 61 ..............(setq.previous.hea
192a0 64 69 6e 67 29 29 29 29 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 6f 72 67 2d 6e 6f 74 65 72 2d ding)))))))))..(defun.org-noter-
192c0 2d 67 65 74 2d 63 6f 6e 74 61 69 6e 69 6e 67 2d 70 72 6f 70 65 72 74 79 2d 64 72 61 77 65 72 20 -get-containing-property-drawer.
192e0 28 26 6f 70 74 69 6f 6e 61 6c 20 69 6e 63 6c 75 64 65 2d 72 6f 6f 74 29 0a 20 20 22 52 65 74 75 (&optional.include-root)..."Retu
19300 72 6e 20 74 68 65 20 70 72 6f 70 65 72 74 79 20 64 72 61 77 65 72 20 6f 66 20 74 68 65 20 73 6d rn.the.property.drawer.of.the.sm
19320 61 6c 6c 65 73 74 20 68 65 61 64 69 6e 67 20 61 72 6f 75 6e 64 20 70 6f 69 6e 74 20 77 69 74 68 allest.heading.around.point.with
19340 20 6c 6f 63 61 74 69 6f 6e 2e 0a 0a 47 65 74 20 73 6d 61 6c 6c 65 73 74 20 63 6f 6e 74 61 69 6e .location...Get.smallest.contain
19360 69 6e 67 20 68 65 61 64 69 6e 67 20 74 68 61 74 20 65 6e 63 6c 6f 73 65 73 20 74 68 65 20 70 6f ing.heading.that.encloses.the.po
19380 69 6e 74 20 61 6e 64 20 68 61 73 0a 6c 6f 63 61 74 69 6f 6e 20 70 72 6f 70 65 72 74 79 2e 20 20 int.and.has.location.property...
193a0 49 66 20 74 68 65 20 70 6f 69 6e 74 20 69 73 6e 27 74 20 69 6e 73 69 64 65 20 61 6e 79 20 68 65 If.the.point.isn't.inside.any.he
193c0 61 64 69 6e 67 20 77 69 74 68 0a 6c 6f 63 61 74 69 6f 6e 20 70 72 6f 70 65 72 74 79 2c 20 72 65 ading.with.location.property,.re
193e0 74 75 72 6e 20 74 68 65 20 6f 75 74 65 72 20 68 65 61 64 69 6e 67 2e 20 20 57 68 65 6e 20 49 4e turn.the.outer.heading...When.IN
19400 43 4c 55 44 45 2d 52 4f 4f 54 0a 69 73 20 6e 6f 6e 2d 6e 69 6c 2c 20 74 68 65 20 72 6f 6f 74 20 CLUDE-ROOT.is.non-nil,.the.root.
19420 68 65 61 64 69 6e 67 20 69 73 20 61 6c 73 6f 20 65 6c 69 67 69 62 6c 65 20 74 6f 20 62 65 20 72 heading.is.also.eligible.to.be.r
19440 65 74 75 72 6e 65 64 2e 22 0a 20 20 28 6f 72 67 2d 6e 6f 74 65 72 2d 2d 77 69 74 68 2d 76 61 6c eturned."...(org-noter--with-val
19460 69 64 2d 73 65 73 73 69 6f 6e 0a 20 20 20 28 6f 72 67 2d 77 69 74 68 2d 70 6f 69 6e 74 2d 61 74 id-session....(org-with-point-at
19480 20 28 70 6f 69 6e 74 2d 6d 69 6e 29 0a 20 20 20 20 28 77 68 65 6e 20 28 6f 72 67 2d 62 65 66 6f .(point-min).....(when.(org-befo
194a0 72 65 2d 66 69 72 73 74 2d 68 65 61 64 69 6e 67 2d 70 29 0a 20 20 20 20 20 20 28 6c 65 74 20 28 re-first-heading-p).......(let.(
194c0 28 70 72 6f 70 20 28 6f 72 67 2d 65 6e 74 72 79 2d 67 65 74 20 6e 69 6c 20 6f 72 67 2d 6e 6f 74 (prop.(org-entry-get.nil.org-not
194e0 65 72 2d 70 72 6f 70 65 72 74 79 2d 6e 6f 74 65 2d 6c 6f 63 61 74 69 6f 6e 29 29 0a 20 20 20 20 er-property-note-location)).....
19500 20 20 20 20 20 20 20 20 28 61 74 2d 72 6f 6f 74 20 28 65 71 75 61 6c 20 28 6f 72 67 2d 6e 6f 74 ........(at-root.(equal.(org-not
19520 65 72 2d 2d 73 65 73 73 69 6f 6e 2d 69 64 20 73 65 73 73 69 6f 6e 29 0a 20 20 20 20 20 20 20 20 er--session-id.session).........
19540 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 74 2d 70 72 ....................(get-text-pr
19560 6f 70 65 72 74 79 20 28 70 6f 69 6e 74 29 20 6f 72 67 2d 6e 6f 74 65 72 2d 2d 69 64 2d 74 65 78 operty.(point).org-noter--id-tex
19580 74 2d 70 72 6f 70 65 72 74 79 29 29 29 29 0a 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 28 61 6e t-property)))).........(when.(an
195a0 64 20 28 6f 72 67 2d 6e 6f 74 65 72 2d 2d 63 68 65 63 6b 2d 6c 6f 63 61 74 69 6f 6e 2d 70 72 6f d.(org-noter--check-location-pro
195c0 70 65 72 74 79 20 70 72 6f 70 29 20 28 6f 72 20 69 6e 63 6c 75 64 65 2d 72 6f 6f 74 20 28 6e 6f perty.prop).(or.include-root.(no
195e0 74 20 61 74 2d 72 6f 6f 74 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 70 72 6f 70 29 29 29 29 29 t.at-root)))...........prop)))))
19600 29 0a 0a 28 64 65 66 75 6e 20 6f 72 67 2d 6e 6f 74 65 72 2d 2d 64 6f 63 2d 67 65 74 2d 70 61 67 )..(defun.org-noter--doc-get-pag
19620 65 2d 73 6c 69 63 65 20 28 29 0a 20 20 22 52 65 74 75 72 6e 20 28 73 6c 69 63 65 2d 74 6f 70 20 e-slice.()..."Return.(slice-top.
19640 2e 20 73 6c 69 63 65 2d 68 65 69 67 68 74 29 2e 22 0a 20 20 28 6c 65 74 2a 20 28 28 73 6c 69 63 ..slice-height)."...(let*.((slic
19660 65 20 28 6f 72 20 28 69 6d 61 67 65 2d 6d 6f 64 65 2d 77 69 6e 64 6f 77 2d 67 65 74 20 27 73 6c e.(or.(image-mode-window-get.'sl
19680 69 63 65 29 20 27 28 30 20 30 20 31 20 31 29 29 29 0a 20 20 20 20 20 20 20 20 20 28 73 6c 69 63 ice).'(0.0.1.1)))..........(slic
196a0 65 2d 6c 65 66 74 20 28 66 6c 6f 61 74 20 28 6e 74 68 20 30 20 73 6c 69 63 65 29 29 29 0a 20 20 e-left.(float.(nth.0.slice)))...
196c0 20 20 20 20 20 20 20 28 73 6c 69 63 65 2d 74 6f 70 20 28 66 6c 6f 61 74 20 28 6e 74 68 20 31 20 .......(slice-top.(float.(nth.1.
196e0 73 6c 69 63 65 29 29 29 0a 20 20 20 20 20 20 20 20 20 28 73 6c 69 63 65 2d 77 69 64 74 68 20 28 slice)))..........(slice-width.(
19700 66 6c 6f 61 74 20 28 6e 74 68 20 32 20 73 6c 69 63 65 29 29 29 0a 20 20 20 20 20 20 20 20 20 28 float.(nth.2.slice)))..........(
19720 73 6c 69 63 65 2d 68 65 69 67 68 74 20 28 66 6c 6f 61 74 20 28 6e 74 68 20 33 20 73 6c 69 63 65 slice-height.(float.(nth.3.slice
19740 29 29 29 29 0a 20 20 20 20 28 77 68 65 6e 20 28 6f 72 20 28 3e 20 73 6c 69 63 65 2d 74 6f 70 20 )))).....(when.(or.(>.slice-top.
19760 31 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 3e 20 73 6c 69 63 65 2d 68 65 69 67 68 74 1)...............(>.slice-height
19780 20 31 29 29 0a 20 20 20 20 20 20 28 6c 65 74 20 28 28 68 65 69 67 68 74 20 28 63 64 72 20 28 69 .1)).......(let.((height.(cdr.(i
197a0 6d 61 67 65 2d 73 69 7a 65 20 28 69 6d 61 67 65 2d 6d 6f 64 65 2d 77 69 6e 64 6f 77 2d 67 65 74 mage-size.(image-mode-window-get
197c0 20 27 69 6d 61 67 65 29 20 74 29 29 29 29 0a 20 20 20 20 20 20 20 20 28 73 65 74 71 20 73 6c 69 .'image).t)))).........(setq.sli
197e0 63 65 2d 74 6f 70 20 28 2f 20 73 6c 69 63 65 2d 74 6f 70 20 68 65 69 67 68 74 29 0a 20 20 20 20 ce-top.(/.slice-top.height).....
19800 20 20 20 20 20 20 20 20 20 20 73 6c 69 63 65 2d 68 65 69 67 68 74 20 28 2f 20 73 6c 69 63 65 2d ..........slice-height.(/.slice-
19820 68 65 69 67 68 74 20 68 65 69 67 68 74 29 29 29 29 0a 20 20 20 20 28 77 68 65 6e 20 28 6f 72 20 height.height)))).....(when.(or.
19840 28 3e 20 73 6c 69 63 65 2d 77 69 64 74 68 20 31 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 (>.slice-width.1)...............
19860 28 3e 20 73 6c 69 63 65 2d 6c 65 66 74 20 31 29 29 0a 20 20 20 20 20 20 28 6c 65 74 20 28 28 77 (>.slice-left.1)).......(let.((w
19880 69 64 74 68 20 28 63 61 72 20 28 69 6d 61 67 65 2d 73 69 7a 65 20 28 69 6d 61 67 65 2d 6d 6f 64 idth.(car.(image-size.(image-mod
198a0 65 2d 77 69 6e 64 6f 77 2d 67 65 74 20 27 69 6d 61 67 65 29 20 74 29 29 29 29 0a 20 20 20 20 20 e-window-get.'image).t))))......
198c0 20 20 20 28 73 65 74 71 20 73 6c 69 63 65 2d 77 69 64 74 68 20 28 2f 20 73 6c 69 63 65 2d 77 69 ...(setq.slice-width.(/.slice-wi
198e0 64 74 68 20 77 69 64 74 68 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 6c 69 63 65 2d 6c dth.width)...............slice-l
19900 65 66 74 20 28 2f 20 73 6c 69 63 65 2d 6c 65 66 74 20 77 69 64 74 68 29 29 29 29 0a 20 20 20 20 eft.(/.slice-left.width)))).....
19920 28 6c 69 73 74 20 73 6c 69 63 65 2d 74 6f 70 20 73 6c 69 63 65 2d 68 65 69 67 68 74 20 73 6c 69 (list.slice-top.slice-height.sli
19940 63 65 2d 6c 65 66 74 20 73 6c 69 63 65 2d 77 69 64 74 68 29 29 29 0a 0a 28 64 65 66 75 6e 20 6f ce-left.slice-width)))..(defun.o
19960 72 67 2d 6e 6f 74 65 72 2d 2d 63 6f 6e 76 2d 70 61 67 65 2d 73 63 72 6f 6c 6c 2d 70 65 72 63 65 rg-noter--conv-page-scroll-perce
19980 6e 74 61 67 65 20 28 76 73 63 72 6f 6c 6c 20 26 6f 70 74 69 6f 6e 61 6c 20 68 73 63 72 6f 6c 6c ntage.(vscroll.&optional.hscroll
199a0 29 0a 20 20 22 43 6f 6e 76 65 72 74 20 56 53 43 52 4f 4c 4c 2c 20 48 53 43 52 4f 4c 4c 20 70 6f )..."Convert.VSCROLL,.HSCROLL.po
199c0 73 69 74 69 6f 6e 20 74 6f 20 70 65 72 63 65 6e 74 2d 62 61 73 65 20 70 6f 73 69 74 69 6f 6e 2e sition.to.percent-base.position.
199e0 0a 53 63 72 6f 6c 6c 20 75 6e 69 74 73 20 61 72 65 20 63 68 61 72 61 63 74 65 72 2d 62 61 73 65 .Scroll.units.are.character-base
19a00 64 2e 22 0a 20 20 28 6c 65 74 2a 20 28 28 73 6c 69 63 65 20 28 6f 72 67 2d 6e 6f 74 65 72 2d 2d d."...(let*.((slice.(org-noter--
19a20 64 6f 63 2d 67 65 74 2d 70 61 67 65 2d 73 6c 69 63 65 29 29 0a 20 20 20 20 20 20 20 20 20 28 64 doc-get-page-slice))..........(d
19a40 69 73 70 6c 61 79 2d 73 69 7a 65 20 28 69 6d 61 67 65 2d 64 69 73 70 6c 61 79 2d 73 69 7a 65 20 isplay-size.(image-display-size.
19a60 28 69 6d 61 67 65 2d 67 65 74 2d 64 69 73 70 6c 61 79 2d 70 72 6f 70 65 72 74 79 29 29 29 20 3b (image-get-display-property))).;
19a80 28 77 69 64 74 68 20 68 65 69 67 68 74 29 0a 20 20 20 20 20 20 20 20 20 28 64 69 73 70 6c 61 79 (width.height)..........(display
19aa0 2d 77 69 64 74 68 20 28 63 61 72 20 64 69 73 70 6c 61 79 2d 73 69 7a 65 29 29 0a 20 20 20 20 20 -width.(car.display-size))......
19ac0 20 20 20 20 28 64 69 73 70 6c 61 79 2d 68 65 69 67 68 74 20 28 63 64 72 20 64 69 73 70 6c 61 79 ....(display-height.(cdr.display
19ae0 2d 73 69 7a 65 29 29 0a 20 20 20 20 20 20 20 20 20 28 77 69 6e 64 6f 77 2d 67 65 6f 6d 20 28 77 -size))..........(window-geom.(w
19b00 69 6e 64 6f 77 2d 69 6e 73 69 64 65 2d 65 64 67 65 73 29 29 20 3b 20 28 4c 20 54 20 52 20 42 29 indow-inside-edges)).;.(L.T.R.B)
19b20 0a 20 20 20 20 20 20 20 20 20 28 64 69 73 70 6c 61 79 2d 6c 65 66 74 2d 65 64 67 65 20 28 2f 20 ..........(display-left-edge.(/.
19b40 28 2d 20 28 6e 74 68 20 32 20 77 69 6e 64 6f 77 2d 67 65 6f 6d 29 20 28 6e 74 68 20 30 20 77 69 (-.(nth.2.window-geom).(nth.0.wi
19b60 6e 64 6f 77 2d 67 65 6f 6d 29 20 64 69 73 70 6c 61 79 2d 77 69 64 74 68 29 20 32 29 29 0a 20 20 ndow-geom).display-width).2))...
19b80 20 20 20 20 20 20 20 28 64 69 73 70 6c 61 79 2d 70 65 72 63 65 6e 74 61 67 65 2d 76 20 28 2f 20 .......(display-percentage-v.(/.
19ba0 76 73 63 72 6f 6c 6c 20 64 69 73 70 6c 61 79 2d 68 65 69 67 68 74 29 29 0a 20 20 20 20 20 20 20 vscroll.display-height))........
19bc0 20 20 28 70 65 72 63 65 6e 74 61 67 65 2d 76 20 28 6d 61 78 20 30 20 28 6d 69 6e 20 31 20 28 2b ..(percentage-v.(max.0.(min.1.(+
19be0 20 28 6e 74 68 20 30 20 73 6c 69 63 65 29 20 28 2a 20 28 6e 74 68 20 31 20 73 6c 69 63 65 29 20 .(nth.0.slice).(*.(nth.1.slice).
19c00 64 69 73 70 6c 61 79 2d 70 65 72 63 65 6e 74 61 67 65 2d 76 29 29 29 29 29 0a 20 20 20 20 20 20 display-percentage-v))))).......
19c20 20 20 20 28 64 69 73 70 6c 61 79 2d 70 65 72 63 65 6e 74 61 67 65 2d 68 20 30 29 0a 20 20 20 20 ...(display-percentage-h.0).....
19c40 20 20 20 20 20 28 70 65 72 63 65 6e 74 61 67 65 2d 68 20 30 29 29 0a 20 20 20 20 28 77 68 65 6e .....(percentage-h.0)).....(when
19c60 20 68 73 63 72 6f 6c 6c 0a 20 20 20 20 20 20 28 73 65 74 71 20 64 69 73 70 6c 61 79 2d 70 65 72 .hscroll.......(setq.display-per
19c80 63 65 6e 74 61 67 65 2d 68 20 28 2f 20 28 2d 20 68 73 63 72 6f 6c 6c 20 64 69 73 70 6c 61 79 2d centage-h.(/.(-.hscroll.display-
19ca0 6c 65 66 74 2d 65 64 67 65 29 20 64 69 73 70 6c 61 79 2d 77 69 64 74 68 29 0a 20 20 20 20 20 20 left-edge).display-width).......
19cc0 20 20 20 20 20 20 70 65 72 63 65 6e 74 61 67 65 2d 68 20 28 6d 61 78 20 30 20 28 6d 69 6e 20 31 ......percentage-h.(max.0.(min.1
19ce0 20 28 2b 20 28 6e 74 68 20 32 20 73 6c 69 63 65 29 20 28 2a 20 28 6e 74 68 20 33 20 73 6c 69 63 .(+.(nth.2.slice).(*.(nth.3.slic
19d00 65 29 20 64 69 73 70 6c 61 79 2d 70 65 72 63 65 6e 74 61 67 65 2d 68 29 29 29 29 29 29 0a 20 20 e).display-percentage-h))))))...
19d20 20 20 28 63 6f 6e 73 20 70 65 72 63 65 6e 74 61 67 65 2d 76 20 70 65 72 63 65 6e 74 61 67 65 2d ..(cons.percentage-v.percentage-
19d40 68 29 29 29 0a 0a 28 64 65 66 75 6e 20 6f 72 67 2d 6e 6f 74 65 72 2d 2d 63 6f 6e 76 2d 70 61 67 h)))..(defun.org-noter--conv-pag
19d60 65 2d 70 65 72 63 65 6e 74 61 67 65 2d 73 63 72 6f 6c 6c 20 28 70 65 72 63 65 6e 74 61 67 65 29 e-percentage-scroll.(percentage)
19d80 0a 20 20 22 43 6f 6e 76 65 72 74 20 50 45 52 43 45 4e 54 41 47 45 20 62 61 73 65 64 20 70 6f 73 ..."Convert.PERCENTAGE.based.pos
19da0 69 74 69 6f 6e 20 74 6f 20 73 63 72 6f 6c 6c 2d 62 61 73 65 64 20 70 6f 73 69 74 69 6f 6e 2e 22 ition.to.scroll-based.position."
19dc0 0a 20 20 28 6c 65 74 2a 20 28 28 73 6c 69 63 65 20 28 6f 72 67 2d 6e 6f 74 65 72 2d 2d 64 6f 63 ...(let*.((slice.(org-noter--doc
19de0 2d 67 65 74 2d 70 61 67 65 2d 73 6c 69 63 65 29 29 0a 20 20 20 20 20 20 20 20 20 28 64 69 73 70 -get-page-slice))..........(disp
19e00 6c 61 79 2d 68 65 69 67 68 74 20 28 63 64 72 20 28 69 6d 61 67 65 2d 64 69 73 70 6c 61 79 2d 73 lay-height.(cdr.(image-display-s
19e20 69 7a 65 20 28 69 6d 61 67 65 2d 67 65 74 2d 64 69 73 70 6c 61 79 2d 70 72 6f 70 65 72 74 79 29 ize.(image-get-display-property)
19e40 29 29 29 0a 20 20 20 20 20 20 20 20 20 28 64 69 73 70 6c 61 79 2d 70 65 72 63 65 6e 74 61 67 65 )))..........(display-percentage
19e60 20 28 6d 69 6e 20 31 20 28 6d 61 78 20 30 20 28 2f 20 28 2d 20 70 65 72 63 65 6e 74 61 67 65 20 .(min.1.(max.0.(/.(-.percentage.
19e80 28 6e 74 68 20 30 20 73 6c 69 63 65 29 29 20 28 6e 74 68 20 31 20 73 6c 69 63 65 29 29 29 29 29 (nth.0.slice)).(nth.1.slice)))))
19ea0 0a 20 20 20 20 20 20 20 20 20 28 73 63 72 6f 6c 6c 20 28 6d 61 78 20 30 20 28 66 6c 6f 6f 72 20 ..........(scroll.(max.0.(floor.
19ec0 28 2a 20 64 69 73 70 6c 61 79 2d 70 65 72 63 65 6e 74 61 67 65 20 64 69 73 70 6c 61 79 2d 68 65 (*.display-percentage.display-he
19ee0 69 67 68 74 29 29 29 29 29 0a 20 20 20 20 73 63 72 6f 6c 6c 29 29 0a 0a 28 64 65 66 75 6e 20 6f ight))))).....scroll))..(defun.o
19f00 72 67 2d 6e 6f 74 65 72 2d 2d 67 65 74 2d 70 72 65 63 69 73 65 2d 69 6e 66 6f 20 28 29 0a 20 20 rg-noter--get-precise-info.()...
19f20 28 6f 72 67 2d 6e 6f 74 65 72 2d 2d 77 69 74 68 2d 76 61 6c 69 64 2d 73 65 73 73 69 6f 6e 0a 20 (org-noter--with-valid-session..
19f40 20 20 28 6c 65 74 20 28 28 77 69 6e 64 6f 77 20 28 6f 72 67 2d 6e 6f 74 65 72 2d 2d 67 65 74 2d ..(let.((window.(org-noter--get-
19f60 64 6f 63 2d 77 69 6e 64 6f 77 29 29 0a 20 20 20 20 20 20 20 20 20 28 6d 6f 64 65 20 28 6f 72 67 doc-window))..........(mode.(org
19f80 2d 6e 6f 74 65 72 2d 2d 73 65 73 73 69 6f 6e 2d 64 6f 63 2d 6d 6f 64 65 20 73 65 73 73 69 6f 6e -noter--session-doc-mode.session
19fa0 29 29 29 0a 20 20 20 20 20 28 77 69 74 68 2d 73 65 6c 65 63 74 65 64 2d 77 69 6e 64 6f 77 20 77 )))......(with-selected-window.w
19fc0 69 6e 64 6f 77 0a 20 20 20 20 20 20 20 28 72 75 6e 2d 68 6f 6f 6b 2d 77 69 74 68 2d 61 72 67 73 indow........(run-hook-with-args
19fe0 2d 75 6e 74 69 6c 2d 73 75 63 63 65 73 73 20 27 6f 72 67 2d 6e 6f 74 65 72 2d 2d 67 65 74 2d 70 -until-success.'org-noter--get-p
1a000 72 65 63 69 73 65 2d 69 6e 66 6f 2d 68 6f 6f 6b 20 6d 6f 64 65 20 77 69 6e 64 6f 77 29 29 29 29 recise-info-hook.mode.window))))
1a020 29 0a 0a 28 64 65 66 75 6e 20 6f 72 67 2d 6e 6f 74 65 72 2d 2d 73 68 6f 77 2d 61 72 72 6f 77 20 )..(defun.org-noter--show-arrow.
1a040 28 29 0a 20 20 28 77 68 65 6e 20 28 61 6e 64 20 6f 72 67 2d 6e 6f 74 65 72 2d 2d 61 72 72 6f 77 ()...(when.(and.org-noter--arrow
1a060 2d 6c 6f 63 61 74 69 6f 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 69 6e 64 6f 77 2d 6c -location..............(window-l
1a080 69 76 65 2d 70 20 28 61 72 65 66 20 6f 72 67 2d 6e 6f 74 65 72 2d 2d 61 72 72 6f 77 2d 6c 6f 63 ive-p.(aref.org-noter--arrow-loc
1a0a0 61 74 69 6f 6e 20 31 29 29 29 0a 20 20 20 20 28 77 69 74 68 2d 73 65 6c 65 63 74 65 64 2d 77 69 ation.1))).....(with-selected-wi
1a0c0 6e 64 6f 77 20 28 61 72 65 66 20 6f 72 67 2d 6e 6f 74 65 72 2d 2d 61 72 72 6f 77 2d 6c 6f 63 61 ndow.(aref.org-noter--arrow-loca
1a0e0 74 69 6f 6e 20 31 29 0a 20 20 20 20 20 20 28 72 75 6e 2d 68 6f 6f 6b 2d 77 69 74 68 2d 61 72 67 tion.1).......(run-hook-with-arg
1a100 73 2d 75 6e 74 69 6c 2d 73 75 63 63 65 73 73 20 27 6f 72 67 2d 6e 6f 74 65 72 2d 2d 73 68 6f 77 s-until-success.'org-noter--show
1a120 2d 61 72 72 6f 77 2d 68 6f 6f 6b 29 0a 20 20 20 20 20 20 28 73 65 74 71 20 6f 72 67 2d 6e 6f 74 -arrow-hook).......(setq.org-not
1a140 65 72 2d 2d 61 72 72 6f 77 2d 6c 6f 63 61 74 69 6f 6e 20 6e 69 6c 29 29 29 29 0a 0a 28 64 65 66 er--arrow-location.nil))))..(def
1a160 75 6e 20 6f 72 67 2d 6e 6f 74 65 72 2d 2d 67 65 74 2d 6c 6f 63 61 74 69 6f 6e 2d 74 6f 70 20 28 un.org-noter--get-location-top.(
1a180 6c 6f 63 61 74 69 6f 6e 29 0a 20 20 22 47 65 74 20 74 68 65 20 74 6f 70 20 63 6f 6f 72 64 69 6e location)..."Get.the.top.coordin
1a1a0 61 74 65 20 67 69 76 65 6e 20 61 20 4c 4f 43 41 54 49 4f 4e 2e 0a 2e 2e 2e 20 77 68 65 6e 20 4c ate.given.a.LOCATION......when.L
1a1c0 4f 43 41 54 49 4f 4e 20 68 61 73 20 66 6f 72 6d 20 28 70 61 67 65 20 74 6f 70 20 2e 20 6c 65 66 OCATION.has.form.(page.top...lef
1a1e0 74 29 20 6f 72 20 28 70 61 67 65 20 2e 20 74 6f 70 29 2e 22 0a 20 20 28 69 66 20 28 6c 69 73 74 t).or.(page...top)."...(if.(list
1a200 70 20 28 63 64 72 20 6c 6f 63 61 74 69 6f 6e 29 29 0a 20 20 20 20 20 20 28 63 61 64 72 20 6c 6f p.(cdr.location)).......(cadr.lo
1a220 63 61 74 69 6f 6e 29 0a 20 20 20 20 28 63 64 72 20 6c 6f 63 61 74 69 6f 6e 29 29 29 0a 0a 28 64 cation).....(cdr.location)))..(d
1a240 65 66 75 6e 20 6f 72 67 2d 6e 6f 74 65 72 2d 2d 67 65 74 2d 6c 6f 63 61 74 69 6f 6e 2d 70 61 67 efun.org-noter--get-location-pag
1a260 65 20 28 6c 6f 63 61 74 69 6f 6e 29 0a 20 20 22 47 65 74 20 74 68 65 20 70 61 67 65 20 6e 75 6d e.(location)..."Get.the.page.num
1a280 62 65 72 20 67 69 76 65 6e 20 61 20 4c 4f 43 41 54 49 4f 4e 20 6f 66 20 66 6f 72 6d 20 28 70 61 ber.given.a.LOCATION.of.form.(pa
1a2a0 67 65 20 74 6f 70 20 2e 20 6c 65 66 74 29 20 6f 72 20 28 70 61 67 65 20 2e 20 74 6f 70 29 2e 22 ge.top...left).or.(page...top)."
1a2c0 0a 20 20 28 69 66 20 28 6c 69 73 74 70 20 6c 6f 63 61 74 69 6f 6e 29 0a 20 20 20 20 20 20 28 63 ...(if.(listp.location).......(c
1a2e0 61 72 20 6c 6f 63 61 74 69 6f 6e 29 0a 20 20 20 20 20 20 6c 6f 63 61 74 69 6f 6e 29 29 0a 0a 28 ar.location).......location))..(
1a300 64 65 66 75 6e 20 6f 72 67 2d 6e 6f 74 65 72 2d 2d 67 65 74 2d 6c 6f 63 61 74 69 6f 6e 2d 6c 65 defun.org-noter--get-location-le
1a320 66 74 20 28 6c 6f 63 61 74 69 6f 6e 29 0a 20 20 22 47 65 74 20 74 68 65 20 6c 65 66 74 20 63 6f ft.(location)..."Get.the.left.co
1a340 6f 72 64 69 6e 61 74 65 20 67 69 76 65 6e 20 61 20 4c 4f 43 41 54 49 4f 4e 2e 0a 2e 2e 2e 20 77 ordinate.given.a.LOCATION......w
1a360 68 65 6e 20 4c 4f 43 41 54 49 4f 4e 20 68 61 73 20 66 6f 72 6d 20 28 70 61 67 65 20 74 6f 70 20 hen.LOCATION.has.form.(page.top.
1a380 2e 20 6c 65 66 74 29 20 6f 72 20 28 70 61 67 65 20 2e 20 74 6f 70 29 2e 20 20 49 66 0a 6c 61 74 ..left).or.(page...top)...If.lat
1a3a0 65 72 20 66 6f 72 6d 20 6f 66 20 76 65 63 74 6f 72 20 69 73 20 70 61 73 73 65 64 20 72 65 74 75 er.form.of.vector.is.passed.retu
1a3c0 72 6e 20 30 2e 22 0a 20 20 28 69 66 20 28 6c 69 73 74 70 20 28 63 64 72 20 6c 6f 63 61 74 69 6f rn.0."...(if.(listp.(cdr.locatio
1a3e0 6e 29 29 0a 20 20 20 20 20 20 28 69 66 20 28 6c 69 73 74 70 20 28 63 64 64 72 20 6c 6f 63 61 74 n)).......(if.(listp.(cddr.locat
1a400 69 6f 6e 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 63 61 64 64 72 20 6c 6f 63 61 74 69 6f 6e 29 ion))...........(caddr.location)
1a420 0a 20 20 20 20 20 20 20 20 28 63 64 64 72 20 6c 6f 63 61 74 69 6f 6e 29 29 0a 20 20 20 20 30 29 .........(cddr.location)).....0)
1a440 29 0a 0a 28 64 65 66 75 6e 20 6f 72 67 2d 6e 6f 74 65 72 2d 2d 64 6f 63 2d 67 6f 74 6f 2d 6c 6f )..(defun.org-noter--doc-goto-lo
1a460 63 61 74 69 6f 6e 20 28 6c 6f 63 61 74 69 6f 6e 29 0a 20 20 22 47 6f 20 74 6f 20 6c 6f 63 61 74 cation.(location)..."Go.to.locat
1a480 69 6f 6e 20 73 70 65 63 69 66 69 65 64 20 62 79 20 4c 4f 43 41 54 49 4f 4e 2e 22 0a 20 20 28 6f ion.specified.by.LOCATION."...(o
1a4a0 72 67 2d 6e 6f 74 65 72 2d 2d 77 69 74 68 2d 76 61 6c 69 64 2d 73 65 73 73 69 6f 6e 0a 20 20 20 rg-noter--with-valid-session....
1a4c0 28 6c 65 74 20 28 28 77 69 6e 64 6f 77 20 28 6f 72 67 2d 6e 6f 74 65 72 2d 2d 67 65 74 2d 64 6f (let.((window.(org-noter--get-do
1a4e0 63 2d 77 69 6e 64 6f 77 29 29 0a 20 20 20 20 20 20 20 20 20 28 6d 6f 64 65 20 28 6f 72 67 2d 6e c-window))..........(mode.(org-n
1a500 6f 74 65 72 2d 2d 73 65 73 73 69 6f 6e 2d 64 6f 63 2d 6d 6f 64 65 20 73 65 73 73 69 6f 6e 29 29 oter--session-doc-mode.session))
1a520 29 0a 20 20 20 20 20 28 77 69 74 68 2d 73 65 6c 65 63 74 65 64 2d 77 69 6e 64 6f 77 20 77 69 6e )......(with-selected-window.win
1a540 64 6f 77 0a 20 20 20 20 20 20 20 28 72 75 6e 2d 68 6f 6f 6b 2d 77 69 74 68 2d 61 72 67 73 2d 75 dow........(run-hook-with-args-u
1a560 6e 74 69 6c 2d 73 75 63 63 65 73 73 20 27 6f 72 67 2d 6e 6f 74 65 72 2d 2d 64 6f 63 2d 67 6f 74 ntil-success.'org-noter--doc-got
1a580 6f 2d 6c 6f 63 61 74 69 6f 6e 2d 68 6f 6f 6b 20 6d 6f 64 65 20 6c 6f 63 61 74 69 6f 6e 20 77 69 o-location-hook.mode.location.wi
1a5a0 6e 64 6f 77 29 0a 20 20 20 20 20 20 20 28 72 65 64 69 73 70 6c 61 79 29 29 29 29 29 0a 0a 28 64 ndow)........(redisplay)))))..(d
1a5c0 65 66 75 6e 20 6f 72 67 2d 6e 6f 74 65 72 2d 2d 63 6f 6d 70 61 72 65 2d 6c 6f 63 61 74 69 6f 6e efun.org-noter--compare-location
1a5e0 2d 63 6f 6e 73 20 28 63 6f 6d 70 20 6c 31 20 6c 32 29 0a 20 20 22 43 6f 6d 70 61 72 65 20 4c 31 -cons.(comp.l1.l2)..."Compare.L1
1a600 20 61 6e 64 20 4c 32 2c 20 77 68 69 63 68 20 61 72 65 20 6c 6f 63 61 74 69 6f 6e 20 63 6f 6e 73 .and.L2,.which.are.location.cons
1a620 2e 0a 43 4f 4d 50 20 63 61 6e 20 62 65 20 61 6e 79 20 6f 66 20 74 68 65 20 75 73 75 61 6c 20 63 ..COMP.can.be.any.of.the.usual.c
1a640 6f 6d 70 61 72 69 73 6f 6e 20 6f 70 65 72 61 74 6f 72 73 20 70 6c 75 73 20 5c 22 3e 66 5c 22 2e omparison.operators.plus.\">f\".
1a660 0a 53 65 65 20 60 6f 72 67 2d 6e 6f 74 65 72 2d 2d 63 6f 6d 70 61 72 65 2d 6c 6f 63 61 74 69 6f .See.`org-noter--compare-locatio
1a680 6e 73 27 2e 22 0a 20 20 28 63 6c 2d 61 73 73 65 72 74 20 28 61 6e 64 20 28 63 6f 6e 73 70 20 6c ns'."...(cl-assert.(and.(consp.l
1a6a0 31 29 20 28 63 6f 6e 73 70 20 6c 32 29 29 29 0a 20 20 28 63 6f 6e 64 20 28 28 65 71 20 63 6f 6d 1).(consp.l2)))...(cond.((eq.com
1a6c0 70 20 27 3d 29 0a 20 20 20 20 20 20 20 20 20 28 61 6e 64 20 28 3d 20 28 6f 72 67 2d 6e 6f 74 65 p.'=)..........(and.(=.(org-note
1a6e0 72 2d 2d 67 65 74 2d 6c 6f 63 61 74 69 6f 6e 2d 70 61 67 65 20 6c 31 29 20 28 6f 72 67 2d 6e 6f r--get-location-page.l1).(org-no
1a700 74 65 72 2d 2d 67 65 74 2d 6c 6f 63 61 74 69 6f 6e 2d 70 61 67 65 20 6c 32 29 29 0a 20 20 20 20 ter--get-location-page.l2)).....
1a720 20 20 20 20 20 20 20 20 20 20 28 3d 20 28 6f 72 67 2d 6e 6f 74 65 72 2d 2d 67 65 74 2d 6c 6f 63 ..........(=.(org-noter--get-loc
1a740 61 74 69 6f 6e 2d 74 6f 70 20 6c 31 29 20 28 6f 72 67 2d 6e 6f 74 65 72 2d 2d 67 65 74 2d 6c 6f ation-top.l1).(org-noter--get-lo
1a760 63 61 74 69 6f 6e 2d 74 6f 70 20 6c 32 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 3d cation-top.l2))...............(=
1a780 20 28 6f 72 67 2d 6e 6f 74 65 72 2d 2d 67 65 74 2d 6c 6f 63 61 74 69 6f 6e 2d 6c 65 66 74 20 6c .(org-noter--get-location-left.l
1a7a0 31 29 20 28 6f 72 67 2d 6e 6f 74 65 72 2d 2d 67 65 74 2d 6c 6f 63 61 74 69 6f 6e 2d 6c 65 66 74 1).(org-noter--get-location-left
1a7c0 20 6c 32 29 29 29 29 0a 20 20 20 20 20 20 20 20 28 28 65 71 20 63 6f 6d 70 20 27 3c 29 0a 20 20 .l2)))).........((eq.comp.'<)...
1a7e0 20 20 20 20 20 20 20 28 6f 72 20 28 3c 20 28 6f 72 67 2d 6e 6f 74 65 72 2d 2d 67 65 74 2d 6c 6f .......(or.(<.(org-noter--get-lo
1a800 63 61 74 69 6f 6e 2d 70 61 67 65 20 6c 31 29 20 28 6f 72 67 2d 6e 6f 74 65 72 2d 2d 67 65 74 2d cation-page.l1).(org-noter--get-
1a820 6c 6f 63 61 74 69 6f 6e 2d 70 61 67 65 20 6c 32 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 location-page.l2))..............
1a840 28 61 6e 64 20 28 3d 20 28 6f 72 67 2d 6e 6f 74 65 72 2d 2d 67 65 74 2d 6c 6f 63 61 74 69 6f 6e (and.(=.(org-noter--get-location
1a860 2d 70 61 67 65 20 6c 31 29 20 28 6f 72 67 2d 6e 6f 74 65 72 2d 2d 67 65 74 2d 6c 6f 63 61 74 69 -page.l1).(org-noter--get-locati
1a880 6f 6e 2d 70 61 67 65 20 6c 32 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 on-page.l2))...................(
1a8a0 3c 20 28 6f 72 67 2d 6e 6f 74 65 72 2d 2d 67 65 74 2d 6c 6f 63 61 74 69 6f 6e 2d 74 6f 70 20 6c <.(org-noter--get-location-top.l
1a8c0 31 29 20 28 6f 72 67 2d 6e 6f 74 65 72 2d 2d 67 65 74 2d 6c 6f 63 61 74 69 6f 6e 2d 74 6f 70 20 1).(org-noter--get-location-top.
1a8e0 6c 32 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 61 6e 64 20 28 3d 20 28 6f 72 67 2d l2)))..............(and.(=.(org-
1a900 6e 6f 74 65 72 2d 2d 67 65 74 2d 6c 6f 63 61 74 69 6f 6e 2d 70 61 67 65 20 6c 31 29 20 28 6f 72 noter--get-location-page.l1).(or
1a920 67 2d 6e 6f 74 65 72 2d 2d 67 65 74 2d 6c 6f 63 61 74 69 6f 6e 2d 70 61 67 65 20 6c 32 29 29 0a g-noter--get-location-page.l2)).
1a940 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 3d 20 28 6f 72 67 2d 6e 6f 74 65 72 2d ..................(=.(org-noter-
1a960 2d 67 65 74 2d 6c 6f 63 61 74 69 6f 6e 2d 74 6f 70 20 6c 31 29 20 28 6f 72 67 2d 6e 6f 74 65 72 -get-location-top.l1).(org-noter
1a980 2d 2d 67 65 74 2d 6c 6f 63 61 74 69 6f 6e 2d 74 6f 70 20 6c 32 29 29 0a 20 20 20 20 20 20 20 20 --get-location-top.l2)).........
1a9a0 20 20 20 20 20 20 20 20 20 20 28 3c 20 28 6f 72 67 2d 6e 6f 74 65 72 2d 2d 67 65 74 2d 6c 6f 63 ..........(<.(org-noter--get-loc
1a9c0 61 74 69 6f 6e 2d 6c 65 66 74 20 6c 31 29 20 28 6f 72 67 2d 6e 6f 74 65 72 2d 2d 67 65 74 2d 6c ation-left.l1).(org-noter--get-l
1a9e0 6f 63 61 74 69 6f 6e 2d 6c 65 66 74 20 6c 32 29 29 29 29 29 0a 20 20 20 20 20 20 20 20 28 28 65 ocation-left.l2))))).........((e
1aa00 71 20 63 6f 6d 70 20 27 3c 3d 29 0a 20 20 20 20 20 20 20 20 20 28 6f 72 20 28 3c 20 28 6f 72 67 q.comp.'<=)..........(or.(<.(org
1aa20 2d 6e 6f 74 65 72 2d 2d 67 65 74 2d 6c 6f 63 61 74 69 6f 6e 2d 70 61 67 65 20 6c 31 29 20 28 6f -noter--get-location-page.l1).(o
1aa40 72 67 2d 6e 6f 74 65 72 2d 2d 67 65 74 2d 6c 6f 63 61 74 69 6f 6e 2d 70 61 67 65 20 6c 32 29 29 rg-noter--get-location-page.l2))
1aa60 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 61 6e 64 20 28 3d 20 20 28 6f 72 67 2d 6e 6f 74 65 ..............(and.(=..(org-note
1aa80 72 2d 2d 67 65 74 2d 6c 6f 63 61 74 69 6f 6e 2d 70 61 67 65 20 6c 31 29 20 28 6f 72 67 2d 6e 6f r--get-location-page.l1).(org-no
1aaa0 74 65 72 2d 2d 67 65 74 2d 6c 6f 63 61 74 69 6f 6e 2d 70 61 67 65 20 6c 32 29 29 0a 20 20 20 20 ter--get-location-page.l2)).....
1aac0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 3c 3d 20 28 6f 72 67 2d 6e 6f 74 65 72 2d 2d 67 65 ..............(<=.(org-noter--ge
1aae0 74 2d 6c 6f 63 61 74 69 6f 6e 2d 74 6f 70 20 6c 31 29 20 28 6f 72 67 2d 6e 6f 74 65 72 2d 2d 67 t-location-top.l1).(org-noter--g
1ab00 65 74 2d 6c 6f 63 61 74 69 6f 6e 2d 74 6f 70 20 6c 32 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 et-location-top.l2)))...........
1ab20 20 20 20 28 61 6e 64 20 28 3d 20 28 6f 72 67 2d 6e 6f 74 65 72 2d 2d 67 65 74 2d 6c 6f 63 61 74 ...(and.(=.(org-noter--get-locat
1ab40 69 6f 6e 2d 70 61 67 65 20 6c 31 29 20 28 6f 72 67 2d 6e 6f 74 65 72 2d 2d 67 65 74 2d 6c 6f 63 ion-page.l1).(org-noter--get-loc
1ab60 61 74 69 6f 6e 2d 70 61 67 65 20 6c 32 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ation-page.l2)).................
1ab80 20 20 28 3d 20 28 6f 72 67 2d 6e 6f 74 65 72 2d 2d 67 65 74 2d 6c 6f 63 61 74 69 6f 6e 2d 74 6f ..(=.(org-noter--get-location-to
1aba0 70 20 6c 31 29 20 28 6f 72 67 2d 6e 6f 74 65 72 2d 2d 67 65 74 2d 6c 6f 63 61 74 69 6f 6e 2d 74 p.l1).(org-noter--get-location-t
1abc0 6f 70 20 6c 32 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 3c 3d 20 28 6f op.l2))...................(<=.(o
1abe0 72 67 2d 6e 6f 74 65 72 2d 2d 67 65 74 2d 6c 6f 63 61 74 69 6f 6e 2d 6c 65 66 74 20 6c 31 29 20 rg-noter--get-location-left.l1).
1ac00 28 6f 72 67 2d 6e 6f 74 65 72 2d 2d 67 65 74 2d 6c 6f 63 61 74 69 6f 6e 2d 6c 65 66 74 20 6c 32 (org-noter--get-location-left.l2
1ac20 29 29 29 29 29 0a 20 20 20 20 20 20 20 20 28 28 65 71 20 63 6f 6d 70 20 27 3e 29 0a 20 20 20 20 ))))).........((eq.comp.'>).....
1ac40 20 20 20 20 20 28 6f 72 20 28 3e 20 28 6f 72 67 2d 6e 6f 74 65 72 2d 2d 67 65 74 2d 6c 6f 63 61 .....(or.(>.(org-noter--get-loca
1ac60 74 69 6f 6e 2d 70 61 67 65 20 6c 31 29 20 28 6f 72 67 2d 6e 6f 74 65 72 2d 2d 67 65 74 2d 6c 6f tion-page.l1).(org-noter--get-lo
1ac80 63 61 74 69 6f 6e 2d 70 61 67 65 20 6c 32 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 61 cation-page.l2))..............(a
1aca0 6e 64 20 28 3d 20 28 6f 72 67 2d 6e 6f 74 65 72 2d 2d 67 65 74 2d 6c 6f 63 61 74 69 6f 6e 2d 70 nd.(=.(org-noter--get-location-p
1acc0 61 67 65 20 6c 31 29 20 28 6f 72 67 2d 6e 6f 74 65 72 2d 2d 67 65 74 2d 6c 6f 63 61 74 69 6f 6e age.l1).(org-noter--get-location
1ace0 2d 70 61 67 65 20 6c 32 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 3e 20 -page.l2))...................(>.
1ad00 28 6f 72 67 2d 6e 6f 74 65 72 2d 2d 67 65 74 2d 6c 6f 63 61 74 69 6f 6e 2d 74 6f 70 20 6c 31 29 (org-noter--get-location-top.l1)
1ad20 20 28 6f 72 67 2d 6e 6f 74 65 72 2d 2d 67 65 74 2d 6c 6f 63 61 74 69 6f 6e 2d 74 6f 70 20 6c 32 .(org-noter--get-location-top.l2
1ad40 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 61 6e 64 20 28 3d 20 28 6f 72 67 2d 6e 6f )))..............(and.(=.(org-no
1ad60 74 65 72 2d 2d 67 65 74 2d 6c 6f 63 61 74 69 6f 6e 2d 70 61 67 65 20 6c 31 29 20 28 6f 72 67 2d ter--get-location-page.l1).(org-
1ad80 6e 6f 74 65 72 2d 2d 67 65 74 2d 6c 6f 63 61 74 69 6f 6e 2d 70 61 67 65 20 6c 32 29 29 0a 20 20 noter--get-location-page.l2))...
1ada0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 3d 20 28 6f 72 67 2d 6e 6f 74 65 72 2d 2d 67 ................(=.(org-noter--g
1adc0 65 74 2d 6c 6f 63 61 74 69 6f 6e 2d 74 6f 70 20 6c 31 29 20 28 6f 72 67 2d 6e 6f 74 65 72 2d 2d et-location-top.l1).(org-noter--
1ade0 67 65 74 2d 6c 6f 63 61 74 69 6f 6e 2d 74 6f 70 20 6c 32 29 29 0a 20 20 20 20 20 20 20 20 20 20 get-location-top.l2))...........
1ae00 20 20 20 20 20 20 20 20 28 3e 20 28 6f 72 67 2d 6e 6f 74 65 72 2d 2d 67 65 74 2d 6c 6f 63 61 74 ........(>.(org-noter--get-locat
1ae20 69 6f 6e 2d 6c 65 66 74 20 6c 31 29 20 28 6f 72 67 2d 6e 6f 74 65 72 2d 2d 67 65 74 2d 6c 6f 63 ion-left.l1).(org-noter--get-loc
1ae40 61 74 69 6f 6e 2d 6c 65 66 74 20 6c 32 29 29 29 29 29 0a 20 20 20 20 20 20 20 20 28 28 65 71 20 ation-left.l2))))).........((eq.
1ae60 63 6f 6d 70 20 27 3e 3d 29 0a 20 20 20 20 20 20 20 20 20 28 6f 72 20 28 3e 20 28 6f 72 67 2d 6e comp.'>=)..........(or.(>.(org-n
1ae80 6f 74 65 72 2d 2d 67 65 74 2d 6c 6f 63 61 74 69 6f 6e 2d 70 61 67 65 20 6c 31 29 20 28 6f 72 67 oter--get-location-page.l1).(org
1aea0 2d 6e 6f 74 65 72 2d 2d 67 65 74 2d 6c 6f 63 61 74 69 6f 6e 2d 70 61 67 65 20 6c 32 29 29 0a 20 -noter--get-location-page.l2))..
1aec0 20 20 20 20 20 20 20 20 20 20 20 20 28 61 6e 64 20 28 3d 20 28 6f 72 67 2d 6e 6f 74 65 72 2d 2d ............(and.(=.(org-noter--
1aee0 67 65 74 2d 6c 6f 63 61 74 69 6f 6e 2d 70 61 67 65 20 6c 31 29 20 28 6f 72 67 2d 6e 6f 74 65 72 get-location-page.l1).(org-noter
1af00 2d 2d 67 65 74 2d 6c 6f 63 61 74 69 6f 6e 2d 70 61 67 65 20 6c 32 29 29 0a 20 20 20 20 20 20 20 --get-location-page.l2))........
1af20 20 20 20 20 20 20 20 20 20 20 20 28 3e 3d 20 28 6f 72 67 2d 6e 6f 74 65 72 2d 2d 67 65 74 2d 6c ...........(>=.(org-noter--get-l
1af40 6f 63 61 74 69 6f 6e 2d 74 6f 70 20 6c 31 29 20 28 6f 72 67 2d 6e 6f 74 65 72 2d 2d 67 65 74 2d ocation-top.l1).(org-noter--get-
1af60 6c 6f 63 61 74 69 6f 6e 2d 74 6f 70 20 6c 32 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 location-top.l2)))..............
1af80 28 61 6e 64 20 28 3d 20 28 6f 72 67 2d 6e 6f 74 65 72 2d 2d 67 65 74 2d 6c 6f 63 61 74 69 6f 6e (and.(=.(org-noter--get-location
1afa0 2d 70 61 67 65 20 6c 31 29 20 28 6f 72 67 2d 6e 6f 74 65 72 2d 2d 67 65 74 2d 6c 6f 63 61 74 69 -page.l1).(org-noter--get-locati
1afc0 6f 6e 2d 70 61 67 65 20 6c 32 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 on-page.l2))...................(
1afe0 3d 20 28 6f 72 67 2d 6e 6f 74 65 72 2d 2d 67 65 74 2d 6c 6f 63 61 74 69 6f 6e 2d 74 6f 70 20 6c =.(org-noter--get-location-top.l
1b000 31 29 20 28 6f 72 67 2d 6e 6f 74 65 72 2d 2d 67 65 74 2d 6c 6f 63 61 74 69 6f 6e 2d 74 6f 70 20 1).(org-noter--get-location-top.
1b020 6c 32 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 3e 3d 20 28 6f 72 67 2d l2))...................(>=.(org-
1b040 6e 6f 74 65 72 2d 2d 67 65 74 2d 6c 6f 63 61 74 69 6f 6e 2d 6c 65 66 74 20 6c 31 29 20 28 6f 72 noter--get-location-left.l1).(or
1b060 67 2d 6e 6f 74 65 72 2d 2d 67 65 74 2d 6c 6f 63 61 74 69 6f 6e 2d 6c 65 66 74 20 6c 32 29 29 29 g-noter--get-location-left.l2)))
1b080 29 29 0a 20 20 20 20 20 20 20 20 28 28 65 71 20 63 6f 6d 70 20 27 3e 66 29 0a 20 20 20 20 20 20 )).........((eq.comp.'>f).......
1b0a0 20 20 20 28 6f 72 20 28 3e 20 28 6f 72 67 2d 6e 6f 74 65 72 2d 2d 67 65 74 2d 6c 6f 63 61 74 69 ...(or.(>.(org-noter--get-locati
1b0c0 6f 6e 2d 70 61 67 65 20 6c 31 29 20 28 6f 72 67 2d 6e 6f 74 65 72 2d 2d 67 65 74 2d 6c 6f 63 61 on-page.l1).(org-noter--get-loca
1b0e0 74 69 6f 6e 2d 70 61 67 65 20 6c 32 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 61 6e 64 tion-page.l2))..............(and
1b100 20 28 3d 20 28 6f 72 67 2d 6e 6f 74 65 72 2d 2d 67 65 74 2d 6c 6f 63 61 74 69 6f 6e 2d 70 61 67 .(=.(org-noter--get-location-pag
1b120 65 20 6c 31 29 20 28 6f 72 67 2d 6e 6f 74 65 72 2d 2d 67 65 74 2d 6c 6f 63 61 74 69 6f 6e 2d 70 e.l1).(org-noter--get-location-p
1b140 61 67 65 20 6c 32 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 3c 20 28 6f age.l2))...................(<.(o
1b160 72 67 2d 6e 6f 74 65 72 2d 2d 67 65 74 2d 6c 6f 63 61 74 69 6f 6e 2d 74 6f 70 20 6c 31 29 20 28 rg-noter--get-location-top.l1).(
1b180 6f 72 67 2d 6e 6f 74 65 72 2d 2d 67 65 74 2d 6c 6f 63 61 74 69 6f 6e 2d 74 6f 70 20 6c 32 29 29 org-noter--get-location-top.l2))
1b1a0 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 61 6e 64 20 28 3d 20 28 6f 72 67 2d 6e 6f 74 65 )..............(and.(=.(org-note
1b1c0 72 2d 2d 67 65 74 2d 6c 6f 63 61 74 69 6f 6e 2d 70 61 67 65 20 6c 31 29 20 28 6f 72 67 2d 6e 6f r--get-location-page.l1).(org-no
1b1e0 74 65 72 2d 2d 67 65 74 2d 6c 6f 63 61 74 69 6f 6e 2d 70 61 67 65 20 6c 32 29 29 0a 20 20 20 20 ter--get-location-page.l2)).....
1b200 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 3d 20 28 6f 72 67 2d 6e 6f 74 65 72 2d 2d 67 65 74 ..............(=.(org-noter--get
1b220 2d 6c 6f 63 61 74 69 6f 6e 2d 74 6f 70 20 6c 31 29 20 28 6f 72 67 2d 6e 6f 74 65 72 2d 2d 67 65 -location-top.l1).(org-noter--ge
1b240 74 2d 6c 6f 63 61 74 69 6f 6e 2d 74 6f 70 20 6c 32 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 t-location-top.l2)).............
1b260 20 20 20 20 20 20 28 3c 20 28 6f 72 67 2d 6e 6f 74 65 72 2d 2d 67 65 74 2d 6c 6f 63 61 74 69 6f ......(<.(org-noter--get-locatio
1b280 6e 2d 6c 65 66 74 20 6c 31 29 20 28 6f 72 67 2d 6e 6f 74 65 72 2d 2d 67 65 74 2d 6c 6f 63 61 74 n-left.l1).(org-noter--get-locat
1b2a0 69 6f 6e 2d 6c 65 66 74 20 6c 32 29 29 29 29 29 0a 20 20 20 20 20 20 20 20 28 74 20 28 65 72 72 ion-left.l2))))).........(t.(err
1b2c0 6f 72 20 22 43 6f 6d 70 61 72 69 73 6f 6e 20 6f 70 65 72 61 74 6f 72 20 25 73 20 6e 6f 74 20 6b or."Comparison.operator.%s.not.k
1b2e0 6e 6f 77 6e 22 20 63 6f 6d 70 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 6f 72 67 2d 6e 6f 74 65 72 nown".comp))))..(defun.org-noter
1b300 2d 2d 63 6f 6d 70 61 72 65 2d 6c 6f 63 61 74 69 6f 6e 73 20 28 63 6f 6d 70 20 6c 31 20 6c 32 29 --compare-locations.(comp.l1.l2)
1b320 0a 20 20 22 43 6f 6d 70 61 72 65 20 4c 31 20 61 6e 64 20 4c 32 2e 0a 57 68 65 6e 20 43 4f 4d 50 ..."Compare.L1.and.L2..When.COMP
1b340 20 69 73 20 27 3c 2c 20 27 3c 3d 2c 20 27 3e 2c 20 6f 72 20 27 3e 3d 2c 20 69 74 20 77 6f 72 6b .is.'<,.'<=,.'>,.or.'>=,.it.work
1b360 73 20 61 73 20 65 78 70 65 63 74 65 64 2e 0a 57 68 65 6e 20 43 4f 4d 50 20 69 73 20 27 3e 66 2c s.as.expected..When.COMP.is.'>f,
1b380 20 69 74 20 77 69 6c 6c 20 72 65 74 75 72 6e 20 74 20 77 68 65 6e 20 4c 31 20 69 73 20 61 20 70 .it.will.return.t.when.L1.is.a.p
1b3a0 61 67 65 20 67 72 65 61 74 65 72 20 74 68 61 6e 0a 4c 32 20 6f 72 2c 20 77 68 65 6e 20 69 6e 20 age.greater.than.L2.or,.when.in.
1b3c0 74 68 65 20 73 61 6d 65 20 70 61 67 65 2c 20 69 66 20 4c 31 20 69 73 20 74 68 65 20 5f 66 5f 69 the.same.page,.if.L1.is.the._f_i
1b3e0 72 73 74 20 6f 66 20 74 68 65 20 74 77 6f 2e 22 0a 20 20 28 63 6f 6e 64 20 28 28 6e 6f 74 20 6c rst.of.the.two."...(cond.((not.l
1b400 31 29 20 6e 69 6c 29 0a 20 20 20 20 20 20 20 20 28 28 6e 6f 74 20 6c 32 29 20 74 29 0a 20 20 20 1).nil).........((not.l2).t)....
1b420 20 20 20 20 20 28 74 0a 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 6c 31 20 28 6f 72 20 28 72 .....(t..........(setq.l1.(or.(r
1b440 75 6e 2d 68 6f 6f 6b 2d 77 69 74 68 2d 61 72 67 73 2d 75 6e 74 69 6c 2d 73 75 63 63 65 73 73 20 un-hook-with-args-until-success.
1b460 27 6f 72 67 2d 6e 6f 74 65 72 2d 2d 63 6f 6e 76 65 72 74 2d 74 6f 2d 6c 6f 63 61 74 69 6f 6e 2d 'org-noter--convert-to-location-
1b480 63 6f 6e 73 2d 68 6f 6f 6b 20 6c 31 29 20 6c 31 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 cons-hook.l1).l1)...............
1b4a0 20 6c 32 20 28 6f 72 20 28 72 75 6e 2d 68 6f 6f 6b 2d 77 69 74 68 2d 61 72 67 73 2d 75 6e 74 69 .l2.(or.(run-hook-with-args-unti
1b4c0 6c 2d 73 75 63 63 65 73 73 20 27 6f 72 67 2d 6e 6f 74 65 72 2d 2d 63 6f 6e 76 65 72 74 2d 74 6f l-success.'org-noter--convert-to
1b4e0 2d 6c 6f 63 61 74 69 6f 6e 2d 63 6f 6e 73 2d 68 6f 6f 6b 20 6c 32 29 20 6c 32 29 29 0a 20 20 20 -location-cons-hook.l2).l2))....
1b500 20 20 20 20 20 20 28 69 66 20 28 6e 75 6d 62 65 72 70 20 28 63 64 72 20 6c 32 29 29 0a 20 20 20 ......(if.(numberp.(cdr.l2))....
1b520 20 20 20 20 20 20 20 20 20 20 28 6f 72 67 2d 6e 6f 74 65 72 2d 2d 63 6f 6d 70 61 72 65 2d 6c 6f ..........(org-noter--compare-lo
1b540 63 61 74 69 6f 6e 2d 63 6f 6e 73 20 63 6f 6d 70 20 6c 31 20 6c 32 29 0a 20 20 20 20 20 20 20 20 cation-cons.comp.l1.l2).........
1b560 20 20 20 28 6f 72 67 2d 6e 6f 74 65 72 2d 2d 63 6f 6d 70 61 72 65 2d 6c 6f 63 61 74 69 6f 6e 2d ...(org-noter--compare-location-
1b580 63 6f 6e 73 20 63 6f 6d 70 20 6c 31 20 28 63 6f 6e 73 20 28 63 61 72 20 6c 32 29 20 28 63 61 64 cons.comp.l1.(cons.(car.l2).(cad
1b5a0 72 20 6c 32 29 29 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 6f 72 67 2d 6e 6f 74 65 72 2d 2d 73 r.l2)))))))..(defun.org-noter--s
1b5c0 68 6f 77 2d 6e 6f 74 65 2d 65 6e 74 72 79 20 28 73 65 73 73 69 6f 6e 20 6e 6f 74 65 29 0a 20 20 how-note-entry.(session.note)...
1b5e0 22 53 68 6f 77 20 74 68 65 20 4e 4f 54 45 20 65 6e 74 72 79 20 61 6e 64 20 69 74 73 20 63 68 69 "Show.the.NOTE.entry.and.its.chi
1b600 6c 64 72 65 6e 20 66 6f 72 20 74 68 69 73 20 53 45 53 53 49 4f 4e 2e 0a 45 76 65 72 79 20 64 69 ldren.for.this.SESSION..Every.di
1b620 72 65 63 74 20 73 75 62 68 65 61 64 69 6e 67 20 5f 75 6e 74 69 6c 5f 20 74 68 65 20 66 69 72 73 rect.subheading._until_.the.firs
1b640 74 20 68 65 61 64 69 6e 67 20 74 68 61 74 20 64 6f 65 73 6e 27 74 0a 62 65 6c 6f 6e 67 20 74 6f t.heading.that.doesn't.belong.to
1b660 20 74 68 65 20 73 61 6d 65 20 76 69 65 77 20 28 69 65 2e 20 75 6e 74 69 6c 20 61 20 68 65 61 64 .the.same.view.(ie..until.a.head
1b680 69 6e 67 20 77 69 74 68 20 6c 6f 63 61 74 69 6f 6e 20 6f 72 0a 64 6f 63 75 6d 65 6e 74 20 70 72 ing.with.location.or.document.pr
1b6a0 6f 70 65 72 74 79 29 20 77 69 6c 6c 20 62 65 20 6f 70 65 6e 65 64 2e 22 0a 20 20 28 73 61 76 65 operty).will.be.opened."...(save
1b6c0 2d 65 78 63 75 72 73 69 6f 6e 0a 20 20 20 20 28 67 6f 74 6f 2d 63 68 61 72 20 28 6f 72 67 2d 65 -excursion.....(goto-char.(org-e
1b6e0 6c 65 6d 65 6e 74 2d 70 72 6f 70 65 72 74 79 20 3a 63 6f 6e 74 65 6e 74 73 2d 62 65 67 69 6e 20 lement-property.:contents-begin.
1b700 6e 6f 74 65 29 29 0a 20 20 20 20 28 6f 72 67 2d 73 68 6f 77 2d 73 65 74 2d 76 69 73 69 62 69 6c note)).....(org-show-set-visibil
1b720 69 74 79 20 74 29 0a 20 20 20 20 28 6f 72 67 2d 65 6c 65 6d 65 6e 74 2d 6d 61 70 20 28 6f 72 67 ity.t).....(org-element-map.(org
1b740 2d 65 6c 65 6d 65 6e 74 2d 63 6f 6e 74 65 6e 74 73 20 6e 6f 74 65 29 20 27 68 65 61 64 6c 69 6e -element-contents.note).'headlin
1b760 65 0a 20 20 20 20 20 20 28 6c 61 6d 62 64 61 20 28 68 65 61 64 6c 69 6e 65 29 0a 20 20 20 20 20 e.......(lambda.(headline)......
1b780 20 20 20 28 6c 65 74 20 28 28 64 6f 63 2d 66 69 6c 65 20 28 6f 72 67 2d 6e 6f 74 65 72 2d 2d 64 ...(let.((doc-file.(org-noter--d
1b7a0 6f 63 2d 66 69 6c 65 2d 70 72 6f 70 65 72 74 79 20 68 65 61 64 6c 69 6e 65 29 29 29 0a 20 20 20 oc-file-property.headline)))....
1b7c0 20 20 20 20 20 20 20 28 69 66 20 28 6f 72 20 28 61 6e 64 20 64 6f 63 2d 66 69 6c 65 20 28 6e 6f .......(if.(or.(and.doc-file.(no
1b7e0 74 20 28 73 74 72 69 6e 67 3d 20 64 6f 63 2d 66 69 6c 65 20 28 6f 72 67 2d 6e 6f 74 65 72 2d 2d t.(string=.doc-file.(org-noter--
1b800 73 65 73 73 69 6f 6e 2d 70 72 6f 70 65 72 74 79 2d 74 65 78 74 20 73 65 73 73 69 6f 6e 29 29 29 session-property-text.session)))
1b820 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6f 72 67 2d 6e 6f 74 65 72 2d 2d )...................(org-noter--
1b840 63 68 65 63 6b 2d 6c 6f 63 61 74 69 6f 6e 2d 70 72 6f 70 65 72 74 79 20 68 65 61 64 6c 69 6e 65 check-location-property.headline
1b860 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 ))...............t.............(
1b880 67 6f 74 6f 2d 63 68 61 72 20 28 6f 72 67 2d 65 6c 65 6d 65 6e 74 2d 70 72 6f 70 65 72 74 79 20 goto-char.(org-element-property.
1b8a0 3a 62 65 67 69 6e 20 68 65 61 64 6c 69 6e 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 6f :begin.headline)).............(o
1b8c0 72 67 2d 73 68 6f 77 2d 65 6e 74 72 79 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 6f 72 67 2d rg-show-entry).............(org-
1b8e0 73 68 6f 77 2d 63 68 69 6c 64 72 65 6e 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 6e 69 6c 29 29 show-children).............nil))
1b900 29 0a 20 20 20 20 20 20 6e 69 6c 20 74 20 6f 72 67 2d 65 6c 65 6d 65 6e 74 2d 61 6c 6c 2d 65 6c ).......nil.t.org-element-all-el
1b920 65 6d 65 6e 74 73 29 29 29 0a 0a 28 64 65 66 75 6e 20 6f 72 67 2d 6e 6f 74 65 72 2d 2d 66 6f 63 ements)))..(defun.org-noter--foc
1b940 75 73 2d 6e 6f 74 65 73 2d 72 65 67 69 6f 6e 20 28 76 69 65 77 2d 69 6e 66 6f 29 0a 20 20 28 6f us-notes-region.(view-info)...(o
1b960 72 67 2d 6e 6f 74 65 72 2d 2d 77 69 74 68 2d 73 65 6c 65 63 74 65 64 2d 6e 6f 74 65 73 2d 77 69 rg-noter--with-selected-notes-wi
1b980 6e 64 6f 77 0a 20 20 20 28 69 66 20 28 6f 72 67 2d 6e 6f 74 65 72 2d 2d 73 65 73 73 69 6f 6e 2d ndow....(if.(org-noter--session-
1b9a0 68 69 64 65 2d 6f 74 68 65 72 20 73 65 73 73 69 6f 6e 29 0a 20 20 20 20 20 20 20 28 73 61 76 65 hide-other.session)........(save
1b9c0 2d 65 78 63 75 72 73 69 6f 6e 0a 20 20 20 20 20 20 20 20 20 28 67 6f 74 6f 2d 63 68 61 72 20 28 -excursion..........(goto-char.(
1b9e0 6f 72 67 2d 65 6c 65 6d 65 6e 74 2d 70 72 6f 70 65 72 74 79 20 3a 62 65 67 69 6e 20 28 6f 72 67 org-element-property.:begin.(org
1ba00 2d 6e 6f 74 65 72 2d 2d 70 61 72 73 65 2d 72 6f 6f 74 29 29 29 0a 20 20 20 20 20 20 20 20 20 28 -noter--parse-root)))..........(
1ba20 75 6e 6c 65 73 73 20 28 6f 72 67 2d 62 65 66 6f 72 65 2d 66 69 72 73 74 2d 68 65 61 64 69 6e 67 unless.(org-before-first-heading
1ba40 2d 70 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 6f 75 74 6c 69 6e 65 2d 68 69 64 65 2d 73 75 62 -p)............(outline-hide-sub
1ba60 74 72 65 65 29 29 29 0a 20 20 20 20 20 28 6f 72 67 2d 63 79 63 6c 65 2d 68 69 64 65 2d 64 72 61 tree)))......(org-cycle-hide-dra
1ba80 77 65 72 73 20 27 61 6c 6c 29 29 0a 0a 20 20 20 28 6c 65 74 2a 20 28 28 6e 6f 74 65 73 2d 63 6f wers.'all)).....(let*.((notes-co
1baa0 6e 73 20 28 6f 72 67 2d 6e 6f 74 65 72 2d 2d 76 69 65 77 2d 69 6e 66 6f 2d 6e 6f 74 65 73 20 76 ns.(org-noter--view-info-notes.v
1bac0 69 65 77 2d 69 6e 66 6f 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 72 65 67 69 6f 6e 73 20 28 6f iew-info))...........(regions.(o
1bae0 72 20 28 6f 72 67 2d 6e 6f 74 65 72 2d 2d 76 69 65 77 2d 69 6e 66 6f 2d 72 65 67 69 6f 6e 73 20 r.(org-noter--view-info-regions.
1bb00 76 69 65 77 2d 69 6e 66 6f 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 view-info)......................
1bb20 20 20 28 6f 72 67 2d 6e 6f 74 65 72 2d 2d 76 69 65 77 2d 69 6e 66 6f 2d 70 72 65 76 2d 72 65 67 ..(org-noter--view-info-prev-reg
1bb40 69 6f 6e 73 20 76 69 65 77 2d 69 6e 66 6f 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 70 6f 69 ions.view-info)))...........(poi
1bb60 6e 74 2d 62 65 66 6f 72 65 20 28 70 6f 69 6e 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 74 61 72 nt-before.(point))...........tar
1bb80 67 65 74 2d 72 65 67 69 6f 6e 0a 20 20 20 20 20 20 20 20 20 20 70 6f 69 6e 74 2d 69 6e 73 69 64 get-region...........point-insid
1bba0 65 2d 74 61 72 67 65 74 2d 72 65 67 69 6f 6e 29 0a 20 20 20 20 20 28 63 6f 6e 64 0a 20 20 20 20 e-target-region)......(cond.....
1bbc0 20 20 28 6e 6f 74 65 73 2d 63 6f 6e 73 0a 20 20 20 20 20 20 20 28 64 6f 6c 69 73 74 20 28 6e 6f ..(notes-cons........(dolist.(no
1bbe0 74 65 2d 63 6f 6e 73 20 6e 6f 74 65 73 2d 63 6f 6e 73 29 20 28 6f 72 67 2d 6e 6f 74 65 72 2d 2d te-cons.notes-cons).(org-noter--
1bc00 73 68 6f 77 2d 6e 6f 74 65 2d 65 6e 74 72 79 20 73 65 73 73 69 6f 6e 20 28 63 61 72 20 6e 6f 74 show-note-entry.session.(car.not
1bc20 65 2d 63 6f 6e 73 29 29 29 0a 0a 20 20 20 20 20 20 20 28 73 65 74 71 20 74 61 72 67 65 74 2d 72 e-cons))).........(setq.target-r
1bc40 65 67 69 6f 6e 20 28 6f 72 20 28 63 61 74 63 68 20 27 72 65 73 75 6c 74 20 28 64 6f 6c 69 73 74 egion.(or.(catch.'result.(dolist
1bc60 20 28 72 65 67 69 6f 6e 20 72 65 67 69 6f 6e 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .(region.regions)...............
1bc80 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ................................
1bca0 20 20 28 77 68 65 6e 20 28 61 6e 64 20 28 3e 3d 20 70 6f 69 6e 74 2d 62 65 66 6f 72 65 20 28 63 ..(when.(and.(>=.point-before.(c
1bcc0 61 72 20 72 65 67 69 6f 6e 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ar.region)).....................
1bce0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ................................
1bd00 20 20 20 20 20 20 20 28 6f 72 20 28 73 61 76 65 2d 72 65 73 74 72 69 63 74 69 6f 6e 20 28 67 6f .......(or.(save-restriction.(go
1bd20 74 6f 2d 63 68 61 72 20 28 63 64 72 20 72 65 67 69 6f 6e 29 29 20 28 65 6f 62 70 29 29 0a 20 20 to-char.(cdr.region)).(eobp))...
1bd40 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ................................
1bd60 20 20 20 20 20 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 3c 20 .............................(<.
1bd80 70 6f 69 6e 74 2d 62 65 66 6f 72 65 20 28 63 64 72 20 72 65 67 69 6f 6e 29 29 29 29 0a 20 20 20 point-before.(cdr.region))))....
1bda0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ................................
1bdc0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 70 6f 69 6e 74 2d 69 6e 73 69 64 ...............(setq.point-insid
1bde0 65 2d 74 61 72 67 65 74 2d 72 65 67 69 6f 6e 20 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 e-target-region.t)..............
1be00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ................................
1be20 20 20 20 20 20 28 74 68 72 6f 77 20 27 72 65 73 75 6c 74 20 72 65 67 69 6f 6e 29 29 29 29 0a 20 .....(throw.'result.region))))..
1be40 20 20 20 20 20 20 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
1be60 61 72 20 72 65 67 69 6f 6e 73 29 29 29 0a 0a 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 62 65 67 ar.regions))).........(let.((beg
1be80 69 6e 20 28 63 61 72 20 74 61 72 67 65 74 2d 72 65 67 69 6f 6e 29 29 20 28 65 6e 64 20 28 63 64 in.(car.target-region)).(end.(cd
1bea0 72 20 74 61 72 67 65 74 2d 72 65 67 69 6f 6e 29 29 20 6e 75 6d 2d 6c 69 6e 65 73 0a 20 20 20 20 r.target-region)).num-lines.....
1bec0 20 20 20 20 20 20 20 20 20 28 74 61 72 67 65 74 2d 63 68 61 72 20 28 69 66 20 70 6f 69 6e 74 2d .........(target-char.(if.point-
1bee0 69 6e 73 69 64 65 2d 74 61 72 67 65 74 2d 72 65 67 69 6f 6e 0a 20 20 20 20 20 20 20 20 20 20 20 inside-target-region............
1bf00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 70 6f 69 6e 74 2d 62 65 66 6f 72 65 0a ...................point-before.
1bf20 20 20 20 20 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 6f 72 67 ............................(org
1bf40 2d 6e 6f 74 65 72 2d 2d 67 65 74 2d 70 72 6f 70 65 72 74 69 65 73 2d 65 6e 64 20 28 63 61 61 72 -noter--get-properties-end.(caar
1bf60 20 6e 6f 74 65 73 2d 63 6f 6e 73 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 69 .notes-cons))))..............(wi
1bf80 6e 64 6f 77 2d 73 74 61 72 74 20 28 77 69 6e 64 6f 77 2d 73 74 61 72 74 29 29 20 28 77 69 6e 64 ndow-start.(window-start)).(wind
1bfa0 6f 77 2d 65 6e 64 20 28 77 69 6e 64 6f 77 2d 65 6e 64 20 6e 69 6c 20 74 29 29 29 0a 20 20 20 20 ow-end.(window-end.nil.t))).....
1bfc0 20 20 20 20 20 28 73 65 74 71 20 6e 75 6d 2d 6c 69 6e 65 73 20 28 63 6f 75 6e 74 2d 73 63 72 65 .....(setq.num-lines.(count-scre
1bfe0 65 6e 2d 6c 69 6e 65 73 20 62 65 67 69 6e 20 65 6e 64 29 29 0a 0a 20 20 20 20 20 20 20 20 20 28 en-lines.begin.end))...........(
1c000 63 6f 6e 64 0a 20 20 20 20 20 20 20 20 20 20 28 28 3e 20 6e 75 6d 2d 6c 69 6e 65 73 20 28 77 69 cond...........((>.num-lines.(wi
1c020 6e 64 6f 77 2d 68 65 69 67 68 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 67 6f 74 6f 2d 63 ndow-height))............(goto-c
1c040 68 61 72 20 62 65 67 69 6e 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 72 65 63 65 6e 74 65 72 20 har.begin)............(recenter.
1c060 30 29 29 0a 0a 20 20 20 20 20 20 20 20 20 20 28 28 3c 20 62 65 67 69 6e 20 77 69 6e 64 6f 77 2d 0))............((<.begin.window-
1c080 73 74 61 72 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 67 6f 74 6f 2d 63 68 61 72 20 62 65 67 start)............(goto-char.beg
1c0a0 69 6e 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 72 65 63 65 6e 74 65 72 20 30 29 29 0a 0a 20 20 in)............(recenter.0))....
1c0c0 20 20 20 20 20 20 20 20 28 28 3e 20 65 6e 64 20 77 69 6e 64 6f 77 2d 65 6e 64 29 0a 20 20 20 20 ........((>.end.window-end).....
1c0e0 20 20 20 20 20 20 20 28 67 6f 74 6f 2d 63 68 61 72 20 65 6e 64 29 0a 20 20 20 20 20 20 20 20 20 .......(goto-char.end)..........
1c100 20 20 28 72 65 63 65 6e 74 65 72 20 2d 32 29 29 29 0a 0a 20 20 20 20 20 20 20 20 20 28 67 6f 74 ..(recenter.-2)))...........(got
1c120 6f 2d 63 68 61 72 20 74 61 72 67 65 74 2d 63 68 61 72 29 29 29 0a 0a 20 20 20 20 20 20 28 74 20 o-char.target-char)))........(t.
1c140 28 6f 72 67 2d 6e 6f 74 65 72 2d 2d 73 68 6f 77 2d 6e 6f 74 65 2d 65 6e 74 72 79 20 73 65 73 73 (org-noter--show-note-entry.sess
1c160 69 6f 6e 20 28 6f 72 67 2d 6e 6f 74 65 72 2d 2d 70 61 72 73 65 2d 72 6f 6f 74 29 29 29 29 29 0a ion.(org-noter--parse-root))))).
1c180 0a 20 20 20 28 6f 72 67 2d 63 79 63 6c 65 2d 73 68 6f 77 2d 65 6d 70 74 79 2d 6c 69 6e 65 73 20 ....(org-cycle-show-empty-lines.
1c1a0 74 29 29 29 0a 0a 28 64 65 66 75 6e 20 6f 72 67 2d 6e 6f 74 65 72 2d 2d 67 65 74 2d 63 75 72 72 t)))..(defun.org-noter--get-curr
1c1c0 65 6e 74 2d 76 69 65 77 20 28 29 0a 20 20 22 52 65 74 75 72 6e 20 61 20 76 65 63 74 6f 72 20 77 ent-view.()..."Return.a.vector.w
1c1e0 69 74 68 20 74 68 65 20 63 75 72 72 65 6e 74 20 76 69 65 77 20 69 6e 66 6f 72 6d 61 74 69 6f 6e ith.the.current.view.information
1c200 2e 22 0a 20 20 28 6f 72 67 2d 6e 6f 74 65 72 2d 2d 77 69 74 68 2d 76 61 6c 69 64 2d 73 65 73 73 ."...(org-noter--with-valid-sess
1c220 69 6f 6e 0a 20 20 20 28 6c 65 74 20 28 28 6d 6f 64 65 20 28 6f 72 67 2d 6e 6f 74 65 72 2d 2d 73 ion....(let.((mode.(org-noter--s
1c240 65 73 73 69 6f 6e 2d 64 6f 63 2d 6d 6f 64 65 20 73 65 73 73 69 6f 6e 29 29 29 0a 20 20 20 20 20 ession-doc-mode.session)))......
1c260 28 77 69 74 68 2d 73 65 6c 65 63 74 65 64 2d 77 69 6e 64 6f 77 20 28 6f 72 67 2d 6e 6f 74 65 72 (with-selected-window.(org-noter
1c280 2d 2d 67 65 74 2d 64 6f 63 2d 77 69 6e 64 6f 77 29 0a 20 20 20 20 20 20 20 28 6f 72 20 28 72 75 --get-doc-window)........(or.(ru
1c2a0 6e 2d 68 6f 6f 6b 2d 77 69 74 68 2d 61 72 67 73 2d 75 6e 74 69 6c 2d 73 75 63 63 65 73 73 20 27 n-hook-with-args-until-success.'
1c2c0 6f 72 67 2d 6e 6f 74 65 72 2d 2d 67 65 74 2d 63 75 72 72 65 6e 74 2d 76 69 65 77 2d 68 6f 6f 6b org-noter--get-current-view-hook
1c2e0 20 6d 6f 64 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 65 72 72 6f 72 20 22 55 6e 6b 6e 6f 77 .mode)............(error."Unknow
1c300 6e 20 64 6f 63 75 6d 65 6e 74 20 74 79 70 65 22 29 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 6f n.document.type"))))))..(defun.o
1c320 72 67 2d 6e 6f 74 65 72 2d 2d 6e 6f 74 65 2d 61 66 74 65 72 2d 74 69 70 70 69 6e 67 2d 70 6f 69 rg-noter--note-after-tipping-poi
1c340 6e 74 20 28 70 6f 69 6e 74 20 6c 6f 63 61 74 69 6f 6e 20 76 69 65 77 29 0a 20 20 3b 3b 20 4e 4f nt.(point.location.view)...;;.NO
1c360 54 45 28 6e 6f 78 29 3a 20 54 68 69 73 20 5f 5f 61 73 73 75 6d 65 73 5f 5f 20 74 68 65 20 6e 6f TE(nox):.This.__assumes__.the.no
1c380 74 65 20 69 73 20 69 6e 73 69 64 65 20 74 68 65 20 76 69 65 77 21 0a 20 20 28 6c 65 74 20 28 68 te.is.inside.the.view!...(let.(h
1c3a0 6f 6f 6b 2d 72 65 73 75 6c 74 29 0a 20 20 20 20 28 63 6f 6e 64 0a 20 20 20 20 20 28 28 73 65 74 ook-result).....(cond......((set
1c3c0 71 20 68 6f 6f 6b 2d 72 65 73 75 6c 74 20 28 72 75 6e 2d 68 6f 6f 6b 2d 77 69 74 68 2d 61 72 67 q.hook-result.(run-hook-with-arg
1c3e0 73 2d 75 6e 74 69 6c 2d 73 75 63 63 65 73 73 20 27 6f 72 67 2d 6e 6f 74 65 72 2d 2d 6e 6f 74 65 s-until-success.'org-noter--note
1c400 2d 61 66 74 65 72 2d 74 69 70 70 69 6e 67 2d 70 6f 69 6e 74 2d 68 6f 6f 6b 0a 20 20 20 20 20 20 -after-tipping-point-hook.......
1c420 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ................................
1c440 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 70 6f 69 6e 74 20 6c 6f 63 61 74 69 ....................point.locati
1c460 6f 6e 20 76 69 65 77 29 29 0a 20 20 20 20 20 20 28 63 64 72 20 68 6f 6f 6b 2d 72 65 73 75 6c 74 on.view)).......(cdr.hook-result
1c480 29 29 0a 20 20 20 20 20 28 28 65 71 20 28 61 72 65 66 20 76 69 65 77 20 30 29 20 27 70 61 67 65 ))......((eq.(aref.view.0).'page
1c4a0 64 29 0a 20 20 20 20 20 20 28 3e 20 28 6f 72 67 2d 6e 6f 74 65 72 2d 2d 67 65 74 2d 6c 6f 63 61 d).......(>.(org-noter--get-loca
1c4c0 74 69 6f 6e 2d 74 6f 70 20 6c 6f 63 61 74 69 6f 6e 29 20 70 6f 69 6e 74 29 29 0a 20 20 20 20 20 tion-top.location).point))......
1c4e0 28 28 65 71 20 28 61 72 65 66 20 76 69 65 77 20 30 29 20 27 6e 6f 76 29 0a 20 20 20 20 20 20 28 ((eq.(aref.view.0).'nov).......(
1c500 3e 20 28 6f 72 67 2d 6e 6f 74 65 72 2d 2d 67 65 74 2d 6c 6f 63 61 74 69 6f 6e 2d 74 6f 70 20 6c >.(org-noter--get-location-top.l
1c520 6f 63 61 74 69 6f 6e 29 20 28 2b 20 28 2a 20 70 6f 69 6e 74 20 28 2d 20 28 63 64 72 20 28 61 72 ocation).(+.(*.point.(-.(cdr.(ar
1c540 65 66 20 76 69 65 77 20 32 29 29 20 28 63 64 72 20 28 61 72 65 66 20 76 69 65 77 20 31 29 29 29 ef.view.2)).(cdr.(aref.view.1)))
1c560 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 )...............................
1c580 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 64 72 20 28 61 72 65 66 20 .....................(cdr.(aref.
1c5a0 76 69 65 77 20 31 29 29 29 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 6f 72 67 2d 6e 6f 74 65 72 view.1))))))))..(defun.org-noter
1c5c0 2d 2d 72 65 6c 61 74 69 76 65 2d 70 6f 73 69 74 69 6f 6e 2d 74 6f 2d 76 69 65 77 20 28 6c 6f 63 --relative-position-to-view.(loc
1c5e0 61 74 69 6f 6e 20 76 69 65 77 29 0a 20 20 28 63 6f 6e 64 0a 20 20 20 28 28 72 75 6e 2d 68 6f 6f ation.view)...(cond....((run-hoo
1c600 6b 2d 77 69 74 68 2d 61 72 67 73 2d 75 6e 74 69 6c 2d 73 75 63 63 65 73 73 20 27 6f 72 67 2d 6e k-with-args-until-success.'org-n
1c620 6f 74 65 72 2d 2d 72 65 6c 61 74 69 76 65 2d 70 6f 73 69 74 69 6f 6e 2d 74 6f 2d 76 69 65 77 2d oter--relative-position-to-view-
1c640 68 6f 6f 6b 20 6c 6f 63 61 74 69 6f 6e 20 76 69 65 77 29 29 0a 0a 20 20 20 28 28 65 71 20 28 61 hook.location.view)).....((eq.(a
1c660 72 65 66 20 76 69 65 77 20 30 29 20 27 70 61 67 65 64 29 0a 20 20 20 20 28 6c 65 74 20 28 28 6e ref.view.0).'paged).....(let.((n
1c680 6f 74 65 2d 70 61 67 65 20 28 6f 72 67 2d 6e 6f 74 65 72 2d 2d 67 65 74 2d 6c 6f 63 61 74 69 6f ote-page.(org-noter--get-locatio
1c6a0 6e 2d 70 61 67 65 20 6c 6f 63 61 74 69 6f 6e 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 76 69 65 n-page.location))...........(vie
1c6c0 77 2d 70 61 67 65 20 28 61 72 65 66 20 76 69 65 77 20 31 29 29 29 0a 20 20 20 20 20 20 28 63 6f w-page.(aref.view.1))).......(co
1c6e0 6e 64 20 28 28 3c 20 6e 6f 74 65 2d 70 61 67 65 20 76 69 65 77 2d 70 61 67 65 29 20 27 62 65 66 nd.((<.note-page.view-page).'bef
1c700 6f 72 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 28 3d 20 6e 6f 74 65 2d 70 61 67 65 20 76 ore).............((=.note-page.v
1c720 69 65 77 2d 70 61 67 65 29 20 27 69 6e 73 69 64 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 iew-page).'inside).............(
1c740 74 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 66 74 65 72 29 29 t.......................'after))
1c760 29 29 0a 0a 20 20 20 28 28 65 71 20 28 61 72 65 66 20 76 69 65 77 20 30 29 20 27 6e 6f 76 29 0a )).....((eq.(aref.view.0).'nov).
1c780 20 20 20 20 28 6c 65 74 20 28 28 76 69 65 77 2d 74 6f 70 20 28 61 72 65 66 20 76 69 65 77 20 31 ....(let.((view-top.(aref.view.1
1c7a0 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 76 69 65 77 2d 62 6f 74 20 28 61 72 65 66 20 76 69 65 ))...........(view-bot.(aref.vie
1c7c0 77 20 32 29 29 29 0a 20 20 20 20 20 20 28 63 6f 6e 64 20 28 28 6f 72 67 2d 6e 6f 74 65 72 2d 2d w.2))).......(cond.((org-noter--
1c7e0 63 6f 6d 70 61 72 65 2d 6c 6f 63 61 74 69 6f 6e 73 20 27 3c 20 20 6c 6f 63 61 74 69 6f 6e 20 76 compare-locations.'<..location.v
1c800 69 65 77 2d 74 6f 70 29 20 27 62 65 66 6f 72 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 28 iew-top).'before).............((
1c820 6f 72 67 2d 6e 6f 74 65 72 2d 2d 63 6f 6d 70 61 72 65 2d 6c 6f 63 61 74 69 6f 6e 73 20 27 3c 3d org-noter--compare-locations.'<=
1c840 20 6c 6f 63 61 74 69 6f 6e 20 76 69 65 77 2d 62 6f 74 29 20 27 69 6e 73 69 64 65 29 0a 20 20 20 .location.view-bot).'inside)....
1c860 20 20 20 20 20 20 20 20 20 28 74 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .........(t.....................
1c880 20 20 20 20 20 20 20 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 ...............................'
1c8a0 61 66 74 65 72 29 29 29 29 29 29 0a 0a 28 64 65 66 6d 61 63 72 6f 20 6f 72 67 2d 6e 6f 74 65 72 after))))))..(defmacro.org-noter
1c8c0 2d 2d 76 69 65 77 2d 72 65 67 69 6f 6e 2d 66 69 6e 69 73 68 20 28 69 6e 66 6f 20 26 6f 70 74 69 --view-region-finish.(info.&opti
1c8e0 6f 6e 61 6c 20 74 65 72 6d 69 6e 61 74 69 6e 67 2d 68 65 61 64 6c 69 6e 65 29 0a 20 20 60 28 77 onal.terminating-headline)...`(w
1c900 68 65 6e 20 2c 69 6e 66 6f 0a 20 20 20 20 20 2c 28 69 66 20 74 65 72 6d 69 6e 61 74 69 6e 67 2d hen.,info......,(if.terminating-
1c920 68 65 61 64 6c 69 6e 65 0a 20 20 20 20 20 20 20 20 20 20 60 28 70 75 73 68 20 28 63 6f 6e 73 20 headline...........`(push.(cons.
1c940 28 61 72 65 66 20 2c 69 6e 66 6f 20 31 29 20 28 6d 69 6e 20 28 61 72 65 66 20 2c 69 6e 66 6f 20 (aref.,info.1).(min.(aref.,info.
1c960 32 29 20 28 6f 72 67 2d 65 6c 65 6d 65 6e 74 2d 70 72 6f 70 65 72 74 79 20 3a 62 65 67 69 6e 20 2).(org-element-property.:begin.
1c980 2c 74 65 72 6d 69 6e 61 74 69 6e 67 2d 68 65 61 64 6c 69 6e 65 29 29 29 0a 20 20 20 20 20 20 20 ,terminating-headline)))........
1c9a0 20 20 20 20 20 20 20 20 20 20 28 67 76 2d 64 65 72 65 66 20 28 61 72 65 66 20 2c 69 6e 66 6f 20 ..........(gv-deref.(aref.,info.
1c9c0 30 29 29 29 0a 20 20 20 20 20 20 20 20 60 28 70 75 73 68 20 28 63 6f 6e 73 20 28 61 72 65 66 20 0))).........`(push.(cons.(aref.
1c9e0 2c 69 6e 66 6f 20 31 29 20 28 61 72 65 66 20 2c 69 6e 66 6f 20 32 29 29 20 28 67 76 2d 64 65 72 ,info.1).(aref.,info.2)).(gv-der
1ca00 65 66 20 28 61 72 65 66 20 2c 69 6e 66 6f 20 30 29 29 29 29 0a 20 20 20 20 20 28 73 65 74 71 20 ef.(aref.,info.0))))......(setq.
1ca20 2c 69 6e 66 6f 20 6e 69 6c 29 29 29 0a 0a 28 64 65 66 6d 61 63 72 6f 20 6f 72 67 2d 6e 6f 74 65 ,info.nil)))..(defmacro.org-note
1ca40 72 2d 2d 76 69 65 77 2d 72 65 67 69 6f 6e 2d 61 64 64 20 28 69 6e 66 6f 20 6c 69 73 74 2d 6e 61 r--view-region-add.(info.list-na
1ca60 6d 65 20 68 65 61 64 6c 69 6e 65 29 0a 20 20 60 28 70 72 6f 67 6e 0a 20 20 20 20 20 28 77 68 65 me.headline)...`(progn......(whe
1ca80 6e 20 28 61 6e 64 20 2c 69 6e 66 6f 20 28 6e 6f 74 20 28 65 71 20 28 61 72 65 66 20 2c 69 6e 66 n.(and.,info.(not.(eq.(aref.,inf
1caa0 6f 20 33 29 20 27 2c 6c 69 73 74 2d 6e 61 6d 65 29 29 29 0a 20 20 20 20 20 20 20 28 6f 72 67 2d o.3).',list-name)))........(org-
1cac0 6e 6f 74 65 72 2d 2d 76 69 65 77 2d 72 65 67 69 6f 6e 2d 66 69 6e 69 73 68 20 2c 69 6e 66 6f 20 noter--view-region-finish.,info.
1cae0 2c 68 65 61 64 6c 69 6e 65 29 29 0a 0a 20 20 20 20 20 28 69 66 20 2c 69 6e 66 6f 0a 20 20 20 20 ,headline)).......(if.,info.....
1cb00 20 20 20 20 20 28 73 65 74 66 20 28 61 72 65 66 20 2c 69 6e 66 6f 20 32 29 20 28 6d 61 78 20 28 .....(setf.(aref.,info.2).(max.(
1cb20 61 72 65 66 20 2c 69 6e 66 6f 20 32 29 20 28 6f 72 67 2d 65 6c 65 6d 65 6e 74 2d 70 72 6f 70 65 aref.,info.2).(org-element-prope
1cb40 72 74 79 20 3a 65 6e 64 20 2c 68 65 61 64 6c 69 6e 65 29 29 29 0a 20 20 20 20 20 20 20 28 73 65 rty.:end.,headline)))........(se
1cb60 74 71 20 2c 69 6e 66 6f 20 28 76 65 63 74 6f 72 20 28 67 76 2d 72 65 66 20 2c 6c 69 73 74 2d 6e tq.,info.(vector.(gv-ref.,list-n
1cb80 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 20 20 20 20 20 ame)............................
1cba0 28 6f 72 67 2d 65 6c 65 6d 65 6e 74 2d 70 72 6f 70 65 72 74 79 20 3a 62 65 67 69 6e 20 2c 68 65 (org-element-property.:begin.,he
1cbc0 61 64 6c 69 6e 65 29 20 28 6f 72 67 2d 65 6c 65 6d 65 6e 74 2d 70 72 6f 70 65 72 74 79 20 3a 65 adline).(org-element-property.:e
1cbe0 6e 64 20 2c 68 65 61 64 6c 69 6e 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 nd.,headline)...................
1cc00 20 20 20 20 20 20 20 20 20 27 2c 6c 69 73 74 2d 6e 61 6d 65 29 29 29 29 29 0a 0a 3b 3b 20 4e 4f .........',list-name)))))..;;.NO
1cc20 54 45 28 6e 6f 78 29 3a 20 6e 6f 74 65 73 20 69 73 20 61 20 6c 69 73 74 20 6f 66 20 28 48 45 41 TE(nox):.notes.is.a.list.of.(HEA
1cc40 44 49 4e 47 20 2e 20 48 45 41 44 49 4e 47 2d 54 4f 2d 49 4e 53 45 52 54 2d 54 45 58 54 2d 42 45 DING...HEADING-TO-INSERT-TEXT-BE
1cc60 46 4f 52 45 29 3a 0a 3b 3b 20 2d 20 48 45 41 44 49 4e 47 20 69 73 20 74 68 65 20 72 6f 6f 74 20 FORE):.;;.-.HEADING.is.the.root.
1cc80 68 65 61 64 69 6e 67 20 6f 66 20 74 68 65 20 6e 6f 74 65 0a 3b 3b 20 2d 20 53 48 4f 55 4c 44 2d heading.of.the.note.;;.-.SHOULD-
1cca0 41 44 44 2d 53 50 41 43 45 20 69 6e 64 69 63 61 74 65 73 20 69 66 20 74 68 65 72 65 20 73 68 6f ADD-SPACE.indicates.if.there.sho
1ccc0 75 6c 64 20 62 65 20 65 78 74 72 61 20 73 70 61 63 69 6e 67 20 77 68 65 6e 20 69 6e 73 65 72 74 uld.be.extra.spacing.when.insert
1cce0 69 6e 67 20 74 65 78 74 20 74 6f 20 74 68 65 20 6e 6f 74 65 20 28 69 65 2e 20 74 68 65 0a 3b 3b ing.text.to.the.note.(ie..the.;;
1cd00 20 20 20 6e 6f 74 65 20 68 61 73 20 63 6f 6e 74 65 6e 74 73 29 0a 28 63 6c 2d 64 65 66 73 74 72 ...note.has.contents).(cl-defstr
1cd20 75 63 74 20 6f 72 67 2d 6e 6f 74 65 72 2d 2d 76 69 65 77 2d 69 6e 66 6f 20 6e 6f 74 65 73 20 72 uct.org-noter--view-info.notes.r
1cd40 65 67 69 6f 6e 73 20 70 72 65 76 2d 72 65 67 69 6f 6e 73 20 72 65 66 65 72 65 6e 63 65 2d 66 6f egions.prev-regions.reference-fo
1cd60 72 2d 69 6e 73 65 72 74 69 6f 6e 29 0a 0a 28 64 65 66 75 6e 20 6f 72 67 2d 6e 6f 74 65 72 2d 2d r-insertion)..(defun.org-noter--
1cd80 67 65 74 2d 76 69 65 77 2d 69 6e 66 6f 20 28 76 69 65 77 20 26 6f 70 74 69 6f 6e 61 6c 20 6e 65 get-view-info.(view.&optional.ne
1cda0 77 2d 6c 6f 63 61 74 69 6f 6e 29 0a 20 20 22 52 65 74 75 72 6e 20 56 49 45 57 20 72 65 6c 61 74 w-location)..."Return.VIEW.relat
1cdc0 65 64 20 69 6e 66 6f 72 6d 61 74 69 6f 6e 2e 0a 0a 57 68 65 6e 20 6f 70 74 69 6f 6e 61 6c 20 4e ed.information...When.optional.N
1cde0 45 57 2d 4c 4f 43 41 54 49 4f 4e 20 69 73 20 70 72 6f 76 69 64 65 64 2c 20 69 74 20 77 69 6c 6c EW-LOCATION.is.provided,.it.will
1ce00 20 62 65 20 75 73 65 64 20 74 6f 20 66 69 6e 64 0a 74 68 65 20 62 65 73 74 20 68 65 61 64 69 6e .be.used.to.find.the.best.headin
1ce20 67 20 74 6f 20 73 65 72 76 65 20 61 73 20 61 20 72 65 66 65 72 65 6e 63 65 20 74 6f 20 63 72 65 g.to.serve.as.a.reference.to.cre
1ce40 61 74 65 20 74 68 65 20 6e 65 77 20 6f 6e 65 0a 72 65 6c 61 74 69 76 65 20 74 6f 2e 22 0a 20 20 ate.the.new.one.relative.to."...
1ce60 28 77 68 65 6e 20 76 69 65 77 0a 20 20 20 20 28 6f 72 67 2d 6e 6f 74 65 72 2d 2d 77 69 74 68 2d (when.view.....(org-noter--with-
1ce80 76 61 6c 69 64 2d 73 65 73 73 69 6f 6e 0a 20 20 20 20 20 28 6c 65 74 20 28 28 63 6f 6e 74 65 6e valid-session......(let.((conten
1cea0 74 73 20 28 69 66 20 28 3d 20 30 20 28 6f 72 67 2d 6e 6f 74 65 72 2d 2d 73 65 73 73 69 6f 6e 2d ts.(if.(=.0.(org-noter--session-
1cec0 6c 65 76 65 6c 20 73 65 73 73 69 6f 6e 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 level.session)).................
1cee0 20 20 20 20 20 20 20 20 20 28 6f 72 67 2d 65 6c 65 6d 65 6e 74 2d 63 6f 6e 74 65 6e 74 73 0a 20 .........(org-element-contents..
1cf00 20 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 6f 72 67 2d 65 6c .........................(org-el
1cf20 65 6d 65 6e 74 2d 70 72 6f 70 65 72 74 79 20 3a 70 61 72 65 6e 74 20 28 6f 72 67 2d 6e 6f 74 65 ement-property.:parent.(org-note
1cf40 72 2d 2d 70 61 72 73 65 2d 72 6f 6f 74 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 r--parse-root)))................
1cf60 20 20 20 20 20 20 20 20 28 6f 72 67 2d 65 6c 65 6d 65 6e 74 2d 63 6f 6e 74 65 6e 74 73 20 28 6f ........(org-element-contents.(o
1cf80 72 67 2d 6e 6f 74 65 72 2d 2d 70 61 72 73 65 2d 72 6f 6f 74 29 29 29 29 0a 20 20 20 20 20 20 20 rg-noter--parse-root))))........
1cfa0 20 20 20 20 28 70 72 65 61 6d 62 6c 65 20 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 6e 6f 74 65 ....(preamble.t)............note
1cfc0 73 2d 69 6e 2d 76 69 65 77 20 72 65 67 69 6f 6e 73 2d 69 6e 2d 76 69 65 77 0a 20 20 20 20 20 20 s-in-view.regions-in-view.......
1cfe0 20 20 20 20 20 72 65 66 65 72 65 6e 63 65 2d 66 6f 72 2d 69 6e 73 65 72 74 69 6f 6e 20 72 65 66 .....reference-for-insertion.ref
1d000 65 72 65 6e 63 65 2d 6c 6f 63 61 74 69 6f 6e 0a 20 20 20 20 20 20 20 20 20 20 20 28 61 6c 6c 2d erence-location............(all-
1d020 61 66 74 65 72 2d 74 69 70 70 69 6e 67 2d 70 6f 69 6e 74 20 74 29 0a 20 20 20 20 20 20 20 20 20 after-tipping-point.t)..........
1d040 20 20 28 63 6c 6f 73 65 73 74 2d 74 69 70 70 69 6e 67 2d 70 6f 69 6e 74 20 28 61 6e 64 20 28 3e ..(closest-tipping-point.(and.(>
1d060 3d 20 28 6f 72 67 2d 6e 6f 74 65 72 2d 2d 73 65 73 73 69 6f 6e 2d 63 6c 6f 73 65 73 74 2d 74 69 =.(org-noter--session-closest-ti
1d080 70 70 69 6e 67 2d 70 6f 69 6e 74 20 73 65 73 73 69 6f 6e 29 20 30 29 0a 20 20 20 20 20 20 20 20 pping-point.session).0).........
1d0a0 20 20 20 20 20 20 20 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 ...............................(
1d0c0 6f 72 67 2d 6e 6f 74 65 72 2d 2d 73 65 73 73 69 6f 6e 2d 63 6c 6f 73 65 73 74 2d 74 69 70 70 69 org-noter--session-closest-tippi
1d0e0 6e 67 2d 70 6f 69 6e 74 20 73 65 73 73 69 6f 6e 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 63 ng-point.session)))............c
1d100 6c 6f 73 65 73 74 2d 6e 6f 74 65 73 20 63 6c 6f 73 65 73 74 2d 6e 6f 74 65 73 2d 72 65 67 69 6f losest-notes.closest-notes-regio
1d120 6e 73 20 63 6c 6f 73 65 73 74 2d 6e 6f 74 65 73 2d 6c 6f 63 61 74 69 6f 6e 0a 20 20 20 20 20 20 ns.closest-notes-location.......
1d140 20 20 20 20 20 69 67 6e 6f 72 65 2d 75 6e 74 69 6c 2d 6c 65 76 65 6c 0a 20 20 20 20 20 20 20 20 .....ignore-until-level.........
1d160 20 20 20 63 75 72 72 65 6e 74 2d 72 65 67 69 6f 6e 2d 69 6e 66 6f 29 20 3b 3b 20 4e 4f 54 45 28 ...current-region-info).;;.NOTE(
1d180 6e 6f 78 29 3a 20 5b 52 45 47 49 4f 4e 53 2d 4c 49 53 54 2d 50 54 52 20 53 54 41 52 54 20 4d 41 nox):.[REGIONS-LIST-PTR.START.MA
1d1a0 58 2d 45 4e 44 20 52 45 47 49 4f 4e 53 2d 4c 49 53 54 2d 4e 41 4d 45 5d 0a 0a 20 20 20 20 20 20 X-END.REGIONS-LIST-NAME]........
1d1c0 20 28 6f 72 67 2d 65 6c 65 6d 65 6e 74 2d 6d 61 70 20 63 6f 6e 74 65 6e 74 73 20 6f 72 67 2d 6e .(org-element-map.contents.org-n
1d1e0 6f 74 65 72 2d 2d 6e 6f 74 65 2d 73 65 61 72 63 68 2d 65 6c 65 6d 65 6e 74 2d 74 79 70 65 0a 20 oter--note-search-element-type..
1d200 20 20 20 20 20 20 20 20 28 6c 61 6d 62 64 61 20 28 65 6c 65 6d 65 6e 74 29 0a 20 20 20 20 20 20 ........(lambda.(element).......
1d220 20 20 20 20 20 28 6c 65 74 20 28 28 64 6f 63 2d 66 69 6c 65 20 28 6f 72 67 2d 6e 6f 74 65 72 2d .....(let.((doc-file.(org-noter-
1d240 2d 64 6f 63 2d 66 69 6c 65 2d 70 72 6f 70 65 72 74 79 20 65 6c 65 6d 65 6e 74 29 29 0a 20 20 20 -doc-file-property.element))....
1d260 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 6f 63 61 74 69 6f 6e 20 28 6f 72 67 2d 6e 6f 74 ..............(location.(org-not
1d280 65 72 2d 2d 70 61 72 73 65 2d 6c 6f 63 61 74 69 6f 6e 2d 70 72 6f 70 65 72 74 79 20 65 6c 65 6d er--parse-location-property.elem
1d2a0 65 6e 74 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 28 61 6e 64 20 69 ent)))..............(when.(and.i
1d2c0 67 6e 6f 72 65 2d 75 6e 74 69 6c 2d 6c 65 76 65 6c 20 28 3c 3d 20 28 6f 72 67 2d 65 6c 65 6d 65 gnore-until-level.(<=.(org-eleme
1d2e0 6e 74 2d 70 72 6f 70 65 72 74 79 20 3a 6c 65 76 65 6c 20 65 6c 65 6d 65 6e 74 29 20 69 67 6e 6f nt-property.:level.element).igno
1d300 72 65 2d 75 6e 74 69 6c 2d 6c 65 76 65 6c 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 re-until-level))................
1d320 28 73 65 74 71 20 69 67 6e 6f 72 65 2d 75 6e 74 69 6c 2d 6c 65 76 65 6c 20 6e 69 6c 29 29 0a 0a (setq.ignore-until-level.nil))..
1d340 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 6e 64 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 .............(cond..............
1d360 20 28 69 67 6e 6f 72 65 2d 75 6e 74 69 6c 2d 6c 65 76 65 6c 29 20 3b 3b 20 4e 4f 54 45 28 6e 6f .(ignore-until-level).;;.NOTE(no
1d380 78 29 3a 20 54 68 69 73 20 68 65 61 64 69 6e 67 20 69 73 20 69 67 6e 6f 72 65 64 2c 20 64 6f 20 x):.This.heading.is.ignored,.do.
1d3a0 6e 6f 74 68 69 6e 67 0a 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 28 61 6e 64 20 64 6f 63 nothing................((and.doc
1d3c0 2d 66 69 6c 65 20 28 6e 6f 74 20 28 73 74 72 69 6e 67 3d 20 64 6f 63 2d 66 69 6c 65 20 28 6f 72 -file.(not.(string=.doc-file.(or
1d3e0 67 2d 6e 6f 74 65 72 2d 2d 73 65 73 73 69 6f 6e 2d 70 72 6f 70 65 72 74 79 2d 74 65 78 74 20 73 g-noter--session-property-text.s
1d400 65 73 73 69 6f 6e 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6f 72 67 2d 6e ession))))................(org-n
1d420 6f 74 65 72 2d 2d 76 69 65 77 2d 72 65 67 69 6f 6e 2d 66 69 6e 69 73 68 20 63 75 72 72 65 6e 74 oter--view-region-finish.current
1d440 2d 72 65 67 69 6f 6e 2d 69 6e 66 6f 20 65 6c 65 6d 65 6e 74 29 0a 20 20 20 20 20 20 20 20 20 20 -region-info.element)...........
1d460 20 20 20 20 20 28 73 65 74 71 20 69 67 6e 6f 72 65 2d 75 6e 74 69 6c 2d 6c 65 76 65 6c 20 28 6f .....(setq.ignore-until-level.(o
1d480 72 67 2d 65 6c 65 6d 65 6e 74 2d 70 72 6f 70 65 72 74 79 20 3a 6c 65 76 65 6c 20 65 6c 65 6d 65 rg-element-property.:level.eleme
1d4a0 6e 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 28 61 6e 64 20 70 nt))................(when.(and.p
1d4c0 72 65 61 6d 62 6c 65 20 6e 65 77 2d 6c 6f 63 61 74 69 6f 6e 0a 20 20 20 20 20 20 20 20 20 20 20 reamble.new-location............
1d4e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6f 72 20 28 6e 6f 74 20 72 65 66 65 72 65 6e 63 ...............(or.(not.referenc
1d500 65 2d 66 6f 72 2d 69 6e 73 65 72 74 69 6f 6e 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 e-for-insertion)................
1d520 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 3e 3d 20 28 6f 72 67 2d 65 6c 65 6d 65 6e 74 2d ...............(>=.(org-element-
1d540 70 72 6f 70 65 72 74 79 20 3a 62 65 67 69 6e 20 65 6c 65 6d 65 6e 74 29 0a 20 20 20 20 20 20 20 property.:begin.element)........
1d560 20 20 20 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 6f 72 67 2d ...........................(org-
1d580 65 6c 65 6d 65 6e 74 2d 70 72 6f 70 65 72 74 79 20 3a 65 6e 64 20 28 63 64 72 20 72 65 66 65 72 element-property.:end.(cdr.refer
1d5a0 65 6e 63 65 2d 66 6f 72 2d 69 6e 73 65 72 74 69 6f 6e 29 29 29 29 29 0a 20 20 20 20 20 20 20 20 ence-for-insertion))))).........
1d5c0 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 72 65 66 65 72 65 6e 63 65 2d 66 6f 72 2d 69 6e 73 .........(setq.reference-for-ins
1d5e0 65 72 74 69 6f 6e 20 28 63 6f 6e 73 20 27 61 66 74 65 72 20 65 6c 65 6d 65 6e 74 29 29 29 29 0a ertion.(cons.'after.element)))).
1d600 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 6f 63 61 74 69 6f 6e 0a 20 20 20 20 20 20 20 ...............(location........
1d620 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 72 65 6c 61 74 69 76 65 2d 70 6f 73 69 74 69 6f 6e ........(let.((relative-position
1d640 20 28 6f 72 67 2d 6e 6f 74 65 72 2d 2d 72 65 6c 61 74 69 76 65 2d 70 6f 73 69 74 69 6f 6e 2d 74 .(org-noter--relative-position-t
1d660 6f 2d 76 69 65 77 20 6c 6f 63 61 74 69 6f 6e 20 76 69 65 77 29 29 29 0a 20 20 20 20 20 20 20 20 o-view.location.view))).........
1d680 20 20 20 20 20 20 20 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 .........(cond..................
1d6a0 20 28 28 65 71 20 72 65 6c 61 74 69 76 65 2d 70 6f 73 69 74 69 6f 6e 20 27 69 6e 73 69 64 65 29 .((eq.relative-position.'inside)
1d6c0 0a 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 6f 6e 73 20 ....................(push.(cons.
1d6e0 65 6c 65 6d 65 6e 74 20 6e 69 6c 29 20 6e 6f 74 65 73 2d 69 6e 2d 76 69 65 77 29 0a 0a 20 20 20 element.nil).notes-in-view).....
1d700 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6f 72 67 2d 6e 6f 74 65 72 2d 2d 76 69 65 77 ................(org-noter--view
1d720 2d 72 65 67 69 6f 6e 2d 61 64 64 20 63 75 72 72 65 6e 74 2d 72 65 67 69 6f 6e 2d 69 6e 66 6f 20 -region-add.current-region-info.
1d740 72 65 67 69 6f 6e 73 2d 69 6e 2d 76 69 65 77 20 65 6c 65 6d 65 6e 74 29 0a 0a 20 20 20 20 20 20 regions-in-view.element)........
1d760 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 61 6c 6c 2d 61 66 74 65 72 2d 74 69 70 .............(setq.all-after-tip
1d780 70 69 6e 67 2d 70 6f 69 6e 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ping-point......................
1d7a0 20 20 20 20 28 61 6e 64 20 61 6c 6c 2d 61 66 74 65 72 2d 74 69 70 70 69 6e 67 2d 70 6f 69 6e 74 ....(and.all-after-tipping-point
1d7c0 20 28 6f 72 67 2d 6e 6f 74 65 72 2d 2d 6e 6f 74 65 2d 61 66 74 65 72 2d 74 69 70 70 69 6e 67 2d .(org-noter--note-after-tipping-
1d7e0 70 6f 69 6e 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 point...........................
1d800 20 20 20 20 20 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 6c 6f .............................clo
1d820 73 65 73 74 2d 74 69 70 70 69 6e 67 2d 70 6f 69 6e 74 20 6c 6f 63 61 74 69 6f 6e 20 76 69 65 77 sest-tipping-point.location.view
1d840 29 29 29 29 0a 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 74 0a 20 20 20 20 20 ))))....................(t......
1d860 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 63 75 72 72 65 6e 74 2d 72 65 67 69 ..............(when.current-regi
1d880 6f 6e 2d 69 6e 66 6f 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 on-info......................(le
1d8a0 74 20 28 28 6e 6f 74 65 2d 63 6f 6e 73 2d 74 6f 2d 63 68 61 6e 67 65 20 28 63 6f 6e 64 20 28 28 t.((note-cons-to-change.(cond.((
1d8c0 65 71 20 28 61 72 65 66 20 63 75 72 72 65 6e 74 2d 72 65 67 69 6f 6e 2d 69 6e 66 6f 20 33 29 20 eq.(aref.current-region-info.3).
1d8e0 27 72 65 67 69 6f 6e 73 2d 69 6e 2d 76 69 65 77 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 'regions-in-view)...............
1d900 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ................................
1d920 20 20 20 20 20 20 20 20 20 28 63 61 72 20 6e 6f 74 65 73 2d 69 6e 2d 76 69 65 77 29 29 0a 20 20 .........(car.notes-in-view))...
1d940 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ................................
1d960 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 28 65 71 20 28 61 72 65 66 20 63 ....................((eq.(aref.c
1d980 75 72 72 65 6e 74 2d 72 65 67 69 6f 6e 2d 69 6e 66 6f 20 33 29 20 27 63 6c 6f 73 65 73 74 2d 6e urrent-region-info.3).'closest-n
1d9a0 6f 74 65 73 2d 72 65 67 69 6f 6e 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 otes-regions)...................
1d9c0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ................................
1d9e0 20 20 20 20 20 28 63 61 72 20 63 6c 6f 73 65 73 74 2d 6e 6f 74 65 73 29 29 29 29 29 0a 20 20 20 .....(car.closest-notes)))))....
1da00 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 3c 20 28 6f 72 ....................(when.(<.(or
1da20 67 2d 65 6c 65 6d 65 6e 74 2d 70 72 6f 70 65 72 74 79 20 3a 62 65 67 69 6e 20 65 6c 65 6d 65 6e g-element-property.:begin.elemen
1da40 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 20 20 20 20 20 t)..............................
1da60 20 20 20 28 6f 72 67 2d 65 6c 65 6d 65 6e 74 2d 70 72 6f 70 65 72 74 79 20 3a 65 6e 64 20 28 63 ...(org-element-property.:end.(c
1da80 61 72 20 6e 6f 74 65 2d 63 6f 6e 73 2d 74 6f 2d 63 68 61 6e 67 65 29 29 29 0a 20 20 20 20 20 20 ar.note-cons-to-change))).......
1daa0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 63 64 72 20 6e 6f 74 65 2d ...................(setcdr.note-
1dac0 63 6f 6e 73 2d 74 6f 2d 63 68 61 6e 67 65 20 65 6c 65 6d 65 6e 74 29 29 29 29 0a 0a 20 20 20 20 cons-to-change.element))))......
1dae0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 65 6c 69 67 69 62 6c 65 2d 66 ...............(let.((eligible-f
1db00 6f 72 2d 62 65 66 6f 72 65 20 28 61 6e 64 20 63 6c 6f 73 65 73 74 2d 74 69 70 70 69 6e 67 2d 70 or-before.(and.closest-tipping-p
1db20 6f 69 6e 74 20 61 6c 6c 2d 61 66 74 65 72 2d 74 69 70 70 69 6e 67 2d 70 6f 69 6e 74 0a 20 20 20 oint.all-after-tipping-point....
1db40 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ................................
1db60 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 65 71 20 72 65 6c 61 74 69 76 65 2d 70 6f 73 ................(eq.relative-pos
1db80 69 74 69 6f 6e 20 27 62 65 66 6f 72 65 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ition.'before))))...............
1dba0 20 20 20 20 20 20 20 28 63 6f 6e 64 20 28 28 61 6e 64 20 65 6c 69 67 69 62 6c 65 2d 66 6f 72 2d .......(cond.((and.eligible-for-
1dbc0 62 65 66 6f 72 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 before..........................
1dbe0 20 20 20 20 20 20 20 20 28 6f 72 67 2d 6e 6f 74 65 72 2d 2d 63 6f 6d 70 61 72 65 2d 6c 6f 63 61 ........(org-noter--compare-loca
1dc00 74 69 6f 6e 73 20 27 3e 20 6c 6f 63 61 74 69 6f 6e 20 63 6c 6f 73 65 73 74 2d 6e 6f 74 65 73 2d tions.'>.location.closest-notes-
1dc20 6c 6f 63 61 74 69 6f 6e 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 location))......................
1dc40 20 20 20 20 20 20 20 28 73 65 74 71 20 63 6c 6f 73 65 73 74 2d 6e 6f 74 65 73 20 28 6c 69 73 74 .......(setq.closest-notes.(list
1dc60 20 28 63 6f 6e 73 20 65 6c 65 6d 65 6e 74 20 6e 69 6c 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 .(cons.element.nil))............
1dc80 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 6c 6f 73 65 73 74 2d 6e .......................closest-n
1dca0 6f 74 65 73 2d 6c 6f 63 61 74 69 6f 6e 20 6c 6f 63 61 74 69 6f 6e 0a 20 20 20 20 20 20 20 20 20 otes-location.location..........
1dcc0 20 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 75 72 72 65 6e 74 .........................current
1dce0 2d 72 65 67 69 6f 6e 2d 69 6e 66 6f 20 6e 69 6c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 -region-info.nil................
1dd00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 6c 6f 73 65 73 74 2d 6e 6f 74 65 73 ...................closest-notes
1dd20 2d 72 65 67 69 6f 6e 73 20 6e 69 6c 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 -regions.nil)...................
1dd40 20 20 20 20 20 20 20 20 20 20 28 6f 72 67 2d 6e 6f 74 65 72 2d 2d 76 69 65 77 2d 72 65 67 69 6f ..........(org-noter--view-regio
1dd60 6e 2d 61 64 64 20 63 75 72 72 65 6e 74 2d 72 65 67 69 6f 6e 2d 69 6e 66 6f 20 63 6c 6f 73 65 73 n-add.current-region-info.closes
1dd80 74 2d 6e 6f 74 65 73 2d 72 65 67 69 6f 6e 73 20 65 6c 65 6d 65 6e 74 29 29 0a 0a 20 20 20 20 20 t-notes-regions.element)).......
1dda0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 28 61 6e 64 20 65 6c 69 67 ......................((and.elig
1ddc0 69 62 6c 65 2d 66 6f 72 2d 62 65 66 6f 72 65 20 28 65 71 75 61 6c 20 6c 6f 63 61 74 69 6f 6e 20 ible-for-before.(equal.location.
1dde0 63 6c 6f 73 65 73 74 2d 6e 6f 74 65 73 2d 6c 6f 63 61 74 69 6f 6e 29 29 0a 20 20 20 20 20 20 20 closest-notes-location))........
1de00 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 20 28 63 6f 6e 73 .....................(push.(cons
1de20 20 65 6c 65 6d 65 6e 74 20 6e 69 6c 29 20 63 6c 6f 73 65 73 74 2d 6e 6f 74 65 73 29 0a 20 20 20 .element.nil).closest-notes)....
1de40 20 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 6f 72 67 2d 6e 6f .........................(org-no
1de60 74 65 72 2d 2d 76 69 65 77 2d 72 65 67 69 6f 6e 2d 61 64 64 20 63 75 72 72 65 6e 74 2d 72 65 67 ter--view-region-add.current-reg
1de80 69 6f 6e 2d 69 6e 66 6f 20 63 6c 6f 73 65 73 74 2d 6e 6f 74 65 73 2d 72 65 67 69 6f 6e 73 20 65 ion-info.closest-notes-regions.e
1dea0 6c 65 6d 65 6e 74 29 29 0a 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 lement))........................
1dec0 20 20 20 20 20 28 74 20 28 6f 72 67 2d 6e 6f 74 65 72 2d 2d 76 69 65 77 2d 72 65 67 69 6f 6e 2d .....(t.(org-noter--view-region-
1dee0 66 69 6e 69 73 68 20 63 75 72 72 65 6e 74 2d 72 65 67 69 6f 6e 2d 69 6e 66 6f 20 65 6c 65 6d 65 finish.current-region-info.eleme
1df00 6e 74 29 29 29 29 29 29 29 0a 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 nt))))))).................(when.
1df20 6e 65 77 2d 6c 6f 63 61 74 69 6f 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 new-location..................(s
1df40 65 74 71 20 70 72 65 61 6d 62 6c 65 20 6e 69 6c 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 etq.preamble.nil)...............
1df60 20 20 20 28 63 6f 6e 64 20 28 28 61 6e 64 20 28 6f 72 67 2d 6e 6f 74 65 72 2d 2d 63 6f 6d 70 61 ...(cond.((and.(org-noter--compa
1df80 72 65 2d 6c 6f 63 61 74 69 6f 6e 73 20 27 3c 3d 20 6c 6f 63 61 74 69 6f 6e 20 6e 65 77 2d 6c 6f re-locations.'<=.location.new-lo
1dfa0 63 61 74 69 6f 6e 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 cation).........................
1dfc0 20 20 20 20 20 28 6f 72 20 28 65 71 20 28 63 61 72 20 72 65 66 65 72 65 6e 63 65 2d 66 6f 72 2d .....(or.(eq.(car.reference-for-
1dfe0 69 6e 73 65 72 74 69 6f 6e 29 20 27 62 65 66 6f 72 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 insertion).'before).............
1e000 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6f 72 67 2d 6e 6f 74 65 72 2d .....................(org-noter-
1e020 2d 63 6f 6d 70 61 72 65 2d 6c 6f 63 61 74 69 6f 6e 73 20 27 3e 3d 20 6c 6f 63 61 74 69 6f 6e 20 -compare-locations.'>=.location.
1e040 72 65 66 65 72 65 6e 63 65 2d 6c 6f 63 61 74 69 6f 6e 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 reference-location)))...........
1e060 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 72 65 66 65 72 65 6e 63 65 2d 66 6f ..............(setq.reference-fo
1e080 72 2d 69 6e 73 65 72 74 69 6f 6e 20 28 63 6f 6e 73 20 27 61 66 74 65 72 20 65 6c 65 6d 65 6e 74 r-insertion.(cons.'after.element
1e0a0 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 )...............................
1e0c0 72 65 66 65 72 65 6e 63 65 2d 6c 6f 63 61 74 69 6f 6e 20 6c 6f 63 61 74 69 6f 6e 29 29 0a 0a 20 reference-location.location))...
1e0e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 28 61 6e 64 20 28 65 71 20 ......................((and.(eq.
1e100 28 63 61 72 20 72 65 66 65 72 65 6e 63 65 2d 66 6f 72 2d 69 6e 73 65 72 74 69 6f 6e 29 20 27 61 (car.reference-for-insertion).'a
1e120 66 74 65 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 fter)...........................
1e140 20 20 20 28 3c 20 28 6f 72 67 2d 65 6c 65 6d 65 6e 74 2d 70 72 6f 70 65 72 74 79 20 3a 62 65 67 ...(<.(org-element-property.:beg
1e160 69 6e 20 65 6c 65 6d 65 6e 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 in.element).....................
1e180 20 20 20 20 20 20 20 20 20 20 20 20 28 6f 72 67 2d 65 6c 65 6d 65 6e 74 2d 70 72 6f 70 65 72 74 ............(org-element-propert
1e1a0 79 20 3a 65 6e 64 20 28 63 64 72 20 72 65 66 65 72 65 6e 63 65 2d 66 6f 72 2d 69 6e 73 65 72 74 y.:end.(cdr.reference-for-insert
1e1c0 69 6f 6e 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 ion)))..........................
1e1e0 20 20 20 20 28 6f 72 67 2d 6e 6f 74 65 72 2d 2d 63 6f 6d 70 61 72 65 2d 6c 6f 63 61 74 69 6f 6e ....(org-noter--compare-location
1e200 73 20 27 3e 3d 20 6c 6f 63 61 74 69 6f 6e 20 6e 65 77 2d 6c 6f 63 61 74 69 6f 6e 29 29 0a 20 20 s.'>=.location.new-location))...
1e220 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 66 65 ......................(setq.refe
1e240 72 65 6e 63 65 2d 66 6f 72 2d 69 6e 73 65 72 74 69 6f 6e 20 28 63 6f 6e 73 20 27 62 65 66 6f 72 rence-for-insertion.(cons.'befor
1e260 65 20 65 6c 65 6d 65 6e 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 e.element)......................
1e280 20 20 20 20 20 20 20 20 20 72 65 66 65 72 65 6e 63 65 2d 6c 6f 63 61 74 69 6f 6e 20 6c 6f 63 61 .........reference-location.loca
1e2a0 74 69 6f 6e 29 29 29 29 29 0a 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 74 0a 20 20 20 20 tion)))))................(t.....
1e2c0 20 20 20 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 28 61 6e 64 20 70 72 65 61 6d 62 6c 65 20 6e ...........(when.(and.preamble.n
1e2e0 65 77 2d 6c 6f 63 61 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 ew-location.....................
1e300 20 20 20 20 20 20 28 6f 72 20 28 6e 6f 74 20 72 65 66 65 72 65 6e 63 65 2d 66 6f 72 2d 69 6e 73 ......(or.(not.reference-for-ins
1e320 65 72 74 69 6f 6e 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 ertion).........................
1e340 20 20 20 20 20 20 28 3e 3d 20 28 6f 72 67 2d 65 6c 65 6d 65 6e 74 2d 70 72 6f 70 65 72 74 79 20 ......(>=.(org-element-property.
1e360 3a 62 65 67 69 6e 20 65 6c 65 6d 65 6e 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 :begin.element).................
1e380 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6f 72 67 2d 65 6c 65 6d 65 6e 74 2d 70 ..................(org-element-p
1e3a0 72 6f 70 65 72 74 79 20 3a 65 6e 64 20 28 63 64 72 20 72 65 66 65 72 65 6e 63 65 2d 66 6f 72 2d roperty.:end.(cdr.reference-for-
1e3c0 69 6e 73 65 72 74 69 6f 6e 29 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 insertion)))))..................
1e3e0 28 73 65 74 71 20 72 65 66 65 72 65 6e 63 65 2d 66 6f 72 2d 69 6e 73 65 72 74 69 6f 6e 20 28 63 (setq.reference-for-insertion.(c
1e400 6f 6e 73 20 27 61 66 74 65 72 20 65 6c 65 6d 65 6e 74 29 29 29 29 29 29 29 0a 20 20 20 20 20 20 ons.'after.element))))))).......
1e420 20 20 20 6e 69 6c 20 6e 69 6c 20 6f 72 67 2d 6e 6f 74 65 72 2d 2d 6e 6f 74 65 2d 73 65 61 72 63 ...nil.nil.org-noter--note-searc
1e440 68 2d 6e 6f 2d 72 65 63 75 72 73 65 29 0a 0a 20 20 20 20 20 20 20 28 6f 72 67 2d 6e 6f 74 65 72 h-no-recurse).........(org-noter
1e460 2d 2d 76 69 65 77 2d 72 65 67 69 6f 6e 2d 66 69 6e 69 73 68 20 63 75 72 72 65 6e 74 2d 72 65 67 --view-region-finish.current-reg
1e480 69 6f 6e 2d 69 6e 66 6f 29 0a 0a 20 20 20 20 20 20 20 28 73 65 74 66 20 28 6f 72 67 2d 6e 6f 74 ion-info).........(setf.(org-not
1e4a0 65 72 2d 2d 73 65 73 73 69 6f 6e 2d 6e 75 6d 2d 6e 6f 74 65 73 2d 69 6e 2d 76 69 65 77 20 73 65 er--session-num-notes-in-view.se
1e4c0 73 73 69 6f 6e 29 20 28 6c 65 6e 67 74 68 20 6e 6f 74 65 73 2d 69 6e 2d 76 69 65 77 29 29 0a 0a ssion).(length.notes-in-view))..
1e4e0 20 20 20 20 20 20 20 28 77 68 65 6e 20 61 6c 6c 2d 61 66 74 65 72 2d 74 69 70 70 69 6e 67 2d 70 .......(when.all-after-tipping-p
1e500 6f 69 6e 74 20 28 73 65 74 71 20 6e 6f 74 65 73 2d 69 6e 2d 76 69 65 77 20 28 61 70 70 65 6e 64 oint.(setq.notes-in-view.(append
1e520 20 63 6c 6f 73 65 73 74 2d 6e 6f 74 65 73 20 6e 6f 74 65 73 2d 69 6e 2d 76 69 65 77 29 29 29 0a .closest-notes.notes-in-view))).
1e540 0a 20 20 20 20 20 20 20 28 6d 61 6b 65 2d 6f 72 67 2d 6e 6f 74 65 72 2d 2d 76 69 65 77 2d 69 6e ........(make-org-noter--view-in
1e560 66 6f 0a 20 20 20 20 20 20 20 20 3a 6e 6f 74 65 73 20 28 6e 72 65 76 65 72 73 65 20 6e 6f 74 65 fo.........:notes.(nreverse.note
1e580 73 2d 69 6e 2d 76 69 65 77 29 0a 20 20 20 20 20 20 20 20 3a 72 65 67 69 6f 6e 73 20 28 6e 72 65 s-in-view).........:regions.(nre
1e5a0 76 65 72 73 65 20 72 65 67 69 6f 6e 73 2d 69 6e 2d 76 69 65 77 29 0a 20 20 20 20 20 20 20 20 3a verse.regions-in-view).........:
1e5c0 70 72 65 76 2d 72 65 67 69 6f 6e 73 20 28 6e 72 65 76 65 72 73 65 20 63 6c 6f 73 65 73 74 2d 6e prev-regions.(nreverse.closest-n
1e5e0 6f 74 65 73 2d 72 65 67 69 6f 6e 73 29 0a 20 20 20 20 20 20 20 20 3a 72 65 66 65 72 65 6e 63 65 otes-regions).........:reference
1e600 2d 66 6f 72 2d 69 6e 73 65 72 74 69 6f 6e 20 72 65 66 65 72 65 6e 63 65 2d 66 6f 72 2d 69 6e 73 -for-insertion.reference-for-ins
1e620 65 72 74 69 6f 6e 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 6f 72 67 2d 6e 6f 74 65 72 2d 2d 6d ertion)))))..(defun.org-noter--m
1e640 61 6b 65 2d 76 69 65 77 2d 69 6e 66 6f 2d 66 6f 72 2d 73 69 6e 67 6c 65 2d 6e 6f 74 65 20 28 73 ake-view-info-for-single-note.(s
1e660 65 73 73 69 6f 6e 20 68 65 61 64 6c 69 6e 65 29 0a 20 20 28 6c 65 74 20 28 28 6e 6f 74 2d 62 65 ession.headline)...(let.((not-be
1e680 6c 6f 6e 67 69 6e 67 2d 65 6c 65 6d 65 6e 74 0a 20 20 20 20 20 20 20 20 20 28 6f 72 67 2d 65 6c longing-element..........(org-el
1e6a0 65 6d 65 6e 74 2d 6d 61 70 20 28 6f 72 67 2d 65 6c 65 6d 65 6e 74 2d 63 6f 6e 74 65 6e 74 73 20 ement-map.(org-element-contents.
1e6c0 68 65 61 64 6c 69 6e 65 29 20 27 68 65 61 64 6c 69 6e 65 0a 20 20 20 20 20 20 20 20 20 20 20 28 headline).'headline............(
1e6e0 6c 61 6d 62 64 61 20 28 68 65 61 64 6c 69 6e 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 lambda.(headline)..............(
1e700 6c 65 74 20 28 28 64 6f 63 2d 66 69 6c 65 20 28 6f 72 67 2d 6e 6f 74 65 72 2d 2d 64 6f 63 2d 66 let.((doc-file.(org-noter--doc-f
1e720 69 6c 65 2d 70 72 6f 70 65 72 74 79 20 68 65 61 64 6c 69 6e 65 29 29 29 0a 20 20 20 20 20 20 20 ile-property.headline)))........
1e740 20 20 20 20 20 20 20 20 28 61 6e 64 20 28 6f 72 20 28 61 6e 64 20 64 6f 63 2d 66 69 6c 65 20 28 ........(and.(or.(and.doc-file.(
1e760 6e 6f 74 20 28 73 74 72 69 6e 67 3d 20 64 6f 63 2d 66 69 6c 65 20 28 6f 72 67 2d 6e 6f 74 65 72 not.(string=.doc-file.(org-noter
1e780 2d 2d 73 65 73 73 69 6f 6e 2d 70 72 6f 70 65 72 74 79 2d 74 65 78 74 20 73 65 73 73 69 6f 6e 29 --session-property-text.session)
1e7a0 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 28 6f 72 67 ))).........................(org
1e7c0 2d 6e 6f 74 65 72 2d 2d 63 68 65 63 6b 2d 6c 6f 63 61 74 69 6f 6e 2d 70 72 6f 70 65 72 74 79 20 -noter--check-location-property.
1e7e0 68 65 61 64 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 68 headline)).....................h
1e800 65 61 64 6c 69 6e 65 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 6e 69 6c 20 74 29 29 29 0a 0a eadline)))............nil.t)))..
1e820 20 20 20 20 28 6d 61 6b 65 2d 6f 72 67 2d 6e 6f 74 65 72 2d 2d 76 69 65 77 2d 69 6e 66 6f 0a 20 ....(make-org-noter--view-info..
1e840 20 20 20 20 3b 3b 20 4e 4f 54 45 28 6e 6f 78 29 3a 20 54 68 65 20 63 64 72 20 69 73 20 6f 6e 6c ....;;.NOTE(nox):.The.cdr.is.onl
1e860 79 20 75 73 65 64 20 77 68 65 6e 20 69 6e 73 65 72 74 69 6e 67 2c 20 64 6f 65 73 6e 27 74 20 6d y.used.when.inserting,.doesn't.m
1e880 61 74 74 65 72 20 68 65 72 65 0a 20 20 20 20 20 3a 6e 6f 74 65 73 20 28 6c 69 73 74 20 28 63 6f atter.here......:notes.(list.(co
1e8a0 6e 73 20 68 65 61 64 6c 69 6e 65 20 6e 69 6c 29 29 0a 20 20 20 20 20 3a 72 65 67 69 6f 6e 73 20 ns.headline.nil))......:regions.
1e8c0 28 6c 69 73 74 20 28 63 6f 6e 73 20 28 6f 72 67 2d 65 6c 65 6d 65 6e 74 2d 70 72 6f 70 65 72 74 (list.(cons.(org-element-propert
1e8e0 79 20 3a 62 65 67 69 6e 20 68 65 61 64 6c 69 6e 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 y.:begin.headline)..............
1e900 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6f 72 20 28 61 6e 64 20 6e 6f 74 2d 62 65 6c 6f 6e 67 .............(or.(and.not-belong
1e920 69 6e 67 2d 65 6c 65 6d 65 6e 74 20 28 6f 72 67 2d 65 6c 65 6d 65 6e 74 2d 70 72 6f 70 65 72 74 ing-element.(org-element-propert
1e940 79 20 3a 62 65 67 69 6e 20 6e 6f 74 2d 62 65 6c 6f 6e 67 69 6e 67 2d 65 6c 65 6d 65 6e 74 29 29 y.:begin.not-belonging-element))
1e960 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 28 ...............................(
1e980 6f 72 67 2d 65 6c 65 6d 65 6e 74 2d 70 72 6f 70 65 72 74 79 20 3a 65 6e 64 20 68 65 61 64 6c 69 org-element-property.:end.headli
1e9a0 6e 65 29 29 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 6f 72 67 2d 6e 6f 74 65 72 2d 2d 64 6f 63 ne)))))))..(defun.org-noter--doc
1e9c0 2d 6c 6f 63 61 74 69 6f 6e 2d 63 68 61 6e 67 65 2d 68 61 6e 64 6c 65 72 20 28 29 0a 20 20 28 6f -location-change-handler.()...(o
1e9e0 72 67 2d 6e 6f 74 65 72 2d 2d 77 69 74 68 2d 76 61 6c 69 64 2d 73 65 73 73 69 6f 6e 0a 20 20 20 rg-noter--with-valid-session....
1ea00 28 6c 65 74 20 28 28 76 69 65 77 2d 69 6e 66 6f 20 28 6f 72 67 2d 6e 6f 74 65 72 2d 2d 67 65 74 (let.((view-info.(org-noter--get
1ea20 2d 76 69 65 77 2d 69 6e 66 6f 20 28 6f 72 67 2d 6e 6f 74 65 72 2d 2d 67 65 74 2d 63 75 72 72 65 -view-info.(org-noter--get-curre
1ea40 6e 74 2d 76 69 65 77 29 29 29 29 0a 20 20 20 20 20 28 66 6f 72 63 65 2d 6d 6f 64 65 2d 6c 69 6e nt-view))))......(force-mode-lin
1ea60 65 2d 75 70 64 61 74 65 20 74 29 0a 20 20 20 20 20 28 75 6e 6c 65 73 73 20 6f 72 67 2d 6e 6f 74 e-update.t)......(unless.org-not
1ea80 65 72 2d 2d 69 6e 68 69 62 69 74 2d 6c 6f 63 61 74 69 6f 6e 2d 63 68 61 6e 67 65 2d 68 61 6e 64 er--inhibit-location-change-hand
1eaa0 6c 65 72 0a 20 20 20 20 20 20 20 28 6f 72 67 2d 6e 6f 74 65 72 2d 2d 67 65 74 2d 6e 6f 74 65 73 ler........(org-noter--get-notes
1eac0 2d 77 69 6e 64 6f 77 20 28 63 6f 6e 64 20 28 28 6f 72 67 2d 6e 6f 74 65 72 2d 2d 76 69 65 77 2d -window.(cond.((org-noter--view-
1eae0 69 6e 66 6f 2d 72 65 67 69 6f 6e 73 20 76 69 65 77 2d 69 6e 66 6f 29 20 27 73 63 72 6f 6c 6c 29 info-regions.view-info).'scroll)
1eb00 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 ................................
1eb20 20 20 20 20 20 20 20 20 20 20 20 28 28 6f 72 67 2d 6e 6f 74 65 72 2d 2d 76 69 65 77 2d 69 6e 66 ...........((org-noter--view-inf
1eb40 6f 2d 70 72 65 76 2d 72 65 67 69 6f 6e 73 20 76 69 65 77 2d 69 6e 66 6f 29 20 27 6f 6e 6c 79 2d o-prev-regions.view-info).'only-
1eb60 70 72 65 76 29 29 29 0a 20 20 20 20 20 20 20 28 6f 72 67 2d 6e 6f 74 65 72 2d 2d 66 6f 63 75 73 prev)))........(org-noter--focus
1eb80 2d 6e 6f 74 65 73 2d 72 65 67 69 6f 6e 20 76 69 65 77 2d 69 6e 66 6f 29 29 29 0a 0a 20 20 20 28 -notes-region.view-info))).....(
1eba0 77 68 65 6e 20 28 6f 72 67 2d 6e 6f 74 65 72 2d 2d 73 65 73 73 69 6f 6e 2d 61 75 74 6f 2d 73 61 when.(org-noter--session-auto-sa
1ebc0 76 65 2d 6c 61 73 74 2d 6c 6f 63 61 74 69 6f 6e 20 73 65 73 73 69 6f 6e 29 20 28 6f 72 67 2d 6e ve-last-location.session).(org-n
1ebe0 6f 74 65 72 2d 73 65 74 2d 73 74 61 72 74 2d 6c 6f 63 61 74 69 6f 6e 29 29 29 29 0a 0a 28 64 65 oter-set-start-location))))..(de
1ec00 66 75 6e 20 6f 72 67 2d 6e 6f 74 65 72 2d 2d 6d 6f 64 65 2d 6c 69 6e 65 2d 74 65 78 74 20 28 29 fun.org-noter--mode-line-text.()
1ec20 0a 20 20 28 6f 72 67 2d 6e 6f 74 65 72 2d 2d 77 69 74 68 2d 76 61 6c 69 64 2d 73 65 73 73 69 6f ...(org-noter--with-valid-sessio
1ec40 6e 0a 20 20 20 28 6c 65 74 2a 20 28 28 6e 75 6d 62 65 72 2d 6f 66 2d 6e 6f 74 65 73 20 28 6f 72 n....(let*.((number-of-notes.(or
1ec60 20 28 6f 72 67 2d 6e 6f 74 65 72 2d 2d 73 65 73 73 69 6f 6e 2d 6e 75 6d 2d 6e 6f 74 65 73 2d 69 .(org-noter--session-num-notes-i
1ec80 6e 2d 76 69 65 77 20 73 65 73 73 69 6f 6e 29 20 30 29 29 29 0a 20 20 20 20 20 28 63 6f 6e 64 20 n-view.session).0)))......(cond.
1eca0 28 28 3d 20 6e 75 6d 62 65 72 2d 6f 66 2d 6e 6f 74 65 73 20 30 29 20 28 70 72 6f 70 65 72 74 69 ((=.number-of-notes.0).(properti
1ecc0 7a 65 20 22 20 30 20 6e 6f 74 65 73 20 22 20 27 66 61 63 65 20 27 6f 72 67 2d 6e 6f 74 65 72 2d ze.".0.notes.".'face.'org-noter-
1ece0 6e 6f 2d 6e 6f 74 65 73 2d 65 78 69 73 74 2d 66 61 63 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 no-notes-exist-face))...........
1ed00 20 28 28 3d 20 6e 75 6d 62 65 72 2d 6f 66 2d 6e 6f 74 65 73 20 31 29 20 28 70 72 6f 70 65 72 74 .((=.number-of-notes.1).(propert
1ed20 69 7a 65 20 22 20 31 20 6e 6f 74 65 20 22 20 27 66 61 63 65 20 27 6f 72 67 2d 6e 6f 74 65 72 2d ize.".1.note.".'face.'org-noter-
1ed40 6e 6f 74 65 73 2d 65 78 69 73 74 2d 66 61 63 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 74 notes-exist-face))............(t
1ed60 20 28 70 72 6f 70 65 72 74 69 7a 65 20 28 66 6f 72 6d 61 74 20 22 20 25 64 20 6e 6f 74 65 73 20 .(propertize.(format.".%d.notes.
1ed80 22 20 6e 75 6d 62 65 72 2d 6f 66 2d 6e 6f 74 65 73 29 20 27 66 61 63 65 20 27 6f 72 67 2d 6e 6f ".number-of-notes).'face.'org-no
1eda0 74 65 72 2d 6e 6f 74 65 73 2d 65 78 69 73 74 2d 66 61 63 65 29 29 29 29 29 29 0a 0a 28 64 65 66 ter-notes-exist-face))))))..(def
1edc0 75 6e 20 6f 72 67 2d 6e 6f 74 65 72 2d 2d 63 68 65 63 6b 2d 69 66 2d 64 6f 63 75 6d 65 6e 74 2d un.org-noter--check-if-document-
1ede0 69 73 2d 61 6e 6e 6f 74 61 74 65 64 2d 6f 6e 2d 66 69 6c 65 20 28 64 6f 63 75 6d 65 6e 74 2d 70 is-annotated-on-file.(document-p
1ee00 61 74 68 20 6e 6f 74 65 73 2d 70 61 74 68 29 0a 20 20 22 43 68 65 63 6b 20 69 66 20 4e 4f 54 45 ath.notes-path)..."Check.if.NOTE
1ee20 53 2d 50 41 54 48 20 63 6f 6e 74 61 69 6e 73 20 61 6e 79 20 6e 6f 74 65 73 20 74 68 61 74 20 61 S-PATH.contains.any.notes.that.a
1ee40 6e 6e 6f 74 61 74 65 20 44 4f 43 55 4d 45 4e 54 2d 50 41 54 48 2e 0a 4e 4f 54 45 53 2d 50 41 54 nnotate.DOCUMENT-PATH..NOTES-PAT
1ee60 48 20 69 73 20 61 20 70 61 74 68 20 74 6f 20 61 20 6e 6f 74 65 73 20 66 69 6c 65 73 2e 0a 44 4f H.is.a.path.to.a.notes.files..DO
1ee80 43 55 4d 45 4e 54 2d 50 41 54 48 20 69 73 20 61 20 70 61 74 68 20 74 6f 20 61 20 64 6f 63 75 6d CUMENT-PATH.is.a.path.to.a.docum
1eea0 65 6e 74 20 66 69 6c 65 2e 22 0a 20 20 3b 3b 20 4e 4f 54 45 28 6e 6f 78 29 3a 20 49 6e 20 6f 72 ent.file."...;;.NOTE(nox):.In.or
1eec0 64 65 72 20 74 6f 20 69 6e 73 65 72 74 20 74 68 65 20 63 6f 72 72 65 63 74 20 66 69 6c 65 20 63 der.to.insert.the.correct.file.c
1eee0 6f 6e 74 65 6e 74 73 0a 20 20 28 6c 65 74 20 28 28 62 75 66 66 65 72 20 28 66 69 6e 64 2d 62 75 ontents...(let.((buffer.(find-bu
1ef00 66 66 65 72 2d 76 69 73 69 74 69 6e 67 20 6e 6f 74 65 73 2d 70 61 74 68 29 29 29 0a 20 20 20 20 ffer-visiting.notes-path))).....
1ef20 28 77 68 65 6e 20 62 75 66 66 65 72 20 28 77 69 74 68 2d 63 75 72 72 65 6e 74 2d 62 75 66 66 65 (when.buffer.(with-current-buffe
1ef40 72 20 62 75 66 66 65 72 20 28 73 61 76 65 2d 62 75 66 66 65 72 29 29 29 0a 0a 20 20 20 20 28 77 r.buffer.(save-buffer)))......(w
1ef60 69 74 68 2d 74 65 6d 70 2d 62 75 66 66 65 72 0a 20 20 20 20 20 20 28 69 6e 73 65 72 74 2d 66 69 ith-temp-buffer.......(insert-fi
1ef80 6c 65 2d 63 6f 6e 74 65 6e 74 73 20 6e 6f 74 65 73 2d 70 61 74 68 29 0a 20 20 20 20 20 20 28 63 le-contents.notes-path).......(c
1efa0 61 74 63 68 20 27 62 72 65 61 6b 0a 20 20 20 20 20 20 20 20 28 77 68 69 6c 65 20 28 72 65 2d 73 atch.'break.........(while.(re-s
1efc0 65 61 72 63 68 2d 66 6f 72 77 61 72 64 20 28 6f 72 67 2d 72 65 2d 70 72 6f 70 65 72 74 79 20 6f earch-forward.(org-re-property.o
1efe0 72 67 2d 6e 6f 74 65 72 2d 70 72 6f 70 65 72 74 79 2d 64 6f 63 2d 66 69 6c 65 29 20 6e 69 6c 20 rg-noter-property-doc-file).nil.
1f000 74 29 0a 20 20 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 28 73 74 72 69 6e 67 2d 65 71 75 61 6c t)...........(when.(string-equal
1f020 20 28 65 78 70 61 6e 64 2d 66 69 6c 65 2d 6e 61 6d 65 20 28 6d 61 74 63 68 2d 73 74 72 69 6e 67 .(expand-file-name.(match-string
1f040 20 33 29 20 28 66 69 6c 65 2d 6e 61 6d 65 2d 64 69 72 65 63 74 6f 72 79 20 6e 6f 74 65 73 2d 70 .3).(file-name-directory.notes-p
1f060 61 74 68 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 ath))...........................
1f080 20 20 20 20 64 6f 63 75 6d 65 6e 74 2d 70 61 74 68 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 3b ....document-path).............;
1f0a0 3b 20 4e 4f 54 45 28 6e 6f 78 29 3a 20 54 68 69 73 20 6e 6f 74 65 73 20 66 69 6c 65 20 68 61 73 ;.NOTE(nox):.This.notes.file.has
1f0c0 20 74 68 65 20 64 6f 63 75 6d 65 6e 74 20 77 65 20 77 61 6e 74 21 0a 20 20 20 20 20 20 20 20 20 .the.document.we.want!..........
1f0e0 20 20 20 28 74 68 72 6f 77 20 27 62 72 65 61 6b 20 74 29 29 29 29 29 29 29 0a 0a 28 64 65 66 73 ...(throw.'break.t)))))))..(defs
1f100 75 62 73 74 20 6f 72 67 2d 6e 6f 74 65 72 2d 2d 63 68 65 63 6b 2d 64 6f 63 2d 70 72 6f 70 20 28 ubst.org-noter--check-doc-prop.(
1f120 64 6f 63 2d 70 72 6f 70 29 0a 20 20 28 61 6e 64 20 64 6f 63 2d 70 72 6f 70 20 28 6f 72 20 28 73 doc-prop)...(and.doc-prop.(or.(s
1f140 74 72 69 6e 67 2d 6d 61 74 63 68 2d 70 20 6f 72 67 2d 6c 69 6e 6b 2d 62 72 61 63 6b 65 74 2d 72 tring-match-p.org-link-bracket-r
1f160 65 20 64 6f 63 2d 70 72 6f 70 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 e.doc-prop).....................
1f180 28 73 74 72 69 6e 67 2d 6d 61 74 63 68 2d 70 20 6f 72 67 2d 6e 6f 74 65 72 2d 2d 75 72 6c 2d 72 (string-match-p.org-noter--url-r
1f1a0 65 67 65 78 70 20 64 6f 63 2d 70 72 6f 70 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 egexp.doc-prop).................
1f1c0 20 20 20 20 28 61 6e 64 20 28 6e 6f 74 20 28 66 69 6c 65 2d 64 69 72 65 63 74 6f 72 79 2d 70 20 ....(and.(not.(file-directory-p.
1f1e0 64 6f 63 2d 70 72 6f 70 29 29 20 28 66 69 6c 65 2d 72 65 61 64 61 62 6c 65 2d 70 20 64 6f 63 2d doc-prop)).(file-readable-p.doc-
1f200 70 72 6f 70 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 6f 72 67 2d 6e 6f 74 65 72 2d 2d 67 65 74 prop)))))..(defun.org-noter--get
1f220 2d 6f 72 2d 72 65 61 64 2d 64 6f 63 75 6d 65 6e 74 2d 70 72 6f 70 65 72 74 79 20 28 69 6e 68 65 -or-read-document-property.(inhe
1f240 72 69 74 2d 70 72 6f 70 20 26 6f 70 74 69 6f 6e 61 6c 20 66 6f 72 63 65 2d 6e 65 77 29 0a 20 20 rit-prop.&optional.force-new)...
1f260 28 6c 65 74 20 28 28 64 6f 63 2d 70 72 6f 70 20 28 61 6e 64 20 28 6e 6f 74 20 66 6f 72 63 65 2d (let.((doc-prop.(and.(not.force-
1f280 6e 65 77 29 20 28 6f 72 67 2d 65 6e 74 72 79 2d 67 65 74 20 6e 69 6c 20 6f 72 67 2d 6e 6f 74 65 new).(org-entry-get.nil.org-note
1f2a0 72 2d 70 72 6f 70 65 72 74 79 2d 64 6f 63 2d 66 69 6c 65 20 69 6e 68 65 72 69 74 2d 70 72 6f 70 r-property-doc-file.inherit-prop
1f2c0 29 29 29 29 0a 0a 20 20 20 20 28 73 65 74 71 20 64 6f 63 2d 70 72 6f 70 20 28 6f 72 20 28 72 75 ))))......(setq.doc-prop.(or.(ru
1f2e0 6e 2d 68 6f 6f 6b 2d 77 69 74 68 2d 61 72 67 73 2d 75 6e 74 69 6c 2d 73 75 63 63 65 73 73 20 27 n-hook-with-args-until-success.'
1f300 6f 72 67 2d 6e 6f 74 65 72 2d 70 61 72 73 65 2d 64 6f 63 75 6d 65 6e 74 2d 70 72 6f 70 65 72 74 org-noter-parse-document-propert
1f320 79 2d 68 6f 6f 6b 20 64 6f 63 2d 70 72 6f 70 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 y-hook.doc-prop)................
1f340 20 20 20 20 20 20 20 20 64 6f 63 2d 70 72 6f 70 29 29 0a 0a 20 20 20 20 28 75 6e 6c 65 73 73 20 ........doc-prop))......(unless.
1f360 28 6f 72 67 2d 6e 6f 74 65 72 2d 2d 63 68 65 63 6b 2d 64 6f 63 2d 70 72 6f 70 20 64 6f 63 2d 70 (org-noter--check-doc-prop.doc-p
1f380 72 6f 70 29 0a 20 20 20 20 20 20 28 73 65 74 71 20 64 6f 63 2d 70 72 6f 70 20 6e 69 6c 29 0a 0a rop).......(setq.doc-prop.nil)..
1f3a0 20 20 20 20 20 20 28 77 68 65 6e 20 6f 72 67 2d 6e 6f 74 65 72 2d 73 75 67 67 65 73 74 2d 66 72 ......(when.org-noter-suggest-fr
1f3c0 6f 6d 2d 61 74 74 61 63 68 6d 65 6e 74 73 0a 20 20 20 20 20 20 20 20 28 72 65 71 75 69 72 65 20 om-attachments.........(require.
1f3e0 27 6f 72 67 2d 61 74 74 61 63 68 29 0a 20 20 20 20 20 20 20 20 28 6c 65 74 2a 20 28 28 61 74 74 'org-attach).........(let*.((att
1f400 61 63 68 2d 64 69 72 20 28 6f 72 67 2d 61 74 74 61 63 68 2d 64 69 72 29 29 0a 20 20 20 20 20 20 ach-dir.(org-attach-dir)).......
1f420 20 20 20 20 20 20 20 20 20 28 61 74 74 61 63 68 2d 6c 69 73 74 20 28 61 6e 64 20 61 74 74 61 63 .........(attach-list.(and.attac
1f440 68 2d 64 69 72 20 28 6f 72 67 2d 61 74 74 61 63 68 2d 66 69 6c 65 2d 6c 69 73 74 20 61 74 74 61 h-dir.(org-attach-file-list.atta
1f460 63 68 2d 64 69 72 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 28 61 6e 64 20 ch-dir))))...........(when.(and.
1f480 61 74 74 61 63 68 2d 6c 69 73 74 20 28 79 2d 6f 72 2d 6e 2d 70 20 22 44 6f 20 79 6f 75 20 77 61 attach-list.(y-or-n-p."Do.you.wa
1f4a0 6e 74 20 74 6f 20 61 6e 6e 6f 74 61 74 65 20 61 6e 20 61 74 74 61 63 68 65 64 20 66 69 6c 65 3f nt.to.annotate.an.attached.file?
1f4c0 22 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 64 6f 63 2d 70 72 6f 70 20 28 ")).............(setq.doc-prop.(
1f4e0 63 6f 6d 70 6c 65 74 69 6e 67 2d 72 65 61 64 20 22 46 69 6c 65 20 74 6f 20 61 6e 6e 6f 74 61 74 completing-read."File.to.annotat
1f500 65 3a 20 22 20 61 74 74 61 63 68 2d 6c 69 73 74 20 6e 69 6c 20 74 29 29 0a 20 20 20 20 20 20 20 e:.".attach-list.nil.t))........
1f520 20 20 20 20 20 28 77 68 65 6e 20 64 6f 63 2d 70 72 6f 70 20 28 73 65 74 71 20 64 6f 63 2d 70 72 .....(when.doc-prop.(setq.doc-pr
1f540 6f 70 20 28 66 69 6c 65 2d 72 65 6c 61 74 69 76 65 2d 6e 61 6d 65 20 28 65 78 70 61 6e 64 2d 66 op.(file-relative-name.(expand-f
1f560 69 6c 65 2d 6e 61 6d 65 20 64 6f 63 2d 70 72 6f 70 20 61 74 74 61 63 68 2d 64 69 72 29 29 29 29 ile-name.doc-prop.attach-dir))))
1f580 29 29 29 0a 0a 20 20 20 20 20 20 28 75 6e 6c 65 73 73 20 28 6f 72 67 2d 6e 6f 74 65 72 2d 2d 63 )))........(unless.(org-noter--c
1f5a0 68 65 63 6b 2d 64 6f 63 2d 70 72 6f 70 20 64 6f 63 2d 70 72 6f 70 29 0a 20 20 20 20 20 20 20 20 heck-doc-prop.doc-prop).........
1f5c0 28 73 65 74 71 20 64 6f 63 2d 70 72 6f 70 20 28 65 78 70 61 6e 64 2d 66 69 6c 65 2d 6e 61 6d 65 (setq.doc-prop.(expand-file-name
1f5e0 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 72 65 61 64 2d 66 .........................(read-f
1f600 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 20 20 ile-name........................
1f620 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.........................
1f640 20 20 28 28 6e 75 6c 6c 20 64 6f 63 2d 70 72 6f 70 29 20 22 4e 6f 20 64 6f 63 75 6d 65 6e 74 20 ..((null.doc-prop)."No.document.
1f660 70 72 6f 70 65 72 74 79 20 66 6f 75 6e 64 2e 20 50 6c 65 61 73 65 20 73 70 65 63 69 66 79 20 61 property.found..Please.specify.a
1f680 20 64 6f 63 75 6d 65 6e 74 20 70 61 74 68 3a 20 22 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 .document.path:.")..............
1f6a0 20 20 20 20 20 20 20 20 20 20 20 20 20 28 28 66 69 6c 65 2d 64 69 72 65 63 74 6f 72 79 2d 70 20 .............((file-directory-p.
1f6c0 64 6f 63 2d 70 72 6f 70 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 doc-prop).......................
1f6e0 20 20 20 20 20 28 66 6f 72 6d 61 74 20 22 44 6f 63 75 6d 65 6e 74 20 70 72 6f 70 65 72 74 79 20 .....(format."Document.property.
1f700 28 5c 22 25 73 5c 22 29 20 69 73 20 61 20 64 69 72 65 63 74 6f 72 79 2e 20 50 6c 65 61 73 65 20 (\"%s\").is.a.directory..Please.
1f720 73 70 65 63 69 66 79 20 61 20 64 6f 63 75 6d 65 6e 74 20 66 69 6c 65 3a 20 22 0a 20 20 20 20 20 specify.a.document.file:."......
1f740 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 64 6f ..............................do
1f760 63 2d 70 72 6f 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 c-prop))........................
1f780 20 20 20 28 28 6e 6f 74 20 28 66 69 6c 65 2d 72 65 61 64 61 62 6c 65 2d 70 20 64 6f 63 2d 70 72 ...((not.(file-readable-p.doc-pr
1f7a0 6f 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 20 20 op))............................
1f7c0 28 66 6f 72 6d 61 74 20 22 54 68 65 20 66 69 6c 65 20 73 70 65 63 69 66 69 65 64 20 62 79 20 74 (format."The.file.specified.by.t
1f7e0 68 65 20 64 6f 63 75 6d 65 6e 74 20 70 72 6f 70 65 72 74 79 20 5c 22 25 73 5c 22 20 69 73 20 75 he.document.property.\"%s\".is.u
1f800 6e 72 65 61 64 61 62 6c 65 2e 20 50 6c 65 61 73 65 20 73 70 65 63 69 66 79 20 61 20 6e 65 77 20 nreadable..Please.specify.a.new.
1f820 64 6f 63 75 6d 65 6e 74 3a 20 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 document:.".....................
1f840 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 64 6f 63 2d 70 72 6f 70 29 29 29 0a 20 20 20 20 20 ...............doc-prop)))......
1f860 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6e 69 6c 20 6e 69 6c 20 74 29 29 29 ....................nil.nil.t)))
1f880 0a 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 28 6f 72 20 28 66 69 6c 65 2d 64 69 72 65 63 74 6f .........(when.(or.(file-directo
1f8a0 72 79 2d 70 20 64 6f 63 2d 70 72 6f 70 29 20 28 6e 6f 74 20 28 66 69 6c 65 2d 72 65 61 64 61 62 ry-p.doc-prop).(not.(file-readab
1f8c0 6c 65 2d 70 20 64 6f 63 2d 70 72 6f 70 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 75 73 65 72 le-p.doc-prop)))...........(user
1f8e0 2d 65 72 72 6f 72 20 22 49 6e 76 61 6c 69 64 20 66 69 6c 65 20 70 61 74 68 22 29 29 0a 20 20 20 -error."Invalid.file.path"))....
1f900 20 20 20 20 20 28 77 68 65 6e 20 28 79 2d 6f 72 2d 6e 2d 70 20 22 44 6f 20 79 6f 75 20 77 61 6e .....(when.(y-or-n-p."Do.you.wan
1f920 74 20 61 20 72 65 6c 61 74 69 76 65 20 66 69 6c 65 20 6e 61 6d 65 3f 20 22 29 0a 20 20 20 20 20 t.a.relative.file.name?.")......
1f940 20 20 20 20 20 28 73 65 74 71 20 64 6f 63 2d 70 72 6f 70 20 28 66 69 6c 65 2d 72 65 6c 61 74 69 .....(setq.doc-prop.(file-relati
1f960 76 65 2d 6e 61 6d 65 20 64 6f 63 2d 70 72 6f 70 29 29 29 29 0a 0a 20 20 20 20 20 20 28 6f 72 67 ve-name.doc-prop))))........(org
1f980 2d 65 6e 74 72 79 2d 70 75 74 20 6e 69 6c 20 6f 72 67 2d 6e 6f 74 65 72 2d 70 72 6f 70 65 72 74 -entry-put.nil.org-noter-propert
1f9a0 79 2d 64 6f 63 2d 66 69 6c 65 20 64 6f 63 2d 70 72 6f 70 29 29 0a 20 20 20 20 64 6f 63 2d 70 72 y-doc-file.doc-prop)).....doc-pr
1f9c0 6f 70 29 29 0a 0a 28 64 65 66 75 6e 20 6f 72 67 2d 6e 6f 74 65 72 2d 2d 6f 74 68 65 72 2d 66 72 op))..(defun.org-noter--other-fr
1f9e0 61 6d 65 73 20 28 26 6f 70 74 69 6f 6e 61 6c 20 74 68 69 73 2d 66 72 61 6d 65 29 0a 20 20 22 52 ames.(&optional.this-frame)..."R
1fa00 65 74 75 72 6e 20 6e 6f 6e 2d 6e 69 6c 20 77 68 65 6e 20 74 68 65 72 65 20 69 73 20 61 74 20 6c eturn.non-nil.when.there.is.at.l
1fa20 65 61 73 74 20 61 6e 6f 74 68 65 72 20 66 72 61 6d 65 2e 0a 54 68 69 73 20 69 73 20 63 61 6c 6c east.another.frame..This.is.call
1fa40 65 64 20 69 6e 20 60 6f 72 67 2d 6e 6f 74 65 72 2d 6b 69 6c 6c 2d 73 65 73 73 69 6f 6e 27 2e 20 ed.in.`org-noter-kill-session'..
1fa60 20 54 48 49 53 2d 46 52 41 4d 45 20 63 61 6e 20 62 65 0a 73 70 65 63 69 66 69 65 64 20 74 6f 20 .THIS-FRAME.can.be.specified.to.
1fa80 6f 76 65 72 72 69 64 65 20 60 73 65 6c 65 63 74 65 64 2d 66 72 61 6d 65 27 2e 22 0a 20 20 28 73 override.`selected-frame'."...(s
1faa0 65 74 71 20 74 68 69 73 2d 66 72 61 6d 65 20 28 6f 72 20 74 68 69 73 2d 66 72 61 6d 65 20 28 73 etq.this-frame.(or.this-frame.(s
1fac0 65 6c 65 63 74 65 64 2d 66 72 61 6d 65 29 29 29 0a 20 20 28 63 61 74 63 68 20 27 6f 74 68 65 72 elected-frame)))...(catch.'other
1fae0 2d 66 72 61 6d 65 0a 20 20 20 20 28 64 6f 6c 69 73 74 20 28 66 72 61 6d 65 20 28 76 69 73 69 62 -frame.....(dolist.(frame.(visib
1fb00 6c 65 2d 66 72 61 6d 65 2d 6c 69 73 74 29 29 0a 20 20 20 20 20 20 28 75 6e 6c 65 73 73 20 28 6f le-frame-list)).......(unless.(o
1fb20 72 20 28 65 71 20 74 68 69 73 2d 66 72 61 6d 65 20 66 72 61 6d 65 29 0a 20 20 20 20 20 20 20 20 r.(eq.this-frame.frame).........
1fb40 20 20 20 20 20 20 20 20 20 20 28 66 72 61 6d 65 2d 70 61 72 65 6e 74 20 66 72 61 6d 65 29 0a 20 ..........(frame-parent.frame)..
1fb60 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 72 61 6d 65 2d 70 61 72 61 6d 65 74 65 .................(frame-paramete
1fb80 72 20 66 72 61 6d 65 20 27 64 65 6c 65 74 65 2d 62 65 66 6f 72 65 29 29 0a 20 20 20 20 20 20 20 r.frame.'delete-before))........
1fba0 20 28 74 68 72 6f 77 20 27 6f 74 68 65 72 2d 66 72 61 6d 65 20 66 72 61 6d 65 29 29 29 29 29 0a .(throw.'other-frame.frame))))).
1fbc0 0a 28 64 65 66 75 6e 20 6f 72 67 2d 6e 6f 74 65 72 2d 2d 67 65 74 2d 68 69 67 68 6c 69 67 68 74 .(defun.org-noter--get-highlight
1fbe0 2d 6c 6f 63 61 74 69 6f 6e 20 28 29 0a 20 20 22 52 65 74 75 72 6e 20 61 20 68 69 67 68 6c 69 67 -location.()..."Return.a.highlig
1fc00 68 74 20 6c 6f 63 61 74 69 6f 6e 2e 0a 54 68 69 73 20 69 73 20 6d 6f 64 65 20 73 70 65 63 69 66 ht.location..This.is.mode.specif
1fc20 69 63 2e 20 20 49 6e 20 50 44 46 20 69 74 27 73 20 61 20 74 68 65 20 70 61 67 65 20 6e 75 6d 62 ic...In.PDF.it's.a.the.page.numb
1fc40 65 72 20 61 6e 64 20 34 0a 63 6f 6f 72 64 69 6e 61 74 65 73 20 66 6f 72 20 74 68 65 20 68 69 67 er.and.4.coordinates.for.the.hig
1fc60 68 6c 69 67 68 74 2e 20 20 54 68 69 73 20 69 73 20 64 65 6c 65 67 61 74 65 64 20 74 6f 20 65 61 hlight...This.is.delegated.to.ea
1fc80 63 68 20 64 6f 63 75 6d 65 6e 74 0a 6d 6f 64 65 2e 22 0a 20 20 28 77 69 74 68 2d 73 65 6c 65 63 ch.document.mode."...(with-selec
1fca0 74 65 64 2d 77 69 6e 64 6f 77 20 28 6f 72 67 2d 6e 6f 74 65 72 2d 2d 67 65 74 2d 64 6f 63 2d 77 ted-window.(org-noter--get-doc-w
1fcc0 69 6e 64 6f 77 29 0a 20 20 20 20 20 28 72 75 6e 2d 68 6f 6f 6b 2d 77 69 74 68 2d 61 72 67 73 2d indow)......(run-hook-with-args-
1fce0 75 6e 74 69 6c 2d 73 75 63 63 65 73 73 20 27 6f 72 67 2d 6e 6f 74 65 72 2d 2d 67 65 74 2d 68 69 until-success.'org-noter--get-hi
1fd00 67 68 6c 69 67 68 74 2d 6c 6f 63 61 74 69 6f 6e 2d 68 6f 6f 6b 29 29 29 0a 0a 28 64 65 66 75 6e ghlight-location-hook)))..(defun
1fd20 20 6f 72 67 2d 6e 6f 74 65 72 2d 2d 67 65 74 2d 73 65 72 69 61 6c 69 7a 65 64 2d 68 69 67 68 6c .org-noter--get-serialized-highl
1fd40 69 67 68 74 20 28 68 69 67 68 6c 69 67 68 74 2d 6c 6f 63 61 74 69 6f 6e 29 0a 20 20 22 52 65 74 ight.(highlight-location)..."Ret
1fd60 75 72 6e 20 61 20 73 74 72 69 6e 67 20 72 65 70 72 65 73 65 6e 74 61 74 69 6f 6e 20 6f 66 20 74 urn.a.string.representation.of.t
1fd80 68 65 20 48 49 47 48 4c 49 47 48 54 2d 4c 4f 43 41 54 49 4f 4e 2e 0a 54 68 69 73 20 69 73 20 64 he.HIGHLIGHT-LOCATION..This.is.d
1fda0 65 6c 65 67 61 74 65 64 20 74 6f 20 65 61 63 68 20 64 6f 63 75 6d 65 6e 74 20 6d 6f 64 65 20 28 elegated.to.each.document.mode.(
1fdc0 65 67 20 70 64 66 29 2e 22 0a 20 20 20 20 20 28 72 75 6e 2d 68 6f 6f 6b 2d 77 69 74 68 2d 61 72 eg.pdf)."......(run-hook-with-ar
1fde0 67 73 2d 75 6e 74 69 6c 2d 73 75 63 63 65 73 73 20 27 6f 72 67 2d 6e 6f 74 65 72 2d 2d 70 72 65 gs-until-success.'org-noter--pre
1fe00 74 74 79 2d 70 72 69 6e 74 2d 68 69 67 68 6c 69 67 68 74 2d 6c 6f 63 61 74 69 6f 6e 2d 68 6f 6f tty-print-highlight-location-hoo
1fe20 6b 20 68 69 67 68 6c 69 67 68 74 2d 6c 6f 63 61 74 69 6f 6e 29 29 0a 0a 28 64 65 66 75 6e 20 6f k.highlight-location))..(defun.o
1fe40 72 67 2d 6e 6f 74 65 72 2d 2d 75 70 64 61 74 65 2d 64 6f 63 2d 72 65 6e 61 6d 65 2d 69 6e 2d 6e rg-noter--update-doc-rename-in-n
1fe60 6f 74 65 73 20 28 64 6f 63 75 6d 65 6e 74 2d 70 61 74 68 20 6e 65 77 2d 64 6f 63 75 6d 65 6e 74 otes.(document-path.new-document
1fe80 2d 70 61 74 68 20 26 6f 70 74 69 6f 6e 61 6c 20 5f 6f 6b 2d 69 66 2d 61 6c 72 65 61 64 79 2d 65 -path.&optional._ok-if-already-e
1fea0 78 69 73 74 73 29 0a 20 20 22 55 70 64 61 74 65 20 6f 72 67 2d 6e 6f 74 65 72 20 72 65 66 65 72 xists)..."Update.org-noter.refer
1fec0 65 6e 63 65 73 20 74 6f 20 64 6f 63 75 6d 65 6e 74 2d 66 69 6c 65 20 77 68 6f 73 65 20 6e 61 6d ences.to.document-file.whose.nam
1fee0 65 20 68 61 73 20 63 68 61 6e 67 65 64 2e 0a 0a 44 4f 43 55 4d 45 4e 54 2d 50 41 54 48 20 69 73 e.has.changed...DOCUMENT-PATH.is
1ff00 20 74 68 65 20 6f 72 69 67 69 6e 61 6c 20 66 69 6c 65 6e 61 6d 65 2e 0a 4e 45 57 2d 44 4f 43 55 .the.original.filename..NEW-DOCU
1ff20 4d 45 4e 54 2d 50 41 54 48 20 69 73 20 74 68 65 20 6e 65 77 20 66 69 6c 65 6e 61 6d 65 2e 0a 0a MENT-PATH.is.the.new.filename...
1ff40 43 61 6c 6c 20 60 6f 72 67 2d 6e 6f 74 65 72 2d 65 6e 61 62 6c 65 2d 73 79 6e 63 2d 72 65 6e 61 Call.`org-noter-enable-sync-rena
1ff60 6d 65 73 27 20 74 6f 20 65 6e 61 62 6c 65 20 74 68 69 73 20 66 65 61 74 75 72 65 20 61 6e 64 0a mes'.to.enable.this.feature.and.
1ff80 60 6f 72 67 2d 6e 6f 74 65 72 2d 64 69 73 61 62 6c 65 2d 73 79 6e 63 2d 72 65 6e 61 6d 65 73 27 `org-noter-disable-sync-renames'
1ffa0 20 74 6f 20 64 69 73 61 62 6c 65 20 69 74 2e 0a 0a 54 68 69 73 20 61 64 76 69 63 65 20 72 75 6e .to.disable.it...This.advice.run
1ffc0 73 20 61 66 74 65 72 20 60 64 69 72 65 64 2d 72 65 6e 61 6d 65 2d 66 69 6c 65 27 20 63 6f 6d 70 s.after.`dired-rename-file'.comp
1ffe0 6c 65 74 65 73 20 73 75 63 63 65 73 73 66 75 6c 6c 79 0a 6f 6e 20 66 69 6c 65 73 20 77 69 74 68 letes.successfully.on.files.with
20000 20 60 66 69 6c 65 2d 6e 61 6d 65 2d 65 78 74 65 6e 73 69 6f 6e 27 20 69 6e 20 60 6f 72 67 2d 6e .`file-name-extension'.in.`org-n
20020 6f 74 65 72 2d 2d 64 6f 63 2d 65 78 74 65 6e 73 69 6f 6e 73 27 2e 0a 0a 46 6f 72 20 6e 6f 74 65 oter--doc-extensions'...For.note
20040 73 20 66 69 6c 65 73 20 74 68 61 74 20 68 61 76 65 20 74 68 65 20 73 61 6d 65 20 60 66 69 6c 65 s.files.that.have.the.same.`file
20060 2d 6e 61 6d 65 2d 62 61 73 65 27 20 61 73 20 74 68 65 0a 64 6f 63 75 6d 65 6e 74 2c 20 74 68 65 -name-base'.as.the.document,.the
20080 20 6e 6f 74 65 73 20 66 69 6c 65 6e 61 6d 65 20 77 69 6c 6c 20 62 65 20 63 68 61 6e 67 65 64 2c .notes.filename.will.be.changed,
200a0 20 62 75 74 20 6e 6f 74 20 69 74 73 0a 60 66 69 6c 65 2d 6e 61 6d 65 2d 64 69 72 65 63 74 6f 72 .but.not.its.`file-name-director
200c0 79 27 2e 0a 0a 49 66 20 74 68 65 20 64 6f 63 75 6d 65 6e 74 20 69 73 20 6d 6f 76 65 64 20 74 6f y'...If.the.document.is.moved.to
200e0 20 61 20 70 61 74 68 20 61 62 6f 76 65 20 74 68 65 20 6e 6f 74 65 73 20 66 69 6c 65 2c 20 61 0a .a.path.above.the.notes.file,.a.
20100 77 61 72 6e 69 6e 67 20 77 69 6c 6c 20 62 65 20 69 73 73 75 65 64 2c 20 62 75 74 20 74 68 65 20 warning.will.be.issued,.but.the.
20120 73 79 6e 63 20 77 69 6c 6c 20 70 72 6f 63 65 65 64 2e 20 20 54 68 65 20 64 69 72 65 63 74 6f 72 sync.will.proceed...The.director
20140 79 0a 6f 66 20 74 68 65 20 6e 6f 74 65 73 20 66 69 6c 65 20 77 69 6c 6c 20 6e 6f 74 20 62 65 20 y.of.the.notes.file.will.not.be.
20160 63 68 61 6e 67 65 64 2c 20 61 73 20 74 68 65 72 65 20 6d 61 79 20 62 65 20 6f 74 68 65 72 0a 64 changed,.as.there.may.be.other.d
20180 6f 63 75 6d 65 6e 74 73 20 72 65 66 65 72 65 6e 63 65 64 20 69 6e 20 74 68 65 20 6e 6f 74 65 73 ocuments.referenced.in.the.notes
201a0 20 66 69 6c 65 2e 20 20 41 6e 20 60 6f 72 67 2d 6e 6f 74 65 72 27 20 73 65 73 73 69 6f 6e 0a 63 .file...An.`org-noter'.session.c
201c0 61 6e 20 73 74 69 6c 6c 20 62 65 20 69 6e 69 74 69 61 74 65 64 20 66 72 6f 6d 20 74 68 65 20 6e an.still.be.initiated.from.the.n
201e0 6f 74 65 73 20 66 69 6c 65 2c 20 62 75 74 20 6e 6f 74 20 76 69 63 65 2d 76 65 72 73 61 2c 0a 6e otes.file,.but.not.vice-versa,.n
20200 6f 72 20 77 69 6c 6c 20 66 75 74 75 72 65 20 72 65 6e 61 6d 65 73 20 6f 66 20 74 68 65 20 64 6f or.will.future.renames.of.the.do
20220 63 75 6d 65 6e 74 20 62 65 20 73 79 6e 63 65 64 20 69 6e 20 74 68 65 20 6e 6f 74 65 73 0a 66 69 cument.be.synced.in.the.notes.fi
20240 6c 65 2e 22 0a 0a 20 20 28 77 68 65 6e 20 28 61 6e 64 20 28 66 69 6c 65 2d 6e 61 6d 65 2d 65 78 le."....(when.(and.(file-name-ex
20260 74 65 6e 73 69 6f 6e 20 64 6f 63 75 6d 65 6e 74 2d 70 61 74 68 29 0a 20 20 20 20 20 20 20 20 20 tension.document-path)..........
20280 20 20 20 20 28 6d 65 6d 62 65 72 2d 69 67 6e 6f 72 65 2d 63 61 73 65 20 28 66 69 6c 65 2d 6e 61 ....(member-ignore-case.(file-na
202a0 6d 65 2d 65 78 74 65 6e 73 69 6f 6e 20 64 6f 63 75 6d 65 6e 74 2d 70 61 74 68 29 0a 20 20 20 20 me-extension.document-path).....
202c0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6f 72 67 .............................org
202e0 2d 6e 6f 74 65 72 2d 2d 64 6f 63 2d 65 78 74 65 6e 73 69 6f 6e 73 29 0a 20 20 20 20 20 20 20 20 -noter--doc-extensions).........
20300 20 20 20 20 20 28 6e 6f 74 20 28 66 69 6c 65 2d 65 78 69 73 74 73 2d 70 20 64 6f 63 75 6d 65 6e .....(not.(file-exists-p.documen
20320 74 2d 70 61 74 68 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 69 6c 65 2d 65 78 69 73 t-path))..............(file-exis
20340 74 73 2d 70 20 6e 65 77 2d 64 6f 63 75 6d 65 6e 74 2d 70 61 74 68 29 29 0a 20 20 20 20 3b 3b 20 ts-p.new-document-path)).....;;.
20360 63 6f 6e 74 69 6e 75 65 20 69 66 20 74 68 65 20 66 69 6c 65 20 65 78 74 65 6e 73 69 6f 6e 20 69 continue.if.the.file.extension.i
20380 73 20 74 68 61 74 20 6f 66 20 61 20 64 6f 63 75 6d 65 6e 74 0a 20 20 20 20 3b 3b 20 61 6e 64 20 s.that.of.a.document.....;;.and.
203a0 74 68 65 20 72 65 6e 61 6d 65 20 77 61 73 20 73 75 63 63 65 73 73 66 75 6c 0a 20 20 20 20 28 6c the.rename.was.successful.....(l
203c0 65 74 2a 20 28 28 64 6f 63 75 6d 65 6e 74 2d 6e 61 6d 65 20 28 66 69 6c 65 2d 6e 61 6d 65 2d 6e et*.((document-name.(file-name-n
203e0 6f 6e 64 69 72 65 63 74 6f 72 79 20 64 6f 63 75 6d 65 6e 74 2d 70 61 74 68 29 29 0a 20 20 20 20 ondirectory.document-path)).....
20400 20 20 20 20 20 20 20 28 64 6f 63 75 6d 65 6e 74 2d 62 61 73 65 20 28 66 69 6c 65 2d 6e 61 6d 65 .......(document-base.(file-name
20420 2d 62 61 73 65 20 64 6f 63 75 6d 65 6e 74 2d 6e 61 6d 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 -base.document-name))...........
20440 20 28 64 6f 63 75 6d 65 6e 74 2d 64 69 72 65 63 74 6f 72 79 20 28 66 69 6c 65 2d 6e 61 6d 65 2d .(document-directory.(file-name-
20460 64 69 72 65 63 74 6f 72 79 20 64 6f 63 75 6d 65 6e 74 2d 70 61 74 68 29 29 0a 0a 20 20 20 20 20 directory.document-path)).......
20480 20 20 20 20 20 20 28 73 65 61 72 63 68 2d 6e 61 6d 65 73 20 28 72 65 6d 6f 76 65 20 6e 69 6c 20 ......(search-names.(remove.nil.
204a0 28 61 70 70 65 6e 64 20 6f 72 67 2d 6e 6f 74 65 72 2d 64 65 66 61 75 6c 74 2d 6e 6f 74 65 73 2d (append.org-noter-default-notes-
204c0 66 69 6c 65 2d 6e 61 6d 65 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 file-names......................
204e0 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 73 74 20 28 63 ........................(list.(c
20500 6f 6e 63 61 74 20 64 6f 63 75 6d 65 6e 74 2d 62 61 73 65 20 22 2e 6f 72 67 22 29 29 0a 20 20 20 oncat.document-base.".org"))....
20520 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ................................
20540 20 20 20 20 20 20 20 20 20 20 28 6c 69 73 74 20 28 72 75 6e 2d 68 6f 6f 6b 2d 77 69 74 68 2d 61 ..........(list.(run-hook-with-a
20560 72 67 73 2d 75 6e 74 69 6c 2d 73 75 63 63 65 73 73 20 27 6f 72 67 2d 6e 6f 74 65 72 2d 66 69 6e rgs-until-success.'org-noter-fin
20580 64 2d 61 64 64 69 74 69 6f 6e 61 6c 2d 6e 6f 74 65 73 2d 66 75 6e 63 74 69 6f 6e 73 20 64 6f 63 d-additional-notes-functions.doc
205a0 75 6d 65 6e 74 2d 70 61 74 68 29 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 6e 6f 74 65 73 ument-path)))))............notes
205c0 2d 66 69 6c 65 73 20 3b 20 6c 69 73 74 20 6f 66 20 6e 6f 74 65 73 20 66 69 6c 65 73 20 77 69 74 -files.;.list.of.notes.files.wit
205e0 68 20 70 72 6f 6d 69 73 69 6e 67 20 6e 61 6d 65 73 20 28 4e 6f 74 65 73 2e 6f 72 67 20 6f 72 20 h.promising.names.(Notes.org.or.
20600 3c 64 6f 63 6e 61 6d 65 3e 2e 6f 72 67 29 0a 20 20 20 20 20 20 20 20 20 20 20 6e 6f 74 65 73 2d <docname>.org)............notes-
20620 70 61 74 68 29 20 3b 20 6a 75 6e 6b 20 76 61 72 69 61 62 6c 65 20 77 68 65 6e 20 69 74 65 72 61 path).;.junk.variable.when.itera
20640 74 69 6e 67 20 6f 76 65 72 20 6e 6f 74 65 73 2d 66 69 6c 65 73 0a 0a 20 20 20 20 20 20 3b 3b 20 ting.over.notes-files........;;.
20660 66 69 6e 64 20 70 72 6f 6d 69 73 69 6e 67 20 6e 6f 74 65 73 20 66 69 6c 65 73 20 62 79 20 6e 61 find.promising.notes.files.by.na
20680 6d 65 20 69 6e 20 61 20 66 65 77 20 70 6c 61 63 65 73 2e 2e 2e 0a 20 20 20 20 20 20 28 64 6f 6c me.in.a.few.places..........(dol
206a0 69 73 74 20 28 6e 61 6d 65 20 73 65 61 72 63 68 2d 6e 61 6d 65 73 29 0a 20 20 20 20 20 20 20 20 ist.(name.search-names).........
206c0 3b 3b 20 63 68 65 63 6b 20 74 68 65 20 6e 6f 74 65 73 2d 73 65 61 72 63 68 2d 70 61 74 68 73 0a ;;.check.the.notes-search-paths.
206e0 20 20 20 20 20 20 20 20 28 64 6f 6c 69 73 74 20 28 70 61 74 68 20 6f 72 67 2d 6e 6f 74 65 72 2d ........(dolist.(path.org-noter-
20700 6e 6f 74 65 73 2d 73 65 61 72 63 68 2d 70 61 74 68 29 0a 20 20 20 20 20 20 20 20 20 20 28 73 65 notes-search-path)...........(se
20720 74 71 20 6e 6f 74 65 73 2d 70 61 74 68 20 28 65 78 70 61 6e 64 2d 66 69 6c 65 2d 6e 61 6d 65 20 tq.notes-path.(expand-file-name.
20740 6e 61 6d 65 20 70 61 74 68 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 28 66 69 6c name.path))...........(when.(fil
20760 65 2d 65 78 69 73 74 73 2d 70 20 6e 6f 74 65 73 2d 70 61 74 68 29 0a 20 20 20 20 20 20 20 20 20 e-exists-p.notes-path)..........
20780 20 20 20 28 70 75 73 68 20 6e 6f 74 65 73 2d 70 61 74 68 20 6e 6f 74 65 73 2d 66 69 6c 65 73 29 ...(push.notes-path.notes-files)
207a0 29 29 0a 20 20 20 20 20 20 20 20 3b 3b 20 63 68 65 63 6b 20 70 61 74 68 73 20 61 74 20 6f 72 20 )).........;;.check.paths.at.or.
207c0 61 62 6f 76 65 20 64 6f 63 75 6d 65 6e 74 2d 64 69 72 65 63 74 6f 72 79 0a 20 20 20 20 20 20 20 above.document-directory........
207e0 20 28 6c 65 74 20 28 28 64 69 72 65 63 74 6f 72 79 20 28 6c 6f 63 61 74 65 2d 64 6f 6d 69 6e 61 .(let.((directory.(locate-domina
20800 74 69 6e 67 2d 66 69 6c 65 20 64 6f 63 75 6d 65 6e 74 2d 64 69 72 65 63 74 6f 72 79 20 6e 61 6d ting-file.document-directory.nam
20820 65 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 64 69 72 65 63 74 6f 72 79 0a 20 e)))...........(when.directory..
20840 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 6e 6f 74 65 73 2d 70 61 74 68 20 28 65 78 70 ...........(setq.notes-path.(exp
20860 61 6e 64 2d 66 69 6c 65 2d 6e 61 6d 65 20 6e 61 6d 65 20 64 69 72 65 63 74 6f 72 79 29 29 0a 20 and-file-name.name.directory))..
20880 20 20 20 20 20 20 20 20 20 20 20 28 70 75 73 68 20 6e 6f 74 65 73 2d 70 61 74 68 20 6e 6f 74 65 ...........(push.notes-path.note
208a0 73 2d 66 69 6c 65 73 29 29 29 29 0a 0a 20 20 20 20 20 20 28 73 65 74 71 20 6e 6f 74 65 73 2d 66 s-files))))........(setq.notes-f
208c0 69 6c 65 73 20 28 64 65 6c 65 74 65 2d 64 75 70 73 20 6e 6f 74 65 73 2d 66 69 6c 65 73 29 29 0a iles.(delete-dups.notes-files)).
208e0 0a 20 20 20 20 20 20 3b 3b 20 69 6e 20 65 61 63 68 20 61 6e 6e 6f 74 61 74 69 6e 67 20 6e 6f 74 .......;;.in.each.annotating.not
20900 65 73 20 66 69 6c 65 2c 20 66 69 6e 64 20 74 68 65 20 65 6e 74 72 79 20 66 6f 72 20 74 68 69 73 es.file,.find.the.entry.for.this
20920 20 66 69 6c 65 20 61 6e 64 20 75 70 64 61 74 65 0a 20 20 20 20 20 20 3b 3b 20 74 68 65 20 64 6f .file.and.update.......;;.the.do
20940 63 75 6d 65 6e 74 27 73 20 72 65 6c 61 74 69 76 65 20 70 61 74 68 0a 20 20 20 20 20 20 28 64 6f cument's.relative.path.......(do
20960 6c 69 73 74 20 28 6e 6f 74 65 73 2d 70 61 74 68 20 6e 6f 74 65 73 2d 66 69 6c 65 73 29 0a 20 20 list.(notes-path.notes-files)...
20980 20 20 20 20 20 20 28 77 68 65 6e 20 28 6f 72 67 2d 6e 6f 74 65 72 2d 2d 63 68 65 63 6b 2d 69 66 ......(when.(org-noter--check-if
209a0 2d 64 6f 63 75 6d 65 6e 74 2d 69 73 2d 61 6e 6e 6f 74 61 74 65 64 2d 6f 6e 2d 66 69 6c 65 20 64 -document-is-annotated-on-file.d
209c0 6f 63 75 6d 65 6e 74 2d 70 61 74 68 20 6e 6f 74 65 73 2d 70 61 74 68 29 0a 20 20 20 20 20 20 20 ocument-path.notes-path)........
209e0 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 20 20 20 20 ...(with-temp-buffer............
20a00 20 28 69 6e 73 65 72 74 2d 66 69 6c 65 2d 63 6f 6e 74 65 6e 74 73 20 6e 6f 74 65 73 2d 70 61 74 .(insert-file-contents.notes-pat
20a20 68 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 6f 72 67 2d 77 69 74 68 2d 70 6f 69 6e 74 2d 61 h).............(org-with-point-a
20a40 74 20 28 70 6f 69 6e 74 2d 6d 69 6e 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 61 74 t.(point-min)...............(cat
20a60 63 68 20 27 62 72 65 61 6b 20 3b 73 74 6f 70 20 77 68 65 6e 20 77 65 20 66 69 6e 64 20 61 20 6d ch.'break.;stop.when.we.find.a.m
20a80 61 74 63 68 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 68 69 6c 65 20 28 72 65 2d atch.................(while.(re-
20aa0 73 65 61 72 63 68 2d 66 6f 72 77 61 72 64 20 28 6f 72 67 2d 72 65 2d 70 72 6f 70 65 72 74 79 20 search-forward.(org-re-property.
20ac0 6f 72 67 2d 6e 6f 74 65 72 2d 70 72 6f 70 65 72 74 79 2d 64 6f 63 2d 66 69 6c 65 29 20 6e 69 6c org-noter-property-doc-file).nil
20ae0 29 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 70 72 6f 70 65 )...................(let.((prope
20b00 72 74 79 2d 76 61 6c 75 65 20 28 6d 61 74 63 68 2d 73 74 72 69 6e 67 20 33 29 29 0a 20 20 20 20 rty-value.(match-string.3)).....
20b20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6e 6f 74 65 73 2d 64 69 72 65 63 ....................(notes-direc
20b40 74 6f 72 79 20 28 66 69 6c 65 2d 6e 61 6d 65 2d 64 69 72 65 63 74 6f 72 79 20 6e 6f 74 65 73 2d tory.(file-name-directory.notes-
20b60 70 61 74 68 29 29 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 path))).....................(whe
20b80 6e 20 28 73 74 72 69 6e 67 2d 65 71 75 61 6c 20 28 65 78 70 61 6e 64 2d 66 69 6c 65 2d 6e 61 6d n.(string-equal.(expand-file-nam
20ba0 65 20 70 72 6f 70 65 72 74 79 2d 76 61 6c 75 65 20 6e 6f 74 65 73 2d 64 69 72 65 63 74 6f 72 79 e.property-value.notes-directory
20bc0 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 )...............................
20be0 20 20 20 20 20 20 20 20 20 20 64 6f 63 75 6d 65 6e 74 2d 70 61 74 68 29 0a 20 20 20 20 20 20 20 ..........document-path)........
20c00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 64 6f 63 2d 72 65 6c 61 74 69 ...............(let.((doc-relati
20c20 76 65 2d 6e 61 6d 65 20 28 66 69 6c 65 2d 72 65 6c 61 74 69 76 65 2d 6e 61 6d 65 20 6e 65 77 2d ve-name.(file-relative-name.new-
20c40 64 6f 63 75 6d 65 6e 74 2d 70 61 74 68 20 6e 6f 74 65 73 2d 64 69 72 65 63 74 6f 72 79 29 29 0a document-path.notes-directory)).
20c60 20 20 20 20 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 73 67 29 ............................msg)
20c80 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 3b 3b 20 73 79 6e 63 .........................;;.sync
20ca0 20 74 68 65 20 6e 65 77 20 64 6f 63 75 6d 65 6e 74 20 70 61 74 68 20 69 6e 20 74 68 69 73 20 6e .the.new.document.path.in.this.n
20cc0 6f 74 65 73 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 otes.file.......................
20ce0 20 20 28 6f 72 67 2d 73 65 74 2d 70 72 6f 70 65 72 74 79 20 6f 72 67 2d 6e 6f 74 65 72 2d 70 72 ..(org-set-property.org-noter-pr
20d00 6f 70 65 72 74 79 2d 64 6f 63 2d 66 69 6c 65 20 64 6f 63 2d 72 65 6c 61 74 69 76 65 2d 6e 61 6d operty-doc-file.doc-relative-nam
20d20 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 3b 3b 20 77 61 e).........................;;.wa
20d40 72 6e 20 61 67 61 69 6e 73 74 20 64 6f 63 73 20 74 68 61 74 20 72 65 73 69 64 65 20 61 62 6f 76 rn.against.docs.that.reside.abov
20d60 65 20 6e 6f 74 65 73 20 69 6e 20 70 61 74 68 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 e.notes.in.path.................
20d80 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 28 73 74 72 69 6e 67 2d 70 72 65 66 69 78 2d 70 20 22 ........(when.(string-prefix-p."
20da0 2e 2e 2f 22 20 64 6f 63 2d 72 65 6c 61 74 69 76 65 2d 6e 61 6d 65 29 0a 20 20 20 20 20 20 20 20 ../".doc-relative-name).........
20dc0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 6d 73 67 0a 20 20 20 20 ..................(setq.msg.....
20de0 20 20 20 20 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 ............................(for
20e00 6d 61 74 2d 6d 65 73 73 61 67 65 20 22 44 6f 63 75 6d 65 6e 74 20 66 69 6c 65 20 68 61 73 20 6d mat-message."Document.file.has.m
20e20 6f 76 65 64 20 61 62 6f 76 65 20 6e 6f 74 65 73 20 66 69 6c 65 20 28 25 73 29 2e 20 60 6f 72 67 oved.above.notes.file.(%s)..`org
20e40 2d 6e 6f 74 65 72 27 20 77 69 6c 6c 20 6e 6f 74 20 62 65 20 61 62 6c 65 20 74 6f 20 66 69 6e 64 -noter'.will.not.be.able.to.find
20e60 20 74 68 65 20 6e 6f 74 65 73 20 66 69 6c 65 20 66 72 6f 6d 20 74 68 65 20 6e 65 77 20 64 6f 63 .the.notes.file.from.the.new.doc
20e80 75 6d 65 6e 74 20 70 61 74 68 20 28 25 73 29 2e 22 20 6e 6f 74 65 73 2d 70 61 74 68 20 64 6f 63 ument.path.(%s).".notes-path.doc
20ea0 2d 72 65 6c 61 74 69 76 65 2d 6e 61 6d 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 -relative-name))................
20ec0 20 20 20 20 20 20 20 20 20 20 20 28 64 69 73 70 6c 61 79 2d 77 61 72 6e 69 6e 67 20 27 6f 72 67 ...........(display-warning.'org
20ee0 2d 6e 6f 74 65 72 20 6d 73 67 20 3a 77 61 72 6e 69 6e 67 29 29 29 0a 20 20 20 20 20 20 20 20 20 -noter.msg.:warning)))..........
20f00 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 72 69 74 65 2d 66 69 6c 65 20 6e 6f 74 65 73 2d 70 .............(write-file.notes-p
20f20 61 74 68 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 3b ath.nil).......................;
20f40 3b 20 63 68 61 6e 67 65 20 74 68 65 20 6e 6f 74 65 73 20 66 69 6c 65 6e 61 6d 65 20 69 66 20 69 ;.change.the.notes.filename.if.i
20f60 74 20 77 61 73 20 62 61 73 65 64 20 6f 6e 20 74 68 65 20 64 6f 63 75 6d 65 6e 74 20 66 69 6c 65 t.was.based.on.the.document.file
20f80 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 28 69 66 20 28 name.......................(if.(
20fa0 73 74 72 69 6e 67 2d 65 71 75 61 6c 20 28 66 69 6c 65 2d 6e 61 6d 65 2d 62 61 73 65 20 6e 6f 74 string-equal.(file-name-base.not
20fc0 65 73 2d 70 61 74 68 29 20 64 6f 63 75 6d 65 6e 74 2d 62 61 73 65 29 0a 20 20 20 20 20 20 20 20 es-path).document-base).........
20fe0 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 6e 65 77 2d 6e 6f 74 ..................(let.((new-not
21000 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 72 65 63 es-path.(concat.(file-name-direc
21020 74 6f 72 79 20 6e 6f 74 65 73 2d 70 61 74 68 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 tory.notes-path)................
21040 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ................................
21060 20 20 20 20 20 20 20 20 20 28 66 69 6c 65 2d 6e 61 6d 65 2d 62 61 73 65 20 6e 65 77 2d 64 6f 63 .........(file-name-base.new-doc
21080 75 6d 65 6e 74 2d 70 61 74 68 29 20 22 2e 6f 72 67 22 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 ument-path).".org")))...........
210a0 20 20 20 20 20 20 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 6e ..................(rename-file.n
210c0 6f 74 65 73 2d 70 61 74 68 20 6e 65 77 2d 6e 6f 74 65 73 2d 70 61 74 68 29 29 29 0a 20 20 20 20 otes-path.new-notes-path))).....
210e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 74 68 72 6f 77 20 27 62 72 65 61 6b 20 ..................(throw.'break.
21100 74 29 29 29 29 29 29 29 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 6f 72 67 2d 6e 6f 74 65 72 2d t))))))))))))..(defun.org-noter-
21120 2d 75 70 64 61 74 65 2d 6e 6f 74 65 73 2d 72 65 6e 61 6d 65 2d 69 6e 2d 6e 6f 74 65 73 20 28 6e -update-notes-rename-in-notes.(n
21140 6f 74 65 73 2d 70 61 74 68 20 6e 65 77 2d 6e 6f 74 65 73 2d 70 61 74 68 20 26 6f 70 74 69 6f 6e otes-path.new-notes-path.&option
21160 61 6c 20 5f 6f 6b 2d 69 66 2d 61 6c 72 65 61 64 79 2d 65 78 69 73 74 73 29 0a 20 20 22 55 70 64 al._ok-if-already-exists)..."Upd
21180 61 74 65 20 6f 72 67 2d 6e 6f 74 65 72 20 72 65 66 65 72 65 6e 63 65 73 20 74 6f 20 64 6f 63 73 ate.org-noter.references.to.docs
211a0 20 77 68 65 6e 20 6e 6f 74 65 73 20 66 69 6c 65 20 69 73 20 6d 6f 76 65 64 2e 0a 0a 4e 4f 54 45 .when.notes.file.is.moved...NOTE
211c0 53 2d 50 41 54 48 20 69 73 20 74 68 65 20 6f 72 69 67 69 6e 61 6c 20 66 69 6c 65 6e 61 6d 65 2e S-PATH.is.the.original.filename.
211e0 0a 4e 45 57 2d 4e 4f 54 45 53 2d 50 41 54 48 20 69 73 20 74 68 65 20 6e 65 77 20 66 69 6c 65 6e .NEW-NOTES-PATH.is.the.new.filen
21200 61 6d 65 2e 0a 0a 43 61 6c 6c 20 60 6f 72 67 2d 6e 6f 74 65 72 2d 65 6e 61 62 6c 65 2d 73 79 6e ame...Call.`org-noter-enable-syn
21220 63 2d 72 65 6e 61 6d 65 73 27 20 74 6f 20 65 6e 61 62 6c 65 20 74 68 69 73 20 66 65 61 74 75 72 c-renames'.to.enable.this.featur
21240 65 20 61 6e 64 0a 60 6f 72 67 2d 6e 6f 74 65 72 2d 64 69 73 61 62 6c 65 2d 73 79 6e 63 2d 72 65 e.and.`org-noter-disable-sync-re
21260 6e 61 6d 65 73 27 20 74 6f 20 64 69 73 61 62 6c 65 20 69 74 2e 0a 0a 54 68 69 73 20 61 64 76 69 names'.to.disable.it...This.advi
21280 63 65 20 72 75 6e 73 20 61 66 74 65 72 20 60 64 69 72 65 64 2d 72 65 6e 61 6d 65 2d 66 69 6c 65 ce.runs.after.`dired-rename-file
212a0 27 20 6d 6f 76 65 73 20 61 6e 20 27 2e 6f 72 67 27 20 66 69 6c 65 20 74 6f 0a 61 20 64 69 66 66 '.moves.an.'.org'.file.to.a.diff
212c0 65 72 65 6e 74 20 64 69 72 65 63 74 6f 72 79 2e 0a 0a 49 66 20 74 68 65 20 6e 6f 74 65 73 20 66 erent.directory...If.the.notes.f
212e0 69 6c 65 20 69 73 20 6d 6f 76 65 64 20 74 6f 20 61 20 70 61 74 68 20 62 65 6c 6f 77 20 61 6e 79 ile.is.moved.to.a.path.below.any
21300 20 6f 66 20 69 74 73 20 6c 69 6e 6b 65 64 0a 64 6f 63 75 6d 65 6e 74 73 2c 20 61 20 77 61 72 6e .of.its.linked.documents,.a.warn
21320 69 6e 67 20 77 69 6c 6c 20 62 65 20 69 73 73 75 65 64 2c 20 62 75 74 20 74 68 65 20 73 79 6e 63 ing.will.be.issued,.but.the.sync
21340 20 77 69 6c 6c 20 70 72 6f 63 65 65 64 2e 0a 41 6e 20 60 6f 72 67 2d 6e 6f 74 65 72 27 20 73 65 .will.proceed..An.`org-noter'.se
21360 73 73 69 6f 6e 20 63 61 6e 20 73 74 69 6c 6c 20 62 65 20 69 6e 69 74 69 61 74 65 64 20 66 72 6f ssion.can.still.be.initiated.fro
21380 6d 20 74 68 65 20 6e 6f 74 65 73 0a 66 69 6c 65 2c 20 62 75 74 20 6e 6f 74 20 76 69 63 65 2d 76 m.the.notes.file,.but.not.vice-v
213a0 65 72 73 61 2c 20 62 75 74 20 66 75 74 75 72 65 20 72 65 6e 61 6d 65 73 20 6f 66 20 74 68 65 20 ersa,.but.future.renames.of.the.
213c0 6e 6f 74 65 73 20 66 69 6c 65 0a 77 69 6c 6c 20 63 6f 6e 74 69 6e 75 65 20 74 6f 20 73 79 6e 63 notes.file.will.continue.to.sync
213e0 20 74 68 65 20 64 6f 63 75 6d 65 6e 74 20 72 65 66 65 72 65 6e 63 65 73 2e 22 0a 0a 20 20 28 77 .the.document.references."....(w
21400 68 65 6e 20 28 61 6e 64 20 28 73 74 72 69 6e 67 2d 65 71 75 61 6c 20 28 66 69 6c 65 2d 6e 61 6d hen.(and.(string-equal.(file-nam
21420 65 2d 65 78 74 65 6e 73 69 6f 6e 20 6e 6f 74 65 73 2d 70 61 74 68 29 20 22 6f 72 67 22 29 0a 20 e-extension.notes-path)."org")..
21440 20 20 20 20 20 20 20 20 20 20 20 20 28 6e 6f 74 20 28 66 69 6c 65 2d 65 78 69 73 74 73 2d 70 20 ............(not.(file-exists-p.
21460 6e 6f 74 65 73 2d 70 61 74 68 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 69 6c 65 2d notes-path))..............(file-
21480 65 78 69 73 74 73 2d 70 20 6e 65 77 2d 6e 6f 74 65 73 2d 70 61 74 68 29 0a 20 20 20 20 20 20 20 exists-p.new-notes-path)........
214a0 20 20 20 20 20 20 28 6e 6f 74 20 28 73 74 72 69 6e 67 2d 65 71 75 61 6c 20 28 66 69 6c 65 2d 6e ......(not.(string-equal.(file-n
214c0 61 6d 65 2d 64 69 72 65 63 74 6f 72 79 20 6e 6f 74 65 73 2d 70 61 74 68 29 0a 20 20 20 20 20 20 ame-directory.notes-path).......
214e0 20 20 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 2d ..........................(file-
21500 6e 61 6d 65 2d 64 69 72 65 63 74 6f 72 79 20 6e 65 77 2d 6e 6f 74 65 73 2d 70 61 74 68 29 29 29 name-directory.new-notes-path)))
21520 29 0a 20 20 20 20 3b 3b 20 63 6f 6e 74 69 6e 75 65 20 69 66 20 69 74 20 69 73 20 61 6e 20 6f 72 ).....;;.continue.if.it.is.an.or
21540 67 20 66 69 6c 65 0a 20 20 20 20 3b 3b 20 61 6e 64 20 74 68 65 20 72 65 6e 61 6d 65 20 77 61 73 g.file.....;;.and.the.rename.was
21560 20 73 75 63 63 65 73 73 66 75 6c 0a 20 20 20 20 3b 3b 20 61 6e 64 20 74 68 65 20 64 69 72 65 63 .successful.....;;.and.the.direc
21580 74 6f 72 79 20 63 68 61 6e 67 65 73 0a 20 20 20 20 28 6c 65 74 2a 20 28 3b 3b 28 64 6f 63 75 6d tory.changes.....(let*.(;;(docum
215a0 65 6e 74 2d 6e 61 6d 65 20 28 66 69 6c 65 2d 6e 61 6d 65 2d 6e 6f 6e 64 69 72 65 63 74 6f 72 79 ent-name.(file-name-nondirectory
215c0 20 64 6f 63 75 6d 65 6e 74 2d 70 61 74 68 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 3b 3b 28 64 .document-path))............;;(d
215e0 6f 63 75 6d 65 6e 74 2d 62 61 73 65 20 28 66 69 6c 65 2d 6e 61 6d 65 2d 62 61 73 65 20 64 6f 63 ocument-base.(file-name-base.doc
21600 75 6d 65 6e 74 2d 6e 61 6d 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 20 20 20 20 6e 6f 74 ument-name))............(....not
21620 65 73 2d 64 69 72 65 63 74 6f 72 79 20 28 66 69 6c 65 2d 6e 61 6d 65 2d 64 69 72 65 63 74 6f 72 es-directory.(file-name-director
21640 79 20 6e 6f 74 65 73 2d 70 61 74 68 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 6e 65 77 2d 6e y.notes-path))............(new-n
21660 6f 74 65 73 2d 64 69 72 65 63 74 6f 72 79 20 28 66 69 6c 65 2d 6e 61 6d 65 2d 64 69 72 65 63 74 otes-directory.(file-name-direct
21680 6f 72 79 20 6e 65 77 2d 6e 6f 74 65 73 2d 70 61 74 68 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 ory.new-notes-path))............
216a0 28 70 72 6f 62 6c 65 6d 2d 70 61 74 68 2d 6c 69 73 74 20 20 20 6e 69 6c 29 0a 20 20 20 20 20 20 (problem-path-list...nil).......
216c0 20 20 20 20 20 28 74 68 69 73 2d 6f 72 67 2d 66 69 6c 65 2d 75 73 65 73 2d 6e 6f 74 65 72 20 6e .....(this-org-file-uses-noter.n
216e0 69 6c 29 29 0a 0a 20 20 20 20 20 20 3b 3b 20 75 70 64 61 74 65 20 65 61 63 68 20 64 6f 63 75 6d il))........;;.update.each.docum
21700 65 6e 74 27 73 20 72 65 6c 61 74 69 76 65 20 70 61 74 68 0a 20 20 20 20 20 20 28 77 69 74 68 2d ent's.relative.path.......(with-
21720 74 65 6d 70 2d 62 75 66 66 65 72 0a 20 20 20 20 20 20 20 20 28 69 6e 73 65 72 74 2d 66 69 6c 65 temp-buffer.........(insert-file
21740 2d 63 6f 6e 74 65 6e 74 73 20 6e 65 77 2d 6e 6f 74 65 73 2d 70 61 74 68 29 0a 20 20 20 20 20 20 -contents.new-notes-path).......
21760 20 20 28 6f 72 67 2d 77 69 74 68 2d 70 6f 69 6e 74 2d 61 74 20 28 70 6f 69 6e 74 2d 6d 69 6e 29 ..(org-with-point-at.(point-min)
21780 0a 20 20 20 20 20 20 20 20 20 20 28 77 68 69 6c 65 20 28 72 65 2d 73 65 61 72 63 68 2d 66 6f 72 ...........(while.(re-search-for
217a0 77 61 72 64 20 28 6f 72 67 2d 72 65 2d 70 72 6f 70 65 72 74 79 20 6f 72 67 2d 6e 6f 74 65 72 2d ward.(org-re-property.org-noter-
217c0 70 72 6f 70 65 72 74 79 2d 64 6f 63 2d 66 69 6c 65 29 20 6e 69 6c 20 74 29 0a 20 20 20 20 20 20 property-doc-file).nil.t).......
217e0 20 20 20 20 20 20 28 6c 65 74 2a 20 28 28 20 20 20 20 64 6f 63 2d 66 69 6c 65 2d 72 65 6c 2d 70 ......(let*.((....doc-file-rel-p
21800 61 74 68 20 28 6d 61 74 63 68 2d 73 74 72 69 6e 67 20 33 29 29 0a 20 20 20 20 20 20 20 20 20 20 ath.(match-string.3))...........
21820 20 20 20 20 20 20 20 20 20 28 20 20 20 20 64 6f 63 2d 66 69 6c 65 2d 61 62 73 2d 70 61 74 68 20 .........(....doc-file-abs-path.
21840 28 65 78 70 61 6e 64 2d 66 69 6c 65 2d 6e 61 6d 65 20 20 20 64 6f 63 2d 66 69 6c 65 2d 72 65 6c (expand-file-name...doc-file-rel
21860 2d 70 61 74 68 20 6e 6f 74 65 73 2d 64 69 72 65 63 74 6f 72 79 29 29 0a 20 20 20 20 20 20 20 20 -path.notes-directory)).........
21880 20 20 20 20 20 20 20 20 20 20 20 28 6e 65 77 2d 64 6f 63 2d 66 69 6c 65 2d 72 65 6c 2d 70 61 74 ...........(new-doc-file-rel-pat
218a0 68 20 28 66 69 6c 65 2d 72 65 6c 61 74 69 76 65 2d 6e 61 6d 65 20 64 6f 63 2d 66 69 6c 65 2d 61 h.(file-relative-name.doc-file-a
218c0 62 73 2d 70 61 74 68 20 6e 65 77 2d 6e 6f 74 65 73 2d 64 69 72 65 63 74 6f 72 79 29 29 29 0a 20 bs-path.new-notes-directory)))..
218e0 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 74 68 69 73 2d 6f 72 67 2d 66 69 6c 65 .............(setq.this-org-file
21900 2d 75 73 65 73 2d 6e 6f 74 65 72 20 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 -uses-noter.t)...............;;.
21920 73 79 6e 63 20 74 68 65 20 64 6f 63 75 6d 65 6e 74 20 70 61 74 68 20 74 6f 20 74 68 65 20 6e 65 sync.the.document.path.to.the.ne
21940 77 20 6e 6f 74 65 73 20 66 69 6c 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6f 72 67 2d w.notes.file...............(org-
21960 73 65 74 2d 70 72 6f 70 65 72 74 79 20 6f 72 67 2d 6e 6f 74 65 72 2d 70 72 6f 70 65 72 74 79 2d set-property.org-noter-property-
21980 64 6f 63 2d 66 69 6c 65 20 6e 65 77 2d 64 6f 63 2d 66 69 6c 65 2d 72 65 6c 2d 70 61 74 68 29 0a doc-file.new-doc-file-rel-path).
219a0 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 29 0a 20 20 20 ..............(forward-line)....
219c0 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 61 64 64 20 70 72 6f 62 6c 65 6d 61 74 69 63 20 70 61 ...........;;.add.problematic.pa
219e0 74 68 73 20 74 6f 20 74 68 65 20 6c 69 73 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 ths.to.the.list...............(w
21a00 68 65 6e 20 28 73 74 72 69 6e 67 2d 70 72 65 66 69 78 2d 70 20 22 2e 2e 2f 22 20 6e 65 77 2d 64 hen.(string-prefix-p."../".new-d
21a20 6f 63 2d 66 69 6c 65 2d 72 65 6c 2d 70 61 74 68 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 oc-file-rel-path)...............
21a40 20 20 28 70 75 73 68 20 6e 65 77 2d 64 6f 63 2d 66 69 6c 65 2d 72 65 6c 2d 70 61 74 68 20 70 72 ..(push.new-doc-file-rel-path.pr
21a60 6f 62 6c 65 6d 2d 70 61 74 68 2d 6c 69 73 74 29 29 29 29 29 0a 20 20 20 20 20 20 20 20 3b 3b 20 oblem-path-list))))).........;;.
21a80 77 61 72 6e 20 61 67 61 69 6e 73 74 20 64 6f 63 73 20 74 68 61 74 20 72 65 73 69 64 65 20 61 62 warn.against.docs.that.reside.ab
21aa0 6f 76 65 20 6e 6f 74 65 73 20 69 6e 20 70 61 74 68 0a 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 ove.notes.in.path.........(when.
21ac0 70 72 6f 62 6c 65 6d 2d 70 61 74 68 2d 6c 69 73 74 0a 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 problem-path-list...........(let
21ae0 20 28 28 6d 73 67 20 28 66 6f 72 6d 61 74 2d 6d 65 73 73 61 67 65 0a 20 20 20 20 20 20 20 20 20 .((msg.(format-message..........
21b00 20 20 20 20 20 20 20 20 20 20 20 20 20 22 4e 6f 74 65 73 20 66 69 6c 65 20 68 61 73 20 6d 6f 76 ............."Notes.file.has.mov
21b20 65 64 20 62 65 6c 6f 77 20 73 6f 6d 65 20 64 6f 63 75 6d 65 6e 74 73 2e 20 60 6f 72 67 2d 6e 6f ed.below.some.documents..`org-no
21b40 74 65 72 27 20 77 69 6c 6c 20 6e 6f 74 20 62 65 20 61 62 6c 65 20 74 6f 20 66 69 6e 64 20 74 68 ter'.will.not.be.able.to.find.th
21b60 65 20 6e 6f 74 65 73 20 66 69 6c 65 20 66 72 6f 6d 20 74 68 65 20 64 6f 63 75 6d 65 6e 74 20 70 e.notes.file.from.the.document.p
21b80 61 74 68 20 66 6f 72 20 74 68 65 73 65 20 66 69 6c 65 73 3a 22 29 29 29 0a 20 20 20 20 20 20 20 ath.for.these.files:")))........
21ba0 20 20 20 20 20 28 64 6f 6c 69 73 74 20 28 64 6f 63 2d 70 61 74 68 20 70 72 6f 62 6c 65 6d 2d 70 .....(dolist.(doc-path.problem-p
21bc0 61 74 68 2d 6c 69 73 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 6d 73 ath-list)...............(setq.ms
21be0 67 20 28 63 6f 6e 63 61 74 20 6d 73 67 20 28 66 6f 72 6d 61 74 2d 6d 65 73 73 61 67 65 20 22 5c g.(concat.msg.(format-message."\
21c00 6e 25 73 22 20 64 6f 63 2d 70 61 74 68 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 64 n%s".doc-path)))).............(d
21c20 69 73 70 6c 61 79 2d 77 61 72 6e 69 6e 67 20 27 6f 72 67 2d 6e 6f 74 65 72 20 6d 73 67 20 3a 77 isplay-warning.'org-noter.msg.:w
21c40 61 72 6e 69 6e 67 29 29 29 0a 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 74 68 69 73 2d 6f 72 67 arning))).........(when.this-org
21c60 2d 66 69 6c 65 2d 75 73 65 73 2d 6e 6f 74 65 72 0a 20 20 20 20 20 20 20 20 20 20 28 77 72 69 74 -file-uses-noter...........(writ
21c80 65 2d 66 69 6c 65 20 6e 65 77 2d 6e 6f 74 65 73 2d 70 61 74 68 20 6e 69 6c 29 29 29 29 29 29 0a e-file.new-notes-path.nil)))))).
21ca0 0a 3b 3b 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d .;;.----------------------------
21cc0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d --------------------------------
21ce0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 3b 3b 3b 20 55 73 65 72 20 63 6f --------------------.;;;.User.co
21d00 6d 6d 61 6e 64 73 0a 28 64 65 66 75 6e 20 6f 72 67 2d 6e 6f 74 65 72 2d 73 65 74 2d 73 74 61 72 mmands.(defun.org-noter-set-star
21d20 74 2d 6c 6f 63 61 74 69 6f 6e 20 28 26 6f 70 74 69 6f 6e 61 6c 20 61 72 67 29 0a 20 20 22 57 68 t-location.(&optional.arg)..."Wh
21d40 65 6e 20 6f 70 65 6e 69 6e 67 20 61 20 73 65 73 73 69 6f 6e 20 77 69 74 68 20 74 68 69 73 20 64 en.opening.a.session.with.this.d
21d60 6f 63 75 6d 65 6e 74 2c 20 67 6f 20 74 6f 20 74 68 65 20 63 75 72 72 65 6e 74 20 6c 6f 63 61 74 ocument,.go.to.the.current.locat
21d80 69 6f 6e 2e 0a 57 69 74 68 20 61 20 70 72 65 66 69 78 20 41 52 47 2c 20 72 65 6d 6f 76 65 20 73 ion..With.a.prefix.ARG,.remove.s
21da0 74 61 72 74 20 6c 6f 63 61 74 69 6f 6e 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 20 22 tart.location."...(interactive."
21dc0 50 22 29 0a 20 20 28 6f 72 67 2d 6e 6f 74 65 72 2d 2d 77 69 74 68 2d 76 61 6c 69 64 2d 73 65 73 P")...(org-noter--with-valid-ses
21de0 73 69 6f 6e 0a 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 sion....(let.((inhibit-read-only
21e00 20 74 29 0a 20 20 20 20 20 20 20 20 20 28 61 73 74 20 28 6f 72 67 2d 6e 6f 74 65 72 2d 2d 70 61 .t)..........(ast.(org-noter--pa
21e20 72 73 65 2d 72 6f 6f 74 29 29 0a 20 20 20 20 20 20 20 20 20 28 6c 6f 63 61 74 69 6f 6e 20 28 6f rse-root))..........(location.(o
21e40 72 67 2d 6e 6f 74 65 72 2d 2d 64 6f 63 2d 61 70 70 72 6f 78 2d 6c 6f 63 61 74 69 6f 6e 0a 20 20 rg-noter--doc-approx-location...
21e60 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 63 61 6c 6c 65 64 2d ..................(when.(called-
21e80 69 6e 74 65 72 61 63 74 69 76 65 6c 79 2d 70 20 27 61 6e 79 29 20 27 69 6e 74 65 72 61 63 74 69 interactively-p.'any).'interacti
21ea0 76 65 29 29 29 29 0a 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 ve))))......(with-current-buffer
21ec0 20 28 6f 72 67 2d 6e 6f 74 65 72 2d 2d 73 65 73 73 69 6f 6e 2d 6e 6f 74 65 73 2d 62 75 66 66 65 .(org-noter--session-notes-buffe
21ee0 72 20 73 65 73 73 69 6f 6e 29 0a 20 20 20 20 20 20 20 28 6f 72 67 2d 77 69 74 68 2d 77 69 64 65 r.session)........(org-with-wide
21f00 2d 62 75 66 66 65 72 0a 20 20 20 20 20 20 20 20 28 67 6f 74 6f 2d 63 68 61 72 20 28 6f 72 67 2d -buffer.........(goto-char.(org-
21f20 65 6c 65 6d 65 6e 74 2d 70 72 6f 70 65 72 74 79 20 3a 62 65 67 69 6e 20 61 73 74 29 29 0a 20 20 element-property.:begin.ast))...
21f40 20 20 20 20 20 20 28 69 66 20 61 72 67 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 6f 72 67 2d 65 ......(if.arg.............(org-e
21f60 6e 74 72 79 2d 64 65 6c 65 74 65 20 6e 69 6c 20 6f 72 67 2d 6e 6f 74 65 72 2d 70 72 6f 70 65 72 ntry-delete.nil.org-noter-proper
21f80 74 79 2d 6e 6f 74 65 2d 6c 6f 63 61 74 69 6f 6e 29 0a 20 20 20 20 20 20 20 20 20 20 28 6f 72 67 ty-note-location)...........(org
21fa0 2d 65 6e 74 72 79 2d 70 75 74 20 6e 69 6c 20 6f 72 67 2d 6e 6f 74 65 72 2d 70 72 6f 70 65 72 74 -entry-put.nil.org-noter-propert
21fc0 79 2d 6e 6f 74 65 2d 6c 6f 63 61 74 69 6f 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 y-note-location.................
21fe0 20 20 20 20 20 20 20 20 20 28 6f 72 67 2d 6e 6f 74 65 72 2d 2d 70 72 65 74 74 79 2d 70 72 69 6e .........(org-noter--pretty-prin
22000 74 2d 6c 6f 63 61 74 69 6f 6e 20 6c 6f 63 61 74 69 6f 6e 29 29 29 29 29 29 29 29 0a 0a 28 64 65 t-location.location))))))))..(de
22020 66 75 6e 20 6f 72 67 2d 6e 6f 74 65 72 2d 73 65 74 2d 61 75 74 6f 2d 73 61 76 65 2d 6c 61 73 74 fun.org-noter-set-auto-save-last
22040 2d 6c 6f 63 61 74 69 6f 6e 20 28 61 72 67 29 0a 20 20 22 54 6f 67 67 6c 65 20 73 61 76 69 6e 67 -location.(arg)..."Toggle.saving
22060 20 74 68 65 20 6c 61 73 74 20 76 69 73 69 74 65 64 20 6c 6f 63 61 74 69 6f 6e 20 66 6f 72 20 74 .the.last.visited.location.for.t
22080 68 69 73 20 64 6f 63 75 6d 65 6e 74 2e 0a 57 69 74 68 20 61 20 70 72 65 66 69 78 20 41 52 47 20 his.document..With.a.prefix.ARG.
220a0 5c 5c 5b 75 6e 69 76 65 72 73 61 6c 2d 61 72 67 75 6d 65 6e 74 5d 2c 20 64 65 6c 65 74 65 20 74 \\[universal-argument],.delete.t
220c0 68 65 20 63 75 72 72 65 6e 74 0a 73 65 74 74 69 6e 67 20 61 6e 64 20 75 73 65 20 74 68 65 20 64 he.current.setting.and.use.the.d
220e0 65 66 61 75 6c 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 efault."...(interactive."P")...(
22100 6f 72 67 2d 6e 6f 74 65 72 2d 2d 77 69 74 68 2d 76 61 6c 69 64 2d 73 65 73 73 69 6f 6e 0a 20 20 org-noter--with-valid-session...
22120 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 0a 20 20 20 .(let.((inhibit-read-only.t)....
22140 20 20 20 20 20 20 28 61 73 74 20 28 6f 72 67 2d 6e 6f 74 65 72 2d 2d 70 61 72 73 65 2d 72 6f 6f ......(ast.(org-noter--parse-roo
22160 74 29 29 0a 20 20 20 20 20 20 20 20 20 28 6e 65 77 2d 73 65 74 74 69 6e 67 20 28 69 66 20 61 72 t))..........(new-setting.(if.ar
22180 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 6f 72 67 2d g...........................org-
221a0 6e 6f 74 65 72 2d 61 75 74 6f 2d 73 61 76 65 2d 6c 61 73 74 2d 6c 6f 63 61 74 69 6f 6e 0a 20 20 noter-auto-save-last-location...
221c0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6e 6f 74 20 28 6f 72 67 2d ......................(not.(org-
221e0 6e 6f 74 65 72 2d 2d 73 65 73 73 69 6f 6e 2d 61 75 74 6f 2d 73 61 76 65 2d 6c 61 73 74 2d 6c 6f noter--session-auto-save-last-lo
22200 63 61 74 69 6f 6e 20 73 65 73 73 69 6f 6e 29 29 29 29 29 0a 20 20 20 20 20 28 73 65 74 66 20 28 cation.session)))))......(setf.(
22220 6f 72 67 2d 6e 6f 74 65 72 2d 2d 73 65 73 73 69 6f 6e 2d 61 75 74 6f 2d 73 61 76 65 2d 6c 61 73 org-noter--session-auto-save-las
22240 74 2d 6c 6f 63 61 74 69 6f 6e 20 73 65 73 73 69 6f 6e 29 0a 20 20 20 20 20 20 20 20 20 20 20 6e t-location.session)............n
22260 65 77 2d 73 65 74 74 69 6e 67 29 0a 20 20 20 20 20 28 77 69 74 68 2d 63 75 72 72 65 6e 74 2d 62 ew-setting)......(with-current-b
22280 75 66 66 65 72 20 28 6f 72 67 2d 6e 6f 74 65 72 2d 2d 73 65 73 73 69 6f 6e 2d 6e 6f 74 65 73 2d uffer.(org-noter--session-notes-
222a0 62 75 66 66 65 72 20 73 65 73 73 69 6f 6e 29 0a 20 20 20 20 20 20 20 28 6f 72 67 2d 77 69 74 68 buffer.session)........(org-with
222c0 2d 77 69 64 65 2d 62 75 66 66 65 72 0a 20 20 20 20 20 20 20 20 28 67 6f 74 6f 2d 63 68 61 72 20 -wide-buffer.........(goto-char.
222e0 28 6f 72 67 2d 65 6c 65 6d 65 6e 74 2d 70 72 6f 70 65 72 74 79 20 3a 62 65 67 69 6e 20 61 73 74 (org-element-property.:begin.ast
22300 29 29 0a 20 20 20 20 20 20 20 20 28 69 66 20 61 72 67 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 )).........(if.arg.............(
22320 6f 72 67 2d 65 6e 74 72 79 2d 64 65 6c 65 74 65 20 6e 69 6c 20 6f 72 67 2d 6e 6f 74 65 72 2d 2d org-entry-delete.nil.org-noter--
22340 70 72 6f 70 65 72 74 79 2d 61 75 74 6f 2d 73 61 76 65 2d 6c 61 73 74 2d 6c 6f 63 61 74 69 6f 6e property-auto-save-last-location
22360 29 0a 20 20 20 20 20 20 20 20 20 20 28 6f 72 67 2d 65 6e 74 72 79 2d 70 75 74 20 6e 69 6c 20 6f )...........(org-entry-put.nil.o
22380 72 67 2d 6e 6f 74 65 72 2d 2d 70 72 6f 70 65 72 74 79 2d 61 75 74 6f 2d 73 61 76 65 2d 6c 61 73 rg-noter--property-auto-save-las
223a0 74 2d 6c 6f 63 61 74 69 6f 6e 20 28 66 6f 72 6d 61 74 20 22 25 73 22 20 6e 65 77 2d 73 65 74 74 t-location.(format."%s".new-sett
223c0 69 6e 67 29 29 29 0a 20 20 20 20 20 20 20 20 28 75 6e 6c 65 73 73 20 6e 65 77 2d 73 65 74 74 69 ing))).........(unless.new-setti
223e0 6e 67 20 28 6f 72 67 2d 65 6e 74 72 79 2d 64 65 6c 65 74 65 20 6e 69 6c 20 6f 72 67 2d 6e 6f 74 ng.(org-entry-delete.nil.org-not
22400 65 72 2d 70 72 6f 70 65 72 74 79 2d 6e 6f 74 65 2d 6c 6f 63 61 74 69 6f 6e 29 29 29 29 29 29 29 er-property-note-location)))))))
22420 0a 0a 28 64 65 66 75 6e 20 6f 72 67 2d 6e 6f 74 65 72 2d 73 65 74 2d 68 69 64 65 2d 6f 74 68 65 ..(defun.org-noter-set-hide-othe
22440 72 20 28 61 72 67 29 0a 20 20 22 54 6f 67 67 6c 65 20 68 69 64 69 6e 67 20 6f 74 68 65 72 20 68 r.(arg)..."Toggle.hiding.other.h
22460 65 61 64 69 6e 67 73 20 66 6f 72 20 74 68 65 20 63 75 72 72 65 6e 74 20 73 65 73 73 69 6f 6e 2e eadings.for.the.current.session.
22480 0a 0a 2d 20 57 69 74 68 20 61 20 70 72 65 66 69 78 20 41 52 47 20 5c 5c 5b 75 6e 69 76 65 72 73 ..-.With.a.prefix.ARG.\\[univers
224a0 61 6c 2d 61 72 67 75 6d 65 6e 74 5d 2c 20 73 65 74 20 74 68 65 20 63 75 72 72 65 6e 74 20 73 65 al-argument],.set.the.current.se
224c0 74 74 69 6e 67 0a 20 20 70 65 72 6d 61 6e 65 6e 74 6c 79 20 66 6f 72 20 74 68 69 73 20 64 6f 63 tting...permanently.for.this.doc
224e0 75 6d 65 6e 74 2e 0a 0a 2d 20 57 69 74 68 20 61 20 70 72 65 66 69 78 20 41 52 47 20 5c 5c 5b 75 ument...-.With.a.prefix.ARG.\\[u
22500 6e 69 76 65 72 73 61 6c 2d 61 72 67 75 6d 65 6e 74 5d 20 5c 5c 5b 75 6e 69 76 65 72 73 61 6c 2d niversal-argument].\\[universal-
22520 61 72 67 75 6d 65 6e 74 5d 2c 0a 20 20 72 65 6d 6f 76 65 20 74 68 65 20 73 65 74 74 69 6e 67 20 argument],...remove.the.setting.
22540 61 6e 64 20 75 73 65 20 74 68 65 20 64 65 66 61 75 6c 74 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 and.use.the.default."...(interac
22560 74 69 76 65 20 22 50 22 29 0a 20 20 28 6f 72 67 2d 6e 6f 74 65 72 2d 2d 77 69 74 68 2d 76 61 6c tive."P")...(org-noter--with-val
22580 69 64 2d 73 65 73 73 69 6f 6e 0a 20 20 20 28 6c 65 74 2a 20 28 28 69 6e 68 69 62 69 74 2d 72 65 id-session....(let*.((inhibit-re
225a0 61 64 2d 6f 6e 6c 79 20 74 29 0a 20 20 20 20 20 20 20 20 20 20 28 61 73 74 20 28 6f 72 67 2d 6e ad-only.t)...........(ast.(org-n
225c0 6f 74 65 72 2d 2d 70 61 72 73 65 2d 72 6f 6f 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 70 65 oter--parse-root))...........(pe
225e0 72 73 69 73 74 65 6e 74 0a 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 6e 64 20 28 28 65 71 75 61 rsistent............(cond.((equa
22600 6c 20 61 72 67 20 27 28 34 29 29 20 27 77 72 69 74 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 l.arg.'(4)).'write).............
22620 20 20 20 20 20 28 28 65 71 75 61 6c 20 61 72 67 20 27 28 31 36 29 29 20 27 72 65 6d 6f 76 65 29 .....((equal.arg.'(16)).'remove)
22640 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 6e 65 77 2d 73 65 74 74 69 6e 67 0a 20 20 20 20 20 20 ))...........(new-setting.......
22660 20 20 20 20 20 28 63 6f 6e 64 20 28 28 65 71 20 70 65 72 73 69 73 74 65 6e 74 20 27 77 72 69 74 .....(cond.((eq.persistent.'writ
22680 65 29 20 28 6f 72 67 2d 6e 6f 74 65 72 2d 2d 73 65 73 73 69 6f 6e 2d 68 69 64 65 2d 6f 74 68 65 e).(org-noter--session-hide-othe
226a0 72 20 73 65 73 73 69 6f 6e 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 28 65 r.session))..................((e
226c0 71 20 70 65 72 73 69 73 74 65 6e 74 20 27 72 65 6d 6f 76 65 29 20 6f 72 67 2d 6e 6f 74 65 72 2d q.persistent.'remove).org-noter-
226e0 68 69 64 65 2d 6f 74 68 65 72 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 27 6f hide-other)..................('o
22700 74 68 65 72 2d 63 61 73 65 73 20 28 6e 6f 74 20 28 6f 72 67 2d 6e 6f 74 65 72 2d 2d 73 65 73 73 ther-cases.(not.(org-noter--sess
22720 69 6f 6e 2d 68 69 64 65 2d 6f 74 68 65 72 20 73 65 73 73 69 6f 6e 29 29 29 29 29 29 0a 20 20 20 ion-hide-other.session))))))....
22740 20 20 28 73 65 74 66 20 28 6f 72 67 2d 6e 6f 74 65 72 2d 2d 73 65 73 73 69 6f 6e 2d 68 69 64 65 ..(setf.(org-noter--session-hide
22760 2d 6f 74 68 65 72 20 73 65 73 73 69 6f 6e 29 20 6e 65 77 2d 73 65 74 74 69 6e 67 29 0a 20 20 20 -other.session).new-setting)....
22780 20 20 28 77 68 65 6e 20 70 65 72 73 69 73 74 65 6e 74 0a 20 20 20 20 20 20 20 28 77 69 74 68 2d ..(when.persistent........(with-
227a0 63 75 72 72 65 6e 74 2d 62 75 66 66 65 72 20 28 6f 72 67 2d 6e 6f 74 65 72 2d 2d 73 65 73 73 69 current-buffer.(org-noter--sessi
227c0 6f 6e 2d 6e 6f 74 65 73 2d 62 75 66 66 65 72 20 73 65 73 73 69 6f 6e 29 0a 20 20 20 20 20 20 20 on-notes-buffer.session)........
227e0 20 20 28 6f 72 67 2d 77 69 74 68 2d 77 69 64 65 2d 62 75 66 66 65 72 0a 20 20 20 20 20 20 20 20 ..(org-with-wide-buffer.........
22800 20 20 28 67 6f 74 6f 2d 63 68 61 72 20 28 6f 72 67 2d 65 6c 65 6d 65 6e 74 2d 70 72 6f 70 65 72 ..(goto-char.(org-element-proper
22820 74 79 20 3a 62 65 67 69 6e 20 61 73 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 69 66 20 28 65 ty.:begin.ast))...........(if.(e
22840 71 20 70 65 72 73 69 73 74 65 6e 74 20 27 77 72 69 74 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 q.persistent.'write)............
22860 20 20 20 28 6f 72 67 2d 65 6e 74 72 79 2d 70 75 74 20 6e 69 6c 20 6f 72 67 2d 6e 6f 74 65 72 2d ...(org-entry-put.nil.org-noter-
22880 2d 70 72 6f 70 65 72 74 79 2d 68 69 64 65 2d 6f 74 68 65 72 20 28 66 6f 72 6d 61 74 20 22 25 73 -property-hide-other.(format."%s
228a0 22 20 6e 65 77 2d 73 65 74 74 69 6e 67 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 6f 72 67 ".new-setting)).............(org
228c0 2d 65 6e 74 72 79 2d 64 65 6c 65 74 65 20 6e 69 6c 20 6f 72 67 2d 6e 6f 74 65 72 2d 2d 70 72 6f -entry-delete.nil.org-noter--pro
228e0 70 65 72 74 79 2d 68 69 64 65 2d 6f 74 68 65 72 29 29 29 29 29 29 29 29 0a 0a 28 64 65 66 75 6e perty-hide-other))))))))..(defun
22900 20 6f 72 67 2d 6e 6f 74 65 72 2d 73 65 74 2d 63 6c 6f 73 65 73 74 2d 74 69 70 70 69 6e 67 2d 70 .org-noter-set-closest-tipping-p
22920 6f 69 6e 74 20 28 61 72 67 29 0a 20 20 22 53 65 74 20 74 68 65 20 63 6c 6f 73 65 73 74 20 6e 6f oint.(arg)..."Set.the.closest.no
22940 74 65 20 74 69 70 70 69 6e 67 20 70 6f 69 6e 74 20 28 73 65 65 20 60 6f 72 67 2d 6e 6f 74 65 72 te.tipping.point.(see.`org-noter
22960 2d 63 6c 6f 73 65 73 74 2d 74 69 70 70 69 6e 67 2d 70 6f 69 6e 74 27 29 2e 0a 0a 2d 20 57 69 74 -closest-tipping-point')...-.Wit
22980 68 20 61 20 70 72 65 66 69 78 20 41 52 47 20 5c 5c 5b 75 6e 69 76 65 72 73 61 6c 2d 61 72 67 75 h.a.prefix.ARG.\\[universal-argu
229a0 6d 65 6e 74 5d 2c 20 73 65 74 20 69 74 20 70 65 72 6d 61 6e 65 6e 74 6c 79 20 66 6f 72 0a 20 20 ment],.set.it.permanently.for...
229c0 74 68 69 73 20 64 6f 63 75 6d 65 6e 74 2e 0a 0a 2d 20 57 69 74 68 20 61 20 70 72 65 66 69 78 20 this.document...-.With.a.prefix.
229e0 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 5c 5c 5b 75 6e ARG.\\[universal-argument].\\[un
22a00 69 76 65 72 73 61 6c 2d 61 72 67 75 6d 65 6e 74 5d 2c 0a 20 20 72 65 6d 6f 76 65 20 74 68 65 20 iversal-argument],...remove.the.
22a20 73 65 74 74 69 6e 67 20 61 6e 64 20 75 73 65 20 74 68 65 20 64 65 66 61 75 6c 74 2e 22 0a 20 20 setting.and.use.the.default."...
22a40 28 69 6e 74 65 72 61 63 74 69 76 65 20 22 50 22 29 0a 20 20 28 6f 72 67 2d 6e 6f 74 65 72 2d 2d (interactive."P")...(org-noter--
22a60 77 69 74 68 2d 76 61 6c 69 64 2d 73 65 73 73 69 6f 6e 0a 20 20 20 28 6c 65 74 2a 20 28 28 61 73 with-valid-session....(let*.((as
22a80 74 20 28 6f 72 67 2d 6e 6f 74 65 72 2d 2d 70 61 72 73 65 2d 72 6f 6f 74 29 29 0a 20 20 20 20 20 t.(org-noter--parse-root))......
22aa0 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 20 20 20 20 .....(inhibit-read-only.t)......
22ac0 20 20 20 20 20 28 70 65 72 73 69 73 74 65 6e 74 20 28 63 6f 6e 64 20 28 28 65 71 75 61 6c 20 61 .....(persistent.(cond.((equal.a
22ae0 72 67 20 27 28 34 29 29 20 27 77 72 69 74 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 rg.'(4)).'write)................
22b00 20 20 20 20 20 20 20 20 20 20 20 20 20 28 28 65 71 75 61 6c 20 61 72 67 20 27 28 31 36 29 29 20 .............((equal.arg.'(16)).
22b20 27 72 65 6d 6f 76 65 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 6e 65 77 2d 73 65 74 74 69 6e 'remove)))...........(new-settin
22b40 67 20 28 69 66 20 28 65 71 20 70 65 72 73 69 73 74 65 6e 74 20 27 72 65 6d 6f 76 65 29 0a 20 20 g.(if.(eq.persistent.'remove)...
22b60 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6f 72 67 2d 6e 6f 74 .........................org-not
22b80 65 72 2d 63 6c 6f 73 65 73 74 2d 74 69 70 70 69 6e 67 2d 70 6f 69 6e 74 0a 20 20 20 20 20 20 20 er-closest-tipping-point........
22ba0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 72 65 61 64 2d 6e 75 6d 62 65 72 20 22 ..................(read-number."
22bc0 4e 65 77 20 74 69 70 70 69 6e 67 20 70 6f 69 6e 74 3a 20 22 20 28 6f 72 67 2d 6e 6f 74 65 72 2d New.tipping.point:.".(org-noter-
22be0 2d 73 65 73 73 69 6f 6e 2d 63 6c 6f 73 65 73 74 2d 74 69 70 70 69 6e 67 2d 70 6f 69 6e 74 20 73 -session-closest-tipping-point.s
22c00 65 73 73 69 6f 6e 29 29 29 29 29 0a 20 20 20 20 20 28 73 65 74 66 20 28 6f 72 67 2d 6e 6f 74 65 ession)))))......(setf.(org-note
22c20 72 2d 2d 73 65 73 73 69 6f 6e 2d 63 6c 6f 73 65 73 74 2d 74 69 70 70 69 6e 67 2d 70 6f 69 6e 74 r--session-closest-tipping-point
22c40 20 73 65 73 73 69 6f 6e 29 20 6e 65 77 2d 73 65 74 74 69 6e 67 29 0a 20 20 20 20 20 28 77 68 65 .session).new-setting)......(whe
22c60 6e 20 70 65 72 73 69 73 74 65 6e 74 0a 20 20 20 20 20 20 20 28 77 69 74 68 2d 63 75 72 72 65 6e n.persistent........(with-curren
22c80 74 2d 62 75 66 66 65 72 20 28 6f 72 67 2d 6e 6f 74 65 72 2d 2d 73 65 73 73 69 6f 6e 2d 6e 6f 74 t-buffer.(org-noter--session-not
22ca0 65 73 2d 62 75 66 66 65 72 20 73 65 73 73 69 6f 6e 29 0a 20 20 20 20 20 20 20 20 20 28 6f 72 67 es-buffer.session)..........(org
22cc0 2d 77 69 74 68 2d 77 69 64 65 2d 62 75 66 66 65 72 0a 20 20 20 20 20 20 20 20 20 20 28 67 6f 74 -with-wide-buffer...........(got
22ce0 6f 2d 63 68 61 72 20 28 6f 72 67 2d 65 6c 65 6d 65 6e 74 2d 70 72 6f 70 65 72 74 79 20 3a 62 65 o-char.(org-element-property.:be
22d00 67 69 6e 20 61 73 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 69 66 20 28 65 71 20 70 65 72 73 gin.ast))...........(if.(eq.pers
22d20 69 73 74 65 6e 74 20 27 77 72 69 74 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6f 72 istent.'write)...............(or
22d40 67 2d 65 6e 74 72 79 2d 70 75 74 20 6e 69 6c 20 6f 72 67 2d 6e 6f 74 65 72 2d 2d 70 72 6f 70 65 g-entry-put.nil.org-noter--prope
22d60 72 74 79 2d 63 6c 6f 73 65 73 74 2d 74 69 70 70 69 6e 67 2d 70 6f 69 6e 74 20 28 66 6f 72 6d 61 rty-closest-tipping-point.(forma
22d80 74 20 22 25 66 22 20 6e 65 77 2d 73 65 74 74 69 6e 67 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 t."%f".new-setting))............
22da0 20 28 6f 72 67 2d 65 6e 74 72 79 2d 64 65 6c 65 74 65 20 6e 69 6c 20 6f 72 67 2d 6e 6f 74 65 72 .(org-entry-delete.nil.org-noter
22dc0 2d 2d 70 72 6f 70 65 72 74 79 2d 63 6c 6f 73 65 73 74 2d 74 69 70 70 69 6e 67 2d 70 6f 69 6e 74 --property-closest-tipping-point
22de0 29 29 29 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 6f 72 67 2d 6e 6f 74 65 72 2d 73 65 74 2d 6e ))))))))..(defun.org-noter-set-n
22e00 6f 74 65 73 2d 77 69 6e 64 6f 77 2d 62 65 68 61 76 69 6f 72 20 28 61 72 67 29 0a 20 20 22 53 65 otes-window-behavior.(arg)..."Se
22e20 74 20 74 68 65 20 6e 6f 74 65 73 20 77 69 6e 64 6f 77 20 62 65 68 61 76 69 6f 75 72 20 66 6f 72 t.the.notes.window.behaviour.for
22e40 20 74 68 65 20 63 75 72 72 65 6e 74 20 73 65 73 73 69 6f 6e 2e 0a 57 69 74 68 20 61 20 70 72 65 .the.current.session..With.a.pre
22e60 66 69 78 20 41 52 47 2c 20 69 74 20 62 65 63 6f 6d 65 73 20 70 65 72 73 69 73 74 65 6e 74 20 66 fix.ARG,.it.becomes.persistent.f
22e80 6f 72 20 74 68 61 74 20 64 6f 63 75 6d 65 6e 74 2e 0a 0a 53 65 65 20 60 6f 72 67 2d 6e 6f 74 65 or.that.document...See.`org-note
22ea0 72 2d 6e 6f 74 65 73 2d 77 69 6e 64 6f 77 2d 62 65 68 61 76 69 6f 72 27 20 66 6f 72 20 6d 6f 72 r-notes-window-behavior'.for.mor
22ec0 65 20 69 6e 66 6f 72 6d 61 74 69 6f 6e 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 20 22 e.information."...(interactive."
22ee0 50 22 29 0a 20 20 28 6f 72 67 2d 6e 6f 74 65 72 2d 2d 77 69 74 68 2d 76 61 6c 69 64 2d 73 65 73 P")...(org-noter--with-valid-ses
22f00 73 69 6f 6e 0a 20 20 20 28 6c 65 74 2a 20 28 28 69 6e 68 69 62 69 74 2d 72 65 61 64 2d 6f 6e 6c sion....(let*.((inhibit-read-onl
22f20 79 20 74 29 0a 20 20 20 20 20 20 20 20 20 20 28 61 73 74 20 28 6f 72 67 2d 6e 6f 74 65 72 2d 2d y.t)...........(ast.(org-noter--
22f40 70 61 72 73 65 2d 72 6f 6f 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 70 6f 73 73 69 62 6c 65 parse-root))...........(possible
22f60 2d 62 65 68 61 76 69 6f 72 73 20 28 6c 69 73 74 20 27 28 22 44 65 66 61 75 6c 74 22 20 2e 20 64 -behaviors.(list.'("Default"...d
22f80 65 66 61 75 6c 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 efault).........................
22fa0 20 20 20 20 20 20 20 20 20 20 20 20 27 28 22 4f 6e 20 73 74 61 72 74 22 20 2e 20 73 74 61 72 74 ............'("On.start"...start
22fc0 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 )...............................
22fe0 20 20 20 20 20 20 27 28 22 4f 6e 20 73 63 72 6f 6c 6c 22 20 2e 20 73 63 72 6f 6c 6c 29 0a 20 20 ......'("On.scroll"...scroll)...
23000 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ................................
23020 20 20 27 28 22 4f 6e 20 73 63 72 6f 6c 6c 20 74 6f 20 6c 6f 63 61 74 69 6f 6e 20 74 68 61 74 20 ..'("On.scroll.to.location.that.
23040 6f 6e 6c 79 20 68 61 73 20 70 72 65 76 69 6f 75 73 20 6e 6f 74 65 73 22 20 2e 20 6f 6e 6c 79 2d only.has.previous.notes"...only-
23060 70 72 65 76 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 prev)...........................
23080 20 20 20 20 20 20 20 20 20 20 27 28 22 4e 65 76 65 72 22 20 2e 20 6e 65 76 65 72 29 29 29 0a 20 ..........'("Never"...never)))..
230a0 20 20 20 20 20 20 20 20 20 63 68 6f 73 65 6e 2d 62 65 68 61 76 69 6f 72 73 29 0a 0a 20 20 20 20 .........chosen-behaviors)......
230c0 20 28 77 68 69 6c 65 20 28 3e 20 28 6c 65 6e 67 74 68 20 70 6f 73 73 69 62 6c 65 2d 62 65 68 61 .(while.(>.(length.possible-beha
230e0 76 69 6f 72 73 29 20 31 29 0a 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 63 68 6f 73 65 6e 2d 70 viors).1)........(let.((chosen-p
23100 61 69 72 20 28 61 73 73 6f 63 20 28 63 6f 6d 70 6c 65 74 69 6e 67 2d 72 65 61 64 20 22 42 65 68 air.(assoc.(completing-read."Beh
23120 61 76 69 6f 72 3a 20 22 20 70 6f 73 73 69 62 6c 65 2d 62 65 68 61 76 69 6f 72 73 20 6e 69 6c 20 avior:.".possible-behaviors.nil.
23140 74 29 20 70 6f 73 73 69 62 6c 65 2d 62 65 68 61 76 69 6f 72 73 29 29 29 0a 20 20 20 20 20 20 20 t).possible-behaviors)))........
23160 20 20 28 63 6f 6e 64 20 28 28 65 71 20 28 63 64 72 20 63 68 6f 73 65 6e 2d 70 61 69 72 29 20 27 ..(cond.((eq.(cdr.chosen-pair).'
23180 64 65 66 61 75 6c 74 29 20 28 73 65 74 71 20 70 6f 73 73 69 62 6c 65 2d 62 65 68 61 76 69 6f 72 default).(setq.possible-behavior
231a0 73 20 6e 69 6c 29 29 0a 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 28 65 71 20 28 63 64 s.nil)).................((eq.(cd
231c0 72 20 63 68 6f 73 65 6e 2d 70 61 69 72 29 20 27 6e 65 76 65 72 29 20 28 73 65 74 71 20 63 68 6f r.chosen-pair).'never).(setq.cho
231e0 73 65 6e 2d 62 65 68 61 76 69 6f 72 73 20 28 6c 69 73 74 20 27 6e 65 76 65 72 29 0a 20 20 20 20 sen-behaviors.(list.'never).....
23200 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ................................
23220 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 70 6f 73 73 69 62 6c 65 2d 62 65 68 61 76 69 6f ................possible-behavio
23240 72 73 20 6e 69 6c 29 29 0a 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 28 65 71 20 28 63 rs.nil)).................((eq.(c
23260 64 72 20 63 68 6f 73 65 6e 2d 70 61 69 72 29 20 27 64 6f 6e 65 29 20 28 73 65 74 71 20 70 6f 73 dr.chosen-pair).'done).(setq.pos
23280 73 69 62 6c 65 2d 62 65 68 61 76 69 6f 72 73 20 6e 69 6c 29 29 0a 0a 20 20 20 20 20 20 20 20 20 sible-behaviors.nil))...........
232a0 20 20 20 20 20 20 28 74 20 28 70 75 73 68 20 28 63 64 72 20 63 68 6f 73 65 6e 2d 70 61 69 72 29 ......(t.(push.(cdr.chosen-pair)
232c0 20 63 68 6f 73 65 6e 2d 62 65 68 61 76 69 6f 72 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 .chosen-behaviors)..............
232e0 20 20 20 20 20 28 73 65 74 71 20 70 6f 73 73 69 62 6c 65 2d 62 65 68 61 76 69 6f 72 73 20 28 64 .....(setq.possible-behaviors.(d
23300 65 6c 71 20 63 68 6f 73 65 6e 2d 70 61 69 72 20 70 6f 73 73 69 62 6c 65 2d 62 65 68 61 76 69 6f elq.chosen-pair.possible-behavio
23320 72 73 29 29 0a 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 3d 20 rs))...................(when.(=.
23340 28 6c 65 6e 67 74 68 20 63 68 6f 73 65 6e 2d 62 65 68 61 76 69 6f 72 73 29 20 31 29 0a 20 20 20 (length.chosen-behaviors).1)....
23360 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 70 6f 73 73 69 62 6c 65 2d .................(setq.possible-
23380 62 65 68 61 76 69 6f 72 73 20 28 64 65 6c 71 20 28 72 61 73 73 71 20 27 64 65 66 61 75 6c 74 20 behaviors.(delq.(rassq.'default.
233a0 70 6f 73 73 69 62 6c 65 2d 62 65 68 61 76 69 6f 72 73 29 20 70 6f 73 73 69 62 6c 65 2d 62 65 68 possible-behaviors).possible-beh
233c0 61 76 69 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 20 20 aviors).........................
233e0 20 20 70 6f 73 73 69 62 6c 65 2d 62 65 68 61 76 69 6f 72 73 20 28 64 65 6c 71 20 28 72 61 73 73 ..possible-behaviors.(delq.(rass
23400 71 20 27 6e 65 76 65 72 20 70 6f 73 73 69 62 6c 65 2d 62 65 68 61 76 69 6f 72 73 29 20 70 6f 73 q.'never.possible-behaviors).pos
23420 73 69 62 6c 65 2d 62 65 68 61 76 69 6f 72 73 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 sible-behaviors))...............
23440 20 20 20 20 20 20 28 70 75 73 68 20 28 63 6f 6e 73 20 22 44 6f 6e 65 22 20 27 64 6f 6e 65 29 20 ......(push.(cons."Done".'done).
23460 70 6f 73 73 69 62 6c 65 2d 62 65 68 61 76 69 6f 72 73 29 29 29 29 29 29 0a 0a 20 20 20 20 20 28 possible-behaviors)))))).......(
23480 73 65 74 66 20 28 6f 72 67 2d 6e 6f 74 65 72 2d 2d 73 65 73 73 69 6f 6e 2d 77 69 6e 64 6f 77 2d setf.(org-noter--session-window-
234a0 62 65 68 61 76 69 6f 72 20 73 65 73 73 69 6f 6e 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 6f 72 behavior.session)............(or
234c0 20 63 68 6f 73 65 6e 2d 62 65 68 61 76 69 6f 72 73 20 6f 72 67 2d 6e 6f 74 65 72 2d 6e 6f 74 65 .chosen-behaviors.org-noter-note
234e0 73 2d 77 69 6e 64 6f 77 2d 62 65 68 61 76 69 6f 72 29 29 0a 0a 20 20 20 20 20 28 77 68 65 6e 20 s-window-behavior)).......(when.
23500 61 72 67 0a 20 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 arg........(with-current-buffer.
23520 28 6f 72 67 2d 6e 6f 74 65 72 2d 2d 73 65 73 73 69 6f 6e 2d 6e 6f 74 65 73 2d 62 75 66 66 65 72 (org-noter--session-notes-buffer
23540 20 73 65 73 73 69 6f 6e 29 0a 20 20 20 20 20 20 20 20 20 28 6f 72 67 2d 77 69 74 68 2d 77 69 64 .session)..........(org-with-wid
23560 65 2d 62 75 66 66 65 72 0a 20 20 20 20 20 20 20 20 20 20 28 67 6f 74 6f 2d 63 68 61 72 20 28 6f e-buffer...........(goto-char.(o
23580 72 67 2d 65 6c 65 6d 65 6e 74 2d 70 72 6f 70 65 72 74 79 20 3a 62 65 67 69 6e 20 61 73 74 29 29 rg-element-property.:begin.ast))
235a0 0a 20 20 20 20 20 20 20 20 20 20 28 69 66 20 63 68 6f 73 65 6e 2d 62 65 68 61 76 69 6f 72 73 0a ...........(if.chosen-behaviors.
235c0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6f 72 67 2d 65 6e 74 72 79 2d 70 75 74 20 6e 69 6c ..............(org-entry-put.nil
235e0 20 6f 72 67 2d 6e 6f 74 65 72 2d 2d 70 72 6f 70 65 72 74 79 2d 62 65 68 61 76 69 6f 72 20 28 66 .org-noter--property-behavior.(f
23600 6f 72 6d 61 74 20 22 25 73 22 20 63 68 6f 73 65 6e 2d 62 65 68 61 76 69 6f 72 73 29 29 0a 20 20 ormat."%s".chosen-behaviors))...
23620 20 20 20 20 20 20 20 20 20 20 28 6f 72 67 2d 65 6e 74 72 79 2d 64 65 6c 65 74 65 20 6e 69 6c 20 ..........(org-entry-delete.nil.
23640 6f 72 67 2d 6e 6f 74 65 72 2d 2d 70 72 6f 70 65 72 74 79 2d 62 65 68 61 76 69 6f 72 29 29 29 29 org-noter--property-behavior))))
23660 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 6f 72 67 2d 6e 6f 74 65 72 2d 74 6f 67 67 6c 65 2d 6e 6f ))))..(defun.org-noter-toggle-no
23680 74 65 73 2d 77 69 6e 64 6f 77 2d 6c 6f 63 61 74 69 6f 6e 20 28 29 0a 20 20 22 54 6f 67 67 6c 65 tes-window-location.()..."Toggle
236a0 20 62 65 74 77 65 65 6e 20 73 69 64 65 2d 20 61 6e 64 20 62 6f 74 74 6f 6d 2d 6e 6f 74 65 73 20 .between.side-.and.bottom-notes.
236c0 77 69 6e 64 6f 77 20 6c 6f 63 61 74 69 6f 6e 2e 0a 4f 6e 6c 79 20 61 63 74 73 20 6f 6e 20 74 68 window.location..Only.acts.on.th
236e0 65 20 63 75 72 72 65 6e 74 20 73 65 73 73 69 6f 6e 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 e.current.session."...(interacti
23700 76 65 29 0a 20 20 28 6f 72 67 2d 6e 6f 74 65 72 2d 2d 77 69 74 68 2d 76 61 6c 69 64 2d 73 65 73 ve)...(org-noter--with-valid-ses
23720 73 69 6f 6e 0a 20 20 20 28 6c 65 74 20 28 28 63 75 72 72 65 6e 74 2d 6e 6f 74 65 73 2d 6c 6f 63 sion....(let.((current-notes-loc
23740 61 74 69 6f 6e 20 28 6f 72 67 2d 6e 6f 74 65 72 2d 2d 73 65 73 73 69 6f 6e 2d 77 69 6e 64 6f 77 ation.(org-noter--session-window
23760 2d 6c 6f 63 61 74 69 6f 6e 20 73 65 73 73 69 6f 6e 29 29 0a 20 20 20 20 20 20 20 20 20 28 6e 6f -location.session))..........(no
23780 74 65 73 2d 62 75 66 66 65 72 20 28 6f 72 67 2d 6e 6f 74 65 72 2d 2d 73 65 73 73 69 6f 6e 2d 6e tes-buffer.(org-noter--session-n
237a0 6f 74 65 73 2d 62 75 66 66 65 72 20 73 65 73 73 69 6f 6e 29 29 29 0a 20 20 20 20 20 28 63 6f 6e otes-buffer.session)))......(con
237c0 64 20 28 28 65 71 20 63 75 72 72 65 6e 74 2d 6e 6f 74 65 73 2d 6c 6f 63 61 74 69 6f 6e 20 27 68 d.((eq.current-notes-location.'h
237e0 6f 72 69 7a 6f 6e 74 61 6c 2d 73 70 6c 69 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 orizontal-split).............(se
23800 74 66 20 28 6f 72 67 2d 6e 6f 74 65 72 2d 2d 73 65 73 73 69 6f 6e 2d 77 69 6e 64 6f 77 2d 6c 6f tf.(org-noter--session-window-lo
23820 63 61 74 69 6f 6e 20 73 65 73 73 69 6f 6e 29 20 27 76 65 72 74 69 63 61 6c 2d 73 70 6c 69 74 29 cation.session).'vertical-split)
23840 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 28 65 71 20 63 75 72 72 65 6e 74 2d 6e 6f 74 65 73 2d )............((eq.current-notes-
23860 6c 6f 63 61 74 69 6f 6e 20 27 76 65 72 74 69 63 61 6c 2d 73 70 6c 69 74 29 0a 20 20 20 20 20 20 location.'vertical-split).......
23880 20 20 20 20 20 20 28 73 65 74 66 20 28 6f 72 67 2d 6e 6f 74 65 72 2d 2d 73 65 73 73 69 6f 6e 2d ......(setf.(org-noter--session-
238a0 77 69 6e 64 6f 77 2d 6c 6f 63 61 74 69 6f 6e 20 73 65 73 73 69 6f 6e 29 20 27 68 6f 72 69 7a 6f window-location.session).'horizo
238c0 6e 74 61 6c 2d 73 70 6c 69 74 29 29 29 0a 20 20 20 20 20 28 6f 72 67 2d 6e 6f 74 65 72 2d 2d 72 ntal-split)))......(org-noter--r
238e0 65 6c 6f 63 61 74 65 2d 6e 6f 74 65 73 2d 77 69 6e 64 6f 77 20 6e 6f 74 65 73 2d 62 75 66 66 65 elocate-notes-window.notes-buffe
23900 72 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 6f 72 67 2d 6e 6f 74 65 72 2d 73 65 74 2d 6e 6f 74 65 r))))..(defun.org-noter-set-note
23920 73 2d 77 69 6e 64 6f 77 2d 6c 6f 63 61 74 69 6f 6e 20 28 61 72 67 29 0a 20 20 22 53 65 74 20 74 s-window-location.(arg)..."Set.t
23940 68 65 20 6e 6f 74 65 73 20 77 69 6e 64 6f 77 20 64 65 66 61 75 6c 74 20 6c 6f 63 61 74 69 6f 6e he.notes.window.default.location
23960 20 66 6f 72 20 74 68 65 20 63 75 72 72 65 6e 74 20 73 65 73 73 69 6f 6e 2e 0a 57 69 74 68 20 61 .for.the.current.session..With.a
23980 20 70 72 65 66 69 78 20 41 52 47 2c 20 69 74 20 62 65 63 6f 6d 65 73 20 70 65 72 73 69 73 74 65 .prefix.ARG,.it.becomes.persiste
239a0 6e 74 20 66 6f 72 20 74 68 61 74 20 64 6f 63 75 6d 65 6e 74 2e 0a 0a 53 65 65 20 60 6f 72 67 2d nt.for.that.document...See.`org-
239c0 6e 6f 74 65 72 2d 6e 6f 74 65 73 2d 77 69 6e 64 6f 77 2d 62 65 68 61 76 69 6f 72 27 20 66 6f 72 noter-notes-window-behavior'.for
239e0 20 6d 6f 72 65 20 69 6e 66 6f 72 6d 61 74 69 6f 6e 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 .more.information."...(interacti
23a00 76 65 20 22 50 22 29 0a 20 20 28 6f 72 67 2d 6e 6f 74 65 72 2d 2d 77 69 74 68 2d 76 61 6c 69 64 ve."P")...(org-noter--with-valid
23a20 2d 73 65 73 73 69 6f 6e 0a 20 20 20 28 6c 65 74 2a 20 28 28 69 6e 68 69 62 69 74 2d 72 65 61 64 -session....(let*.((inhibit-read
23a40 2d 6f 6e 6c 79 20 74 29 0a 20 20 20 20 20 20 20 20 20 20 28 61 73 74 20 28 6f 72 67 2d 6e 6f 74 -only.t)...........(ast.(org-not
23a60 65 72 2d 2d 70 61 72 73 65 2d 72 6f 6f 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 6c 6f 63 61 er--parse-root))...........(loca
23a80 74 69 6f 6e 2d 70 6f 73 73 69 62 69 6c 69 74 69 65 73 0a 20 20 20 20 20 20 20 20 20 20 20 27 28 tion-possibilities............'(
23aa0 28 22 44 65 66 61 75 6c 74 22 20 2e 20 6e 69 6c 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 ("Default"...nil)..............(
23ac0 22 48 6f 72 69 7a 6f 6e 74 61 6c 20 73 70 6c 69 74 22 20 2e 20 68 6f 72 69 7a 6f 6e 74 61 6c 2d "Horizontal.split"...horizontal-
23ae0 73 70 6c 69 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 22 56 65 72 74 69 63 61 6c 20 73 split)..............("Vertical.s
23b00 70 6c 69 74 22 20 2e 20 76 65 72 74 69 63 61 6c 2d 73 70 6c 69 74 29 0a 20 20 20 20 20 20 20 20 plit"...vertical-split).........
23b20 20 20 20 20 20 28 22 4f 74 68 65 72 20 66 72 61 6d 65 22 20 2e 20 6f 74 68 65 72 2d 66 72 61 6d .....("Other.frame"...other-fram
23b40 65 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 6c 6f 63 61 74 69 6f 6e 0a 20 20 20 20 20 20 20 e)))...........(location........
23b60 20 20 20 20 28 63 64 72 20 28 61 73 73 6f 63 20 28 63 6f 6d 70 6c 65 74 69 6e 67 2d 72 65 61 64 ....(cdr.(assoc.(completing-read
23b80 20 22 4c 6f 63 61 74 69 6f 6e 3a 20 22 20 6c 6f 63 61 74 69 6f 6e 2d 70 6f 73 73 69 62 69 6c 69 ."Location:.".location-possibili
23ba0 74 69 65 73 20 6e 69 6c 20 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ties.nil.t).....................
23bc0 20 20 20 6c 6f 63 61 74 69 6f 6e 2d 70 6f 73 73 69 62 69 6c 69 74 69 65 73 29 29 29 0a 20 20 20 ...location-possibilities)))....
23be0 20 20 20 20 20 20 20 28 6e 6f 74 65 73 2d 62 75 66 66 65 72 20 28 6f 72 67 2d 6e 6f 74 65 72 2d .......(notes-buffer.(org-noter-
23c00 2d 73 65 73 73 69 6f 6e 2d 6e 6f 74 65 73 2d 62 75 66 66 65 72 20 73 65 73 73 69 6f 6e 29 29 29 -session-notes-buffer.session)))
23c20 0a 0a 20 20 20 20 20 28 73 65 74 66 20 28 6f 72 67 2d 6e 6f 74 65 72 2d 2d 73 65 73 73 69 6f 6e .......(setf.(org-noter--session
23c40 2d 77 69 6e 64 6f 77 2d 6c 6f 63 61 74 69 6f 6e 20 73 65 73 73 69 6f 6e 29 0a 20 20 20 20 20 20 -window-location.session).......
23c60 20 20 20 20 20 28 6f 72 20 6c 6f 63 61 74 69 6f 6e 20 6f 72 67 2d 6e 6f 74 65 72 2d 6e 6f 74 65 .....(or.location.org-noter-note
23c80 73 2d 77 69 6e 64 6f 77 2d 6c 6f 63 61 74 69 6f 6e 29 29 0a 20 20 20 20 20 28 6f 72 67 2d 6e 6f s-window-location))......(org-no
23ca0 74 65 72 2d 2d 72 65 6c 6f 63 61 74 65 2d 6e 6f 74 65 73 2d 77 69 6e 64 6f 77 20 6e 6f 74 65 73 ter--relocate-notes-window.notes
23cc0 2d 62 75 66 66 65 72 29 0a 0a 20 20 20 20 20 28 77 68 65 6e 20 61 72 67 0a 20 20 20 20 20 20 20 -buffer).......(when.arg........
23ce0 28 77 69 74 68 2d 63 75 72 72 65 6e 74 2d 62 75 66 66 65 72 20 6e 6f 74 65 73 2d 62 75 66 66 65 (with-current-buffer.notes-buffe
23d00 72 0a 20 20 20 20 20 20 20 20 20 28 6f 72 67 2d 77 69 74 68 2d 77 69 64 65 2d 62 75 66 66 65 72 r..........(org-with-wide-buffer
23d20 0a 20 20 20 20 20 20 20 20 20 20 28 67 6f 74 6f 2d 63 68 61 72 20 28 6f 72 67 2d 65 6c 65 6d 65 ...........(goto-char.(org-eleme
23d40 6e 74 2d 70 72 6f 70 65 72 74 79 20 3a 62 65 67 69 6e 20 61 73 74 29 29 0a 20 20 20 20 20 20 20 nt-property.:begin.ast))........
23d60 20 20 20 28 69 66 20 6c 6f 63 61 74 69 6f 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6f ...(if.location...............(o
23d80 72 67 2d 65 6e 74 72 79 2d 70 75 74 20 6e 69 6c 20 6f 72 67 2d 6e 6f 74 65 72 2d 2d 70 72 6f 70 rg-entry-put.nil.org-noter--prop
23da0 65 72 74 79 2d 6c 6f 63 61 74 69 6f 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 erty-location...................
23dc0 20 20 20 20 20 20 20 20 20 20 20 28 66 6f 72 6d 61 74 20 22 25 73 22 20 6c 6f 63 61 74 69 6f 6e ...........(format."%s".location
23de0 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 6f 72 67 2d 65 6e 74 72 79 2d 64 65 6c 65 74 65 )).............(org-entry-delete
23e00 20 6e 69 6c 20 6f 72 67 2d 6e 6f 74 65 72 2d 2d 70 72 6f 70 65 72 74 79 2d 6c 6f 63 61 74 69 6f .nil.org-noter--property-locatio
23e20 6e 29 29 29 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 6f 72 67 2d 6e 6f 74 65 72 2d 73 65 74 2d n))))))))..(defun.org-noter-set-
23e40 64 6f 63 2d 73 70 6c 69 74 2d 66 72 61 63 74 69 6f 6e 20 28 61 72 67 29 0a 20 20 22 53 65 74 20 doc-split-fraction.(arg)..."Set.
23e60 74 68 65 20 66 72 61 63 74 69 6f 6e 20 6f 66 20 74 68 65 20 66 72 61 6d 65 20 74 68 61 74 20 74 the.fraction.of.the.frame.that.t
23e80 68 65 20 64 6f 63 75 6d 65 6e 74 20 77 69 6e 64 6f 77 20 77 69 6c 6c 20 6f 63 63 75 70 79 20 77 he.document.window.will.occupy.w
23ea0 68 65 6e 20 73 70 6c 69 74 2e 0a 0a 2d 20 57 69 74 68 20 61 20 70 72 65 66 69 78 20 41 52 47 20 hen.split...-.With.a.prefix.ARG.
23ec0 5c 5c 5b 75 6e 69 76 65 72 73 61 6c 2d 61 72 67 75 6d 65 6e 74 5d 2c 20 73 65 74 20 69 74 20 70 \\[universal-argument],.set.it.p
23ee0 65 72 6d 61 6e 65 6e 74 6c 79 0a 20 20 66 6f 72 20 74 68 69 73 20 64 6f 63 75 6d 65 6e 74 2e 0a ermanently...for.this.document..
23f00 0a 2d 20 57 69 74 68 20 61 20 70 72 65 66 69 78 20 41 52 47 20 5c 5c 5b 75 6e 69 76 65 72 73 61 .-.With.a.prefix.ARG.\\[universa
23f20 6c 2d 61 72 67 75 6d 65 6e 74 5d 0a 20 20 5c 5c 5b 75 6e 69 76 65 72 73 61 6c 2d 61 72 67 75 6d l-argument]...\\[universal-argum
23f40 65 6e 74 5d 2c 20 72 65 6d 6f 76 65 20 74 68 65 20 73 65 74 74 69 6e 67 20 61 6e 64 20 75 73 65 ent],.remove.the.setting.and.use
23f60 20 74 68 65 0a 20 20 64 65 66 61 75 6c 74 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 20 .the...default."...(interactive.
23f80 22 50 22 29 0a 20 20 28 6f 72 67 2d 6e 6f 74 65 72 2d 2d 77 69 74 68 2d 76 61 6c 69 64 2d 73 65 "P")...(org-noter--with-valid-se
23fa0 73 73 69 6f 6e 0a 20 20 20 28 6c 65 74 2a 20 28 28 61 73 74 20 28 6f 72 67 2d 6e 6f 74 65 72 2d ssion....(let*.((ast.(org-noter-
23fc0 2d 70 61 72 73 65 2d 72 6f 6f 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 69 6e 68 69 62 69 74 -parse-root))...........(inhibit
23fe0 2d 72 65 61 64 2d 6f 6e 6c 79 20 74 29 0a 20 20 20 20 20 20 20 20 20 20 28 70 65 72 73 69 73 74 -read-only.t)...........(persist
24000 65 6e 74 20 28 63 6f 6e 64 20 28 28 65 71 75 61 6c 20 61 72 67 20 27 28 34 29 29 20 27 77 72 69 ent.(cond.((equal.arg.'(4)).'wri
24020 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 20 20 20 te).............................
24040 28 28 65 71 75 61 6c 20 61 72 67 20 27 28 31 36 29 29 20 27 72 65 6d 6f 76 65 29 29 29 0a 20 20 ((equal.arg.'(16)).'remove)))...
24060 20 20 20 20 20 20 20 20 28 63 75 72 72 65 6e 74 2d 73 65 74 74 69 6e 67 20 28 6f 72 67 2d 6e 6f ........(current-setting.(org-no
24080 74 65 72 2d 2d 73 65 73 73 69 6f 6e 2d 64 6f 63 2d 73 70 6c 69 74 2d 66 72 61 63 74 69 6f 6e 20 ter--session-doc-split-fraction.
240a0 73 65 73 73 69 6f 6e 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 6e 65 77 2d 73 65 74 74 69 6e 67 session))...........(new-setting
240c0 0a 20 20 20 20 20 20 20 20 20 20 20 28 69 66 20 28 65 71 20 70 65 72 73 69 73 74 65 6e 74 20 27 ............(if.(eq.persistent.'
240e0 72 65 6d 6f 76 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6f 72 67 2d 6e 6f 74 65 72 remove)................org-noter
24100 2d 64 6f 63 2d 73 70 6c 69 74 2d 66 72 61 63 74 69 6f 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 -doc-split-fraction.............
24120 20 28 63 6f 6e 73 20 28 72 65 61 64 2d 6e 75 6d 62 65 72 20 22 48 6f 72 69 7a 6f 6e 74 61 6c 20 .(cons.(read-number."Horizontal.
24140 66 72 61 63 74 69 6f 6e 3a 20 22 20 28 63 61 72 20 63 75 72 72 65 6e 74 2d 73 65 74 74 69 6e 67 fraction:.".(car.current-setting
24160 29 29 0a 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 6e 75 6d 62 ))....................(read-numb
24180 65 72 20 22 56 65 72 74 69 63 61 6c 20 66 72 61 63 74 69 6f 6e 3a 20 22 20 28 63 64 72 20 63 75 er."Vertical.fraction:.".(cdr.cu
241a0 72 72 65 6e 74 2d 73 65 74 74 69 6e 67 29 29 29 29 29 29 0a 20 20 20 20 20 28 73 65 74 66 20 28 rrent-setting))))))......(setf.(
241c0 6f 72 67 2d 6e 6f 74 65 72 2d 2d 73 65 73 73 69 6f 6e 2d 64 6f 63 2d 73 70 6c 69 74 2d 66 72 61 org-noter--session-doc-split-fra
241e0 63 74 69 6f 6e 20 73 65 73 73 69 6f 6e 29 20 6e 65 77 2d 73 65 74 74 69 6e 67 29 0a 20 20 20 20 ction.session).new-setting).....
24200 20 28 77 68 65 6e 20 28 6f 72 67 2d 6e 6f 74 65 72 2d 2d 67 65 74 2d 6e 6f 74 65 73 2d 77 69 6e .(when.(org-noter--get-notes-win
24220 64 6f 77 29 0a 20 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 dow)........(with-current-buffer
24240 20 28 6f 72 67 2d 6e 6f 74 65 72 2d 2d 73 65 73 73 69 6f 6e 2d 64 6f 63 2d 62 75 66 66 65 72 20 .(org-noter--session-doc-buffer.
24260 73 65 73 73 69 6f 6e 29 0a 20 20 20 20 20 20 20 20 20 28 64 65 6c 65 74 65 2d 6f 74 68 65 72 2d session)..........(delete-other-
24280 77 69 6e 64 6f 77 73 29 0a 20 20 20 20 20 20 20 20 20 28 6f 72 67 2d 6e 6f 74 65 72 2d 2d 67 65 windows)..........(org-noter--ge
242a0 74 2d 6e 6f 74 65 73 2d 77 69 6e 64 6f 77 20 27 66 6f 72 63 65 29 29 29 0a 0a 20 20 20 20 20 28 t-notes-window.'force))).......(
242c0 77 68 65 6e 20 70 65 72 73 69 73 74 65 6e 74 0a 20 20 20 20 20 20 20 28 77 69 74 68 2d 63 75 72 when.persistent........(with-cur
242e0 72 65 6e 74 2d 62 75 66 66 65 72 20 28 6f 72 67 2d 6e 6f 74 65 72 2d 2d 73 65 73 73 69 6f 6e 2d rent-buffer.(org-noter--session-
24300 6e 6f 74 65 73 2d 62 75 66 66 65 72 20 73 65 73 73 69 6f 6e 29 0a 20 20 20 20 20 20 20 20 20 28 notes-buffer.session)..........(
24320 6f 72 67 2d 77 69 74 68 2d 77 69 64 65 2d 62 75 66 66 65 72 0a 20 20 20 20 20 20 20 20 20 20 28 org-with-wide-buffer...........(
24340 67 6f 74 6f 2d 63 68 61 72 20 28 6f 72 67 2d 65 6c 65 6d 65 6e 74 2d 70 72 6f 70 65 72 74 79 20 goto-char.(org-element-property.
24360 3a 62 65 67 69 6e 20 61 73 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 69 66 20 28 65 71 20 70 :begin.ast))...........(if.(eq.p
24380 65 72 73 69 73 74 65 6e 74 20 27 77 72 69 74 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ersistent.'write)...............
243a0 28 6f 72 67 2d 65 6e 74 72 79 2d 70 75 74 20 6e 69 6c 20 6f 72 67 2d 6e 6f 74 65 72 2d 2d 70 72 (org-entry-put.nil.org-noter--pr
243c0 6f 70 65 72 74 79 2d 64 6f 63 2d 73 70 6c 69 74 2d 66 72 61 63 74 69 6f 6e 20 28 66 6f 72 6d 61 operty-doc-split-fraction.(forma
243e0 74 20 22 25 73 22 20 6e 65 77 2d 73 65 74 74 69 6e 67 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 t."%s".new-setting))............
24400 20 28 6f 72 67 2d 65 6e 74 72 79 2d 64 65 6c 65 74 65 20 6e 69 6c 20 6f 72 67 2d 6e 6f 74 65 72 .(org-entry-delete.nil.org-noter
24420 2d 2d 70 72 6f 70 65 72 74 79 2d 64 6f 63 2d 73 70 6c 69 74 2d 66 72 61 63 74 69 6f 6e 29 29 29 --property-doc-split-fraction)))
24440 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 6f 72 67 2d 6e 6f 74 65 72 2d 6b 69 6c 6c 2d 73 65 73 )))))..(defun.org-noter-kill-ses
24460 73 69 6f 6e 20 28 26 6f 70 74 69 6f 6e 61 6c 20 73 65 73 73 69 6f 6e 29 0a 20 20 22 4b 69 6c 6c sion.(&optional.session)..."Kill
24480 20 61 6e 20 60 6f 72 67 2d 6e 6f 74 65 72 27 20 73 65 73 73 69 6f 6e 2e 0a 0a 57 68 65 6e 20 63 .an.`org-noter'.session...When.c
244a0 61 6c 6c 65 64 20 69 6e 74 65 72 61 63 74 69 76 65 6c 79 2c 20 69 66 20 74 68 65 72 65 20 69 73 alled.interactively,.if.there.is
244c0 20 6e 6f 20 70 72 65 66 69 78 20 61 72 67 75 6d 65 6e 74 20 61 6e 64 20 74 68 65 0a 62 75 66 66 .no.prefix.argument.and.the.buff
244e0 65 72 20 68 61 73 20 61 6e 20 61 6e 6e 6f 74 61 74 69 6f 6e 20 73 65 73 73 69 6f 6e 2c 20 69 74 er.has.an.annotation.session,.it
24500 20 77 69 6c 6c 20 6b 69 6c 6c 20 69 74 3b 20 65 6c 73 65 2c 20 69 74 20 77 69 6c 6c 0a 73 68 6f .will.kill.it;.else,.it.will.sho
24520 77 20 61 20 6c 69 73 74 20 6f 66 20 6f 70 65 6e 20 60 6f 72 67 2d 6e 6f 74 65 72 27 20 73 65 73 w.a.list.of.open.`org-noter'.ses
24540 73 69 6f 6e 73 2c 20 61 73 6b 69 6e 67 20 66 6f 72 20 77 68 69 63 68 20 74 6f 0a 6b 69 6c 6c 2e sions,.asking.for.which.to.kill.
24560 0a 0a 57 68 65 6e 20 63 61 6c 6c 65 64 20 66 72 6f 6d 20 65 6c 69 73 70 20 63 6f 64 65 2c 20 79 ..When.called.from.elisp.code,.y
24580 6f 75 20 68 61 76 65 20 74 6f 20 70 61 73 73 20 69 6e 20 74 68 65 20 53 45 53 53 49 4f 4e 20 79 ou.have.to.pass.in.the.SESSION.y
245a0 6f 75 0a 77 61 6e 74 20 74 6f 20 6b 69 6c 6c 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 ou.want.to.kill."...(interactive
245c0 20 22 50 22 29 0a 20 20 28 77 68 65 6e 20 28 61 6e 64 20 28 63 61 6c 6c 65 64 2d 69 6e 74 65 72 ."P")...(when.(and.(called-inter
245e0 61 63 74 69 76 65 6c 79 2d 70 20 27 61 6e 79 29 20 28 3e 20 28 6c 65 6e 67 74 68 20 6f 72 67 2d actively-p.'any).(>.(length.org-
24600 6e 6f 74 65 72 2d 2d 73 65 73 73 69 6f 6e 73 29 20 30 29 29 0a 20 20 20 20 3b 3b 20 4e 4f 54 45 noter--sessions).0)).....;;.NOTE
24620 28 6e 6f 78 29 3a 20 60 73 65 73 73 69 6f 6e 27 20 69 73 20 72 65 70 72 65 73 65 6e 74 69 6e 67 (nox):.`session'.is.representing
24640 20 61 20 70 72 65 66 69 78 20 61 72 67 75 6d 65 6e 74 0a 20 20 20 20 28 69 66 20 28 61 6e 64 20 .a.prefix.argument.....(if.(and.
24660 6f 72 67 2d 6e 6f 74 65 72 2d 2d 73 65 73 73 69 6f 6e 20 28 6e 6f 74 20 73 65 73 73 69 6f 6e 29 org-noter--session.(not.session)
24680 29 0a 20 20 20 20 20 20 20 20 28 73 65 74 71 20 73 65 73 73 69 6f 6e 20 6f 72 67 2d 6e 6f 74 65 ).........(setq.session.org-note
246a0 72 2d 2d 73 65 73 73 69 6f 6e 29 0a 20 20 20 20 20 20 28 73 65 74 71 20 73 65 73 73 69 6f 6e 20 r--session).......(setq.session.
246c0 6e 69 6c 29 0a 20 20 20 20 20 20 28 6c 65 74 20 28 63 6f 6c 6c 65 63 74 69 6f 6e 20 64 65 66 61 nil).......(let.(collection.defa
246e0 75 6c 74 20 64 6f 63 2d 64 69 73 70 6c 61 79 2d 6e 61 6d 65 20 6e 6f 74 65 73 2d 66 69 6c 65 2d ult.doc-display-name.notes-file-
24700 6e 61 6d 65 20 64 69 73 70 6c 61 79 29 0a 20 20 20 20 20 20 20 20 28 64 6f 6c 69 73 74 20 28 73 name.display).........(dolist.(s
24720 65 73 73 69 6f 6e 20 6f 72 67 2d 6e 6f 74 65 72 2d 2d 73 65 73 73 69 6f 6e 73 29 0a 20 20 20 20 ession.org-noter--sessions).....
24740 20 20 20 20 20 20 28 73 65 74 71 20 64 6f 63 2d 64 69 73 70 6c 61 79 2d 6e 61 6d 65 20 28 6f 72 ......(setq.doc-display-name.(or
24760 67 2d 6e 6f 74 65 72 2d 2d 73 65 73 73 69 6f 6e 2d 64 69 73 70 6c 61 79 2d 6e 61 6d 65 20 73 65 g-noter--session-display-name.se
24780 73 73 69 6f 6e 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6e 6f 74 65 73 2d 66 69 6c ssion).................notes-fil
247a0 65 2d 6e 61 6d 65 20 28 66 69 6c 65 2d 6e 61 6d 65 2d 6e 6f 6e 64 69 72 65 63 74 6f 72 79 0a 20 e-name.(file-name-nondirectory..
247c0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ................................
247e0 28 6f 72 67 2d 6e 6f 74 65 72 2d 2d 73 65 73 73 69 6f 6e 2d 6e 6f 74 65 73 2d 66 69 6c 65 2d 70 (org-noter--session-notes-file-p
24800 61 74 68 20 73 65 73 73 69 6f 6e 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 64 69 ath.session)).................di
24820 73 70 6c 61 79 20 28 63 6f 6e 63 61 74 20 64 6f 63 2d 64 69 73 70 6c 61 79 2d 6e 61 6d 65 20 22 splay.(concat.doc-display-name."
24840 20 2d 20 22 20 6e 6f 74 65 73 2d 66 69 6c 65 2d 6e 61 6d 65 29 29 0a 20 20 20 20 20 20 20 20 20 .-.".notes-file-name))..........
24860 20 28 77 68 65 6e 20 28 65 71 20 73 65 73 73 69 6f 6e 20 6f 72 67 2d 6e 6f 74 65 72 2d 2d 73 65 .(when.(eq.session.org-noter--se
24880 73 73 69 6f 6e 29 20 28 73 65 74 71 20 64 65 66 61 75 6c 74 20 64 69 73 70 6c 61 79 29 29 0a 20 ssion).(setq.default.display))..
248a0 20 20 20 20 20 20 20 20 20 28 70 75 73 68 20 28 63 6f 6e 73 20 64 69 73 70 6c 61 79 20 73 65 73 .........(push.(cons.display.ses
248c0 73 69 6f 6e 29 20 63 6f 6c 6c 65 63 74 69 6f 6e 29 29 0a 20 20 20 20 20 20 20 20 28 73 65 74 71 sion).collection)).........(setq
248e0 20 73 65 73 73 69 6f 6e 20 28 63 64 72 20 28 61 73 73 6f 63 20 28 63 6f 6d 70 6c 65 74 69 6e 67 .session.(cdr.(assoc.(completing
24900 2d 72 65 61 64 20 22 57 68 69 63 68 20 73 65 73 73 69 6f 6e 3f 20 22 20 63 6f 6c 6c 65 63 74 69 -read."Which.session?.".collecti
24920 6f 6e 20 6e 69 6c 20 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 on.nil.t........................
24940 20 20 20 20 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 20 ............................nil.
24960 6e 69 6c 20 64 65 66 61 75 6c 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 nil.default)....................
24980 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 6f 6c 6c 65 63 74 69 6f 6e 29 29 29 29 29 29 0a ...............collection)))))).
249a0 0a 20 20 28 77 68 65 6e 20 28 61 6e 64 20 73 65 73 73 69 6f 6e 20 28 6d 65 6d 71 20 73 65 73 73 ...(when.(and.session.(memq.sess
249c0 69 6f 6e 20 6f 72 67 2d 6e 6f 74 65 72 2d 2d 73 65 73 73 69 6f 6e 73 29 29 0a 20 20 20 20 28 73 ion.org-noter--sessions)).....(s
249e0 65 74 71 20 6f 72 67 2d 6e 6f 74 65 72 2d 2d 73 65 73 73 69 6f 6e 73 20 28 64 65 6c 71 20 73 65 etq.org-noter--sessions.(delq.se
24a00 73 73 69 6f 6e 20 6f 72 67 2d 6e 6f 74 65 72 2d 2d 73 65 73 73 69 6f 6e 73 29 29 0a 0a 20 20 20 ssion.org-noter--sessions)).....
24a20 20 28 77 68 65 6e 20 28 65 71 20 28 6c 65 6e 67 74 68 20 6f 72 67 2d 6e 6f 74 65 72 2d 2d 73 65 .(when.(eq.(length.org-noter--se
24a40 73 73 69 6f 6e 73 29 20 30 29 0a 20 20 20 20 20 20 28 72 65 6d 6f 76 65 2d 68 6f 6f 6b 20 27 64 ssions).0).......(remove-hook.'d
24a60 65 6c 65 74 65 2d 66 72 61 6d 65 2d 66 75 6e 63 74 69 6f 6e 73 20 27 6f 72 67 2d 6e 6f 74 65 72 elete-frame-functions.'org-noter
24a80 2d 2d 68 61 6e 64 6c 65 2d 64 65 6c 65 74 65 2d 66 72 61 6d 65 29 0a 20 20 20 20 20 20 28 72 75 --handle-delete-frame).......(ru
24aa0 6e 2d 68 6f 6f 6b 73 20 27 6f 72 67 2d 6e 6f 74 65 72 2d 2d 6e 6f 2d 73 65 73 73 69 6f 6e 73 2d n-hooks.'org-noter--no-sessions-
24ac0 72 65 6d 6f 76 65 2d 61 64 76 69 63 65 2d 68 6f 6f 6b 73 29 29 0a 0a 20 20 20 20 28 6c 65 74 2a remove-advice-hooks))......(let*
24ae0 20 28 28 61 73 74 20 20 20 28 6f 72 67 2d 6e 6f 74 65 72 2d 2d 70 61 72 73 65 2d 72 6f 6f 74 20 .((ast...(org-noter--parse-root.
24b00 73 65 73 73 69 6f 6e 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 66 72 61 6d 65 20 28 6f 72 67 session))............(frame.(org
24b20 2d 6e 6f 74 65 72 2d 2d 73 65 73 73 69 6f 6e 2d 66 72 61 6d 65 20 73 65 73 73 69 6f 6e 29 29 0a -noter--session-frame.session)).
24b40 20 20 20 20 20 20 20 20 20 20 20 28 6e 6f 74 65 73 2d 62 75 66 66 65 72 20 28 6f 72 67 2d 6e 6f ...........(notes-buffer.(org-no
24b60 74 65 72 2d 2d 73 65 73 73 69 6f 6e 2d 6e 6f 74 65 73 2d 62 75 66 66 65 72 20 73 65 73 73 69 6f ter--session-notes-buffer.sessio
24b80 6e 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 62 61 73 65 2d 62 75 66 66 65 72 20 28 62 75 66 n))............(base-buffer.(buf
24ba0 66 65 72 2d 62 61 73 65 2d 62 75 66 66 65 72 20 6e 6f 74 65 73 2d 62 75 66 66 65 72 29 29 0a 20 fer-base-buffer.notes-buffer))..
24bc0 20 20 20 20 20 20 20 20 20 20 28 6e 6f 74 65 73 2d 6d 6f 64 69 66 69 65 64 20 28 62 75 66 66 65 ..........(notes-modified.(buffe
24be0 72 2d 6d 6f 64 69 66 69 65 64 2d 70 20 62 61 73 65 2d 62 75 66 66 65 72 29 29 0a 20 20 20 20 20 r-modified-p.base-buffer))......
24c00 20 20 20 20 20 20 28 64 6f 63 2d 62 75 66 66 65 72 20 28 6f 72 67 2d 6e 6f 74 65 72 2d 2d 73 65 ......(doc-buffer.(org-noter--se
24c20 73 73 69 6f 6e 2d 64 6f 63 2d 62 75 66 66 65 72 20 73 65 73 73 69 6f 6e 29 29 29 0a 0a 20 20 20 ssion-doc-buffer.session))).....
24c40 20 20 20 28 64 6f 6c 69 73 74 20 28 77 69 6e 64 6f 77 20 28 67 65 74 2d 62 75 66 66 65 72 2d 77 ...(dolist.(window.(get-buffer-w
24c60 69 6e 64 6f 77 2d 6c 69 73 74 20 6e 6f 74 65 73 2d 62 75 66 66 65 72 20 6e 69 6c 20 74 29 29 0a indow-list.notes-buffer.nil.t)).
24c80 20 20 20 20 20 20 20 20 28 77 69 74 68 2d 73 65 6c 65 63 74 65 64 2d 66 72 61 6d 65 20 28 77 69 ........(with-selected-frame.(wi
24ca0 6e 64 6f 77 2d 66 72 61 6d 65 20 77 69 6e 64 6f 77 29 0a 20 20 20 20 20 20 20 20 20 20 28 69 66 ndow-frame.window)...........(if
24cc0 20 28 3d 20 28 63 6f 75 6e 74 2d 77 69 6e 64 6f 77 73 29 20 31 29 0a 20 20 20 20 20 20 20 20 20 .(=.(count-windows).1)..........
24ce0 20 20 20 20 20 28 77 68 65 6e 20 28 6f 72 67 2d 6e 6f 74 65 72 2d 2d 6f 74 68 65 72 2d 66 72 61 .....(when.(org-noter--other-fra
24d00 6d 65 73 29 20 28 64 65 6c 65 74 65 2d 66 72 61 6d 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 mes).(delete-frame))............
24d20 20 28 64 65 6c 65 74 65 2d 77 69 6e 64 6f 77 20 77 69 6e 64 6f 77 29 29 29 29 0a 0a 20 20 20 20 .(delete-window.window))))......
24d40 20 20 28 77 69 74 68 2d 63 75 72 72 65 6e 74 2d 62 75 66 66 65 72 20 6e 6f 74 65 73 2d 62 75 66 ..(with-current-buffer.notes-buf
24d60 66 65 72 0a 20 20 20 20 20 20 20 20 28 72 65 6d 6f 76 65 2d 68 6f 6f 6b 20 27 6b 69 6c 6c 2d 62 fer.........(remove-hook.'kill-b
24d80 75 66 66 65 72 2d 68 6f 6f 6b 20 27 6f 72 67 2d 6e 6f 74 65 72 2d 2d 68 61 6e 64 6c 65 2d 6b 69 uffer-hook.'org-noter--handle-ki
24da0 6c 6c 2d 62 75 66 66 65 72 20 74 29 0a 20 20 20 20 20 20 20 20 28 72 65 73 74 6f 72 65 2d 62 75 ll-buffer.t).........(restore-bu
24dc0 66 66 65 72 2d 6d 6f 64 69 66 69 65 64 2d 70 20 6e 69 6c 29 29 0a 20 20 20 20 20 20 28 77 68 65 ffer-modified-p.nil)).......(whe
24de0 6e 20 6f 72 67 2d 6e 6f 74 65 72 2d 75 73 65 2d 69 6e 64 69 72 65 63 74 2d 62 75 66 66 65 72 0a n.org-noter-use-indirect-buffer.
24e00 20 20 20 20 20 20 20 20 28 6b 69 6c 6c 2d 62 75 66 66 65 72 20 6e 6f 74 65 73 2d 62 75 66 66 65 ........(kill-buffer.notes-buffe
24e20 72 29 29 0a 0a 20 20 20 20 20 20 28 77 68 65 6e 20 62 61 73 65 2d 62 75 66 66 65 72 0a 20 20 20 r))........(when.base-buffer....
24e40 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 62 61 73 65 2d 62 .....(with-current-buffer.base-b
24e60 75 66 66 65 72 0a 20 20 20 20 20 20 20 20 20 20 28 6f 72 67 2d 6e 6f 74 65 72 2d 2d 75 6e 73 65 uffer...........(org-noter--unse
24e80 74 2d 74 65 78 74 2d 70 72 6f 70 65 72 74 69 65 73 20 61 73 74 29 0a 20 20 20 20 20 20 20 20 20 t-text-properties.ast)..........
24ea0 20 28 73 65 74 2d 62 75 66 66 65 72 2d 6d 6f 64 69 66 69 65 64 2d 70 20 6e 6f 74 65 73 2d 6d 6f .(set-buffer-modified-p.notes-mo
24ec0 64 69 66 69 65 64 29 29 29 0a 0a 20 20 20 20 20 20 28 77 69 74 68 2d 63 75 72 72 65 6e 74 2d 62 dified)))........(with-current-b
24ee0 75 66 66 65 72 20 64 6f 63 2d 62 75 66 66 65 72 0a 20 20 20 20 20 20 20 20 28 72 65 6d 6f 76 65 uffer.doc-buffer.........(remove
24f00 2d 68 6f 6f 6b 20 27 6b 69 6c 6c 2d 62 75 66 66 65 72 2d 68 6f 6f 6b 20 27 6f 72 67 2d 6e 6f 74 -hook.'kill-buffer-hook.'org-not
24f20 65 72 2d 2d 68 61 6e 64 6c 65 2d 6b 69 6c 6c 2d 62 75 66 66 65 72 20 74 29 29 0a 20 20 20 20 20 er--handle-kill-buffer.t))......
24f40 20 28 75 6e 6c 65 73 73 20 6f 72 67 2d 6e 6f 74 65 72 2d 6b 69 6c 6c 2d 66 72 61 6d 65 2d 61 74 .(unless.org-noter-kill-frame-at
24f60 2d 73 65 73 73 69 6f 6e 2d 65 6e 64 0a 20 20 20 20 20 20 20 20 20 20 28 73 65 74 2d 77 69 6e 64 -session-end...........(set-wind
24f80 6f 77 2d 64 65 64 69 63 61 74 65 64 2d 70 20 28 67 65 74 2d 62 75 66 66 65 72 2d 77 69 6e 64 6f ow-dedicated-p.(get-buffer-windo
24fa0 77 20 64 6f 63 2d 62 75 66 66 65 72 29 20 6e 69 6c 29 29 0a 20 20 20 20 20 20 28 6b 69 6c 6c 2d w.doc-buffer).nil)).......(kill-
24fc0 62 75 66 66 65 72 20 64 6f 63 2d 62 75 66 66 65 72 29 0a 0a 20 20 20 20 20 20 28 77 68 65 6e 20 buffer.doc-buffer)........(when.
24fe0 28 66 72 61 6d 65 2d 6c 69 76 65 2d 70 20 66 72 61 6d 65 29 0a 20 20 20 20 20 20 20 20 28 69 66 (frame-live-p.frame).........(if
25000 20 28 61 6e 64 20 28 6f 72 67 2d 6e 6f 74 65 72 2d 2d 6f 74 68 65 72 2d 66 72 61 6d 65 73 29 20 .(and.(org-noter--other-frames).
25020 6f 72 67 2d 6e 6f 74 65 72 2d 6b 69 6c 6c 2d 66 72 61 6d 65 2d 61 74 2d 73 65 73 73 69 6f 6e 2d org-noter-kill-frame-at-session-
25040 65 6e 64 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 64 65 6c 65 74 65 2d 66 72 61 6d 65 20 66 end).............(delete-frame.f
25060 72 61 6d 65 29 0a 20 20 20 20 20 20 20 20 20 20 28 70 72 6f 67 6e 0a 20 20 20 20 20 20 20 20 20 rame)...........(progn..........
25080 20 20 20 28 64 65 6c 65 74 65 2d 6f 74 68 65 72 2d 77 69 6e 64 6f 77 73 29 0a 20 20 20 20 20 20 ...(delete-other-windows).......
250a0 20 20 20 20 20 20 28 73 65 74 2d 66 72 61 6d 65 2d 70 61 72 61 6d 65 74 65 72 20 6e 69 6c 20 27 ......(set-frame-parameter.nil.'
250c0 6e 61 6d 65 20 6e 69 6c 29 29 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 6f 72 67 2d 6e 6f 74 65 name.nil)))))))..(defun.org-note
250e0 72 2d 63 72 65 61 74 65 2d 73 6b 65 6c 65 74 6f 6e 20 28 29 0a 20 20 22 43 72 65 61 74 65 20 6e r-create-skeleton.()..."Create.n
25100 6f 74 65 73 20 73 6b 65 6c 65 74 6f 6e 20 62 61 73 65 64 20 6f 6e 20 74 68 65 20 6f 75 74 6c 69 otes.skeleton.based.on.the.outli
25120 6e 65 20 6f 66 20 74 68 65 20 64 6f 63 75 6d 65 6e 74 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 ne.of.the.document."...(interact
25140 69 76 65 29 0a 20 20 28 6f 72 67 2d 6e 6f 74 65 72 2d 2d 77 69 74 68 2d 76 61 6c 69 64 2d 73 65 ive)...(org-noter--with-valid-se
25160 73 73 69 6f 6e 0a 20 20 20 28 6f 72 20 28 72 75 6e 2d 68 6f 6f 6b 2d 77 69 74 68 2d 61 72 67 73 ssion....(or.(run-hook-with-args
25180 2d 75 6e 74 69 6c 2d 73 75 63 63 65 73 73 20 27 6f 72 67 2d 6e 6f 74 65 72 2d 63 72 65 61 74 65 -until-success.'org-noter-create
251a0 2d 73 6b 65 6c 65 74 6f 6e 2d 66 75 6e 63 74 69 6f 6e 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 -skeleton-functions.............
251c0 20 20 20 20 20 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 6f 72 .............................(or
251e0 67 2d 6e 6f 74 65 72 2d 2d 73 65 73 73 69 6f 6e 2d 64 6f 63 2d 6d 6f 64 65 20 73 65 73 73 69 6f g-noter--session-doc-mode.sessio
25200 6e 29 29 0a 20 20 20 20 20 20 20 28 75 73 65 72 2d 65 72 72 6f 72 20 22 54 68 69 73 20 63 6f 6d n))........(user-error."This.com
25220 6d 61 6e 64 20 69 73 20 6e 6f 74 20 73 75 70 70 6f 72 74 65 64 20 66 6f 72 20 25 73 22 0a 20 20 mand.is.not.supported.for.%s"...
25240 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6f 72 67 2d 6e 6f 74 65 72 2d 2d 73 65 73 .................(org-noter--ses
25260 73 69 6f 6e 2d 64 6f 63 2d 6d 6f 64 65 20 73 65 73 73 69 6f 6e 29 29 29 29 29 0a 0a 28 64 65 66 sion-doc-mode.session)))))..(def
25280 75 6e 20 6f 72 67 2d 6e 6f 74 65 72 2d 69 6e 73 65 72 74 2d 6e 6f 74 65 20 28 26 6f 70 74 69 6f un.org-noter-insert-note.(&optio
252a0 6e 61 6c 20 74 6f 67 67 6c 65 2d 68 69 67 68 6c 69 67 68 74 20 70 72 65 63 69 73 65 2d 69 6e 66 nal.toggle-highlight.precise-inf
252c0 6f 29 0a 20 20 22 49 6e 73 65 72 74 20 6e 6f 74 65 20 61 73 73 6f 63 69 61 74 65 64 20 77 69 74 o)..."Insert.note.associated.wit
252e0 68 20 74 68 65 20 63 75 72 72 65 6e 74 20 6c 6f 63 61 74 69 6f 6e 2e 0a 0a 54 68 69 73 20 63 6f h.the.current.location...This.co
25300 6d 6d 61 6e 64 20 77 69 6c 6c 20 70 72 6f 6d 70 74 20 66 6f 72 20 61 20 74 69 74 6c 65 20 6f 66 mmand.will.prompt.for.a.title.of
25320 20 74 68 65 20 6e 6f 74 65 20 61 6e 64 20 74 68 65 6e 20 69 6e 73 65 72 74 0a 69 74 20 69 6e 20 .the.note.and.then.insert.it.in.
25340 74 68 65 20 6e 6f 74 65 73 20 62 75 66 66 65 72 2e 20 20 57 68 65 6e 20 74 68 65 20 69 6e 70 75 the.notes.buffer...When.the.inpu
25360 74 20 69 73 20 65 6d 70 74 79 2c 20 61 20 74 69 74 6c 65 20 62 61 73 65 64 20 6f 6e 0a 65 69 74 t.is.empty,.a.title.based.on.eit
25380 68 65 72 20 74 68 65 20 73 65 6c 65 63 74 65 64 20 74 65 78 74 20 28 69 66 20 69 74 20 69 73 20 her.the.selected.text.(if.it.is.
253a0 3c 3d 0a 60 6f 72 67 2d 6e 6f 74 65 72 2d 6d 61 78 2d 73 68 6f 72 74 2d 73 65 6c 65 63 74 65 64 <=.`org-noter-max-short-selected
253c0 2d 74 65 78 74 2d 6c 65 6e 67 74 68 27 29 20 6f 72 0a 60 6f 72 67 2d 6e 6f 74 65 72 2d 64 65 66 -text-length').or.`org-noter-def
253e0 61 75 6c 74 2d 68 65 61 64 69 6e 67 2d 74 69 74 6c 65 27 20 77 69 6c 6c 20 62 65 20 67 65 6e 65 ault-heading-title'.will.be.gene
25400 72 61 74 65 64 2e 0a 0a 49 66 20 74 68 65 72 65 20 61 72 65 20 6f 74 68 65 72 20 6e 6f 74 65 73 rated...If.there.are.other.notes
25420 20 72 65 6c 61 74 65 64 20 74 6f 20 74 68 65 20 63 75 72 72 65 6e 74 20 6c 6f 63 61 74 69 6f 6e .related.to.the.current.location
25440 2c 20 74 68 65 0a 70 72 6f 6d 70 74 20 77 69 6c 6c 20 61 6c 73 6f 20 73 75 67 67 65 73 74 20 74 ,.the.prompt.will.also.suggest.t
25460 68 65 6d 2e 20 20 44 65 70 65 6e 64 69 6e 67 20 6f 6e 20 74 68 65 20 76 61 6c 75 65 20 6f 66 20 hem...Depending.on.the.value.of.
25480 74 68 65 0a 76 61 72 69 61 62 6c 65 20 60 6f 72 67 2d 6e 6f 74 65 72 2d 63 6c 6f 73 65 73 74 2d the.variable.`org-noter-closest-
254a0 74 69 70 70 69 6e 67 2d 70 6f 69 6e 74 27 2c 20 69 74 20 6d 61 79 20 61 6c 73 6f 20 73 75 67 67 tipping-point',.it.may.also.sugg
254c0 65 73 74 0a 74 68 65 20 63 6c 6f 73 65 73 74 20 70 72 65 76 69 6f 75 73 20 6e 6f 74 65 2e 0a 0a est.the.closest.previous.note...
254e0 54 68 65 20 70 72 65 66 69 78 20 5c 5c 5b 75 6e 69 76 65 72 73 61 6c 2d 61 72 67 75 6d 65 6e 74 The.prefix.\\[universal-argument
25500 5d 20 73 65 74 73 20 54 4f 47 47 4c 45 2d 48 49 47 48 4c 49 47 48 54 2c 20 77 68 69 63 68 0a 69 ].sets.TOGGLE-HIGHLIGHT,.which.i
25520 6e 76 65 72 74 73 20 74 68 65 20 6c 6f 67 69 63 20 6f 66 20 74 68 65 20 63 75 73 74 6f 6d 20 76 nverts.the.logic.of.the.custom.v
25540 61 72 69 61 62 6c 65 0a 60 6f 72 67 2d 6e 6f 74 65 72 2d 68 69 67 68 6c 69 67 68 74 2d 73 65 6c ariable.`org-noter-highlight-sel
25560 65 63 74 65 64 2d 74 65 78 74 27 20 66 6f 72 20 74 68 69 73 20 6e 6f 74 65 2e 0a 0a 50 52 45 43 ected-text'.for.this.note...PREC
25580 49 53 45 2d 49 4e 46 4f 20 6d 61 6b 65 73 20 74 68 65 20 6e 65 77 20 6e 6f 74 65 20 61 73 73 6f ISE-INFO.makes.the.new.note.asso
255a0 63 69 61 74 65 64 20 77 69 74 68 20 61 20 6d 6f 72 65 20 73 70 65 63 69 66 69 63 0a 6c 6f 63 61 ciated.with.a.more.specific.loca
255c0 74 69 6f 6e 20 28 73 65 65 20 60 6f 72 67 2d 6e 6f 74 65 72 2d 69 6e 73 65 72 74 2d 70 72 65 63 tion.(see.`org-noter-insert-prec
255e0 69 73 65 2d 6e 6f 74 65 27 20 66 6f 72 20 6d 6f 72 65 20 69 6e 66 6f 29 2e 0a 0a 57 68 65 6e 20 ise-note'.for.more.info)...When.
25600 79 6f 75 20 69 6e 73 65 72 74 20 69 6e 74 6f 20 61 6e 20 65 78 69 73 74 69 6e 67 20 6e 6f 74 65 you.insert.into.an.existing.note
25620 20 61 6e 64 20 68 61 76 65 20 74 65 78 74 20 73 65 6c 65 63 74 65 64 20 6f 6e 0a 74 68 65 20 64 .and.have.text.selected.on.the.d
25640 6f 63 75 6d 65 6e 74 20 62 75 66 66 65 72 2c 20 74 68 65 20 76 61 72 69 61 62 6c 65 0a 60 6f 72 ocument.buffer,.the.variable.`or
25660 67 2d 6e 6f 74 65 72 2d 69 6e 73 65 72 74 2d 73 65 6c 65 63 74 65 64 2d 74 65 78 74 2d 69 6e 73 g-noter-insert-selected-text-ins
25680 69 64 65 2d 6e 6f 74 65 27 20 64 65 66 69 6e 65 73 20 69 66 20 74 68 65 20 74 65 78 74 0a 73 68 ide-note'.defines.if.the.text.sh
256a0 6f 75 6c 64 20 62 65 20 69 6e 73 65 72 74 65 64 20 69 6e 73 69 64 65 20 74 68 65 20 6e 6f 74 65 ould.be.inserted.inside.the.note
256c0 2e 0a 0a 47 75 69 64 69 6e 67 20 70 72 69 6e 63 69 70 6c 65 73 20 66 6f 72 20 6e 6f 74 65 20 67 ...Guiding.principles.for.note.g
256e0 65 6e 65 72 61 74 69 6f 6e 0a 20 20 31 2e 20 54 68 65 20 70 72 65 66 65 72 72 65 64 20 74 69 74 eneration...1..The.preferred.tit
25700 6c 65 20 69 73 20 74 68 65 20 6f 6e 65 20 74 68 65 20 75 73 65 72 20 65 6e 74 65 72 73 20 69 6e le.is.the.one.the.user.enters.in
25720 20 74 68 65 0a 20 20 20 20 20 6d 69 6e 69 62 75 66 66 65 72 2e 0a 20 20 32 2e 20 53 65 6c 65 63 .the......minibuffer....2..Selec
25740 74 65 64 20 74 65 78 74 20 73 68 6f 75 6c 64 20 62 65 20 75 73 65 64 20 69 6e 20 74 68 65 20 6e ted.text.should.be.used.in.the.n
25760 6f 74 65 2c 20 65 69 74 68 65 72 20 61 73 20 74 68 65 0a 20 20 20 20 20 74 69 74 6c 65 20 6f 72 ote,.either.as.the......title.or
25780 20 69 6e 20 74 68 65 20 62 6f 64 79 0a 20 20 33 2e 20 52 65 66 72 61 69 6e 20 66 72 6f 6d 20 6d .in.the.body...3..Refrain.from.m
257a0 61 6b 69 6e 67 20 6e 6f 74 65 73 20 69 6e 20 74 68 65 20 73 61 6d 65 20 6c 6f 63 61 74 69 6f 6e aking.notes.in.the.same.location
257c0 20 77 69 74 68 20 74 68 65 20 73 61 6d 65 0a 20 20 20 20 20 74 69 74 6c 65 0a 20 20 34 2e 20 50 .with.the.same......title...4..P
257e0 72 65 63 69 73 65 20 6e 6f 74 65 73 20 67 65 6e 65 72 61 6c 6c 79 20 68 61 76 65 20 64 69 66 66 recise.notes.generally.have.diff
25800 65 72 65 6e 74 20 6c 6f 63 61 74 69 6f 6e 73 2c 20 73 6f 20 61 6c 77 61 79 73 0a 20 20 20 20 20 erent.locations,.so.always......
25820 6d 61 6b 65 20 6e 65 77 20 70 72 65 63 69 73 65 20 6e 6f 74 65 73 22 0a 20 20 28 69 6e 74 65 72 make.new.precise.notes"...(inter
25840 61 63 74 69 76 65 20 22 50 22 29 0a 20 20 28 6f 72 67 2d 6e 6f 74 65 72 2d 2d 77 69 74 68 2d 76 active."P")...(org-noter--with-v
25860 61 6c 69 64 2d 73 65 73 73 69 6f 6e 0a 20 20 20 28 6c 65 74 2a 20 28 28 61 73 74 20 28 6f 72 67 alid-session....(let*.((ast.(org
25880 2d 6e 6f 74 65 72 2d 2d 70 61 72 73 65 2d 72 6f 6f 74 29 29 20 28 63 6f 6e 74 65 6e 74 73 20 28 -noter--parse-root)).(contents.(
258a0 6f 72 67 2d 65 6c 65 6d 65 6e 74 2d 63 6f 6e 74 65 6e 74 73 20 61 73 74 29 29 0a 20 20 20 20 20 org-element-contents.ast))......
258c0 20 20 20 20 20 28 77 69 6e 64 6f 77 20 28 6f 72 67 2d 6e 6f 74 65 72 2d 2d 67 65 74 2d 6e 6f 74 .....(window.(org-noter--get-not
258e0 65 73 2d 77 69 6e 64 6f 77 20 27 66 6f 72 63 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 73 65 es-window.'force))...........(se
25900 6c 65 63 74 65 64 2d 74 65 78 74 20 28 72 75 6e 2d 68 6f 6f 6b 2d 77 69 74 68 2d 61 72 67 73 2d lected-text.(run-hook-with-args-
25920 75 6e 74 69 6c 2d 73 75 63 63 65 73 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 until-success...................
25940 20 20 20 20 20 20 20 20 27 6f 72 67 2d 6e 6f 74 65 72 2d 67 65 74 2d 73 65 6c 65 63 74 65 64 2d ........'org-noter-get-selected-
25960 74 65 78 74 2d 68 6f 6f 6b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 text-hook.......................
25980 20 20 20 20 28 6f 72 67 2d 6e 6f 74 65 72 2d 2d 73 65 73 73 69 6f 6e 2d 64 6f 63 2d 6d 6f 64 65 ....(org-noter--session-doc-mode
259a0 20 73 65 73 73 69 6f 6e 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 73 65 6c 65 63 74 65 64 2d .session)))...........(selected-
259c0 74 65 78 74 2d 70 20 28 3e 20 28 6c 65 6e 67 74 68 20 73 65 6c 65 63 74 65 64 2d 74 65 78 74 29 text-p.(>.(length.selected-text)
259e0 20 30 29 29 0a 20 20 20 20 20 20 20 20 20 20 66 6f 72 63 65 2d 6e 65 77 0a 20 20 20 20 20 20 20 .0))...........force-new........
25a00 20 20 20 28 6c 6f 63 61 74 69 6f 6e 20 28 6f 72 67 2d 6e 6f 74 65 72 2d 2d 64 6f 63 2d 61 70 70 ...(location.(org-noter--doc-app
25a20 72 6f 78 2d 6c 6f 63 61 74 69 6f 6e 20 28 6f 72 20 70 72 65 63 69 73 65 2d 69 6e 66 6f 20 27 69 rox-location.(or.precise-info.'i
25a40 6e 74 65 72 61 63 74 69 76 65 29 20 28 67 76 2d 72 65 66 20 66 6f 72 63 65 2d 6e 65 77 29 29 29 nteractive).(gv-ref.force-new)))
25a60 0a 20 20 20 20 20 20 20 20 20 20 28 63 75 72 72 65 6e 74 2d 76 69 65 77 20 28 6f 72 67 2d 6e 6f ...........(current-view.(org-no
25a80 74 65 72 2d 2d 67 65 74 2d 63 75 72 72 65 6e 74 2d 76 69 65 77 29 29 29 0a 0a 20 20 20 20 20 28 ter--get-current-view))).......(
25aa0 6c 65 74 2a 20 28 28 69 6e 68 69 62 69 74 2d 71 75 69 74 20 74 29 0a 20 20 20 20 20 20 20 20 20 let*.((inhibit-quit.t)..........
25ac0 20 20 20 28 73 68 6f 72 74 2d 73 65 6c 65 63 74 65 64 2d 74 65 78 74 20 28 69 66 20 28 61 6e 64 ...(short-selected-text.(if.(and
25ae0 20 73 65 6c 65 63 74 65 64 2d 74 65 78 74 2d 70 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .selected-text-p................
25b00 20 20 20 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 3c 3d 20 28 ...........................(<=.(
25b20 6c 65 6e 67 74 68 20 73 65 6c 65 63 74 65 64 2d 74 65 78 74 29 20 6f 72 67 2d 6e 6f 74 65 72 2d length.selected-text).org-noter-
25b40 6d 61 78 2d 73 68 6f 72 74 2d 73 65 6c 65 63 74 65 64 2d 74 65 78 74 2d 6c 65 6e 67 74 68 29 29 max-short-selected-text-length))
25b60 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 ................................
25b80 20 20 20 20 20 20 73 65 6c 65 63 74 65 64 2d 74 65 78 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 ......selected-text))...........
25ba0 20 20 28 6f 72 67 2d 6e 6f 74 65 72 2d 68 69 67 68 6c 69 67 68 74 2d 73 65 6c 65 63 74 65 64 2d ..(org-noter-highlight-selected-
25bc0 74 65 78 74 20 28 69 66 20 74 6f 67 67 6c 65 2d 68 69 67 68 6c 69 67 68 74 20 28 6e 6f 74 20 6f text.(if.toggle-highlight.(not.o
25be0 72 67 2d 6e 6f 74 65 72 2d 68 69 67 68 6c 69 67 68 74 2d 73 65 6c 65 63 74 65 64 2d 74 65 78 74 rg-noter-highlight-selected-text
25c00 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 )...............................
25c20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6f 72 67 2d 6e 6f 74 65 72 2d 68 69 67 ...................org-noter-hig
25c40 68 6c 69 67 68 74 2d 73 65 6c 65 63 74 65 64 2d 74 65 78 74 29 29 0a 20 20 20 20 20 20 20 20 20 hlight-selected-text))..........
25c60 20 20 20 28 68 69 67 68 6c 69 67 68 74 2d 6c 6f 63 61 74 69 6f 6e 20 28 69 66 20 6f 72 67 2d 6e ...(highlight-location.(if.org-n
25c80 6f 74 65 72 2d 68 69 67 68 6c 69 67 68 74 2d 73 65 6c 65 63 74 65 64 2d 74 65 78 74 20 28 6f 72 oter-highlight-selected-text.(or
25ca0 67 2d 6e 6f 74 65 72 2d 2d 67 65 74 2d 68 69 67 68 6c 69 67 68 74 2d 6c 6f 63 61 74 69 6f 6e 29 g-noter--get-highlight-location)
25cc0 29 29 29 0a 0a 20 20 20 20 20 20 20 28 77 69 74 68 2d 6c 6f 63 61 6c 2d 71 75 69 74 0a 20 20 20 ))).........(with-local-quit....
25ce0 20 20 20 20 20 20 28 73 65 6c 65 63 74 2d 66 72 61 6d 65 2d 73 65 74 2d 69 6e 70 75 74 2d 66 6f ......(select-frame-set-input-fo
25d00 63 75 73 20 28 77 69 6e 64 6f 77 2d 66 72 61 6d 65 20 77 69 6e 64 6f 77 29 29 0a 20 20 20 20 20 cus.(window-frame.window))......
25d20 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 0a 20 20 20 20 ....(select-window.window)......
25d40 20 20 20 20 20 3b 3b 20 49 4d 50 4f 52 54 41 4e 54 28 6e 6f 78 29 3a 20 4e 65 65 64 20 74 6f 20 .....;;.IMPORTANT(nox):.Need.to.
25d60 62 65 20 63 61 72 65 66 75 6c 20 63 68 61 6e 67 69 6e 67 20 74 68 65 20 6e 65 78 74 20 70 61 72 be.careful.changing.the.next.par
25d80 74 2c 20 69 74 20 69 73 20 61 20 62 69 74 0a 20 20 20 20 20 20 20 20 20 3b 3b 20 63 6f 6d 70 6c t,.it.is.a.bit..........;;.compl
25da0 69 63 61 74 65 64 20 74 6f 20 67 65 74 20 69 74 20 72 69 67 68 74 2e 2e 2e 0a 0a 20 20 20 20 20 icated.to.get.it.right..........
25dc0 20 20 20 20 28 6c 65 74 20 28 28 76 69 65 77 2d 69 6e 66 6f 20 28 6f 72 67 2d 6e 6f 74 65 72 2d ....(let.((view-info.(org-noter-
25de0 2d 67 65 74 2d 76 69 65 77 2d 69 6e 66 6f 20 63 75 72 72 65 6e 74 2d 76 69 65 77 20 6c 6f 63 61 -get-view-info.current-view.loca
25e00 74 69 6f 6e 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6d 69 6e 69 62 75 66 66 65 tion))................(minibuffe
25e20 72 2d 6c 6f 63 61 6c 2d 63 6f 6d 70 6c 65 74 69 6f 6e 2d 6d 61 70 20 6f 72 67 2d 6e 6f 74 65 72 r-local-completion-map.org-noter
25e40 2d 2d 63 6f 6d 70 6c 65 74 69 6e 67 2d 72 65 61 64 2d 6b 65 79 6d 61 70 29 0a 20 20 20 20 20 20 --completing-read-keymap).......
25e60 20 20 20 20 20 20 20 20 20 63 6f 6c 6c 65 63 74 69 6f 6e 20 74 69 74 6c 65 20 6e 6f 74 65 2d 62 .........collection.title.note-b
25e80 6f 64 79 20 65 78 69 73 74 69 6e 67 2d 6e 6f 74 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ody.existing-note...............
25ea0 20 28 64 65 66 61 75 6c 74 2d 74 69 74 6c 65 20 28 6f 72 20 73 68 6f 72 74 2d 73 65 6c 65 63 74 .(default-title.(or.short-select
25ec0 65 64 2d 74 65 78 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 ed-text.........................
25ee0 20 20 20 20 20 20 20 20 20 20 28 72 65 70 6c 61 63 65 2d 72 65 67 65 78 70 2d 69 6e 2d 73 74 72 ..........(replace-regexp-in-str
25f00 69 6e 67 20 28 72 65 67 65 78 70 2d 71 75 6f 74 65 20 22 24 70 24 22 29 0a 20 20 20 20 20 20 20 ing.(regexp-quote."$p$")........
25f20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ................................
25f40 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6f 72 67 2d 6e 6f 74 65 72 2d .....................(org-noter-
25f60 2d 70 72 65 74 74 79 2d 70 72 69 6e 74 2d 6c 6f 63 61 74 69 6f 6e 2d 66 6f 72 2d 74 69 74 6c 65 -pretty-print-location-for-title
25f80 20 6c 6f 63 61 74 69 6f 6e 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .location)......................
25fa0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ................................
25fc0 20 20 20 20 20 20 20 6f 72 67 2d 6e 6f 74 65 72 2d 64 65 66 61 75 6c 74 2d 68 65 61 64 69 6e 67 .......org-noter-default-heading
25fe0 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 28 65 6d 70 74 79 2d -title)))................(empty-
26000 6c 69 6e 65 73 2d 6e 75 6d 62 65 72 20 28 69 66 20 6f 72 67 2d 6e 6f 74 65 72 2d 73 65 70 61 72 lines-number.(if.org-noter-separ
26020 61 74 65 2d 6e 6f 74 65 73 2d 66 72 6f 6d 2d 68 65 61 64 69 6e 67 20 32 20 31 29 29 29 0a 0a 20 ate-notes-from-heading.2.1)))...
26040 20 20 20 20 20 20 20 20 20 20 3b 3b 20 4e 4f 54 45 28 70 68 6d 29 3a 20 70 72 6f 6d 70 74 20 66 ..........;;.NOTE(phm):.prompt.f
26060 6f 72 20 74 69 74 6c 65 20 75 6e 6c 65 73 73 20 74 68 69 73 20 69 73 20 61 20 70 72 65 63 69 73 or.title.unless.this.is.a.precis
26080 65 20 6e 6f 74 65 0a 20 20 20 20 20 20 20 20 20 20 20 28 75 6e 6c 65 73 73 20 70 72 65 63 69 73 e.note............(unless.precis
260a0 65 2d 69 6e 66 6f 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 63 6f 6e 73 74 72 75 63 74 e-info..............;;.construct
260c0 20 63 6f 6c 6c 65 63 74 69 6f 6e 20 66 6f 72 20 6d 61 74 63 68 69 6e 67 20 65 78 69 73 74 69 6e .collection.for.matching.existin
260e0 67 20 6e 6f 74 65 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 64 6f 6c 69 73 74 20 28 6e 6f g.notes..............(dolist.(no
26100 74 65 2d 63 6f 6e 73 20 28 6f 72 67 2d 6e 6f 74 65 72 2d 2d 76 69 65 77 2d 69 6e 66 6f 2d 6e 6f te-cons.(org-noter--view-info-no
26120 74 65 73 20 76 69 65 77 2d 69 6e 66 6f 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 tes.view-info))................(
26140 6c 65 74 20 28 28 64 69 73 70 6c 61 79 20 28 6f 72 67 2d 65 6c 65 6d 65 6e 74 2d 70 72 6f 70 65 let.((display.(org-element-prope
26160 72 74 79 20 3a 72 61 77 2d 76 61 6c 75 65 20 28 63 61 72 20 6e 6f 74 65 2d 63 6f 6e 73 29 29 29 rty.:raw-value.(car.note-cons)))
26180 29 0a 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 6f 6e 73 20 64 )..................(push.(cons.d
261a0 69 73 70 6c 61 79 20 6e 6f 74 65 2d 63 6f 6e 73 29 20 63 6f 6c 6c 65 63 74 69 6f 6e 29 29 29 29 isplay.note-cons).collection))))
261c0 0a 0a 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 63 6f 6c 6c 65 63 74 69 6f 6e 20 28 6e .............(setq.collection.(n
261e0 72 65 76 65 72 73 65 20 63 6f 6c 6c 65 63 74 69 6f 6e 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 reverse.collection).............
26200 20 20 20 20 20 3b 3b 20 70 72 6f 6d 70 74 20 66 6f 72 20 74 69 74 6c 65 20 28 75 6e 6c 65 73 73 .....;;.prompt.for.title.(unless
26220 20 6e 6f 2d 51 27 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 69 74 6c 65 20 .no-Q's)..................title.
26240 28 69 66 20 6f 72 67 2d 6e 6f 74 65 72 2d 69 6e 73 65 72 74 2d 6e 6f 74 65 2d 6e 6f 2d 71 75 65 (if.org-noter-insert-note-no-que
26260 73 74 69 6f 6e 73 20 64 65 66 61 75 6c 74 2d 74 69 74 6c 65 0a 20 20 20 20 20 20 20 20 20 20 20 stions.default-title............
26280 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 64 20 22 ..............(completing-read."
262a0 4e 6f 74 65 3a 20 22 20 63 6f 6c 6c 65 63 74 69 6f 6e 20 6e 69 6c 20 6e 69 6c 20 6e 69 6c 20 6e Note:.".collection.nil.nil.nil.n
262c0 69 6c 20 64 65 66 61 75 6c 74 2d 74 69 74 6c 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 il.default-title))..............
262e0 20 20 20 20 6e 6f 74 65 2d 62 6f 64 79 20 28 69 66 20 28 61 6e 64 20 73 65 6c 65 63 74 65 64 2d ....note-body.(if.(and.selected-
26300 74 65 78 74 2d 70 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 text-p..........................
26320 20 20 20 20 20 20 20 20 20 20 20 28 6e 6f 74 20 28 65 71 75 61 6c 20 74 69 74 6c 65 20 73 68 6f ...........(not.(equal.title.sho
26340 72 74 2d 73 65 6c 65 63 74 65 64 2d 74 65 78 74 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 rt-selected-text))).............
26360 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 65 6c 65 63 74 65 64 2d 74 65 78 74 ...................selected-text
26380 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 69 73 20 74 68 69 73 20 61 6e )..................;;.is.this.an
263a0 20 65 78 69 73 74 69 6e 67 20 6e 6f 74 65 3f 20 73 6b 69 70 20 66 6f 72 20 70 72 65 63 69 73 65 .existing.note?.skip.for.precise
263c0 20 6e 6f 74 65 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 78 69 73 74 69 6e 67 .notes..................existing
263e0 2d 6e 6f 74 65 20 28 75 6e 6c 65 73 73 20 70 72 65 63 69 73 65 2d 69 6e 66 6f 20 28 63 64 72 20 -note.(unless.precise-info.(cdr.
26400 28 61 73 73 6f 63 20 74 69 74 6c 65 20 63 6f 6c 6c 65 63 74 69 6f 6e 29 29 29 29 0a 0a 20 20 20 (assoc.title.collection)))).....
26420 20 20 20 20 20 20 20 20 28 69 66 20 65 78 69 73 74 69 6e 67 2d 6e 6f 74 65 0a 20 20 20 20 20 20 ........(if.existing-note.......
26440 20 20 20 20 20 20 20 20 20 3b 3b 20 4e 4f 54 45 28 6e 6f 78 29 3a 20 49 6e 73 65 72 74 69 6e 67 .........;;.NOTE(nox):.Inserting
26460 20 6f 6e 20 61 6e 20 65 78 69 73 74 69 6e 67 20 6e 6f 74 65 0a 20 20 20 20 20 20 20 20 20 20 20 .on.an.existing.note............
26480 20 20 20 20 28 6c 65 74 2a 20 28 28 6e 6f 74 65 20 28 63 61 72 20 65 78 69 73 74 69 6e 67 2d 6e ....(let*.((note.(car.existing-n
264a0 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 28 69 6e 73 ote)).......................(ins
264c0 65 72 74 2d 62 65 66 6f 72 65 2d 65 6c 65 6d 65 6e 74 20 28 63 64 72 20 65 78 69 73 74 69 6e 67 ert-before-element.(cdr.existing
264e0 2d 6e 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 28 68 -note)).......................(h
26500 61 73 2d 63 6f 6e 74 65 6e 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 as-content......................
26520 20 20 28 65 71 20 28 6f 72 67 2d 65 6c 65 6d 65 6e 74 2d 6d 61 70 20 28 6f 72 67 2d 65 6c 65 6d ..(eq.(org-element-map.(org-elem
26540 65 6e 74 2d 63 6f 6e 74 65 6e 74 73 20 6e 6f 74 65 29 20 6f 72 67 2d 65 6c 65 6d 65 6e 74 2d 61 ent-contents.note).org-element-a
26560 6c 6c 2d 65 6c 65 6d 65 6e 74 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ll-elements.....................
26580 20 20 20 20 20 20 20 20 20 28 6c 61 6d 62 64 61 20 28 65 6c 65 6d 65 6e 74 29 0a 20 20 20 20 20 .........(lambda.(element)......
265a0 20 20 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 6f ..........................(if.(o
265c0 72 67 2d 6e 6f 74 65 72 2d 2d 63 68 65 63 6b 2d 6c 6f 63 61 74 69 6f 6e 2d 70 72 6f 70 65 72 74 rg-noter--check-location-propert
265e0 79 20 65 6c 65 6d 65 6e 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 y.element)......................
26600 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 73 74 6f 70 0a 20 20 20 20 20 20 20 20 20 20 20 20 ..............'stop.............
26620 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6e 6f 74 20 28 6d 65 6d 71 20 .....................(not.(memq.
26640 28 6f 72 67 2d 65 6c 65 6d 65 6e 74 2d 74 79 70 65 20 65 6c 65 6d 65 6e 74 29 20 27 28 73 65 63 (org-element-type.element).'(sec
26660 74 69 6f 6e 20 70 72 6f 70 65 72 74 79 2d 64 72 61 77 65 72 29 29 29 29 29 0a 20 20 20 20 20 20 tion.property-drawer))))).......
26680 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 20 74 29 0a 20 20 .......................nil.t)...
266a0 20 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 29 29 29 0a 20 20 .........................t)))...
266c0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 68 61 73 2d 63 6f 6e 74 65 6e 74 ...............(when.has-content
266e0 20 28 73 65 74 71 20 65 6d 70 74 79 2d 6c 69 6e 65 73 2d 6e 75 6d 62 65 72 20 32 29 29 0a 20 20 .(setq.empty-lines-number.2))...
26700 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 66 20 69 6e 73 65 72 74 2d 62 65 66 6f 72 65 ...............(if.insert-before
26720 2d 65 6c 65 6d 65 6e 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 67 -element......................(g
26740 6f 74 6f 2d 63 68 61 72 20 28 6f 72 67 2d 65 6c 65 6d 65 6e 74 2d 70 72 6f 70 65 72 74 79 20 3a oto-char.(org-element-property.:
26760 62 65 67 69 6e 20 69 6e 73 65 72 74 2d 62 65 66 6f 72 65 2d 65 6c 65 6d 65 6e 74 29 29 0a 20 20 begin.insert-before-element))...
26780 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 67 6f 74 6f 2d 63 68 61 72 20 28 6f 72 67 .................(goto-char.(org
267a0 2d 65 6c 65 6d 65 6e 74 2d 70 72 6f 70 65 72 74 79 20 3a 65 6e 64 20 6e 6f 74 65 29 29 29 0a 0a -element-property.:end.note)))..
267c0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 66 20 28 6f 72 67 2d 61 74 2d 68 65 61 .................(if.(org-at-hea
267e0 64 69 6e 67 2d 70 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 72 ding-p)......................(pr
26800 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 28 6f 72 67 2d ogn........................(org-
26820 4e 2d 65 6d 70 74 79 2d 6c 69 6e 65 73 2d 62 65 66 6f 72 65 2d 63 75 72 72 65 6e 74 20 65 6d 70 N-empty-lines-before-current.emp
26840 74 79 2d 6c 69 6e 65 73 2d 6e 75 6d 62 65 72 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ty-lines-number)................
26860 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 20 20 ........(forward-line.-1))......
26880 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 75 6e 6c 65 73 73 20 28 62 6f 6c 70 29 20 28 69 6e ..............(unless.(bolp).(in
268a0 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 20 20 20 20 20 28 sert."\n"))....................(
268c0 6f 72 67 2d 4e 2d 65 6d 70 74 79 2d 6c 69 6e 65 73 2d 62 65 66 6f 72 65 2d 63 75 72 72 65 6e 74 org-N-empty-lines-before-current
268e0 20 28 31 2d 20 65 6d 70 74 79 2d 6c 69 6e 65 73 2d 6e 75 6d 62 65 72 29 29 29 0a 0a 20 20 20 20 .(1-.empty-lines-number)))......
26900 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 28 61 6e 64 20 6f 72 67 2d 6e 6f 74 65 .............(when.(and.org-note
26920 72 2d 69 6e 73 65 72 74 2d 73 65 6c 65 63 74 65 64 2d 74 65 78 74 2d 69 6e 73 69 64 65 2d 6e 6f r-insert-selected-text-inside-no
26940 74 65 20 6e 6f 74 65 2d 62 6f 64 79 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 te.note-body)...................
26960 20 28 69 66 20 73 68 6f 72 74 2d 73 65 6c 65 63 74 65 64 2d 74 65 78 74 0a 20 20 20 20 20 20 20 .(if.short-selected-text........
26980 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 60 60 22 20 6e 6f 74 ................(insert."``".not
269a0 65 2d 62 6f 64 79 20 22 27 27 22 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 e-body."''")....................
269c0 20 20 28 69 6e 73 65 72 74 20 22 23 2b 42 45 47 49 4e 5f 51 55 4f 54 45 5c 6e 22 20 6e 6f 74 65 ..(insert."#+BEGIN_QUOTE\n".note
269e0 2d 62 6f 64 79 20 22 5c 6e 23 2b 45 4e 44 5f 51 55 4f 54 45 22 29 29 29 29 0a 0a 20 20 20 20 20 -body."\n#+END_QUOTE")))).......
26a00 20 20 20 20 20 20 20 20 3b 3b 20 4e 4f 54 45 28 6e 6f 78 29 3a 20 49 6e 73 65 72 74 69 6e 67 20 ........;;.NOTE(nox):.Inserting.
26a20 61 20 6e 65 77 20 6e 6f 74 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 72 a.new.note..............(let.((r
26a40 65 66 65 72 65 6e 63 65 2d 65 6c 65 6d 65 6e 74 2d 63 6f 6e 73 20 28 6f 72 67 2d 6e 6f 74 65 72 eference-element-cons.(org-noter
26a60 2d 2d 76 69 65 77 2d 69 6e 66 6f 2d 72 65 66 65 72 65 6e 63 65 2d 66 6f 72 2d 69 6e 73 65 72 74 --view-info-reference-for-insert
26a80 69 6f 6e 20 76 69 65 77 2d 69 6e 66 6f 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ion.view-info)).................
26aa0 20 20 20 6c 65 76 65 6c 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 66 20 72 65 66 ...level)................(if.ref
26ac0 65 72 65 6e 63 65 2d 65 6c 65 6d 65 6e 74 2d 63 6f 6e 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 erence-element-cons.............
26ae0 20 20 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 .......(progn...................
26b00 20 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 28 ...(cond.......................(
26b20 28 65 71 20 28 63 61 72 20 72 65 66 65 72 65 6e 63 65 2d 65 6c 65 6d 65 6e 74 2d 63 6f 6e 73 29 (eq.(car.reference-element-cons)
26b40 20 27 62 65 66 6f 72 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 .'before).......................
26b60 20 28 67 6f 74 6f 2d 63 68 61 72 20 28 6f 72 67 2d 65 6c 65 6d 65 6e 74 2d 70 72 6f 70 65 72 74 .(goto-char.(org-element-propert
26b80 79 20 3a 62 65 67 69 6e 20 28 63 64 72 20 72 65 66 65 72 65 6e 63 65 2d 65 6c 65 6d 65 6e 74 2d y.:begin.(cdr.reference-element-
26ba0 63 6f 6e 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 20 28 cons)))).......................(
26bc0 28 65 71 20 28 63 61 72 20 72 65 66 65 72 65 6e 63 65 2d 65 6c 65 6d 65 6e 74 2d 63 6f 6e 73 29 (eq.(car.reference-element-cons)
26be0 20 27 61 66 74 65 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 .'after)........................
26c00 28 67 6f 74 6f 2d 63 68 61 72 20 28 6f 72 67 2d 65 6c 65 6d 65 6e 74 2d 70 72 6f 70 65 72 74 79 (goto-char.(org-element-property
26c20 20 3a 65 6e 64 20 28 63 64 72 20 72 65 66 65 72 65 6e 63 65 2d 65 6c 65 6d 65 6e 74 2d 63 6f 6e .:end.(cdr.reference-element-con
26c40 73 29 29 29 29 29 0a 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 s))))).......................;;.
26c60 4e 4f 54 45 28 6e 6f 78 29 3a 20 54 68 69 73 20 69 73 20 68 65 72 65 20 74 6f 20 6d 61 6b 65 20 NOTE(nox):.This.is.here.to.make.
26c80 74 68 65 20 61 75 74 6f 6d 61 74 69 63 20 22 73 68 6f 75 6c 64 20 69 6e 73 65 72 74 20 62 6c 61 the.automatic."should.insert.bla
26ca0 6e 6b 22 20 77 6f 72 6b 20 62 65 74 74 65 72 2e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 nk".work.better.................
26cc0 20 20 20 20 20 20 28 77 68 65 6e 20 28 6f 72 67 2d 61 74 2d 68 65 61 64 69 6e 67 2d 70 29 20 28 ......(when.(org-at-heading-p).(
26ce0 62 61 63 6b 77 61 72 64 2d 63 68 61 72 29 29 0a 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 backward-char)).................
26d00 20 20 20 20 20 20 28 73 65 74 71 20 6c 65 76 65 6c 20 28 6f 72 67 2d 65 6c 65 6d 65 6e 74 2d 70 ......(setq.level.(org-element-p
26d20 72 6f 70 65 72 74 79 20 3a 6c 65 76 65 6c 20 28 63 64 72 20 72 65 66 65 72 65 6e 63 65 2d 65 6c roperty.:level.(cdr.reference-el
26d40 65 6d 65 6e 74 2d 63 6f 6e 73 29 29 29 29 0a 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ement-cons))))..................
26d60 20 28 67 6f 74 6f 2d 63 68 61 72 20 28 6f 72 20 28 6f 72 67 2d 65 6c 65 6d 65 6e 74 2d 6d 61 70 .(goto-char.(or.(org-element-map
26d80 20 63 6f 6e 74 65 6e 74 73 20 27 73 65 63 74 69 6f 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 .contents.'section..............
26da0 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 20 28 73 65 .....................(lambda.(se
26dc0 63 74 69 6f 6e 29 20 28 6f 72 67 2d 65 6c 65 6d 65 6e 74 2d 70 72 6f 70 65 72 74 79 20 3a 65 6e ction).(org-element-property.:en
26de0 64 20 73 65 63 74 69 6f 6e 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 d.section)).....................
26e00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6e 69 6c 20 74 20 6f 72 67 2d 65 6c 65 6d 65 6e 74 2d ..............nil.t.org-element-
26e20 61 6c 6c 2d 65 6c 65 6d 65 6e 74 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 all-elements)...................
26e40 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 6f 69 6e 74 2d 6d 61 78 29 29 29 29 0a 0a 20 20 ..............(point-max))))....
26e60 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 6c 65 76 65 6c 20 28 6f 72 20 6c 65 76 .............(setq.level.(or.lev
26e80 65 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 20 20 20 el..............................
26ea0 20 20 28 31 2b 20 28 6f 72 20 28 6f 72 67 2d 65 6c 65 6d 65 6e 74 2d 70 72 6f 70 65 72 74 79 20 ..(1+.(or.(org-element-property.
26ec0 3a 6c 65 76 65 6c 20 61 73 74 29 20 30 29 29 29 29 0a 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 :level.ast).0))))...............
26ee0 20 20 3b 3b 20 4e 4f 54 45 28 6e 6f 78 29 3a 20 54 68 69 73 20 69 73 20 6e 65 65 64 65 64 20 74 ..;;.NOTE(nox):.This.is.needed.t
26f00 6f 20 69 6e 73 65 72 74 20 69 6e 20 74 68 65 20 72 69 67 68 74 20 70 6c 61 63 65 0a 20 20 20 20 o.insert.in.the.right.place.....
26f20 20 20 20 20 20 20 20 20 20 20 20 28 75 6e 6c 65 73 73 20 28 6f 72 67 2d 6e 6f 74 65 72 2d 2d 6e ...........(unless.(org-noter--n
26f40 6f 2d 68 65 61 64 69 6e 67 2d 70 29 20 28 6f 75 74 6c 69 6e 65 2d 73 68 6f 77 2d 65 6e 74 72 79 o-heading-p).(outline-show-entry
26f60 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6f 72 67 2d 6e 6f 74 65 72 2d 2d 69 6e ))................(org-noter--in
26f80 73 65 72 74 2d 68 65 61 64 69 6e 67 20 6c 65 76 65 6c 20 74 69 74 6c 65 20 65 6d 70 74 79 2d 6c sert-heading.level.title.empty-l
26fa0 69 6e 65 73 2d 6e 75 6d 62 65 72 20 6c 6f 63 61 74 69 6f 6e 29 0a 20 20 20 20 20 20 20 20 20 20 ines-number.location)...........
26fc0 20 20 20 20 20 3b 3b 20 73 74 6f 72 65 20 74 68 65 20 68 69 67 68 6c 69 67 68 74 20 69 6e 20 6f .....;;.store.the.highlight.in.o
26fe0 72 67 20 49 46 20 77 65 20 68 61 76 65 20 61 20 68 69 67 68 6c 69 67 68 74 20 41 4e 44 20 63 61 rg.IF.we.have.a.highlight.AND.ca
27000 6e 20 73 65 72 69 61 6c 69 7a 65 20 69 74 2e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 n.serialize.it.................(
27020 77 68 65 6e 2d 6c 65 74 20 28 28 68 69 67 68 6c 69 67 68 74 2d 6c 6f 63 61 74 69 6f 6e 29 0a 20 when-let.((highlight-location)..
27040 20 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 72 69 61 6c .........................(serial
27060 69 7a 65 64 2d 68 69 67 68 6c 69 67 68 74 20 28 6f 72 67 2d 6e 6f 74 65 72 2d 2d 67 65 74 2d 73 ized-highlight.(org-noter--get-s
27080 65 72 69 61 6c 69 7a 65 64 2d 68 69 67 68 6c 69 67 68 74 20 68 69 67 68 6c 69 67 68 74 2d 6c 6f erialized-highlight.highlight-lo
270a0 63 61 74 69 6f 6e 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6f 72 67 2d cation)))..................(org-
270c0 73 65 74 2d 70 72 6f 70 65 72 74 79 20 22 48 49 47 48 4c 49 47 48 54 22 20 73 65 72 69 61 6c 69 set-property."HIGHLIGHT".seriali
270e0 7a 65 64 2d 68 69 67 68 6c 69 67 68 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 zed-highlight))................(
27100 77 68 65 6e 20 6e 6f 74 65 2d 62 6f 64 79 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 when.note-body..................
27120 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 20 20 20 20 20 20 (save-excursion.................
27140 20 20 20 28 69 66 20 73 68 6f 72 74 2d 73 65 6c 65 63 74 65 64 2d 74 65 78 74 0a 20 20 20 20 20 ...(if.short-selected-text......
27160 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 22 60 60 22 20 6e ..................(insert."``".n
27180 6f 74 65 2d 62 6f 64 79 20 22 27 27 22 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ote-body."''")..................
271a0 20 20 20 20 28 69 6e 73 65 72 74 20 22 23 2b 42 45 47 49 4e 5f 51 55 4f 54 45 5c 6e 22 20 6e 6f ....(insert."#+BEGIN_QUOTE\n".no
271c0 74 65 2d 62 6f 64 79 20 22 5c 6e 23 2b 45 4e 44 5f 51 55 4f 54 45 22 29 29 29 29 0a 20 20 20 20 te-body."\n#+END_QUOTE")))).....
271e0 20 20 20 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 28 6f 72 67 2d 6e 6f 74 65 72 2d 2d 73 65 73 ...........(when.(org-noter--ses
27200 73 69 6f 6e 2d 68 69 64 65 2d 6f 74 68 65 72 20 73 65 73 73 69 6f 6e 29 20 28 6f 72 67 2d 6f 76 sion-hide-other.session).(org-ov
27220 65 72 76 69 65 77 29 29 0a 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 66 20 28 erview)).................(setf.(
27240 6f 72 67 2d 6e 6f 74 65 72 2d 2d 73 65 73 73 69 6f 6e 2d 6e 75 6d 2d 6e 6f 74 65 73 2d 69 6e 2d org-noter--session-num-notes-in-
27260 76 69 65 77 20 73 65 73 73 69 6f 6e 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 view.session)...................
27280 20 20 20 28 31 2b 20 28 6f 72 67 2d 6e 6f 74 65 72 2d 2d 73 65 73 73 69 6f 6e 2d 6e 75 6d 2d 6e ...(1+.(org-noter--session-num-n
272a0 6f 74 65 73 2d 69 6e 2d 76 69 65 77 20 73 65 73 73 69 6f 6e 29 29 29 29 29 0a 0a 20 20 20 20 20 otes-in-view.session))))).......
272c0 20 20 20 20 20 20 28 6f 72 67 2d 73 68 6f 77 2d 73 65 74 2d 76 69 73 69 62 69 6c 69 74 79 20 74 ......(org-show-set-visibility.t
272e0 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 6f 72 67 2d 63 79 63 6c 65 2d 68 69 64 65 2d 64 72 61 )............(org-cycle-hide-dra
27300 77 65 72 73 20 27 61 6c 6c 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 6f 72 67 2d 63 79 63 6c 65 wers.'all)............(org-cycle
27320 2d 73 68 6f 77 2d 65 6d 70 74 79 2d 6c 69 6e 65 73 20 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 -show-empty-lines.t)............
27340 28 77 68 65 6e 20 6f 72 67 2d 6e 6f 74 65 72 2d 68 69 67 68 6c 69 67 68 74 2d 73 65 6c 65 63 74 (when.org-noter-highlight-select
27360 65 64 2d 74 65 78 74 20 3b 20 72 65 74 75 72 6e 20 74 6f 20 44 4f 43 20 77 69 6e 64 6f 77 20 61 ed-text.;.return.to.DOC.window.a
27380 6e 64 20 68 69 67 68 6c 69 67 68 74 20 74 65 78 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 nd.highlight.text..............(
273a0 73 65 6c 65 63 74 2d 66 72 61 6d 65 2d 73 65 74 2d 69 6e 70 75 74 2d 66 6f 63 75 73 20 28 6f 72 select-frame-set-input-focus.(or
273c0 67 2d 6e 6f 74 65 72 2d 2d 73 65 73 73 69 6f 6e 2d 66 72 61 6d 65 20 73 65 73 73 69 6f 6e 29 29 g-noter--session-frame.session))
273e0 0a 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 28 67 65 ..............(select-window.(ge
27400 74 2d 62 75 66 66 65 72 2d 77 69 6e 64 6f 77 20 28 6f 72 67 2d 6e 6f 74 65 72 2d 2d 73 65 73 73 t-buffer-window.(org-noter--sess
27420 69 6f 6e 2d 64 6f 63 2d 62 75 66 66 65 72 20 73 65 73 73 69 6f 6e 29 29 29 0a 20 20 20 20 20 20 ion-doc-buffer.session))).......
27440 20 20 20 20 20 20 20 28 72 75 6e 2d 68 6f 6f 6b 2d 77 69 74 68 2d 61 72 67 73 2d 75 6e 74 69 6c .......(run-hook-with-args-until
27460 2d 73 75 63 63 65 73 73 20 27 6f 72 67 2d 6e 6f 74 65 72 2d 2d 61 64 64 2d 68 69 67 68 6c 69 67 -success.'org-noter--add-highlig
27480 68 74 2d 68 6f 6f 6b 20 6d 61 6a 6f 72 2d 6d 6f 64 65 20 68 69 67 68 6c 69 67 68 74 2d 6c 6f 63 ht-hook.major-mode.highlight-loc
274a0 61 74 69 6f 6e 29 29 29 29 0a 20 20 20 20 20 20 20 28 77 68 65 6e 20 71 75 69 74 2d 66 6c 61 67 ation))))........(when.quit-flag
274c0 0a 20 20 20 20 20 20 20 20 20 3b 3b 20 4e 4f 54 45 28 6e 6f 78 29 3a 20 49 66 20 74 68 69 73 20 ..........;;.NOTE(nox):.If.this.
274e0 72 75 6e 73 2c 20 69 74 20 6d 65 61 6e 73 20 74 68 65 20 75 73 65 72 20 71 75 69 74 74 65 64 20 runs,.it.means.the.user.quitted.
27500 77 68 69 6c 65 20 63 72 65 61 74 69 6e 67 20 61 20 6e 6f 74 65 2c 20 73 6f 0a 20 20 20 20 20 20 while.creating.a.note,.so.......
27520 20 20 20 3b 3b 20 72 65 76 65 72 74 20 74 6f 20 74 68 65 20 70 72 65 76 69 6f 75 73 20 77 69 6e ...;;.revert.to.the.previous.win
27540 64 6f 77 2e 0a 20 20 20 20 20 20 20 20 20 28 73 65 6c 65 63 74 2d 66 72 61 6d 65 2d 73 65 74 2d dow...........(select-frame-set-
27560 69 6e 70 75 74 2d 66 6f 63 75 73 20 28 6f 72 67 2d 6e 6f 74 65 72 2d 2d 73 65 73 73 69 6f 6e 2d input-focus.(org-noter--session-
27580 66 72 61 6d 65 20 73 65 73 73 69 6f 6e 29 29 0a 20 20 20 20 20 20 20 20 20 28 73 65 6c 65 63 74 frame.session))..........(select
275a0 2d 77 69 6e 64 6f 77 20 28 67 65 74 2d 62 75 66 66 65 72 2d 77 69 6e 64 6f 77 20 28 6f 72 67 2d -window.(get-buffer-window.(org-
275c0 6e 6f 74 65 72 2d 2d 73 65 73 73 69 6f 6e 2d 64 6f 63 2d 62 75 66 66 65 72 20 73 65 73 73 69 6f noter--session-doc-buffer.sessio
275e0 6e 29 29 29 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 6f 72 67 2d 6e 6f 74 65 72 2d 69 6e 73 65 n))))))))..(defun.org-noter-inse
27600 72 74 2d 70 72 65 63 69 73 65 2d 6e 6f 74 65 20 28 26 6f 70 74 69 6f 6e 61 6c 20 74 6f 67 67 6c rt-precise-note.(&optional.toggl
27620 65 2d 68 69 67 68 6c 69 67 68 74 29 0a 20 20 22 49 6e 73 65 72 74 20 6e 6f 74 65 20 61 73 73 6f e-highlight)..."Insert.note.asso
27640 63 69 61 74 65 64 20 77 69 74 68 20 61 20 73 70 65 63 69 66 69 63 20 6c 6f 63 61 74 69 6f 6e 2e ciated.with.a.specific.location.
27660 0a 54 68 69 73 20 77 69 6c 6c 20 61 73 6b 20 79 6f 75 20 74 6f 20 63 6c 69 63 6b 20 77 68 65 72 .This.will.ask.you.to.click.wher
27680 65 20 79 6f 75 20 77 61 6e 74 20 74 6f 20 73 63 72 6f 6c 6c 20 74 6f 20 77 68 65 6e 20 79 6f 75 e.you.want.to.scroll.to.when.you
276a0 0a 73 79 6e 63 20 74 68 65 20 64 6f 63 75 6d 65 6e 74 20 74 6f 20 74 68 69 73 20 6e 6f 74 65 2e .sync.the.document.to.this.note.
276c0 20 20 59 6f 75 20 73 68 6f 75 6c 64 20 63 6c 69 63 6b 20 6f 6e 20 74 68 65 20 74 6f 70 20 6f 66 ..You.should.click.on.the.top.of
276e0 0a 74 68 61 74 20 70 61 72 74 2e 20 20 57 69 6c 6c 20 61 6c 77 61 79 73 20 63 72 65 61 74 65 20 .that.part...Will.always.create.
27700 61 20 6e 65 77 20 6e 6f 74 65 2e 0a 0a 57 68 65 6e 20 74 65 78 74 20 69 73 20 73 65 6c 65 63 74 a.new.note...When.text.is.select
27720 65 64 2c 20 69 74 20 77 69 6c 6c 20 61 75 74 6f 6d 61 74 69 63 61 6c 6c 79 20 63 68 6f 6f 73 65 ed,.it.will.automatically.choose
27740 20 74 68 65 20 74 6f 70 20 6f 66 0a 74 68 65 20 73 65 6c 65 63 74 65 64 20 74 65 78 74 20 61 73 .the.top.of.the.selected.text.as
27760 20 74 68 65 20 6c 6f 63 61 74 69 6f 6e 20 61 6e 64 20 74 68 65 20 74 65 78 74 20 69 74 73 65 6c .the.location.and.the.text.itsel
27780 66 20 61 73 20 74 68 65 0a 64 65 66 61 75 6c 74 20 74 69 74 6c 65 20 6f 66 20 74 68 65 20 6e 6f f.as.the.default.title.of.the.no
277a0 74 65 20 69 66 20 74 68 65 20 74 65 78 74 20 64 6f 65 73 20 6e 6f 74 20 65 78 63 65 65 64 0a 60 te.if.the.text.does.not.exceed.`
277c0 6f 72 67 2d 6e 6f 74 65 72 2d 6d 61 78 2d 73 68 6f 72 74 2d 73 65 6c 65 63 74 65 64 2d 74 65 78 org-noter-max-short-selected-tex
277e0 74 2d 6c 65 6e 67 74 68 27 2e 0a 0a 55 73 65 20 70 72 65 66 69 78 20 5b 5c 5c 75 6e 69 76 65 72 t-length'...Use.prefix.[\\univer
27800 73 61 6c 2d 61 72 67 75 6d 65 6e 74 5d 20 74 6f 20 54 4f 47 47 4c 45 2d 48 49 47 48 4c 49 47 48 sal-argument].to.TOGGLE-HIGHLIGH
27820 54 2e 0a 0a 53 65 65 20 60 6f 72 67 2d 6e 6f 74 65 72 2d 69 6e 73 65 72 74 2d 6e 6f 74 65 27 20 T...See.`org-noter-insert-note'.
27840 64 6f 63 73 74 72 69 6e 67 20 66 6f 72 20 6d 6f 72 65 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 docstring.for.more."...(interact
27860 69 76 65 20 22 50 22 29 0a 20 20 28 6f 72 67 2d 6e 6f 74 65 72 2d 2d 77 69 74 68 2d 76 61 6c 69 ive."P")...(org-noter--with-vali
27880 64 2d 73 65 73 73 69 6f 6e 0a 20 20 20 28 6c 65 74 20 28 28 70 72 65 63 69 73 65 2d 69 6e 66 6f d-session....(let.((precise-info
278a0 20 28 6f 72 67 2d 6e 6f 74 65 72 2d 2d 67 65 74 2d 70 72 65 63 69 73 65 2d 69 6e 66 6f 29 29 29 .(org-noter--get-precise-info)))
278c0 0a 20 20 20 20 20 28 6f 72 67 2d 6e 6f 74 65 72 2d 69 6e 73 65 72 74 2d 6e 6f 74 65 20 74 6f 67 ......(org-noter-insert-note.tog
278e0 67 6c 65 2d 68 69 67 68 6c 69 67 68 74 20 70 72 65 63 69 73 65 2d 69 6e 66 6f 29 29 29 29 0a 0a gle-highlight.precise-info))))..
27900 28 64 65 66 75 6e 20 6f 72 67 2d 6e 6f 74 65 72 2d 69 6e 73 65 72 74 2d 6e 6f 74 65 2d 74 6f 67 (defun.org-noter-insert-note-tog
27920 67 6c 65 2d 6e 6f 2d 71 75 65 73 74 69 6f 6e 73 20 28 26 6f 70 74 69 6f 6e 61 6c 20 74 6f 67 67 gle-no-questions.(&optional.togg
27940 6c 65 2d 68 69 67 68 6c 69 67 68 74 29 0a 20 20 22 49 6e 73 65 72 74 20 6e 6f 74 65 20 61 73 73 le-highlight)..."Insert.note.ass
27960 6f 63 69 61 74 65 64 20 77 69 74 68 20 74 68 65 20 63 75 72 72 65 6e 74 20 6c 6f 63 61 74 69 6f ociated.with.the.current.locatio
27980 6e 2e 0a 54 68 69 73 20 69 73 20 6c 69 6b 65 20 60 6f 72 67 2d 6e 6f 74 65 72 2d 69 6e 73 65 72 n..This.is.like.`org-noter-inser
279a0 74 2d 6e 6f 74 65 27 2c 20 65 78 63 65 70 74 20 69 74 20 77 69 6c 6c 20 74 6f 67 67 6c 65 0a 60 t-note',.except.it.will.toggle.`
279c0 6f 72 67 2d 6e 6f 74 65 72 2d 69 6e 73 65 72 74 2d 6e 6f 74 65 2d 6e 6f 2d 71 75 65 73 74 69 6f org-noter-insert-note-no-questio
279e0 6e 73 27 2e 0a 0a 55 73 65 20 70 72 65 66 69 78 20 5b 5c 5c 75 6e 69 76 65 72 73 61 6c 2d 61 72 ns'...Use.prefix.[\\universal-ar
27a00 67 75 6d 65 6e 74 5d 20 74 6f 20 54 4f 47 47 4c 45 2d 48 49 47 48 4c 49 47 48 54 2e 22 0a 20 20 gument].to.TOGGLE-HIGHLIGHT."...
27a20 28 69 6e 74 65 72 61 63 74 69 76 65 20 22 50 22 29 0a 20 20 28 6f 72 67 2d 6e 6f 74 65 72 2d 2d (interactive."P")...(org-noter--
27a40 77 69 74 68 2d 76 61 6c 69 64 2d 73 65 73 73 69 6f 6e 0a 20 20 20 28 6c 65 74 20 28 28 6f 72 67 with-valid-session....(let.((org
27a60 2d 6e 6f 74 65 72 2d 69 6e 73 65 72 74 2d 6e 6f 74 65 2d 6e 6f 2d 71 75 65 73 74 69 6f 6e 73 20 -noter-insert-note-no-questions.
27a80 28 6e 6f 74 20 6f 72 67 2d 6e 6f 74 65 72 2d 69 6e 73 65 72 74 2d 6e 6f 74 65 2d 6e 6f 2d 71 75 (not.org-noter-insert-note-no-qu
27aa0 65 73 74 69 6f 6e 73 29 29 29 0a 20 20 20 20 20 28 6f 72 67 2d 6e 6f 74 65 72 2d 69 6e 73 65 72 estions)))......(org-noter-inser
27ac0 74 2d 6e 6f 74 65 20 74 6f 67 67 6c 65 2d 68 69 67 68 6c 69 67 68 74 29 29 29 29 0a 0a 28 64 65 t-note.toggle-highlight))))..(de
27ae0 66 75 6e 20 6f 72 67 2d 6e 6f 74 65 72 2d 69 6e 73 65 72 74 2d 70 72 65 63 69 73 65 2d 6e 6f 74 fun.org-noter-insert-precise-not
27b00 65 2d 74 6f 67 67 6c 65 2d 6e 6f 2d 71 75 65 73 74 69 6f 6e 73 20 28 26 6f 70 74 69 6f 6e 61 6c e-toggle-no-questions.(&optional
27b20 20 74 6f 67 67 6c 65 2d 68 69 67 68 6c 69 67 68 74 29 0a 20 20 22 49 6e 73 65 72 74 20 6e 6f 74 .toggle-highlight)..."Insert.not
27b40 65 20 61 73 73 6f 63 69 61 74 65 64 20 77 69 74 68 20 74 68 65 20 63 75 72 72 65 6e 74 20 6c 6f e.associated.with.the.current.lo
27b60 63 61 74 69 6f 6e 2e 0a 54 68 69 73 20 69 73 20 6c 69 6b 65 20 60 6f 72 67 2d 6e 6f 74 65 72 2d cation..This.is.like.`org-noter-
27b80 69 6e 73 65 72 74 2d 70 72 65 63 69 73 65 2d 6e 6f 74 65 27 2c 20 65 78 63 65 70 74 20 69 74 20 insert-precise-note',.except.it.
27ba0 77 69 6c 6c 0a 74 6f 67 67 6c 65 20 60 6f 72 67 2d 6e 6f 74 65 72 2d 69 6e 73 65 72 74 2d 6e 6f will.toggle.`org-noter-insert-no
27bc0 74 65 2d 6e 6f 2d 71 75 65 73 74 69 6f 6e 73 27 2e 0a 0a 55 73 65 20 70 72 65 66 69 78 20 5b 5c te-no-questions'...Use.prefix.[\
27be0 5c 75 6e 69 76 65 72 73 61 6c 2d 61 72 67 75 6d 65 6e 74 5d 20 74 6f 20 54 4f 47 47 4c 45 2d 48 \universal-argument].to.TOGGLE-H
27c00 49 47 48 4c 49 47 48 54 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 20 22 50 22 29 0a 20 IGHLIGHT."...(interactive."P")..
27c20 20 28 6f 72 67 2d 6e 6f 74 65 72 2d 2d 77 69 74 68 2d 76 61 6c 69 64 2d 73 65 73 73 69 6f 6e 0a .(org-noter--with-valid-session.
27c40 20 20 20 28 6c 65 74 20 28 28 6f 72 67 2d 6e 6f 74 65 72 2d 69 6e 73 65 72 74 2d 6e 6f 74 65 2d ...(let.((org-noter-insert-note-
27c60 6e 6f 2d 71 75 65 73 74 69 6f 6e 73 20 28 6e 6f 74 20 6f 72 67 2d 6e 6f 74 65 72 2d 69 6e 73 65 no-questions.(not.org-noter-inse
27c80 72 74 2d 6e 6f 74 65 2d 6e 6f 2d 71 75 65 73 74 69 6f 6e 73 29 29 29 0a 20 20 20 20 20 28 6f 72 rt-note-no-questions)))......(or
27ca0 67 2d 6e 6f 74 65 72 2d 69 6e 73 65 72 74 2d 70 72 65 63 69 73 65 2d 6e 6f 74 65 20 74 6f 67 67 g-noter-insert-precise-note.togg
27cc0 6c 65 2d 68 69 67 68 6c 69 67 68 74 29 29 29 29 0a 0a 28 64 65 66 6d 61 63 72 6f 20 6f 72 67 2d le-highlight))))..(defmacro.org-
27ce0 6e 6f 74 65 72 2d 2d 6d 61 70 2d 69 67 6e 6f 72 65 2d 68 65 61 64 69 6e 67 73 2d 77 69 74 68 2d noter--map-ignore-headings-with-
27d00 64 6f 63 2d 66 69 6c 65 20 28 63 6f 6e 74 65 6e 74 73 20 6d 61 74 63 68 2d 66 69 72 73 74 20 26 doc-file.(contents.match-first.&
27d20 72 65 73 74 20 62 6f 64 79 29 0a 20 20 60 28 6c 65 74 20 28 69 67 6e 6f 72 65 2d 75 6e 74 69 6c rest.body)...`(let.(ignore-until
27d40 2d 6c 65 76 65 6c 29 0a 20 20 20 20 20 28 6f 72 67 2d 65 6c 65 6d 65 6e 74 2d 6d 61 70 20 2c 63 -level)......(org-element-map.,c
27d60 6f 6e 74 65 6e 74 73 20 27 68 65 61 64 6c 69 6e 65 0a 20 20 20 20 20 20 20 28 6c 61 6d 62 64 61 ontents.'headline........(lambda
27d80 20 28 68 65 61 64 6c 69 6e 65 29 0a 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 64 6f 63 2d .(headline)..........(let.((doc-
27da0 66 69 6c 65 20 28 6f 72 67 2d 6e 6f 74 65 72 2d 2d 64 6f 63 2d 66 69 6c 65 2d 70 72 6f 70 65 72 file.(org-noter--doc-file-proper
27dc0 74 79 20 68 65 61 64 6c 69 6e 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 6f ty.headline))................(lo
27de0 63 61 74 69 6f 6e 20 28 6f 72 67 2d 6e 6f 74 65 72 2d 2d 70 61 72 73 65 2d 6c 6f 63 61 74 69 6f cation.(org-noter--parse-locatio
27e00 6e 2d 70 72 6f 70 65 72 74 79 20 68 65 61 64 6c 69 6e 65 29 29 29 0a 20 20 20 20 20 20 20 20 20 n-property.headline)))..........
27e20 20 20 28 77 68 65 6e 20 28 61 6e 64 20 69 67 6e 6f 72 65 2d 75 6e 74 69 6c 2d 6c 65 76 65 6c 20 ..(when.(and.ignore-until-level.
27e40 28 3c 3d 20 28 6f 72 67 2d 65 6c 65 6d 65 6e 74 2d 70 72 6f 70 65 72 74 79 20 3a 6c 65 76 65 6c (<=.(org-element-property.:level
27e60 20 68 65 61 64 6c 69 6e 65 29 20 69 67 6e 6f 72 65 2d 75 6e 74 69 6c 2d 6c 65 76 65 6c 29 29 0a .headline).ignore-until-level)).
27e80 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 69 67 6e 6f 72 65 2d 75 6e 74 69 6c 2d .............(setq.ignore-until-
27ea0 6c 65 76 65 6c 20 6e 69 6c 29 29 0a 0a 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 6e 64 0a 20 20 level.nil)).............(cond...
27ec0 20 20 20 20 20 20 20 20 20 20 28 69 67 6e 6f 72 65 2d 75 6e 74 69 6c 2d 6c 65 76 65 6c 20 6e 69 ..........(ignore-until-level.ni
27ee0 6c 29 20 3b 3b 20 4e 4f 54 45 28 6e 6f 78 29 3a 20 54 68 69 73 20 68 65 61 64 69 6e 67 20 69 73 l).;;.NOTE(nox):.This.heading.is
27f00 20 69 67 6e 6f 72 65 64 2c 20 64 6f 20 6e 6f 74 68 69 6e 67 0a 20 20 20 20 20 20 20 20 20 20 20 .ignored,.do.nothing............
27f20 20 28 28 61 6e 64 20 64 6f 63 2d 66 69 6c 65 20 28 6e 6f 74 20 28 73 74 72 69 6e 67 3d 20 64 6f .((and.doc-file.(not.(string=.do
27f40 63 2d 66 69 6c 65 20 28 6f 72 67 2d 6e 6f 74 65 72 2d 2d 73 65 73 73 69 6f 6e 2d 70 72 6f 70 65 c-file.(org-noter--session-prope
27f60 72 74 79 2d 74 65 78 74 20 73 65 73 73 69 6f 6e 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 rty-text.session))))............
27f80 20 20 28 73 65 74 71 20 69 67 6e 6f 72 65 2d 75 6e 74 69 6c 2d 6c 65 76 65 6c 20 28 6f 72 67 2d ..(setq.ignore-until-level.(org-
27fa0 65 6c 65 6d 65 6e 74 2d 70 72 6f 70 65 72 74 79 20 3a 6c 65 76 65 6c 20 68 65 61 64 6c 69 6e 65 element-property.:level.headline
27fc0 29 29 20 6e 69 6c 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 74 20 2c 40 62 6f 64 79 29 29 29 )).nil).............(t.,@body)))
27fe0 29 0a 20 20 20 20 20 20 20 6e 69 6c 20 2c 6d 61 74 63 68 2d 66 69 72 73 74 20 6f 72 67 2d 6e 6f )........nil.,match-first.org-no
28000 74 65 72 2d 2d 6e 6f 74 65 2d 73 65 61 72 63 68 2d 6e 6f 2d 72 65 63 75 72 73 65 29 29 29 0a 0a ter--note-search-no-recurse)))..
28020 28 64 65 66 75 6e 20 6f 72 67 2d 6e 6f 74 65 72 2d 73 79 6e 63 2d 70 72 65 76 2d 70 61 67 65 2d (defun.org-noter-sync-prev-page-
28040 6f 72 2d 63 68 61 70 74 65 72 20 28 29 0a 20 20 22 53 68 6f 77 20 70 72 65 76 69 6f 75 73 20 70 or-chapter.()..."Show.previous.p
28060 61 67 65 20 6f 72 20 63 68 61 70 74 65 72 20 74 68 61 74 20 68 61 73 20 6e 6f 74 65 73 2e 0a 54 age.or.chapter.that.has.notes..T
28080 68 69 73 20 63 6f 6d 6d 61 6e 64 20 6e 61 76 69 67 61 74 65 73 20 69 6e 20 72 65 6c 61 74 69 6f his.command.navigates.in.relatio
280a0 6e 20 74 6f 20 74 68 65 20 63 75 72 72 65 6e 74 20 70 61 67 65 20 6f 72 20 63 68 61 70 74 65 72 n.to.the.current.page.or.chapter
280c0 0a 6f 66 20 74 68 65 20 64 6f 63 75 6d 65 6e 74 2e 20 20 54 68 69 73 20 77 69 6c 6c 20 66 6f 72 .of.the.document...This.will.for
280e0 63 65 20 74 68 65 20 6e 6f 74 65 73 20 77 69 6e 64 6f 77 20 74 6f 20 70 6f 70 75 70 2e 22 0a 20 ce.the.notes.window.to.popup."..
28100 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 0a 20 20 28 6f 72 67 2d 6e 6f 74 65 72 2d 2d 77 69 74 .(interactive)...(org-noter--wit
28120 68 2d 76 61 6c 69 64 2d 73 65 73 73 69 6f 6e 0a 20 20 20 28 6c 65 74 20 28 28 74 68 69 73 2d 6c h-valid-session....(let.((this-l
28140 6f 63 61 74 69 6f 6e 20 28 6f 72 67 2d 6e 6f 74 65 72 2d 2d 64 6f 63 2d 61 70 70 72 6f 78 2d 6c ocation.(org-noter--doc-approx-l
28160 6f 63 61 74 69 6f 6e 20 30 29 29 0a 20 20 20 20 20 20 20 20 20 28 63 6f 6e 74 65 6e 74 73 20 28 ocation.0))..........(contents.(
28180 6f 72 67 2d 65 6c 65 6d 65 6e 74 2d 63 6f 6e 74 65 6e 74 73 20 28 6f 72 67 2d 6e 6f 74 65 72 2d org-element-contents.(org-noter-
281a0 2d 70 61 72 73 65 2d 72 6f 6f 74 29 29 29 0a 20 20 20 20 20 20 20 20 20 74 61 72 67 65 74 2d 6c -parse-root)))..........target-l
281c0 6f 63 61 74 69 6f 6e 29 0a 20 20 20 20 20 28 6f 72 67 2d 6e 6f 74 65 72 2d 2d 67 65 74 2d 6e 6f ocation)......(org-noter--get-no
281e0 74 65 73 2d 77 69 6e 64 6f 77 20 27 66 6f 72 63 65 29 0a 0a 20 20 20 20 20 28 6f 72 67 2d 6e 6f tes-window.'force).......(org-no
28200 74 65 72 2d 2d 6d 61 70 2d 69 67 6e 6f 72 65 2d 68 65 61 64 69 6e 67 73 2d 77 69 74 68 2d 64 6f ter--map-ignore-headings-with-do
28220 63 2d 66 69 6c 65 0a 20 20 20 20 20 20 63 6f 6e 74 65 6e 74 73 20 6e 69 6c 0a 20 20 20 20 20 20 c-file.......contents.nil.......
28240 28 77 68 65 6e 20 28 61 6e 64 20 28 6f 72 67 2d 6e 6f 74 65 72 2d 2d 63 6f 6d 70 61 72 65 2d 6c (when.(and.(org-noter--compare-l
28260 6f 63 61 74 69 6f 6e 73 20 27 3c 20 20 6c 6f 63 61 74 69 6f 6e 20 74 68 69 73 2d 6c 6f 63 61 74 ocations.'<..location.this-locat
28280 69 6f 6e 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6f 72 67 2d 6e 6f 74 65 72 ion)..................(org-noter
282a0 2d 2d 63 6f 6d 70 61 72 65 2d 6c 6f 63 61 74 69 6f 6e 73 20 27 3e 66 20 6c 6f 63 61 74 69 6f 6e --compare-locations.'>f.location
282c0 20 74 61 72 67 65 74 2d 6c 6f 63 61 74 69 6f 6e 29 29 0a 20 20 20 20 20 20 20 20 28 73 65 74 71 .target-location)).........(setq
282e0 20 74 61 72 67 65 74 2d 6c 6f 63 61 74 69 6f 6e 20 6c 6f 63 61 74 69 6f 6e 29 29 29 0a 0a 20 20 .target-location.location)))....
28300 20 20 20 28 6f 72 67 2d 6e 6f 74 65 72 2d 2d 67 65 74 2d 6e 6f 74 65 73 2d 77 69 6e 64 6f 77 20 ...(org-noter--get-notes-window.
28320 27 66 6f 72 63 65 29 0a 20 20 20 20 20 28 73 65 6c 65 63 74 2d 77 69 6e 64 6f 77 20 28 6f 72 67 'force)......(select-window.(org
28340 2d 6e 6f 74 65 72 2d 2d 67 65 74 2d 64 6f 63 2d 77 69 6e 64 6f 77 29 29 0a 20 20 20 20 20 28 69 -noter--get-doc-window))......(i
28360 66 20 74 61 72 67 65 74 2d 6c 6f 63 61 74 69 6f 6e 0a 20 20 20 20 20 20 20 20 20 28 6f 72 67 2d f.target-location..........(org-
28380 6e 6f 74 65 72 2d 2d 64 6f 63 2d 67 6f 74 6f 2d 6c 6f 63 61 74 69 6f 6e 20 74 61 72 67 65 74 2d noter--doc-goto-location.target-
283a0 6c 6f 63 61 74 69 6f 6e 29 0a 20 20 20 20 20 20 20 28 75 73 65 72 2d 65 72 72 6f 72 20 22 54 68 location)........(user-error."Th
283c0 65 72 65 20 61 72 65 20 6e 6f 20 6d 6f 72 65 20 70 72 65 76 69 6f 75 73 20 70 61 67 65 73 20 6f ere.are.no.more.previous.pages.o
283e0 72 20 63 68 61 70 74 65 72 73 20 77 69 74 68 20 6e 6f 74 65 73 22 29 29 29 29 29 0a 0a 28 64 65 r.chapters.with.notes")))))..(de
28400 66 75 6e 20 6f 72 67 2d 6e 6f 74 65 72 2d 73 79 6e 63 2d 63 75 72 72 65 6e 74 2d 70 61 67 65 2d fun.org-noter-sync-current-page-
28420 6f 72 2d 63 68 61 70 74 65 72 20 28 29 0a 20 20 22 53 68 6f 77 20 63 75 72 72 65 6e 74 20 70 61 or-chapter.()..."Show.current.pa
28440 67 65 20 6f 72 20 63 68 61 70 74 65 72 20 6e 6f 74 65 73 2e 0a 54 68 69 73 20 77 69 6c 6c 20 66 ge.or.chapter.notes..This.will.f
28460 6f 72 63 65 20 74 68 65 20 6e 6f 74 65 73 20 77 69 6e 64 6f 77 20 74 6f 20 70 6f 70 75 70 2e 22 orce.the.notes.window.to.popup."
28480 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 0a 20 20 28 6f 72 67 2d 6e 6f 74 65 72 2d 2d 77 ...(interactive)...(org-noter--w
284a0 69 74 68 2d 76 61 6c 69 64 2d 73 65 73 73 69 6f 6e 0a 20 20 20 28 6c 65 74 20 28 28 77 69 6e 64 ith-valid-session....(let.((wind
284c0 6f 77 20 28 6f 72 67 2d 6e 6f 74 65 72 2d 2d 67 65 74 2d 6e 6f 74 65 73 2d 77 69 6e 64 6f 77 20 ow.(org-noter--get-notes-window.
284e0 27 66 6f 72 63 65 29 29 29 0a 20 20 20 20 20 28 73 65 6c 65 63 74 2d 66 72 61 6d 65 2d 73 65 74 'force)))......(select-frame-set
28500 2d 69 6e 70 75 74 2d 66 6f 63 75 73 20 28 77 69 6e 64 6f 77 2d 66 72 61 6d 65 20 77 69 6e 64 6f -input-focus.(window-frame.windo
28520 77 29 29 0a 20 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 w))......(select-window.window).
28540 20 20 20 20 20 28 6f 72 67 2d 6e 6f 74 65 72 2d 2d 64 6f 63 2d 6c 6f 63 61 74 69 6f 6e 2d 63 68 .....(org-noter--doc-location-ch
28560 61 6e 67 65 2d 68 61 6e 64 6c 65 72 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 6f 72 67 2d 6e 6f 74 ange-handler))))..(defun.org-not
28580 65 72 2d 73 79 6e 63 2d 6e 65 78 74 2d 70 61 67 65 2d 6f 72 2d 63 68 61 70 74 65 72 20 28 29 0a er-sync-next-page-or-chapter.().
285a0 20 20 22 53 68 6f 77 20 6e 65 78 74 20 70 61 67 65 20 6f 72 20 63 68 61 70 74 65 72 20 74 68 61 .."Show.next.page.or.chapter.tha
285c0 74 20 68 61 73 20 6e 6f 74 65 73 2e 0a 54 68 69 73 20 63 6f 6d 6d 61 6e 64 20 6e 61 76 69 67 61 t.has.notes..This.command.naviga
285e0 74 65 73 20 69 6e 20 72 65 6c 61 74 69 6f 6e 20 74 6f 20 74 68 65 20 63 75 72 72 65 6e 74 20 70 tes.in.relation.to.the.current.p
28600 61 67 65 20 6f 72 20 63 68 61 70 74 65 72 0a 6f 66 20 74 68 65 20 64 6f 63 75 6d 65 6e 74 2e 20 age.or.chapter.of.the.document..
28620 20 54 68 69 73 20 77 69 6c 6c 20 66 6f 72 63 65 20 74 68 65 20 6e 6f 74 65 73 20 77 69 6e 64 6f .This.will.force.the.notes.windo
28640 77 20 74 6f 20 70 6f 70 75 70 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 0a 20 20 28 w.to.popup."...(interactive)...(
28660 6f 72 67 2d 6e 6f 74 65 72 2d 2d 77 69 74 68 2d 76 61 6c 69 64 2d 73 65 73 73 69 6f 6e 0a 20 20 org-noter--with-valid-session...
28680 20 28 6c 65 74 20 28 28 74 68 69 73 2d 6c 6f 63 61 74 69 6f 6e 20 28 6f 72 67 2d 6e 6f 74 65 72 .(let.((this-location.(org-noter
286a0 2d 2d 64 6f 63 2d 61 70 70 72 6f 78 2d 6c 6f 63 61 74 69 6f 6e 20 6d 6f 73 74 2d 70 6f 73 69 74 --doc-approx-location.most-posit
286c0 69 76 65 2d 66 69 78 6e 75 6d 29 29 0a 20 20 20 20 20 20 20 20 20 28 63 6f 6e 74 65 6e 74 73 20 ive-fixnum))..........(contents.
286e0 28 6f 72 67 2d 65 6c 65 6d 65 6e 74 2d 63 6f 6e 74 65 6e 74 73 20 28 6f 72 67 2d 6e 6f 74 65 72 (org-element-contents.(org-noter
28700 2d 2d 70 61 72 73 65 2d 72 6f 6f 74 29 29 29 0a 20 20 20 20 20 20 20 20 20 74 61 72 67 65 74 2d --parse-root)))..........target-
28720 6c 6f 63 61 74 69 6f 6e 29 0a 0a 20 20 20 20 20 28 6f 72 67 2d 6e 6f 74 65 72 2d 2d 6d 61 70 2d location).......(org-noter--map-
28740 69 67 6e 6f 72 65 2d 68 65 61 64 69 6e 67 73 2d 77 69 74 68 2d 64 6f 63 2d 66 69 6c 65 0a 20 20 ignore-headings-with-doc-file...
28760 20 20 20 20 63 6f 6e 74 65 6e 74 73 20 74 0a 20 20 20 20 20 20 28 77 68 65 6e 20 28 61 6e 64 20 ....contents.t.......(when.(and.
28780 28 6f 72 67 2d 6e 6f 74 65 72 2d 2d 63 6f 6d 70 61 72 65 2d 6c 6f 63 61 74 69 6f 6e 73 20 27 3e (org-noter--compare-locations.'>
287a0 20 6c 6f 63 61 74 69 6f 6e 20 74 68 69 73 2d 6c 6f 63 61 74 69 6f 6e 29 0a 20 20 20 20 20 20 20 .location.this-location)........
287c0 20 20 20 20 20 20 20 20 20 20 28 6f 72 67 2d 6e 6f 74 65 72 2d 2d 63 6f 6d 70 61 72 65 2d 6c 6f ..........(org-noter--compare-lo
287e0 63 61 74 69 6f 6e 73 20 27 3c 20 6c 6f 63 61 74 69 6f 6e 20 74 61 72 67 65 74 2d 6c 6f 63 61 74 cations.'<.location.target-locat
28800 69 6f 6e 29 29 0a 20 20 20 20 20 20 20 20 28 73 65 74 71 20 74 61 72 67 65 74 2d 6c 6f 63 61 74 ion)).........(setq.target-locat
28820 69 6f 6e 20 6c 6f 63 61 74 69 6f 6e 29 29 29 0a 0a 20 20 20 20 20 28 6f 72 67 2d 6e 6f 74 65 72 ion.location))).......(org-noter
28840 2d 2d 67 65 74 2d 6e 6f 74 65 73 2d 77 69 6e 64 6f 77 20 27 66 6f 72 63 65 29 0a 20 20 20 20 20 --get-notes-window.'force)......
28860 28 73 65 6c 65 63 74 2d 77 69 6e 64 6f 77 20 28 6f 72 67 2d 6e 6f 74 65 72 2d 2d 67 65 74 2d 64 (select-window.(org-noter--get-d
28880 6f 63 2d 77 69 6e 64 6f 77 29 29 0a 20 20 20 20 20 28 69 66 20 74 61 72 67 65 74 2d 6c 6f 63 61 oc-window))......(if.target-loca
288a0 74 69 6f 6e 0a 20 20 20 20 20 20 20 20 20 28 6f 72 67 2d 6e 6f 74 65 72 2d 2d 64 6f 63 2d 67 6f tion..........(org-noter--doc-go
288c0 74 6f 2d 6c 6f 63 61 74 69 6f 6e 20 74 61 72 67 65 74 2d 6c 6f 63 61 74 69 6f 6e 29 0a 20 20 20 to-location.target-location)....
288e0 20 20 20 20 28 75 73 65 72 2d 65 72 72 6f 72 20 22 54 68 65 72 65 20 61 72 65 20 6e 6f 20 6d 6f ....(user-error."There.are.no.mo
28900 72 65 20 66 6f 6c 6c 6f 77 69 6e 67 20 70 61 67 65 73 20 6f 72 20 63 68 61 70 74 65 72 73 20 77 re.following.pages.or.chapters.w
28920 69 74 68 20 6e 6f 74 65 73 22 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 6f 72 67 2d 6e 6f 74 65 ith.notes")))))..(defun.org-note
28940 72 2d 73 79 6e 63 2d 70 72 65 76 2d 6e 6f 74 65 20 28 29 0a 20 20 22 47 6f 20 74 6f 20 74 68 65 r-sync-prev-note.()..."Go.to.the
28960 20 6c 6f 63 61 74 69 6f 6e 20 6f 66 20 74 68 65 20 70 72 65 76 69 6f 75 73 20 6e 6f 74 65 2c 20 .location.of.the.previous.note,.
28980 69 6e 20 72 65 6c 61 74 69 6f 6e 20 74 6f 20 77 68 65 72 65 20 74 68 65 20 70 6f 69 6e 74 20 69 in.relation.to.where.the.point.i
289a0 73 2e 0a 41 73 20 73 75 63 68 2c 20 69 74 20 77 69 6c 6c 20 6f 6e 6c 79 20 77 6f 72 6b 20 77 68 s..As.such,.it.will.only.work.wh
289c0 65 6e 20 74 68 65 20 6e 6f 74 65 73 20 77 69 6e 64 6f 77 20 65 78 69 73 74 73 2e 22 0a 20 20 28 en.the.notes.window.exists."...(
289e0 69 6e 74 65 72 61 63 74 69 76 65 29 0a 20 20 28 6f 72 67 2d 6e 6f 74 65 72 2d 2d 77 69 74 68 2d interactive)...(org-noter--with-
28a00 73 65 6c 65 63 74 65 64 2d 6e 6f 74 65 73 2d 77 69 6e 64 6f 77 0a 20 20 20 22 4e 6f 20 6e 6f 74 selected-notes-window...."No.not
28a20 65 73 20 77 69 6e 64 6f 77 20 65 78 69 73 74 73 22 0a 20 20 20 28 6c 65 74 20 28 28 6f 72 67 2d es.window.exists"....(let.((org-
28a40 6e 6f 74 65 72 2d 2d 69 6e 68 69 62 69 74 2d 6c 6f 63 61 74 69 6f 6e 2d 63 68 61 6e 67 65 2d 68 noter--inhibit-location-change-h
28a60 61 6e 64 6c 65 72 20 74 29 0a 20 20 20 20 20 20 20 20 20 28 63 6f 6e 74 65 6e 74 73 20 28 6f 72 andler.t)..........(contents.(or
28a80 67 2d 65 6c 65 6d 65 6e 74 2d 63 6f 6e 74 65 6e 74 73 20 28 6f 72 67 2d 6e 6f 74 65 72 2d 2d 70 g-element-contents.(org-noter--p
28aa0 61 72 73 65 2d 72 6f 6f 74 29 29 29 0a 20 20 20 20 20 20 20 20 20 28 63 75 72 72 65 6e 74 2d 62 arse-root)))..........(current-b
28ac0 65 67 69 6e 20 28 6f 72 67 2d 65 6c 65 6d 65 6e 74 2d 70 72 6f 70 65 72 74 79 20 3a 62 65 67 69 egin.(org-element-property.:begi
28ae0 6e 20 28 6f 72 67 2d 6e 6f 74 65 72 2d 2d 67 65 74 2d 63 6f 6e 74 61 69 6e 69 6e 67 2d 65 6c 65 n.(org-noter--get-containing-ele
28b00 6d 65 6e 74 29 29 29 0a 20 20 20 20 20 20 20 20 20 70 72 65 76 69 6f 75 73 29 0a 20 20 20 20 20 ment)))..........previous)......
28b20 28 77 68 65 6e 20 63 75 72 72 65 6e 74 2d 62 65 67 69 6e 0a 20 20 20 20 20 20 20 28 6f 72 67 2d (when.current-begin........(org-
28b40 6e 6f 74 65 72 2d 2d 6d 61 70 2d 69 67 6e 6f 72 65 2d 68 65 61 64 69 6e 67 73 2d 77 69 74 68 2d noter--map-ignore-headings-with-
28b60 64 6f 63 2d 66 69 6c 65 0a 20 20 20 20 20 20 20 20 63 6f 6e 74 65 6e 74 73 20 74 0a 20 20 20 20 doc-file.........contents.t.....
28b80 20 20 20 20 28 77 68 65 6e 20 6c 6f 63 61 74 69 6f 6e 0a 20 20 20 20 20 20 20 20 20 20 28 69 66 ....(when.location...........(if
28ba0 20 28 3d 20 63 75 72 72 65 6e 74 2d 62 65 67 69 6e 20 28 6f 72 67 2d 65 6c 65 6d 65 6e 74 2d 70 .(=.current-begin.(org-element-p
28bc0 72 6f 70 65 72 74 79 20 3a 62 65 67 69 6e 20 68 65 61 64 6c 69 6e 65 29 29 0a 20 20 20 20 20 20 roperty.:begin.headline)).......
28be0 20 20 20 20 20 20 20 20 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 70 72 65 76 ........t.............(setq.prev
28c00 69 6f 75 73 20 68 65 61 64 6c 69 6e 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 6e 69 6c 29 29 ious.headline).............nil))
28c20 29 29 0a 0a 20 20 20 20 20 28 69 66 20 70 72 65 76 69 6f 75 73 0a 20 20 20 20 20 20 20 20 20 28 )).......(if.previous..........(
28c40 70 72 6f 67 6e 0a 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 4e 4f 54 45 28 6e 6f 78 29 3a 20 54 progn............;;.NOTE(nox):.T
28c60 68 69 73 20 6e 65 65 64 73 20 74 6f 20 62 65 20 6d 61 6e 75 61 6c 20 73 6f 20 77 65 20 63 61 6e his.needs.to.be.manual.so.we.can
28c80 20 66 6f 63 75 73 20 74 68 65 20 63 6f 72 72 65 63 74 20 6e 6f 74 65 0a 20 20 20 20 20 20 20 20 .focus.the.correct.note.........
28ca0 20 20 20 28 6f 72 67 2d 6e 6f 74 65 72 2d 2d 64 6f 63 2d 67 6f 74 6f 2d 6c 6f 63 61 74 69 6f 6e ...(org-noter--doc-goto-location
28cc0 20 28 6f 72 67 2d 6e 6f 74 65 72 2d 2d 70 61 72 73 65 2d 6c 6f 63 61 74 69 6f 6e 2d 70 72 6f 70 .(org-noter--parse-location-prop
28ce0 65 72 74 79 20 70 72 65 76 69 6f 75 73 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 6f 72 67 2d erty.previous))............(org-
28d00 6e 6f 74 65 72 2d 2d 66 6f 63 75 73 2d 6e 6f 74 65 73 2d 72 65 67 69 6f 6e 20 28 6f 72 67 2d 6e noter--focus-notes-region.(org-n
28d20 6f 74 65 72 2d 2d 6d 61 6b 65 2d 76 69 65 77 2d 69 6e 66 6f 2d 66 6f 72 2d 73 69 6e 67 6c 65 2d oter--make-view-info-for-single-
28d40 6e 6f 74 65 20 73 65 73 73 69 6f 6e 20 70 72 65 76 69 6f 75 73 29 29 29 0a 20 20 20 20 20 20 20 note.session.previous)))........
28d60 28 75 73 65 72 2d 65 72 72 6f 72 20 22 54 68 65 72 65 20 69 73 20 6e 6f 20 70 72 65 76 69 6f 75 (user-error."There.is.no.previou
28d80 73 20 6e 6f 74 65 22 29 29 29 29 0a 20 20 28 73 65 6c 65 63 74 2d 77 69 6e 64 6f 77 20 28 6f 72 s.note"))))...(select-window.(or
28da0 67 2d 6e 6f 74 65 72 2d 2d 67 65 74 2d 64 6f 63 2d 77 69 6e 64 6f 77 29 29 29 0a 0a 28 64 65 66 g-noter--get-doc-window)))..(def
28dc0 75 6e 20 6f 72 67 2d 6e 6f 74 65 72 2d 73 79 6e 63 2d 63 75 72 72 65 6e 74 2d 6e 6f 74 65 20 28 un.org-noter-sync-current-note.(
28de0 29 0a 20 20 22 47 6f 20 74 68 65 20 6c 6f 63 61 74 69 6f 6e 20 6f 66 20 74 68 65 20 73 65 6c 65 )..."Go.the.location.of.the.sele
28e00 63 74 65 64 20 6e 6f 74 65 2c 20 69 6e 20 72 65 6c 61 74 69 6f 6e 20 74 6f 20 77 68 65 72 65 20 cted.note,.in.relation.to.where.
28e20 74 68 65 20 70 6f 69 6e 74 20 69 73 2e 0a 41 73 20 73 75 63 68 2c 20 69 74 20 77 69 6c 6c 20 6f the.point.is..As.such,.it.will.o
28e40 6e 6c 79 20 77 6f 72 6b 20 77 68 65 6e 20 74 68 65 20 6e 6f 74 65 73 20 77 69 6e 64 6f 77 20 65 nly.work.when.the.notes.window.e
28e60 78 69 73 74 73 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 0a 20 20 28 6f 72 67 2d 6e xists."...(interactive)...(org-n
28e80 6f 74 65 72 2d 2d 77 69 74 68 2d 73 65 6c 65 63 74 65 64 2d 6e 6f 74 65 73 2d 77 69 6e 64 6f 77 oter--with-selected-notes-window
28ea0 0a 20 20 20 22 4e 6f 20 6e 6f 74 65 73 20 77 69 6e 64 6f 77 20 65 78 69 73 74 73 22 0a 20 20 20 ...."No.notes.window.exists"....
28ec0 28 69 66 20 28 73 74 72 69 6e 67 3d 20 28 6f 72 67 2d 6e 6f 74 65 72 2d 2d 67 65 74 2d 6f 72 2d (if.(string=.(org-noter--get-or-
28ee0 72 65 61 64 2d 64 6f 63 75 6d 65 6e 74 2d 70 72 6f 70 65 72 74 79 20 74 29 0a 20 20 20 20 20 20 read-document-property.t).......
28f00 20 20 20 20 20 20 20 20 20 20 28 6f 72 67 2d 6e 6f 74 65 72 2d 2d 73 65 73 73 69 6f 6e 2d 70 72 ..........(org-noter--session-pr
28f20 6f 70 65 72 74 79 2d 74 65 78 74 20 73 65 73 73 69 6f 6e 29 29 0a 20 20 20 20 20 20 20 28 6c 65 operty-text.session))........(le
28f40 74 20 28 28 6c 6f 63 61 74 69 6f 6e 20 28 6f 72 67 2d 6e 6f 74 65 72 2d 2d 70 61 72 73 65 2d 6c t.((location.(org-noter--parse-l
28f60 6f 63 61 74 69 6f 6e 2d 70 72 6f 70 65 72 74 79 20 28 6f 72 67 2d 6e 6f 74 65 72 2d 2d 67 65 74 ocation-property.(org-noter--get
28f80 2d 63 6f 6e 74 61 69 6e 69 6e 67 2d 65 6c 65 6d 65 6e 74 29 29 29 29 0a 20 20 20 20 20 20 20 20 -containing-element)))).........
28fa0 20 28 69 66 20 6c 6f 63 61 74 69 6f 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6f 72 67 2d .(if.location..............(org-
28fc0 6e 6f 74 65 72 2d 2d 64 6f 63 2d 67 6f 74 6f 2d 6c 6f 63 61 74 69 6f 6e 20 6c 6f 63 61 74 69 6f noter--doc-goto-location.locatio
28fe0 6e 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 75 73 65 72 2d 65 72 72 6f 72 20 22 4e 6f 20 6e 6f n)............(user-error."No.no
29000 74 65 20 73 65 6c 65 63 74 65 64 22 29 29 29 0a 20 20 20 20 20 28 75 73 65 72 2d 65 72 72 6f 72 te.selected")))......(user-error
29020 20 22 59 6f 75 20 61 72 65 20 69 6e 73 69 64 65 20 61 20 64 69 66 66 65 72 65 6e 74 20 64 6f 63 ."You.are.inside.a.different.doc
29040 75 6d 65 6e 74 22 29 29 29 0a 20 20 28 6c 65 74 20 28 28 77 69 6e 64 6f 77 20 28 6f 72 67 2d 6e ument")))...(let.((window.(org-n
29060 6f 74 65 72 2d 2d 67 65 74 2d 64 6f 63 2d 77 69 6e 64 6f 77 29 29 29 0a 20 20 20 20 28 73 65 6c oter--get-doc-window))).....(sel
29080 65 63 74 2d 66 72 61 6d 65 2d 73 65 74 2d 69 6e 70 75 74 2d 66 6f 63 75 73 20 28 77 69 6e 64 6f ect-frame-set-input-focus.(windo
290a0 77 2d 66 72 61 6d 65 20 77 69 6e 64 6f 77 29 29 0a 20 20 20 20 28 73 65 6c 65 63 74 2d 77 69 6e w-frame.window)).....(select-win
290c0 64 6f 77 20 77 69 6e 64 6f 77 29 29 29 0a 0a 28 64 65 66 75 6e 20 6f 72 67 2d 6e 6f 74 65 72 2d dow.window)))..(defun.org-noter-
290e0 73 79 6e 63 2d 6e 65 78 74 2d 6e 6f 74 65 20 28 29 0a 20 20 22 47 6f 20 74 6f 20 74 68 65 20 6c sync-next-note.()..."Go.to.the.l
29100 6f 63 61 74 69 6f 6e 20 6f 66 20 74 68 65 20 6e 65 78 74 20 6e 6f 74 65 2c 20 69 6e 20 72 65 6c ocation.of.the.next.note,.in.rel
29120 61 74 69 6f 6e 20 74 6f 20 77 68 65 72 65 20 74 68 65 20 70 6f 69 6e 74 20 69 73 2e 0a 41 73 20 ation.to.where.the.point.is..As.
29140 73 75 63 68 2c 20 69 74 20 77 69 6c 6c 20 6f 6e 6c 79 20 77 6f 72 6b 20 77 68 65 6e 20 74 68 65 such,.it.will.only.work.when.the
29160 20 6e 6f 74 65 73 20 77 69 6e 64 6f 77 20 65 78 69 73 74 73 2e 22 0a 20 20 28 69 6e 74 65 72 61 .notes.window.exists."...(intera
29180 63 74 69 76 65 29 0a 20 20 28 6f 72 67 2d 6e 6f 74 65 72 2d 2d 77 69 74 68 2d 73 65 6c 65 63 74 ctive)...(org-noter--with-select
291a0 65 64 2d 6e 6f 74 65 73 2d 77 69 6e 64 6f 77 0a 20 20 20 22 4e 6f 20 6e 6f 74 65 73 20 77 69 6e ed-notes-window...."No.notes.win
291c0 64 6f 77 20 65 78 69 73 74 73 22 0a 20 20 20 28 6c 65 74 20 28 28 6f 72 67 2d 6e 6f 74 65 72 2d dow.exists"....(let.((org-noter-
291e0 2d 69 6e 68 69 62 69 74 2d 6c 6f 63 61 74 69 6f 6e 2d 63 68 61 6e 67 65 2d 68 61 6e 64 6c 65 72 -inhibit-location-change-handler
29200 20 74 29 0a 20 20 20 20 20 20 20 20 20 28 63 6f 6e 74 65 6e 74 73 20 28 6f 72 67 2d 65 6c 65 6d .t)..........(contents.(org-elem
29220 65 6e 74 2d 63 6f 6e 74 65 6e 74 73 20 28 6f 72 67 2d 6e 6f 74 65 72 2d 2d 70 61 72 73 65 2d 72 ent-contents.(org-noter--parse-r
29240 6f 6f 74 29 29 29 0a 20 20 20 20 20 20 20 20 20 6e 65 78 74 29 0a 0a 20 20 20 20 20 28 6f 72 67 oot)))..........next).......(org
29260 2d 6e 6f 74 65 72 2d 2d 6d 61 70 2d 69 67 6e 6f 72 65 2d 68 65 61 64 69 6e 67 73 2d 77 69 74 68 -noter--map-ignore-headings-with
29280 2d 64 6f 63 2d 66 69 6c 65 0a 20 20 20 20 20 20 63 6f 6e 74 65 6e 74 73 20 74 0a 20 20 20 20 20 -doc-file.......contents.t......
292a0 20 28 77 68 65 6e 20 28 61 6e 64 20 6c 6f 63 61 74 69 6f 6e 20 28 3c 20 28 70 6f 69 6e 74 29 20 .(when.(and.location.(<.(point).
292c0 28 6f 72 67 2d 65 6c 65 6d 65 6e 74 2d 70 72 6f 70 65 72 74 79 20 3a 62 65 67 69 6e 20 68 65 61 (org-element-property.:begin.hea
292e0 64 6c 69 6e 65 29 29 29 0a 20 20 20 20 20 20 20 20 28 73 65 74 71 20 6e 65 78 74 20 68 65 61 64 dline))).........(setq.next.head
29300 6c 69 6e 65 29 29 29 0a 0a 20 20 20 20 20 28 69 66 20 6e 65 78 74 0a 20 20 20 20 20 20 20 20 20 line))).......(if.next..........
29320 28 70 72 6f 67 6e 0a 20 20 20 20 20 20 20 20 20 20 20 28 6f 72 67 2d 6e 6f 74 65 72 2d 2d 64 6f (progn............(org-noter--do
29340 63 2d 67 6f 74 6f 2d 6c 6f 63 61 74 69 6f 6e 20 28 6f 72 67 2d 6e 6f 74 65 72 2d 2d 70 61 72 73 c-goto-location.(org-noter--pars
29360 65 2d 6c 6f 63 61 74 69 6f 6e 2d 70 72 6f 70 65 72 74 79 20 6e 65 78 74 29 29 0a 20 20 20 20 20 e-location-property.next))......
29380 20 20 20 20 20 20 28 6f 72 67 2d 6e 6f 74 65 72 2d 2d 66 6f 63 75 73 2d 6e 6f 74 65 73 2d 72 65 ......(org-noter--focus-notes-re
293a0 67 69 6f 6e 20 28 6f 72 67 2d 6e 6f 74 65 72 2d 2d 6d 61 6b 65 2d 76 69 65 77 2d 69 6e 66 6f 2d gion.(org-noter--make-view-info-
293c0 66 6f 72 2d 73 69 6e 67 6c 65 2d 6e 6f 74 65 20 73 65 73 73 69 6f 6e 20 6e 65 78 74 29 29 29 0a for-single-note.session.next))).
293e0 20 20 20 20 20 20 20 28 75 73 65 72 2d 65 72 72 6f 72 20 22 54 68 65 72 65 20 69 73 20 6e 6f 20 .......(user-error."There.is.no.
29400 6e 65 78 74 20 6e 6f 74 65 22 29 29 29 29 0a 20 20 28 73 65 6c 65 63 74 2d 77 69 6e 64 6f 77 20 next.note"))))...(select-window.
29420 28 6f 72 67 2d 6e 6f 74 65 72 2d 2d 67 65 74 2d 64 6f 63 2d 77 69 6e 64 6f 77 29 29 29 0a 0a 28 (org-noter--get-doc-window)))..(
29440 64 65 66 75 6e 20 6f 72 67 2d 6e 6f 74 65 72 2d 65 6e 61 62 6c 65 2d 75 70 64 61 74 65 2d 72 65 defun.org-noter-enable-update-re
29460 6e 61 6d 65 73 20 28 29 0a 20 20 22 45 6e 61 62 6c 65 20 60 64 69 72 65 64 2d 72 65 6e 61 6d 65 names.()..."Enable.`dired-rename
29480 2d 66 69 6c 65 27 20 61 64 76 69 63 65 20 66 6f 72 20 6d 6f 76 69 6e 67 20 64 6f 63 73 20 61 6e -file'.advice.for.moving.docs.an
294a0 64 20 6e 6f 74 65 73 2e 0a 45 6e 61 62 6c 65 73 20 60 6f 72 67 2d 6e 6f 74 65 72 2d 2d 75 70 64 d.notes..Enables.`org-noter--upd
294c0 61 74 65 2d 64 6f 63 2d 72 65 6e 61 6d 65 2d 69 6e 2d 6e 6f 74 65 73 27 20 61 6e 64 0a 60 6f 72 ate-doc-rename-in-notes'.and.`or
294e0 67 2d 6e 6f 74 65 72 2d 2d 75 70 64 61 74 65 2d 6e 6f 74 65 73 2d 72 65 6e 61 6d 65 2d 69 6e 2d g-noter--update-notes-rename-in-
29500 6e 6f 74 65 73 27 20 61 73 20 61 64 76 69 63 65 20 3a 61 66 74 65 72 0a 60 64 69 72 65 64 2d 72 notes'.as.advice.:after.`dired-r
29520 65 6e 61 6d 65 2d 66 69 6c 65 27 2e 0a 0a 49 6e 20 64 69 72 65 64 2c 20 74 68 69 73 20 61 66 66 ename-file'...In.dired,.this.aff
29540 65 63 74 73 20 74 68 65 20 72 65 6e 61 6d 69 6e 67 20 6f 66 20 73 75 70 70 6f 72 74 65 64 20 64 ects.the.renaming.of.supported.d
29560 6f 63 75 6d 65 6e 74 20 66 69 6c 65 73 0a 61 6e 64 20 2e 6f 72 67 20 66 69 6c 65 73 2e 0a 0a 54 ocument.files.and..org.files...T
29580 68 69 73 20 66 65 61 74 75 72 65 20 63 61 6e 20 62 65 20 74 75 72 6e 20 6f 66 66 20 77 69 74 68 his.feature.can.be.turn.off.with
295a0 20 60 6f 72 67 2d 6e 6f 74 65 72 2d 64 69 73 61 62 6c 65 2d 73 79 6e 63 2d 72 65 6e 61 6d 65 73 .`org-noter-disable-sync-renames
295c0 27 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 0a 20 20 28 61 64 76 69 63 65 2d 61 64 '."...(interactive)...(advice-ad
295e0 64 20 27 64 69 72 65 64 2d 72 65 6e 61 6d 65 2d 66 69 6c 65 20 3a 61 66 74 65 72 20 27 6f 72 67 d.'dired-rename-file.:after.'org
29600 2d 6e 6f 74 65 72 2d 2d 75 70 64 61 74 65 2d 64 6f 63 2d 72 65 6e 61 6d 65 2d 69 6e 2d 6e 6f 74 -noter--update-doc-rename-in-not
29620 65 73 29 0a 20 20 28 61 64 76 69 63 65 2d 61 64 64 20 27 64 69 72 65 64 2d 72 65 6e 61 6d 65 2d es)...(advice-add.'dired-rename-
29640 66 69 6c 65 20 3a 61 66 74 65 72 20 27 6f 72 67 2d 6e 6f 74 65 72 2d 2d 75 70 64 61 74 65 2d 6e file.:after.'org-noter--update-n
29660 6f 74 65 73 2d 72 65 6e 61 6d 65 2d 69 6e 2d 6e 6f 74 65 73 29 29 0a 0a 28 64 65 66 75 6e 20 6f otes-rename-in-notes))..(defun.o
29680 72 67 2d 6e 6f 74 65 72 2d 64 69 73 61 62 6c 65 2d 75 70 64 61 74 65 2d 72 65 6e 61 6d 65 73 20 rg-noter-disable-update-renames.
296a0 28 29 0a 20 20 22 44 69 73 61 62 6c 65 20 60 64 69 72 65 64 2d 72 65 6e 61 6d 65 2d 66 69 6c 65 ()..."Disable.`dired-rename-file
296c0 27 20 61 64 76 69 63 65 20 66 6f 72 20 6d 6f 76 69 6e 67 20 64 6f 63 73 20 61 6e 64 20 6e 6f 74 '.advice.for.moving.docs.and.not
296e0 65 73 2e 0a 52 75 6e 20 74 68 69 73 20 69 66 20 79 6f 75 20 63 68 61 6e 67 65 20 79 6f 75 72 20 es..Run.this.if.you.change.your.
29700 6d 69 6e 64 20 61 62 6f 75 74 20 75 73 69 6e 67 20 74 68 65 20 72 65 6e 61 6d 65 0a 73 79 6e 63 mind.about.using.the.rename.sync
29720 68 72 6f 6e 69 7a 61 74 69 6f 6e 20 66 65 61 74 75 72 65 73 2e 22 0a 20 20 28 69 6e 74 65 72 61 hronization.features."...(intera
29740 63 74 69 76 65 29 0a 20 20 28 61 64 76 69 63 65 2d 72 65 6d 6f 76 65 20 27 64 69 72 65 64 2d 72 ctive)...(advice-remove.'dired-r
29760 65 6e 61 6d 65 2d 66 69 6c 65 20 27 6f 72 67 2d 6e 6f 74 65 72 2d 2d 75 70 64 61 74 65 2d 64 6f ename-file.'org-noter--update-do
29780 63 2d 72 65 6e 61 6d 65 2d 69 6e 2d 6e 6f 74 65 73 29 0a 20 20 28 61 64 76 69 63 65 2d 72 65 6d c-rename-in-notes)...(advice-rem
297a0 6f 76 65 20 27 64 69 72 65 64 2d 72 65 6e 61 6d 65 2d 66 69 6c 65 20 27 6f 72 67 2d 6e 6f 74 65 ove.'dired-rename-file.'org-note
297c0 72 2d 2d 75 70 64 61 74 65 2d 6e 6f 74 65 73 2d 72 65 6e 61 6d 65 2d 69 6e 2d 6e 6f 74 65 73 29 r--update-notes-rename-in-notes)
297e0 29 0a 0a 28 64 65 66 69 6e 65 2d 6d 69 6e 6f 72 2d 6d 6f 64 65 20 6f 72 67 2d 6e 6f 74 65 72 2d )..(define-minor-mode.org-noter-
29800 64 6f 63 2d 6d 6f 64 65 0a 20 20 22 4d 69 6e 6f 72 20 6d 6f 64 65 20 66 6f 72 20 74 68 65 20 64 doc-mode..."Minor.mode.for.the.d
29820 6f 63 75 6d 65 6e 74 20 62 75 66 66 65 72 2e 0a 4b 65 79 6d 61 70 3a 0a 5c 5c 7b 6f 72 67 2d 6e ocument.buffer..Keymap:.\\{org-n
29840 6f 74 65 72 2d 64 6f 63 2d 6d 6f 64 65 2d 6d 61 70 7d 22 0a 20 20 3a 6b 65 79 6d 61 70 20 60 28 oter-doc-mode-map}"...:keymap.`(
29860 28 2c 28 6b 62 64 20 20 20 22 69 22 29 20 20 20 2e 20 6f 72 67 2d 6e 6f 74 65 72 2d 69 6e 73 65 (,(kbd..."i").....org-noter-inse
29880 72 74 2d 6e 6f 74 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 2c 28 6b 62 64 20 22 43 2d 69 rt-note).............(,(kbd."C-i
298a0 22 29 20 20 20 2e 20 6f 72 67 2d 6e 6f 74 65 72 2d 69 6e 73 65 72 74 2d 6e 6f 74 65 2d 74 6f 67 ").....org-noter-insert-note-tog
298c0 67 6c 65 2d 6e 6f 2d 71 75 65 73 74 69 6f 6e 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 2c gle-no-questions).............(,
298e0 28 6b 62 64 20 22 4d 2d 69 22 29 20 20 20 2e 20 6f 72 67 2d 6e 6f 74 65 72 2d 69 6e 73 65 72 74 (kbd."M-i").....org-noter-insert
29900 2d 70 72 65 63 69 73 65 2d 6e 6f 74 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 2c 28 6b 62 -precise-note).............(,(kb
29920 64 20 22 43 2d 4d 2d 69 22 29 20 2e 20 6f 72 67 2d 6e 6f 74 65 72 2d 69 6e 73 65 72 74 2d 70 72 d."C-M-i")...org-noter-insert-pr
29940 65 63 69 73 65 2d 6e 6f 74 65 2d 74 6f 67 67 6c 65 2d 6e 6f 2d 71 75 65 73 74 69 6f 6e 73 29 0a ecise-note-toggle-no-questions).
29960 20 20 20 20 20 20 20 20 20 20 20 20 28 2c 28 6b 62 64 20 20 20 22 71 22 29 20 20 20 2e 20 6f 72 ............(,(kbd..."q").....or
29980 67 2d 6e 6f 74 65 72 2d 6b 69 6c 6c 2d 73 65 73 73 69 6f 6e 29 0a 20 20 20 20 20 20 20 20 20 20 g-noter-kill-session)...........
299a0 20 20 28 2c 28 6b 62 64 20 22 4d 2d 70 22 29 20 20 20 2e 20 6f 72 67 2d 6e 6f 74 65 72 2d 73 79 ..(,(kbd."M-p").....org-noter-sy
299c0 6e 63 2d 70 72 65 76 2d 70 61 67 65 2d 6f 72 2d 63 68 61 70 74 65 72 29 0a 20 20 20 20 20 20 20 nc-prev-page-or-chapter)........
299e0 20 20 20 20 20 28 2c 28 6b 62 64 20 22 4d 2d 2e 22 29 20 20 20 2e 20 6f 72 67 2d 6e 6f 74 65 72 .....(,(kbd."M-.").....org-noter
29a00 2d 73 79 6e 63 2d 63 75 72 72 65 6e 74 2d 70 61 67 65 2d 6f 72 2d 63 68 61 70 74 65 72 29 0a 20 -sync-current-page-or-chapter)..
29a20 20 20 20 20 20 20 20 20 20 20 20 28 2c 28 6b 62 64 20 22 4d 2d 6e 22 29 20 20 20 2e 20 6f 72 67 ...........(,(kbd."M-n").....org
29a40 2d 6e 6f 74 65 72 2d 73 79 6e 63 2d 6e 65 78 74 2d 70 61 67 65 2d 6f 72 2d 63 68 61 70 74 65 72 -noter-sync-next-page-or-chapter
29a60 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 2c 28 6b 62 64 20 22 43 2d 4d 2d 70 22 29 20 2e 20 ).............(,(kbd."C-M-p")...
29a80 6f 72 67 2d 6e 6f 74 65 72 2d 73 79 6e 63 2d 70 72 65 76 2d 6e 6f 74 65 29 0a 20 20 20 20 20 20 org-noter-sync-prev-note).......
29aa0 20 20 20 20 20 20 28 2c 28 6b 62 64 20 22 43 2d 4d 2d 2e 22 29 20 2e 20 6f 72 67 2d 6e 6f 74 65 ......(,(kbd."C-M-.")...org-note
29ac0 72 2d 73 79 6e 63 2d 63 75 72 72 65 6e 74 2d 6e 6f 74 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 r-sync-current-note)............
29ae0 20 28 2c 28 6b 62 64 20 22 43 2d 4d 2d 6e 22 29 20 2e 20 6f 72 67 2d 6e 6f 74 65 72 2d 73 79 6e .(,(kbd."C-M-n")...org-noter-syn
29b00 63 2d 6e 65 78 74 2d 6e 6f 74 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 2c 28 6b 62 64 20 c-next-note).............(,(kbd.
29b20 22 4d 2d 54 22 29 20 20 20 2e 20 6f 72 67 2d 6e 6f 74 65 72 2d 74 6f 67 67 6c 65 2d 6e 6f 74 65 "M-T").....org-noter-toggle-note
29b40 73 2d 77 69 6e 64 6f 77 2d 6c 6f 63 61 74 69 6f 6e 29 29 0a 0a 20 20 28 6c 65 74 20 28 28 6d 6f s-window-location))....(let.((mo
29b60 64 65 2d 6c 69 6e 65 2d 73 65 67 6d 65 6e 74 20 27 28 3a 65 76 61 6c 20 28 6f 72 67 2d 6e 6f 74 de-line-segment.'(:eval.(org-not
29b80 65 72 2d 2d 6d 6f 64 65 2d 6c 69 6e 65 2d 74 65 78 74 29 29 29 29 0a 20 20 20 20 28 69 66 20 6f er--mode-line-text)))).....(if.o
29ba0 72 67 2d 6e 6f 74 65 72 2d 64 6f 63 2d 6d 6f 64 65 0a 20 20 20 20 20 20 20 20 28 69 66 20 28 73 rg-noter-doc-mode.........(if.(s
29bc0 79 6d 62 6f 6c 70 20 28 63 61 72 2d 73 61 66 65 20 6d 6f 64 65 2d 6c 69 6e 65 2d 66 6f 72 6d 61 ymbolp.(car-safe.mode-line-forma
29be0 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 6d 6f 64 65 2d 6c 69 6e 65 2d t)).............(setq.mode-line-
29c00 66 6f 72 6d 61 74 20 28 6c 69 73 74 20 6d 6f 64 65 2d 6c 69 6e 65 2d 73 65 67 6d 65 6e 74 20 6d format.(list.mode-line-segment.m
29c20 6f 64 65 2d 6c 69 6e 65 2d 66 6f 72 6d 61 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 70 75 73 ode-line-format))...........(pus
29c40 68 20 6d 6f 64 65 2d 6c 69 6e 65 2d 73 65 67 6d 65 6e 74 20 6d 6f 64 65 2d 6c 69 6e 65 2d 66 6f h.mode-line-segment.mode-line-fo
29c60 72 6d 61 74 29 29 0a 20 20 20 20 20 20 28 73 65 74 71 20 6d 6f 64 65 2d 6c 69 6e 65 2d 66 6f 72 rmat)).......(setq.mode-line-for
29c80 6d 61 74 20 28 64 65 6c 65 74 65 20 6d 6f 64 65 2d 6c 69 6e 65 2d 73 65 67 6d 65 6e 74 20 6d 6f mat.(delete.mode-line-segment.mo
29ca0 64 65 2d 6c 69 6e 65 2d 66 6f 72 6d 61 74 29 29 29 29 29 0a 0a 28 64 65 66 69 6e 65 2d 6d 69 6e de-line-format)))))..(define-min
29cc0 6f 72 2d 6d 6f 64 65 20 6f 72 67 2d 6e 6f 74 65 72 2d 6e 6f 74 65 73 2d 6d 6f 64 65 0a 20 20 22 or-mode.org-noter-notes-mode..."
29ce0 4d 69 6e 6f 72 20 6d 6f 64 65 20 66 6f 72 20 74 68 65 20 6e 6f 74 65 73 20 62 75 66 66 65 72 2e Minor.mode.for.the.notes.buffer.
29d00 0a 4b 65 79 6d 61 70 3a 0a 5c 5c 7b 6f 72 67 2d 6e 6f 74 65 72 2d 6e 6f 74 65 73 2d 6d 6f 64 65 .Keymap:.\\{org-noter-notes-mode
29d20 2d 6d 61 70 7d 22 0a 20 20 3a 6b 65 79 6d 61 70 20 60 28 28 2c 28 6b 62 64 20 22 4d 2d 70 22 29 -map}"...:keymap.`((,(kbd."M-p")
29d40 20 20 20 2e 20 6f 72 67 2d 6e 6f 74 65 72 2d 73 79 6e 63 2d 70 72 65 76 2d 70 61 67 65 2d 6f 72 .....org-noter-sync-prev-page-or
29d60 2d 63 68 61 70 74 65 72 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 2c 28 6b 62 64 20 22 4d 2d -chapter).............(,(kbd."M-
29d80 2e 22 29 20 20 20 2e 20 6f 72 67 2d 6e 6f 74 65 72 2d 73 79 6e 63 2d 63 75 72 72 65 6e 74 2d 70 .").....org-noter-sync-current-p
29da0 61 67 65 2d 6f 72 2d 63 68 61 70 74 65 72 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 2c 28 6b age-or-chapter).............(,(k
29dc0 62 64 20 22 4d 2d 6e 22 29 20 20 20 2e 20 6f 72 67 2d 6e 6f 74 65 72 2d 73 79 6e 63 2d 6e 65 78 bd."M-n").....org-noter-sync-nex
29de0 74 2d 70 61 67 65 2d 6f 72 2d 63 68 61 70 74 65 72 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 t-page-or-chapter).............(
29e00 2c 28 6b 62 64 20 22 43 2d 4d 2d 70 22 29 20 2e 20 6f 72 67 2d 6e 6f 74 65 72 2d 73 79 6e 63 2d ,(kbd."C-M-p")...org-noter-sync-
29e20 70 72 65 76 2d 6e 6f 74 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 2c 28 6b 62 64 20 22 43 prev-note).............(,(kbd."C
29e40 2d 4d 2d 2e 22 29 20 2e 20 6f 72 67 2d 6e 6f 74 65 72 2d 73 79 6e 63 2d 63 75 72 72 65 6e 74 2d -M-.")...org-noter-sync-current-
29e60 6e 6f 74 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 2c 28 6b 62 64 20 22 43 2d 4d 2d 6e 22 note).............(,(kbd."C-M-n"
29e80 29 20 2e 20 6f 72 67 2d 6e 6f 74 65 72 2d 73 79 6e 63 2d 6e 65 78 74 2d 6e 6f 74 65 29 0a 20 20 )...org-noter-sync-next-note)...
29ea0 20 20 20 20 20 20 20 20 20 20 28 2c 28 6b 62 64 20 22 4d 2d 54 22 29 20 20 20 2e 20 6f 72 67 2d ..........(,(kbd."M-T").....org-
29ec0 6e 6f 74 65 72 2d 74 6f 67 67 6c 65 2d 6e 6f 74 65 73 2d 77 69 6e 64 6f 77 2d 6c 6f 63 61 74 69 noter-toggle-notes-window-locati
29ee0 6f 6e 29 29 0a 20 20 28 69 66 20 6f 72 67 2d 6e 6f 74 65 72 2d 64 6f 63 2d 6d 6f 64 65 0a 20 20 on))...(if.org-noter-doc-mode...
29f00 20 20 20 20 28 6f 72 67 2d 6e 6f 74 65 72 2d 64 6f 63 2d 6d 6f 64 65 20 2d 31 29 29 29 0a 0a 28 ....(org-noter-doc-mode.-1)))..(
29f20 70 72 6f 76 69 64 65 20 27 6f 72 67 2d 6e 6f 74 65 72 2d 63 6f 72 65 29 0a 3b 3b 3b 20 6f 72 67 provide.'org-noter-core).;;;.org
29f40 2d 6e 6f 74 65 72 2d 63 6f 72 65 2e 65 6c 20 65 6e 64 73 20 68 65 72 65 0a 00 00 00 00 00 00 00 -noter-core.el.ends.here........
29f60 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
29f80 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
29fa0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
29fc0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
29fe0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
2a000 6f 72 67 2d 6e 6f 74 65 72 2d 32 30 32 34 30 39 31 38 2e 31 37 30 33 2f 6f 72 67 2d 6e 6f 74 65 org-noter-20240918.1703/org-note
2a020 72 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 r-pkg.el........................
2a040 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
2a060 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
2a080 30 30 30 31 32 31 32 00 30 30 30 30 30 30 30 30 30 30 30 00 30 31 35 37 34 32 00 20 30 00 00 00 0001212.00000000000.015742..0...
2a0a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
2a0c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
2a0e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
2a100 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...................
2a120 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...................
2a140 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
2a160 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
2a180 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
2a1a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
2a1c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
2a1e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
2a200 3b 3b 20 2d 2a 2d 20 6e 6f 2d 62 79 74 65 2d 63 6f 6d 70 69 6c 65 3a 20 74 3b 20 6c 65 78 69 63 ;;.-*-.no-byte-compile:.t;.lexic
2a220 61 6c 2d 62 69 6e 64 69 6e 67 3a 20 6e 69 6c 20 2d 2a 2d 0a 28 64 65 66 69 6e 65 2d 70 61 63 6b al-binding:.nil.-*-.(define-pack
2a240 61 67 65 20 22 6f 72 67 2d 6e 6f 74 65 72 22 20 22 32 30 32 34 30 39 31 38 2e 31 37 30 33 22 0a age."org-noter"."20240918.1703".
2a260 20 20 22 41 20 73 79 6e 63 68 72 6f 6e 69 7a 65 64 2c 20 4f 72 67 2d 6d 6f 64 65 2c 20 64 6f 63 .."A.synchronized,.Org-mode,.doc
2a280 75 6d 65 6e 74 20 61 6e 6e 6f 74 61 74 6f 72 2e 22 0a 20 20 27 28 28 65 6d 61 63 73 20 20 22 32 ument.annotator."...'((emacs.."2
2a2a0 34 2e 34 22 29 0a 20 20 20 20 28 63 6c 2d 6c 69 62 20 22 30 2e 36 22 29 0a 20 20 20 20 28 6f 72 4.4").....(cl-lib."0.6").....(or
2a2c0 67 20 20 20 20 22 39 2e 34 22 29 29 0a 20 20 3a 75 72 6c 20 22 68 74 74 70 73 3a 2f 2f 67 69 74 g...."9.4"))...:url."https://git
2a2e0 68 75 62 2e 63 6f 6d 2f 6f 72 67 2d 6e 6f 74 65 72 2f 6f 72 67 2d 6e 6f 74 65 72 22 0a 20 20 3a hub.com/org-noter/org-noter"...:
2a300 63 6f 6d 6d 69 74 20 22 36 39 31 65 66 63 33 65 64 34 61 32 38 32 38 64 37 39 31 61 31 34 38 65 commit."691efc3ed4a2828d791a148e
2a320 35 33 38 35 31 33 36 35 63 32 65 62 33 38 30 66 22 0a 20 20 3a 72 65 76 64 65 73 63 20 22 36 39 53851365c2eb380f"...:revdesc."69
2a340 31 65 66 63 33 65 64 34 61 32 22 0a 20 20 3a 6b 65 79 77 6f 72 64 73 20 27 28 22 6c 69 73 70 22 1efc3ed4a2"...:keywords.'("lisp"
2a360 20 22 70 64 66 22 20 22 69 6e 74 65 72 6c 65 61 76 65 22 20 22 61 6e 6e 6f 74 61 74 65 22 20 22 ."pdf"."interleave"."annotate"."
2a380 65 78 74 65 72 6e 61 6c 22 20 22 73 79 6e 63 22 20 22 6e 6f 74 65 73 22 20 22 64 6f 63 75 6d 65 external"."sync"."notes"."docume
2a3a0 6e 74 73 22 20 22 6f 72 67 2d 6d 6f 64 65 22 29 0a 20 20 3a 61 75 74 68 6f 72 73 20 27 28 28 22 nts"."org-mode")...:authors.'(("
2a3c0 47 6f 6e c3 a7 61 6c 6f 20 53 61 6e 74 6f 73 22 20 2e 20 22 69 6e 40 62 73 65 6e 74 69 61 22 29 Gon..alo.Santos"..."in@bsentia")
2a3e0 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 22 4d 61 69 6e 74 61 69 6e 65 72 20 44 6d 69 74 72 ..............("Maintainer.Dmitr
2a400 79 20 4d 22 20 2e 20 22 64 6d 69 74 72 79 6d 40 67 6d 61 69 6c 2e 63 6f 6d 22 29 29 0a 20 20 3a y.M"..."dmitrym@gmail.com"))...:
2a420 6d 61 69 6e 74 61 69 6e 65 72 73 20 27 28 28 22 50 65 74 65 72 20 4d 61 6f 22 20 2e 20 22 70 65 maintainers.'(("Peter.Mao"..."pe
2a440 74 65 72 2e 6d 61 6f 40 67 6d 61 69 6c 2e 63 6f 6d 22 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 ter.mao@gmail.com").............
2a460 20 20 20 20 20 28 22 44 6d 69 74 72 79 20 4d 22 20 2e 20 22 64 6d 69 74 72 79 6d 40 67 6d 61 69 .....("Dmitry.M"..."dmitrym@gmai
2a480 6c 2e 63 6f 6d 22 29 29 29 0a 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 l.com"))).......................
2a4a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
2a4c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
2a4e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
2a500 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
2a520 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
2a540 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
2a560 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
2a580 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
2a5a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
2a5c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
2a5e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
2a600 6f 72 67 2d 6e 6f 74 65 72 2d 32 30 32 34 30 39 31 38 2e 31 37 30 33 2f 6f 72 67 2d 6e 6f 74 65 org-noter-20240918.1703/org-note
2a620 72 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 r.el............................
2a640 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
2a660 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
2a680 30 30 33 36 32 33 32 00 30 30 30 30 30 30 30 30 30 30 30 00 30 31 35 31 37 35 00 20 30 00 00 00 0036232.00000000000.015175..0...
2a6a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
2a6c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
2a6e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
2a700 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...................
2a720 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...................
2a740 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
2a760 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
2a780 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
2a7a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
2a7c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
2a7e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
2a800 3b 3b 3b 20 6f 72 67 2d 6e 6f 74 65 72 2e 65 6c 20 2d 2d 2d 20 41 20 73 79 6e 63 68 72 6f 6e 69 ;;;.org-noter.el.---.A.synchroni
2a820 7a 65 64 2c 20 4f 72 67 2d 6d 6f 64 65 2c 20 64 6f 63 75 6d 65 6e 74 20 61 6e 6e 6f 74 61 74 6f zed,.Org-mode,.document.annotato
2a840 72 20 20 20 20 20 20 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 r.......-*-.lexical-binding:.t;.
2a860 2d 2a 2d 0a 0a 3b 3b 20 43 6f 70 79 72 69 67 68 74 20 28 43 29 20 32 30 31 37 2d 32 30 31 39 20 -*-..;;.Copyright.(C).2017-2019.
2a880 20 47 6f 6e c3 a7 61 6c 6f 20 53 61 6e 74 6f 73 0a 0a 3b 3b 20 41 75 74 68 6f 72 3a 20 47 6f 6e .Gon..alo.Santos..;;.Author:.Gon
2a8a0 c3 a7 61 6c 6f 20 53 61 6e 74 6f 73 20 28 67 69 74 68 75 62 2e 63 6f 6d 2f 77 65 69 72 64 4e 6f ..alo.Santos.(github.com/weirdNo
2a8c0 78 29 20 3c 69 6e 40 62 73 65 6e 74 69 61 3e 0a 3b 3b 09 20 20 20 4d 61 69 6e 74 61 69 6e 65 72 x).<in@bsentia>.;;....Maintainer
2a8e0 20 44 6d 69 74 72 79 20 4d 20 3c 64 6d 69 74 72 79 6d 40 67 6d 61 69 6c 2e 63 6f 6d 3e 0a 3b 3b .Dmitry.M.<dmitrym@gmail.com>.;;
2a900 20 4d 61 69 6e 74 61 69 6e 65 72 3a 20 50 65 74 65 72 20 4d 61 6f 20 3c 70 65 74 65 72 2e 6d 61 .Maintainer:.Peter.Mao.<peter.ma
2a920 6f 40 67 6d 61 69 6c 2e 63 6f 6d 3e 0a 3b 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 44 6d 69 74 o@gmail.com>.;;.............Dmit
2a940 72 79 20 4d 20 3c 64 6d 69 74 72 79 6d 40 67 6d 61 69 6c 2e 63 6f 6d 3e 0a 3b 3b 20 48 6f 6d 65 ry.M.<dmitrym@gmail.com>.;;.Home
2a960 70 61 67 65 3a 20 68 74 74 70 73 3a 2f 2f 67 69 74 68 75 62 2e 63 6f 6d 2f 6f 72 67 2d 6e 6f 74 page:.https://github.com/org-not
2a980 65 72 2f 6f 72 67 2d 6e 6f 74 65 72 0a 3b 3b 20 4b 65 79 77 6f 72 64 73 3a 20 6c 69 73 70 20 70 er/org-noter.;;.Keywords:.lisp.p
2a9a0 64 66 20 69 6e 74 65 72 6c 65 61 76 65 20 61 6e 6e 6f 74 61 74 65 20 65 78 74 65 72 6e 61 6c 20 df.interleave.annotate.external.
2a9c0 73 79 6e 63 20 6e 6f 74 65 73 20 64 6f 63 75 6d 65 6e 74 73 20 6f 72 67 2d 6d 6f 64 65 0a 3b 3b sync.notes.documents.org-mode.;;
2a9e0 20 50 61 63 6b 61 67 65 2d 52 65 71 75 69 72 65 73 3a 20 28 28 65 6d 61 63 73 20 22 32 34 2e 34 .Package-Requires:.((emacs."24.4
2aa00 22 29 20 28 63 6c 2d 6c 69 62 20 22 30 2e 36 22 29 20 28 6f 72 67 20 22 39 2e 34 22 29 29 0a 3b ").(cl-lib."0.6").(org."9.4")).;
2aa20 3b 20 50 61 63 6b 61 67 65 2d 56 65 72 73 69 6f 6e 3a 20 32 30 32 34 30 39 31 38 2e 31 37 30 33 ;.Package-Version:.20240918.1703
2aa40 0a 3b 3b 20 50 61 63 6b 61 67 65 2d 52 65 76 69 73 69 6f 6e 3a 20 36 39 31 65 66 63 33 65 64 34 .;;.Package-Revision:.691efc3ed4
2aa60 61 32 0a 0a 3b 3b 20 54 68 69 73 20 66 69 6c 65 20 69 73 20 6e 6f 74 20 70 61 72 74 20 6f 66 20 a2..;;.This.file.is.not.part.of.
2aa80 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 69 73 20 66 GNU.Emacs...;;.This.program.is.f
2aaa0 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 72 69 62 75 ree.software;.you.can.redistribu
2aac0 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 64 65 72 20 te.it.and/or.modify.;;.it.under.
2aae0 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 20 50 75 62 the.terms.of.the.GNU.General.Pub
2ab00 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 3b 3b 20 74 lic.License.as.published.by.;;.t
2ab20 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 20 65 69 74 he.Free.Software.Foundation,.eit
2ab40 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 2c 20 6f 72 her.version.3.of.the.License,.or
2ab60 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 65 72 20 76 .;;.(at.your.option).any.later.v
2ab80 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 64 69 73 74 ersion...;;.This.program.is.dist
2aba0 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 77 69 6c 6c ributed.in.the.hope.that.it.will
2abc0 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 4e 59 20 57 .be.useful,.;;.but.WITHOUT.ANY.W
2abe0 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 70 6c 69 65 ARRANTY;.without.even.the.implie
2ac00 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 4c 49 54 59 d.warranty.of.;;.MERCHANTABILITY
2ac20 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 20 50 55 52 .or.FITNESS.FOR.A.PARTICULAR.PUR
2ac40 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 6c 20 50 75 POSE...See.the.;;.GNU.General.Pu
2ac60 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 73 2e 0a 0a blic.License.for.more.details...
2ac80 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 61 20 63 6f ;;.You.should.have.received.a.co
2aca0 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 20 4c 69 63 py.of.the.GNU.General.Public.Lic
2acc0 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 72 61 6d 2e ense.;;.along.with.this.program.
2ace0 20 20 49 66 20 6e 6f 74 2c 20 73 65 65 20 3c 68 74 74 70 3a 2f 2f 77 77 77 2e 67 6e 75 2e 6f 72 ..If.not,.see.<http://www.gnu.or
2ad00 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:..
2ad20 3b 3b 20 54 68 65 20 69 64 65 61 20 69 73 20 74 6f 20 6c 65 74 20 79 6f 75 20 63 72 65 61 74 65 ;;.The.idea.is.to.let.you.create
2ad40 20 6e 6f 74 65 73 20 74 68 61 74 20 61 72 65 20 6b 65 70 74 20 69 6e 20 73 79 6e 63 20 77 68 65 .notes.that.are.kept.in.sync.whe
2ad60 6e 20 79 6f 75 20 73 63 72 6f 6c 6c 0a 3b 3b 20 74 68 72 6f 75 67 68 20 74 68 65 20 64 6f 63 75 n.you.scroll.;;.through.the.docu
2ad80 6d 65 6e 74 2c 20 62 75 74 20 74 68 61 74 20 61 72 65 20 65 78 74 65 72 6e 61 6c 20 74 6f 20 69 ment,.but.that.are.external.to.i
2ada0 74 20 2d 20 74 68 65 20 6e 6f 74 65 73 20 74 68 65 6d 73 65 6c 76 65 73 20 6c 69 76 65 0a 3b 3b t.-.the.notes.themselves.live.;;
2adc0 20 69 6e 20 61 6e 20 4f 72 67 2d 6d 6f 64 65 20 66 69 6c 65 2e 20 20 41 73 20 73 75 63 68 2c 20 .in.an.Org-mode.file...As.such,.
2ade0 74 68 69 73 20 6c 65 76 65 72 61 67 65 73 20 74 68 65 20 70 6f 77 65 72 20 6f 66 20 4f 72 67 2d this.leverages.the.power.of.Org-
2ae00 6d 6f 64 65 20 28 74 68 65 0a 3b 3b 20 6e 6f 74 65 73 20 6d 61 79 20 68 61 76 65 20 6f 75 74 6c mode.(the.;;.notes.may.have.outl
2ae20 69 6e 65 73 2c 20 6c 61 74 65 78 20 66 72 61 67 6d 65 6e 74 73 2c 20 62 61 62 65 6c 2c 20 65 74 ines,.latex.fragments,.babel,.et
2ae40 63 2e 2e 2e 29 20 77 68 69 6c 65 20 61 63 74 69 6e 67 20 6c 69 6b 65 0a 3b 3b 20 6e 6f 74 65 73 c...).while.acting.like.;;.notes
2ae60 20 74 68 61 74 20 61 72 65 20 6d 61 64 65 20 2f 69 6e 2f 20 74 68 65 20 64 6f 63 75 6d 65 6e 74 .that.are.made./in/.the.document
2ae80 2e 0a 0a 3b 3b 20 41 6c 73 6f 2c 20 49 20 6d 75 73 74 20 74 68 61 6e 6b 20 53 65 62 61 73 74 69 ...;;.Also,.I.must.thank.Sebasti
2aea0 61 6e 20 66 6f 72 20 74 68 65 20 6f 72 69 67 69 6e 61 6c 20 69 64 65 61 20 61 6e 64 20 69 6e 73 an.for.the.original.idea.and.ins
2aec0 70 69 72 61 74 69 6f 6e 21 0a 3b 3b 20 4c 69 6e 6b 20 74 6f 20 74 68 65 20 6f 72 69 67 69 6e 61 piration!.;;.Link.to.the.origina
2aee0 6c 20 49 6e 74 65 72 6c 65 61 76 65 20 70 61 63 6b 61 67 65 3a 0a 3b 3b 20 68 74 74 70 73 3a 2f l.Interleave.package:.;;.https:/
2af00 2f 67 69 74 68 75 62 2e 63 6f 6d 2f 72 75 64 6f 6c 66 6f 63 68 72 69 73 74 2f 69 6e 74 65 72 6c /github.com/rudolfochrist/interl
2af20 65 61 76 65 0a 0a 3b 3b 3b 20 43 6f 64 65 3a 0a 28 72 65 71 75 69 72 65 20 27 6f 72 67 2d 65 6c eave..;;;.Code:.(require.'org-el
2af40 65 6d 65 6e 74 29 0a 28 72 65 71 75 69 72 65 20 27 63 6c 2d 6c 69 62 29 0a 0a 28 72 65 71 75 69 ement).(require.'cl-lib)..(requi
2af60 72 65 20 27 6f 72 67 2d 6e 6f 74 65 72 2d 63 6f 72 65 29 0a 0a 28 64 65 63 6c 61 72 65 2d 66 75 re.'org-noter-core)..(declare-fu
2af80 6e 63 74 69 6f 6e 20 6f 72 67 2d 65 6e 74 72 79 2d 70 75 74 20 22 6f 72 67 22 29 0a 28 64 65 63 nction.org-entry-put."org").(dec
2afa0 6c 61 72 65 2d 66 75 6e 63 74 69 6f 6e 20 6f 72 67 2d 77 69 74 68 2d 77 69 64 65 2d 62 75 66 66 lare-function.org-with-wide-buff
2afc0 65 72 20 22 6f 72 67 2d 6d 61 63 73 22 29 0a 0a 28 61 64 64 2d 74 6f 2d 6c 69 73 74 20 27 6c 6f er."org-macs")..(add-to-list.'lo
2afe0 61 64 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 72 65 63 ad-path.(concat.(file-name-direc
2b000 74 6f 72 79 20 6c 6f 61 64 2d 66 69 6c 65 2d 6e 61 6d 65 29 20 22 6d 6f 64 75 6c 65 73 22 29 29 tory.load-file-name)."modules"))
2b020 0a 28 77 68 65 6e 20 28 6f 72 20 28 6d 65 6d 71 20 27 64 6f 63 2d 76 69 65 77 2d 6d 6f 64 65 20 .(when.(or.(memq.'doc-view-mode.
2b040 6f 72 67 2d 6e 6f 74 65 72 2d 73 75 70 70 6f 72 74 65 64 2d 6d 6f 64 65 73 29 0a 20 20 20 20 20 org-noter-supported-modes)......
2b060 20 20 20 20 20 28 6d 65 6d 71 20 27 70 64 66 2d 76 69 65 77 2d 6d 6f 64 65 20 6f 72 67 2d 6e 6f .....(memq.'pdf-view-mode.org-no
2b080 74 65 72 2d 73 75 70 70 6f 72 74 65 64 2d 6d 6f 64 65 73 29 29 0a 20 20 28 72 65 71 75 69 72 65 ter-supported-modes))...(require
2b0a0 20 27 6f 72 67 2d 6e 6f 74 65 72 2d 70 64 66 29 29 0a 28 77 68 65 6e 20 28 6d 65 6d 71 20 27 6e .'org-noter-pdf)).(when.(memq.'n
2b0c0 6f 76 2d 6d 6f 64 65 20 6f 72 67 2d 6e 6f 74 65 72 2d 73 75 70 70 6f 72 74 65 64 2d 6d 6f 64 65 ov-mode.org-noter-supported-mode
2b0e0 73 29 0a 20 20 28 72 65 71 75 69 72 65 20 27 6f 72 67 2d 6e 6f 74 65 72 2d 6e 6f 76 29 29 0a 28 s)...(require.'org-noter-nov)).(
2b100 77 68 65 6e 20 28 6d 65 6d 71 20 27 64 6a 76 75 2d 72 65 61 64 2d 6d 6f 64 65 20 6f 72 67 2d 6e when.(memq.'djvu-read-mode.org-n
2b120 6f 74 65 72 2d 73 75 70 70 6f 72 74 65 64 2d 6d 6f 64 65 73 29 0a 20 20 28 72 65 71 75 69 72 65 oter-supported-modes)...(require
2b140 20 27 6f 72 67 2d 6e 6f 74 65 72 2d 64 6a 76 75 29 29 0a 0a 3b 3b 3b 23 23 23 61 75 74 6f 6c 6f .'org-noter-djvu))..;;;###autolo
2b160 61 64 0a 28 64 65 66 75 6e 20 6f 72 67 2d 6e 6f 74 65 72 20 28 26 6f 70 74 69 6f 6e 61 6c 20 61 ad.(defun.org-noter.(&optional.a
2b180 72 67 29 0a 20 20 22 53 74 61 72 74 20 60 6f 72 67 2d 6e 6f 74 65 72 27 20 73 65 73 73 69 6f 6e rg)..."Start.`org-noter'.session
2b1a0 2e 0a 0a 54 68 65 72 65 20 61 72 65 20 74 77 6f 20 6d 6f 64 65 73 20 6f 66 20 6f 70 65 72 61 74 ...There.are.two.modes.of.operat
2b1c0 69 6f 6e 2e 20 20 59 6f 75 20 6d 61 79 20 63 72 65 61 74 65 20 74 68 65 20 73 65 73 73 69 6f 6e ion...You.may.create.the.session
2b1e0 20 66 72 6f 6d 3a 0a 2d 20 54 68 65 20 4f 72 67 20 6e 6f 74 65 73 20 66 69 6c 65 0a 2d 20 54 68 .from:.-.The.Org.notes.file.-.Th
2b200 65 20 64 6f 63 75 6d 65 6e 74 20 74 6f 20 62 65 20 61 6e 6e 6f 74 61 74 65 64 20 28 50 44 46 2c e.document.to.be.annotated.(PDF,
2b220 20 45 50 55 42 2c 20 2e 2e 2e 29 0a 0a 2d 20 43 72 65 61 74 69 6e 67 20 74 68 65 20 73 65 73 73 .EPUB,....)..-.Creating.the.sess
2b240 69 6f 6e 20 66 72 6f 6d 20 6e 6f 74 65 73 20 66 69 6c 65 0a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ion.from.notes.file.------------
2b260 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 54 68 69 73 20 --------------------------.This.
2b280 77 69 6c 6c 20 6f 70 65 6e 20 61 20 73 65 73 73 69 6f 6e 20 66 6f 72 20 74 61 6b 69 6e 67 20 79 will.open.a.session.for.taking.y
2b2a0 6f 75 72 20 6e 6f 74 65 73 2c 20 77 69 74 68 20 69 6e 64 69 72 65 63 74 0a 62 75 66 66 65 72 73 our.notes,.with.indirect.buffers
2b2c0 20 74 6f 20 74 68 65 20 64 6f 63 75 6d 65 6e 74 20 61 6e 64 20 74 68 65 20 6e 6f 74 65 73 20 73 .to.the.document.and.the.notes.s
2b2e0 69 64 65 20 62 79 20 73 69 64 65 2e 20 20 59 6f 75 72 20 63 75 72 72 65 6e 74 0a 77 69 6e 64 6f ide.by.side...Your.current.windo
2b300 77 20 63 6f 6e 66 69 67 75 72 61 74 69 6f 6e 20 77 6f 6e 27 74 20 62 65 20 63 68 61 6e 67 65 64 w.configuration.won't.be.changed
2b320 2c 20 62 65 63 61 75 73 65 20 74 68 69 73 20 6f 70 65 6e 73 20 69 6e 20 61 0a 6e 65 77 20 66 72 ,.because.this.opens.in.a.new.fr
2b340 61 6d 65 2e 0a 0a 59 6f 75 20 6f 6e 6c 79 20 6e 65 65 64 20 74 6f 20 72 75 6e 20 74 68 69 73 20 ame...You.only.need.to.run.this.
2b360 63 6f 6d 6d 61 6e 64 20 69 6e 73 69 64 65 20 61 20 68 65 61 64 69 6e 67 20 28 77 68 69 63 68 20 command.inside.a.heading.(which.
2b380 77 69 6c 6c 0a 68 6f 6c 64 20 74 68 65 20 6e 6f 74 65 73 20 66 6f 72 20 74 68 69 73 20 64 6f 63 will.hold.the.notes.for.this.doc
2b3a0 75 6d 65 6e 74 29 2e 20 20 49 66 20 6e 6f 20 64 6f 63 75 6d 65 6e 74 20 70 61 74 68 20 70 72 6f ument)...If.no.document.path.pro
2b3c0 70 65 72 74 79 20 69 73 20 66 6f 75 6e 64 2c 0a 74 68 69 73 20 63 6f 6d 6d 61 6e 64 20 77 69 6c perty.is.found,.this.command.wil
2b3e0 6c 20 61 73 6b 20 79 6f 75 20 66 6f 72 20 74 68 65 20 74 61 72 67 65 74 20 66 69 6c 65 2e 0a 0a l.ask.you.for.the.target.file...
2b400 57 69 74 68 20 61 20 70 72 65 66 69 78 20 75 6e 69 76 65 72 73 61 6c 20 61 72 67 75 6d 65 6e 74 With.a.prefix.universal.argument
2b420 20 41 52 47 2c 20 6f 6e 6c 79 20 63 68 65 63 6b 20 66 6f 72 20 74 68 65 20 70 72 6f 70 65 72 74 .ARG,.only.check.for.the.propert
2b440 79 0a 69 6e 20 74 68 65 20 63 75 72 72 65 6e 74 20 68 65 61 64 69 6e 67 2c 20 64 6f 6e 27 74 20 y.in.the.current.heading,.don't.
2b460 69 6e 68 65 72 69 74 20 66 72 6f 6d 20 70 61 72 65 6e 74 73 2e 0a 0a 57 69 74 68 20 32 20 70 72 inherit.from.parents...With.2.pr
2b480 65 66 69 78 20 75 6e 69 76 65 72 73 61 6c 20 61 72 67 75 6d 65 6e 74 73 20 41 52 47 2c 20 61 73 efix.universal.arguments.ARG,.as
2b4a0 6b 20 66 6f 72 20 61 20 6e 65 77 20 64 6f 63 75 6d 65 6e 74 2c 0a 65 76 65 6e 20 69 66 20 74 68 k.for.a.new.document,.even.if.th
2b4c0 65 20 63 75 72 72 65 6e 74 20 68 65 61 64 69 6e 67 20 61 6e 6e 6f 74 61 74 65 73 20 6f 6e 65 2e e.current.heading.annotates.one.
2b4e0 0a 0a 57 69 74 68 20 61 20 70 72 65 66 69 78 20 6e 75 6d 62 65 72 20 41 52 47 3a 0a 2d 20 47 72 ..With.a.prefix.number.ARG:.-.Gr
2b500 65 61 74 65 72 20 74 68 61 6e 20 30 3a 20 4f 70 65 6e 20 74 68 65 20 64 6f 63 75 6d 65 6e 74 20 eater.than.0:.Open.the.document.
2b520 6c 69 6b 65 20 60 66 69 6e 64 2d 66 69 6c 65 27 0a 2d 20 20 20 20 20 45 71 75 61 6c 20 74 6f 20 like.`find-file'.-.....Equal.to.
2b540 30 3a 20 43 72 65 61 74 65 20 73 65 73 73 69 6f 6e 20 77 69 74 68 20 60 6f 72 67 2d 6e 6f 74 65 0:.Create.session.with.`org-note
2b560 72 2d 61 6c 77 61 79 73 2d 63 72 65 61 74 65 2d 66 72 61 6d 65 27 20 74 6f 67 67 6c 65 64 0a 2d r-always-create-frame'.toggled.-
2b580 20 20 20 20 4c 65 73 73 20 74 68 61 6e 20 30 3a 20 4f 70 65 6e 20 74 68 65 20 66 6f 6c 64 65 72 ....Less.than.0:.Open.the.folder
2b5a0 20 63 6f 6e 74 61 69 6e 69 6e 67 20 74 68 65 20 64 6f 63 75 6d 65 6e 74 0a 0a 2d 20 43 72 65 61 .containing.the.document..-.Crea
2b5c0 74 69 6e 67 20 74 68 65 20 73 65 73 73 69 6f 6e 20 66 72 6f 6d 20 74 68 65 20 64 6f 63 75 6d 65 ting.the.session.from.the.docume
2b5e0 6e 74 0a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d nt.-----------------------------
2b600 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 54 68 69 73 20 77 69 6c 6c 20 74 72 79 20 74 6f 20 66 69 6e -----------.This.will.try.to.fin
2b620 64 20 61 20 6e 6f 74 65 73 20 66 69 6c 65 20 69 6e 20 61 6e 79 20 6f 66 20 74 68 65 20 70 61 72 d.a.notes.file.in.any.of.the.par
2b640 65 6e 74 20 66 6f 6c 64 65 72 73 2e 0a 54 68 65 20 6e 61 6d 65 73 20 69 74 20 77 69 6c 6c 20 73 ent.folders..The.names.it.will.s
2b660 65 61 72 63 68 20 66 6f 72 20 61 72 65 20 64 65 66 69 6e 65 64 20 69 6e 0a 60 6f 72 67 2d 6e 6f earch.for.are.defined.in.`org-no
2b680 74 65 72 2d 64 65 66 61 75 6c 74 2d 6e 6f 74 65 73 2d 66 69 6c 65 2d 6e 61 6d 65 73 27 2e 20 20 ter-default-notes-file-names'...
2b6a0 49 74 20 77 69 6c 6c 20 61 6c 73 6f 20 74 72 79 20 74 6f 20 66 69 6e 64 20 61 0a 6e 6f 74 65 73 It.will.also.try.to.find.a.notes
2b6c0 20 66 69 6c 65 20 77 69 74 68 20 74 68 65 20 73 61 6d 65 20 6e 61 6d 65 20 61 73 20 74 68 65 20 .file.with.the.same.name.as.the.
2b6e0 64 6f 63 75 6d 65 6e 74 2c 20 67 69 76 69 6e 67 20 69 74 20 74 68 65 0a 6d 61 78 69 6d 75 6d 20 document,.giving.it.the.maximum.
2b700 70 72 69 6f 72 69 74 79 2e 0a 0a 57 68 65 6e 20 69 74 20 64 6f 65 73 6e 27 74 20 66 69 6e 64 20 priority...When.it.doesn't.find.
2b720 61 6e 79 74 68 69 6e 67 2c 20 69 74 20 77 69 6c 6c 20 69 6e 74 65 72 61 63 74 69 76 65 6c 79 20 anything,.it.will.interactively.
2b740 61 73 6b 20 79 6f 75 20 77 68 61 74 0a 79 6f 75 20 77 61 6e 74 20 69 74 20 74 6f 20 64 6f 2e 20 ask.you.what.you.want.it.to.do..
2b760 20 54 68 65 20 74 61 72 67 65 74 20 6e 6f 74 65 73 20 66 69 6c 65 20 6d 75 73 74 20 62 65 20 69 .The.target.notes.file.must.be.i
2b780 6e 20 61 20 70 61 72 65 6e 74 0a 66 6f 6c 64 65 72 20 28 64 69 72 65 63 74 20 6f 72 20 6f 74 68 n.a.parent.folder.(direct.or.oth
2b7a0 65 72 77 69 73 65 29 20 6f 66 20 74 68 65 20 64 6f 63 75 6d 65 6e 74 2e 0a 0a 59 6f 75 20 6d 61 erwise).of.the.document...You.ma
2b7c0 79 20 70 61 73 73 20 61 20 70 72 65 66 69 78 20 41 52 47 20 69 6e 20 6f 72 64 65 72 20 74 6f 20 y.pass.a.prefix.ARG.in.order.to.
2b7e0 6d 61 6b 65 20 69 74 20 6c 65 74 20 79 6f 75 20 63 68 6f 6f 73 65 20 74 68 65 0a 6e 6f 74 65 73 make.it.let.you.choose.the.notes
2b800 20 66 69 6c 65 2c 20 65 76 65 6e 20 69 66 20 69 74 20 66 69 6e 64 73 20 6f 6e 65 2e 22 0a 20 20 .file,.even.if.it.finds.one."...
2b820 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 0a 20 20 20 3b 3b 20 (interactive."P")...(cond....;;.
2b840 4e 4f 54 45 28 6e 6f 78 29 3a 20 43 72 65 61 74 69 6e 67 20 74 68 65 20 73 65 73 73 69 6f 6e 20 NOTE(nox):.Creating.the.session.
2b860 66 72 6f 6d 20 6e 6f 74 65 73 20 66 69 6c 65 0a 20 20 20 28 28 65 71 20 6d 61 6a 6f 72 2d 6d 6f from.notes.file....((eq.major-mo
2b880 64 65 20 27 6f 72 67 2d 6d 6f 64 65 29 0a 20 20 20 20 28 6c 65 74 2a 20 28 28 6e 6f 74 65 73 2d de.'org-mode).....(let*.((notes-
2b8a0 66 69 6c 65 2d 70 61 74 68 20 28 62 75 66 66 65 72 2d 66 69 6c 65 2d 6e 61 6d 65 29 29 0a 20 20 file-path.(buffer-file-name))...
2b8c0 20 20 20 20 20 20 20 20 20 28 64 6f 63 75 6d 65 6e 74 2d 70 72 6f 70 65 72 74 79 20 28 6f 72 67 .........(document-property.(org
2b8e0 2d 6e 6f 74 65 72 2d 2d 67 65 74 2d 6f 72 2d 72 65 61 64 2d 64 6f 63 75 6d 65 6e 74 2d 70 72 6f -noter--get-or-read-document-pro
2b900 70 65 72 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 20 20 perty...........................
2b920 20 20 20 20 20 28 6e 6f 74 20 28 65 71 75 61 6c 20 61 72 67 20 27 28 34 29 29 29 0a 20 20 20 20 .....(not.(equal.arg.'(4))).....
2b940 20 20 20 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 71 75 61 ...........................(equa
2b960 6c 20 61 72 67 20 27 28 31 36 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 6f 72 67 2d 6e l.arg.'(16))))............(org-n
2b980 6f 74 65 72 2d 61 6c 77 61 79 73 2d 63 72 65 61 74 65 2d 66 72 61 6d 65 0a 20 20 20 20 20 20 20 oter-always-create-frame........
2b9a0 20 20 20 20 20 28 69 66 20 28 61 6e 64 20 28 6e 75 6d 62 65 72 70 20 61 72 67 29 20 28 3d 20 61 .....(if.(and.(numberp.arg).(=.a
2b9c0 72 67 20 30 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6e 6f 74 20 6f 72 67 2d rg.0)).................(not.org-
2b9e0 6e 6f 74 65 72 2d 61 6c 77 61 79 73 2d 63 72 65 61 74 65 2d 66 72 61 6d 65 29 0a 20 20 20 20 20 noter-always-create-frame)......
2ba00 20 20 20 20 20 20 20 20 20 6f 72 67 2d 6e 6f 74 65 72 2d 61 6c 77 61 79 73 2d 63 72 65 61 74 65 .........org-noter-always-create
2ba20 2d 66 72 61 6d 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 61 73 74 20 28 6f 72 67 2d 6e 6f -frame))............(ast.(org-no
2ba40 74 65 72 2d 2d 70 61 72 73 65 2d 72 6f 6f 74 20 28 76 65 63 74 6f 72 20 28 63 75 72 72 65 6e 74 ter--parse-root.(vector.(current
2ba60 2d 62 75 66 66 65 72 29 20 64 6f 63 75 6d 65 6e 74 2d 70 72 6f 70 65 72 74 79 29 29 29 0a 20 20 -buffer).document-property)))...
2ba80 20 20 20 20 20 20 20 20 20 28 73 65 73 73 69 6f 6e 2d 69 64 20 28 67 65 74 2d 74 65 78 74 2d 70 .........(session-id.(get-text-p
2baa0 72 6f 70 65 72 74 79 20 28 6f 72 67 2d 65 6c 65 6d 65 6e 74 2d 70 72 6f 70 65 72 74 79 20 3a 62 roperty.(org-element-property.:b
2bac0 65 67 69 6e 20 61 73 74 29 20 6f 72 67 2d 6e 6f 74 65 72 2d 2d 69 64 2d 74 65 78 74 2d 70 72 6f egin.ast).org-noter--id-text-pro
2bae0 70 65 72 74 79 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 73 65 73 73 69 6f 6e 29 0a 0a 20 20 20 perty))............session).....
2bb00 20 20 20 3b 3b 20 43 68 65 63 6b 20 66 6f 72 20 70 72 65 66 69 78 20 76 61 6c 75 65 0a 20 20 20 ...;;.Check.for.prefix.value....
2bb20 20 20 20 28 69 66 20 28 6f 72 20 28 6e 75 6d 62 65 72 70 20 61 72 67 29 20 28 65 71 20 61 72 67 ...(if.(or.(numberp.arg).(eq.arg
2bb40 20 27 2d 29 29 0a 20 20 20 20 20 20 20 20 20 20 3b 3b 20 59 65 73 2c 20 75 73 65 72 27 73 20 67 .'-))...........;;.Yes,.user's.g
2bb60 69 76 65 6e 20 61 20 70 72 65 66 69 78 20 76 61 6c 75 65 2e 0a 20 20 20 20 20 20 20 20 20 20 28 iven.a.prefix.value............(
2bb80 63 6f 6e 64 20 28 28 3e 20 28 70 72 65 66 69 78 2d 6e 75 6d 65 72 69 63 2d 76 61 6c 75 65 20 61 cond.((>.(prefix-numeric-value.a
2bba0 72 67 29 20 30 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 49 73 20 74 68 rg).0)..................;;.Is.th
2bbc0 65 20 70 72 65 66 69 78 20 76 61 6c 75 65 20 67 72 65 61 74 65 72 20 74 68 61 6e 20 30 3f 0a 20 e.prefix.value.greater.than.0?..
2bbe0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 69 6e 64 2d 66 69 6c 65 20 64 6f 63 75 6d ................(find-file.docum
2bc00 65 6e 74 2d 70 72 6f 70 65 72 74 79 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b ent-property)).................;
2bc20 3b 20 4f 70 65 6e 20 74 68 65 20 64 6f 63 75 6d 65 6e 74 20 6c 69 6b 65 20 60 66 69 6e 64 2d 66 ;.Open.the.document.like.`find-f
2bc40 69 6c 65 27 2e 0a 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 49 73 20 74 68 65 ile'...................;;.Is.the
2bc60 20 70 72 65 66 69 78 20 76 61 6c 75 65 20 6c 65 73 73 20 74 68 61 6e 20 30 3f 0a 20 20 20 20 20 .prefix.value.less.than.0?......
2bc80 20 20 20 20 20 20 20 20 20 20 20 28 28 3c 20 28 70 72 65 66 69 78 2d 6e 75 6d 65 72 69 63 2d 76 ...........((<.(prefix-numeric-v
2bca0 61 6c 75 65 20 61 72 67 29 20 30 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b alue.arg).0)..................;;
2bcc0 20 4f 70 65 6e 20 74 68 65 20 66 6f 6c 64 65 72 20 63 6f 6e 74 61 69 6e 69 6e 67 20 74 68 65 20 .Open.the.folder.containing.the.
2bce0 64 6f 63 75 6d 65 6e 74 2e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 69 6e 64 document...................(find
2bd00 2d 66 69 6c 65 20 28 66 69 6c 65 2d 6e 61 6d 65 2d 64 69 72 65 63 74 6f 72 79 20 64 6f 63 75 6d -file.(file-name-directory.docum
2bd20 65 6e 74 2d 70 72 6f 70 65 72 74 79 29 29 29 29 0a 0a 20 20 20 20 20 20 20 20 3b 3b 20 4e 6f 2c ent-property))))..........;;.No,
2bd40 20 75 73 65 72 20 64 69 64 6e 27 74 20 67 69 76 65 20 61 20 70 72 65 66 69 78 20 76 61 6c 75 65 .user.didn't.give.a.prefix.value
2bd60 0a 20 20 20 20 20 20 20 20 3b 3b 20 4e 4f 54 45 28 6e 6f 78 29 3a 20 43 68 65 63 6b 20 69 66 20 .........;;.NOTE(nox):.Check.if.
2bd80 69 74 20 69 73 20 61 6e 20 65 78 69 73 74 69 6e 67 20 73 65 73 73 69 6f 6e 0a 20 20 20 20 20 20 it.is.an.existing.session.......
2bda0 20 20 28 77 68 65 6e 20 73 65 73 73 69 6f 6e 2d 69 64 0a 20 20 20 20 20 20 20 20 20 20 28 73 65 ..(when.session-id...........(se
2bdc0 74 71 20 73 65 73 73 69 6f 6e 20 28 63 6c 2d 6c 6f 6f 70 20 66 6f 72 20 73 65 73 73 69 6f 6e 20 tq.session.(cl-loop.for.session.
2bde0 69 6e 20 6f 72 67 2d 6e 6f 74 65 72 2d 2d 73 65 73 73 69 6f 6e 73 0a 20 20 20 20 20 20 20 20 20 in.org-noter--sessions..........
2be00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 68 65 6e 20 28 3d 20 ........................when.(=.
2be20 28 6f 72 67 2d 6e 6f 74 65 72 2d 2d 73 65 73 73 69 6f 6e 2d 69 64 20 73 65 73 73 69 6f 6e 29 20 (org-noter--session-id.session).
2be40 73 65 73 73 69 6f 6e 2d 69 64 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 session-id).....................
2be60 20 20 20 20 20 20 20 20 20 20 20 20 20 72 65 74 75 72 6e 20 73 65 73 73 69 6f 6e 29 29 29 29 0a .............return.session)))).
2be80 0a 20 20 20 20 20 20 28 69 66 20 73 65 73 73 69 6f 6e 0a 20 20 20 20 20 20 20 20 20 20 28 6c 65 .......(if.session...........(le
2bea0 74 2a 20 28 28 6f 72 67 2d 6e 6f 74 65 72 2d 2d 73 65 73 73 69 6f 6e 20 73 65 73 73 69 6f 6e 29 t*.((org-noter--session.session)
2bec0 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 6f 63 61 74 69 6f 6e 20 28 6f 72 67 ..................(location.(org
2bee0 2d 6e 6f 74 65 72 2d 2d 70 61 72 73 65 2d 6c 6f 63 61 74 69 6f 6e 2d 70 72 6f 70 65 72 74 79 0a -noter--parse-location-property.
2bf00 20 20 20 20 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 6f 72 67 ............................(org
2bf20 2d 6e 6f 74 65 72 2d 2d 67 65 74 2d 63 6f 6e 74 61 69 6e 69 6e 67 2d 65 6c 65 6d 65 6e 74 29 29 -noter--get-containing-element))
2bf40 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 6f 72 67 2d 6e 6f 74 65 72 2d 2d 73 65 74 75 70 )).............(org-noter--setup
2bf60 2d 77 69 6e 64 6f 77 73 20 73 65 73 73 69 6f 6e 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 77 -windows.session).............(w
2bf80 68 65 6e 20 6c 6f 63 61 74 69 6f 6e 20 28 6f 72 67 2d 6e 6f 74 65 72 2d 2d 64 6f 63 2d 67 6f 74 hen.location.(org-noter--doc-got
2bfa0 6f 2d 6c 6f 63 61 74 69 6f 6e 20 6c 6f 63 61 74 69 6f 6e 29 29 0a 20 20 20 20 20 20 20 20 20 20 o-location.location))...........
2bfc0 20 20 28 73 65 6c 65 63 74 2d 66 72 61 6d 65 2d 73 65 74 2d 69 6e 70 75 74 2d 66 6f 63 75 73 20 ..(select-frame-set-input-focus.
2bfe0 28 6f 72 67 2d 6e 6f 74 65 72 2d 2d 73 65 73 73 69 6f 6e 2d 66 72 61 6d 65 20 73 65 73 73 69 6f (org-noter--session-frame.sessio
2c000 6e 29 29 29 0a 20 20 20 20 20 20 20 20 3b 3b 20 49 74 27 73 20 6e 6f 74 20 61 6e 20 65 78 69 73 n))).........;;.It's.not.an.exis
2c020 74 69 6e 67 20 73 65 73 73 69 6f 6e 2c 20 63 72 65 61 74 65 20 61 20 6e 65 77 20 73 65 73 73 69 ting.session,.create.a.new.sessi
2c040 6f 6e 2e 0a 20 20 20 20 20 20 20 20 28 6f 72 67 2d 6e 6f 74 65 72 2d 2d 63 72 65 61 74 65 2d 73 on..........(org-noter--create-s
2c060 65 73 73 69 6f 6e 20 61 73 74 20 64 6f 63 75 6d 65 6e 74 2d 70 72 6f 70 65 72 74 79 20 6e 6f 74 ession.ast.document-property.not
2c080 65 73 2d 66 69 6c 65 2d 70 61 74 68 29 29 29 29 0a 0a 20 20 20 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b es-file-path)))).....;;;;;;;;;;;
2c0a0 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
2c0c0 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
2c0e0 3b 0a 20 20 20 3b 3b 20 4e 4f 54 45 28 6e 6f 78 29 3a 20 43 72 65 61 74 69 6e 67 20 74 68 65 20 ;....;;.NOTE(nox):.Creating.the.
2c100 73 65 73 73 69 6f 6e 20 66 72 6f 6d 20 74 68 65 20 61 6e 6e 6f 74 61 74 65 64 20 64 6f 63 75 6d session.from.the.annotated.docum
2c120 65 6e 74 0a 20 20 20 3b 3b 0a 20 20 20 3b 3b 20 65 67 3a 20 4d 2d 78 20 6f 72 67 2d 6e 6f 74 65 ent....;;....;;.eg:.M-x.org-note
2c140 72 20 66 72 6f 6d 20 61 20 70 64 66 20 64 6f 63 75 6d 65 6e 74 0a 20 20 20 28 28 6d 65 6d 71 20 r.from.a.pdf.document....((memq.
2c160 6d 61 6a 6f 72 2d 6d 6f 64 65 20 6f 72 67 2d 6e 6f 74 65 72 2d 73 75 70 70 6f 72 74 65 64 2d 6d major-mode.org-noter-supported-m
2c180 6f 64 65 73 29 0a 20 20 20 20 3b 3b 20 69 66 20 61 6e 20 6f 72 67 2d 6e 6f 74 65 72 20 73 65 73 odes).....;;.if.an.org-noter.ses
2c1a0 73 65 69 6f 6e 20 61 6c 72 65 61 64 79 20 65 78 69 73 74 73 0a 20 20 20 20 28 69 66 20 28 6f 72 seion.already.exists.....(if.(or
2c1c0 67 2d 6e 6f 74 65 72 2d 2d 76 61 6c 69 64 2d 73 65 73 73 69 6f 6e 20 6f 72 67 2d 6e 6f 74 65 72 g-noter--valid-session.org-noter
2c1e0 2d 2d 73 65 73 73 69 6f 6e 29 0a 20 20 20 20 20 20 20 20 28 70 72 6f 67 6e 20 28 6f 72 67 2d 6e --session).........(progn.(org-n
2c200 6f 74 65 72 2d 2d 73 65 74 75 70 2d 77 69 6e 64 6f 77 73 20 6f 72 67 2d 6e 6f 74 65 72 2d 2d 73 oter--setup-windows.org-noter--s
2c220 65 73 73 69 6f 6e 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 6c 65 63 74 2d 66 ession)................(select-f
2c240 72 61 6d 65 2d 73 65 74 2d 69 6e 70 75 74 2d 66 6f 63 75 73 20 28 6f 72 67 2d 6e 6f 74 65 72 2d rame-set-input-focus.(org-noter-
2c260 2d 73 65 73 73 69 6f 6e 2d 66 72 61 6d 65 20 6f 72 67 2d 6e 6f 74 65 72 2d 2d 73 65 73 73 69 6f -session-frame.org-noter--sessio
2c280 6e 29 29 29 0a 20 20 20 20 20 20 28 72 75 6e 2d 68 6f 6f 6b 2d 77 69 74 68 2d 61 72 67 73 2d 75 n))).......(run-hook-with-args-u
2c2a0 6e 74 69 6c 2d 73 75 63 63 65 73 73 20 27 6f 72 67 2d 6e 6f 74 65 72 2d 63 72 65 61 74 65 2d 73 ntil-success.'org-noter-create-s
2c2c0 65 73 73 69 6f 6e 2d 66 72 6f 6d 2d 64 6f 63 75 6d 65 6e 74 2d 68 6f 6f 6b 20 61 72 67 20 62 75 ession-from-document-hook.arg.bu
2c2e0 66 66 65 72 2d 66 69 6c 65 2d 6e 61 6d 65 29 29 29 29 29 0a 0a 0a 28 64 65 66 75 6e 20 6f 72 67 ffer-file-name)))))...(defun.org
2c300 2d 6e 6f 74 65 72 2d 2d 63 72 65 61 74 65 2d 73 65 73 73 69 6f 6e 2d 66 72 6f 6d 2d 64 6f 63 75 -noter--create-session-from-docu
2c320 6d 65 6e 74 2d 66 69 6c 65 2d 64 65 66 61 75 6c 74 20 28 26 6f 70 74 69 6f 6e 61 6c 20 61 72 67 ment-file-default.(&optional.arg
2c340 20 64 6f 63 75 6d 65 6e 74 2d 66 69 6c 65 2d 6e 61 6d 65 29 0a 20 20 22 43 72 65 61 74 65 20 61 .document-file-name)..."Create.a
2c360 20 6e 65 77 20 6f 72 67 2d 6e 6f 74 65 72 20 73 65 73 73 69 6f 6e 20 66 72 6f 6d 20 61 6e 20 6f .new.org-noter.session.from.an.o
2c380 70 65 6e 20 64 6f 63 75 6d 65 6e 74 20 66 69 6c 65 2e 0a 54 68 69 73 20 69 73 20 74 68 65 20 64 pen.document.file..This.is.the.d
2c3a0 65 66 61 75 6c 74 20 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 74 68 61 74 20 69 73 20 63 61 efault.implementation.that.is.ca
2c3c0 6c 6c 65 64 20 62 79 0a 60 6f 72 67 2d 6e 6f 74 65 72 2d 63 72 65 61 74 65 2d 73 65 73 73 69 6f lled.by.`org-noter-create-sessio
2c3e0 6e 2d 66 72 6f 6d 2d 64 6f 63 75 6d 65 6e 74 2d 68 6f 6f 6b 60 2e 0a 41 52 47 20 69 73 20 74 68 n-from-document-hook`..ARG.is.th
2c400 65 20 70 72 65 66 69 78 20 61 72 67 75 6d 65 6e 74 20 70 61 73 73 65 64 20 74 6f 20 60 6f 72 67 e.prefix.argument.passed.to.`org
2c420 2d 6e 6f 74 65 72 60 0a 44 4f 43 55 4d 45 4e 54 2d 46 49 4c 45 2d 4e 41 4d 45 20 69 73 20 74 68 -noter`.DOCUMENT-FILE-NAME.is.th
2c440 65 20 64 6f 63 75 6d 65 6e 74 20 66 69 6c 65 6e 61 6d 65 2e 22 0a 20 20 20 20 20 20 3b 3b 20 4e e.document.filename.".......;;.N
2c460 4f 54 45 28 6e 6f 78 29 3a 20 60 62 75 66 66 65 72 2d 66 69 6c 65 2d 74 72 75 65 6e 61 6d 65 27 OTE(nox):.`buffer-file-truename'
2c480 20 69 73 20 61 20 77 6f 72 6b 61 72 6f 75 6e 64 20 66 6f 72 20 6d 6f 64 65 73 20 74 68 61 74 20 .is.a.workaround.for.modes.that.
2c4a0 64 65 6c 65 74 65 0a 20 20 20 20 20 20 3b 3b 20 60 64 6f 63 75 6d 65 6e 74 2d 66 69 6c 65 2d 6e delete.......;;.`document-file-n
2c4c0 61 6d 65 27 2c 20 61 6e 64 20 6d 61 79 20 6e 6f 74 20 68 61 76 65 20 74 68 65 20 73 61 6d 65 20 ame',.and.may.not.have.the.same.
2c4e0 72 65 73 75 6c 74 73 0a 20 20 20 20 20 20 28 6c 65 74 2a 20 28 28 64 6f 63 75 6d 65 6e 74 2d 66 results.......(let*.((document-f
2c500 69 6c 65 2d 6e 61 6d 65 20 28 6f 72 20 28 72 75 6e 2d 68 6f 6f 6b 2d 77 69 74 68 2d 61 72 67 73 ile-name.(or.(run-hook-with-args
2c520 2d 75 6e 74 69 6c 2d 73 75 63 63 65 73 73 20 27 6f 72 67 2d 6e 6f 74 65 72 2d 67 65 74 2d 62 75 -until-success.'org-noter-get-bu
2c540 66 66 65 72 2d 66 69 6c 65 2d 6e 61 6d 65 2d 68 6f 6f 6b 20 6d 61 6a 6f 72 2d 6d 6f 64 65 29 0a ffer-file-name-hook.major-mode).
2c560 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ................................
2c580 20 20 20 64 6f 63 75 6d 65 6e 74 2d 66 69 6c 65 2d 6e 61 6d 65 29 29 0a 20 20 20 20 20 20 20 20 ...document-file-name)).........
2c5a0 20 20 20 20 20 28 64 6f 63 75 6d 65 6e 74 2d 70 61 74 68 20 28 6f 72 20 64 6f 63 75 6d 65 6e 74 .....(document-path.(or.document
2c5c0 2d 66 69 6c 65 2d 6e 61 6d 65 20 62 75 66 66 65 72 2d 66 69 6c 65 2d 74 72 75 65 6e 61 6d 65 0a -file-name.buffer-file-truename.
2c5e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ................................
2c600 28 65 72 72 6f 72 20 22 54 68 69 73 20 62 75 66 66 65 72 20 64 6f 65 73 20 6e 6f 74 20 73 65 65 (error."This.buffer.does.not.see
2c620 6d 20 74 6f 20 62 65 20 76 69 73 69 74 69 6e 67 20 61 6e 79 20 66 69 6c 65 22 29 29 29 0a 20 20 m.to.be.visiting.any.file")))...
2c640 20 20 20 20 20 20 20 20 20 20 20 28 64 6f 63 75 6d 65 6e 74 2d 6e 61 6d 65 20 28 66 69 6c 65 2d ...........(document-name.(file-
2c660 6e 61 6d 65 2d 6e 6f 6e 64 69 72 65 63 74 6f 72 79 20 64 6f 63 75 6d 65 6e 74 2d 70 61 74 68 29 name-nondirectory.document-path)
2c680 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 64 6f 63 75 6d 65 6e 74 2d 62 61 73 65 20 28 66 )..............(document-base.(f
2c6a0 69 6c 65 2d 6e 61 6d 65 2d 62 61 73 65 20 64 6f 63 75 6d 65 6e 74 2d 6e 61 6d 65 29 29 0a 20 20 ile-name-base.document-name))...
2c6c0 20 20 20 20 20 20 20 20 20 20 20 28 64 6f 63 75 6d 65 6e 74 2d 64 69 72 65 63 74 6f 72 79 20 28 ...........(document-directory.(
2c6e0 69 66 20 64 6f 63 75 6d 65 6e 74 2d 66 69 6c 65 2d 6e 61 6d 65 0a 20 20 20 20 20 20 20 20 20 20 if.document-file-name...........
2c700 20 20 20 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
2c720 2d 6e 61 6d 65 2d 64 69 72 65 63 74 6f 72 79 20 64 6f 63 75 6d 65 6e 74 2d 66 69 6c 65 2d 6e 61 -name-directory.document-file-na
2c740 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 20 20 20 20 20 20 me).............................
2c760 20 20 20 20 20 20 20 28 69 66 20 28 66 69 6c 65 2d 65 71 75 61 6c 2d 70 20 64 6f 63 75 6d 65 6e .......(if.(file-equal-p.documen
2c780 74 2d 6e 61 6d 65 20 62 75 66 66 65 72 2d 66 69 6c 65 2d 74 72 75 65 6e 61 6d 65 29 0a 20 20 20 t-name.buffer-file-truename)....
2c7a0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ................................
2c7c0 20 20 20 20 64 65 66 61 75 6c 74 2d 64 69 72 65 63 74 6f 72 79 0a 20 20 20 20 20 20 20 20 20 20 ....default-directory...........
2c7e0 20 20 20 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
2c800 2d 6e 61 6d 65 2d 64 69 72 65 63 74 6f 72 79 20 62 75 66 66 65 72 2d 66 69 6c 65 2d 74 72 75 65 -name-directory.buffer-file-true
2c820 6e 61 6d 65 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 4e 4f 54 45 28 6e 6f name))))..............;;.NOTE(no
2c840 78 29 3a 20 54 68 69 73 20 69 73 20 74 68 65 20 70 61 74 68 20 74 68 61 74 20 69 73 20 61 63 74 x):.This.is.the.path.that.is.act
2c860 75 61 6c 6c 79 20 67 6f 69 6e 67 20 74 6f 20 62 65 20 75 73 65 64 2c 20 61 6e 64 20 73 68 6f 75 ually.going.to.be.used,.and.shou
2c880 6c 64 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 62 65 20 74 68 65 20 73 61 6d 65 20 61 ld..............;;.be.the.same.a
2c8a0 73 20 60 64 6f 63 75 6d 65 6e 74 2d 66 69 6c 65 2d 6e 61 6d 65 27 2c 20 62 75 74 20 69 73 20 6e s.`document-file-name',.but.is.n
2c8c0 65 65 64 65 64 20 66 6f 72 20 74 68 65 20 74 72 75 65 6e 61 6d 65 20 77 6f 72 6b 61 72 6f 75 6e eeded.for.the.truename.workaroun
2c8e0 64 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 64 6f 63 75 6d 65 6e 74 2d 75 73 65 64 2d 70 61 d..............(document-used-pa
2c900 74 68 20 28 65 78 70 61 6e 64 2d 66 69 6c 65 2d 6e 61 6d 65 20 64 6f 63 75 6d 65 6e 74 2d 6e 61 th.(expand-file-name.document-na
2c920 6d 65 20 64 6f 63 75 6d 65 6e 74 2d 64 69 72 65 63 74 6f 72 79 29 29 0a 0a 20 20 20 20 20 20 20 me.document-directory)).........
2c940 20 20 20 20 20 20 28 73 65 61 72 63 68 2d 6e 61 6d 65 73 20 28 72 65 6d 6f 76 65 20 6e 69 6c 20 ......(search-names.(remove.nil.
2c960 28 61 70 70 65 6e 64 20 6f 72 67 2d 6e 6f 74 65 72 2d 64 65 66 61 75 6c 74 2d 6e 6f 74 65 73 2d (append.org-noter-default-notes-
2c980 66 69 6c 65 2d 6e 61 6d 65 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 file-names......................
2c9a0 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 63 61 74 20 ..................(list.(concat.
2c9c0 64 6f 63 75 6d 65 6e 74 2d 62 61 73 65 20 22 2e 6f 72 67 22 29 29 0a 20 20 20 20 20 20 20 20 20 document-base.".org"))..........
2c9e0 20 20 20 20 20 20 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 ..............................(l
2ca00 69 73 74 20 28 72 75 6e 2d 68 6f 6f 6b 2d 77 69 74 68 2d 61 72 67 73 2d 75 6e 74 69 6c 2d 73 75 ist.(run-hook-with-args-until-su
2ca20 63 63 65 73 73 20 27 6f 72 67 2d 6e 6f 74 65 72 2d 66 69 6e 64 2d 61 64 64 69 74 69 6f 6e 61 6c ccess.'org-noter-find-additional
2ca40 2d 6e 6f 74 65 73 2d 66 75 6e 63 74 69 6f 6e 73 20 64 6f 63 75 6d 65 6e 74 2d 70 61 74 68 29 29 -notes-functions.document-path))
2ca60 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 6e 6f 74 65 73 2d 66 69 6c 65 73 2d 61 6e 6e )))..............notes-files-ann
2ca80 6f 74 61 74 69 6e 67 20 3b 20 4c 69 73 74 20 6f 66 20 66 69 6c 65 73 20 61 6e 6e 6f 74 61 74 69 otating.;.List.of.files.annotati
2caa0 6e 67 20 64 6f 63 75 6d 65 6e 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 6e 6f 74 65 73 2d 66 ng.document..............notes-f
2cac0 69 6c 65 73 20 3b 20 4c 69 73 74 20 6f 66 20 66 6f 75 6e 64 20 6e 6f 74 65 73 20 66 69 6c 65 73 iles.;.List.of.found.notes.files
2cae0 20 28 61 6e 6e 6f 74 61 74 69 6e 67 20 6f 72 20 6e 6f 74 29 0a 0a 20 20 20 20 20 20 20 20 20 20 .(annotating.or.not)............
2cb00 20 20 20 28 64 6f 63 75 6d 65 6e 74 2d 6c 6f 63 61 74 69 6f 6e 20 28 6f 72 67 2d 6e 6f 74 65 72 ...(document-location.(org-noter
2cb20 2d 2d 64 6f 63 2d 61 70 70 72 6f 78 2d 6c 6f 63 61 74 69 6f 6e 29 29 29 0a 0a 20 20 20 20 20 20 --doc-approx-location)))........
2cb40 20 20 3b 3b 20 4e 4f 54 45 28 6e 6f 78 29 3a 20 43 68 65 63 6b 20 74 68 65 20 73 65 61 72 63 68 ..;;.NOTE(nox):.Check.the.search
2cb60 20 70 61 74 68 0a 20 20 20 20 20 20 20 20 28 64 6f 6c 69 73 74 20 28 70 61 74 68 20 6f 72 67 2d .path.........(dolist.(path.org-
2cb80 6e 6f 74 65 72 2d 6e 6f 74 65 73 2d 73 65 61 72 63 68 2d 70 61 74 68 29 0a 20 20 20 20 20 20 20 noter-notes-search-path)........
2cba0 20 20 20 28 64 6f 6c 69 73 74 20 28 6e 61 6d 65 20 73 65 61 72 63 68 2d 6e 61 6d 65 73 29 0a 20 ...(dolist.(name.search-names)..
2cbc0 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 66 69 6c 65 2d 6e 61 6d 65 20 28 65 78 70 ...........(let.((file-name.(exp
2cbe0 61 6e 64 2d 66 69 6c 65 2d 6e 61 6d 65 20 6e 61 6d 65 20 70 61 74 68 29 29 29 0a 20 20 20 20 20 and-file-name.name.path)))......
2cc00 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 73 2d 70 20 66 69 .........(when.(file-exists-p.fi
2cc20 6c 65 2d 6e 61 6d 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 75 73 68 20 66 le-name).................(push.f
2cc40 69 6c 65 2d 6e 61 6d 65 20 6e 6f 74 65 73 2d 66 69 6c 65 73 29 0a 20 20 20 20 20 20 20 20 20 20 ile-name.notes-files)...........
2cc60 20 20 20 20 20 20 28 77 68 65 6e 20 28 6f 72 67 2d 6e 6f 74 65 72 2d 2d 63 68 65 63 6b 2d 69 66 ......(when.(org-noter--check-if
2cc80 2d 64 6f 63 75 6d 65 6e 74 2d 69 73 2d 61 6e 6e 6f 74 61 74 65 64 2d 6f 6e 2d 66 69 6c 65 20 64 -document-is-annotated-on-file.d
2cca0 6f 63 75 6d 65 6e 74 2d 70 61 74 68 20 66 69 6c 65 2d 6e 61 6d 65 29 0a 20 20 20 20 20 20 20 20 ocument-path.file-name).........
2ccc0 20 20 20 20 20 20 20 20 20 20 28 70 75 73 68 20 66 69 6c 65 2d 6e 61 6d 65 20 6e 6f 74 65 73 2d ..........(push.file-name.notes-
2cce0 66 69 6c 65 73 2d 61 6e 6e 6f 74 61 74 69 6e 67 29 29 29 29 29 29 0a 0a 20 20 20 20 20 20 20 20 files-annotating))))))..........
2cd00 3b 3b 20 4e 4f 54 45 28 6e 6f 78 29 3a 20 60 73 65 61 72 63 68 2d 6e 61 6d 65 73 27 20 69 73 20 ;;.NOTE(nox):.`search-names'.is.
2cd20 69 6e 20 72 65 76 65 72 73 65 20 6f 72 64 65 72 2c 20 73 6f 20 77 65 20 6f 6e 6c 79 20 6e 65 65 in.reverse.order,.so.we.only.nee
2cd40 64 20 74 6f 20 28 70 75 73 68 20 2e 2e 2e 29 0a 20 20 20 20 20 20 20 20 3b 3b 20 61 6e 64 20 69 d.to.(push....).........;;.and.i
2cd60 74 20 77 69 6c 6c 20 65 6e 64 20 75 70 20 69 6e 20 74 68 65 20 63 6f 72 72 65 63 74 20 6f 72 64 t.will.end.up.in.the.correct.ord
2cd80 65 72 0a 20 20 20 20 20 20 20 20 28 64 6f 6c 69 73 74 20 28 6e 61 6d 65 20 73 65 61 72 63 68 2d er.........(dolist.(name.search-
2cda0 6e 61 6d 65 73 29 0a 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 64 69 72 65 63 74 6f 72 names)...........(let.((director
2cdc0 79 20 28 6c 6f 63 61 74 65 2d 64 6f 6d 69 6e 61 74 69 6e 67 2d 66 69 6c 65 20 64 6f 63 75 6d 65 y.(locate-dominating-file.docume
2cde0 6e 74 2d 64 69 72 65 63 74 6f 72 79 20 6e 61 6d 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 nt-directory.name)).............
2ce00 20 20 20 20 66 69 6c 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 64 69 72 65 ....file).............(when.dire
2ce20 63 74 6f 72 79 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 66 69 6c 65 20 28 ctory...............(setq.file.(
2ce40 65 78 70 61 6e 64 2d 66 69 6c 65 2d 6e 61 6d 65 20 6e 61 6d 65 20 64 69 72 65 63 74 6f 72 79 29 expand-file-name.name.directory)
2ce60 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 6d 65 6d 62 65 72 20 )...............(unless.(member.
2ce80 66 69 6c 65 20 6e 6f 74 65 73 2d 66 69 6c 65 73 29 20 28 70 75 73 68 20 66 69 6c 65 20 6e 6f 74 file.notes-files).(push.file.not
2cea0 65 73 2d 66 69 6c 65 73 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 28 es-files))...............(when.(
2cec0 6f 72 67 2d 6e 6f 74 65 72 2d 2d 63 68 65 63 6b 2d 69 66 2d 64 6f 63 75 6d 65 6e 74 2d 69 73 2d org-noter--check-if-document-is-
2cee0 61 6e 6e 6f 74 61 74 65 64 2d 6f 6e 2d 66 69 6c 65 20 64 6f 63 75 6d 65 6e 74 2d 70 61 74 68 20 annotated-on-file.document-path.
2cf00 66 69 6c 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 75 73 68 20 66 69 6c 65 file).................(push.file
2cf20 20 6e 6f 74 65 73 2d 66 69 6c 65 73 2d 61 6e 6e 6f 74 61 74 69 6e 67 29 29 29 29 29 0a 0a 20 20 .notes-files-annotating)))))....
2cf40 20 20 20 20 20 20 28 73 65 74 71 20 73 65 61 72 63 68 2d 6e 61 6d 65 73 20 28 6e 72 65 76 65 72 ......(setq.search-names.(nrever
2cf60 73 65 20 73 65 61 72 63 68 2d 6e 61 6d 65 73 29 29 0a 0a 20 20 20 20 20 20 20 20 28 77 68 65 6e se.search-names))..........(when
2cf80 20 28 6f 72 20 61 72 67 20 28 6e 6f 74 20 6e 6f 74 65 73 2d 66 69 6c 65 73 2d 61 6e 6e 6f 74 61 .(or.arg.(not.notes-files-annota
2cfa0 74 69 6e 67 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 28 6f 72 20 61 72 67 20 28 ting))...........(when.(or.arg.(
2cfc0 6e 6f 74 20 6e 6f 74 65 73 2d 66 69 6c 65 73 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 6c not.notes-files)).............(l
2cfe0 65 74 2a 20 28 28 6e 6f 74 65 73 2d 66 69 6c 65 2d 6e 61 6d 65 20 28 63 6f 6d 70 6c 65 74 69 6e et*.((notes-file-name.(completin
2d000 67 2d 72 65 61 64 20 22 57 68 61 74 20 6e 61 6d 65 20 64 6f 20 79 6f 75 20 77 61 6e 74 20 74 68 g-read."What.name.do.you.want.th
2d020 65 20 6e 6f 74 65 73 20 74 6f 20 68 61 76 65 3f 20 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 e.notes.to.have?."..............
2d040 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ................................
2d060 20 20 20 20 20 20 20 20 73 65 61 72 63 68 2d 6e 61 6d 65 73 20 6e 69 6c 20 74 29 29 0a 20 20 20 ........search-names.nil.t))....
2d080 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6c 69 73 74 2d 6f 66 2d 70 6f 73 73 69 62 6c 65 ................list-of-possible
2d0a0 2d 74 61 72 67 65 74 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 61 72 67 -targets....................targ
2d0c0 65 74 29 0a 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 4e 4f 54 45 28 6e 6f 78 29 3a et)................;;.NOTE(nox):
2d0e0 20 43 72 65 61 74 65 20 6c 69 73 74 20 6f 66 20 74 61 72 67 65 74 73 20 66 72 6f 6d 20 63 75 72 .Create.list.of.targets.from.cur
2d100 72 65 6e 74 20 70 61 74 68 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 61 74 63 68 20 27 rent.path...............(catch.'
2d120 62 72 65 61 6b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 63 75 72 break.................(let.((cur
2d140 72 65 6e 74 2d 64 69 72 65 63 74 6f 72 79 20 64 6f 63 75 6d 65 6e 74 2d 64 69 72 65 63 74 6f 72 rent-directory.document-director
2d160 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 66 69 6c 65 2d 6e 61 y).......................file-na
2d180 6d 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 68 69 6c 65 20 74 0a 20 me)...................(while.t..
2d1a0 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 69 6c 65 2d 6e 61 ...................(setq.file-na
2d1c0 6d 65 20 28 65 78 70 61 6e 64 2d 66 69 6c 65 2d 6e 61 6d 65 20 6e 6f 74 65 73 2d 66 69 6c 65 2d me.(expand-file-name.notes-file-
2d1e0 6e 61 6d 65 20 63 75 72 72 65 6e 74 2d 64 69 72 65 63 74 6f 72 79 29 29 0a 20 20 20 20 20 20 20 name.current-directory))........
2d200 20 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 73 2d .............(when.(file-exists-
2d220 70 20 66 69 6c 65 2d 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 p.file-name)....................
2d240 20 20 20 28 73 65 74 71 20 66 69 6c 65 2d 6e 61 6d 65 20 28 70 72 6f 70 65 72 74 69 7a 65 20 66 ...(setq.file-name.(propertize.f
2d260 69 6c 65 2d 6e 61 6d 65 20 27 64 69 73 70 6c 61 79 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ile-name.'display...............
2d280 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ................................
2d2a0 20 20 20 20 28 63 6f 6e 63 61 74 20 66 69 6c 65 2d 6e 61 6d 65 0a 20 20 20 20 20 20 20 20 20 20 ....(concat.file-name...........
2d2c0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ................................
2d2e0 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 22 20 2d 2d ................(propertize.".--
2d300 20 45 78 69 73 74 73 21 22 20 27 66 61 63 65 20 27 28 3a 66 6f 72 65 67 6f 72 75 6e 64 20 22 67 .Exists!".'face.'(:foregorund."g
2d320 72 65 65 6e 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 20 20 reen")))))......................
2d340 20 28 70 75 73 68 20 66 69 6c 65 2d 6e 61 6d 65 20 6c 69 73 74 2d 6f 66 2d 70 6f 73 73 69 62 6c .(push.file-name.list-of-possibl
2d360 65 2d 74 61 72 67 65 74 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 e-targets)......................
2d380 20 28 74 68 72 6f 77 20 27 62 72 65 61 6b 20 6e 69 6c 29 29 0a 0a 20 20 20 20 20 20 20 20 20 20 .(throw.'break.nil))............
2d3a0 20 20 20 20 20 20 20 20 20 20 28 70 75 73 68 20 66 69 6c 65 2d 6e 61 6d 65 20 6c 69 73 74 2d 6f ..........(push.file-name.list-o
2d3c0 66 2d 70 6f 73 73 69 62 6c 65 2d 74 61 72 67 65 74 73 29 0a 0a 20 20 20 20 20 20 20 20 20 20 20 f-possible-targets).............
2d3e0 20 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 28 73 74 72 69 6e 67 3d 20 63 75 72 72 65 6e 74 2d .........(when.(string=.current-
2d400 64 69 72 65 63 74 6f 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 directory.......................
2d420 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 63 75 72 72 65 6e 74 2d 64 69 72 65 63 .............(setq.current-direc
2d440 74 6f 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 20 20 20 20 tory............................
2d460 20 20 20 20 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 ..............(file-name-directo
2d480 72 79 20 28 64 69 72 65 63 74 6f 72 79 2d 66 69 6c 65 2d 6e 61 6d 65 20 63 75 72 72 65 6e 74 2d ry.(directory-file-name.current-
2d4a0 64 69 72 65 63 74 6f 72 79 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 directory))))...................
2d4c0 20 20 20 20 28 74 68 72 6f 77 20 27 62 72 65 61 6b 20 6e 69 6c 29 29 29 29 29 0a 20 20 20 20 20 ....(throw.'break.nil)))))......
2d4e0 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 6c 69 73 74 2d 6f 66 2d 70 6f 73 73 69 62 6c 65 2d .........(setq.list-of-possible-
2d500 74 61 72 67 65 74 73 20 28 6e 72 65 76 65 72 73 65 20 6c 69 73 74 2d 6f 66 2d 70 6f 73 73 69 62 targets.(nreverse.list-of-possib
2d520 6c 65 2d 74 61 72 67 65 74 73 29 29 0a 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 4e le-targets))................;;.N
2d540 4f 54 45 28 6e 6f 78 29 3a 20 43 72 65 61 74 65 20 6c 69 73 74 20 6f 66 20 74 61 72 67 65 74 73 OTE(nox):.Create.list.of.targets
2d560 20 66 72 6f 6d 20 73 65 61 72 63 68 20 70 61 74 68 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .from.search.path...............
2d580 28 64 6f 6c 69 73 74 20 28 70 61 74 68 20 6f 72 67 2d 6e 6f 74 65 72 2d 6e 6f 74 65 73 2d 73 65 (dolist.(path.org-noter-notes-se
2d5a0 61 72 63 68 2d 70 61 74 68 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 68 65 6e arch-path).................(when
2d5c0 20 28 66 69 6c 65 2d 65 78 69 73 74 73 2d 70 20 70 61 74 68 29 0a 20 20 20 20 20 20 20 20 20 20 .(file-exists-p.path)...........
2d5e0 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 66 69 6c 65 2d 6e 61 6d 65 20 28 65 78 70 61 6e 64 ........(let.((file-name.(expand
2d600 2d 66 69 6c 65 2d 6e 61 6d 65 20 6e 6f 74 65 73 2d 66 69 6c 65 2d 6e 61 6d 65 20 70 61 74 68 29 -file-name.notes-file-name.path)
2d620 29 29 0a 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 )).....................(unless.(
2d640 6d 65 6d 62 65 72 20 66 69 6c 65 2d 6e 61 6d 65 20 6c 69 73 74 2d 6f 66 2d 70 6f 73 73 69 62 6c member.file-name.list-of-possibl
2d660 65 2d 74 61 72 67 65 74 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 e-targets)......................
2d680 20 28 77 68 65 6e 20 28 66 69 6c 65 2d 65 78 69 73 74 73 2d 70 20 66 69 6c 65 2d 6e 61 6d 65 29 .(when.(file-exists-p.file-name)
2d6a0 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 73 65 74 71 20 66 .........................(setq.f
2d6c0 69 6c 65 2d 6e 61 6d 65 20 28 70 72 6f 70 65 72 74 69 7a 65 20 66 69 6c 65 2d 6e 61 6d 65 20 27 ile-name.(propertize.file-name.'
2d6e0 64 69 73 70 6c 61 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 display.........................
2d700 20 20 20 20 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
2d720 63 61 74 20 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 cat.file-name...................
2d740 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ................................
2d760 20 20 20 20 20 20 20 20 20 20 28 70 72 6f 70 65 72 74 69 7a 65 20 22 20 2d 2d 20 45 78 69 73 74 ..........(propertize.".--.Exist
2d780 73 21 22 20 27 66 61 63 65 20 27 28 3a 66 6f 72 65 67 72 6f 75 6e 64 20 22 67 72 65 65 6e 22 29 s!".'face.'(:foreground."green")
2d7a0 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 28 70 75 73 ))))).......................(pus
2d7c0 68 20 66 69 6c 65 2d 6e 61 6d 65 20 6c 69 73 74 2d 6f 66 2d 70 6f 73 73 69 62 6c 65 2d 74 61 72 h.file-name.list-of-possible-tar
2d7e0 67 65 74 73 29 29 29 29 29 0a 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 74 gets)))))................(setq.t
2d800 61 72 67 65 74 20 28 63 6f 6d 70 6c 65 74 69 6e 67 2d 72 65 61 64 20 22 57 68 65 72 65 20 64 6f arget.(completing-read."Where.do
2d820 20 79 6f 75 20 77 61 6e 74 20 74 6f 20 73 61 76 65 20 69 74 3f 20 22 20 6c 69 73 74 2d 6f 66 2d .you.want.to.save.it?.".list-of-
2d840 70 6f 73 73 69 62 6c 65 2d 74 61 72 67 65 74 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 possible-targets................
2d860 20 20 20 20 20 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 .............................nil
2d880 20 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 2d 74 65 78 74 2d 70 72 6f .t))...............(set-text-pro
2d8a0 70 65 72 74 69 65 73 20 30 20 28 6c 65 6e 67 74 68 20 74 61 72 67 65 74 29 20 6e 69 6c 20 74 61 perties.0.(length.target).nil.ta
2d8c0 72 67 65 74 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 69 6c rget)...............(unless.(fil
2d8e0 65 2d 65 78 69 73 74 73 2d 70 20 74 61 72 67 65 74 29 20 28 77 72 69 74 65 2d 72 65 67 69 6f 6e e-exists-p.target).(write-region
2d900 20 22 22 20 6e 69 6c 20 74 61 72 67 65 74 29 29 0a 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ."".nil.target))................
2d920 28 73 65 74 71 20 6e 6f 74 65 73 2d 66 69 6c 65 73 20 28 6c 69 73 74 20 74 61 72 67 65 74 29 29 (setq.notes-files.(list.target))
2d940 29 29 0a 0a 20 20 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 28 3e 20 28 6c 65 6e 67 74 68 20 6e ))............(when.(>.(length.n
2d960 6f 74 65 73 2d 66 69 6c 65 73 29 20 31 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 otes-files).1).............(setq
2d980 20 6e 6f 74 65 73 2d 66 69 6c 65 73 20 28 6c 69 73 74 20 28 63 6f 6d 70 6c 65 74 69 6e 67 2d 72 .notes-files.(list.(completing-r
2d9a0 65 61 64 20 22 49 6e 20 77 68 69 63 68 20 6e 6f 74 65 73 20 66 69 6c 65 20 73 68 6f 75 6c 64 20 ead."In.which.notes.file.should.
2d9c0 77 65 20 63 72 65 61 74 65 20 74 68 65 20 68 65 61 64 69 6e 67 3f 20 22 0a 20 20 20 20 20 20 20 we.create.the.heading?."........
2d9e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ................................
2da00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6e 6f 74 65 73 2d 66 69 6c 65 73 20 6e 69 6c 20 74 29 ..............notes-files.nil.t)
2da20 29 29 29 0a 0a 20 20 20 20 20 20 20 20 20 20 28 69 66 20 28 6d 65 6d 62 65 72 20 28 63 61 72 20 )))............(if.(member.(car.
2da40 6e 6f 74 65 73 2d 66 69 6c 65 73 29 20 6e 6f 74 65 73 2d 66 69 6c 65 73 2d 61 6e 6e 6f 74 61 74 notes-files).notes-files-annotat
2da60 69 6e 67 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 4e 4f 54 45 28 6e 6f 78 29 3a ing)...............;;.NOTE(nox):
2da80 20 54 68 69 73 20 69 73 20 6e 65 65 64 65 64 20 69 6e 20 6f 72 64 65 72 20 74 6f 20 6f 76 65 72 .This.is.needed.in.order.to.over
2daa0 72 69 64 65 20 77 69 74 68 20 74 68 65 20 61 72 67 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ride.with.the.arg...............
2dac0 28 73 65 74 71 20 6e 6f 74 65 73 2d 66 69 6c 65 73 2d 61 6e 6e 6f 74 61 74 69 6e 67 20 6e 6f 74 (setq.notes-files-annotating.not
2dae0 65 73 2d 66 69 6c 65 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 77 69 74 68 2d 63 75 72 72 es-files).............(with-curr
2db00 65 6e 74 2d 62 75 66 66 65 72 20 28 66 69 6e 64 2d 66 69 6c 65 2d 6e 6f 73 65 6c 65 63 74 20 28 ent-buffer.(find-file-noselect.(
2db20 63 61 72 20 6e 6f 74 65 73 2d 66 69 6c 65 73 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 car.notes-files))...............
2db40 28 67 6f 74 6f 2d 63 68 61 72 20 28 70 6f 69 6e 74 2d 6d 61 78 29 29 0a 20 20 20 20 20 20 20 20 (goto-char.(point-max)).........
2db60 20 20 20 20 20 20 28 69 6e 73 65 72 74 20 28 69 66 20 28 73 61 76 65 2d 65 78 63 75 72 73 69 6f ......(insert.(if.(save-excursio
2db80 6e 20 28 62 65 67 69 6e 6e 69 6e 67 2d 6f 66 2d 6c 69 6e 65 29 20 28 6c 6f 6f 6b 69 6e 67 2d 61 n.(beginning-of-line).(looking-a
2dba0 74 20 22 5b 5b 3a 73 70 61 63 65 3a 5d 5d 2a 24 22 29 29 20 22 22 20 22 5c 6e 22 29 0a 20 20 20 t."[[:space:]]*$")).""."\n")....
2dbc0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 2a 20 22 0a 20 20 20 20 20 20 20 20 ..................."*.".........
2dbe0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6f 72 67 2d 6e 6f 74 65 72 2d 68 65 61 64 6c 69 6e 65 ..............org-noter-headline
2dc00 2d 74 69 74 6c 65 2d 64 65 63 6f 72 61 74 69 6f 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 -title-decoration...............
2dc20 20 20 20 20 20 20 20 20 64 6f 63 75 6d 65 6e 74 2d 62 61 73 65 0a 20 20 20 20 20 20 20 20 20 20 ........document-base...........
2dc40 20 20 20 20 20 20 20 20 20 20 20 20 6f 72 67 2d 6e 6f 74 65 72 2d 68 65 61 64 6c 69 6e 65 2d 74 ............org-noter-headline-t
2dc60 69 74 6c 65 2d 64 65 63 6f 72 61 74 69 6f 6e 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 itle-decoration)...............(
2dc80 6f 72 67 2d 65 6e 74 72 79 2d 70 75 74 20 6e 69 6c 20 6f 72 67 2d 6e 6f 74 65 72 2d 70 72 6f 70 org-entry-put.nil.org-noter-prop
2dca0 65 72 74 79 2d 64 6f 63 2d 66 69 6c 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 erty-doc-file...................
2dcc0 20 20 20 20 20 20 20 20 20 20 20 28 66 69 6c 65 2d 72 65 6c 61 74 69 76 65 2d 6e 61 6d 65 20 64 ...........(file-relative-name.d
2dce0 6f 63 75 6d 65 6e 74 2d 75 73 65 64 2d 70 61 74 68 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ocument-used-path...............
2dd00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ................................
2dd20 20 20 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 20 6e 6f 74 ...(file-name-directory.(car.not
2dd40 65 73 2d 66 69 6c 65 73 29 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 es-files))))).............(setq.
2dd60 6e 6f 74 65 73 2d 66 69 6c 65 73 2d 61 6e 6e 6f 74 61 74 69 6e 67 20 6e 6f 74 65 73 2d 66 69 6c notes-files-annotating.notes-fil
2dd80 65 73 29 29 29 0a 0a 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 28 3e 20 28 6c 65 6e 67 74 68 20 es)))..........(when.(>.(length.
2dda0 28 64 65 6c 65 74 65 2d 64 75 70 73 20 6e 6f 74 65 73 2d 66 69 6c 65 73 2d 61 6e 6e 6f 74 61 74 (delete-dups.notes-files-annotat
2ddc0 69 6e 67 29 29 20 31 29 0a 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 6e 6f 74 65 73 2d 66 ing)).1)...........(setq.notes-f
2dde0 69 6c 65 73 2d 61 6e 6e 6f 74 61 74 69 6e 67 20 28 6c 69 73 74 20 28 63 6f 6d 70 6c 65 74 69 6e iles-annotating.(list.(completin
2de00 67 2d 72 65 61 64 20 22 57 68 69 63 68 20 6e 6f 74 65 73 20 66 69 6c 65 20 73 68 6f 75 6c 64 20 g-read."Which.notes.file.should.
2de20 77 65 20 6f 70 65 6e 3f 20 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 we.open?."......................
2de40 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ................................
2de60 20 20 20 20 20 20 20 20 20 6e 6f 74 65 73 2d 66 69 6c 65 73 2d 61 6e 6e 6f 74 61 74 69 6e 67 20 .........notes-files-annotating.
2de80 6e 69 6c 20 74 29 29 29 29 0a 0a 20 20 20 20 20 20 20 20 28 77 69 74 68 2d 63 75 72 72 65 6e 74 nil.t))))..........(with-current
2dea0 2d 62 75 66 66 65 72 20 28 66 69 6e 64 2d 66 69 6c 65 2d 6e 6f 73 65 6c 65 63 74 20 28 63 61 72 -buffer.(find-file-noselect.(car
2dec0 20 6e 6f 74 65 73 2d 66 69 6c 65 73 2d 61 6e 6e 6f 74 61 74 69 6e 67 29 29 0a 20 20 20 20 20 20 .notes-files-annotating)).......
2dee0 20 20 20 20 28 6f 72 67 2d 77 69 74 68 2d 70 6f 69 6e 74 2d 61 74 20 28 70 6f 69 6e 74 2d 6d 69 ....(org-with-point-at.(point-mi
2df00 6e 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 63 61 74 63 68 20 27 62 72 65 61 6b 0a 20 20 20 n).............(catch.'break....
2df20 20 20 20 20 20 20 20 20 20 20 20 28 77 68 69 6c 65 20 28 72 65 2d 73 65 61 72 63 68 2d 66 6f 72 ...........(while.(re-search-for
2df40 77 61 72 64 20 28 6f 72 67 2d 72 65 2d 70 72 6f 70 65 72 74 79 20 6f 72 67 2d 6e 6f 74 65 72 2d ward.(org-re-property.org-noter-
2df60 70 72 6f 70 65 72 74 79 2d 64 6f 63 2d 66 69 6c 65 29 20 6e 69 6c 29 0a 20 20 20 20 20 20 20 20 property-doc-file).nil).........
2df80 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 28 66 69 6c 65 2d 65 71 75 61 6c 2d 70 20 28 65 78 70 ........(when.(file-equal-p.(exp
2dfa0 61 6e 64 2d 66 69 6c 65 2d 6e 61 6d 65 20 28 6d 61 74 63 68 2d 73 74 72 69 6e 67 20 33 29 0a 20 and-file-name.(match-string.3)..
2dfc0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ................................
2dfe0 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 2d 6e 61 6d 65 2d .....................(file-name-
2e000 64 69 72 65 63 74 6f 72 79 20 28 63 61 72 20 6e 6f 74 65 73 2d 66 69 6c 65 73 2d 61 6e 6e 6f 74 directory.(car.notes-files-annot
2e020 61 74 69 6e 67 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 ating)))........................
2e040 20 20 20 20 20 20 20 20 20 20 20 20 20 64 6f 63 75 6d 65 6e 74 2d 70 61 74 68 29 0a 20 20 20 20 .............document-path).....
2e060 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 66 2d 6c 65 74 20 28 28 73 61 76 65 64 2d 6c 6f ..............(if-let.((saved-lo
2e080 63 61 74 69 6f 6e 20 28 6f 72 67 2d 65 6e 74 72 79 2d 67 65 74 20 6e 69 6c 20 6f 72 67 2d 6e 6f cation.(org-entry-get.nil.org-no
2e0a0 74 65 72 2d 70 72 6f 70 65 72 74 79 2d 6e 6f 74 65 2d 6c 6f 63 61 74 69 6f 6e 29 29 29 0a 20 20 ter-property-note-location)))...
2e0c0 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 6f 63 75 6d 65 ....................(setq.docume
2e0e0 6e 74 2d 6c 6f 63 61 74 69 6f 6e 20 28 63 6f 6e 73 20 28 73 74 72 69 6e 67 2d 74 6f 2d 6e 75 6d nt-location.(cons.(string-to-num
2e100 62 65 72 20 73 61 76 65 64 2d 6c 6f 63 61 74 69 6f 6e 29 20 30 29 29 29 0a 20 20 20 20 20 20 20 ber.saved-location).0)))........
2e120 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 6f 72 67 2d 6e 6f 74 65 72 2d 2d 73 74 61 ...........(let.((org-noter--sta
2e140 72 74 2d 6c 6f 63 61 74 69 6f 6e 2d 6f 76 65 72 72 69 64 65 20 64 6f 63 75 6d 65 6e 74 2d 6c 6f rt-location-override.document-lo
2e160 63 61 74 69 6f 6e 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6f 72 cation)).....................(or
2e180 67 2d 6e 6f 74 65 72 20 61 72 67 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 g-noter.arg))...................
2e1a0 28 74 68 72 6f 77 20 27 62 72 65 61 6b 20 74 29 29 29 29 29 29 29 29 0a 0a 3b 3b 3b 23 23 23 61 (throw.'break.t))))))))..;;;###a
2e1c0 75 74 6f 6c 6f 61 64 0a 28 64 65 66 75 6e 20 6f 72 67 2d 6e 6f 74 65 72 2d 73 74 61 72 74 2d 66 utoload.(defun.org-noter-start-f
2e1e0 72 6f 6d 2d 64 69 72 65 64 20 28 29 0a 20 20 22 49 6e 20 44 69 72 65 64 2c 20 6f 70 65 6e 20 73 rom-dired.()..."In.Dired,.open.s
2e200 65 73 73 69 6f 6e 73 20 66 6f 72 20 6d 61 72 6b 65 64 20 66 69 6c 65 73 20 6f 72 20 66 69 6c 65 essions.for.marked.files.or.file
2e220 20 61 74 20 70 6f 69 6e 74 2e 0a 0a 49 66 20 74 68 65 72 65 20 61 72 65 20 6d 75 6c 74 69 70 6c .at.point...If.there.are.multipl
2e240 65 20 6d 61 72 6b 65 64 20 66 69 6c 65 73 2c 20 66 6f 63 75 73 20 77 69 6c 6c 20 62 65 20 6f 6e e.marked.files,.focus.will.be.on
2e260 20 74 68 65 20 6c 61 73 74 0a 6d 61 72 6b 65 64 20 66 69 6c 65 2e 22 0a 20 20 28 69 6e 74 65 72 .the.last.marked.file."...(inter
2e280 61 63 74 69 76 65 29 0a 20 20 28 6c 65 74 20 28 28 66 69 6c 65 73 20 28 6f 72 20 28 64 69 72 65 active)...(let.((files.(or.(dire
2e2a0 64 2d 67 65 74 2d 6d 61 72 6b 65 64 2d 66 69 6c 65 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 d-get-marked-files).............
2e2c0 20 20 20 20 20 20 20 28 64 69 72 65 64 2d 67 65 74 2d 66 69 6c 65 6e 61 6d 65 29 29 29 29 0a 20 .......(dired-get-filename))))..
2e2e0 20 20 20 28 64 6f 6c 69 73 74 20 28 66 69 6c 65 6e 61 6d 65 20 66 69 6c 65 73 29 0a 20 20 20 20 ...(dolist.(filename.files).....
2e300 20 20 28 66 69 6e 64 2d 66 69 6c 65 20 66 69 6c 65 6e 61 6d 65 29 0a 20 20 20 20 20 20 28 73 61 ..(find-file.filename).......(sa
2e320 76 65 2d 65 78 63 75 72 73 69 6f 6e 20 28 6f 72 67 2d 6e 6f 74 65 72 29 29 0a 20 20 20 20 20 20 ve-excursion.(org-noter)).......
2e340 28 62 75 72 79 2d 62 75 66 66 65 72 29 29 0a 20 20 20 20 28 6f 74 68 65 72 2d 66 72 61 6d 65 20 (bury-buffer)).....(other-frame.
2e360 31 29 29 29 0a 0a 0a 28 64 65 66 75 6e 20 6f 72 67 2d 6e 6f 74 65 72 2d 65 6e 61 62 6c 65 2d 6f 1)))...(defun.org-noter-enable-o
2e380 72 67 2d 72 6f 61 6d 2d 69 6e 74 65 67 72 61 74 69 6f 6e 20 28 29 0a 20 20 22 45 6e 61 62 6c 65 rg-roam-integration.()..."Enable
2e3a0 20 6f 72 67 2d 72 6f 61 6d 20 69 6e 74 65 67 72 61 74 69 6f 6e 2e 22 0a 20 20 28 69 6e 74 65 72 .org-roam.integration."...(inter
2e3c0 61 63 74 69 76 65 29 0a 20 20 28 72 65 71 75 69 72 65 20 27 6f 72 67 2d 6e 6f 74 65 72 2d 6f 72 active)...(require.'org-noter-or
2e3e0 67 2d 72 6f 61 6d 29 0a 20 20 28 73 65 74 71 20 6f 72 67 2d 6e 6f 74 65 72 2d 63 72 65 61 74 65 g-roam)...(setq.org-noter-create
2e400 2d 73 65 73 73 69 6f 6e 2d 66 72 6f 6d 2d 64 6f 63 75 6d 65 6e 74 2d 68 6f 6f 6b 0a 20 20 20 20 -session-from-document-hook.....
2e420 20 20 27 28 6f 72 67 2d 6e 6f 74 65 72 2d 2d 63 72 65 61 74 65 2d 73 65 73 73 69 6f 6e 2d 66 72 ..'(org-noter--create-session-fr
2e440 6f 6d 2d 64 6f 63 75 6d 65 6e 74 2d 66 69 6c 65 2d 73 75 70 70 6f 72 74 69 6e 67 2d 6f 72 67 2d om-document-file-supporting-org-
2e460 72 6f 61 6d 29 29 29 0a 0a 28 70 72 6f 76 69 64 65 20 27 6f 72 67 2d 6e 6f 74 65 72 29 0a 0a 3b roam)))..(provide.'org-noter)..;
2e480 3b 3b 20 6f 72 67 2d 6e 6f 74 65 72 2e 65 6c 20 65 6e 64 73 20 68 65 72 65 0a 00 00 00 00 00 00 ;;.org-noter.el.ends.here.......
2e4a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
2e4c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
2e4e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
2e500 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
2e520 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
2e540 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
2e560 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
2e580 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
2e5a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
2e5c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
2e5e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
2e600 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
2e620 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
2e640 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
2e660 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
2e680 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
2e6a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
2e6c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
2e6e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
2e700 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
2e720 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
2e740 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
2e760 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
2e780 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
2e7a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
2e7c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
2e7e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
2e800 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
2e820 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
2e840 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
2e860 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
2e880 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
2e8a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
2e8c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
2e8e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
2e900 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
2e920 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
2e940 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
2e960 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
2e980 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
2e9a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
2e9c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
2e9e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
2ea00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
2ea20 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
2ea40 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
2ea60 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
2ea80 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
2eaa0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
2eac0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
2eae0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
2eb00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
2eb20 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
2eb40 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
2eb60 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
2eb80 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
2eba0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
2ebc0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
2ebe0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
2ec00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
2ec20 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
2ec40 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
2ec60 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
2ec80 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
2eca0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
2ecc0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
2ece0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
2ed00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
2ed20 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
2ed40 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
2ed60 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
2ed80 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
2eda0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
2edc0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
2ede0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
2ee00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
2ee20 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
2ee40 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
2ee60 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
2ee80 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
2eea0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
2eec0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
2eee0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
2ef00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
2ef20 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
2ef40 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
2ef60 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
2ef80 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
2efa0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
2efc0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
2efe0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
2f000 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
2f020 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
2f040 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
2f060 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
2f080 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
2f0a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
2f0c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
2f0e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
2f100 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
2f120 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
2f140 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
2f160 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
2f180 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
2f1a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
2f1c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
2f1e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
2f200 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
2f220 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
2f240 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
2f260 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
2f280 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
2f2a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
2f2c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
2f2e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
2f300 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
2f320 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
2f340 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
2f360 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
2f380 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
2f3a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
2f3c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
2f3e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
2f400 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
2f420 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
2f440 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
2f460 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
2f480 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
2f4a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
2f4c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
2f4e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
2f500 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
2f520 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
2f540 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
2f560 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
2f580 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
2f5a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
2f5c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
2f5e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
2f600 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
2f620 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
2f640 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
2f660 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
2f680 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
2f6a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
2f6c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
2f6e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
2f700 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
2f720 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
2f740 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
2f760 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
2f780 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
2f7a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
2f7c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
2f7e0 00 00 00 00 00 00 00 00 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 09:32:47 +0000