* bug#16324: 24.3.50; Crashing on OSX 10.6.8 (built --with-ns)
2014-01-02 7:00 bug#16324: 24.3.50; Crashing on OSX 10.6.8 (built --with-ns) Keith David Bershatsky
@ 2014-01-02 9:29 ` Jan Djärv
2014-01-02 23:42 ` Keith David Bershatsky
` (3 subsequent siblings)
4 siblings, 0 replies; 8+ messages in thread
From: Jan Djärv @ 2014-01-02 9:29 UTC (permalink / raw)
To: Keith David Bershatsky; +Cc: 16324@debbugs.gnu.org
Hello.
This type of backtraces are useless. Get a proper one from the debugger instead. Start the debugger in the src directory.
Jan D.
> 2 jan 2014 kl. 08:00 skrev Keith David Bershatsky <esq@lawlist.com>:
>
> On OSX 10.6.8 (Emacs Trunk built January 1, 2014 --with-ns), I'm running a combination of a custom org-agenda in one window and a calendar (marking special dates) in the other window -- the crash occurs as I move forward by month or backward by month, but not any specific month. The crash does not occur with Emacs Trunk built on October 5, 2013, but it does occur on Emacs Trunk versions built on December 23, 2013 and January 1, 2014. My setup is fairly lengthy, and I don't have a specific recipe to reproduce the crash -- however, the crash ALWAYS occurs within the first 12 months in either direction.
>
> Process: Emacs [39167]
> Path: /Users/HOME/.0.data/.0.emacs/Emacs.app/Contents/MacOS/Emacs
> Identifier: org.gnu.Emacs
> Version: Version 24.3.50 (9.0)
> Code Type: X86-64 (Native)
> Parent Process: launchd [169]
>
> Date/Time: 2014-01-01 22:45:12.660 -0800
> OS Version: Mac OS X 10.6.8 (10K549)
> Report Version: 6
>
> Exception Type: EXC_BAD_ACCESS (SIGABRT)
> Exception Codes: KERN_INVALID_ADDRESS at 0x000000090c5bb6b8
> Crashed Thread: 0 Dispatch queue: com.apple.main-thread
>
> Thread 0 Crashed: Dispatch queue: com.apple.main-thread
> 0 libSystem.B.dylib 0x00007fff89abe0b6 __kill + 10
> 1 org.gnu.Emacs 0x00000001000a51d4 terminate_due_to_signal + 116 (emacs.c:381)
> 2 org.gnu.Emacs 0x00000001000c2fa3 0x100000000 + 798627
> 3 org.gnu.Emacs 0x0000000100193d6f ns_term_shutdown + 79 (nsterm.m:4451)
> 4 org.gnu.Emacs 0x00000001000a4152 shut_down_emacs + 194 (emacs.c:2045)
> 5 org.gnu.Emacs 0x00000001000a51ab terminate_due_to_signal + 75 (emacs.c:363)
> 6 org.gnu.Emacs 0x00000001000c303e 0x100000000 + 798782
> 7 org.gnu.Emacs 0x00000001000c34a2 deliver_fatal_thread_signal + 146 (sysdep.c:1603)
> 8 libSystem.B.dylib 0x00007fff89ad01ba _sigtramp + 26
> 9 org.gnu.Emacs 0x0000000100107b40 Fgarbage_collect + 6272 (alloc.c:2975)
> 10 org.gnu.Emacs 0x000000010011f6bc eval_sub + 236 (eval.c:2078)
> 11 org.gnu.Emacs 0x000000010011fe74 Fsetq + 132 (eval.c:536)
> 12 org.gnu.Emacs 0x000000010011fd83 eval_sub + 1971 (eval.c:2124)
> 13 org.gnu.Emacs 0x000000010011ff5d Fprogn + 45 (eval.c:459)
> 14 org.gnu.Emacs 0x0000000100123088 Fwhile + 40 (eval.c:986)
> 15 org.gnu.Emacs 0x000000010011fd83 eval_sub + 1971 (eval.c:2124)
> 16 org.gnu.Emacs 0x000000010011ff5d Fprogn + 45 (eval.c:459)
> 17 org.gnu.Emacs 0x00000001001235f1 FletX + 481 (eval.c:897)
> 18 org.gnu.Emacs 0x000000010011fd83 eval_sub + 1971 (eval.c:2124)
> 19 org.gnu.Emacs 0x000000010011ff5d Fprogn + 45 (eval.c:459)
> 20 org.gnu.Emacs 0x00000001001202e0 funcall_lambda + 864 (eval.c:3033)
> 21 org.gnu.Emacs 0x0000000100121908 apply_lambda + 280 (eval.c:2915)
> 22 org.gnu.Emacs 0x000000010011f921 eval_sub + 849 (eval.c:2251)
> 23 org.gnu.Emacs 0x000000010011fe74 Fsetq + 132 (eval.c:536)
> 24 org.gnu.Emacs 0x000000010011fd83 eval_sub + 1971 (eval.c:2124)
> 25 org.gnu.Emacs 0x000000010011ff5d Fprogn + 45 (eval.c:459)
> 26 org.gnu.Emacs 0x000000010011fd83 eval_sub + 1971 (eval.c:2124)
> 27 org.gnu.Emacs 0x000000010011ff5d Fprogn + 45 (eval.c:459)
> 28 org.gnu.Emacs 0x0000000100123088 Fwhile + 40 (eval.c:986)
> 29 org.gnu.Emacs 0x000000010011fd83 eval_sub + 1971 (eval.c:2124)
> 30 org.gnu.Emacs 0x000000010011ff5d Fprogn + 45 (eval.c:459)
> 31 org.gnu.Emacs 0x0000000100112ec7 Fsave_restriction + 71 (editfns.c:3415)
> 32 org.gnu.Emacs 0x000000010011fd83 eval_sub + 1971 (eval.c:2124)
> 33 org.gnu.Emacs 0x000000010011ff5d Fprogn + 45 (eval.c:459)
> 34 org.gnu.Emacs 0x0000000100112e07 Fsave_excursion + 71 (editfns.c:941)
> 35 org.gnu.Emacs 0x000000010011fd83 eval_sub + 1971 (eval.c:2124)
> 36 org.gnu.Emacs 0x000000010011ff5d Fprogn + 45 (eval.c:459)
> 37 org.gnu.Emacs 0x0000000100123347 Flet + 599 (eval.c:967)
> 38 org.gnu.Emacs 0x000000010011fd83 eval_sub + 1971 (eval.c:2124)
> 39 org.gnu.Emacs 0x000000010011ff5d Fprogn + 45 (eval.c:459)
> 40 org.gnu.Emacs 0x0000000100112e67 Fsave_current_buffer + 71 (editfns.c:954)
> 41 org.gnu.Emacs 0x000000010011fd83 eval_sub + 1971 (eval.c:2124)
> 42 org.gnu.Emacs 0x000000010011ff5d Fprogn + 45 (eval.c:459)
> 43 org.gnu.Emacs 0x000000010011fd83 eval_sub + 1971 (eval.c:2124)
> 44 org.gnu.Emacs 0x000000010011ff5d Fprogn + 45 (eval.c:459)
> 45 org.gnu.Emacs 0x00000001001235f1 FletX + 481 (eval.c:897)
> 46 org.gnu.Emacs 0x000000010011fd83 eval_sub + 1971 (eval.c:2124)
> 47 org.gnu.Emacs 0x000000010011ff5d Fprogn + 45 (eval.c:459)
> 48 org.gnu.Emacs 0x00000001001202e0 funcall_lambda + 864 (eval.c:3033)
> 49 org.gnu.Emacs 0x000000010012054d Ffuncall + 525 (eval.c:2867)
> 50 org.gnu.Emacs 0x0000000100120d72 Fapply + 834 (eval.c:2292)
> 51 org.gnu.Emacs 0x000000010011fd42 eval_sub + 1906 (eval.c:2148)
> 52 org.gnu.Emacs 0x000000010011fe74 Fsetq + 132 (eval.c:536)
> 53 org.gnu.Emacs 0x000000010011fd83 eval_sub + 1971 (eval.c:2124)
> 54 org.gnu.Emacs 0x000000010011ff5d Fprogn + 45 (eval.c:459)
> 55 org.gnu.Emacs 0x000000010011e8f7 internal_catch + 247 (eval.c:1109)
> 56 org.gnu.Emacs 0x000000010011fd83 eval_sub + 1971 (eval.c:2124)
> 57 org.gnu.Emacs 0x000000010011ff5d Fprogn + 45 (eval.c:459)
> 58 org.gnu.Emacs 0x0000000100123088 Fwhile + 40 (eval.c:986)
> 59 org.gnu.Emacs 0x000000010011fd83 eval_sub + 1971 (eval.c:2124)
> 60 org.gnu.Emacs 0x000000010011ff5d Fprogn + 45 (eval.c:459)
> 61 org.gnu.Emacs 0x0000000100123088 Fwhile + 40 (eval.c:986)
> 62 org.gnu.Emacs 0x000000010011fd83 eval_sub + 1971 (eval.c:2124)
> 63 org.gnu.Emacs 0x000000010011ff5d Fprogn + 45 (eval.c:459)
> 64 org.gnu.Emacs 0x00000001001235f1 FletX + 481 (eval.c:897)
> 65 org.gnu.Emacs 0x000000010011fd83 eval_sub + 1971 (eval.c:2124)
> 66 org.gnu.Emacs 0x000000010011ff5d Fprogn + 45 (eval.c:459)
> 67 org.gnu.Emacs 0x00000001001202e0 funcall_lambda + 864 (eval.c:3033)
> 68 org.gnu.Emacs 0x0000000100121908 apply_lambda + 280 (eval.c:2915)
> 69 org.gnu.Emacs 0x000000010011f921 eval_sub + 849 (eval.c:2251)
> 70 org.gnu.Emacs 0x000000010011ff5d Fprogn + 45 (eval.c:459)
> 71 org.gnu.Emacs 0x000000010011fd83 eval_sub + 1971 (eval.c:2124)
> 72 org.gnu.Emacs 0x000000010011ff5d Fprogn + 45 (eval.c:459)
> 73 org.gnu.Emacs 0x00000001001235f1 FletX + 481 (eval.c:897)
> 74 org.gnu.Emacs 0x000000010011fd83 eval_sub + 1971 (eval.c:2124)
> 75 org.gnu.Emacs 0x000000010011ff5d Fprogn + 45 (eval.c:459)
> 76 org.gnu.Emacs 0x00000001001202e0 funcall_lambda + 864 (eval.c:3033)
> 77 org.gnu.Emacs 0x0000000100121908 apply_lambda + 280 (eval.c:2915)
> 78 org.gnu.Emacs 0x000000010011f921 eval_sub + 849 (eval.c:2251)
> 79 org.gnu.Emacs 0x000000010011ff5d Fprogn + 45 (eval.c:459)
> 80 org.gnu.Emacs 0x000000010011fd83 eval_sub + 1971 (eval.c:2124)
> 81 org.gnu.Emacs 0x000000010011ff5d Fprogn + 45 (eval.c:459)
> 82 org.gnu.Emacs 0x00000001001235f1 FletX + 481 (eval.c:897)
> 83 org.gnu.Emacs 0x000000010011fd83 eval_sub + 1971 (eval.c:2124)
> 84 org.gnu.Emacs 0x000000010011ff5d Fprogn + 45 (eval.c:459)
> 85 org.gnu.Emacs 0x00000001001202e0 funcall_lambda + 864 (eval.c:3033)
> 86 org.gnu.Emacs 0x0000000100121908 apply_lambda + 280 (eval.c:2915)
> 87 org.gnu.Emacs 0x000000010011f921 eval_sub + 849 (eval.c:2251)
> 88 org.gnu.Emacs 0x000000010011ff5d Fprogn + 45 (eval.c:459)
> 89 org.gnu.Emacs 0x000000010011fd83 eval_sub + 1971 (eval.c:2124)
> 90 org.gnu.Emacs 0x000000010011ff5d Fprogn + 45 (eval.c:459)
> 91 org.gnu.Emacs 0x00000001001235f1 FletX + 481 (eval.c:897)
> 92 org.gnu.Emacs 0x000000010011fd83 eval_sub + 1971 (eval.c:2124)
> 93 org.gnu.Emacs 0x000000010011ff5d Fprogn + 45 (eval.c:459)
> 94 org.gnu.Emacs 0x00000001001202e0 funcall_lambda + 864 (eval.c:3033)
> 95 org.gnu.Emacs 0x0000000100121908 apply_lambda + 280 (eval.c:2915)
> 96 org.gnu.Emacs 0x000000010011f921 eval_sub + 849 (eval.c:2251)
> 97 org.gnu.Emacs 0x000000010011ff5d Fprogn + 45 (eval.c:459)
> 98 org.gnu.Emacs 0x000000010011fd83 eval_sub + 1971 (eval.c:2124)
> 99 org.gnu.Emacs 0x000000010011ff5d Fprogn + 45 (eval.c:459)
> 100 org.gnu.Emacs 0x00000001001235f1 FletX + 481 (eval.c:897)
> 101 org.gnu.Emacs 0x000000010011fd83 eval_sub + 1971 (eval.c:2124)
> 102 org.gnu.Emacs 0x000000010011ff5d Fprogn + 45 (eval.c:459)
> 103 org.gnu.Emacs 0x00000001001202e0 funcall_lambda + 864 (eval.c:3033)
> 104 org.gnu.Emacs 0x0000000100121908 apply_lambda + 280 (eval.c:2915)
> 105 org.gnu.Emacs 0x000000010011f921 eval_sub + 849 (eval.c:2251)
> 106 org.gnu.Emacs 0x000000010011ff5d Fprogn + 45 (eval.c:459)
> 107 org.gnu.Emacs 0x000000010011fd83 eval_sub + 1971 (eval.c:2124)
> 108 org.gnu.Emacs 0x000000010011ff5d Fprogn + 45 (eval.c:459)
> 109 org.gnu.Emacs 0x00000001001235f1 FletX + 481 (eval.c:897)
> 110 org.gnu.Emacs 0x000000010011fd83 eval_sub + 1971 (eval.c:2124)
> 111 org.gnu.Emacs 0x000000010011ff5d Fprogn + 45 (eval.c:459)
> 112 org.gnu.Emacs 0x00000001001202e0 funcall_lambda + 864 (eval.c:3033)
> 113 org.gnu.Emacs 0x0000000100121908 apply_lambda + 280 (eval.c:2915)
> 114 org.gnu.Emacs 0x000000010011f921 eval_sub + 849 (eval.c:2251)
> 115 org.gnu.Emacs 0x000000010011ff5d Fprogn + 45 (eval.c:459)
> 116 org.gnu.Emacs 0x000000010011fd83 eval_sub + 1971 (eval.c:2124)
> 117 org.gnu.Emacs 0x000000010011ff5d Fprogn + 45 (eval.c:459)
> 118 org.gnu.Emacs 0x00000001001235f1 FletX + 481 (eval.c:897)
> 119 org.gnu.Emacs 0x000000010011fd83 eval_sub + 1971 (eval.c:2124)
> 120 org.gnu.Emacs 0x000000010011ff5d Fprogn + 45 (eval.c:459)
> 121 org.gnu.Emacs 0x00000001001202e0 funcall_lambda + 864 (eval.c:3033)
> 122 org.gnu.Emacs 0x0000000100121908 apply_lambda + 280 (eval.c:2915)
> 123 org.gnu.Emacs 0x000000010011f921 eval_sub + 849 (eval.c:2251)
> 124 org.gnu.Emacs 0x000000010011ff5d Fprogn + 45 (eval.c:459)
> 125 org.gnu.Emacs 0x000000010011fd83 eval_sub + 1971 (eval.c:2124)
> 126 org.gnu.Emacs 0x000000010011ff5d Fprogn + 45 (eval.c:459)
> 127 org.gnu.Emacs 0x00000001001235f1 FletX + 481 (eval.c:897)
> 128 org.gnu.Emacs 0x000000010011fd83 eval_sub + 1971 (eval.c:2124)
> 129 org.gnu.Emacs 0x000000010011ff5d Fprogn + 45 (eval.c:459)
> 130 org.gnu.Emacs 0x00000001001202e0 funcall_lambda + 864 (eval.c:3033)
> 131 org.gnu.Emacs 0x000000010012054d Ffuncall + 525 (eval.c:2867)
> 132 org.gnu.Emacs 0x0000000100120de6 apply1 + 38 (eval.c:2581)
> 133 org.gnu.Emacs 0x000000010011ca5f Fcall_interactively + 5247 (callint.c:378)
> 134 org.gnu.Emacs 0x0000000100120751 Ffuncall + 1041 (eval.c:2813)
> 135 org.gnu.Emacs 0x0000000100157f7b exec_byte_code + 1019 (bytecode.c:919)
> 136 org.gnu.Emacs 0x000000010012054d Ffuncall + 525 (eval.c:2867)
> 137 org.gnu.Emacs 0x000000010012097e call1 + 30 (eval.c:2606)
> 138 org.gnu.Emacs 0x00000001000ba1c7 command_loop_1 + 1367 (keyboard.c:1560)
> 139 org.gnu.Emacs 0x000000010011ea43 internal_condition_case + 259 (eval.c:1345)
> 140 org.gnu.Emacs 0x00000001000affd7 command_loop_2 + 55 (keyboard.c:1171)
> 141 org.gnu.Emacs 0x000000010011e8f7 internal_catch + 247 (eval.c:1109)
> 142 org.gnu.Emacs 0x00000001000af45c recursive_edit_1 + 364 (keyboard.c:1150)
> 143 org.gnu.Emacs 0x00000001000b1897 Frecursive_edit + 215 (keyboard.c:842)
> 144 org.gnu.Emacs 0x00000001000a79b3 main + 2819 (emacs.c:1640)
> 145 org.gnu.Emacs 0x00000001000015a4 start + 52
>
> Thread 1: Dispatch queue: com.apple.libdispatch-manager
> 0 libSystem.B.dylib 0x00007fff89a88c0a kevent + 10
> 1 libSystem.B.dylib 0x00007fff89a8aadd _dispatch_mgr_invoke + 154
> 2 libSystem.B.dylib 0x00007fff89a8a7b4 _dispatch_queue_invoke + 185
> 3 libSystem.B.dylib 0x00007fff89a8a2de _dispatch_worker_thread2 + 252
> 4 libSystem.B.dylib 0x00007fff89a89c08 _pthread_wqthread + 353
> 5 libSystem.B.dylib 0x00007fff89a89aa5 start_wqthread + 13
>
> Thread 2:
> 0 libSystem.B.dylib 0x00007fff89ab3932 select$DARWIN_EXTSN + 10
> 1 org.gnu.Emacs 0x000000010019b6b8 -[EmacsApp fd_handler:] + 632 (nsterm.m:4864)
> 2 com.apple.Foundation 0x00007fff8392b204 __NSThread__main__ + 1429
> 3 libSystem.B.dylib 0x00007fff89aa8fd6 _pthread_start + 331
> 4 libSystem.B.dylib 0x00007fff89aa8e89 thread_start + 13
>
> Thread 3:
> 0 libSystem.B.dylib 0x00007fff89a89a2a __workq_kernreturn + 10
> 1 libSystem.B.dylib 0x00007fff89a89e3c _pthread_wqthread + 917
> 2 libSystem.B.dylib 0x00007fff89a89aa5 start_wqthread + 13
>
> Thread 0 crashed with X86 Thread State (64-bit):
> rax: 0x0000000000000000 rbx: 0x0000000000000006 rcx: 0x00007fff5fbfb298 rdx: 0x0000000000000000
> rdi: 0x00000000000098ff rsi: 0x0000000000000006 rbp: 0x00007fff5fbfb2c0 rsp: 0x00007fff5fbfb298
> r8: 0x00007fff70683760 r9: 0x00007fff5fbfb240 r10: 0x00007fff89ad1542 r11: 0xffffff80002e4730
> r12: 0x0000000000000028 r13: 0x000000010180303a r14: 0x000000000000000b r15: 0x00000001005c3018
> rip: 0x00007fff89abe0b6 rfl: 0x0000000000000206 cr2: 0x00000001000a5160
>
> Binary Images:
> 0x100000000 - 0x100224fff +org.gnu.Emacs Version 24.3.50 (9.0) <0265278B-BBC8-C2D7-6848-CAE8A4F3D8DC> /Users/HOME/.0.data/.0.emacs/Emacs.app/Contents/MacOS/Emacs
> 0x7fff5fc00000 - 0x7fff5fc3be0f dyld 132.1 (???) <29DECB19-0193-2575-D838-CF743F0400B2> /usr/lib/dyld
> 0x7fff80003000 - 0x7fff80044fef com.apple.QD 3.36 (???) <5DC41E81-32C9-65B2-5528-B33E934D5BB4> /System/Library/Frameworks/ApplicationServices.framework/Versions/A/Frameworks/QD.framework/Versions/A/QD
> 0x7fff80045000 - 0x7fff80488fef libLAPACK.dylib 219.0.0 (compatibility 1.0.0) <0CC61C98-FF51-67B3-F3D8-C5E430C201A9> /System/Library/Frameworks/Accelerate.framework/Versions/A/Frameworks/vecLib.framework/Versions/A/libLAPACK.dylib
> 0x7fff804a1000 - 0x7fff804c1ff7 com.apple.DirectoryService.Framework 3.6 (621.12) <A4685F06-5881-35F5-764D-C380304C1CE8> /System/Library/Frameworks/DirectoryService.framework/Versions/A/DirectoryService
> 0x7fff804c2000 - 0x7fff804c2ff7 com.apple.Accelerate.vecLib 3.6 (vecLib 3.6) <4CCE5D69-F1B3-8FD3-1483-E0271DB2CCF3> /System/Library/Frameworks/Accelerate.framework/Versions/A/Frameworks/vecLib.framework/Versions/A/vecLib
> 0x7fff804c3000 - 0x7fff804d1ff7 libkxld.dylib ??? (???) <8145A534-95CC-9F3C-B78B-AC9898F38C6F> /usr/lib/system/libkxld.dylib
> 0x7fff805ec000 - 0x7fff805edff7 com.apple.audio.units.AudioUnit 1.6.7 (1.6.7) <53299948-2554-0F8F-7501-04B34E49F6CF> /System/Library/Frameworks/AudioUnit.framework/Versions/A/AudioUnit
> 0x7fff8075f000 - 0x7fff807f9fe7 com.apple.ApplicationServices.ATS 275.16 (???) <4B70A2FC-1902-5F27-5C3B-5C78C283C6EA> /System/Library/Frameworks/ApplicationServices.framework/Versions/A/Frameworks/ATS.framework/Versions/A/ATS
> 0x7fff80800000 - 0x7fff80843ff7 libRIP.A.dylib 545.0.0 (compatibility 64.0.0) <5FF3D7FD-84D8-C5FA-D640-90BB82EC651D> /System/Library/Frameworks/ApplicationServices.framework/Versions/A/Frameworks/CoreGraphics.framework/Versions/A/Resources/libRIP.A.dylib
> 0x7fff80844000 - 0x7fff80b78fef com.apple.CoreServices.CarbonCore 861.39 (861.39) <1386A24D-DD15-5903-057E-4A224FAF580B> /System/Library/Frameworks/CoreServices.framework/Versions/A/Frameworks/CarbonCore.framework/Versions/A/CarbonCore
> 0x7fff80dda000 - 0x7fff80e2dff7 com.apple.HIServices 1.8.3 (???) <F6E0C7A7-C11D-0096-4DDA-2C77793AA6CD> /System/Library/Frameworks/ApplicationServices.framework/Versions/A/Frameworks/HIServices.framework/Versions/A/HIServices
> 0x7fff810e2000 - 0x7fff810e9fff com.apple.OpenDirectory 10.6 (10.6) <4FF6AD25-0916-B21C-9E88-2CC42D90EAC7> /System/Library/Frameworks/OpenDirectory.framework/Versions/A/OpenDirectory
> 0x7fff81339000 - 0x7fff81637fff com.apple.HIToolbox 1.6.5 (???) <AD1C18F6-51CB-7E39-35DD-F16B1EB978A8> /System/Library/Frameworks/Carbon.framework/Versions/A/Frameworks/HIToolbox.framework/Versions/A/HIToolbox
> 0x7fff81638000 - 0x7fff81673fff com.apple.AE 496.5 (496.5) <208DF391-4DE6-81ED-C697-14A2930D1BC6> /System/Library/Frameworks/CoreServices.framework/Versions/A/Frameworks/AE.framework/Versions/A/AE
> 0x7fff81674000 - 0x7fff81704fff com.apple.SearchKit 1.3.0 (1.3.0) <4175DC31-1506-228A-08FD-C704AC9DF642> /System/Library/Frameworks/CoreServices.framework/Versions/A/Frameworks/SearchKit.framework/Versions/A/SearchKit
> 0x7fff81705000 - 0x7fff81716ff7 libz.1.dylib 1.2.3 (compatibility 1.0.0) <97019C74-161A-3488-41EC-A6CA8738418C> /usr/lib/libz.1.dylib
> 0x7fff81717000 - 0x7fff8175fff7 libvDSP.dylib 268.0.1 (compatibility 1.0.0) <98FC4457-F405-0262-00F7-56119CA107B6> /System/Library/Frameworks/Accelerate.framework/Versions/A/Frameworks/vecLib.framework/Versions/A/libvDSP.dylib
> 0x7fff81760000 - 0x7fff81800fff com.apple.LaunchServices 362.3 (362.3) <B90B7C31-FEF8-3C26-BFB3-D8A48BD2C0DA> /System/Library/Frameworks/CoreServices.framework/Versions/A/Frameworks/LaunchServices.framework/Versions/A/LaunchServices
> 0x7fff81801000 - 0x7fff81efdff7 com.apple.CoreGraphics 1.545.0 (???) <58D597B1-EB3B-710E-0B8C-EC114D54E11B> /System/Library/Frameworks/ApplicationServices.framework/Versions/A/Frameworks/CoreGraphics.framework/Versions/A/CoreGraphics
> 0x7fff81efe000 - 0x7fff81f83ff7 com.apple.print.framework.PrintCore 6.3 (312.7) <CDFE82DD-D811-A091-179F-6E76069B432D> /System/Library/Frameworks/ApplicationServices.framework/Versions/A/Frameworks/PrintCore.framework/Versions/A/PrintCore
> 0x7fff81f94000 - 0x7fff81fbbff7 libJPEG.dylib ??? (???) <46A413EA-4FD1-A050-2EF0-6279F3EAD581> /System/Library/Frameworks/ApplicationServices.framework/Versions/A/Frameworks/ImageIO.framework/Versions/A/Resources/libJPEG.dylib
> 0x7fff822bf000 - 0x7fff8238afff ColorSyncDeprecated.dylib 4.6.0 (compatibility 1.0.0) <E72880D9-3B5D-D086-9266-F4F3C294619F> /System/Library/Frameworks/ApplicationServices.framework/Frameworks/ColorSync.framework/Versions/A/Resources/ColorSyncDeprecated.dylib
> 0x7fff8238b000 - 0x7fff8238bff7 com.apple.CoreServices 44 (44) <DC7400FB-851E-7B8A-5BF6-6F50094302FB> /System/Library/Frameworks/CoreServices.framework/Versions/A/CoreServices
> 0x7fff8238c000 - 0x7fff823d5fef libGLU.dylib ??? (???) <1C050088-4AB2-2BC2-62E6-C969F925A945> /System/Library/Frameworks/OpenGL.framework/Versions/A/Libraries/libGLU.dylib
> 0x7fff82406000 - 0x7fff82520fef libGLProgrammability.dylib ??? (???) <8A4B86E3-0FA7-8684-2EF2-C5F8079428DB> /System/Library/Frameworks/OpenGL.framework/Versions/A/Libraries/libGLProgrammability.dylib
> 0x7fff82521000 - 0x7fff827aaff7 com.apple.security 6.1.2 (55002) <4419AFFC-DAE7-873E-6A7D-5C9A5A4497A6> /System/Library/Frameworks/Security.framework/Versions/A/Security
> 0x7fff827ab000 - 0x7fff827bfff7 com.apple.speech.synthesis.framework 3.10.35 (3.10.35) <621B7415-A0B9-07A7-F313-36BEEDD7B132> /System/Library/Frameworks/ApplicationServices.framework/Versions/A/Frameworks/SpeechSynthesis.framework/Versions/A/SpeechSynthesis
> 0x7fff82813000 - 0x7fff8283eff7 libxslt.1.dylib 3.24.0 (compatibility 3.0.0) <8AB4CA9E-435A-33DA-7041-904BA7FA11D5> /usr/lib/libxslt.1.dylib
> 0x7fff8283f000 - 0x7fff82854ff7 com.apple.LangAnalysis 1.6.6 (1.6.6) <1AE1FE8F-2204-4410-C94E-0E93B003BEDA> /System/Library/Frameworks/ApplicationServices.framework/Versions/A/Frameworks/LangAnalysis.framework/Versions/A/LangAnalysis
> 0x7fff82915000 - 0x7fff8311ffe7 libBLAS.dylib 219.0.0 (compatibility 1.0.0) <FC941ECB-71D0-FAE3-DCBF-C5A619E594B8> /System/Library/Frameworks/Accelerate.framework/Versions/A/Frameworks/vecLib.framework/Versions/A/libBLAS.dylib
> 0x7fff83281000 - 0x7fff836c8fef com.apple.RawCamera.bundle 3.7.1 (570) <5AFA87CA-DC3D-F84E-7EA1-6EABA8807766> /System/Library/CoreServices/RawCamera.bundle/Contents/MacOS/RawCamera
> 0x7fff836ce000 - 0x7fff837edfe7 libcrypto.0.9.8.dylib 0.9.8 (compatibility 0.9.8) <14115D29-432B-CF02-6B24-A60CC533A09E> /usr/lib/libcrypto.0.9.8.dylib
> 0x7fff8391a000 - 0x7fff83b9cfe7 com.apple.Foundation 6.6.7 (751.62) <6F2A5BBF-6990-D561-2928-AD61E94036D9> /System/Library/Frameworks/Foundation.framework/Versions/C/Foundation
> 0x7fff83bab000 - 0x7fff83bbafff com.apple.NetFS 3.2.2 (3.2.2) <7CCBD70E-BF31-A7A7-DB98-230687773145> /System/Library/Frameworks/NetFS.framework/Versions/A/NetFS
> 0x7fff83bbb000 - 0x7fff83bdefff com.apple.opencl 12.3.6 (12.3.6) <42FA5783-EB80-1168-4015-B8C68F55842F> /System/Library/Frameworks/OpenCL.framework/Versions/A/OpenCL
> 0x7fff83bdf000 - 0x7fff83d56fe7 com.apple.CoreFoundation 6.6.5 (550.43) <31A1C118-AD96-0A11-8BDF-BD55B9940EDC> /System/Library/Frameworks/CoreFoundation.framework/Versions/A/CoreFoundation
> 0x7fff83d85000 - 0x7fff8477fff7 com.apple.AppKit 6.6.8 (1038.36) <4CFBE04C-8FB3-B0EA-8DDB-7E7D10E9D251> /System/Library/Frameworks/AppKit.framework/Versions/C/AppKit
> 0x7fff84987000 - 0x7fff84a3cfe7 com.apple.ink.framework 1.3.3 (107) <8C36373C-5473-3A6A-4972-BC29D504250F> /System/Library/Frameworks/Carbon.framework/Versions/A/Frameworks/Ink.framework/Versions/A/Ink
> 0x7fff84a6c000 - 0x7fff84aa6fff libcups.2.dylib 2.8.0 (compatibility 2.0.0) <539EBFDD-96D6-FB07-B128-40232C408757> /usr/lib/libcups.2.dylib
> 0x7fff84aa7000 - 0x7fff84aadff7 IOSurface ??? (???) <8E302BB2-0704-C6AB-BD2F-C2A6C6A2E2C3> /System/Library/Frameworks/IOSurface.framework/Versions/A/IOSurface
> 0x7fff84aae000 - 0x7fff84acbff7 libPng.dylib ??? (???) <6D8E515B-E0A2-2BA1-9CAC-8CB8A8B35879> /System/Library/Frameworks/ApplicationServices.framework/Versions/A/Frameworks/ImageIO.framework/Versions/A/Resources/libPng.dylib
> 0x7fff84e1b000 - 0x7fff84ed8fff com.apple.CoreServices.OSServices 359.2 (359.2) <BBB8888E-18DE-5D09-3C3A-F4C029EC7886> /System/Library/Frameworks/CoreServices.framework/Versions/A/Frameworks/OSServices.framework/Versions/A/OSServices
> 0x7fff8571a000 - 0x7fff857d3fff libsqlite3.dylib 9.6.0 (compatibility 9.0.0) <2C5ED312-E646-9ADE-73A9-6199A2A43150> /usr/lib/libsqlite3.dylib
> 0x7fff857d4000 - 0x7fff85992ff7 com.apple.ImageIO.framework 3.0.4 (3.0.4) <0A4F51A1-4502-767B-8A4E-F14C6214EF88> /System/Library/Frameworks/ApplicationServices.framework/Versions/A/Frameworks/ImageIO.framework/Versions/A/ImageIO
> 0x7fff85993000 - 0x7fff859fdfe7 libvMisc.dylib 268.0.1 (compatibility 1.0.0) <AF0EA96D-000F-8C12-B952-CB7E00566E08> /System/Library/Frameworks/Accelerate.framework/Versions/A/Frameworks/vecLib.framework/Versions/A/libvMisc.dylib
> 0x7fff859fe000 - 0x7fff859ffff7 com.apple.TrustEvaluationAgent 1.1 (1) <5952A9FA-BC2B-16EF-91A7-43902A5C07B6> /System/Library/PrivateFrameworks/TrustEvaluationAgent.framework/Versions/A/TrustEvaluationAgent
> 0x7fff85a00000 - 0x7fff85a04ff7 libCGXType.A.dylib 545.0.0 (compatibility 64.0.0) <DB710299-B4D9-3714-66F7-5D2964DE585B> /System/Library/Frameworks/ApplicationServices.framework/Versions/A/Frameworks/CoreGraphics.framework/Versions/A/Resources/libCGXType.A.dylib
> 0x7fff85a05000 - 0x7fff85abbff7 libobjc.A.dylib 227.0.0 (compatibility 1.0.0) <03140531-3B2D-1EBA-DA7F-E12CC8F63969> /usr/lib/libobjc.A.dylib
> 0x7fff86be6000 - 0x7fff86beaff7 libmathCommon.A.dylib 315.0.0 (compatibility 1.0.0) <95718673-FEEE-B6ED-B127-BCDBDB60D4E5> /usr/lib/system/libmathCommon.A.dylib
> 0x7fff86beb000 - 0x7fff86cbffe7 com.apple.CFNetwork 454.12.4 (454.12.4) <C83E2BA1-1818-B3E8-5334-860AD21D1C80> /System/Library/Frameworks/CoreServices.framework/Versions/A/Frameworks/CFNetwork.framework/Versions/A/CFNetwork
> 0x7fff86cc0000 - 0x7fff86d15ff7 com.apple.framework.familycontrols 2.0.2 (2020) <8807EB96-D12D-8601-2E74-25784A0DE4FF> /System/Library/PrivateFrameworks/FamilyControls.framework/Versions/A/FamilyControls
> 0x7fff86d16000 - 0x7fff86d65ff7 com.apple.DirectoryService.PasswordServerFramework 6.1 (6.1) <0731C40D-71EF-B417-C83B-54C3527A36EA> /System/Library/PrivateFrameworks/PasswordServer.framework/Versions/A/PasswordServer
> 0x7fff86d6a000 - 0x7fff86de9fe7 com.apple.audio.CoreAudio 3.2.6 (3.2.6) <79E256EB-43F1-C7AA-6436-124A4FFB02D0> /System/Library/Frameworks/CoreAudio.framework/Versions/A/CoreAudio
> 0x7fff872f1000 - 0x7fff872f7ff7 com.apple.DiskArbitration 2.3 (2.3) <857F6E43-1EF4-7D53-351B-10DE0A8F992A> /System/Library/Frameworks/DiskArbitration.framework/Versions/A/DiskArbitration
> 0x7fff874b9000 - 0x7fff87856fe7 com.apple.QuartzCore 1.6.3 (227.37) <16DFF6CD-EA58-CE62-A1D7-5F6CE3D066DD> /System/Library/Frameworks/QuartzCore.framework/Versions/A/QuartzCore
> 0x7fff87916000 - 0x7fff879fbfef com.apple.DesktopServices 1.5.11 (1.5.11) <39FAA3D2-6863-B5AB-AED9-92D878EA2438> /System/Library/PrivateFrameworks/DesktopServicesPriv.framework/Versions/A/DesktopServicesPriv
> 0x7fff879fc000 - 0x7fff87a21ff7 com.apple.CoreVideo 1.6.2 (45.6) <E138C8E7-3CB6-55A9-0A2C-B73FE63EA288> /System/Library/Frameworks/CoreVideo.framework/Versions/A/CoreVideo
> 0x7fff87a80000 - 0x7fff87a96fe7 com.apple.MultitouchSupport.framework 207.11 (207.11) <8233CE71-6F8D-8B3C-A0E1-E123F6406163> /System/Library/PrivateFrameworks/MultitouchSupport.framework/Versions/A/MultitouchSupport
> 0x7fff87a97000 - 0x7fff87ae6fef libTIFF.dylib ??? (???) <1E2593D1-A7F6-84C6-DF8F-0B46AE445926> /System/Library/Frameworks/ApplicationServices.framework/Versions/A/Frameworks/ImageIO.framework/Versions/A/Resources/libTIFF.dylib
> 0x7fff87b0b000 - 0x7fff87b0eff7 libCoreVMClient.dylib ??? (???) <E03D7C81-A3DA-D44A-A88A-DDBB98AF910B> /System/Library/Frameworks/OpenGL.framework/Versions/A/Libraries/libCoreVMClient.dylib
> 0x7fff87b1b000 - 0x7fff87b1bff7 com.apple.vecLib 3.6 (vecLib 3.6) <96FB6BAD-5568-C4E0-6FA7-02791A58B584> /System/Library/Frameworks/vecLib.framework/Versions/A/vecLib
> 0x7fff8832f000 - 0x7fff88335ff7 com.apple.CommerceCore 1.0 (9.1) <3691E9BA-BCF4-98C7-EFEC-78DA6825004E> /System/Library/PrivateFrameworks/CommerceKit.framework/Versions/A/Frameworks/CommerceCore.framework/Versions/A/CommerceCore
> 0x7fff88336000 - 0x7fff88338fff libRadiance.dylib ??? (???) <A9DB4D5D-4072-971B-DEF6-DDE645F415EA> /System/Library/Frameworks/ApplicationServices.framework/Versions/A/Frameworks/ImageIO.framework/Versions/A/Resources/libRadiance.dylib
> 0x7fff8857f000 - 0x7fff885b0fff libGLImage.dylib ??? (???) <7F102A07-E4FB-9F52-B2F6-4E2D2383CA13> /System/Library/Frameworks/OpenGL.framework/Versions/A/Libraries/libGLImage.dylib
> 0x7fff885b1000 - 0x7fff8868efff com.apple.vImage 4.1 (4.1) <C3F44AA9-6F71-0684-2686-D3BBC903F020> /System/Library/Frameworks/Accelerate.framework/Versions/A/Frameworks/vImage.framework/Versions/A/vImage
> 0x7fff8887e000 - 0x7fff888c8ff7 com.apple.Metadata 10.6.3 (507.15) <2EF19055-D7AE-4D77-E589-7B71B0BC1E59> /System/Library/Frameworks/CoreServices.framework/Versions/A/Frameworks/Metadata.framework/Versions/A/Metadata
> 0x7fff88936000 - 0x7fff88969ff7 libTrueTypeScaler.dylib ??? (???) <69D4A213-45D2-196D-7FF8-B52A31DFD329> /System/Library/Frameworks/ApplicationServices.framework/Versions/A/Frameworks/ATS.framework/Versions/A/Resources/libTrueTypeScaler.dylib
> 0x7fff889c4000 - 0x7fff88a0bff7 com.apple.coreui 2 (114) <923E33CC-83FC-7D35-5603-FB8F348EE34B> /System/Library/PrivateFrameworks/CoreUI.framework/Versions/A/CoreUI
> 0x7fff88a0c000 - 0x7fff88a17ff7 com.apple.speech.recognition.framework 3.11.1 (3.11.1) <3D65E89B-FFC6-4AAF-D5CC-104F967C8131> /System/Library/Frameworks/Carbon.framework/Versions/A/Frameworks/SpeechRecognition.framework/Versions/A/SpeechRecognition
> 0x7fff88a18000 - 0x7fff88a40fff com.apple.DictionaryServices 1.1.2 (1.1.2) <E9269069-93FA-2B71-F9BA-FDDD23C4A65E> /System/Library/Frameworks/CoreServices.framework/Versions/A/Frameworks/DictionaryServices.framework/Versions/A/DictionaryServices
> 0x7fff88d64000 - 0x7fff88d7afef libbsm.0.dylib ??? (???) <42D3023A-A1F7-4121-6417-FCC6B51B3E90> /usr/lib/libbsm.0.dylib
> 0x7fff88d7b000 - 0x7fff88df8fef libstdc++.6.dylib 7.9.0 (compatibility 7.0.0) <35ECA411-2C08-FD7D-11B1-1B7A04921A5C> /usr/lib/libstdc++.6.dylib
> 0x7fff88df9000 - 0x7fff88e85fef SecurityFoundation ??? (???) <3F1F2727-C508-3630-E2C1-38361841FCE4> /System/Library/Frameworks/SecurityFoundation.framework/Versions/A/SecurityFoundation
> 0x7fff88e86000 - 0x7fff88e87fff liblangid.dylib ??? (???) <EA4D1607-2BD5-2EE2-2A3B-632EEE5A444D> /usr/lib/liblangid.dylib
> 0x7fff88f18000 - 0x7fff89056fff com.apple.CoreData 102.1 (251) <9DFE798D-AA52-6A9A-924A-DA73CB94D81A> /System/Library/Frameworks/CoreData.framework/Versions/A/CoreData
> 0x7fff89096000 - 0x7fff89096ff7 com.apple.Accelerate 1.6 (Accelerate 1.6) <15DF8B4A-96B2-CB4E-368D-DEC7DF6B62BB> /System/Library/Frameworks/Accelerate.framework/Versions/A/Accelerate
> 0x7fff89097000 - 0x7fff8909cfff libGFXShared.dylib ??? (???) <1D0D3531-9561-632C-D620-1A8652BEF5BC> /System/Library/Frameworks/OpenGL.framework/Versions/A/Libraries/libGFXShared.dylib
> 0x7fff8909d000 - 0x7fff891d2fff com.apple.audio.toolbox.AudioToolbox 1.6.7 (1.6.7) <E5D7DBDB-6DDF-E6F9-C71C-86F4520EE5A3> /System/Library/Frameworks/AudioToolbox.framework/Versions/A/AudioToolbox
> 0x7fff891d3000 - 0x7fff89212fef libncurses.5.4.dylib 5.4.0 (compatibility 5.4.0) <9D53BE03-6D81-D0CB-F657-4E842E69A66A> /usr/lib/libncurses.5.4.dylib
> 0x7fff89263000 - 0x7fff89263ff7 com.apple.ApplicationServices 38 (38) <10A0B9E9-4988-03D4-FC56-DDE231A02C63> /System/Library/Frameworks/ApplicationServices.framework/Versions/A/ApplicationServices
> 0x7fff89518000 - 0x7fff8951dfff libGIF.dylib ??? (???) <201B8077-B5CC-11AA-E1B0-1D057ABE416A> /System/Library/Frameworks/ApplicationServices.framework/Versions/A/Frameworks/ImageIO.framework/Versions/A/Resources/libGIF.dylib
> 0x7fff8955f000 - 0x7fff89573fff libGL.dylib ??? (???) <2ECE3B0F-39E1-3938-BF27-7205C6D0358B> /System/Library/Frameworks/OpenGL.framework/Versions/A/Libraries/libGL.dylib
> 0x7fff89574000 - 0x7fff89595fff libresolv.9.dylib 41.0.0 (compatibility 1.0.0) <9F322F47-0584-CB7D-5B73-9EBD670851CD> /usr/lib/libresolv.9.dylib
> 0x7fff895d7000 - 0x7fff89687fff edu.mit.Kerberos 6.5.11 (6.5.11) <085D80F5-C9DC-E252-C21B-03295E660C91> /System/Library/Frameworks/Kerberos.framework/Versions/A/Kerberos
> 0x7fff89767000 - 0x7fff897a4ff7 libFontRegistry.dylib ??? (???) <4C3293E2-851B-55CE-3BE3-29C425DD5DFF> /System/Library/Frameworks/ApplicationServices.framework/Versions/A/Frameworks/ATS.framework/Versions/A/Resources/libFontRegistry.dylib
> 0x7fff897a5000 - 0x7fff89866fef com.apple.ColorSync 4.6.6 (4.6.6) <BB2C5813-C61D-3CBA-A8F7-0E59E46EBEE8> /System/Library/Frameworks/ApplicationServices.framework/Versions/A/Frameworks/ColorSync.framework/Versions/A/ColorSync
> 0x7fff89867000 - 0x7fff89879fe7 libsasl2.2.dylib 3.15.0 (compatibility 3.0.0) <76B83C8D-8EFE-4467-0F75-275648AFED97> /usr/lib/libsasl2.2.dylib
> 0x7fff89a61000 - 0x7fff89a6efe7 libCSync.A.dylib 545.0.0 (compatibility 64.0.0) <1C35FA50-9C70-48DC-9E8D-2054F7A266B1> /System/Library/Frameworks/ApplicationServices.framework/Versions/A/Frameworks/CoreGraphics.framework/Versions/A/Resources/libCSync.A.dylib
> 0x7fff89a6f000 - 0x7fff89c30fef libSystem.B.dylib 125.2.11 (compatibility 1.0.0) <9AB4F1D1-89DC-0E8A-DC8E-A4FE4D69DB69> /usr/lib/libSystem.B.dylib
> 0x7fff89c31000 - 0x7fff89d48fef libxml2.2.dylib 10.3.0 (compatibility 10.0.0) <1B27AFDD-DF87-2009-170E-C129E1572E8B> /usr/lib/libxml2.2.dylib
> 0x7fff89d49000 - 0x7fff89d58fef com.apple.opengl 1.6.13 (1.6.13) <516098B3-4517-8A55-64BB-195CDAA5334D> /System/Library/Frameworks/OpenGL.framework/Versions/A/OpenGL
> 0x7fff89d59000 - 0x7fff89dd7ff7 com.apple.CoreText 151.10 (???) <54961997-55D8-DC0F-2634-674E452D5A8E> /System/Library/Frameworks/ApplicationServices.framework/Versions/A/Frameworks/CoreText.framework/Versions/A/CoreText
> 0x7fff89dd8000 - 0x7fff89df1fff com.apple.CFOpenDirectory 10.6 (10.6) <401557B1-C6D1-7E1A-0D7E-941715C37BFA> /System/Library/Frameworks/OpenDirectory.framework/Versions/A/Frameworks/CFOpenDirectory.framework/Versions/A/CFOpenDirectory
> 0x7fff89df2000 - 0x7fff89e3efff libauto.dylib ??? (???) <F7221B46-DC4F-3153-CE61-7F52C8C293CF> /usr/lib/libauto.dylib
> 0x7fff89eb1000 - 0x7fff89f11fe7 com.apple.framework.IOKit 2.0 (???) <4F071EF0-8260-01E9-C641-830E582FA416> /System/Library/Frameworks/IOKit.framework/Versions/A/IOKit
> 0x7fff89f12000 - 0x7fff89f53fff com.apple.SystemConfiguration 1.10.8 (1.10.2) <78D48D27-A9C4-62CA-2803-D0BBED82855A> /System/Library/Frameworks/SystemConfiguration.framework/Versions/A/SystemConfiguration
> 0x7fff89f54000 - 0x7fff8a015fff libFontParser.dylib ??? (???) <A00BB0A7-E46C-1D07-1391-194745566C7E> /System/Library/Frameworks/ApplicationServices.framework/Versions/A/Frameworks/ATS.framework/Versions/A/Resources/libFontParser.dylib
> 0x7fff8a05a000 - 0x7fff8a218fff libicucore.A.dylib 40.0.0 (compatibility 1.0.0) <4274FC73-A257-3A56-4293-5968F3428854> /usr/lib/libicucore.A.dylib
> 0x7fffffe00000 - 0x7fffffe01fff libSystem.B.dylib ??? (???) <9AB4F1D1-89DC-0E8A-DC8E-A4FE4D69DB69> /usr/lib/libSystem.B.dylib
>
>
> ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
>
> In GNU Emacs 24.3.50.1 (x86_64-apple-darwin10.8.0, NS apple-appkit-1038.36)
> of 2014-01-01 on MP.local
> Bzr revision: 115826 eliz@gnu.org-20140101174448-h8pom24vzzonp8wd
> Windowing system distributor `Apple', version 10.3.1038
> Configured using:
> `configure --with-ns'
>
> Important settings:
> locale-coding-system: utf-8-unix
>
> Major mode: Text
>
> Minor modes in effect:
> whitespace-mode: t
> linum-mode: t
> hl-line-mode: t
> flyspell-mode: t
> delete-selection-mode: t
> yas-global-mode: t
> yas-minor-mode: t
> desktop-save-mode: t
> tabbar-mode: t
> highlight-parentheses-mode: t
> font-lock-mode: t
> blink-cursor-mode: t
> visual-line-mode: t
> transient-mark-mode: t
>
> Recent input:
> s-N s-w k <escape> x r e p o r t - e m <return> b u
> g s <return> <backspace> <return>
>
> Recent messages:
> Loading msgdb for %INBOX.Drafts...done
> Loading mail-mime-setup...done
> Updating addresses...done
> Making change-major-mode-hook buffer-local while locally let-bound!
> Type C-c C-x C-z to exit MIME mode, and type C-c C-x ? to get help.
> Saving...done
> Mark set
> [k]ill or [s]ave draft?
> Loading msgdb for +/Users/HOME/.0.data/.0.emacs/.0.mail/msgdb/imap/mail.lawlist.com/lawlist/INBOX.Drafts/spool...done
> *beep*
>
> Load-path shadows:
> /Users/HOME/.0.data/.0.emacs/elpa/flim/md4 hides /Users/HOME/.0.data/.0.emacs/Emacs.app/Contents/Resources/lisp/md4
> /Users/HOME/.0.data/.0.emacs/elpa/flim/hex-util hides /Users/HOME/.0.data/.0.emacs/Emacs.app/Contents/Resources/lisp/hex-util
> /Users/HOME/.0.data/.0.emacs/elpa/flim/sasl hides /Users/HOME/.0.data/.0.emacs/Emacs.app/Contents/Resources/lisp/net/sasl
> /Users/HOME/.0.data/.0.emacs/elpa/flim/sasl-ntlm hides /Users/HOME/.0.data/.0.emacs/Emacs.app/Contents/Resources/lisp/net/sasl-ntlm
> /Users/HOME/.0.data/.0.emacs/elpa/flim/sasl-digest hides /Users/HOME/.0.data/.0.emacs/Emacs.app/Contents/Resources/lisp/net/sasl-digest
> /Users/HOME/.0.data/.0.emacs/elpa/flim/sasl-cram hides /Users/HOME/.0.data/.0.emacs/Emacs.app/Contents/Resources/lisp/net/sasl-cram
> /Users/HOME/.0.data/.0.emacs/elpa/flim/ntlm hides /Users/HOME/.0.data/.0.emacs/Emacs.app/Contents/Resources/lisp/net/ntlm
> /Users/HOME/.0.data/.0.emacs/elpa/flim/hmac-md5 hides /Users/HOME/.0.data/.0.emacs/Emacs.app/Contents/Resources/lisp/net/hmac-md5
> /Users/HOME/.0.data/.0.emacs/elpa/flim/hmac-def hides /Users/HOME/.0.data/.0.emacs/Emacs.app/Contents/Resources/lisp/net/hmac-def
> /Users/HOME/.0.data/.0.emacs/elpa/wanderlust/rfc2368 hides /Users/HOME/.0.data/.0.emacs/Emacs.app/Contents/Resources/lisp/mail/rfc2368
> /Users/HOME/.0.data/.0.emacs/elpa/wanderlust/utf7 hides /Users/HOME/.0.data/.0.emacs/Emacs.app/Contents/Resources/lisp/gnus/utf7
> /Users/HOME/.0.data/.0.emacs/elpa/semi/smime hides /Users/HOME/.0.data/.0.emacs/Emacs.app/Contents/Resources/lisp/gnus/smime
> /Users/HOME/.0.data/.0.emacs/elpa/el-get/.dir-locals hides /Users/HOME/.0.data/.0.emacs/Emacs.app/Contents/Resources/lisp/gnus/.dir-locals
> /Users/HOME/.0.data/.0.emacs/elpa/semi/pgg hides /Users/HOME/.0.data/.0.emacs/Emacs.app/Contents/Resources/lisp/obsolete/pgg
> /Users/HOME/.0.data/.0.emacs/elpa/semi/pgg-pgp5 hides /Users/HOME/.0.data/.0.emacs/Emacs.app/Contents/Resources/lisp/obsolete/pgg-pgp5
> /Users/HOME/.0.data/.0.emacs/elpa/semi/pgg-pgp hides /Users/HOME/.0.data/.0.emacs/Emacs.app/Contents/Resources/lisp/obsolete/pgg-pgp
> /Users/HOME/.0.data/.0.emacs/elpa/semi/pgg-parse hides /Users/HOME/.0.data/.0.emacs/Emacs.app/Contents/Resources/lisp/obsolete/pgg-parse
> /Users/HOME/.0.data/.0.emacs/elpa/semi/pgg-gpg hides /Users/HOME/.0.data/.0.emacs/Emacs.app/Contents/Resources/lisp/obsolete/pgg-gpg
> /Users/HOME/.0.data/.0.emacs/elpa/semi/pgg-def hides /Users/HOME/.0.data/.0.emacs/Emacs.app/Contents/Resources/lisp/obsolete/pgg-def
> /Users/HOME/.0.data/.0.emacs/elpa/utilities/longlines hides /Users/HOME/.0.data/.0.emacs/Emacs.app/Contents/Resources/lisp/obsolete/longlines
>
> Features:
> (shadow emacsbug message rfc822 mml mml-sec mm-decode mm-bodies
> mm-encode mailabbrev gmm-utils mailheader modb-legacy wl-mime
> mime-edit pgg-parse pccl pccl-20 signature mime-setup mail-mime-setup
> semi-setup mime-pgp pgg-def mime-play filename mime-image
> modb-standard elmo-imap4 time-stamp server disp-table whitespace linum
> init-wl wl-demo wl-draft eword-encode wl-template sendmail mail-utils
> elmo-net elmo-cache elmo-map elmo-dop wl-news wl-address wl-thread
> wl-folder wl wl-e21 wl-spam wl-action wl-summary wl-refile wl-util pp
> elmo-flag elmo-localdir wl-message elmo-mime mmelmo-buffer mmelmo-imap
> mime-view mime-conf calist semi-def mmimap mime-parse mmbuffer
> mmgeneric elmo-multi elmo-spam elsp-header elsp-generic elmo
> elmo-signal wl-highlight wl-vars wl-version epg-config elmo-msgdb modb
> modb-generic modb-entity luna mime elmo-util emu invisible inv-23 poem
> poem-e20 poem-e20_3 utf7 eword-decode mel mime-def alist std11
> mcharset mcs-20 mcs-e20 pces pces-e20 pces-20 broken pcustom elmo-date
> elmo-vars elmo-version path-util poe pym static apel-ver product
> w3m-load mime-w3m w3m browse-url doc-view jka-compr image-mode
> w3m-hist w3m-fb bookmark-w3m w3m-ems wid-edit w3m-ccl ccl w3m-favicon
> w3m-image w3m-proc w3m-util hl-line multiple-cursors-autoloads package
> ps-print ps-def lpr bbdb-autoloads bbdb timezone flyspell ispell
> auto-save-buffers-enhanced delsel savehist fill-column-indicator
> highlight-indentation column-marker col-highlight vline
> centered-cursor-mode dired-aux dired yasnippet help-mode debug
> multiple-cursors mc-separate-operations rectangular-region-mode
> mc-mark-more thingatpt mc-cycle-cursors mc-edit-lines
> multiple-cursors-core edmacro kmacro rect saveplace init-auctex
> tex-site desktop frameset init-tabbar tabbar init-org derived cl-macs
> gv holidays hol-loaddefs org-capture org-agenda org-toodledo
> mailcap-toodledo lawlist-tls http-post-simple cl cl-loaddefs cl-lib
> url-http tls url-auth mail-parse rfc2231 rfc2047 rfc2045 ietf-drums
> url-gw url url-proxy url-privacy url-expand url-methods url-history
> url-cookie url-domsuf url-util url-parse auth-source eieio eieio-core
> gnus-util mm-util mail-prsvr password-cache url-vars mailcap json xml
> w3mexcerpt org byte-opt bytecomp byte-compile cconv advice help-fns
> org-macro org-footnote org-pcomplete pcomplete org-list org-faces
> org-entities noutline outline easy-mmode org-version ob-emacs-lisp ob
> ob-tangle org-src ob-ref ob-lob ob-table ob-keys ob-exp ob-comint
> comint ansi-color ring ob-core ob-eval org-compat org-macs
> org-loaddefs format-spec find-func cal-menu calendar cal-loaddefs
> hideshow easymenu highlight-parentheses redo time-date tooltip
> electric uniquify ediff-hook vc-hooks lisp-float-type mwheel ns-win
> tool-bar dnd fontset image regexp-opt fringe tabulated-list newcomment
> lisp-mode prog-mode register page menu-bar rfn-eshadow timer select
> scroll-bar mouse jit-lock font-lock syntax facemenu font-core frame
> cham georgian utf-8-lang misc-lang vietnamese tibetan thai tai-viet
> lao korean japanese hebrew greek romanian slovak czech european
> ethiopic indian cyrillic chinese case-table epa-hook jka-cmpr-hook
> help simple abbrev minibuffer nadvice loaddefs button faces cus-face
> macroexp files text-properties overlay sha1 md5 base64 format env
> code-pages mule custom widget hashtable-print-readable backquote
> make-network-process cocoa ns multi-tty emacs)
>
>
^ permalink raw reply [flat|nested] 8+ messages in thread* bug#16324: 24.3.50; Crashing on OSX 10.6.8 (built --with-ns)
2014-01-02 7:00 bug#16324: 24.3.50; Crashing on OSX 10.6.8 (built --with-ns) Keith David Bershatsky
2014-01-02 9:29 ` Jan Djärv
@ 2014-01-02 23:42 ` Keith David Bershatsky
2014-01-03 0:10 ` Keith David Bershatsky
` (2 subsequent siblings)
4 siblings, 0 replies; 8+ messages in thread
From: Keith David Bershatsky @ 2014-01-02 23:42 UTC (permalink / raw)
To: Jan Djärv; +Cc: 16324@debbugs.gnu.org
Using the bash script below that I modified from an Emacs Wiki describing debugging, here are messages from three crashes that appeared in the terminal window:
Emacs(821,0x7fff71079cc0) malloc: *** error for object 0x11a8e2408: incorrect checksum for freed object - object was probably modified after being freed.
*** set a breakpoint in malloc_error_break to debug
and
MP:~ HOME$ Emacs(733,0x7fff71079cc0) malloc: *** error for object 0x117e9fa08: incorrect checksum for freed object - object was probably modified after being freed.
*** set a breakpoint in malloc_error_break to debug
and
~ HOME$ Emacs(875,0x7fff71079cc0) malloc: *** error for object 0x1198c1c08: incorrect checksum for freed object - object was probably modified after being freed.
*** set a breakpoint in malloc_error_break to debug
#!/bin/sh
if [[ "$1" == "--debug" ]]; then
shift
/Users/HOME/.0.data/.0.emacs/Emacs.app/Contents/MacOS/Emacs $* &
EMACS_PID=$!
cd /Users/HOME/Desktop/emacs-trunk-01-01-2014/src/
gdb /Users/HOME/.0.data/.0.emacs/Emacs.app/Contents/MacOS/Emacs $EMACS_PID &
else
/Users/HOME/.0.data/.0.emacs/Emacs.app/Contents/MacOS/Emacs $* &
fi
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
At Thu, 2 Jan 2014 10:29:22 +0100,
Jan Djärv wrote:
>
> Hello.
>
> This type of backtraces are useless. Get a proper one from the debugger instead. Start the debugger in the src directory.
>
> Jan D.
>
> > 2 jan 2014 kl. 08:00 skrev Keith David Bershatsky <esq@lawlist.com>:
> >
> > On OSX 10.6.8 (Emacs Trunk built January 1, 2014 --with-ns), I'm running a combination of a custom org-agenda in one window and a calendar (marking special dates) in the other window -- the crash occurs as I move forward by month or backward by month, but not any specific month. The crash does not occur with Emacs Trunk built on October 5, 2013, but it does occur on Emacs Trunk versions built on December 23, 2013 and January 1, 2014. My setup is fairly lengthy, and I don't have a specific recipe to reproduce the crash -- however, the crash ALWAYS occurs within the first 12 months in either direction.
> >
> > Process: Emacs [39167]
> > Path: /Users/HOME/.0.data/.0.emacs/Emacs.app/Contents/MacOS/Emacs
> > Identifier: org.gnu.Emacs
> > Version: Version 24.3.50 (9.0)
> > Code Type: X86-64 (Native)
> > Parent Process: launchd [169]
> >
> > Date/Time: 2014-01-01 22:45:12.660 -0800
> > OS Version: Mac OS X 10.6.8 (10K549)
> > Report Version: 6
> >
> > Exception Type: EXC_BAD_ACCESS (SIGABRT)
> > Exception Codes: KERN_INVALID_ADDRESS at 0x000000090c5bb6b8
> > Crashed Thread: 0 Dispatch queue: com.apple.main-thread
> >
> > Thread 0 Crashed: Dispatch queue: com.apple.main-thread
> > 0 libSystem.B.dylib 0x00007fff89abe0b6 __kill + 10
> > 1 org.gnu.Emacs 0x00000001000a51d4 terminate_due_to_signal + 116 (emacs.c:381)
> > 2 org.gnu.Emacs 0x00000001000c2fa3 0x100000000 + 798627
> > 3 org.gnu.Emacs 0x0000000100193d6f ns_term_shutdown + 79 (nsterm.m:4451)
> > 4 org.gnu.Emacs 0x00000001000a4152 shut_down_emacs + 194 (emacs.c:2045)
> > 5 org.gnu.Emacs 0x00000001000a51ab terminate_due_to_signal + 75 (emacs.c:363)
> > 6 org.gnu.Emacs 0x00000001000c303e 0x100000000 + 798782
> > 7 org.gnu.Emacs 0x00000001000c34a2 deliver_fatal_thread_signal + 146 (sysdep.c:1603)
> > 8 libSystem.B.dylib 0x00007fff89ad01ba _sigtramp + 26
> > 9 org.gnu.Emacs 0x0000000100107b40 Fgarbage_collect + 6272 (alloc.c:2975)
> > 10 org.gnu.Emacs 0x000000010011f6bc eval_sub + 236 (eval.c:2078)
> > 11 org.gnu.Emacs 0x000000010011fe74 Fsetq + 132 (eval.c:536)
> > 12 org.gnu.Emacs 0x000000010011fd83 eval_sub + 1971 (eval.c:2124)
> > 13 org.gnu.Emacs 0x000000010011ff5d Fprogn + 45 (eval.c:459)
> > 14 org.gnu.Emacs 0x0000000100123088 Fwhile + 40 (eval.c:986)
> > 15 org.gnu.Emacs 0x000000010011fd83 eval_sub + 1971 (eval.c:2124)
> > 16 org.gnu.Emacs 0x000000010011ff5d Fprogn + 45 (eval.c:459)
> > 17 org.gnu.Emacs 0x00000001001235f1 FletX + 481 (eval.c:897)
> > 18 org.gnu.Emacs 0x000000010011fd83 eval_sub + 1971 (eval.c:2124)
> > 19 org.gnu.Emacs 0x000000010011ff5d Fprogn + 45 (eval.c:459)
> > 20 org.gnu.Emacs 0x00000001001202e0 funcall_lambda + 864 (eval.c:3033)
> > 21 org.gnu.Emacs 0x0000000100121908 apply_lambda + 280 (eval.c:2915)
> > 22 org.gnu.Emacs 0x000000010011f921 eval_sub + 849 (eval.c:2251)
> > 23 org.gnu.Emacs 0x000000010011fe74 Fsetq + 132 (eval.c:536)
> > 24 org.gnu.Emacs 0x000000010011fd83 eval_sub + 1971 (eval.c:2124)
> > 25 org.gnu.Emacs 0x000000010011ff5d Fprogn + 45 (eval.c:459)
> > 26 org.gnu.Emacs 0x000000010011fd83 eval_sub + 1971 (eval.c:2124)
> > 27 org.gnu.Emacs 0x000000010011ff5d Fprogn + 45 (eval.c:459)
> > 28 org.gnu.Emacs 0x0000000100123088 Fwhile + 40 (eval.c:986)
> > 29 org.gnu.Emacs 0x000000010011fd83 eval_sub + 1971 (eval.c:2124)
> > 30 org.gnu.Emacs 0x000000010011ff5d Fprogn + 45 (eval.c:459)
> > 31 org.gnu.Emacs 0x0000000100112ec7 Fsave_restriction + 71 (editfns.c:3415)
> > 32 org.gnu.Emacs 0x000000010011fd83 eval_sub + 1971 (eval.c:2124)
> > 33 org.gnu.Emacs 0x000000010011ff5d Fprogn + 45 (eval.c:459)
> > 34 org.gnu.Emacs 0x0000000100112e07 Fsave_excursion + 71 (editfns.c:941)
> > 35 org.gnu.Emacs 0x000000010011fd83 eval_sub + 1971 (eval.c:2124)
> > 36 org.gnu.Emacs 0x000000010011ff5d Fprogn + 45 (eval.c:459)
> > 37 org.gnu.Emacs 0x0000000100123347 Flet + 599 (eval.c:967)
> > 38 org.gnu.Emacs 0x000000010011fd83 eval_sub + 1971 (eval.c:2124)
> > 39 org.gnu.Emacs 0x000000010011ff5d Fprogn + 45 (eval.c:459)
> > 40 org.gnu.Emacs 0x0000000100112e67 Fsave_current_buffer + 71 (editfns.c:954)
> > 41 org.gnu.Emacs 0x000000010011fd83 eval_sub + 1971 (eval.c:2124)
> > 42 org.gnu.Emacs 0x000000010011ff5d Fprogn + 45 (eval.c:459)
> > 43 org.gnu.Emacs 0x000000010011fd83 eval_sub + 1971 (eval.c:2124)
> > 44 org.gnu.Emacs 0x000000010011ff5d Fprogn + 45 (eval.c:459)
> > 45 org.gnu.Emacs 0x00000001001235f1 FletX + 481 (eval.c:897)
> > 46 org.gnu.Emacs 0x000000010011fd83 eval_sub + 1971 (eval.c:2124)
> > 47 org.gnu.Emacs 0x000000010011ff5d Fprogn + 45 (eval.c:459)
> > 48 org.gnu.Emacs 0x00000001001202e0 funcall_lambda + 864 (eval.c:3033)
> > 49 org.gnu.Emacs 0x000000010012054d Ffuncall + 525 (eval.c:2867)
> > 50 org.gnu.Emacs 0x0000000100120d72 Fapply + 834 (eval.c:2292)
> > 51 org.gnu.Emacs 0x000000010011fd42 eval_sub + 1906 (eval.c:2148)
> > 52 org.gnu.Emacs 0x000000010011fe74 Fsetq + 132 (eval.c:536)
> > 53 org.gnu.Emacs 0x000000010011fd83 eval_sub + 1971 (eval.c:2124)
> > 54 org.gnu.Emacs 0x000000010011ff5d Fprogn + 45 (eval.c:459)
> > 55 org.gnu.Emacs 0x000000010011e8f7 internal_catch + 247 (eval.c:1109)
> > 56 org.gnu.Emacs 0x000000010011fd83 eval_sub + 1971 (eval.c:2124)
> > 57 org.gnu.Emacs 0x000000010011ff5d Fprogn + 45 (eval.c:459)
> > 58 org.gnu.Emacs 0x0000000100123088 Fwhile + 40 (eval.c:986)
> > 59 org.gnu.Emacs 0x000000010011fd83 eval_sub + 1971 (eval.c:2124)
> > 60 org.gnu.Emacs 0x000000010011ff5d Fprogn + 45 (eval.c:459)
> > 61 org.gnu.Emacs 0x0000000100123088 Fwhile + 40 (eval.c:986)
> > 62 org.gnu.Emacs 0x000000010011fd83 eval_sub + 1971 (eval.c:2124)
> > 63 org.gnu.Emacs 0x000000010011ff5d Fprogn + 45 (eval.c:459)
> > 64 org.gnu.Emacs 0x00000001001235f1 FletX + 481 (eval.c:897)
> > 65 org.gnu.Emacs 0x000000010011fd83 eval_sub + 1971 (eval.c:2124)
> > 66 org.gnu.Emacs 0x000000010011ff5d Fprogn + 45 (eval.c:459)
> > 67 org.gnu.Emacs 0x00000001001202e0 funcall_lambda + 864 (eval.c:3033)
> > 68 org.gnu.Emacs 0x0000000100121908 apply_lambda + 280 (eval.c:2915)
> > 69 org.gnu.Emacs 0x000000010011f921 eval_sub + 849 (eval.c:2251)
> > 70 org.gnu.Emacs 0x000000010011ff5d Fprogn + 45 (eval.c:459)
> > 71 org.gnu.Emacs 0x000000010011fd83 eval_sub + 1971 (eval.c:2124)
> > 72 org.gnu.Emacs 0x000000010011ff5d Fprogn + 45 (eval.c:459)
> > 73 org.gnu.Emacs 0x00000001001235f1 FletX + 481 (eval.c:897)
> > 74 org.gnu.Emacs 0x000000010011fd83 eval_sub + 1971 (eval.c:2124)
> > 75 org.gnu.Emacs 0x000000010011ff5d Fprogn + 45 (eval.c:459)
> > 76 org.gnu.Emacs 0x00000001001202e0 funcall_lambda + 864 (eval.c:3033)
> > 77 org.gnu.Emacs 0x0000000100121908 apply_lambda + 280 (eval.c:2915)
> > 78 org.gnu.Emacs 0x000000010011f921 eval_sub + 849 (eval.c:2251)
> > 79 org.gnu.Emacs 0x000000010011ff5d Fprogn + 45 (eval.c:459)
> > 80 org.gnu.Emacs 0x000000010011fd83 eval_sub + 1971 (eval.c:2124)
> > 81 org.gnu.Emacs 0x000000010011ff5d Fprogn + 45 (eval.c:459)
> > 82 org.gnu.Emacs 0x00000001001235f1 FletX + 481 (eval.c:897)
> > 83 org.gnu.Emacs 0x000000010011fd83 eval_sub + 1971 (eval.c:2124)
> > 84 org.gnu.Emacs 0x000000010011ff5d Fprogn + 45 (eval.c:459)
> > 85 org.gnu.Emacs 0x00000001001202e0 funcall_lambda + 864 (eval.c:3033)
> > 86 org.gnu.Emacs 0x0000000100121908 apply_lambda + 280 (eval.c:2915)
> > 87 org.gnu.Emacs 0x000000010011f921 eval_sub + 849 (eval.c:2251)
> > 88 org.gnu.Emacs 0x000000010011ff5d Fprogn + 45 (eval.c:459)
> > 89 org.gnu.Emacs 0x000000010011fd83 eval_sub + 1971 (eval.c:2124)
> > 90 org.gnu.Emacs 0x000000010011ff5d Fprogn + 45 (eval.c:459)
> > 91 org.gnu.Emacs 0x00000001001235f1 FletX + 481 (eval.c:897)
> > 92 org.gnu.Emacs 0x000000010011fd83 eval_sub + 1971 (eval.c:2124)
> > 93 org.gnu.Emacs 0x000000010011ff5d Fprogn + 45 (eval.c:459)
> > 94 org.gnu.Emacs 0x00000001001202e0 funcall_lambda + 864 (eval.c:3033)
> > 95 org.gnu.Emacs 0x0000000100121908 apply_lambda + 280 (eval.c:2915)
> > 96 org.gnu.Emacs 0x000000010011f921 eval_sub + 849 (eval.c:2251)
> > 97 org.gnu.Emacs 0x000000010011ff5d Fprogn + 45 (eval.c:459)
> > 98 org.gnu.Emacs 0x000000010011fd83 eval_sub + 1971 (eval.c:2124)
> > 99 org.gnu.Emacs 0x000000010011ff5d Fprogn + 45 (eval.c:459)
> > 100 org.gnu.Emacs 0x00000001001235f1 FletX + 481 (eval.c:897)
> > 101 org.gnu.Emacs 0x000000010011fd83 eval_sub + 1971 (eval.c:2124)
> > 102 org.gnu.Emacs 0x000000010011ff5d Fprogn + 45 (eval.c:459)
> > 103 org.gnu.Emacs 0x00000001001202e0 funcall_lambda + 864 (eval.c:3033)
> > 104 org.gnu.Emacs 0x0000000100121908 apply_lambda + 280 (eval.c:2915)
> > 105 org.gnu.Emacs 0x000000010011f921 eval_sub + 849 (eval.c:2251)
> > 106 org.gnu.Emacs 0x000000010011ff5d Fprogn + 45 (eval.c:459)
> > 107 org.gnu.Emacs 0x000000010011fd83 eval_sub + 1971 (eval.c:2124)
> > 108 org.gnu.Emacs 0x000000010011ff5d Fprogn + 45 (eval.c:459)
> > 109 org.gnu.Emacs 0x00000001001235f1 FletX + 481 (eval.c:897)
> > 110 org.gnu.Emacs 0x000000010011fd83 eval_sub + 1971 (eval.c:2124)
> > 111 org.gnu.Emacs 0x000000010011ff5d Fprogn + 45 (eval.c:459)
> > 112 org.gnu.Emacs 0x00000001001202e0 funcall_lambda + 864 (eval.c:3033)
> > 113 org.gnu.Emacs 0x0000000100121908 apply_lambda + 280 (eval.c:2915)
> > 114 org.gnu.Emacs 0x000000010011f921 eval_sub + 849 (eval.c:2251)
> > 115 org.gnu.Emacs 0x000000010011ff5d Fprogn + 45 (eval.c:459)
> > 116 org.gnu.Emacs 0x000000010011fd83 eval_sub + 1971 (eval.c:2124)
> > 117 org.gnu.Emacs 0x000000010011ff5d Fprogn + 45 (eval.c:459)
> > 118 org.gnu.Emacs 0x00000001001235f1 FletX + 481 (eval.c:897)
> > 119 org.gnu.Emacs 0x000000010011fd83 eval_sub + 1971 (eval.c:2124)
> > 120 org.gnu.Emacs 0x000000010011ff5d Fprogn + 45 (eval.c:459)
> > 121 org.gnu.Emacs 0x00000001001202e0 funcall_lambda + 864 (eval.c:3033)
> > 122 org.gnu.Emacs 0x0000000100121908 apply_lambda + 280 (eval.c:2915)
> > 123 org.gnu.Emacs 0x000000010011f921 eval_sub + 849 (eval.c:2251)
> > 124 org.gnu.Emacs 0x000000010011ff5d Fprogn + 45 (eval.c:459)
> > 125 org.gnu.Emacs 0x000000010011fd83 eval_sub + 1971 (eval.c:2124)
> > 126 org.gnu.Emacs 0x000000010011ff5d Fprogn + 45 (eval.c:459)
> > 127 org.gnu.Emacs 0x00000001001235f1 FletX + 481 (eval.c:897)
> > 128 org.gnu.Emacs 0x000000010011fd83 eval_sub + 1971 (eval.c:2124)
> > 129 org.gnu.Emacs 0x000000010011ff5d Fprogn + 45 (eval.c:459)
> > 130 org.gnu.Emacs 0x00000001001202e0 funcall_lambda + 864 (eval.c:3033)
> > 131 org.gnu.Emacs 0x000000010012054d Ffuncall + 525 (eval.c:2867)
> > 132 org.gnu.Emacs 0x0000000100120de6 apply1 + 38 (eval.c:2581)
> > 133 org.gnu.Emacs 0x000000010011ca5f Fcall_interactively + 5247 (callint.c:378)
> > 134 org.gnu.Emacs 0x0000000100120751 Ffuncall + 1041 (eval.c:2813)
> > 135 org.gnu.Emacs 0x0000000100157f7b exec_byte_code + 1019 (bytecode.c:919)
> > 136 org.gnu.Emacs 0x000000010012054d Ffuncall + 525 (eval.c:2867)
> > 137 org.gnu.Emacs 0x000000010012097e call1 + 30 (eval.c:2606)
> > 138 org.gnu.Emacs 0x00000001000ba1c7 command_loop_1 + 1367 (keyboard.c:1560)
> > 139 org.gnu.Emacs 0x000000010011ea43 internal_condition_case + 259 (eval.c:1345)
> > 140 org.gnu.Emacs 0x00000001000affd7 command_loop_2 + 55 (keyboard.c:1171)
> > 141 org.gnu.Emacs 0x000000010011e8f7 internal_catch + 247 (eval.c:1109)
> > 142 org.gnu.Emacs 0x00000001000af45c recursive_edit_1 + 364 (keyboard.c:1150)
> > 143 org.gnu.Emacs 0x00000001000b1897 Frecursive_edit + 215 (keyboard.c:842)
> > 144 org.gnu.Emacs 0x00000001000a79b3 main + 2819 (emacs.c:1640)
> > 145 org.gnu.Emacs 0x00000001000015a4 start + 52
> >
> > Thread 1: Dispatch queue: com.apple.libdispatch-manager
> > 0 libSystem.B.dylib 0x00007fff89a88c0a kevent + 10
> > 1 libSystem.B.dylib 0x00007fff89a8aadd _dispatch_mgr_invoke + 154
> > 2 libSystem.B.dylib 0x00007fff89a8a7b4 _dispatch_queue_invoke + 185
> > 3 libSystem.B.dylib 0x00007fff89a8a2de _dispatch_worker_thread2 + 252
> > 4 libSystem.B.dylib 0x00007fff89a89c08 _pthread_wqthread + 353
> > 5 libSystem.B.dylib 0x00007fff89a89aa5 start_wqthread + 13
> >
> > Thread 2:
> > 0 libSystem.B.dylib 0x00007fff89ab3932 select$DARWIN_EXTSN + 10
> > 1 org.gnu.Emacs 0x000000010019b6b8 -[EmacsApp fd_handler:] + 632 (nsterm.m:4864)
> > 2 com.apple.Foundation 0x00007fff8392b204 __NSThread__main__ + 1429
> > 3 libSystem.B.dylib 0x00007fff89aa8fd6 _pthread_start + 331
> > 4 libSystem.B.dylib 0x00007fff89aa8e89 thread_start + 13
> >
> > Thread 3:
> > 0 libSystem.B.dylib 0x00007fff89a89a2a __workq_kernreturn + 10
> > 1 libSystem.B.dylib 0x00007fff89a89e3c _pthread_wqthread + 917
> > 2 libSystem.B.dylib 0x00007fff89a89aa5 start_wqthread + 13
> >
> > Thread 0 crashed with X86 Thread State (64-bit):
> > rax: 0x0000000000000000 rbx: 0x0000000000000006 rcx: 0x00007fff5fbfb298 rdx: 0x0000000000000000
> > rdi: 0x00000000000098ff rsi: 0x0000000000000006 rbp: 0x00007fff5fbfb2c0 rsp: 0x00007fff5fbfb298
> > r8: 0x00007fff70683760 r9: 0x00007fff5fbfb240 r10: 0x00007fff89ad1542 r11: 0xffffff80002e4730
> > r12: 0x0000000000000028 r13: 0x000000010180303a r14: 0x000000000000000b r15: 0x00000001005c3018
> > rip: 0x00007fff89abe0b6 rfl: 0x0000000000000206 cr2: 0x00000001000a5160
> >
> > Binary Images:
> > 0x100000000 - 0x100224fff +org.gnu.Emacs Version 24.3.50 (9.0) <0265278B-BBC8-C2D7-6848-CAE8A4F3D8DC> /Users/HOME/.0.data/.0.emacs/Emacs.app/Contents/MacOS/Emacs
> > 0x7fff5fc00000 - 0x7fff5fc3be0f dyld 132.1 (???) <29DECB19-0193-2575-D838-CF743F0400B2> /usr/lib/dyld
> > 0x7fff80003000 - 0x7fff80044fef com.apple.QD 3.36 (???) <5DC41E81-32C9-65B2-5528-B33E934D5BB4> /System/Library/Frameworks/ApplicationServices.framework/Versions/A/Frameworks/QD.framework/Versions/A/QD
> > 0x7fff80045000 - 0x7fff80488fef libLAPACK.dylib 219.0.0 (compatibility 1.0.0) <0CC61C98-FF51-67B3-F3D8-C5E430C201A9> /System/Library/Frameworks/Accelerate.framework/Versions/A/Frameworks/vecLib.framework/Versions/A/libLAPACK.dylib
> > 0x7fff804a1000 - 0x7fff804c1ff7 com.apple.DirectoryService.Framework 3.6 (621.12) <A4685F06-5881-35F5-764D-C380304C1CE8> /System/Library/Frameworks/DirectoryService.framework/Versions/A/DirectoryService
> > 0x7fff804c2000 - 0x7fff804c2ff7 com.apple.Accelerate.vecLib 3.6 (vecLib 3.6) <4CCE5D69-F1B3-8FD3-1483-E0271DB2CCF3> /System/Library/Frameworks/Accelerate.framework/Versions/A/Frameworks/vecLib.framework/Versions/A/vecLib
> > 0x7fff804c3000 - 0x7fff804d1ff7 libkxld.dylib ??? (???) <8145A534-95CC-9F3C-B78B-AC9898F38C6F> /usr/lib/system/libkxld.dylib
> > 0x7fff805ec000 - 0x7fff805edff7 com.apple.audio.units.AudioUnit 1.6.7 (1.6.7) <53299948-2554-0F8F-7501-04B34E49F6CF> /System/Library/Frameworks/AudioUnit.framework/Versions/A/AudioUnit
> > 0x7fff8075f000 - 0x7fff807f9fe7 com.apple.ApplicationServices.ATS 275.16 (???) <4B70A2FC-1902-5F27-5C3B-5C78C283C6EA> /System/Library/Frameworks/ApplicationServices.framework/Versions/A/Frameworks/ATS.framework/Versions/A/ATS
> > 0x7fff80800000 - 0x7fff80843ff7 libRIP.A.dylib 545.0.0 (compatibility 64.0.0) <5FF3D7FD-84D8-C5FA-D640-90BB82EC651D> /System/Library/Frameworks/ApplicationServices.framework/Versions/A/Frameworks/CoreGraphics.framework/Versions/A/Resources/libRIP.A.dylib
> > 0x7fff80844000 - 0x7fff80b78fef com.apple.CoreServices.CarbonCore 861.39 (861.39) <1386A24D-DD15-5903-057E-4A224FAF580B> /System/Library/Frameworks/CoreServices.framework/Versions/A/Frameworks/CarbonCore.framework/Versions/A/CarbonCore
> > 0x7fff80dda000 - 0x7fff80e2dff7 com.apple.HIServices 1.8.3 (???) <F6E0C7A7-C11D-0096-4DDA-2C77793AA6CD> /System/Library/Frameworks/ApplicationServices.framework/Versions/A/Frameworks/HIServices.framework/Versions/A/HIServices
> > 0x7fff810e2000 - 0x7fff810e9fff com.apple.OpenDirectory 10.6 (10.6) <4FF6AD25-0916-B21C-9E88-2CC42D90EAC7> /System/Library/Frameworks/OpenDirectory.framework/Versions/A/OpenDirectory
> > 0x7fff81339000 - 0x7fff81637fff com.apple.HIToolbox 1.6.5 (???) <AD1C18F6-51CB-7E39-35DD-F16B1EB978A8> /System/Library/Frameworks/Carbon.framework/Versions/A/Frameworks/HIToolbox.framework/Versions/A/HIToolbox
> > 0x7fff81638000 - 0x7fff81673fff com.apple.AE 496.5 (496.5) <208DF391-4DE6-81ED-C697-14A2930D1BC6> /System/Library/Frameworks/CoreServices.framework/Versions/A/Frameworks/AE.framework/Versions/A/AE
> > 0x7fff81674000 - 0x7fff81704fff com.apple.SearchKit 1.3.0 (1.3.0) <4175DC31-1506-228A-08FD-C704AC9DF642> /System/Library/Frameworks/CoreServices.framework/Versions/A/Frameworks/SearchKit.framework/Versions/A/SearchKit
> > 0x7fff81705000 - 0x7fff81716ff7 libz.1.dylib 1.2.3 (compatibility 1.0.0) <97019C74-161A-3488-41EC-A6CA8738418C> /usr/lib/libz.1.dylib
> > 0x7fff81717000 - 0x7fff8175fff7 libvDSP.dylib 268.0.1 (compatibility 1.0.0) <98FC4457-F405-0262-00F7-56119CA107B6> /System/Library/Frameworks/Accelerate.framework/Versions/A/Frameworks/vecLib.framework/Versions/A/libvDSP.dylib
> > 0x7fff81760000 - 0x7fff81800fff com.apple.LaunchServices 362.3 (362.3) <B90B7C31-FEF8-3C26-BFB3-D8A48BD2C0DA> /System/Library/Frameworks/CoreServices.framework/Versions/A/Frameworks/LaunchServices.framework/Versions/A/LaunchServices
> > 0x7fff81801000 - 0x7fff81efdff7 com.apple.CoreGraphics 1.545.0 (???) <58D597B1-EB3B-710E-0B8C-EC114D54E11B> /System/Library/Frameworks/ApplicationServices.framework/Versions/A/Frameworks/CoreGraphics.framework/Versions/A/CoreGraphics
> > 0x7fff81efe000 - 0x7fff81f83ff7 com.apple.print.framework.PrintCore 6.3 (312.7) <CDFE82DD-D811-A091-179F-6E76069B432D> /System/Library/Frameworks/ApplicationServices.framework/Versions/A/Frameworks/PrintCore.framework/Versions/A/PrintCore
> > 0x7fff81f94000 - 0x7fff81fbbff7 libJPEG.dylib ??? (???) <46A413EA-4FD1-A050-2EF0-6279F3EAD581> /System/Library/Frameworks/ApplicationServices.framework/Versions/A/Frameworks/ImageIO.framework/Versions/A/Resources/libJPEG.dylib
> > 0x7fff822bf000 - 0x7fff8238afff ColorSyncDeprecated.dylib 4.6.0 (compatibility 1.0.0) <E72880D9-3B5D-D086-9266-F4F3C294619F> /System/Library/Frameworks/ApplicationServices.framework/Frameworks/ColorSync.framework/Versions/A/Resources/ColorSyncDeprecated.dylib
> > 0x7fff8238b000 - 0x7fff8238bff7 com.apple.CoreServices 44 (44) <DC7400FB-851E-7B8A-5BF6-6F50094302FB> /System/Library/Frameworks/CoreServices.framework/Versions/A/CoreServices
> > 0x7fff8238c000 - 0x7fff823d5fef libGLU.dylib ??? (???) <1C050088-4AB2-2BC2-62E6-C969F925A945> /System/Library/Frameworks/OpenGL.framework/Versions/A/Libraries/libGLU.dylib
> > 0x7fff82406000 - 0x7fff82520fef libGLProgrammability.dylib ??? (???) <8A4B86E3-0FA7-8684-2EF2-C5F8079428DB> /System/Library/Frameworks/OpenGL.framework/Versions/A/Libraries/libGLProgrammability.dylib
> > 0x7fff82521000 - 0x7fff827aaff7 com.apple.security 6.1.2 (55002) <4419AFFC-DAE7-873E-6A7D-5C9A5A4497A6> /System/Library/Frameworks/Security.framework/Versions/A/Security
> > 0x7fff827ab000 - 0x7fff827bfff7 com.apple.speech.synthesis.framework 3.10.35 (3.10.35) <621B7415-A0B9-07A7-F313-36BEEDD7B132> /System/Library/Frameworks/ApplicationServices.framework/Versions/A/Frameworks/SpeechSynthesis.framework/Versions/A/SpeechSynthesis
> > 0x7fff82813000 - 0x7fff8283eff7 libxslt.1.dylib 3.24.0 (compatibility 3.0.0) <8AB4CA9E-435A-33DA-7041-904BA7FA11D5> /usr/lib/libxslt.1.dylib
> > 0x7fff8283f000 - 0x7fff82854ff7 com.apple.LangAnalysis 1.6.6 (1.6.6) <1AE1FE8F-2204-4410-C94E-0E93B003BEDA> /System/Library/Frameworks/ApplicationServices.framework/Versions/A/Frameworks/LangAnalysis.framework/Versions/A/LangAnalysis
> > 0x7fff82915000 - 0x7fff8311ffe7 libBLAS.dylib 219.0.0 (compatibility 1.0.0) <FC941ECB-71D0-FAE3-DCBF-C5A619E594B8> /System/Library/Frameworks/Accelerate.framework/Versions/A/Frameworks/vecLib.framework/Versions/A/libBLAS.dylib
> > 0x7fff83281000 - 0x7fff836c8fef com.apple.RawCamera.bundle 3.7.1 (570) <5AFA87CA-DC3D-F84E-7EA1-6EABA8807766> /System/Library/CoreServices/RawCamera.bundle/Contents/MacOS/RawCamera
> > 0x7fff836ce000 - 0x7fff837edfe7 libcrypto.0.9.8.dylib 0.9.8 (compatibility 0.9.8) <14115D29-432B-CF02-6B24-A60CC533A09E> /usr/lib/libcrypto.0.9.8.dylib
> > 0x7fff8391a000 - 0x7fff83b9cfe7 com.apple.Foundation 6.6.7 (751.62) <6F2A5BBF-6990-D561-2928-AD61E94036D9> /System/Library/Frameworks/Foundation.framework/Versions/C/Foundation
> > 0x7fff83bab000 - 0x7fff83bbafff com.apple.NetFS 3.2.2 (3.2.2) <7CCBD70E-BF31-A7A7-DB98-230687773145> /System/Library/Frameworks/NetFS.framework/Versions/A/NetFS
> > 0x7fff83bbb000 - 0x7fff83bdefff com.apple.opencl 12.3.6 (12.3.6) <42FA5783-EB80-1168-4015-B8C68F55842F> /System/Library/Frameworks/OpenCL.framework/Versions/A/OpenCL
> > 0x7fff83bdf000 - 0x7fff83d56fe7 com.apple.CoreFoundation 6.6.5 (550.43) <31A1C118-AD96-0A11-8BDF-BD55B9940EDC> /System/Library/Frameworks/CoreFoundation.framework/Versions/A/CoreFoundation
> > 0x7fff83d85000 - 0x7fff8477fff7 com.apple.AppKit 6.6.8 (1038.36) <4CFBE04C-8FB3-B0EA-8DDB-7E7D10E9D251> /System/Library/Frameworks/AppKit.framework/Versions/C/AppKit
> > 0x7fff84987000 - 0x7fff84a3cfe7 com.apple.ink.framework 1.3.3 (107) <8C36373C-5473-3A6A-4972-BC29D504250F> /System/Library/Frameworks/Carbon.framework/Versions/A/Frameworks/Ink.framework/Versions/A/Ink
> > 0x7fff84a6c000 - 0x7fff84aa6fff libcups.2.dylib 2.8.0 (compatibility 2.0.0) <539EBFDD-96D6-FB07-B128-40232C408757> /usr/lib/libcups.2.dylib
> > 0x7fff84aa7000 - 0x7fff84aadff7 IOSurface ??? (???) <8E302BB2-0704-C6AB-BD2F-C2A6C6A2E2C3> /System/Library/Frameworks/IOSurface.framework/Versions/A/IOSurface
> > 0x7fff84aae000 - 0x7fff84acbff7 libPng.dylib ??? (???) <6D8E515B-E0A2-2BA1-9CAC-8CB8A8B35879> /System/Library/Frameworks/ApplicationServices.framework/Versions/A/Frameworks/ImageIO.framework/Versions/A/Resources/libPng.dylib
> > 0x7fff84e1b000 - 0x7fff84ed8fff com.apple.CoreServices.OSServices 359.2 (359.2) <BBB8888E-18DE-5D09-3C3A-F4C029EC7886> /System/Library/Frameworks/CoreServices.framework/Versions/A/Frameworks/OSServices.framework/Versions/A/OSServices
> > 0x7fff8571a000 - 0x7fff857d3fff libsqlite3.dylib 9.6.0 (compatibility 9.0.0) <2C5ED312-E646-9ADE-73A9-6199A2A43150> /usr/lib/libsqlite3.dylib
> > 0x7fff857d4000 - 0x7fff85992ff7 com.apple.ImageIO.framework 3.0.4 (3.0.4) <0A4F51A1-4502-767B-8A4E-F14C6214EF88> /System/Library/Frameworks/ApplicationServices.framework/Versions/A/Frameworks/ImageIO.framework/Versions/A/ImageIO
> > 0x7fff85993000 - 0x7fff859fdfe7 libvMisc.dylib 268.0.1 (compatibility 1.0.0) <AF0EA96D-000F-8C12-B952-CB7E00566E08> /System/Library/Frameworks/Accelerate.framework/Versions/A/Frameworks/vecLib.framework/Versions/A/libvMisc.dylib
> > 0x7fff859fe000 - 0x7fff859ffff7 com.apple.TrustEvaluationAgent 1.1 (1) <5952A9FA-BC2B-16EF-91A7-43902A5C07B6> /System/Library/PrivateFrameworks/TrustEvaluationAgent.framework/Versions/A/TrustEvaluationAgent
> > 0x7fff85a00000 - 0x7fff85a04ff7 libCGXType.A.dylib 545.0.0 (compatibility 64.0.0) <DB710299-B4D9-3714-66F7-5D2964DE585B> /System/Library/Frameworks/ApplicationServices.framework/Versions/A/Frameworks/CoreGraphics.framework/Versions/A/Resources/libCGXType.A.dylib
> > 0x7fff85a05000 - 0x7fff85abbff7 libobjc.A.dylib 227.0.0 (compatibility 1.0.0) <03140531-3B2D-1EBA-DA7F-E12CC8F63969> /usr/lib/libobjc.A.dylib
> > 0x7fff86be6000 - 0x7fff86beaff7 libmathCommon.A.dylib 315.0.0 (compatibility 1.0.0) <95718673-FEEE-B6ED-B127-BCDBDB60D4E5> /usr/lib/system/libmathCommon.A.dylib
> > 0x7fff86beb000 - 0x7fff86cbffe7 com.apple.CFNetwork 454.12.4 (454.12.4) <C83E2BA1-1818-B3E8-5334-860AD21D1C80> /System/Library/Frameworks/CoreServices.framework/Versions/A/Frameworks/CFNetwork.framework/Versions/A/CFNetwork
> > 0x7fff86cc0000 - 0x7fff86d15ff7 com.apple.framework.familycontrols 2.0.2 (2020) <8807EB96-D12D-8601-2E74-25784A0DE4FF> /System/Library/PrivateFrameworks/FamilyControls.framework/Versions/A/FamilyControls
> > 0x7fff86d16000 - 0x7fff86d65ff7 com.apple.DirectoryService.PasswordServerFramework 6.1 (6.1) <0731C40D-71EF-B417-C83B-54C3527A36EA> /System/Library/PrivateFrameworks/PasswordServer.framework/Versions/A/PasswordServer
> > 0x7fff86d6a000 - 0x7fff86de9fe7 com.apple.audio.CoreAudio 3.2.6 (3.2.6) <79E256EB-43F1-C7AA-6436-124A4FFB02D0> /System/Library/Frameworks/CoreAudio.framework/Versions/A/CoreAudio
> > 0x7fff872f1000 - 0x7fff872f7ff7 com.apple.DiskArbitration 2.3 (2.3) <857F6E43-1EF4-7D53-351B-10DE0A8F992A> /System/Library/Frameworks/DiskArbitration.framework/Versions/A/DiskArbitration
> > 0x7fff874b9000 - 0x7fff87856fe7 com.apple.QuartzCore 1.6.3 (227.37) <16DFF6CD-EA58-CE62-A1D7-5F6CE3D066DD> /System/Library/Frameworks/QuartzCore.framework/Versions/A/QuartzCore
> > 0x7fff87916000 - 0x7fff879fbfef com.apple.DesktopServices 1.5.11 (1.5.11) <39FAA3D2-6863-B5AB-AED9-92D878EA2438> /System/Library/PrivateFrameworks/DesktopServicesPriv.framework/Versions/A/DesktopServicesPriv
> > 0x7fff879fc000 - 0x7fff87a21ff7 com.apple.CoreVideo 1.6.2 (45.6) <E138C8E7-3CB6-55A9-0A2C-B73FE63EA288> /System/Library/Frameworks/CoreVideo.framework/Versions/A/CoreVideo
> > 0x7fff87a80000 - 0x7fff87a96fe7 com.apple.MultitouchSupport.framework 207.11 (207.11) <8233CE71-6F8D-8B3C-A0E1-E123F6406163> /System/Library/PrivateFrameworks/MultitouchSupport.framework/Versions/A/MultitouchSupport
> > 0x7fff87a97000 - 0x7fff87ae6fef libTIFF.dylib ??? (???) <1E2593D1-A7F6-84C6-DF8F-0B46AE445926> /System/Library/Frameworks/ApplicationServices.framework/Versions/A/Frameworks/ImageIO.framework/Versions/A/Resources/libTIFF.dylib
> > 0x7fff87b0b000 - 0x7fff87b0eff7 libCoreVMClient.dylib ??? (???) <E03D7C81-A3DA-D44A-A88A-DDBB98AF910B> /System/Library/Frameworks/OpenGL.framework/Versions/A/Libraries/libCoreVMClient.dylib
> > 0x7fff87b1b000 - 0x7fff87b1bff7 com.apple.vecLib 3.6 (vecLib 3.6) <96FB6BAD-5568-C4E0-6FA7-02791A58B584> /System/Library/Frameworks/vecLib.framework/Versions/A/vecLib
> > 0x7fff8832f000 - 0x7fff88335ff7 com.apple.CommerceCore 1.0 (9.1) <3691E9BA-BCF4-98C7-EFEC-78DA6825004E> /System/Library/PrivateFrameworks/CommerceKit.framework/Versions/A/Frameworks/CommerceCore.framework/Versions/A/CommerceCore
> > 0x7fff88336000 - 0x7fff88338fff libRadiance.dylib ??? (???) <A9DB4D5D-4072-971B-DEF6-DDE645F415EA> /System/Library/Frameworks/ApplicationServices.framework/Versions/A/Frameworks/ImageIO.framework/Versions/A/Resources/libRadiance.dylib
> > 0x7fff8857f000 - 0x7fff885b0fff libGLImage.dylib ??? (???) <7F102A07-E4FB-9F52-B2F6-4E2D2383CA13> /System/Library/Frameworks/OpenGL.framework/Versions/A/Libraries/libGLImage.dylib
> > 0x7fff885b1000 - 0x7fff8868efff com.apple.vImage 4.1 (4.1) <C3F44AA9-6F71-0684-2686-D3BBC903F020> /System/Library/Frameworks/Accelerate.framework/Versions/A/Frameworks/vImage.framework/Versions/A/vImage
> > 0x7fff8887e000 - 0x7fff888c8ff7 com.apple.Metadata 10.6.3 (507.15) <2EF19055-D7AE-4D77-E589-7B71B0BC1E59> /System/Library/Frameworks/CoreServices.framework/Versions/A/Frameworks/Metadata.framework/Versions/A/Metadata
> > 0x7fff88936000 - 0x7fff88969ff7 libTrueTypeScaler.dylib ??? (???) <69D4A213-45D2-196D-7FF8-B52A31DFD329> /System/Library/Frameworks/ApplicationServices.framework/Versions/A/Frameworks/ATS.framework/Versions/A/Resources/libTrueTypeScaler.dylib
> > 0x7fff889c4000 - 0x7fff88a0bff7 com.apple.coreui 2 (114) <923E33CC-83FC-7D35-5603-FB8F348EE34B> /System/Library/PrivateFrameworks/CoreUI.framework/Versions/A/CoreUI
> > 0x7fff88a0c000 - 0x7fff88a17ff7 com.apple.speech.recognition.framework 3.11.1 (3.11.1) <3D65E89B-FFC6-4AAF-D5CC-104F967C8131> /System/Library/Frameworks/Carbon.framework/Versions/A/Frameworks/SpeechRecognition.framework/Versions/A/SpeechRecognition
> > 0x7fff88a18000 - 0x7fff88a40fff com.apple.DictionaryServices 1.1.2 (1.1.2) <E9269069-93FA-2B71-F9BA-FDDD23C4A65E> /System/Library/Frameworks/CoreServices.framework/Versions/A/Frameworks/DictionaryServices.framework/Versions/A/DictionaryServices
> > 0x7fff88d64000 - 0x7fff88d7afef libbsm.0.dylib ??? (???) <42D3023A-A1F7-4121-6417-FCC6B51B3E90> /usr/lib/libbsm.0.dylib
> > 0x7fff88d7b000 - 0x7fff88df8fef libstdc++.6.dylib 7.9.0 (compatibility 7.0.0) <35ECA411-2C08-FD7D-11B1-1B7A04921A5C> /usr/lib/libstdc++.6.dylib
> > 0x7fff88df9000 - 0x7fff88e85fef SecurityFoundation ??? (???) <3F1F2727-C508-3630-E2C1-38361841FCE4> /System/Library/Frameworks/SecurityFoundation.framework/Versions/A/SecurityFoundation
> > 0x7fff88e86000 - 0x7fff88e87fff liblangid.dylib ??? (???) <EA4D1607-2BD5-2EE2-2A3B-632EEE5A444D> /usr/lib/liblangid.dylib
> > 0x7fff88f18000 - 0x7fff89056fff com.apple.CoreData 102.1 (251) <9DFE798D-AA52-6A9A-924A-DA73CB94D81A> /System/Library/Frameworks/CoreData.framework/Versions/A/CoreData
> > 0x7fff89096000 - 0x7fff89096ff7 com.apple.Accelerate 1.6 (Accelerate 1.6) <15DF8B4A-96B2-CB4E-368D-DEC7DF6B62BB> /System/Library/Frameworks/Accelerate.framework/Versions/A/Accelerate
> > 0x7fff89097000 - 0x7fff8909cfff libGFXShared.dylib ??? (???) <1D0D3531-9561-632C-D620-1A8652BEF5BC> /System/Library/Frameworks/OpenGL.framework/Versions/A/Libraries/libGFXShared.dylib
> > 0x7fff8909d000 - 0x7fff891d2fff com.apple.audio.toolbox.AudioToolbox 1.6.7 (1.6.7) <E5D7DBDB-6DDF-E6F9-C71C-86F4520EE5A3> /System/Library/Frameworks/AudioToolbox.framework/Versions/A/AudioToolbox
> > 0x7fff891d3000 - 0x7fff89212fef libncurses.5.4.dylib 5.4.0 (compatibility 5.4.0) <9D53BE03-6D81-D0CB-F657-4E842E69A66A> /usr/lib/libncurses.5.4.dylib
> > 0x7fff89263000 - 0x7fff89263ff7 com.apple.ApplicationServices 38 (38) <10A0B9E9-4988-03D4-FC56-DDE231A02C63> /System/Library/Frameworks/ApplicationServices.framework/Versions/A/ApplicationServices
> > 0x7fff89518000 - 0x7fff8951dfff libGIF.dylib ??? (???) <201B8077-B5CC-11AA-E1B0-1D057ABE416A> /System/Library/Frameworks/ApplicationServices.framework/Versions/A/Frameworks/ImageIO.framework/Versions/A/Resources/libGIF.dylib
> > 0x7fff8955f000 - 0x7fff89573fff libGL.dylib ??? (???) <2ECE3B0F-39E1-3938-BF27-7205C6D0358B> /System/Library/Frameworks/OpenGL.framework/Versions/A/Libraries/libGL.dylib
> > 0x7fff89574000 - 0x7fff89595fff libresolv.9.dylib 41.0.0 (compatibility 1.0.0) <9F322F47-0584-CB7D-5B73-9EBD670851CD> /usr/lib/libresolv.9.dylib
> > 0x7fff895d7000 - 0x7fff89687fff edu.mit.Kerberos 6.5.11 (6.5.11) <085D80F5-C9DC-E252-C21B-03295E660C91> /System/Library/Frameworks/Kerberos.framework/Versions/A/Kerberos
> > 0x7fff89767000 - 0x7fff897a4ff7 libFontRegistry.dylib ??? (???) <4C3293E2-851B-55CE-3BE3-29C425DD5DFF> /System/Library/Frameworks/ApplicationServices.framework/Versions/A/Frameworks/ATS.framework/Versions/A/Resources/libFontRegistry.dylib
> > 0x7fff897a5000 - 0x7fff89866fef com.apple.ColorSync 4.6.6 (4.6.6) <BB2C5813-C61D-3CBA-A8F7-0E59E46EBEE8> /System/Library/Frameworks/ApplicationServices.framework/Versions/A/Frameworks/ColorSync.framework/Versions/A/ColorSync
> > 0x7fff89867000 - 0x7fff89879fe7 libsasl2.2.dylib 3.15.0 (compatibility 3.0.0) <76B83C8D-8EFE-4467-0F75-275648AFED97> /usr/lib/libsasl2.2.dylib
> > 0x7fff89a61000 - 0x7fff89a6efe7 libCSync.A.dylib 545.0.0 (compatibility 64.0.0) <1C35FA50-9C70-48DC-9E8D-2054F7A266B1> /System/Library/Frameworks/ApplicationServices.framework/Versions/A/Frameworks/CoreGraphics.framework/Versions/A/Resources/libCSync.A.dylib
> > 0x7fff89a6f000 - 0x7fff89c30fef libSystem.B.dylib 125.2.11 (compatibility 1.0.0) <9AB4F1D1-89DC-0E8A-DC8E-A4FE4D69DB69> /usr/lib/libSystem.B.dylib
> > 0x7fff89c31000 - 0x7fff89d48fef libxml2.2.dylib 10.3.0 (compatibility 10.0.0) <1B27AFDD-DF87-2009-170E-C129E1572E8B> /usr/lib/libxml2.2.dylib
> > 0x7fff89d49000 - 0x7fff89d58fef com.apple.opengl 1.6.13 (1.6.13) <516098B3-4517-8A55-64BB-195CDAA5334D> /System/Library/Frameworks/OpenGL.framework/Versions/A/OpenGL
> > 0x7fff89d59000 - 0x7fff89dd7ff7 com.apple.CoreText 151.10 (???) <54961997-55D8-DC0F-2634-674E452D5A8E> /System/Library/Frameworks/ApplicationServices.framework/Versions/A/Frameworks/CoreText.framework/Versions/A/CoreText
> > 0x7fff89dd8000 - 0x7fff89df1fff com.apple.CFOpenDirectory 10.6 (10.6) <401557B1-C6D1-7E1A-0D7E-941715C37BFA> /System/Library/Frameworks/OpenDirectory.framework/Versions/A/Frameworks/CFOpenDirectory.framework/Versions/A/CFOpenDirectory
> > 0x7fff89df2000 - 0x7fff89e3efff libauto.dylib ??? (???) <F7221B46-DC4F-3153-CE61-7F52C8C293CF> /usr/lib/libauto.dylib
> > 0x7fff89eb1000 - 0x7fff89f11fe7 com.apple.framework.IOKit 2.0 (???) <4F071EF0-8260-01E9-C641-830E582FA416> /System/Library/Frameworks/IOKit.framework/Versions/A/IOKit
> > 0x7fff89f12000 - 0x7fff89f53fff com.apple.SystemConfiguration 1.10.8 (1.10.2) <78D48D27-A9C4-62CA-2803-D0BBED82855A> /System/Library/Frameworks/SystemConfiguration.framework/Versions/A/SystemConfiguration
> > 0x7fff89f54000 - 0x7fff8a015fff libFontParser.dylib ??? (???) <A00BB0A7-E46C-1D07-1391-194745566C7E> /System/Library/Frameworks/ApplicationServices.framework/Versions/A/Frameworks/ATS.framework/Versions/A/Resources/libFontParser.dylib
> > 0x7fff8a05a000 - 0x7fff8a218fff libicucore.A.dylib 40.0.0 (compatibility 1.0.0) <4274FC73-A257-3A56-4293-5968F3428854> /usr/lib/libicucore.A.dylib
> > 0x7fffffe00000 - 0x7fffffe01fff libSystem.B.dylib ??? (???) <9AB4F1D1-89DC-0E8A-DC8E-A4FE4D69DB69> /usr/lib/libSystem.B.dylib
> >
> >
> > ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
> >
> > In GNU Emacs 24.3.50.1 (x86_64-apple-darwin10.8.0, NS apple-appkit-1038.36)
> > of 2014-01-01 on MP.local
> > Bzr revision: 115826 eliz@gnu.org-20140101174448-h8pom24vzzonp8wd
> > Windowing system distributor `Apple', version 10.3.1038
> > Configured using:
> > `configure --with-ns'
> >
> > Important settings:
> > locale-coding-system: utf-8-unix
> >
> > Major mode: Text
> >
> > Minor modes in effect:
> > whitespace-mode: t
> > linum-mode: t
> > hl-line-mode: t
> > flyspell-mode: t
> > delete-selection-mode: t
> > yas-global-mode: t
> > yas-minor-mode: t
> > desktop-save-mode: t
> > tabbar-mode: t
> > highlight-parentheses-mode: t
> > font-lock-mode: t
> > blink-cursor-mode: t
> > visual-line-mode: t
> > transient-mark-mode: t
> >
> > Recent input:
> > s-N s-w k <escape> x r e p o r t - e m <return> b u
> > g s <return> <backspace> <return>
> >
> > Recent messages:
> > Loading msgdb for %INBOX.Drafts...done
> > Loading mail-mime-setup...done
> > Updating addresses...done
> > Making change-major-mode-hook buffer-local while locally let-bound!
> > Type C-c C-x C-z to exit MIME mode, and type C-c C-x ? to get help.
> > Saving...done
> > Mark set
> > [k]ill or [s]ave draft?
> > Loading msgdb for +/Users/HOME/.0.data/.0.emacs/.0.mail/msgdb/imap/mail.lawlist.com/lawlist/INBOX.Drafts/spool...done
> > *beep*
> >
> > Load-path shadows:
> > /Users/HOME/.0.data/.0.emacs/elpa/flim/md4 hides /Users/HOME/.0.data/.0.emacs/Emacs.app/Contents/Resources/lisp/md4
> > /Users/HOME/.0.data/.0.emacs/elpa/flim/hex-util hides /Users/HOME/.0.data/.0.emacs/Emacs.app/Contents/Resources/lisp/hex-util
> > /Users/HOME/.0.data/.0.emacs/elpa/flim/sasl hides /Users/HOME/.0.data/.0.emacs/Emacs.app/Contents/Resources/lisp/net/sasl
> > /Users/HOME/.0.data/.0.emacs/elpa/flim/sasl-ntlm hides /Users/HOME/.0.data/.0.emacs/Emacs.app/Contents/Resources/lisp/net/sasl-ntlm
> > /Users/HOME/.0.data/.0.emacs/elpa/flim/sasl-digest hides /Users/HOME/.0.data/.0.emacs/Emacs.app/Contents/Resources/lisp/net/sasl-digest
> > /Users/HOME/.0.data/.0.emacs/elpa/flim/sasl-cram hides /Users/HOME/.0.data/.0.emacs/Emacs.app/Contents/Resources/lisp/net/sasl-cram
> > /Users/HOME/.0.data/.0.emacs/elpa/flim/ntlm hides /Users/HOME/.0.data/.0.emacs/Emacs.app/Contents/Resources/lisp/net/ntlm
> > /Users/HOME/.0.data/.0.emacs/elpa/flim/hmac-md5 hides /Users/HOME/.0.data/.0.emacs/Emacs.app/Contents/Resources/lisp/net/hmac-md5
> > /Users/HOME/.0.data/.0.emacs/elpa/flim/hmac-def hides /Users/HOME/.0.data/.0.emacs/Emacs.app/Contents/Resources/lisp/net/hmac-def
> > /Users/HOME/.0.data/.0.emacs/elpa/wanderlust/rfc2368 hides /Users/HOME/.0.data/.0.emacs/Emacs.app/Contents/Resources/lisp/mail/rfc2368
> > /Users/HOME/.0.data/.0.emacs/elpa/wanderlust/utf7 hides /Users/HOME/.0.data/.0.emacs/Emacs.app/Contents/Resources/lisp/gnus/utf7
> > /Users/HOME/.0.data/.0.emacs/elpa/semi/smime hides /Users/HOME/.0.data/.0.emacs/Emacs.app/Contents/Resources/lisp/gnus/smime
> > /Users/HOME/.0.data/.0.emacs/elpa/el-get/.dir-locals hides /Users/HOME/.0.data/.0.emacs/Emacs.app/Contents/Resources/lisp/gnus/.dir-locals
> > /Users/HOME/.0.data/.0.emacs/elpa/semi/pgg hides /Users/HOME/.0.data/.0.emacs/Emacs.app/Contents/Resources/lisp/obsolete/pgg
> > /Users/HOME/.0.data/.0.emacs/elpa/semi/pgg-pgp5 hides /Users/HOME/.0.data/.0.emacs/Emacs.app/Contents/Resources/lisp/obsolete/pgg-pgp5
> > /Users/HOME/.0.data/.0.emacs/elpa/semi/pgg-pgp hides /Users/HOME/.0.data/.0.emacs/Emacs.app/Contents/Resources/lisp/obsolete/pgg-pgp
> > /Users/HOME/.0.data/.0.emacs/elpa/semi/pgg-parse hides /Users/HOME/.0.data/.0.emacs/Emacs.app/Contents/Resources/lisp/obsolete/pgg-parse
> > /Users/HOME/.0.data/.0.emacs/elpa/semi/pgg-gpg hides /Users/HOME/.0.data/.0.emacs/Emacs.app/Contents/Resources/lisp/obsolete/pgg-gpg
> > /Users/HOME/.0.data/.0.emacs/elpa/semi/pgg-def hides /Users/HOME/.0.data/.0.emacs/Emacs.app/Contents/Resources/lisp/obsolete/pgg-def
> > /Users/HOME/.0.data/.0.emacs/elpa/utilities/longlines hides /Users/HOME/.0.data/.0.emacs/Emacs.app/Contents/Resources/lisp/obsolete/longlines
> >
> > Features:
> > (shadow emacsbug message rfc822 mml mml-sec mm-decode mm-bodies
> > mm-encode mailabbrev gmm-utils mailheader modb-legacy wl-mime
> > mime-edit pgg-parse pccl pccl-20 signature mime-setup mail-mime-setup
> > semi-setup mime-pgp pgg-def mime-play filename mime-image
> > modb-standard elmo-imap4 time-stamp server disp-table whitespace linum
> > init-wl wl-demo wl-draft eword-encode wl-template sendmail mail-utils
> > elmo-net elmo-cache elmo-map elmo-dop wl-news wl-address wl-thread
> > wl-folder wl wl-e21 wl-spam wl-action wl-summary wl-refile wl-util pp
> > elmo-flag elmo-localdir wl-message elmo-mime mmelmo-buffer mmelmo-imap
> > mime-view mime-conf calist semi-def mmimap mime-parse mmbuffer
> > mmgeneric elmo-multi elmo-spam elsp-header elsp-generic elmo
> > elmo-signal wl-highlight wl-vars wl-version epg-config elmo-msgdb modb
> > modb-generic modb-entity luna mime elmo-util emu invisible inv-23 poem
> > poem-e20 poem-e20_3 utf7 eword-decode mel mime-def alist std11
> > mcharset mcs-20 mcs-e20 pces pces-e20 pces-20 broken pcustom elmo-date
> > elmo-vars elmo-version path-util poe pym static apel-ver product
> > w3m-load mime-w3m w3m browse-url doc-view jka-compr image-mode
> > w3m-hist w3m-fb bookmark-w3m w3m-ems wid-edit w3m-ccl ccl w3m-favicon
> > w3m-image w3m-proc w3m-util hl-line multiple-cursors-autoloads package
> > ps-print ps-def lpr bbdb-autoloads bbdb timezone flyspell ispell
> > auto-save-buffers-enhanced delsel savehist fill-column-indicator
> > highlight-indentation column-marker col-highlight vline
> > centered-cursor-mode dired-aux dired yasnippet help-mode debug
> > multiple-cursors mc-separate-operations rectangular-region-mode
> > mc-mark-more thingatpt mc-cycle-cursors mc-edit-lines
> > multiple-cursors-core edmacro kmacro rect saveplace init-auctex
> > tex-site desktop frameset init-tabbar tabbar init-org derived cl-macs
> > gv holidays hol-loaddefs org-capture org-agenda org-toodledo
> > mailcap-toodledo lawlist-tls http-post-simple cl cl-loaddefs cl-lib
> > url-http tls url-auth mail-parse rfc2231 rfc2047 rfc2045 ietf-drums
> > url-gw url url-proxy url-privacy url-expand url-methods url-history
> > url-cookie url-domsuf url-util url-parse auth-source eieio eieio-core
> > gnus-util mm-util mail-prsvr password-cache url-vars mailcap json xml
> > w3mexcerpt org byte-opt bytecomp byte-compile cconv advice help-fns
> > org-macro org-footnote org-pcomplete pcomplete org-list org-faces
> > org-entities noutline outline easy-mmode org-version ob-emacs-lisp ob
> > ob-tangle org-src ob-ref ob-lob ob-table ob-keys ob-exp ob-comint
> > comint ansi-color ring ob-core ob-eval org-compat org-macs
> > org-loaddefs format-spec find-func cal-menu calendar cal-loaddefs
> > hideshow easymenu highlight-parentheses redo time-date tooltip
> > electric uniquify ediff-hook vc-hooks lisp-float-type mwheel ns-win
> > tool-bar dnd fontset image regexp-opt fringe tabulated-list newcomment
> > lisp-mode prog-mode register page menu-bar rfn-eshadow timer select
> > scroll-bar mouse jit-lock font-lock syntax facemenu font-core frame
> > cham georgian utf-8-lang misc-lang vietnamese tibetan thai tai-viet
> > lao korean japanese hebrew greek romanian slovak czech european
> > ethiopic indian cyrillic chinese case-table epa-hook jka-cmpr-hook
> > help simple abbrev minibuffer nadvice loaddefs button faces cus-face
> > macroexp files text-properties overlay sha1 md5 base64 format env
> > code-pages mule custom widget hashtable-print-readable backquote
> > make-network-process cocoa ns multi-tty emacs)
> >
> >
^ permalink raw reply [flat|nested] 8+ messages in thread* bug#16324: 24.3.50; Crashing on OSX 10.6.8 (built --with-ns)
2014-01-02 7:00 bug#16324: 24.3.50; Crashing on OSX 10.6.8 (built --with-ns) Keith David Bershatsky
2014-01-02 9:29 ` Jan Djärv
2014-01-02 23:42 ` Keith David Bershatsky
@ 2014-01-03 0:10 ` Keith David Bershatsky
2014-01-03 5:51 ` Keith David Bershatsky
2014-01-03 17:57 ` Keith David Bershatsky
4 siblings, 0 replies; 8+ messages in thread
From: Keith David Bershatsky @ 2014-01-03 0:10 UTC (permalink / raw)
To: Jan Djärv; +Cc: 16324@debbugs.gnu.org
I think this is probably what you were looking for. Today is my first day learning how to use gdb:
Last login: Thu Jan 2 16:01:10 on ttys001
MP:~ HOME$ cd /Users/HOME/Desktop/emacs-trunk-01-01-2014/src/
MP:src HOME$ gdb /Users/HOME/.0.data/.0.emacs/Emacs.app/Contents/MacOS/Emacs
GNU gdb 6.3.50-20050815 (Apple version gdb-1515) (Sat Jan 15 08:33:48 UTC 2011)
Copyright 2004 Free Software Foundation, Inc.
GDB is free software, covered by the GNU General Public License, and you are
welcome to change it and/or distribute copies of it under certain conditions.
Type "show copying" to see the conditions.
There is absolutely no warranty for GDB. Type "show warranty" for details.
This GDB was configured as "x86_64-apple-darwin"...Reading symbols for shared libraries ........... done
DISPLAY = /tmp/launch-N6Y4z5/org.x:0
TERM = xterm-color
Breakpoint 1 at 0x1000a5170: file emacs.c, line 351.
Breakpoint 2 at 0x1000c3be4: file sysdep.c, line 850.
(gdb) run
Starting program: /Users/HOME/.0.data/.0.emacs/Emacs.app/Contents/MacOS/Emacs
Reading symbols for shared libraries .++++++++++............................................................................... done
Reading symbols for shared libraries . done
Reading symbols for shared libraries . done
Reading symbols for shared libraries . done
Reading symbols for shared libraries . done
Reading symbols for shared libraries . done
Reading symbols for shared libraries . done
Reading symbols for shared libraries . done
Emacs(1148,0x7fff71079cc0) malloc: *** error for object 0x116443608: incorrect checksum for freed object - object was probably modified after being freed.
*** set a breakpoint in malloc_error_break to debug
Program received signal SIGABRT, Aborted.
0x00007fff89abe0b6 in __kill ()
(gdb) bt
#0 0x00007fff89abe0b6 in __kill ()
#1 0x00007fff89b5e9f6 in abort ()
#2 0x00007fff89b4d62d in szone_error ()
#3 0x00007fff89a7a66f in small_free_list_remove_ptr ()
#4 0x00007fff89a770db in szone_free_definite_size ()
#5 0x0000000100102a91 in lisp_free (block=0x116230400) at alloc.c:931
#6 0x00000001001074d5 in Fgarbage_collect () at alloc.c:6495
#7 0x0000000100158519 in exec_byte_code (bytestr=1148, vector=266896620757450753, maxdepth=0, args_template=4320145466, nargs=131, args=0x0) at lisp.h:4514
#8 0x000000010012028b in funcall_lambda (fun=4364230573, nargs=1, arg_vector=0x7fff5fbfcfa8) at eval.c:3040
#9 0x000000010012054d in Ffuncall (nargs=2, args=<value temporarily unavailable, due to optimizations>) at eval.c:2867
#10 0x0000000100157f7b in exec_byte_code (bytestr=2, vector=1, maxdepth=-1149410096387949562, args_template=4320145466, nargs=33, args=0x0) at bytecode.c:919
#11 0x000000010012028b in funcall_lambda (fun=4364929437, nargs=1, arg_vector=0x7fff5fbfd1a0) at eval.c:3040
#12 0x000000010012054d in Ffuncall (nargs=2, args=<value temporarily unavailable, due to optimizations>) at eval.c:2867
#13 0x0000000100157f7b in exec_byte_code (bytestr=2, vector=1, maxdepth=-1149410096387949562, args_template=4320145466, nargs=33, args=0x0) at bytecode.c:919
#14 0x000000010012028b in funcall_lambda (fun=4332012773, nargs=6, arg_vector=0x7fff5fbfd320) at eval.c:3040
#15 0x0000000100121908 in apply_lambda (fun=4332012773, args=4362432026) at eval.c:2915
#16 0x000000010011f921 in eval_sub (form=<value temporarily unavailable, due to optimizations>) at eval.c:2251
#17 0x000000010011fe74 in Fsetq (args=<value temporarily unavailable, due to optimizations>) at eval.c:536
#18 0x000000010011fd83 in eval_sub (form=<value temporarily unavailable, due to optimizations>) at eval.c:2124
#19 0x000000010011ff5d in Fprogn (body=<value temporarily unavailable, due to optimizations>) at eval.c:459
#20 0x0000000100123088 in Fwhile (args=4332012773) at eval.c:989
#21 0x000000010011fd83 in eval_sub (form=<value temporarily unavailable, due to optimizations>) at eval.c:2124
#22 0x000000010011ff5d in Fprogn (body=<value temporarily unavailable, due to optimizations>) at eval.c:459
#23 0x00000001001235f1 in FletX (args=<value temporarily unavailable, due to optimizations>) at eval.c:897
#24 0x000000010011fd83 in eval_sub (form=<value temporarily unavailable, due to optimizations>) at eval.c:2124
#25 0x000000010011ff5d in Fprogn (body=<value temporarily unavailable, due to optimizations>) at eval.c:459
#26 0x00000001001202e0 in funcall_lambda (fun=4334326870, nargs=0, arg_vector=0x7fff5fbfd8b0) at eval.c:3033
#27 0x0000000100121908 in apply_lambda (fun=4334326870, args=4320145466) at eval.c:2915
#28 0x000000010011f921 in eval_sub (form=<value temporarily unavailable, due to optimizations>) at eval.c:2251
#29 0x000000010011fe74 in Fsetq (args=<value temporarily unavailable, due to optimizations>) at eval.c:536
#30 0x000000010011fd83 in eval_sub (form=<value temporarily unavailable, due to optimizations>) at eval.c:2124
#31 0x000000010011ff5d in Fprogn (body=<value temporarily unavailable, due to optimizations>) at eval.c:459
#32 0x000000010011fd83 in eval_sub (form=<value temporarily unavailable, due to optimizations>) at eval.c:2124
#33 0x000000010011ff5d in Fprogn (body=<value temporarily unavailable, due to optimizations>) at eval.c:459
#34 0x0000000100123088 in Fwhile (args=4334326870) at eval.c:989
#35 0x000000010011fd83 in eval_sub (form=<value temporarily unavailable, due to optimizations>) at eval.c:2124
#36 0x000000010011ff5d in Fprogn (body=<value temporarily unavailable, due to optimizations>) at eval.c:459
#37 0x0000000100112ec7 in Fsave_restriction (body=4334167206) at editfns.c:3415
#38 0x000000010011fd83 in eval_sub (form=<value temporarily unavailable, due to optimizations>) at eval.c:2124
#39 0x000000010011ff5d in Fprogn (body=<value temporarily unavailable, due to optimizations>) at eval.c:459
#40 0x0000000100112e07 in Fsave_excursion (args=4334167254) at editfns.c:941
#41 0x000000010011fd83 in eval_sub (form=<value temporarily unavailable, due to optimizations>) at eval.c:2124
#42 0x000000010011ff5d in Fprogn (body=<value temporarily unavailable, due to optimizations>) at eval.c:459
#43 0x0000000100123347 in Flet (args=<value temporarily unavailable, due to optimizations>) at eval.c:967
#44 0x000000010011fd83 in eval_sub (form=<value temporarily unavailable, due to optimizations>) at eval.c:2124
#45 0x000000010011ff5d in Fprogn (body=<value temporarily unavailable, due to optimizations>) at eval.c:459
#46 0x0000000100112e67 in Fsave_current_buffer (args=4334169142) at editfns.c:954
#47 0x000000010011fd83 in eval_sub (form=<value temporarily unavailable, due to optimizations>) at eval.c:2124
#48 0x000000010011ff5d in Fprogn (body=<value temporarily unavailable, due to optimizations>) at eval.c:459
#49 0x000000010011fd83 in eval_sub (form=<value temporarily unavailable, due to optimizations>) at eval.c:2124
#50 0x000000010011ff5d in Fprogn (body=<value temporarily unavailable, due to optimizations>) at eval.c:459
#51 0x00000001001235f1 in FletX (args=<value temporarily unavailable, due to optimizations>) at eval.c:897
#52 0x000000010011fd83 in eval_sub (form=<value temporarily unavailable, due to optimizations>) at eval.c:2124
#53 0x000000010011ff5d in Fprogn (body=<value temporarily unavailable, due to optimizations>) at eval.c:459
#54 0x00000001001202e0 in funcall_lambda (fun=4334167478, nargs=3, arg_vector=0x7fff5fbfe5a8) at eval.c:3033
#55 0x000000010012054d in Ffuncall (nargs=4, args=<value temporarily unavailable, due to optimizations>) at eval.c:2867
#56 0x0000000100120d72 in Fapply (nargs=4, args=0x7fff5fbfe5a0) at eval.c:2292
#57 0x000000010011fd42 in eval_sub (form=<value temporarily unavailable, due to optimizations>) at eval.c:2148
#58 0x000000010011fe74 in Fsetq (args=<value temporarily unavailable, due to optimizations>) at eval.c:536
#59 0x000000010011fd83 in eval_sub (form=<value temporarily unavailable, due to optimizations>) at eval.c:2124
#60 0x000000010011ff5d in Fprogn (body=<value temporarily unavailable, due to optimizations>) at eval.c:459
#61 0x000000010011e8f7 in internal_catch (tag=4331910290, func=0x10011ff30 <Fprogn>, arg=4334197254) at eval.c:1109
#62 0x000000010011fd83 in eval_sub (form=<value temporarily unavailable, due to optimizations>) at eval.c:2124
#63 0x000000010011ff5d in Fprogn (body=<value temporarily unavailable, due to optimizations>) at eval.c:459
#64 0x0000000100123088 in Fwhile (args=4) at eval.c:989
#65 0x000000010011fd83 in eval_sub (form=<value temporarily unavailable, due to optimizations>) at eval.c:2124
#66 0x000000010011ff5d in Fprogn (body=<value temporarily unavailable, due to optimizations>) at eval.c:459
#67 0x0000000100123088 in Fwhile (args=4) at eval.c:989
#68 0x000000010011fd83 in eval_sub (form=<value temporarily unavailable, due to optimizations>) at eval.c:2124
#69 0x000000010011ff5d in Fprogn (body=<value temporarily unavailable, due to optimizations>) at eval.c:459
#70 0x00000001001235f1 in FletX (args=<value temporarily unavailable, due to optimizations>) at eval.c:897
#71 0x000000010011fd83 in eval_sub (form=<value temporarily unavailable, due to optimizations>) at eval.c:2124
#72 0x000000010011ff5d in Fprogn (body=<value temporarily unavailable, due to optimizations>) at eval.c:459
#73 0x00000001001202e0 in funcall_lambda (fun=4334175862, nargs=4, arg_vector=0x7fff5fbfece0) at eval.c:3033
#74 0x0000000100121908 in apply_lambda (fun=4334175862, args=4363406682) at eval.c:2915
#75 0x000000010011f921 in eval_sub (form=<value temporarily unavailable, due to optimizations>) at eval.c:2251
#76 0x000000010011ff5d in Fprogn (body=<value temporarily unavailable, due to optimizations>) at eval.c:459
#77 0x000000010011fd83 in eval_sub (form=<value temporarily unavailable, due to optimizations>) at eval.c:2124
#78 0x000000010011ff5d in Fprogn (body=<value temporarily unavailable, due to optimizations>) at eval.c:459
#79 0x00000001001235f1 in FletX (args=<value temporarily unavailable, due to optimizations>) at eval.c:897
#80 0x000000010011fd83 in eval_sub (form=<value temporarily unavailable, due to optimizations>) at eval.c:2124
#81 0x000000010011ff5d in Fprogn (body=<value temporarily unavailable, due to optimizations>) at eval.c:459
#82 0x00000001001202e0 in funcall_lambda (fun=4334875542, nargs=0, arg_vector=0x7fff5fbff1a0) at eval.c:3033
#83 0x000000010012054d in Ffuncall (nargs=1, args=<value temporarily unavailable, due to optimizations>) at eval.c:2867
#84 0x0000000100120de6 in apply1 (fn=4334156962, arg=<value temporarily unavailable, due to optimizations>) at eval.c:2572
#85 0x000000010011ca5f in Fcall_interactively (function=4334156962, record_flag=4320145466, keys=4672935237) at callint.c:378
#86 0x0000000100120751 in Ffuncall (nargs=4, args=<value temporarily unavailable, due to optimizations>) at eval.c:2813
#87 0x0000000100157f7b in exec_byte_code (bytestr=4, vector=4320145466, maxdepth=-1149410096387949562, args_template=4100, nargs=35, args=0x7fff5fbff528) at bytecode.c:919
#88 0x000000010012054d in Ffuncall (nargs=2, args=<value temporarily unavailable, due to optimizations>) at eval.c:2867
#89 0x000000010012097e in call1 (fn=<value temporarily unavailable, due to optimizations>, arg1=<value temporarily unavailable, due to optimizations>) at eval.c:2605
#90 0x00000001000ba1c7 in command_loop_1 () at keyboard.c:1552
#91 0x000000010011ea43 in internal_condition_case (bfun=0x1000b9c70 <command_loop_1>, handlers=4320211946, hfun=0x1000b1600 <cmd_error>) at eval.c:1345
#92 0x00000001000affd7 in command_loop_2 (ignore=<value temporarily unavailable, due to optimizations>) at keyboard.c:1170
#93 0x000000010011e8f7 in internal_catch (tag=4320208138, func=0x1000affa0 <command_loop_2>, arg=4320145466) at eval.c:1109
#94 0x00000001000af45c in recursive_edit_1 () at keyboard.c:1149
#95 0x00000001000b1897 in Frecursive_edit () at keyboard.c:841
#96 0x00000001000a79b3 in main (argc=1, argv=0x7fff5fbff988) at emacs.c:1637
Unsafe to run code: malloc zone lock is held for some zone..
Canceling call as the malloc lock is held so it isn't safe to call the runtime.
Issue the command:
set objc-non-blocking-mode off
to override this check if you are sure your call doesn't use the malloc libraries or the ObjC runtime.
(gdb)
^ permalink raw reply [flat|nested] 8+ messages in thread* bug#16324: 24.3.50; Crashing on OSX 10.6.8 (built --with-ns)
2014-01-02 7:00 bug#16324: 24.3.50; Crashing on OSX 10.6.8 (built --with-ns) Keith David Bershatsky
` (2 preceding siblings ...)
2014-01-03 0:10 ` Keith David Bershatsky
@ 2014-01-03 5:51 ` Keith David Bershatsky
2014-01-03 15:07 ` Stefan Monnier
2014-01-03 17:57 ` Keith David Bershatsky
4 siblings, 1 reply; 8+ messages in thread
From: Keith David Bershatsky @ 2014-01-03 5:51 UTC (permalink / raw)
To: Jan Djärv; +Cc: 16324@debbugs.gnu.org
I re-wrote part of my calendar function today thinking that it was maybe to blame, but I'm still receiving a few crashes. Here are some of the messages I'm seeing right before the crash -- the font disappears in the *Org Agenda* buffer when the message appears each time I try to change months:
Error during redisplay: (jit-lock-function 1) signaled (error "Variable binding depth exceeds max-specpdl-size")
Error during redisplay: (jit-lock-function 553) signaled (error "Variable binding depth exceeds max-specpdl-size")
Error during redisplay: (jit-lock-function 1082) signaled (error "Variable binding depth exceeds max-specpdl-size")
I have overlays in the calendar buffer, and font lock in the *Org Agenda* buffer above it. The error or crash happens when I move forward or backward between months -- each time I switch months, a new *Org Agenda* and new *Calendar* buffer appear -- the code searches the org-todo-files and finds matches with deadlines or scheduled, and then places an overlay on the matching visible date using a holiday-sexp from holidays.el.
Keith
^ permalink raw reply [flat|nested] 8+ messages in thread* bug#16324: 24.3.50; Crashing on OSX 10.6.8 (built --with-ns)
2014-01-03 5:51 ` Keith David Bershatsky
@ 2014-01-03 15:07 ` Stefan Monnier
0 siblings, 0 replies; 8+ messages in thread
From: Stefan Monnier @ 2014-01-03 15:07 UTC (permalink / raw)
To: Keith David Bershatsky; +Cc: 16324@debbugs.gnu.org
> Error during redisplay: (jit-lock-function 1) signaled (error "Variable
> binding depth exceeds max-specpdl-size")
> Error during redisplay: (jit-lock-function 553) signaled (error "Variable
> binding depth exceeds max-specpdl-size")
> Error during redisplay: (jit-lock-function 1082) signaled (error "Variable
> binding depth exceeds max-specpdl-size")
Try jit-lock-debug-mode (along with debug-on-error) if you have a recent
Emacs build. That should give you a backtrace.
Stefan
^ permalink raw reply [flat|nested] 8+ messages in thread
* bug#16324: 24.3.50; Crashing on OSX 10.6.8 (built --with-ns)
2014-01-02 7:00 bug#16324: 24.3.50; Crashing on OSX 10.6.8 (built --with-ns) Keith David Bershatsky
` (3 preceding siblings ...)
2014-01-03 5:51 ` Keith David Bershatsky
@ 2014-01-03 17:57 ` Keith David Bershatsky
2019-10-13 1:20 ` Lars Ingebrigtsen
4 siblings, 1 reply; 8+ messages in thread
From: Keith David Bershatsky @ 2014-01-03 17:57 UTC (permalink / raw)
To: Stefan Monnier
I added `(add-hook 'org-agenda-mode-hook (lambda () (jit-lock-debug-mode 1) . . .`, but did not see the `jit-lock` error during several attempts. Below is the recent gdb debugging report and the output from the debug buffer.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
Try jit-lock-debug-mode (along with debug-on-error) if you have a recent Emacs build. That should give you a backtrace.
Stefan
> binding depth exceeds max-specpdl-size")
> Error during redisplay: (jit-lock-function 553) signaled (error "Variable
> binding depth exceeds max-specpdl-size")
> Error during redisplay: (jit-lock-function 1082) signaled (error "Variable
> binding depth exceeds max-specpdl-size")
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
Last login: Fri Jan 3 09:35:15 on ttys000
MP:~ HOME$ cd /Users/HOME/Desktop/emacs-trunk-01-01-2014/src
MP:src HOME$ gdb /Users/HOME/.0.data/.0.emacs/Emacs_01_01_2014.app/Contents/MacOS/Emacs
GNU gdb 6.3.50-20050815 (Apple version gdb-1515) (Sat Jan 15 08:33:48 UTC 2011)
Copyright 2004 Free Software Foundation, Inc.
GDB is free software, covered by the GNU General Public License, and you are
welcome to change it and/or distribute copies of it under certain conditions.
Type "show copying" to see the conditions.
There is absolutely no warranty for GDB. Type "show warranty" for details.
This GDB was configured as "x86_64-apple-darwin"...Reading symbols for shared libraries ........... done
DISPLAY = /tmp/launch-kmb01E/org.x:0
TERM = xterm-color
Breakpoint 1 at 0x1000a5170: file emacs.c, line 351.
Breakpoint 2 at 0x1000c3be4: file sysdep.c, line 850.
(gdb) run
Starting program: /Users/HOME/.0.data/.0.emacs/Emacs_01_01_2014.app/Contents/MacOS/Emacs
Reading symbols for shared libraries .++++++++++............................................................................... done
Reading symbols for shared libraries . done
Reading symbols for shared libraries . done
Reading symbols for shared libraries . done
Reading symbols for shared libraries . done
Reading symbols for shared libraries . done
Reading symbols for shared libraries . done
Reading symbols for shared libraries . done
Emacs(1362,0x7fff71079cc0) malloc: *** error for object 0x102d06d68: incorrect checksum for freed object - object was probably modified after being freed.
*** set a breakpoint in malloc_error_break to debug
Program received signal SIGABRT, Aborted.
0x00007fff89abe0b6 in __kill ()
(gdb) bt
#0 0x00007fff89abe0b6 in __kill ()
#1 0x00007fff89b5e9f6 in abort ()
#2 0x00007fff89b4d62d in szone_error ()
#3 0x00007fff89a7794f in small_malloc_from_free_list ()
#4 0x00007fff89a741e1 in szone_malloc_should_clear ()
#5 0x00007fff89a7398a in malloc_zone_malloc ()
#6 0x00007fff89a71c88 in malloc ()
#7 0x0000000100155edb in unexec_malloc (size=13344) at unexmacosx.c:1399
#8 0x0000000100105018 in xrealloc (block=<value temporarily unavailable, due to optimizations>, size=13344) at alloc.c:715
#9 0x0000000100002d7c in adjust_glyph_matrix (w=0x1163cb600, matrix=0x103814960, x=0, y=0, dim=<value temporarily unavailable, due to optimizations>) at dispnew.c:491
#10 0x0000000100007173 in allocate_matrices_for_window_redisplay (w=0x1163cb600) at dispnew.c:1729
#11 0x00000001000071d5 in allocate_matrices_for_window_redisplay (w=0x103014420) at dispnew.c:1714
#12 0x000000010000783d in adjust_frame_glyphs_for_window_redisplay [inlined] () at /Users/HOME/Desktop/emacs-trunk-01-01-2014/src/dispnew.c:2032
#13 0x000000010000783d in adjust_frame_glyphs (f=0x116864c00) at dispnew.c:1749
#14 0x000000010005c0ab in Fsplit_window_internal (old=4668083757, pixel_size=2080, side=4362168890, normal_size=4297620607) at window.c:4370
#15 0x000000010012073a in Ffuncall (nargs=5, args=<value temporarily unavailable, due to optimizations>) at eval.c:2817
#16 0x0000000100157f7b in exec_byte_code (bytestr=5, vector=2080, maxdepth=7345150209964530002, args_template=4320145466, nargs=36, args=0x0) at bytecode.c:919
#17 0x000000010011fbea in eval_sub (form=<value temporarily unavailable, due to optimizations>) at eval.c:2182
#18 0x000000010011e8f7 in internal_catch (tag=4362242714, func=0x10011f5d0 <eval_sub>, arg=4297619686) at eval.c:1109
#19 0x00000001001595e2 in exec_byte_code (bytestr=5, vector=4296144336, maxdepth=4297619686, args_template=4320145466, nargs=141, args=0x0) at bytecode.c:1100
#20 0x000000010012028b in funcall_lambda (fun=4297619197, nargs=2, arg_vector=0x7fff5fbfc840) at eval.c:3040
#21 0x000000010012054d in Ffuncall (nargs=3, args=<value temporarily unavailable, due to optimizations>) at eval.c:2867
#22 0x0000000100157f7b in exec_byte_code (bytestr=3, vector=2, maxdepth=7345150209964530002, args_template=4320145466, nargs=34, args=0x0) at bytecode.c:919
#23 0x000000010012028b in funcall_lambda (fun=4297620829, nargs=0, arg_vector=0x7fff5fbfca50) at eval.c:3040
#24 0x000000010012054d in Ffuncall (nargs=1, args=<value temporarily unavailable, due to optimizations>) at eval.c:2867
#25 0x0000000100157f7b in exec_byte_code (bytestr=1, vector=0, maxdepth=7345150209964530002, args_template=4320145466, nargs=32, args=0x0) at bytecode.c:919
#26 0x000000010012028b in funcall_lambda (fun=4297634277, nargs=1, arg_vector=0x7fff5fbfcc48) at eval.c:3040
#27 0x000000010012054d in Ffuncall (nargs=2, args=<value temporarily unavailable, due to optimizations>) at eval.c:2867
#28 0x000000010011fd42 in eval_sub (form=<value temporarily unavailable, due to optimizations>) at eval.c:2148
#29 0x0000000100122f0d in internal_lisp_condition_case (var=4320145466, bodyform=4297634774, handlers=<value temporarily unavailable, due to optimizations>) at eval.c:1314
#30 0x0000000100159ddd in exec_byte_code (bytestr=4320145466, vector=4297634774, maxdepth=7345150209964530002, args_template=4320145466, nargs=143, args=0x0) at bytecode.c:1169
#31 0x000000010012028b in funcall_lambda (fun=4297634541, nargs=2, arg_vector=0x7fff5fbfcf20) at eval.c:3040
#32 0x0000000100121908 in apply_lambda (fun=4297634541, args=4362433978) at eval.c:2915
#33 0x000000010011f921 in eval_sub (form=<value temporarily unavailable, due to optimizations>) at eval.c:2251
#34 0x000000010011fe74 in Fsetq (args=<value temporarily unavailable, due to optimizations>) at eval.c:536
#35 0x000000010011fd83 in eval_sub (form=<value temporarily unavailable, due to optimizations>) at eval.c:2124
#36 0x000000010011ff5d in Fprogn (body=<value temporarily unavailable, due to optimizations>) at eval.c:459
#37 0x0000000100123347 in Flet (args=<value temporarily unavailable, due to optimizations>) at eval.c:967
#38 0x000000010011fd83 in eval_sub (form=<value temporarily unavailable, due to optimizations>) at eval.c:2124
#39 0x000000010012378b in Fand (args=<value temporarily unavailable, due to optimizations>) at eval.c:384
#40 0x000000010011fd83 in eval_sub (form=<value temporarily unavailable, due to optimizations>) at eval.c:2124
#41 0x00000001001237db in For (args=<value temporarily unavailable, due to optimizations>) at eval.c:360
#42 0x000000010011fd83 in eval_sub (form=<value temporarily unavailable, due to optimizations>) at eval.c:2124
#43 0x000000010011ff5d in Fprogn (body=<value temporarily unavailable, due to optimizations>) at eval.c:459
#44 0x0000000100123347 in Flet (args=<value temporarily unavailable, due to optimizations>) at eval.c:967
#45 0x000000010011fd83 in eval_sub (form=<value temporarily unavailable, due to optimizations>) at eval.c:2124
#46 0x000000010011ff5d in Fprogn (body=<value temporarily unavailable, due to optimizations>) at eval.c:459
#47 0x00000001001202e0 in funcall_lambda (fun=4343387286, nargs=2, arg_vector=0x7fff5fbfd700) at eval.c:3033
#48 0x0000000100121908 in apply_lambda (fun=4343387286, args=4342018214) at eval.c:2915
#49 0x000000010011f921 in eval_sub (form=<value temporarily unavailable, due to optimizations>) at eval.c:2251
#50 0x000000010011fd83 in eval_sub (form=<value temporarily unavailable, due to optimizations>) at eval.c:2124
#51 0x000000010011ff5d in Fprogn (body=<value temporarily unavailable, due to optimizations>) at eval.c:459
#52 0x000000010011fd83 in eval_sub (form=<value temporarily unavailable, due to optimizations>) at eval.c:2124
#53 0x000000010011ff5d in Fprogn (body=<value temporarily unavailable, due to optimizations>) at eval.c:459
#54 0x00000001001235f1 in FletX (args=<value temporarily unavailable, due to optimizations>) at eval.c:897
#55 0x000000010011fd83 in eval_sub (form=<value temporarily unavailable, due to optimizations>) at eval.c:2124
#56 0x000000010011ff5d in Fprogn (body=<value temporarily unavailable, due to optimizations>) at eval.c:459
#57 0x00000001001202e0 in funcall_lambda (fun=4342480246, nargs=2, arg_vector=0x7fff5fbfdc00) at eval.c:3033
#58 0x0000000100121908 in apply_lambda (fun=4342480246, args=4363406682) at eval.c:2915
#59 0x000000010011f921 in eval_sub (form=<value temporarily unavailable, due to optimizations>) at eval.c:2251
#60 0x000000010011ff5d in Fprogn (body=<value temporarily unavailable, due to optimizations>) at eval.c:459
#61 0x00000001001235f1 in FletX (args=<value temporarily unavailable, due to optimizations>) at eval.c:897
#62 0x000000010011fd83 in eval_sub (form=<value temporarily unavailable, due to optimizations>) at eval.c:2124
#63 0x000000010011ff5d in Fprogn (body=<value temporarily unavailable, due to optimizations>) at eval.c:459
#64 0x00000001001202e0 in funcall_lambda (fun=4342349270, nargs=4, arg_vector=0x7fff5fbfdf40) at eval.c:3033
#65 0x0000000100121908 in apply_lambda (fun=4342349270, args=4363406682) at eval.c:2915
#66 0x000000010011f921 in eval_sub (form=<value temporarily unavailable, due to optimizations>) at eval.c:2251
#67 0x000000010011ff5d in Fprogn (body=<value temporarily unavailable, due to optimizations>) at eval.c:459
#68 0x00000001001235f1 in FletX (args=<value temporarily unavailable, due to optimizations>) at eval.c:897
#69 0x000000010011fd83 in eval_sub (form=<value temporarily unavailable, due to optimizations>) at eval.c:2124
#70 0x000000010011ff5d in Fprogn (body=<value temporarily unavailable, due to optimizations>) at eval.c:459
#71 0x000000010011fd83 in eval_sub (form=<value temporarily unavailable, due to optimizations>) at eval.c:2124
#72 0x000000010011ff5d in Fprogn (body=<value temporarily unavailable, due to optimizations>) at eval.c:459
#73 0x0000000100112e67 in Fsave_current_buffer (args=4343206598) at editfns.c:954
#74 0x000000010011fd83 in eval_sub (form=<value temporarily unavailable, due to optimizations>) at eval.c:2124
#75 0x000000010011ff5d in Fprogn (body=<value temporarily unavailable, due to optimizations>) at eval.c:459
#76 0x00000001001202e0 in funcall_lambda (fun=4343203318, nargs=0, arg_vector=0x7fff5fbfe490) at eval.c:3033
#77 0x0000000100121908 in apply_lambda (fun=4343203318, args=4320145466) at eval.c:2915
#78 0x000000010011f921 in eval_sub (form=<value temporarily unavailable, due to optimizations>) at eval.c:2251
#79 0x000000010011ff5d in Fprogn (body=<value temporarily unavailable, due to optimizations>) at eval.c:459
#80 0x000000010011fd83 in eval_sub (form=<value temporarily unavailable, due to optimizations>) at eval.c:2124
#81 0x000000010011ff5d in Fprogn (body=<value temporarily unavailable, due to optimizations>) at eval.c:459
#82 0x00000001001235f1 in FletX (args=<value temporarily unavailable, due to optimizations>) at eval.c:897
#83 0x000000010011fd83 in eval_sub (form=<value temporarily unavailable, due to optimizations>) at eval.c:2124
#84 0x000000010011ff5d in Fprogn (body=<value temporarily unavailable, due to optimizations>) at eval.c:459
#85 0x00000001001202e0 in funcall_lambda (fun=4343016758, nargs=0, arg_vector=0x7fff5fbfe8b0) at eval.c:3033
#86 0x0000000100121908 in apply_lambda (fun=4343016758, args=4320145466) at eval.c:2915
#87 0x000000010011f921 in eval_sub (form=<value temporarily unavailable, due to optimizations>) at eval.c:2251
#88 0x000000010011ff5d in Fprogn (body=<value temporarily unavailable, due to optimizations>) at eval.c:459
#89 0x000000010011fd83 in eval_sub (form=<value temporarily unavailable, due to optimizations>) at eval.c:2124
#90 0x000000010011ff5d in Fprogn (body=<value temporarily unavailable, due to optimizations>) at eval.c:459
#91 0x00000001001235f1 in FletX (args=<value temporarily unavailable, due to optimizations>) at eval.c:897
#92 0x000000010011fd83 in eval_sub (form=<value temporarily unavailable, due to optimizations>) at eval.c:2124
#93 0x000000010011ff5d in Fprogn (body=<value temporarily unavailable, due to optimizations>) at eval.c:459
#94 0x00000001001202e0 in funcall_lambda (fun=4343016758, nargs=0, arg_vector=0x7fff5fbfecd0) at eval.c:3033
#95 0x0000000100121908 in apply_lambda (fun=4343016758, args=4320145466) at eval.c:2915
#96 0x000000010011f921 in eval_sub (form=<value temporarily unavailable, due to optimizations>) at eval.c:2251
#97 0x000000010011ff5d in Fprogn (body=<value temporarily unavailable, due to optimizations>) at eval.c:459
#98 0x000000010011fd83 in eval_sub (form=<value temporarily unavailable, due to optimizations>) at eval.c:2124
#99 0x000000010011ff5d in Fprogn (body=<value temporarily unavailable, due to optimizations>) at eval.c:459
#100 0x00000001001235f1 in FletX (args=<value temporarily unavailable, due to optimizations>) at eval.c:897
#101 0x000000010011fd83 in eval_sub (form=<value temporarily unavailable, due to optimizations>) at eval.c:2124
#102 0x000000010011ff5d in Fprogn (body=<value temporarily unavailable, due to optimizations>) at eval.c:459
#103 0x00000001001202e0 in funcall_lambda (fun=4343016758, nargs=0, arg_vector=0x7fff5fbff170) at eval.c:3033
#104 0x000000010012054d in Ffuncall (nargs=1, args=<value temporarily unavailable, due to optimizations>) at eval.c:2867
#105 0x0000000100120de6 in apply1 (fn=4342380146, arg=<value temporarily unavailable, due to optimizations>) at eval.c:2572
#106 0x000000010011ca5f in Fcall_interactively (function=4342380146, record_flag=4320145466, keys=4345595109) at callint.c:378
#107 0x0000000100120751 in Ffuncall (nargs=4, args=<value temporarily unavailable, due to optimizations>) at eval.c:2813
#108 0x0000000100157f7b in exec_byte_code (bytestr=4, vector=4320145466, maxdepth=7345150209964530002, args_template=4100, nargs=35, args=0x7fff5fbff4f8) at bytecode.c:919
#109 0x000000010012054d in Ffuncall (nargs=2, args=<value temporarily unavailable, due to optimizations>) at eval.c:2867
#110 0x000000010012097e in call1 (fn=<value temporarily unavailable, due to optimizations>, arg1=<value temporarily unavailable, due to optimizations>) at eval.c:2605
#111 0x00000001000ba1c7 in command_loop_1 () at keyboard.c:1552
#112 0x000000010011ea43 in internal_condition_case (bfun=0x1000b9c70 <command_loop_1>, handlers=4320211946, hfun=0x1000b1600 <cmd_error>) at eval.c:1345
#113 0x00000001000affd7 in command_loop_2 (ignore=<value temporarily unavailable, due to optimizations>) at keyboard.c:1170
#114 0x000000010011e8f7 in internal_catch (tag=4320208138, func=0x1000affa0 <command_loop_2>, arg=4320145466) at eval.c:1109
#115 0x00000001000af45c in recursive_edit_1 () at keyboard.c:1149
#116 0x00000001000b1897 in Frecursive_edit () at keyboard.c:841
#117 0x00000001000a79b3 in main (argc=1, argv=0x7fff5fbff958) at emacs.c:1637
Unsafe to run code: malloc zone lock is held for some zone..
Canceling call as the malloc lock is held so it isn't safe to call the runtime.
Issue the command:
set objc-non-blocking-mode off
to override this check if you are sure your call doesn't use the malloc libraries or the ObjC runtime.
(gdb)
Debugger entered--Lisp error: (error "Variable binding depth exceeds max-specpdl-size")
(let ((directory-sep-char 47) (fn (assoc operation tramp-completion-file-name-handler-alist))) (if (and fn tramp-mode (or (eq tramp-syntax (quote sep)) (featurep (quote tramp)) (and (boundp (quote partial-completion-mode)) (symbol-value (quote partial-completion-mode))) (featurep (quote ido)) (featurep (quote icicles)))) (let ((save-match-data-internal (match-data))) (unwind-protect (progn (apply (cdr fn) args)) (set-match-data save-match-data-internal (quote evaporate)))) (tramp-completion-run-real-handler operation args)))
tramp-completion-file-name-handler(file-truename "/Users")
file-truename("/Users" (90) (nil))
file-truename("/Users/HOME" (90) (nil))
file-truename("/Users/HOME/.0.data" (90) (nil))
file-truename("/Users/HOME/.0.data/.0.emacs" (90) (nil))
file-truename("/Users/HOME/.0.data/.0.emacs/Emacs_01_01_2014.app" (90) (nil))
file-truename("/Users/HOME/.0.data/.0.emacs/Emacs_01_01_2014.app/Contents" (90) (nil))
file-truename("/Users/HOME/.0.data/.0.emacs/Emacs_01_01_2014.app/Contents/Resources" (90) (nil))
file-truename("/Users/HOME/.0.data/.0.emacs/Emacs_01_01_2014.app/Contents/Resources/lisp" (90) (nil))
file-truename("/Users/HOME/.0.data/.0.emacs/Emacs_01_01_2014.app/Contents/Resources/lisp/emacs-lisp" (90) (nil))
file-truename("/Users/HOME/.0.data/.0.emacs/Emacs_01_01_2014.app/Contents/Resources/lisp/emacs-lisp/warnings.elc")
(display-warning :error (format "Bad holiday list item: %s\nError: %s\n" p err))
(condition-case err (eval p) (error (display-warning :error (format "Bad holiday list item: %s\nError: %s\n" p err)) nil))
(if calendar-debug-sexp (let ((debug-on-error t)) (eval p)) (condition-case err (eval p) (error (display-warning :error (format "Bad holiday list item: %s\nError: %s\n" p err)) nil)))
(setq h (if calendar-debug-sexp (let ((debug-on-error t)) (eval p)) (condition-case err (eval p) (error (display-warning :error (format "Bad holiday list item: %s\nError: %s\n" p err)) nil))))
(if (setq h (if calendar-debug-sexp (let ((debug-on-error t)) (eval p)) (condition-case err (eval p) (error (display-warning :error (format "Bad holiday list item: %s\nError: %s\n" p err)) nil)))) (setq res (append h res)))
(while --dolist-tail-- (setq p (car --dolist-tail--)) (if (setq h (if calendar-debug-sexp (let ((debug-on-error t)) (eval p)) (condition-case err (eval p) (error (display-warning :error (format "Bad holiday list item: %s\nError: %s\n" p err)) nil)))) (setq res (append h res))) (setq --dolist-tail-- (cdr --dolist-tail--)))
(let ((--dolist-tail-- court-holidays) p) (while --dolist-tail-- (setq p (car --dolist-tail--)) (if (setq h (if calendar-debug-sexp (let ((debug-on-error t)) (eval p)) (condition-case err (eval p) (error (display-warning :error ...) nil)))) (setq res (append h res))) (setq --dolist-tail-- (cdr --dolist-tail--))) (setq p nil) res)
(sort (let ((--dolist-tail-- court-holidays) p) (while --dolist-tail-- (setq p (car --dolist-tail--)) (if (setq h (if calendar-debug-sexp (let (...) (eval p)) (condition-case err (eval p) (error ... nil)))) (setq res (append h res))) (setq --dolist-tail-- (cdr --dolist-tail--))) (setq p nil) res) (quote calendar-date-compare))
(let (res h err) (sort (let ((--dolist-tail-- court-holidays) p) (while --dolist-tail-- (setq p (car --dolist-tail--)) (if (setq h (if calendar-debug-sexp (let ... ...) (condition-case err ... ...))) (setq res (append h res))) (setq --dolist-tail-- (cdr --dolist-tail--))) (setq p nil) res) (quote calendar-date-compare)))
(let ((--dolist-tail-- (let (res h err) (sort (let ((--dolist-tail-- court-holidays) p) (while --dolist-tail-- (setq p ...) (if ... ...) (setq --dolist-tail-- ...)) (setq p nil) res) (quote calendar-date-compare)))) holiday) (while --dolist-tail-- (setq holiday (car --dolist-tail--)) (lawlist-calendar-mark-visible-date (car holiday) lawlist-court-holiday-face nil court-holiday nil nil nil) (setq --dolist-tail-- (cdr --dolist-tail--))))
(save-current-buffer (set-buffer (get-buffer calendar-buffer)) (let ((--dolist-tail-- (let (res h err) (sort (let (... p) (while --dolist-tail-- ... ... ...) (setq p nil) res) (quote calendar-date-compare)))) holiday) (while --dolist-tail-- (setq holiday (car --dolist-tail--)) (lawlist-calendar-mark-visible-date (car holiday) lawlist-court-holiday-face nil court-holiday nil nil nil) (setq --dolist-tail-- (cdr --dolist-tail--)))) (let ((--dolist-tail-- (let (res h err) (sort (let (... p) (while --dolist-tail-- ... ... ...) (setq p nil) res) (quote calendar-date-compare)))) holiday) (while --dolist-tail-- (setq holiday (car --dolist-tail--)) (lawlist-calendar-mark-visible-date (car holiday) lawlist-court-appearance-face nil nil court-appearance nil nil) (setq --dolist-tail-- (cdr --dolist-
tail--)))) (let ((--dolist-tail-- (let (res h err) (sort (let (... p) (while --dolist-tail-- ... ... ...) (setq p nil) res) (quote calendar-date-compare)))) holiday) (while --dolist-tail-- (setq holiday (car --dolist-tail--)) (lawlist-calendar-mark-visible-date (car holiday) lawlist-appointment-face nil nil nil appointment nil) (setq --dolist-tail-- (cdr --dolist-tail--)))) (let ((--dolist-tail-- (let (res h err) (sort (let (... p) (while --dolist-tail-- ... ... ...) (setq p nil) res) (quote calendar-date-compare)))) holiday) (while --dolist-tail-- (setq holiday (car --dolist-tail--)) (lawlist-calendar-mark-visible-date (car holiday) lawlist-birthday-face nil nil nil nil birthday) (setq --dolist-tail-- (cdr --dolist-tail--)))))
(let* (narrowed (court-holiday t) (appointment t) (birthday t) birthdays appointments (court-appearance t) court-appearances element todo-state deadline scheduled day month year today days-scheduled title) (if (not (get-file-buffer lawlist-todo-file)) (progn (find-file-noselect lawlist-todo-file) (if (not (or (and (narrow-p) (> ... 0)) (get-buffer-window "CAPTURE-.todo" (selected-frame)) (get-buffer-window "*Org Agenda*" (selected-frame)))) (save-current-buffer (set-buffer (get-file-buffer lawlist-todo-file)) (setq buffer-read-only t))))) (save-current-buffer (set-buffer (get-file-buffer lawlist-todo-file)) (save-excursion (if (narrow-p) (progn (setq narrowed t) (widen))) (goto-char (point-max)) (while (re-search-backward "^\\*\\* \\(Reference\\|Delegated\\|Postponed\\|Waiting\\)" nil t)
(setq element (org-element-at-point)) (setq todo-state (org-element-property :todo-keyword element)) (setq title (org-element-property :title element)) (setq deadline (condition-case nil (progn (org-element-property :deadline element)) (error nil))) (setq scheduled (condition-case nil (progn (org-element-property :scheduled element)) (error nil))) (setq day (condition-case nil (progn (org-element-property :day-start deadline)) (error nil))) (setq month (condition-case nil (progn (org-element-property :month-start deadline)) (error nil))) (setq year (condition-case nil (progn (org-element-property :year-start deadline)) (error nil))) (if (and scheduled deadline (string= todo-state "Reference")) (progn (setq court-appearances (append court-appearances ...)))) (if (and scheduled deadline (
string= todo-state "Delegated")) (progn (setq appointments (append appointments ...)))) (if (and deadline (string= todo-state "Waiting")) (progn (setq birthdays (append birthdays ...)))))) (if narrowed (org-narrow-to-subtree))) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (let ((--dolist-tail-- (let (res h err) (sort (let ... ... ... res) (quote calendar-date-compare)))) holiday) (while --dolist-tail-- (setq holiday (car --dolist-tail--)) (lawlist-calendar-mark-visible-date (car holiday) lawlist-court-holiday-face nil court-holiday nil nil nil) (setq --dolist-tail-- (cdr --dolist-tail--)))) (let ((--dolist-tail-- (let (res h err) (sort (let ... ... ... res) (quote calendar-date-compare)))) holiday) (while --dolist-tail-- (setq holiday (car --dolist-tail--)) (lawlist-cal
endar-mark-visible-date (car holiday) lawlist-court-appearance-face nil nil court-appearance nil nil) (setq --dolist-tail-- (cdr --dolist-tail--)))) (let ((--dolist-tail-- (let (res h err) (sort (let ... ... ... res) (quote calendar-date-compare)))) holiday) (while --dolist-tail-- (setq holiday (car --dolist-tail--)) (lawlist-calendar-mark-visible-date (car holiday) lawlist-appointment-face nil nil nil appointment nil) (setq --dolist-tail-- (cdr --dolist-tail--)))) (let ((--dolist-tail-- (let (res h err) (sort (let ... ... ... res) (quote calendar-date-compare)))) holiday) (while --dolist-tail-- (setq holiday (car --dolist-tail--)) (lawlist-calendar-mark-visible-date (car holiday) lawlist-birthday-face nil nil nil nil birthday) (setq --dolist-tail-- (cdr --dolist-tail--))))))
lawlist-mark-calendar()
(save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq buffer-read-only nil) (calendar-generate month year) (calendar-update-mode-line) (lawlist-mark-calendar) (let* ((today (calendar-current-date))) (cond ((calendar-date-is-visible-p today) (lawlist-calendar-cursor-to-visible-date today)) (t (lawlist-calendar-cursor-to-visible-date (list displayed-month 1 displayed-year))))))
(cond ((and (and month year) (get-buffer calendar-buffer)) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq buffer-read-only nil) (calendar-generate month year) (calendar-update-mode-line) (lawlist-mark-calendar) (let* ((today (calendar-current-date))) (cond ((calendar-date-is-visible-p today) (lawlist-calendar-cursor-to-visible-date today)) (t (lawlist-calendar-cursor-to-visible-date (list displayed-month 1 displayed-year)))))) (if (not (get-buffer-window calendar-buffer (selected-frame))) (lawlist-display-buffer-below-selected (get-buffer calendar-buffer) (quote ((window-height . 10)))))) ((and (not (and month year)) (get-buffer calendar-buffer)) (let* ((today (calendar-current-date)) (month (calendar-extract-month today)) (year (calendar-extract-year today))) (save
-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq buffer-read-only nil) (calendar-generate month year) (calendar-update-mode-line) (lawlist-mark-calendar) (cond ((calendar-date-is-visible-p today) (lawlist-calendar-cursor-to-visible-date today)) (t (lawlist-calendar-cursor-to-visible-date (list displayed-month 1 displayed-year)))))) (if (not (get-buffer-window calendar-buffer (selected-frame))) (lawlist-display-buffer-below-selected (get-buffer calendar-buffer) (quote ((window-height . 10)))))) (t (let* ((inhibit-read-only t) (today (calendar-current-date)) (month (if month month (calendar-extract-month today))) (year (if year year (calendar-extract-year today)))) (save-current-buffer (set-buffer (get-buffer-create calendar-buffer)) (calendar-mode) (setq buffer-read-only ni
l) (calendar-generate month year) (calendar-update-mode-line) (lawlist-mark-calendar) (cond ((calendar-date-is-visible-p today) (lawlist-calendar-cursor-to-visible-date today)) (t (lawlist-calendar-cursor-to-visible-date (list displayed-month 1 displayed-year)))) (lawlist-display-buffer-below-selected (get-buffer calendar-buffer) (quote ((window-height . 10)))) (set-window-scroll-bars (get-buffer-window calendar-buffer (selected-frame)) 0 nil)))))
(let* ((month (if month month)) (year (if year year))) (cond ((and (and month year) (get-buffer calendar-buffer)) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq buffer-read-only nil) (calendar-generate month year) (calendar-update-mode-line) (lawlist-mark-calendar) (let* ((today (calendar-current-date))) (cond ((calendar-date-is-visible-p today) (lawlist-calendar-cursor-to-visible-date today)) (t (lawlist-calendar-cursor-to-visible-date ...))))) (if (not (get-buffer-window calendar-buffer (selected-frame))) (lawlist-display-buffer-below-selected (get-buffer calendar-buffer) (quote ((window-height . 10)))))) ((and (not (and month year)) (get-buffer calendar-buffer)) (let* ((today (calendar-current-date)) (month (calendar-extract-month today)) (year (calendar-extract-
year today))) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq buffer-read-only nil) (calendar-generate month year) (calendar-update-mode-line) (lawlist-mark-calendar) (cond ((calendar-date-is-visible-p today) (lawlist-calendar-cursor-to-visible-date today)) (t (lawlist-calendar-cursor-to-visible-date ...))))) (if (not (get-buffer-window calendar-buffer (selected-frame))) (lawlist-display-buffer-below-selected (get-buffer calendar-buffer) (quote ((window-height . 10)))))) (t (let* ((inhibit-read-only t) (today (calendar-current-date)) (month (if month month (calendar-extract-month today))) (year (if year year (calendar-extract-year today)))) (save-current-buffer (set-buffer (get-buffer-create calendar-buffer)) (calendar-mode) (setq buffer-read-only nil) (calendar-gene
rate month year) (calendar-update-mode-line) (lawlist-mark-calendar) (cond ((calendar-date-is-visible-p today) (lawlist-calendar-cursor-to-visible-date today)) (t (lawlist-calendar-cursor-to-visible-date ...))) (lawlist-display-buffer-below-selected (get-buffer calendar-buffer) (quote (...))) (set-window-scroll-bars (get-buffer-window calendar-buffer (selected-frame)) 0 nil))))))
lawlist-calendar(5 2015)
(let* ((span (org-agenda-ndays-to-span (or span org-agenda-ndays org-agenda-span))) (ndays (org-agenda-span-to-ndays span start-day)) (thefiles (org-agenda-files nil (quote ifmode))) (files thefiles) (day-numbers (list start-day)) (inhibit-redisplay (not debug-on-error)) s rtnall file date d start-pos end-pos) (let ((--dotimes-limit-- (1- ndays)) (n 0)) (while (< n --dotimes-limit--) (setq day-numbers (cons (1+ (car day-numbers)) day-numbers)) (setq n (1+ n)))) (setq day-numbers (nreverse day-numbers)) (org-set-local (quote org-starting-day) (car day-numbers)) (org-set-local (quote org-agenda-current-span) (org-agenda-ndays-to-span span)) (setq s (point)) (insert (format "%s" (decode-name-of-month (format "%s" month))) (if day (concat " " (format "%s" day) ", ") " ") (format "%s" year) "
\n\n") (while (setq d (car-safe (prog1 day-numbers (setq day-numbers (cdr day-numbers))))) (setq date (calendar-gregorian-from-absolute d) s (point)) (if (and (not start-pos) (= d start-day)) (setq start-pos (point)) (if (and start-pos (not end-pos)) (setq end-pos (point)))) (setq files thefiles rtnall nil) (while (setq file (car-safe (prog1 files (setq files (cdr files))))) (catch (quote nextfile) (setq rtnall (apply (quote lawlist-agenda-get-day-entries) file date (quote (:deadline)))))) (lawlist-add-buffer (get-file-buffer lawlist-todo-file) (selected-frame)) (save-current-buffer (set-buffer (get-file-buffer lawlist-todo-file)) (hs-show-all) (show-all) (setq buffer-read-only t)) (if rtnall (progn (insert (funcall lawlist-agenda-format-date date) "\n") (insert (org-agenda-finalize-entr
ies rtnall) "\n")))) (goto-char (point-min)) (font-lock-mode 1) (setq buffer-read-only t) (lawlist-display-buffer (get-buffer org-agenda-buffer-name)) (sit-for 0.01) (lawlist-calendar month year))
lawlist-agenda("2015-5-01" month 5 2015)
(let* (span start-day (old-date (calendar-cursor-to-date)) (today (calendar-current-date)) (month displayed-month) (year displayed-year)) (setq buffer-read-only nil) (let ((nmonths (or nil 12)) macro-y) (if (< year 0) (setq year (1+ year))) (setq macro-y (+ (* year nmonths) month -1 arg) month (1+ (mod macro-y nmonths)) year (/ macro-y nmonths)) (and (< macro-y 0) (> month 1) (setq year (1- year))) (if (< year 1) (setq year (1- year)))) (calendar-generate month year) (calendar-update-mode-line) (lawlist-calendar-cursor-to-visible-date (cond ((calendar-date-is-visible-p old-date) old-date) ((calendar-date-is-visible-p today) today) (t (list month 1 year)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day spa
n month year))
(if (zerop arg) nil (let* (span start-day (old-date (calendar-cursor-to-date)) (today (calendar-current-date)) (month displayed-month) (year displayed-year)) (setq buffer-read-only nil) (let ((nmonths (or nil 12)) macro-y) (if (< year 0) (setq year (1+ year))) (setq macro-y (+ (* year nmonths) month -1 arg) month (1+ (mod macro-y nmonths)) year (/ macro-y nmonths)) (and (< macro-y 0) (> month 1) (setq year (1- year))) (if (< year 1) (setq year (1- year)))) (calendar-generate month year) (calendar-update-mode-line) (lawlist-calendar-cursor-to-visible-date (cond ((calendar-date-is-visible-p old-date) old-date) ((calendar-date-is-visible-p today) today) (t (list month 1 year)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-
agenda start-day span month year)))
(save-current-buffer (set-buffer (get-buffer calendar-buffer)) (if arg nil (setq arg 1)) (calendar-cursor-to-nearest-date) (if (zerop arg) nil (let* (span start-day (old-date (calendar-cursor-to-date)) (today (calendar-current-date)) (month displayed-month) (year displayed-year)) (setq buffer-read-only nil) (let ((nmonths (or nil 12)) macro-y) (if (< year 0) (setq year (1+ year))) (setq macro-y (+ (* year nmonths) month -1 arg) month (1+ (mod macro-y nmonths)) year (/ macro-y nmonths)) (and (< macro-y 0) (> month 1) (setq year (1- year))) (if (< year 1) (setq year (1- year)))) (calendar-generate month year) (calendar-update-mode-line) (lawlist-calendar-cursor-to-visible-date (cond ((calendar-date-is-visible-p old-date) old-date) ((calendar-date-is-visible-p today) today) (t (list month 1
year)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year))))
lawlist-calendar-scroll-left()
(cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time (current-time)))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month an
d year: " nil nil (format-time-string "%B %Y" ...)) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom
-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done.")))
(let* ((span (quote month)) start-day year (month (let ((--cl-var-- (read-event))) (cond ((memql --cl-var-- (quote ...)) 1) ((memql --cl-var-- (quote ...)) 2) ((memql --cl-var-- (quote ...)) 3) ((memql --cl-var-- (quote ...)) 4) ((memql --cl-var-- (quote ...)) 5) ((memql --cl-var-- (quote ...)) 6) ((memql --cl-var-- (quote ...)) 7) ((memql --cl-var-- (quote ...)) 8) ((memql --cl-var-- (quote ...)) 9) ((memql --cl-var-- (quote ...)) 10) ((memql --cl-var-- (quote ...)) 11) ((memql --cl-var-- (quote ...)) 12) ((memql --cl-var-- (quote ...)) 500) ((memql --cl-var-- (quote ...)) 501) ((memql --cl-var-- (quote ...)) 502) ((memql --cl-var-- (quote ...)) 503) ((memql --cl-var-- (quote ...)) 504) ((memql --cl-var-- (quote ...)) 505) ((memql --cl-var-- (quote ...)) 506) ((memql --cl-var-- (quote .
..)) 507) ((eql --cl-var-- (quote 8388704)) 508) ((eql --cl-var-- (quote 8388734)) 509) ((eql --cl-var-- (quote 8388719)) 510) ((memql --cl-var-- (quote ...)) 511) ((memql --cl-var-- (quote ...)) 512) ((eql --cl-var-- (quote 8388721)) 513) ((eql --cl-var-- (quote 8388727)) 514) ((memql --cl-var-- (quote ...)) 515) ((memql --cl-var-- (quote ...)) 516) ((eql --cl-var-- (quote 8388715)) 517) ((memql --cl-var-- (quote ...)) 518) ((memql --cl-var-- (quote ...)) 519) ((memql --cl-var-- (quote ...)) 520) ((memql --cl-var-- (quote ...)) 521) ((eql --cl-var-- (quote 109)) 522) ((eql --cl-var-- (quote 77)) 523) ((eql --cl-var-- (quote 46)) 1000) ((eql --cl-var-- (quote 119)) 1001) ((eql --cl-var-- (quote 103)) 1002) ((eql --cl-var-- (quote 116)) 1003) ((eql --cl-var-- (quote 121)) 1004) ((eql --cl
-var-- (quote 89)) 1005))))) (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time ...))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (rea
d-string "Month and year: " nil nil ...) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)
) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done."))))
abo-abo()
(cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time (current-time)))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month an
d year: " nil nil (format-time-string "%B %Y" ...)) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom
-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done.")))
(let* ((span (quote month)) start-day year (month (let ((--cl-var-- (read-event))) (cond ((memql --cl-var-- (quote ...)) 1) ((memql --cl-var-- (quote ...)) 2) ((memql --cl-var-- (quote ...)) 3) ((memql --cl-var-- (quote ...)) 4) ((memql --cl-var-- (quote ...)) 5) ((memql --cl-var-- (quote ...)) 6) ((memql --cl-var-- (quote ...)) 7) ((memql --cl-var-- (quote ...)) 8) ((memql --cl-var-- (quote ...)) 9) ((memql --cl-var-- (quote ...)) 10) ((memql --cl-var-- (quote ...)) 11) ((memql --cl-var-- (quote ...)) 12) ((memql --cl-var-- (quote ...)) 500) ((memql --cl-var-- (quote ...)) 501) ((memql --cl-var-- (quote ...)) 502) ((memql --cl-var-- (quote ...)) 503) ((memql --cl-var-- (quote ...)) 504) ((memql --cl-var-- (quote ...)) 505) ((memql --cl-var-- (quote ...)) 506) ((memql --cl-var-- (quote .
..)) 507) ((eql --cl-var-- (quote 8388704)) 508) ((eql --cl-var-- (quote 8388734)) 509) ((eql --cl-var-- (quote 8388719)) 510) ((memql --cl-var-- (quote ...)) 511) ((memql --cl-var-- (quote ...)) 512) ((eql --cl-var-- (quote 8388721)) 513) ((eql --cl-var-- (quote 8388727)) 514) ((memql --cl-var-- (quote ...)) 515) ((memql --cl-var-- (quote ...)) 516) ((eql --cl-var-- (quote 8388715)) 517) ((memql --cl-var-- (quote ...)) 518) ((memql --cl-var-- (quote ...)) 519) ((memql --cl-var-- (quote ...)) 520) ((memql --cl-var-- (quote ...)) 521) ((eql --cl-var-- (quote 109)) 522) ((eql --cl-var-- (quote 77)) 523) ((eql --cl-var-- (quote 46)) 1000) ((eql --cl-var-- (quote 119)) 1001) ((eql --cl-var-- (quote 103)) 1002) ((eql --cl-var-- (quote 116)) 1003) ((eql --cl-var-- (quote 121)) 1004) ((eql --cl
-var-- (quote 89)) 1005))))) (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time ...))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (rea
d-string "Month and year: " nil nil ...) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)
) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done."))))
abo-abo()
(cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time (current-time)))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month an
d year: " nil nil (format-time-string "%B %Y" ...)) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom
-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done.")))
(let* ((span (quote month)) start-day year (month (let ((--cl-var-- (read-event))) (cond ((memql --cl-var-- (quote ...)) 1) ((memql --cl-var-- (quote ...)) 2) ((memql --cl-var-- (quote ...)) 3) ((memql --cl-var-- (quote ...)) 4) ((memql --cl-var-- (quote ...)) 5) ((memql --cl-var-- (quote ...)) 6) ((memql --cl-var-- (quote ...)) 7) ((memql --cl-var-- (quote ...)) 8) ((memql --cl-var-- (quote ...)) 9) ((memql --cl-var-- (quote ...)) 10) ((memql --cl-var-- (quote ...)) 11) ((memql --cl-var-- (quote ...)) 12) ((memql --cl-var-- (quote ...)) 500) ((memql --cl-var-- (quote ...)) 501) ((memql --cl-var-- (quote ...)) 502) ((memql --cl-var-- (quote ...)) 503) ((memql --cl-var-- (quote ...)) 504) ((memql --cl-var-- (quote ...)) 505) ((memql --cl-var-- (quote ...)) 506) ((memql --cl-var-- (quote .
..)) 507) ((eql --cl-var-- (quote 8388704)) 508) ((eql --cl-var-- (quote 8388734)) 509) ((eql --cl-var-- (quote 8388719)) 510) ((memql --cl-var-- (quote ...)) 511) ((memql --cl-var-- (quote ...)) 512) ((eql --cl-var-- (quote 8388721)) 513) ((eql --cl-var-- (quote 8388727)) 514) ((memql --cl-var-- (quote ...)) 515) ((memql --cl-var-- (quote ...)) 516) ((eql --cl-var-- (quote 8388715)) 517) ((memql --cl-var-- (quote ...)) 518) ((memql --cl-var-- (quote ...)) 519) ((memql --cl-var-- (quote ...)) 520) ((memql --cl-var-- (quote ...)) 521) ((eql --cl-var-- (quote 109)) 522) ((eql --cl-var-- (quote 77)) 523) ((eql --cl-var-- (quote 46)) 1000) ((eql --cl-var-- (quote 119)) 1001) ((eql --cl-var-- (quote 103)) 1002) ((eql --cl-var-- (quote 116)) 1003) ((eql --cl-var-- (quote 121)) 1004) ((eql --cl
-var-- (quote 89)) 1005))))) (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time ...))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (rea
d-string "Month and year: " nil nil ...) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)
) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done."))))
abo-abo()
(cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time (current-time)))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month an
d year: " nil nil (format-time-string "%B %Y" ...)) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom
-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done.")))
(let* ((span (quote month)) start-day year (month (let ((--cl-var-- (read-event))) (cond ((memql --cl-var-- (quote ...)) 1) ((memql --cl-var-- (quote ...)) 2) ((memql --cl-var-- (quote ...)) 3) ((memql --cl-var-- (quote ...)) 4) ((memql --cl-var-- (quote ...)) 5) ((memql --cl-var-- (quote ...)) 6) ((memql --cl-var-- (quote ...)) 7) ((memql --cl-var-- (quote ...)) 8) ((memql --cl-var-- (quote ...)) 9) ((memql --cl-var-- (quote ...)) 10) ((memql --cl-var-- (quote ...)) 11) ((memql --cl-var-- (quote ...)) 12) ((memql --cl-var-- (quote ...)) 500) ((memql --cl-var-- (quote ...)) 501) ((memql --cl-var-- (quote ...)) 502) ((memql --cl-var-- (quote ...)) 503) ((memql --cl-var-- (quote ...)) 504) ((memql --cl-var-- (quote ...)) 505) ((memql --cl-var-- (quote ...)) 506) ((memql --cl-var-- (quote .
..)) 507) ((eql --cl-var-- (quote 8388704)) 508) ((eql --cl-var-- (quote 8388734)) 509) ((eql --cl-var-- (quote 8388719)) 510) ((memql --cl-var-- (quote ...)) 511) ((memql --cl-var-- (quote ...)) 512) ((eql --cl-var-- (quote 8388721)) 513) ((eql --cl-var-- (quote 8388727)) 514) ((memql --cl-var-- (quote ...)) 515) ((memql --cl-var-- (quote ...)) 516) ((eql --cl-var-- (quote 8388715)) 517) ((memql --cl-var-- (quote ...)) 518) ((memql --cl-var-- (quote ...)) 519) ((memql --cl-var-- (quote ...)) 520) ((memql --cl-var-- (quote ...)) 521) ((eql --cl-var-- (quote 109)) 522) ((eql --cl-var-- (quote 77)) 523) ((eql --cl-var-- (quote 46)) 1000) ((eql --cl-var-- (quote 119)) 1001) ((eql --cl-var-- (quote 103)) 1002) ((eql --cl-var-- (quote 116)) 1003) ((eql --cl-var-- (quote 121)) 1004) ((eql --cl
-var-- (quote 89)) 1005))))) (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time ...))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (rea
d-string "Month and year: " nil nil ...) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)
) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done."))))
abo-abo()
(cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time (current-time)))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month an
d year: " nil nil (format-time-string "%B %Y" ...)) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom
-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done.")))
(let* ((span (quote month)) start-day year (month (let ((--cl-var-- (read-event))) (cond ((memql --cl-var-- (quote ...)) 1) ((memql --cl-var-- (quote ...)) 2) ((memql --cl-var-- (quote ...)) 3) ((memql --cl-var-- (quote ...)) 4) ((memql --cl-var-- (quote ...)) 5) ((memql --cl-var-- (quote ...)) 6) ((memql --cl-var-- (quote ...)) 7) ((memql --cl-var-- (quote ...)) 8) ((memql --cl-var-- (quote ...)) 9) ((memql --cl-var-- (quote ...)) 10) ((memql --cl-var-- (quote ...)) 11) ((memql --cl-var-- (quote ...)) 12) ((memql --cl-var-- (quote ...)) 500) ((memql --cl-var-- (quote ...)) 501) ((memql --cl-var-- (quote ...)) 502) ((memql --cl-var-- (quote ...)) 503) ((memql --cl-var-- (quote ...)) 504) ((memql --cl-var-- (quote ...)) 505) ((memql --cl-var-- (quote ...)) 506) ((memql --cl-var-- (quote .
..)) 507) ((eql --cl-var-- (quote 8388704)) 508) ((eql --cl-var-- (quote 8388734)) 509) ((eql --cl-var-- (quote 8388719)) 510) ((memql --cl-var-- (quote ...)) 511) ((memql --cl-var-- (quote ...)) 512) ((eql --cl-var-- (quote 8388721)) 513) ((eql --cl-var-- (quote 8388727)) 514) ((memql --cl-var-- (quote ...)) 515) ((memql --cl-var-- (quote ...)) 516) ((eql --cl-var-- (quote 8388715)) 517) ((memql --cl-var-- (quote ...)) 518) ((memql --cl-var-- (quote ...)) 519) ((memql --cl-var-- (quote ...)) 520) ((memql --cl-var-- (quote ...)) 521) ((eql --cl-var-- (quote 109)) 522) ((eql --cl-var-- (quote 77)) 523) ((eql --cl-var-- (quote 46)) 1000) ((eql --cl-var-- (quote 119)) 1001) ((eql --cl-var-- (quote 103)) 1002) ((eql --cl-var-- (quote 116)) 1003) ((eql --cl-var-- (quote 121)) 1004) ((eql --cl
-var-- (quote 89)) 1005))))) (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time ...))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (rea
d-string "Month and year: " nil nil ...) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)
) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done."))))
abo-abo()
(cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time (current-time)))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month an
d year: " nil nil (format-time-string "%B %Y" ...)) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom
-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done.")))
(let* ((span (quote month)) start-day year (month (let ((--cl-var-- (read-event))) (cond ((memql --cl-var-- (quote ...)) 1) ((memql --cl-var-- (quote ...)) 2) ((memql --cl-var-- (quote ...)) 3) ((memql --cl-var-- (quote ...)) 4) ((memql --cl-var-- (quote ...)) 5) ((memql --cl-var-- (quote ...)) 6) ((memql --cl-var-- (quote ...)) 7) ((memql --cl-var-- (quote ...)) 8) ((memql --cl-var-- (quote ...)) 9) ((memql --cl-var-- (quote ...)) 10) ((memql --cl-var-- (quote ...)) 11) ((memql --cl-var-- (quote ...)) 12) ((memql --cl-var-- (quote ...)) 500) ((memql --cl-var-- (quote ...)) 501) ((memql --cl-var-- (quote ...)) 502) ((memql --cl-var-- (quote ...)) 503) ((memql --cl-var-- (quote ...)) 504) ((memql --cl-var-- (quote ...)) 505) ((memql --cl-var-- (quote ...)) 506) ((memql --cl-var-- (quote .
..)) 507) ((eql --cl-var-- (quote 8388704)) 508) ((eql --cl-var-- (quote 8388734)) 509) ((eql --cl-var-- (quote 8388719)) 510) ((memql --cl-var-- (quote ...)) 511) ((memql --cl-var-- (quote ...)) 512) ((eql --cl-var-- (quote 8388721)) 513) ((eql --cl-var-- (quote 8388727)) 514) ((memql --cl-var-- (quote ...)) 515) ((memql --cl-var-- (quote ...)) 516) ((eql --cl-var-- (quote 8388715)) 517) ((memql --cl-var-- (quote ...)) 518) ((memql --cl-var-- (quote ...)) 519) ((memql --cl-var-- (quote ...)) 520) ((memql --cl-var-- (quote ...)) 521) ((eql --cl-var-- (quote 109)) 522) ((eql --cl-var-- (quote 77)) 523) ((eql --cl-var-- (quote 46)) 1000) ((eql --cl-var-- (quote 119)) 1001) ((eql --cl-var-- (quote 103)) 1002) ((eql --cl-var-- (quote 116)) 1003) ((eql --cl-var-- (quote 121)) 1004) ((eql --cl
-var-- (quote 89)) 1005))))) (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time ...))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (rea
d-string "Month and year: " nil nil ...) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)
) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done."))))
abo-abo()
(cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time (current-time)))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month an
d year: " nil nil (format-time-string "%B %Y" ...)) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom
-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done.")))
(let* ((span (quote month)) start-day year (month (let ((--cl-var-- (read-event))) (cond ((memql --cl-var-- (quote ...)) 1) ((memql --cl-var-- (quote ...)) 2) ((memql --cl-var-- (quote ...)) 3) ((memql --cl-var-- (quote ...)) 4) ((memql --cl-var-- (quote ...)) 5) ((memql --cl-var-- (quote ...)) 6) ((memql --cl-var-- (quote ...)) 7) ((memql --cl-var-- (quote ...)) 8) ((memql --cl-var-- (quote ...)) 9) ((memql --cl-var-- (quote ...)) 10) ((memql --cl-var-- (quote ...)) 11) ((memql --cl-var-- (quote ...)) 12) ((memql --cl-var-- (quote ...)) 500) ((memql --cl-var-- (quote ...)) 501) ((memql --cl-var-- (quote ...)) 502) ((memql --cl-var-- (quote ...)) 503) ((memql --cl-var-- (quote ...)) 504) ((memql --cl-var-- (quote ...)) 505) ((memql --cl-var-- (quote ...)) 506) ((memql --cl-var-- (quote .
..)) 507) ((eql --cl-var-- (quote 8388704)) 508) ((eql --cl-var-- (quote 8388734)) 509) ((eql --cl-var-- (quote 8388719)) 510) ((memql --cl-var-- (quote ...)) 511) ((memql --cl-var-- (quote ...)) 512) ((eql --cl-var-- (quote 8388721)) 513) ((eql --cl-var-- (quote 8388727)) 514) ((memql --cl-var-- (quote ...)) 515) ((memql --cl-var-- (quote ...)) 516) ((eql --cl-var-- (quote 8388715)) 517) ((memql --cl-var-- (quote ...)) 518) ((memql --cl-var-- (quote ...)) 519) ((memql --cl-var-- (quote ...)) 520) ((memql --cl-var-- (quote ...)) 521) ((eql --cl-var-- (quote 109)) 522) ((eql --cl-var-- (quote 77)) 523) ((eql --cl-var-- (quote 46)) 1000) ((eql --cl-var-- (quote 119)) 1001) ((eql --cl-var-- (quote 103)) 1002) ((eql --cl-var-- (quote 116)) 1003) ((eql --cl-var-- (quote 121)) 1004) ((eql --cl
-var-- (quote 89)) 1005))))) (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time ...))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (rea
d-string "Month and year: " nil nil ...) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)
) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done."))))
abo-abo()
(cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time (current-time)))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month an
d year: " nil nil (format-time-string "%B %Y" ...)) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom
-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done.")))
(let* ((span (quote month)) start-day year (month (let ((--cl-var-- (read-event))) (cond ((memql --cl-var-- (quote ...)) 1) ((memql --cl-var-- (quote ...)) 2) ((memql --cl-var-- (quote ...)) 3) ((memql --cl-var-- (quote ...)) 4) ((memql --cl-var-- (quote ...)) 5) ((memql --cl-var-- (quote ...)) 6) ((memql --cl-var-- (quote ...)) 7) ((memql --cl-var-- (quote ...)) 8) ((memql --cl-var-- (quote ...)) 9) ((memql --cl-var-- (quote ...)) 10) ((memql --cl-var-- (quote ...)) 11) ((memql --cl-var-- (quote ...)) 12) ((memql --cl-var-- (quote ...)) 500) ((memql --cl-var-- (quote ...)) 501) ((memql --cl-var-- (quote ...)) 502) ((memql --cl-var-- (quote ...)) 503) ((memql --cl-var-- (quote ...)) 504) ((memql --cl-var-- (quote ...)) 505) ((memql --cl-var-- (quote ...)) 506) ((memql --cl-var-- (quote .
..)) 507) ((eql --cl-var-- (quote 8388704)) 508) ((eql --cl-var-- (quote 8388734)) 509) ((eql --cl-var-- (quote 8388719)) 510) ((memql --cl-var-- (quote ...)) 511) ((memql --cl-var-- (quote ...)) 512) ((eql --cl-var-- (quote 8388721)) 513) ((eql --cl-var-- (quote 8388727)) 514) ((memql --cl-var-- (quote ...)) 515) ((memql --cl-var-- (quote ...)) 516) ((eql --cl-var-- (quote 8388715)) 517) ((memql --cl-var-- (quote ...)) 518) ((memql --cl-var-- (quote ...)) 519) ((memql --cl-var-- (quote ...)) 520) ((memql --cl-var-- (quote ...)) 521) ((eql --cl-var-- (quote 109)) 522) ((eql --cl-var-- (quote 77)) 523) ((eql --cl-var-- (quote 46)) 1000) ((eql --cl-var-- (quote 119)) 1001) ((eql --cl-var-- (quote 103)) 1002) ((eql --cl-var-- (quote 116)) 1003) ((eql --cl-var-- (quote 121)) 1004) ((eql --cl
-var-- (quote 89)) 1005))))) (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time ...))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (rea
d-string "Month and year: " nil nil ...) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)
) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done."))))
abo-abo()
(cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time (current-time)))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month an
d year: " nil nil (format-time-string "%B %Y" ...)) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom
-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done.")))
(let* ((span (quote month)) start-day year (month (let ((--cl-var-- (read-event))) (cond ((memql --cl-var-- (quote ...)) 1) ((memql --cl-var-- (quote ...)) 2) ((memql --cl-var-- (quote ...)) 3) ((memql --cl-var-- (quote ...)) 4) ((memql --cl-var-- (quote ...)) 5) ((memql --cl-var-- (quote ...)) 6) ((memql --cl-var-- (quote ...)) 7) ((memql --cl-var-- (quote ...)) 8) ((memql --cl-var-- (quote ...)) 9) ((memql --cl-var-- (quote ...)) 10) ((memql --cl-var-- (quote ...)) 11) ((memql --cl-var-- (quote ...)) 12) ((memql --cl-var-- (quote ...)) 500) ((memql --cl-var-- (quote ...)) 501) ((memql --cl-var-- (quote ...)) 502) ((memql --cl-var-- (quote ...)) 503) ((memql --cl-var-- (quote ...)) 504) ((memql --cl-var-- (quote ...)) 505) ((memql --cl-var-- (quote ...)) 506) ((memql --cl-var-- (quote .
..)) 507) ((eql --cl-var-- (quote 8388704)) 508) ((eql --cl-var-- (quote 8388734)) 509) ((eql --cl-var-- (quote 8388719)) 510) ((memql --cl-var-- (quote ...)) 511) ((memql --cl-var-- (quote ...)) 512) ((eql --cl-var-- (quote 8388721)) 513) ((eql --cl-var-- (quote 8388727)) 514) ((memql --cl-var-- (quote ...)) 515) ((memql --cl-var-- (quote ...)) 516) ((eql --cl-var-- (quote 8388715)) 517) ((memql --cl-var-- (quote ...)) 518) ((memql --cl-var-- (quote ...)) 519) ((memql --cl-var-- (quote ...)) 520) ((memql --cl-var-- (quote ...)) 521) ((eql --cl-var-- (quote 109)) 522) ((eql --cl-var-- (quote 77)) 523) ((eql --cl-var-- (quote 46)) 1000) ((eql --cl-var-- (quote 119)) 1001) ((eql --cl-var-- (quote 103)) 1002) ((eql --cl-var-- (quote 116)) 1003) ((eql --cl-var-- (quote 121)) 1004) ((eql --cl
-var-- (quote 89)) 1005))))) (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time ...))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (rea
d-string "Month and year: " nil nil ...) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)
) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done."))))
abo-abo()
(cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time (current-time)))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month an
d year: " nil nil (format-time-string "%B %Y" ...)) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom
-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done.")))
(let* ((span (quote month)) start-day year (month (let ((--cl-var-- (read-event))) (cond ((memql --cl-var-- (quote ...)) 1) ((memql --cl-var-- (quote ...)) 2) ((memql --cl-var-- (quote ...)) 3) ((memql --cl-var-- (quote ...)) 4) ((memql --cl-var-- (quote ...)) 5) ((memql --cl-var-- (quote ...)) 6) ((memql --cl-var-- (quote ...)) 7) ((memql --cl-var-- (quote ...)) 8) ((memql --cl-var-- (quote ...)) 9) ((memql --cl-var-- (quote ...)) 10) ((memql --cl-var-- (quote ...)) 11) ((memql --cl-var-- (quote ...)) 12) ((memql --cl-var-- (quote ...)) 500) ((memql --cl-var-- (quote ...)) 501) ((memql --cl-var-- (quote ...)) 502) ((memql --cl-var-- (quote ...)) 503) ((memql --cl-var-- (quote ...)) 504) ((memql --cl-var-- (quote ...)) 505) ((memql --cl-var-- (quote ...)) 506) ((memql --cl-var-- (quote .
..)) 507) ((eql --cl-var-- (quote 8388704)) 508) ((eql --cl-var-- (quote 8388734)) 509) ((eql --cl-var-- (quote 8388719)) 510) ((memql --cl-var-- (quote ...)) 511) ((memql --cl-var-- (quote ...)) 512) ((eql --cl-var-- (quote 8388721)) 513) ((eql --cl-var-- (quote 8388727)) 514) ((memql --cl-var-- (quote ...)) 515) ((memql --cl-var-- (quote ...)) 516) ((eql --cl-var-- (quote 8388715)) 517) ((memql --cl-var-- (quote ...)) 518) ((memql --cl-var-- (quote ...)) 519) ((memql --cl-var-- (quote ...)) 520) ((memql --cl-var-- (quote ...)) 521) ((eql --cl-var-- (quote 109)) 522) ((eql --cl-var-- (quote 77)) 523) ((eql --cl-var-- (quote 46)) 1000) ((eql --cl-var-- (quote 119)) 1001) ((eql --cl-var-- (quote 103)) 1002) ((eql --cl-var-- (quote 116)) 1003) ((eql --cl-var-- (quote 121)) 1004) ((eql --cl
-var-- (quote 89)) 1005))))) (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time ...))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (rea
d-string "Month and year: " nil nil ...) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)
) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done."))))
abo-abo()
(cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time (current-time)))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month an
d year: " nil nil (format-time-string "%B %Y" ...)) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom
-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done.")))
(let* ((span (quote month)) start-day year (month (let ((--cl-var-- (read-event))) (cond ((memql --cl-var-- (quote ...)) 1) ((memql --cl-var-- (quote ...)) 2) ((memql --cl-var-- (quote ...)) 3) ((memql --cl-var-- (quote ...)) 4) ((memql --cl-var-- (quote ...)) 5) ((memql --cl-var-- (quote ...)) 6) ((memql --cl-var-- (quote ...)) 7) ((memql --cl-var-- (quote ...)) 8) ((memql --cl-var-- (quote ...)) 9) ((memql --cl-var-- (quote ...)) 10) ((memql --cl-var-- (quote ...)) 11) ((memql --cl-var-- (quote ...)) 12) ((memql --cl-var-- (quote ...)) 500) ((memql --cl-var-- (quote ...)) 501) ((memql --cl-var-- (quote ...)) 502) ((memql --cl-var-- (quote ...)) 503) ((memql --cl-var-- (quote ...)) 504) ((memql --cl-var-- (quote ...)) 505) ((memql --cl-var-- (quote ...)) 506) ((memql --cl-var-- (quote .
..)) 507) ((eql --cl-var-- (quote 8388704)) 508) ((eql --cl-var-- (quote 8388734)) 509) ((eql --cl-var-- (quote 8388719)) 510) ((memql --cl-var-- (quote ...)) 511) ((memql --cl-var-- (quote ...)) 512) ((eql --cl-var-- (quote 8388721)) 513) ((eql --cl-var-- (quote 8388727)) 514) ((memql --cl-var-- (quote ...)) 515) ((memql --cl-var-- (quote ...)) 516) ((eql --cl-var-- (quote 8388715)) 517) ((memql --cl-var-- (quote ...)) 518) ((memql --cl-var-- (quote ...)) 519) ((memql --cl-var-- (quote ...)) 520) ((memql --cl-var-- (quote ...)) 521) ((eql --cl-var-- (quote 109)) 522) ((eql --cl-var-- (quote 77)) 523) ((eql --cl-var-- (quote 46)) 1000) ((eql --cl-var-- (quote 119)) 1001) ((eql --cl-var-- (quote 103)) 1002) ((eql --cl-var-- (quote 116)) 1003) ((eql --cl-var-- (quote 121)) 1004) ((eql --cl
-var-- (quote 89)) 1005))))) (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time ...))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (rea
d-string "Month and year: " nil nil ...) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)
) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done."))))
abo-abo()
(cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time (current-time)))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month an
d year: " nil nil (format-time-string "%B %Y" ...)) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom
-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done.")))
(let* ((span (quote month)) start-day year (month (let ((--cl-var-- (read-event))) (cond ((memql --cl-var-- (quote ...)) 1) ((memql --cl-var-- (quote ...)) 2) ((memql --cl-var-- (quote ...)) 3) ((memql --cl-var-- (quote ...)) 4) ((memql --cl-var-- (quote ...)) 5) ((memql --cl-var-- (quote ...)) 6) ((memql --cl-var-- (quote ...)) 7) ((memql --cl-var-- (quote ...)) 8) ((memql --cl-var-- (quote ...)) 9) ((memql --cl-var-- (quote ...)) 10) ((memql --cl-var-- (quote ...)) 11) ((memql --cl-var-- (quote ...)) 12) ((memql --cl-var-- (quote ...)) 500) ((memql --cl-var-- (quote ...)) 501) ((memql --cl-var-- (quote ...)) 502) ((memql --cl-var-- (quote ...)) 503) ((memql --cl-var-- (quote ...)) 504) ((memql --cl-var-- (quote ...)) 505) ((memql --cl-var-- (quote ...)) 506) ((memql --cl-var-- (quote .
..)) 507) ((eql --cl-var-- (quote 8388704)) 508) ((eql --cl-var-- (quote 8388734)) 509) ((eql --cl-var-- (quote 8388719)) 510) ((memql --cl-var-- (quote ...)) 511) ((memql --cl-var-- (quote ...)) 512) ((eql --cl-var-- (quote 8388721)) 513) ((eql --cl-var-- (quote 8388727)) 514) ((memql --cl-var-- (quote ...)) 515) ((memql --cl-var-- (quote ...)) 516) ((eql --cl-var-- (quote 8388715)) 517) ((memql --cl-var-- (quote ...)) 518) ((memql --cl-var-- (quote ...)) 519) ((memql --cl-var-- (quote ...)) 520) ((memql --cl-var-- (quote ...)) 521) ((eql --cl-var-- (quote 109)) 522) ((eql --cl-var-- (quote 77)) 523) ((eql --cl-var-- (quote 46)) 1000) ((eql --cl-var-- (quote 119)) 1001) ((eql --cl-var-- (quote 103)) 1002) ((eql --cl-var-- (quote 116)) 1003) ((eql --cl-var-- (quote 121)) 1004) ((eql --cl
-var-- (quote 89)) 1005))))) (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time ...))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (rea
d-string "Month and year: " nil nil ...) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)
) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done."))))
abo-abo()
(cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time (current-time)))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month an
d year: " nil nil (format-time-string "%B %Y" ...)) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom
-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done.")))
(let* ((span (quote month)) start-day year (month (let ((--cl-var-- (read-event))) (cond ((memql --cl-var-- (quote ...)) 1) ((memql --cl-var-- (quote ...)) 2) ((memql --cl-var-- (quote ...)) 3) ((memql --cl-var-- (quote ...)) 4) ((memql --cl-var-- (quote ...)) 5) ((memql --cl-var-- (quote ...)) 6) ((memql --cl-var-- (quote ...)) 7) ((memql --cl-var-- (quote ...)) 8) ((memql --cl-var-- (quote ...)) 9) ((memql --cl-var-- (quote ...)) 10) ((memql --cl-var-- (quote ...)) 11) ((memql --cl-var-- (quote ...)) 12) ((memql --cl-var-- (quote ...)) 500) ((memql --cl-var-- (quote ...)) 501) ((memql --cl-var-- (quote ...)) 502) ((memql --cl-var-- (quote ...)) 503) ((memql --cl-var-- (quote ...)) 504) ((memql --cl-var-- (quote ...)) 505) ((memql --cl-var-- (quote ...)) 506) ((memql --cl-var-- (quote .
..)) 507) ((eql --cl-var-- (quote 8388704)) 508) ((eql --cl-var-- (quote 8388734)) 509) ((eql --cl-var-- (quote 8388719)) 510) ((memql --cl-var-- (quote ...)) 511) ((memql --cl-var-- (quote ...)) 512) ((eql --cl-var-- (quote 8388721)) 513) ((eql --cl-var-- (quote 8388727)) 514) ((memql --cl-var-- (quote ...)) 515) ((memql --cl-var-- (quote ...)) 516) ((eql --cl-var-- (quote 8388715)) 517) ((memql --cl-var-- (quote ...)) 518) ((memql --cl-var-- (quote ...)) 519) ((memql --cl-var-- (quote ...)) 520) ((memql --cl-var-- (quote ...)) 521) ((eql --cl-var-- (quote 109)) 522) ((eql --cl-var-- (quote 77)) 523) ((eql --cl-var-- (quote 46)) 1000) ((eql --cl-var-- (quote 119)) 1001) ((eql --cl-var-- (quote 103)) 1002) ((eql --cl-var-- (quote 116)) 1003) ((eql --cl-var-- (quote 121)) 1004) ((eql --cl
-var-- (quote 89)) 1005))))) (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time ...))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (rea
d-string "Month and year: " nil nil ...) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)
) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done."))))
abo-abo()
(cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time (current-time)))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month an
d year: " nil nil (format-time-string "%B %Y" ...)) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom
-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done.")))
(let* ((span (quote month)) start-day year (month (let ((--cl-var-- (read-event))) (cond ((memql --cl-var-- (quote ...)) 1) ((memql --cl-var-- (quote ...)) 2) ((memql --cl-var-- (quote ...)) 3) ((memql --cl-var-- (quote ...)) 4) ((memql --cl-var-- (quote ...)) 5) ((memql --cl-var-- (quote ...)) 6) ((memql --cl-var-- (quote ...)) 7) ((memql --cl-var-- (quote ...)) 8) ((memql --cl-var-- (quote ...)) 9) ((memql --cl-var-- (quote ...)) 10) ((memql --cl-var-- (quote ...)) 11) ((memql --cl-var-- (quote ...)) 12) ((memql --cl-var-- (quote ...)) 500) ((memql --cl-var-- (quote ...)) 501) ((memql --cl-var-- (quote ...)) 502) ((memql --cl-var-- (quote ...)) 503) ((memql --cl-var-- (quote ...)) 504) ((memql --cl-var-- (quote ...)) 505) ((memql --cl-var-- (quote ...)) 506) ((memql --cl-var-- (quote .
..)) 507) ((eql --cl-var-- (quote 8388704)) 508) ((eql --cl-var-- (quote 8388734)) 509) ((eql --cl-var-- (quote 8388719)) 510) ((memql --cl-var-- (quote ...)) 511) ((memql --cl-var-- (quote ...)) 512) ((eql --cl-var-- (quote 8388721)) 513) ((eql --cl-var-- (quote 8388727)) 514) ((memql --cl-var-- (quote ...)) 515) ((memql --cl-var-- (quote ...)) 516) ((eql --cl-var-- (quote 8388715)) 517) ((memql --cl-var-- (quote ...)) 518) ((memql --cl-var-- (quote ...)) 519) ((memql --cl-var-- (quote ...)) 520) ((memql --cl-var-- (quote ...)) 521) ((eql --cl-var-- (quote 109)) 522) ((eql --cl-var-- (quote 77)) 523) ((eql --cl-var-- (quote 46)) 1000) ((eql --cl-var-- (quote 119)) 1001) ((eql --cl-var-- (quote 103)) 1002) ((eql --cl-var-- (quote 116)) 1003) ((eql --cl-var-- (quote 121)) 1004) ((eql --cl
-var-- (quote 89)) 1005))))) (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time ...))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (rea
d-string "Month and year: " nil nil ...) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)
) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done."))))
abo-abo()
(cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time (current-time)))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month an
d year: " nil nil (format-time-string "%B %Y" ...)) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom
-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done.")))
(let* ((span (quote month)) start-day year (month (let ((--cl-var-- (read-event))) (cond ((memql --cl-var-- (quote ...)) 1) ((memql --cl-var-- (quote ...)) 2) ((memql --cl-var-- (quote ...)) 3) ((memql --cl-var-- (quote ...)) 4) ((memql --cl-var-- (quote ...)) 5) ((memql --cl-var-- (quote ...)) 6) ((memql --cl-var-- (quote ...)) 7) ((memql --cl-var-- (quote ...)) 8) ((memql --cl-var-- (quote ...)) 9) ((memql --cl-var-- (quote ...)) 10) ((memql --cl-var-- (quote ...)) 11) ((memql --cl-var-- (quote ...)) 12) ((memql --cl-var-- (quote ...)) 500) ((memql --cl-var-- (quote ...)) 501) ((memql --cl-var-- (quote ...)) 502) ((memql --cl-var-- (quote ...)) 503) ((memql --cl-var-- (quote ...)) 504) ((memql --cl-var-- (quote ...)) 505) ((memql --cl-var-- (quote ...)) 506) ((memql --cl-var-- (quote .
..)) 507) ((eql --cl-var-- (quote 8388704)) 508) ((eql --cl-var-- (quote 8388734)) 509) ((eql --cl-var-- (quote 8388719)) 510) ((memql --cl-var-- (quote ...)) 511) ((memql --cl-var-- (quote ...)) 512) ((eql --cl-var-- (quote 8388721)) 513) ((eql --cl-var-- (quote 8388727)) 514) ((memql --cl-var-- (quote ...)) 515) ((memql --cl-var-- (quote ...)) 516) ((eql --cl-var-- (quote 8388715)) 517) ((memql --cl-var-- (quote ...)) 518) ((memql --cl-var-- (quote ...)) 519) ((memql --cl-var-- (quote ...)) 520) ((memql --cl-var-- (quote ...)) 521) ((eql --cl-var-- (quote 109)) 522) ((eql --cl-var-- (quote 77)) 523) ((eql --cl-var-- (quote 46)) 1000) ((eql --cl-var-- (quote 119)) 1001) ((eql --cl-var-- (quote 103)) 1002) ((eql --cl-var-- (quote 116)) 1003) ((eql --cl-var-- (quote 121)) 1004) ((eql --cl
-var-- (quote 89)) 1005))))) (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time ...))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (rea
d-string "Month and year: " nil nil ...) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)
) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done."))))
abo-abo()
(cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time (current-time)))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month an
d year: " nil nil (format-time-string "%B %Y" ...)) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom
-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done.")))
(let* ((span (quote month)) start-day year (month (let ((--cl-var-- (read-event))) (cond ((memql --cl-var-- (quote ...)) 1) ((memql --cl-var-- (quote ...)) 2) ((memql --cl-var-- (quote ...)) 3) ((memql --cl-var-- (quote ...)) 4) ((memql --cl-var-- (quote ...)) 5) ((memql --cl-var-- (quote ...)) 6) ((memql --cl-var-- (quote ...)) 7) ((memql --cl-var-- (quote ...)) 8) ((memql --cl-var-- (quote ...)) 9) ((memql --cl-var-- (quote ...)) 10) ((memql --cl-var-- (quote ...)) 11) ((memql --cl-var-- (quote ...)) 12) ((memql --cl-var-- (quote ...)) 500) ((memql --cl-var-- (quote ...)) 501) ((memql --cl-var-- (quote ...)) 502) ((memql --cl-var-- (quote ...)) 503) ((memql --cl-var-- (quote ...)) 504) ((memql --cl-var-- (quote ...)) 505) ((memql --cl-var-- (quote ...)) 506) ((memql --cl-var-- (quote .
..)) 507) ((eql --cl-var-- (quote 8388704)) 508) ((eql --cl-var-- (quote 8388734)) 509) ((eql --cl-var-- (quote 8388719)) 510) ((memql --cl-var-- (quote ...)) 511) ((memql --cl-var-- (quote ...)) 512) ((eql --cl-var-- (quote 8388721)) 513) ((eql --cl-var-- (quote 8388727)) 514) ((memql --cl-var-- (quote ...)) 515) ((memql --cl-var-- (quote ...)) 516) ((eql --cl-var-- (quote 8388715)) 517) ((memql --cl-var-- (quote ...)) 518) ((memql --cl-var-- (quote ...)) 519) ((memql --cl-var-- (quote ...)) 520) ((memql --cl-var-- (quote ...)) 521) ((eql --cl-var-- (quote 109)) 522) ((eql --cl-var-- (quote 77)) 523) ((eql --cl-var-- (quote 46)) 1000) ((eql --cl-var-- (quote 119)) 1001) ((eql --cl-var-- (quote 103)) 1002) ((eql --cl-var-- (quote 116)) 1003) ((eql --cl-var-- (quote 121)) 1004) ((eql --cl
-var-- (quote 89)) 1005))))) (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time ...))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (rea
d-string "Month and year: " nil nil ...) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)
) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done."))))
abo-abo()
(cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time (current-time)))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month an
d year: " nil nil (format-time-string "%B %Y" ...)) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom
-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done.")))
(let* ((span (quote month)) start-day year (month (let ((--cl-var-- (read-event))) (cond ((memql --cl-var-- (quote ...)) 1) ((memql --cl-var-- (quote ...)) 2) ((memql --cl-var-- (quote ...)) 3) ((memql --cl-var-- (quote ...)) 4) ((memql --cl-var-- (quote ...)) 5) ((memql --cl-var-- (quote ...)) 6) ((memql --cl-var-- (quote ...)) 7) ((memql --cl-var-- (quote ...)) 8) ((memql --cl-var-- (quote ...)) 9) ((memql --cl-var-- (quote ...)) 10) ((memql --cl-var-- (quote ...)) 11) ((memql --cl-var-- (quote ...)) 12) ((memql --cl-var-- (quote ...)) 500) ((memql --cl-var-- (quote ...)) 501) ((memql --cl-var-- (quote ...)) 502) ((memql --cl-var-- (quote ...)) 503) ((memql --cl-var-- (quote ...)) 504) ((memql --cl-var-- (quote ...)) 505) ((memql --cl-var-- (quote ...)) 506) ((memql --cl-var-- (quote .
..)) 507) ((eql --cl-var-- (quote 8388704)) 508) ((eql --cl-var-- (quote 8388734)) 509) ((eql --cl-var-- (quote 8388719)) 510) ((memql --cl-var-- (quote ...)) 511) ((memql --cl-var-- (quote ...)) 512) ((eql --cl-var-- (quote 8388721)) 513) ((eql --cl-var-- (quote 8388727)) 514) ((memql --cl-var-- (quote ...)) 515) ((memql --cl-var-- (quote ...)) 516) ((eql --cl-var-- (quote 8388715)) 517) ((memql --cl-var-- (quote ...)) 518) ((memql --cl-var-- (quote ...)) 519) ((memql --cl-var-- (quote ...)) 520) ((memql --cl-var-- (quote ...)) 521) ((eql --cl-var-- (quote 109)) 522) ((eql --cl-var-- (quote 77)) 523) ((eql --cl-var-- (quote 46)) 1000) ((eql --cl-var-- (quote 119)) 1001) ((eql --cl-var-- (quote 103)) 1002) ((eql --cl-var-- (quote 116)) 1003) ((eql --cl-var-- (quote 121)) 1004) ((eql --cl
-var-- (quote 89)) 1005))))) (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time ...))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (rea
d-string "Month and year: " nil nil ...) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)
) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done."))))
abo-abo()
(cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time (current-time)))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month an
d year: " nil nil (format-time-string "%B %Y" ...)) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom
-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done.")))
(let* ((span (quote month)) start-day year (month (let ((--cl-var-- (read-event))) (cond ((memql --cl-var-- (quote ...)) 1) ((memql --cl-var-- (quote ...)) 2) ((memql --cl-var-- (quote ...)) 3) ((memql --cl-var-- (quote ...)) 4) ((memql --cl-var-- (quote ...)) 5) ((memql --cl-var-- (quote ...)) 6) ((memql --cl-var-- (quote ...)) 7) ((memql --cl-var-- (quote ...)) 8) ((memql --cl-var-- (quote ...)) 9) ((memql --cl-var-- (quote ...)) 10) ((memql --cl-var-- (quote ...)) 11) ((memql --cl-var-- (quote ...)) 12) ((memql --cl-var-- (quote ...)) 500) ((memql --cl-var-- (quote ...)) 501) ((memql --cl-var-- (quote ...)) 502) ((memql --cl-var-- (quote ...)) 503) ((memql --cl-var-- (quote ...)) 504) ((memql --cl-var-- (quote ...)) 505) ((memql --cl-var-- (quote ...)) 506) ((memql --cl-var-- (quote .
..)) 507) ((eql --cl-var-- (quote 8388704)) 508) ((eql --cl-var-- (quote 8388734)) 509) ((eql --cl-var-- (quote 8388719)) 510) ((memql --cl-var-- (quote ...)) 511) ((memql --cl-var-- (quote ...)) 512) ((eql --cl-var-- (quote 8388721)) 513) ((eql --cl-var-- (quote 8388727)) 514) ((memql --cl-var-- (quote ...)) 515) ((memql --cl-var-- (quote ...)) 516) ((eql --cl-var-- (quote 8388715)) 517) ((memql --cl-var-- (quote ...)) 518) ((memql --cl-var-- (quote ...)) 519) ((memql --cl-var-- (quote ...)) 520) ((memql --cl-var-- (quote ...)) 521) ((eql --cl-var-- (quote 109)) 522) ((eql --cl-var-- (quote 77)) 523) ((eql --cl-var-- (quote 46)) 1000) ((eql --cl-var-- (quote 119)) 1001) ((eql --cl-var-- (quote 103)) 1002) ((eql --cl-var-- (quote 116)) 1003) ((eql --cl-var-- (quote 121)) 1004) ((eql --cl
-var-- (quote 89)) 1005))))) (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time ...))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (rea
d-string "Month and year: " nil nil ...) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)
) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done."))))
abo-abo()
(cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time (current-time)))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month an
d year: " nil nil (format-time-string "%B %Y" ...)) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom
-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done.")))
(let* ((span (quote month)) start-day year (month (let ((--cl-var-- (read-event))) (cond ((memql --cl-var-- (quote ...)) 1) ((memql --cl-var-- (quote ...)) 2) ((memql --cl-var-- (quote ...)) 3) ((memql --cl-var-- (quote ...)) 4) ((memql --cl-var-- (quote ...)) 5) ((memql --cl-var-- (quote ...)) 6) ((memql --cl-var-- (quote ...)) 7) ((memql --cl-var-- (quote ...)) 8) ((memql --cl-var-- (quote ...)) 9) ((memql --cl-var-- (quote ...)) 10) ((memql --cl-var-- (quote ...)) 11) ((memql --cl-var-- (quote ...)) 12) ((memql --cl-var-- (quote ...)) 500) ((memql --cl-var-- (quote ...)) 501) ((memql --cl-var-- (quote ...)) 502) ((memql --cl-var-- (quote ...)) 503) ((memql --cl-var-- (quote ...)) 504) ((memql --cl-var-- (quote ...)) 505) ((memql --cl-var-- (quote ...)) 506) ((memql --cl-var-- (quote .
..)) 507) ((eql --cl-var-- (quote 8388704)) 508) ((eql --cl-var-- (quote 8388734)) 509) ((eql --cl-var-- (quote 8388719)) 510) ((memql --cl-var-- (quote ...)) 511) ((memql --cl-var-- (quote ...)) 512) ((eql --cl-var-- (quote 8388721)) 513) ((eql --cl-var-- (quote 8388727)) 514) ((memql --cl-var-- (quote ...)) 515) ((memql --cl-var-- (quote ...)) 516) ((eql --cl-var-- (quote 8388715)) 517) ((memql --cl-var-- (quote ...)) 518) ((memql --cl-var-- (quote ...)) 519) ((memql --cl-var-- (quote ...)) 520) ((memql --cl-var-- (quote ...)) 521) ((eql --cl-var-- (quote 109)) 522) ((eql --cl-var-- (quote 77)) 523) ((eql --cl-var-- (quote 46)) 1000) ((eql --cl-var-- (quote 119)) 1001) ((eql --cl-var-- (quote 103)) 1002) ((eql --cl-var-- (quote 116)) 1003) ((eql --cl-var-- (quote 121)) 1004) ((eql --cl
-var-- (quote 89)) 1005))))) (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time ...))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (rea
d-string "Month and year: " nil nil ...) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)
) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done."))))
abo-abo()
(cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time (current-time)))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month an
d year: " nil nil (format-time-string "%B %Y" ...)) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom
-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done.")))
(let* ((span (quote month)) start-day year (month (let ((--cl-var-- (read-event))) (cond ((memql --cl-var-- (quote ...)) 1) ((memql --cl-var-- (quote ...)) 2) ((memql --cl-var-- (quote ...)) 3) ((memql --cl-var-- (quote ...)) 4) ((memql --cl-var-- (quote ...)) 5) ((memql --cl-var-- (quote ...)) 6) ((memql --cl-var-- (quote ...)) 7) ((memql --cl-var-- (quote ...)) 8) ((memql --cl-var-- (quote ...)) 9) ((memql --cl-var-- (quote ...)) 10) ((memql --cl-var-- (quote ...)) 11) ((memql --cl-var-- (quote ...)) 12) ((memql --cl-var-- (quote ...)) 500) ((memql --cl-var-- (quote ...)) 501) ((memql --cl-var-- (quote ...)) 502) ((memql --cl-var-- (quote ...)) 503) ((memql --cl-var-- (quote ...)) 504) ((memql --cl-var-- (quote ...)) 505) ((memql --cl-var-- (quote ...)) 506) ((memql --cl-var-- (quote .
..)) 507) ((eql --cl-var-- (quote 8388704)) 508) ((eql --cl-var-- (quote 8388734)) 509) ((eql --cl-var-- (quote 8388719)) 510) ((memql --cl-var-- (quote ...)) 511) ((memql --cl-var-- (quote ...)) 512) ((eql --cl-var-- (quote 8388721)) 513) ((eql --cl-var-- (quote 8388727)) 514) ((memql --cl-var-- (quote ...)) 515) ((memql --cl-var-- (quote ...)) 516) ((eql --cl-var-- (quote 8388715)) 517) ((memql --cl-var-- (quote ...)) 518) ((memql --cl-var-- (quote ...)) 519) ((memql --cl-var-- (quote ...)) 520) ((memql --cl-var-- (quote ...)) 521) ((eql --cl-var-- (quote 109)) 522) ((eql --cl-var-- (quote 77)) 523) ((eql --cl-var-- (quote 46)) 1000) ((eql --cl-var-- (quote 119)) 1001) ((eql --cl-var-- (quote 103)) 1002) ((eql --cl-var-- (quote 116)) 1003) ((eql --cl-var-- (quote 121)) 1004) ((eql --cl
-var-- (quote 89)) 1005))))) (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time ...))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (rea
d-string "Month and year: " nil nil ...) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)
) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done."))))
abo-abo()
(cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time (current-time)))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month an
d year: " nil nil (format-time-string "%B %Y" ...)) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom
-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done.")))
(let* ((span (quote month)) start-day year (month (let ((--cl-var-- (read-event))) (cond ((memql --cl-var-- (quote ...)) 1) ((memql --cl-var-- (quote ...)) 2) ((memql --cl-var-- (quote ...)) 3) ((memql --cl-var-- (quote ...)) 4) ((memql --cl-var-- (quote ...)) 5) ((memql --cl-var-- (quote ...)) 6) ((memql --cl-var-- (quote ...)) 7) ((memql --cl-var-- (quote ...)) 8) ((memql --cl-var-- (quote ...)) 9) ((memql --cl-var-- (quote ...)) 10) ((memql --cl-var-- (quote ...)) 11) ((memql --cl-var-- (quote ...)) 12) ((memql --cl-var-- (quote ...)) 500) ((memql --cl-var-- (quote ...)) 501) ((memql --cl-var-- (quote ...)) 502) ((memql --cl-var-- (quote ...)) 503) ((memql --cl-var-- (quote ...)) 504) ((memql --cl-var-- (quote ...)) 505) ((memql --cl-var-- (quote ...)) 506) ((memql --cl-var-- (quote .
..)) 507) ((eql --cl-var-- (quote 8388704)) 508) ((eql --cl-var-- (quote 8388734)) 509) ((eql --cl-var-- (quote 8388719)) 510) ((memql --cl-var-- (quote ...)) 511) ((memql --cl-var-- (quote ...)) 512) ((eql --cl-var-- (quote 8388721)) 513) ((eql --cl-var-- (quote 8388727)) 514) ((memql --cl-var-- (quote ...)) 515) ((memql --cl-var-- (quote ...)) 516) ((eql --cl-var-- (quote 8388715)) 517) ((memql --cl-var-- (quote ...)) 518) ((memql --cl-var-- (quote ...)) 519) ((memql --cl-var-- (quote ...)) 520) ((memql --cl-var-- (quote ...)) 521) ((eql --cl-var-- (quote 109)) 522) ((eql --cl-var-- (quote 77)) 523) ((eql --cl-var-- (quote 46)) 1000) ((eql --cl-var-- (quote 119)) 1001) ((eql --cl-var-- (quote 103)) 1002) ((eql --cl-var-- (quote 116)) 1003) ((eql --cl-var-- (quote 121)) 1004) ((eql --cl
-var-- (quote 89)) 1005))))) (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time ...))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (rea
d-string "Month and year: " nil nil ...) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)
) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done."))))
abo-abo()
(cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time (current-time)))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month an
d year: " nil nil (format-time-string "%B %Y" ...)) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom
-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done.")))
(let* ((span (quote month)) start-day year (month (let ((--cl-var-- (read-event))) (cond ((memql --cl-var-- (quote ...)) 1) ((memql --cl-var-- (quote ...)) 2) ((memql --cl-var-- (quote ...)) 3) ((memql --cl-var-- (quote ...)) 4) ((memql --cl-var-- (quote ...)) 5) ((memql --cl-var-- (quote ...)) 6) ((memql --cl-var-- (quote ...)) 7) ((memql --cl-var-- (quote ...)) 8) ((memql --cl-var-- (quote ...)) 9) ((memql --cl-var-- (quote ...)) 10) ((memql --cl-var-- (quote ...)) 11) ((memql --cl-var-- (quote ...)) 12) ((memql --cl-var-- (quote ...)) 500) ((memql --cl-var-- (quote ...)) 501) ((memql --cl-var-- (quote ...)) 502) ((memql --cl-var-- (quote ...)) 503) ((memql --cl-var-- (quote ...)) 504) ((memql --cl-var-- (quote ...)) 505) ((memql --cl-var-- (quote ...)) 506) ((memql --cl-var-- (quote .
..)) 507) ((eql --cl-var-- (quote 8388704)) 508) ((eql --cl-var-- (quote 8388734)) 509) ((eql --cl-var-- (quote 8388719)) 510) ((memql --cl-var-- (quote ...)) 511) ((memql --cl-var-- (quote ...)) 512) ((eql --cl-var-- (quote 8388721)) 513) ((eql --cl-var-- (quote 8388727)) 514) ((memql --cl-var-- (quote ...)) 515) ((memql --cl-var-- (quote ...)) 516) ((eql --cl-var-- (quote 8388715)) 517) ((memql --cl-var-- (quote ...)) 518) ((memql --cl-var-- (quote ...)) 519) ((memql --cl-var-- (quote ...)) 520) ((memql --cl-var-- (quote ...)) 521) ((eql --cl-var-- (quote 109)) 522) ((eql --cl-var-- (quote 77)) 523) ((eql --cl-var-- (quote 46)) 1000) ((eql --cl-var-- (quote 119)) 1001) ((eql --cl-var-- (quote 103)) 1002) ((eql --cl-var-- (quote 116)) 1003) ((eql --cl-var-- (quote 121)) 1004) ((eql --cl
-var-- (quote 89)) 1005))))) (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time ...))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (rea
d-string "Month and year: " nil nil ...) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)
) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done."))))
abo-abo()
(cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time (current-time)))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month an
d year: " nil nil (format-time-string "%B %Y" ...)) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom
-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done.")))
(let* ((span (quote month)) start-day year (month (let ((--cl-var-- (read-event))) (cond ((memql --cl-var-- (quote ...)) 1) ((memql --cl-var-- (quote ...)) 2) ((memql --cl-var-- (quote ...)) 3) ((memql --cl-var-- (quote ...)) 4) ((memql --cl-var-- (quote ...)) 5) ((memql --cl-var-- (quote ...)) 6) ((memql --cl-var-- (quote ...)) 7) ((memql --cl-var-- (quote ...)) 8) ((memql --cl-var-- (quote ...)) 9) ((memql --cl-var-- (quote ...)) 10) ((memql --cl-var-- (quote ...)) 11) ((memql --cl-var-- (quote ...)) 12) ((memql --cl-var-- (quote ...)) 500) ((memql --cl-var-- (quote ...)) 501) ((memql --cl-var-- (quote ...)) 502) ((memql --cl-var-- (quote ...)) 503) ((memql --cl-var-- (quote ...)) 504) ((memql --cl-var-- (quote ...)) 505) ((memql --cl-var-- (quote ...)) 506) ((memql --cl-var-- (quote .
..)) 507) ((eql --cl-var-- (quote 8388704)) 508) ((eql --cl-var-- (quote 8388734)) 509) ((eql --cl-var-- (quote 8388719)) 510) ((memql --cl-var-- (quote ...)) 511) ((memql --cl-var-- (quote ...)) 512) ((eql --cl-var-- (quote 8388721)) 513) ((eql --cl-var-- (quote 8388727)) 514) ((memql --cl-var-- (quote ...)) 515) ((memql --cl-var-- (quote ...)) 516) ((eql --cl-var-- (quote 8388715)) 517) ((memql --cl-var-- (quote ...)) 518) ((memql --cl-var-- (quote ...)) 519) ((memql --cl-var-- (quote ...)) 520) ((memql --cl-var-- (quote ...)) 521) ((eql --cl-var-- (quote 109)) 522) ((eql --cl-var-- (quote 77)) 523) ((eql --cl-var-- (quote 46)) 1000) ((eql --cl-var-- (quote 119)) 1001) ((eql --cl-var-- (quote 103)) 1002) ((eql --cl-var-- (quote 116)) 1003) ((eql --cl-var-- (quote 121)) 1004) ((eql --cl
-var-- (quote 89)) 1005))))) (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time ...))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (rea
d-string "Month and year: " nil nil ...) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)
) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done."))))
abo-abo()
(cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time (current-time)))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month an
d year: " nil nil (format-time-string "%B %Y" ...)) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom
-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done.")))
(let* ((span (quote month)) start-day year (month (let ((--cl-var-- (read-event))) (cond ((memql --cl-var-- (quote ...)) 1) ((memql --cl-var-- (quote ...)) 2) ((memql --cl-var-- (quote ...)) 3) ((memql --cl-var-- (quote ...)) 4) ((memql --cl-var-- (quote ...)) 5) ((memql --cl-var-- (quote ...)) 6) ((memql --cl-var-- (quote ...)) 7) ((memql --cl-var-- (quote ...)) 8) ((memql --cl-var-- (quote ...)) 9) ((memql --cl-var-- (quote ...)) 10) ((memql --cl-var-- (quote ...)) 11) ((memql --cl-var-- (quote ...)) 12) ((memql --cl-var-- (quote ...)) 500) ((memql --cl-var-- (quote ...)) 501) ((memql --cl-var-- (quote ...)) 502) ((memql --cl-var-- (quote ...)) 503) ((memql --cl-var-- (quote ...)) 504) ((memql --cl-var-- (quote ...)) 505) ((memql --cl-var-- (quote ...)) 506) ((memql --cl-var-- (quote .
..)) 507) ((eql --cl-var-- (quote 8388704)) 508) ((eql --cl-var-- (quote 8388734)) 509) ((eql --cl-var-- (quote 8388719)) 510) ((memql --cl-var-- (quote ...)) 511) ((memql --cl-var-- (quote ...)) 512) ((eql --cl-var-- (quote 8388721)) 513) ((eql --cl-var-- (quote 8388727)) 514) ((memql --cl-var-- (quote ...)) 515) ((memql --cl-var-- (quote ...)) 516) ((eql --cl-var-- (quote 8388715)) 517) ((memql --cl-var-- (quote ...)) 518) ((memql --cl-var-- (quote ...)) 519) ((memql --cl-var-- (quote ...)) 520) ((memql --cl-var-- (quote ...)) 521) ((eql --cl-var-- (quote 109)) 522) ((eql --cl-var-- (quote 77)) 523) ((eql --cl-var-- (quote 46)) 1000) ((eql --cl-var-- (quote 119)) 1001) ((eql --cl-var-- (quote 103)) 1002) ((eql --cl-var-- (quote 116)) 1003) ((eql --cl-var-- (quote 121)) 1004) ((eql --cl
-var-- (quote 89)) 1005))))) (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time ...))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (rea
d-string "Month and year: " nil nil ...) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)
) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done."))))
abo-abo()
(cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time (current-time)))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month an
d year: " nil nil (format-time-string "%B %Y" ...)) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom
-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done.")))
(let* ((span (quote month)) start-day year (month (let ((--cl-var-- (read-event))) (cond ((memql --cl-var-- (quote ...)) 1) ((memql --cl-var-- (quote ...)) 2) ((memql --cl-var-- (quote ...)) 3) ((memql --cl-var-- (quote ...)) 4) ((memql --cl-var-- (quote ...)) 5) ((memql --cl-var-- (quote ...)) 6) ((memql --cl-var-- (quote ...)) 7) ((memql --cl-var-- (quote ...)) 8) ((memql --cl-var-- (quote ...)) 9) ((memql --cl-var-- (quote ...)) 10) ((memql --cl-var-- (quote ...)) 11) ((memql --cl-var-- (quote ...)) 12) ((memql --cl-var-- (quote ...)) 500) ((memql --cl-var-- (quote ...)) 501) ((memql --cl-var-- (quote ...)) 502) ((memql --cl-var-- (quote ...)) 503) ((memql --cl-var-- (quote ...)) 504) ((memql --cl-var-- (quote ...)) 505) ((memql --cl-var-- (quote ...)) 506) ((memql --cl-var-- (quote .
..)) 507) ((eql --cl-var-- (quote 8388704)) 508) ((eql --cl-var-- (quote 8388734)) 509) ((eql --cl-var-- (quote 8388719)) 510) ((memql --cl-var-- (quote ...)) 511) ((memql --cl-var-- (quote ...)) 512) ((eql --cl-var-- (quote 8388721)) 513) ((eql --cl-var-- (quote 8388727)) 514) ((memql --cl-var-- (quote ...)) 515) ((memql --cl-var-- (quote ...)) 516) ((eql --cl-var-- (quote 8388715)) 517) ((memql --cl-var-- (quote ...)) 518) ((memql --cl-var-- (quote ...)) 519) ((memql --cl-var-- (quote ...)) 520) ((memql --cl-var-- (quote ...)) 521) ((eql --cl-var-- (quote 109)) 522) ((eql --cl-var-- (quote 77)) 523) ((eql --cl-var-- (quote 46)) 1000) ((eql --cl-var-- (quote 119)) 1001) ((eql --cl-var-- (quote 103)) 1002) ((eql --cl-var-- (quote 116)) 1003) ((eql --cl-var-- (quote 121)) 1004) ((eql --cl
-var-- (quote 89)) 1005))))) (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time ...))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (rea
d-string "Month and year: " nil nil ...) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)
) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done."))))
abo-abo()
(cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time (current-time)))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month an
d year: " nil nil (format-time-string "%B %Y" ...)) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom
-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done.")))
(let* ((span (quote month)) start-day year (month (let ((--cl-var-- (read-event))) (cond ((memql --cl-var-- (quote ...)) 1) ((memql --cl-var-- (quote ...)) 2) ((memql --cl-var-- (quote ...)) 3) ((memql --cl-var-- (quote ...)) 4) ((memql --cl-var-- (quote ...)) 5) ((memql --cl-var-- (quote ...)) 6) ((memql --cl-var-- (quote ...)) 7) ((memql --cl-var-- (quote ...)) 8) ((memql --cl-var-- (quote ...)) 9) ((memql --cl-var-- (quote ...)) 10) ((memql --cl-var-- (quote ...)) 11) ((memql --cl-var-- (quote ...)) 12) ((memql --cl-var-- (quote ...)) 500) ((memql --cl-var-- (quote ...)) 501) ((memql --cl-var-- (quote ...)) 502) ((memql --cl-var-- (quote ...)) 503) ((memql --cl-var-- (quote ...)) 504) ((memql --cl-var-- (quote ...)) 505) ((memql --cl-var-- (quote ...)) 506) ((memql --cl-var-- (quote .
..)) 507) ((eql --cl-var-- (quote 8388704)) 508) ((eql --cl-var-- (quote 8388734)) 509) ((eql --cl-var-- (quote 8388719)) 510) ((memql --cl-var-- (quote ...)) 511) ((memql --cl-var-- (quote ...)) 512) ((eql --cl-var-- (quote 8388721)) 513) ((eql --cl-var-- (quote 8388727)) 514) ((memql --cl-var-- (quote ...)) 515) ((memql --cl-var-- (quote ...)) 516) ((eql --cl-var-- (quote 8388715)) 517) ((memql --cl-var-- (quote ...)) 518) ((memql --cl-var-- (quote ...)) 519) ((memql --cl-var-- (quote ...)) 520) ((memql --cl-var-- (quote ...)) 521) ((eql --cl-var-- (quote 109)) 522) ((eql --cl-var-- (quote 77)) 523) ((eql --cl-var-- (quote 46)) 1000) ((eql --cl-var-- (quote 119)) 1001) ((eql --cl-var-- (quote 103)) 1002) ((eql --cl-var-- (quote 116)) 1003) ((eql --cl-var-- (quote 121)) 1004) ((eql --cl
-var-- (quote 89)) 1005))))) (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time ...))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (rea
d-string "Month and year: " nil nil ...) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)
) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done."))))
abo-abo()
(cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time (current-time)))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month an
d year: " nil nil (format-time-string "%B %Y" ...)) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom
-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done.")))
(let* ((span (quote month)) start-day year (month (let ((--cl-var-- (read-event))) (cond ((memql --cl-var-- (quote ...)) 1) ((memql --cl-var-- (quote ...)) 2) ((memql --cl-var-- (quote ...)) 3) ((memql --cl-var-- (quote ...)) 4) ((memql --cl-var-- (quote ...)) 5) ((memql --cl-var-- (quote ...)) 6) ((memql --cl-var-- (quote ...)) 7) ((memql --cl-var-- (quote ...)) 8) ((memql --cl-var-- (quote ...)) 9) ((memql --cl-var-- (quote ...)) 10) ((memql --cl-var-- (quote ...)) 11) ((memql --cl-var-- (quote ...)) 12) ((memql --cl-var-- (quote ...)) 500) ((memql --cl-var-- (quote ...)) 501) ((memql --cl-var-- (quote ...)) 502) ((memql --cl-var-- (quote ...)) 503) ((memql --cl-var-- (quote ...)) 504) ((memql --cl-var-- (quote ...)) 505) ((memql --cl-var-- (quote ...)) 506) ((memql --cl-var-- (quote .
..)) 507) ((eql --cl-var-- (quote 8388704)) 508) ((eql --cl-var-- (quote 8388734)) 509) ((eql --cl-var-- (quote 8388719)) 510) ((memql --cl-var-- (quote ...)) 511) ((memql --cl-var-- (quote ...)) 512) ((eql --cl-var-- (quote 8388721)) 513) ((eql --cl-var-- (quote 8388727)) 514) ((memql --cl-var-- (quote ...)) 515) ((memql --cl-var-- (quote ...)) 516) ((eql --cl-var-- (quote 8388715)) 517) ((memql --cl-var-- (quote ...)) 518) ((memql --cl-var-- (quote ...)) 519) ((memql --cl-var-- (quote ...)) 520) ((memql --cl-var-- (quote ...)) 521) ((eql --cl-var-- (quote 109)) 522) ((eql --cl-var-- (quote 77)) 523) ((eql --cl-var-- (quote 46)) 1000) ((eql --cl-var-- (quote 119)) 1001) ((eql --cl-var-- (quote 103)) 1002) ((eql --cl-var-- (quote 116)) 1003) ((eql --cl-var-- (quote 121)) 1004) ((eql --cl
-var-- (quote 89)) 1005))))) (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time ...))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (rea
d-string "Month and year: " nil nil ...) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)
) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done."))))
abo-abo()
(cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time (current-time)))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month an
d year: " nil nil (format-time-string "%B %Y" ...)) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom
-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done.")))
(let* ((span (quote month)) start-day year (month (let ((--cl-var-- (read-event))) (cond ((memql --cl-var-- (quote ...)) 1) ((memql --cl-var-- (quote ...)) 2) ((memql --cl-var-- (quote ...)) 3) ((memql --cl-var-- (quote ...)) 4) ((memql --cl-var-- (quote ...)) 5) ((memql --cl-var-- (quote ...)) 6) ((memql --cl-var-- (quote ...)) 7) ((memql --cl-var-- (quote ...)) 8) ((memql --cl-var-- (quote ...)) 9) ((memql --cl-var-- (quote ...)) 10) ((memql --cl-var-- (quote ...)) 11) ((memql --cl-var-- (quote ...)) 12) ((memql --cl-var-- (quote ...)) 500) ((memql --cl-var-- (quote ...)) 501) ((memql --cl-var-- (quote ...)) 502) ((memql --cl-var-- (quote ...)) 503) ((memql --cl-var-- (quote ...)) 504) ((memql --cl-var-- (quote ...)) 505) ((memql --cl-var-- (quote ...)) 506) ((memql --cl-var-- (quote .
..)) 507) ((eql --cl-var-- (quote 8388704)) 508) ((eql --cl-var-- (quote 8388734)) 509) ((eql --cl-var-- (quote 8388719)) 510) ((memql --cl-var-- (quote ...)) 511) ((memql --cl-var-- (quote ...)) 512) ((eql --cl-var-- (quote 8388721)) 513) ((eql --cl-var-- (quote 8388727)) 514) ((memql --cl-var-- (quote ...)) 515) ((memql --cl-var-- (quote ...)) 516) ((eql --cl-var-- (quote 8388715)) 517) ((memql --cl-var-- (quote ...)) 518) ((memql --cl-var-- (quote ...)) 519) ((memql --cl-var-- (quote ...)) 520) ((memql --cl-var-- (quote ...)) 521) ((eql --cl-var-- (quote 109)) 522) ((eql --cl-var-- (quote 77)) 523) ((eql --cl-var-- (quote 46)) 1000) ((eql --cl-var-- (quote 119)) 1001) ((eql --cl-var-- (quote 103)) 1002) ((eql --cl-var-- (quote 116)) 1003) ((eql --cl-var-- (quote 121)) 1004) ((eql --cl
-var-- (quote 89)) 1005))))) (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time ...))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (rea
d-string "Month and year: " nil nil ...) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)
) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done."))))
abo-abo()
(cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time (current-time)))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month an
d year: " nil nil (format-time-string "%B %Y" ...)) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom
-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done.")))
(let* ((span (quote month)) start-day year (month (let ((--cl-var-- (read-event))) (cond ((memql --cl-var-- (quote ...)) 1) ((memql --cl-var-- (quote ...)) 2) ((memql --cl-var-- (quote ...)) 3) ((memql --cl-var-- (quote ...)) 4) ((memql --cl-var-- (quote ...)) 5) ((memql --cl-var-- (quote ...)) 6) ((memql --cl-var-- (quote ...)) 7) ((memql --cl-var-- (quote ...)) 8) ((memql --cl-var-- (quote ...)) 9) ((memql --cl-var-- (quote ...)) 10) ((memql --cl-var-- (quote ...)) 11) ((memql --cl-var-- (quote ...)) 12) ((memql --cl-var-- (quote ...)) 500) ((memql --cl-var-- (quote ...)) 501) ((memql --cl-var-- (quote ...)) 502) ((memql --cl-var-- (quote ...)) 503) ((memql --cl-var-- (quote ...)) 504) ((memql --cl-var-- (quote ...)) 505) ((memql --cl-var-- (quote ...)) 506) ((memql --cl-var-- (quote .
..)) 507) ((eql --cl-var-- (quote 8388704)) 508) ((eql --cl-var-- (quote 8388734)) 509) ((eql --cl-var-- (quote 8388719)) 510) ((memql --cl-var-- (quote ...)) 511) ((memql --cl-var-- (quote ...)) 512) ((eql --cl-var-- (quote 8388721)) 513) ((eql --cl-var-- (quote 8388727)) 514) ((memql --cl-var-- (quote ...)) 515) ((memql --cl-var-- (quote ...)) 516) ((eql --cl-var-- (quote 8388715)) 517) ((memql --cl-var-- (quote ...)) 518) ((memql --cl-var-- (quote ...)) 519) ((memql --cl-var-- (quote ...)) 520) ((memql --cl-var-- (quote ...)) 521) ((eql --cl-var-- (quote 109)) 522) ((eql --cl-var-- (quote 77)) 523) ((eql --cl-var-- (quote 46)) 1000) ((eql --cl-var-- (quote 119)) 1001) ((eql --cl-var-- (quote 103)) 1002) ((eql --cl-var-- (quote 116)) 1003) ((eql --cl-var-- (quote 121)) 1004) ((eql --cl
-var-- (quote 89)) 1005))))) (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time ...))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (rea
d-string "Month and year: " nil nil ...) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)
) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done."))))
abo-abo()
(cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time (current-time)))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month an
d year: " nil nil (format-time-string "%B %Y" ...)) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom
-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done.")))
(let* ((span (quote month)) start-day year (month (let ((--cl-var-- (read-event))) (cond ((memql --cl-var-- (quote ...)) 1) ((memql --cl-var-- (quote ...)) 2) ((memql --cl-var-- (quote ...)) 3) ((memql --cl-var-- (quote ...)) 4) ((memql --cl-var-- (quote ...)) 5) ((memql --cl-var-- (quote ...)) 6) ((memql --cl-var-- (quote ...)) 7) ((memql --cl-var-- (quote ...)) 8) ((memql --cl-var-- (quote ...)) 9) ((memql --cl-var-- (quote ...)) 10) ((memql --cl-var-- (quote ...)) 11) ((memql --cl-var-- (quote ...)) 12) ((memql --cl-var-- (quote ...)) 500) ((memql --cl-var-- (quote ...)) 501) ((memql --cl-var-- (quote ...)) 502) ((memql --cl-var-- (quote ...)) 503) ((memql --cl-var-- (quote ...)) 504) ((memql --cl-var-- (quote ...)) 505) ((memql --cl-var-- (quote ...)) 506) ((memql --cl-var-- (quote .
..)) 507) ((eql --cl-var-- (quote 8388704)) 508) ((eql --cl-var-- (quote 8388734)) 509) ((eql --cl-var-- (quote 8388719)) 510) ((memql --cl-var-- (quote ...)) 511) ((memql --cl-var-- (quote ...)) 512) ((eql --cl-var-- (quote 8388721)) 513) ((eql --cl-var-- (quote 8388727)) 514) ((memql --cl-var-- (quote ...)) 515) ((memql --cl-var-- (quote ...)) 516) ((eql --cl-var-- (quote 8388715)) 517) ((memql --cl-var-- (quote ...)) 518) ((memql --cl-var-- (quote ...)) 519) ((memql --cl-var-- (quote ...)) 520) ((memql --cl-var-- (quote ...)) 521) ((eql --cl-var-- (quote 109)) 522) ((eql --cl-var-- (quote 77)) 523) ((eql --cl-var-- (quote 46)) 1000) ((eql --cl-var-- (quote 119)) 1001) ((eql --cl-var-- (quote 103)) 1002) ((eql --cl-var-- (quote 116)) 1003) ((eql --cl-var-- (quote 121)) 1004) ((eql --cl
-var-- (quote 89)) 1005))))) (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time ...))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (rea
d-string "Month and year: " nil nil ...) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)
) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done."))))
abo-abo()
(cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time (current-time)))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month an
d year: " nil nil (format-time-string "%B %Y" ...)) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom
-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done.")))
(let* ((span (quote month)) start-day year (month (let ((--cl-var-- (read-event))) (cond ((memql --cl-var-- (quote ...)) 1) ((memql --cl-var-- (quote ...)) 2) ((memql --cl-var-- (quote ...)) 3) ((memql --cl-var-- (quote ...)) 4) ((memql --cl-var-- (quote ...)) 5) ((memql --cl-var-- (quote ...)) 6) ((memql --cl-var-- (quote ...)) 7) ((memql --cl-var-- (quote ...)) 8) ((memql --cl-var-- (quote ...)) 9) ((memql --cl-var-- (quote ...)) 10) ((memql --cl-var-- (quote ...)) 11) ((memql --cl-var-- (quote ...)) 12) ((memql --cl-var-- (quote ...)) 500) ((memql --cl-var-- (quote ...)) 501) ((memql --cl-var-- (quote ...)) 502) ((memql --cl-var-- (quote ...)) 503) ((memql --cl-var-- (quote ...)) 504) ((memql --cl-var-- (quote ...)) 505) ((memql --cl-var-- (quote ...)) 506) ((memql --cl-var-- (quote .
..)) 507) ((eql --cl-var-- (quote 8388704)) 508) ((eql --cl-var-- (quote 8388734)) 509) ((eql --cl-var-- (quote 8388719)) 510) ((memql --cl-var-- (quote ...)) 511) ((memql --cl-var-- (quote ...)) 512) ((eql --cl-var-- (quote 8388721)) 513) ((eql --cl-var-- (quote 8388727)) 514) ((memql --cl-var-- (quote ...)) 515) ((memql --cl-var-- (quote ...)) 516) ((eql --cl-var-- (quote 8388715)) 517) ((memql --cl-var-- (quote ...)) 518) ((memql --cl-var-- (quote ...)) 519) ((memql --cl-var-- (quote ...)) 520) ((memql --cl-var-- (quote ...)) 521) ((eql --cl-var-- (quote 109)) 522) ((eql --cl-var-- (quote 77)) 523) ((eql --cl-var-- (quote 46)) 1000) ((eql --cl-var-- (quote 119)) 1001) ((eql --cl-var-- (quote 103)) 1002) ((eql --cl-var-- (quote 116)) 1003) ((eql --cl-var-- (quote 121)) 1004) ((eql --cl
-var-- (quote 89)) 1005))))) (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time ...))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (rea
d-string "Month and year: " nil nil ...) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)
) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done."))))
abo-abo()
(cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time (current-time)))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month an
d year: " nil nil (format-time-string "%B %Y" ...)) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom
-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done.")))
(let* ((span (quote month)) start-day year (month (let ((--cl-var-- (read-event))) (cond ((memql --cl-var-- (quote ...)) 1) ((memql --cl-var-- (quote ...)) 2) ((memql --cl-var-- (quote ...)) 3) ((memql --cl-var-- (quote ...)) 4) ((memql --cl-var-- (quote ...)) 5) ((memql --cl-var-- (quote ...)) 6) ((memql --cl-var-- (quote ...)) 7) ((memql --cl-var-- (quote ...)) 8) ((memql --cl-var-- (quote ...)) 9) ((memql --cl-var-- (quote ...)) 10) ((memql --cl-var-- (quote ...)) 11) ((memql --cl-var-- (quote ...)) 12) ((memql --cl-var-- (quote ...)) 500) ((memql --cl-var-- (quote ...)) 501) ((memql --cl-var-- (quote ...)) 502) ((memql --cl-var-- (quote ...)) 503) ((memql --cl-var-- (quote ...)) 504) ((memql --cl-var-- (quote ...)) 505) ((memql --cl-var-- (quote ...)) 506) ((memql --cl-var-- (quote .
..)) 507) ((eql --cl-var-- (quote 8388704)) 508) ((eql --cl-var-- (quote 8388734)) 509) ((eql --cl-var-- (quote 8388719)) 510) ((memql --cl-var-- (quote ...)) 511) ((memql --cl-var-- (quote ...)) 512) ((eql --cl-var-- (quote 8388721)) 513) ((eql --cl-var-- (quote 8388727)) 514) ((memql --cl-var-- (quote ...)) 515) ((memql --cl-var-- (quote ...)) 516) ((eql --cl-var-- (quote 8388715)) 517) ((memql --cl-var-- (quote ...)) 518) ((memql --cl-var-- (quote ...)) 519) ((memql --cl-var-- (quote ...)) 520) ((memql --cl-var-- (quote ...)) 521) ((eql --cl-var-- (quote 109)) 522) ((eql --cl-var-- (quote 77)) 523) ((eql --cl-var-- (quote 46)) 1000) ((eql --cl-var-- (quote 119)) 1001) ((eql --cl-var-- (quote 103)) 1002) ((eql --cl-var-- (quote 116)) 1003) ((eql --cl-var-- (quote 121)) 1004) ((eql --cl
-var-- (quote 89)) 1005))))) (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time ...))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (rea
d-string "Month and year: " nil nil ...) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)
) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done."))))
abo-abo()
(cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time (current-time)))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month an
d year: " nil nil (format-time-string "%B %Y" ...)) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom
-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done.")))
(let* ((span (quote month)) start-day year (month (let ((--cl-var-- (read-event))) (cond ((memql --cl-var-- (quote ...)) 1) ((memql --cl-var-- (quote ...)) 2) ((memql --cl-var-- (quote ...)) 3) ((memql --cl-var-- (quote ...)) 4) ((memql --cl-var-- (quote ...)) 5) ((memql --cl-var-- (quote ...)) 6) ((memql --cl-var-- (quote ...)) 7) ((memql --cl-var-- (quote ...)) 8) ((memql --cl-var-- (quote ...)) 9) ((memql --cl-var-- (quote ...)) 10) ((memql --cl-var-- (quote ...)) 11) ((memql --cl-var-- (quote ...)) 12) ((memql --cl-var-- (quote ...)) 500) ((memql --cl-var-- (quote ...)) 501) ((memql --cl-var-- (quote ...)) 502) ((memql --cl-var-- (quote ...)) 503) ((memql --cl-var-- (quote ...)) 504) ((memql --cl-var-- (quote ...)) 505) ((memql --cl-var-- (quote ...)) 506) ((memql --cl-var-- (quote .
..)) 507) ((eql --cl-var-- (quote 8388704)) 508) ((eql --cl-var-- (quote 8388734)) 509) ((eql --cl-var-- (quote 8388719)) 510) ((memql --cl-var-- (quote ...)) 511) ((memql --cl-var-- (quote ...)) 512) ((eql --cl-var-- (quote 8388721)) 513) ((eql --cl-var-- (quote 8388727)) 514) ((memql --cl-var-- (quote ...)) 515) ((memql --cl-var-- (quote ...)) 516) ((eql --cl-var-- (quote 8388715)) 517) ((memql --cl-var-- (quote ...)) 518) ((memql --cl-var-- (quote ...)) 519) ((memql --cl-var-- (quote ...)) 520) ((memql --cl-var-- (quote ...)) 521) ((eql --cl-var-- (quote 109)) 522) ((eql --cl-var-- (quote 77)) 523) ((eql --cl-var-- (quote 46)) 1000) ((eql --cl-var-- (quote 119)) 1001) ((eql --cl-var-- (quote 103)) 1002) ((eql --cl-var-- (quote 116)) 1003) ((eql --cl-var-- (quote 121)) 1004) ((eql --cl
-var-- (quote 89)) 1005))))) (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time ...))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (rea
d-string "Month and year: " nil nil ...) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)
) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done."))))
abo-abo()
(cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time (current-time)))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month an
d year: " nil nil (format-time-string "%B %Y" ...)) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom
-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done.")))
(let* ((span (quote month)) start-day year (month (let ((--cl-var-- (read-event))) (cond ((memql --cl-var-- (quote ...)) 1) ((memql --cl-var-- (quote ...)) 2) ((memql --cl-var-- (quote ...)) 3) ((memql --cl-var-- (quote ...)) 4) ((memql --cl-var-- (quote ...)) 5) ((memql --cl-var-- (quote ...)) 6) ((memql --cl-var-- (quote ...)) 7) ((memql --cl-var-- (quote ...)) 8) ((memql --cl-var-- (quote ...)) 9) ((memql --cl-var-- (quote ...)) 10) ((memql --cl-var-- (quote ...)) 11) ((memql --cl-var-- (quote ...)) 12) ((memql --cl-var-- (quote ...)) 500) ((memql --cl-var-- (quote ...)) 501) ((memql --cl-var-- (quote ...)) 502) ((memql --cl-var-- (quote ...)) 503) ((memql --cl-var-- (quote ...)) 504) ((memql --cl-var-- (quote ...)) 505) ((memql --cl-var-- (quote ...)) 506) ((memql --cl-var-- (quote .
..)) 507) ((eql --cl-var-- (quote 8388704)) 508) ((eql --cl-var-- (quote 8388734)) 509) ((eql --cl-var-- (quote 8388719)) 510) ((memql --cl-var-- (quote ...)) 511) ((memql --cl-var-- (quote ...)) 512) ((eql --cl-var-- (quote 8388721)) 513) ((eql --cl-var-- (quote 8388727)) 514) ((memql --cl-var-- (quote ...)) 515) ((memql --cl-var-- (quote ...)) 516) ((eql --cl-var-- (quote 8388715)) 517) ((memql --cl-var-- (quote ...)) 518) ((memql --cl-var-- (quote ...)) 519) ((memql --cl-var-- (quote ...)) 520) ((memql --cl-var-- (quote ...)) 521) ((eql --cl-var-- (quote 109)) 522) ((eql --cl-var-- (quote 77)) 523) ((eql --cl-var-- (quote 46)) 1000) ((eql --cl-var-- (quote 119)) 1001) ((eql --cl-var-- (quote 103)) 1002) ((eql --cl-var-- (quote 116)) 1003) ((eql --cl-var-- (quote 121)) 1004) ((eql --cl
-var-- (quote 89)) 1005))))) (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time ...))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (rea
d-string "Month and year: " nil nil ...) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)
) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done."))))
abo-abo()
(cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time (current-time)))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month an
d year: " nil nil (format-time-string "%B %Y" ...)) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom
-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done.")))
(let* ((span (quote month)) start-day year (month (let ((--cl-var-- (read-event))) (cond ((memql --cl-var-- (quote ...)) 1) ((memql --cl-var-- (quote ...)) 2) ((memql --cl-var-- (quote ...)) 3) ((memql --cl-var-- (quote ...)) 4) ((memql --cl-var-- (quote ...)) 5) ((memql --cl-var-- (quote ...)) 6) ((memql --cl-var-- (quote ...)) 7) ((memql --cl-var-- (quote ...)) 8) ((memql --cl-var-- (quote ...)) 9) ((memql --cl-var-- (quote ...)) 10) ((memql --cl-var-- (quote ...)) 11) ((memql --cl-var-- (quote ...)) 12) ((memql --cl-var-- (quote ...)) 500) ((memql --cl-var-- (quote ...)) 501) ((memql --cl-var-- (quote ...)) 502) ((memql --cl-var-- (quote ...)) 503) ((memql --cl-var-- (quote ...)) 504) ((memql --cl-var-- (quote ...)) 505) ((memql --cl-var-- (quote ...)) 506) ((memql --cl-var-- (quote .
..)) 507) ((eql --cl-var-- (quote 8388704)) 508) ((eql --cl-var-- (quote 8388734)) 509) ((eql --cl-var-- (quote 8388719)) 510) ((memql --cl-var-- (quote ...)) 511) ((memql --cl-var-- (quote ...)) 512) ((eql --cl-var-- (quote 8388721)) 513) ((eql --cl-var-- (quote 8388727)) 514) ((memql --cl-var-- (quote ...)) 515) ((memql --cl-var-- (quote ...)) 516) ((eql --cl-var-- (quote 8388715)) 517) ((memql --cl-var-- (quote ...)) 518) ((memql --cl-var-- (quote ...)) 519) ((memql --cl-var-- (quote ...)) 520) ((memql --cl-var-- (quote ...)) 521) ((eql --cl-var-- (quote 109)) 522) ((eql --cl-var-- (quote 77)) 523) ((eql --cl-var-- (quote 46)) 1000) ((eql --cl-var-- (quote 119)) 1001) ((eql --cl-var-- (quote 103)) 1002) ((eql --cl-var-- (quote 116)) 1003) ((eql --cl-var-- (quote 121)) 1004) ((eql --cl
-var-- (quote 89)) 1005))))) (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time ...))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (rea
d-string "Month and year: " nil nil ...) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)
) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done."))))
abo-abo()
(cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time (current-time)))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month an
d year: " nil nil (format-time-string "%B %Y" ...)) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom
-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done.")))
(let* ((span (quote month)) start-day year (month (let ((--cl-var-- (read-event))) (cond ((memql --cl-var-- (quote ...)) 1) ((memql --cl-var-- (quote ...)) 2) ((memql --cl-var-- (quote ...)) 3) ((memql --cl-var-- (quote ...)) 4) ((memql --cl-var-- (quote ...)) 5) ((memql --cl-var-- (quote ...)) 6) ((memql --cl-var-- (quote ...)) 7) ((memql --cl-var-- (quote ...)) 8) ((memql --cl-var-- (quote ...)) 9) ((memql --cl-var-- (quote ...)) 10) ((memql --cl-var-- (quote ...)) 11) ((memql --cl-var-- (quote ...)) 12) ((memql --cl-var-- (quote ...)) 500) ((memql --cl-var-- (quote ...)) 501) ((memql --cl-var-- (quote ...)) 502) ((memql --cl-var-- (quote ...)) 503) ((memql --cl-var-- (quote ...)) 504) ((memql --cl-var-- (quote ...)) 505) ((memql --cl-var-- (quote ...)) 506) ((memql --cl-var-- (quote .
..)) 507) ((eql --cl-var-- (quote 8388704)) 508) ((eql --cl-var-- (quote 8388734)) 509) ((eql --cl-var-- (quote 8388719)) 510) ((memql --cl-var-- (quote ...)) 511) ((memql --cl-var-- (quote ...)) 512) ((eql --cl-var-- (quote 8388721)) 513) ((eql --cl-var-- (quote 8388727)) 514) ((memql --cl-var-- (quote ...)) 515) ((memql --cl-var-- (quote ...)) 516) ((eql --cl-var-- (quote 8388715)) 517) ((memql --cl-var-- (quote ...)) 518) ((memql --cl-var-- (quote ...)) 519) ((memql --cl-var-- (quote ...)) 520) ((memql --cl-var-- (quote ...)) 521) ((eql --cl-var-- (quote 109)) 522) ((eql --cl-var-- (quote 77)) 523) ((eql --cl-var-- (quote 46)) 1000) ((eql --cl-var-- (quote 119)) 1001) ((eql --cl-var-- (quote 103)) 1002) ((eql --cl-var-- (quote 116)) 1003) ((eql --cl-var-- (quote 121)) 1004) ((eql --cl
-var-- (quote 89)) 1005))))) (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time ...))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (rea
d-string "Month and year: " nil nil ...) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)
) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done."))))
abo-abo()
(cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time (current-time)))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month an
d year: " nil nil (format-time-string "%B %Y" ...)) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom
-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done.")))
(let* ((span (quote month)) start-day year (month (let ((--cl-var-- (read-event))) (cond ((memql --cl-var-- (quote ...)) 1) ((memql --cl-var-- (quote ...)) 2) ((memql --cl-var-- (quote ...)) 3) ((memql --cl-var-- (quote ...)) 4) ((memql --cl-var-- (quote ...)) 5) ((memql --cl-var-- (quote ...)) 6) ((memql --cl-var-- (quote ...)) 7) ((memql --cl-var-- (quote ...)) 8) ((memql --cl-var-- (quote ...)) 9) ((memql --cl-var-- (quote ...)) 10) ((memql --cl-var-- (quote ...)) 11) ((memql --cl-var-- (quote ...)) 12) ((memql --cl-var-- (quote ...)) 500) ((memql --cl-var-- (quote ...)) 501) ((memql --cl-var-- (quote ...)) 502) ((memql --cl-var-- (quote ...)) 503) ((memql --cl-var-- (quote ...)) 504) ((memql --cl-var-- (quote ...)) 505) ((memql --cl-var-- (quote ...)) 506) ((memql --cl-var-- (quote .
..)) 507) ((eql --cl-var-- (quote 8388704)) 508) ((eql --cl-var-- (quote 8388734)) 509) ((eql --cl-var-- (quote 8388719)) 510) ((memql --cl-var-- (quote ...)) 511) ((memql --cl-var-- (quote ...)) 512) ((eql --cl-var-- (quote 8388721)) 513) ((eql --cl-var-- (quote 8388727)) 514) ((memql --cl-var-- (quote ...)) 515) ((memql --cl-var-- (quote ...)) 516) ((eql --cl-var-- (quote 8388715)) 517) ((memql --cl-var-- (quote ...)) 518) ((memql --cl-var-- (quote ...)) 519) ((memql --cl-var-- (quote ...)) 520) ((memql --cl-var-- (quote ...)) 521) ((eql --cl-var-- (quote 109)) 522) ((eql --cl-var-- (quote 77)) 523) ((eql --cl-var-- (quote 46)) 1000) ((eql --cl-var-- (quote 119)) 1001) ((eql --cl-var-- (quote 103)) 1002) ((eql --cl-var-- (quote 116)) 1003) ((eql --cl-var-- (quote 121)) 1004) ((eql --cl
-var-- (quote 89)) 1005))))) (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time ...))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (rea
d-string "Month and year: " nil nil ...) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)
) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done."))))
abo-abo()
(cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time (current-time)))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month an
d year: " nil nil (format-time-string "%B %Y" ...)) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom
-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done.")))
(let* ((span (quote month)) start-day year (month (let ((--cl-var-- (read-event))) (cond ((memql --cl-var-- (quote ...)) 1) ((memql --cl-var-- (quote ...)) 2) ((memql --cl-var-- (quote ...)) 3) ((memql --cl-var-- (quote ...)) 4) ((memql --cl-var-- (quote ...)) 5) ((memql --cl-var-- (quote ...)) 6) ((memql --cl-var-- (quote ...)) 7) ((memql --cl-var-- (quote ...)) 8) ((memql --cl-var-- (quote ...)) 9) ((memql --cl-var-- (quote ...)) 10) ((memql --cl-var-- (quote ...)) 11) ((memql --cl-var-- (quote ...)) 12) ((memql --cl-var-- (quote ...)) 500) ((memql --cl-var-- (quote ...)) 501) ((memql --cl-var-- (quote ...)) 502) ((memql --cl-var-- (quote ...)) 503) ((memql --cl-var-- (quote ...)) 504) ((memql --cl-var-- (quote ...)) 505) ((memql --cl-var-- (quote ...)) 506) ((memql --cl-var-- (quote .
..)) 507) ((eql --cl-var-- (quote 8388704)) 508) ((eql --cl-var-- (quote 8388734)) 509) ((eql --cl-var-- (quote 8388719)) 510) ((memql --cl-var-- (quote ...)) 511) ((memql --cl-var-- (quote ...)) 512) ((eql --cl-var-- (quote 8388721)) 513) ((eql --cl-var-- (quote 8388727)) 514) ((memql --cl-var-- (quote ...)) 515) ((memql --cl-var-- (quote ...)) 516) ((eql --cl-var-- (quote 8388715)) 517) ((memql --cl-var-- (quote ...)) 518) ((memql --cl-var-- (quote ...)) 519) ((memql --cl-var-- (quote ...)) 520) ((memql --cl-var-- (quote ...)) 521) ((eql --cl-var-- (quote 109)) 522) ((eql --cl-var-- (quote 77)) 523) ((eql --cl-var-- (quote 46)) 1000) ((eql --cl-var-- (quote 119)) 1001) ((eql --cl-var-- (quote 103)) 1002) ((eql --cl-var-- (quote 116)) 1003) ((eql --cl-var-- (quote 121)) 1004) ((eql --cl
-var-- (quote 89)) 1005))))) (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time ...))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (rea
d-string "Month and year: " nil nil ...) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)
) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done."))))
abo-abo()
(cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time (current-time)))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month an
d year: " nil nil (format-time-string "%B %Y" ...)) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom
-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done.")))
(let* ((span (quote month)) start-day year (month (let ((--cl-var-- (read-event))) (cond ((memql --cl-var-- (quote ...)) 1) ((memql --cl-var-- (quote ...)) 2) ((memql --cl-var-- (quote ...)) 3) ((memql --cl-var-- (quote ...)) 4) ((memql --cl-var-- (quote ...)) 5) ((memql --cl-var-- (quote ...)) 6) ((memql --cl-var-- (quote ...)) 7) ((memql --cl-var-- (quote ...)) 8) ((memql --cl-var-- (quote ...)) 9) ((memql --cl-var-- (quote ...)) 10) ((memql --cl-var-- (quote ...)) 11) ((memql --cl-var-- (quote ...)) 12) ((memql --cl-var-- (quote ...)) 500) ((memql --cl-var-- (quote ...)) 501) ((memql --cl-var-- (quote ...)) 502) ((memql --cl-var-- (quote ...)) 503) ((memql --cl-var-- (quote ...)) 504) ((memql --cl-var-- (quote ...)) 505) ((memql --cl-var-- (quote ...)) 506) ((memql --cl-var-- (quote .
..)) 507) ((eql --cl-var-- (quote 8388704)) 508) ((eql --cl-var-- (quote 8388734)) 509) ((eql --cl-var-- (quote 8388719)) 510) ((memql --cl-var-- (quote ...)) 511) ((memql --cl-var-- (quote ...)) 512) ((eql --cl-var-- (quote 8388721)) 513) ((eql --cl-var-- (quote 8388727)) 514) ((memql --cl-var-- (quote ...)) 515) ((memql --cl-var-- (quote ...)) 516) ((eql --cl-var-- (quote 8388715)) 517) ((memql --cl-var-- (quote ...)) 518) ((memql --cl-var-- (quote ...)) 519) ((memql --cl-var-- (quote ...)) 520) ((memql --cl-var-- (quote ...)) 521) ((eql --cl-var-- (quote 109)) 522) ((eql --cl-var-- (quote 77)) 523) ((eql --cl-var-- (quote 46)) 1000) ((eql --cl-var-- (quote 119)) 1001) ((eql --cl-var-- (quote 103)) 1002) ((eql --cl-var-- (quote 116)) 1003) ((eql --cl-var-- (quote 121)) 1004) ((eql --cl
-var-- (quote 89)) 1005))))) (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time ...))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (rea
d-string "Month and year: " nil nil ...) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)
) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done."))))
abo-abo()
(cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time (current-time)))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month an
d year: " nil nil (format-time-string "%B %Y" ...)) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom
-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done.")))
(let* ((span (quote month)) start-day year (month (let ((--cl-var-- (read-event))) (cond ((memql --cl-var-- (quote ...)) 1) ((memql --cl-var-- (quote ...)) 2) ((memql --cl-var-- (quote ...)) 3) ((memql --cl-var-- (quote ...)) 4) ((memql --cl-var-- (quote ...)) 5) ((memql --cl-var-- (quote ...)) 6) ((memql --cl-var-- (quote ...)) 7) ((memql --cl-var-- (quote ...)) 8) ((memql --cl-var-- (quote ...)) 9) ((memql --cl-var-- (quote ...)) 10) ((memql --cl-var-- (quote ...)) 11) ((memql --cl-var-- (quote ...)) 12) ((memql --cl-var-- (quote ...)) 500) ((memql --cl-var-- (quote ...)) 501) ((memql --cl-var-- (quote ...)) 502) ((memql --cl-var-- (quote ...)) 503) ((memql --cl-var-- (quote ...)) 504) ((memql --cl-var-- (quote ...)) 505) ((memql --cl-var-- (quote ...)) 506) ((memql --cl-var-- (quote .
..)) 507) ((eql --cl-var-- (quote 8388704)) 508) ((eql --cl-var-- (quote 8388734)) 509) ((eql --cl-var-- (quote 8388719)) 510) ((memql --cl-var-- (quote ...)) 511) ((memql --cl-var-- (quote ...)) 512) ((eql --cl-var-- (quote 8388721)) 513) ((eql --cl-var-- (quote 8388727)) 514) ((memql --cl-var-- (quote ...)) 515) ((memql --cl-var-- (quote ...)) 516) ((eql --cl-var-- (quote 8388715)) 517) ((memql --cl-var-- (quote ...)) 518) ((memql --cl-var-- (quote ...)) 519) ((memql --cl-var-- (quote ...)) 520) ((memql --cl-var-- (quote ...)) 521) ((eql --cl-var-- (quote 109)) 522) ((eql --cl-var-- (quote 77)) 523) ((eql --cl-var-- (quote 46)) 1000) ((eql --cl-var-- (quote 119)) 1001) ((eql --cl-var-- (quote 103)) 1002) ((eql --cl-var-- (quote 116)) 1003) ((eql --cl-var-- (quote 121)) 1004) ((eql --cl
-var-- (quote 89)) 1005))))) (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time ...))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (rea
d-string "Month and year: " nil nil ...) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)
) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done."))))
abo-abo()
(cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time (current-time)))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month an
d year: " nil nil (format-time-string "%B %Y" ...)) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom
-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done.")))
(let* ((span (quote month)) start-day year (month (let ((--cl-var-- (read-event))) (cond ((memql --cl-var-- (quote ...)) 1) ((memql --cl-var-- (quote ...)) 2) ((memql --cl-var-- (quote ...)) 3) ((memql --cl-var-- (quote ...)) 4) ((memql --cl-var-- (quote ...)) 5) ((memql --cl-var-- (quote ...)) 6) ((memql --cl-var-- (quote ...)) 7) ((memql --cl-var-- (quote ...)) 8) ((memql --cl-var-- (quote ...)) 9) ((memql --cl-var-- (quote ...)) 10) ((memql --cl-var-- (quote ...)) 11) ((memql --cl-var-- (quote ...)) 12) ((memql --cl-var-- (quote ...)) 500) ((memql --cl-var-- (quote ...)) 501) ((memql --cl-var-- (quote ...)) 502) ((memql --cl-var-- (quote ...)) 503) ((memql --cl-var-- (quote ...)) 504) ((memql --cl-var-- (quote ...)) 505) ((memql --cl-var-- (quote ...)) 506) ((memql --cl-var-- (quote .
..)) 507) ((eql --cl-var-- (quote 8388704)) 508) ((eql --cl-var-- (quote 8388734)) 509) ((eql --cl-var-- (quote 8388719)) 510) ((memql --cl-var-- (quote ...)) 511) ((memql --cl-var-- (quote ...)) 512) ((eql --cl-var-- (quote 8388721)) 513) ((eql --cl-var-- (quote 8388727)) 514) ((memql --cl-var-- (quote ...)) 515) ((memql --cl-var-- (quote ...)) 516) ((eql --cl-var-- (quote 8388715)) 517) ((memql --cl-var-- (quote ...)) 518) ((memql --cl-var-- (quote ...)) 519) ((memql --cl-var-- (quote ...)) 520) ((memql --cl-var-- (quote ...)) 521) ((eql --cl-var-- (quote 109)) 522) ((eql --cl-var-- (quote 77)) 523) ((eql --cl-var-- (quote 46)) 1000) ((eql --cl-var-- (quote 119)) 1001) ((eql --cl-var-- (quote 103)) 1002) ((eql --cl-var-- (quote 116)) 1003) ((eql --cl-var-- (quote 121)) 1004) ((eql --cl
-var-- (quote 89)) 1005))))) (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time ...))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (rea
d-string "Month and year: " nil nil ...) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)
) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done."))))
abo-abo()
(cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time (current-time)))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month an
d year: " nil nil (format-time-string "%B %Y" ...)) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom
-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done.")))
(let* ((span (quote month)) start-day year (month (let ((--cl-var-- (read-event))) (cond ((memql --cl-var-- (quote ...)) 1) ((memql --cl-var-- (quote ...)) 2) ((memql --cl-var-- (quote ...)) 3) ((memql --cl-var-- (quote ...)) 4) ((memql --cl-var-- (quote ...)) 5) ((memql --cl-var-- (quote ...)) 6) ((memql --cl-var-- (quote ...)) 7) ((memql --cl-var-- (quote ...)) 8) ((memql --cl-var-- (quote ...)) 9) ((memql --cl-var-- (quote ...)) 10) ((memql --cl-var-- (quote ...)) 11) ((memql --cl-var-- (quote ...)) 12) ((memql --cl-var-- (quote ...)) 500) ((memql --cl-var-- (quote ...)) 501) ((memql --cl-var-- (quote ...)) 502) ((memql --cl-var-- (quote ...)) 503) ((memql --cl-var-- (quote ...)) 504) ((memql --cl-var-- (quote ...)) 505) ((memql --cl-var-- (quote ...)) 506) ((memql --cl-var-- (quote .
..)) 507) ((eql --cl-var-- (quote 8388704)) 508) ((eql --cl-var-- (quote 8388734)) 509) ((eql --cl-var-- (quote 8388719)) 510) ((memql --cl-var-- (quote ...)) 511) ((memql --cl-var-- (quote ...)) 512) ((eql --cl-var-- (quote 8388721)) 513) ((eql --cl-var-- (quote 8388727)) 514) ((memql --cl-var-- (quote ...)) 515) ((memql --cl-var-- (quote ...)) 516) ((eql --cl-var-- (quote 8388715)) 517) ((memql --cl-var-- (quote ...)) 518) ((memql --cl-var-- (quote ...)) 519) ((memql --cl-var-- (quote ...)) 520) ((memql --cl-var-- (quote ...)) 521) ((eql --cl-var-- (quote 109)) 522) ((eql --cl-var-- (quote 77)) 523) ((eql --cl-var-- (quote 46)) 1000) ((eql --cl-var-- (quote 119)) 1001) ((eql --cl-var-- (quote 103)) 1002) ((eql --cl-var-- (quote 116)) 1003) ((eql --cl-var-- (quote 121)) 1004) ((eql --cl
-var-- (quote 89)) 1005))))) (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time ...))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (rea
d-string "Month and year: " nil nil ...) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)
) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done."))))
abo-abo()
(cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time (current-time)))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month an
d year: " nil nil (format-time-string "%B %Y" ...)) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom
-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done.")))
(let* ((span (quote month)) start-day year (month (let ((--cl-var-- (read-event))) (cond ((memql --cl-var-- (quote ...)) 1) ((memql --cl-var-- (quote ...)) 2) ((memql --cl-var-- (quote ...)) 3) ((memql --cl-var-- (quote ...)) 4) ((memql --cl-var-- (quote ...)) 5) ((memql --cl-var-- (quote ...)) 6) ((memql --cl-var-- (quote ...)) 7) ((memql --cl-var-- (quote ...)) 8) ((memql --cl-var-- (quote ...)) 9) ((memql --cl-var-- (quote ...)) 10) ((memql --cl-var-- (quote ...)) 11) ((memql --cl-var-- (quote ...)) 12) ((memql --cl-var-- (quote ...)) 500) ((memql --cl-var-- (quote ...)) 501) ((memql --cl-var-- (quote ...)) 502) ((memql --cl-var-- (quote ...)) 503) ((memql --cl-var-- (quote ...)) 504) ((memql --cl-var-- (quote ...)) 505) ((memql --cl-var-- (quote ...)) 506) ((memql --cl-var-- (quote .
..)) 507) ((eql --cl-var-- (quote 8388704)) 508) ((eql --cl-var-- (quote 8388734)) 509) ((eql --cl-var-- (quote 8388719)) 510) ((memql --cl-var-- (quote ...)) 511) ((memql --cl-var-- (quote ...)) 512) ((eql --cl-var-- (quote 8388721)) 513) ((eql --cl-var-- (quote 8388727)) 514) ((memql --cl-var-- (quote ...)) 515) ((memql --cl-var-- (quote ...)) 516) ((eql --cl-var-- (quote 8388715)) 517) ((memql --cl-var-- (quote ...)) 518) ((memql --cl-var-- (quote ...)) 519) ((memql --cl-var-- (quote ...)) 520) ((memql --cl-var-- (quote ...)) 521) ((eql --cl-var-- (quote 109)) 522) ((eql --cl-var-- (quote 77)) 523) ((eql --cl-var-- (quote 46)) 1000) ((eql --cl-var-- (quote 119)) 1001) ((eql --cl-var-- (quote 103)) 1002) ((eql --cl-var-- (quote 116)) 1003) ((eql --cl-var-- (quote 121)) 1004) ((eql --cl
-var-- (quote 89)) 1005))))) (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time ...))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (rea
d-string "Month and year: " nil nil ...) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)
) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done."))))
abo-abo()
(cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time (current-time)))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month an
d year: " nil nil (format-time-string "%B %Y" ...)) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom
-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done.")))
(let* ((span (quote month)) start-day year (month (let ((--cl-var-- (read-event))) (cond ((memql --cl-var-- (quote ...)) 1) ((memql --cl-var-- (quote ...)) 2) ((memql --cl-var-- (quote ...)) 3) ((memql --cl-var-- (quote ...)) 4) ((memql --cl-var-- (quote ...)) 5) ((memql --cl-var-- (quote ...)) 6) ((memql --cl-var-- (quote ...)) 7) ((memql --cl-var-- (quote ...)) 8) ((memql --cl-var-- (quote ...)) 9) ((memql --cl-var-- (quote ...)) 10) ((memql --cl-var-- (quote ...)) 11) ((memql --cl-var-- (quote ...)) 12) ((memql --cl-var-- (quote ...)) 500) ((memql --cl-var-- (quote ...)) 501) ((memql --cl-var-- (quote ...)) 502) ((memql --cl-var-- (quote ...)) 503) ((memql --cl-var-- (quote ...)) 504) ((memql --cl-var-- (quote ...)) 505) ((memql --cl-var-- (quote ...)) 506) ((memql --cl-var-- (quote .
..)) 507) ((eql --cl-var-- (quote 8388704)) 508) ((eql --cl-var-- (quote 8388734)) 509) ((eql --cl-var-- (quote 8388719)) 510) ((memql --cl-var-- (quote ...)) 511) ((memql --cl-var-- (quote ...)) 512) ((eql --cl-var-- (quote 8388721)) 513) ((eql --cl-var-- (quote 8388727)) 514) ((memql --cl-var-- (quote ...)) 515) ((memql --cl-var-- (quote ...)) 516) ((eql --cl-var-- (quote 8388715)) 517) ((memql --cl-var-- (quote ...)) 518) ((memql --cl-var-- (quote ...)) 519) ((memql --cl-var-- (quote ...)) 520) ((memql --cl-var-- (quote ...)) 521) ((eql --cl-var-- (quote 109)) 522) ((eql --cl-var-- (quote 77)) 523) ((eql --cl-var-- (quote 46)) 1000) ((eql --cl-var-- (quote 119)) 1001) ((eql --cl-var-- (quote 103)) 1002) ((eql --cl-var-- (quote 116)) 1003) ((eql --cl-var-- (quote 121)) 1004) ((eql --cl
-var-- (quote 89)) 1005))))) (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time ...))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (rea
d-string "Month and year: " nil nil ...) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)
) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done."))))
abo-abo()
(cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time (current-time)))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month an
d year: " nil nil (format-time-string "%B %Y" ...)) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom
-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done.")))
(let* ((span (quote month)) start-day year (month (let ((--cl-var-- (read-event))) (cond ((memql --cl-var-- (quote ...)) 1) ((memql --cl-var-- (quote ...)) 2) ((memql --cl-var-- (quote ...)) 3) ((memql --cl-var-- (quote ...)) 4) ((memql --cl-var-- (quote ...)) 5) ((memql --cl-var-- (quote ...)) 6) ((memql --cl-var-- (quote ...)) 7) ((memql --cl-var-- (quote ...)) 8) ((memql --cl-var-- (quote ...)) 9) ((memql --cl-var-- (quote ...)) 10) ((memql --cl-var-- (quote ...)) 11) ((memql --cl-var-- (quote ...)) 12) ((memql --cl-var-- (quote ...)) 500) ((memql --cl-var-- (quote ...)) 501) ((memql --cl-var-- (quote ...)) 502) ((memql --cl-var-- (quote ...)) 503) ((memql --cl-var-- (quote ...)) 504) ((memql --cl-var-- (quote ...)) 505) ((memql --cl-var-- (quote ...)) 506) ((memql --cl-var-- (quote .
..)) 507) ((eql --cl-var-- (quote 8388704)) 508) ((eql --cl-var-- (quote 8388734)) 509) ((eql --cl-var-- (quote 8388719)) 510) ((memql --cl-var-- (quote ...)) 511) ((memql --cl-var-- (quote ...)) 512) ((eql --cl-var-- (quote 8388721)) 513) ((eql --cl-var-- (quote 8388727)) 514) ((memql --cl-var-- (quote ...)) 515) ((memql --cl-var-- (quote ...)) 516) ((eql --cl-var-- (quote 8388715)) 517) ((memql --cl-var-- (quote ...)) 518) ((memql --cl-var-- (quote ...)) 519) ((memql --cl-var-- (quote ...)) 520) ((memql --cl-var-- (quote ...)) 521) ((eql --cl-var-- (quote 109)) 522) ((eql --cl-var-- (quote 77)) 523) ((eql --cl-var-- (quote 46)) 1000) ((eql --cl-var-- (quote 119)) 1001) ((eql --cl-var-- (quote 103)) 1002) ((eql --cl-var-- (quote 116)) 1003) ((eql --cl-var-- (quote 121)) 1004) ((eql --cl
-var-- (quote 89)) 1005))))) (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time ...))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (rea
d-string "Month and year: " nil nil ...) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)
) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done."))))
abo-abo()
(cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time (current-time)))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month an
d year: " nil nil (format-time-string "%B %Y" ...)) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom
-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done.")))
(let* ((span (quote month)) start-day year (month (let ((--cl-var-- (read-event))) (cond ((memql --cl-var-- (quote ...)) 1) ((memql --cl-var-- (quote ...)) 2) ((memql --cl-var-- (quote ...)) 3) ((memql --cl-var-- (quote ...)) 4) ((memql --cl-var-- (quote ...)) 5) ((memql --cl-var-- (quote ...)) 6) ((memql --cl-var-- (quote ...)) 7) ((memql --cl-var-- (quote ...)) 8) ((memql --cl-var-- (quote ...)) 9) ((memql --cl-var-- (quote ...)) 10) ((memql --cl-var-- (quote ...)) 11) ((memql --cl-var-- (quote ...)) 12) ((memql --cl-var-- (quote ...)) 500) ((memql --cl-var-- (quote ...)) 501) ((memql --cl-var-- (quote ...)) 502) ((memql --cl-var-- (quote ...)) 503) ((memql --cl-var-- (quote ...)) 504) ((memql --cl-var-- (quote ...)) 505) ((memql --cl-var-- (quote ...)) 506) ((memql --cl-var-- (quote .
..)) 507) ((eql --cl-var-- (quote 8388704)) 508) ((eql --cl-var-- (quote 8388734)) 509) ((eql --cl-var-- (quote 8388719)) 510) ((memql --cl-var-- (quote ...)) 511) ((memql --cl-var-- (quote ...)) 512) ((eql --cl-var-- (quote 8388721)) 513) ((eql --cl-var-- (quote 8388727)) 514) ((memql --cl-var-- (quote ...)) 515) ((memql --cl-var-- (quote ...)) 516) ((eql --cl-var-- (quote 8388715)) 517) ((memql --cl-var-- (quote ...)) 518) ((memql --cl-var-- (quote ...)) 519) ((memql --cl-var-- (quote ...)) 520) ((memql --cl-var-- (quote ...)) 521) ((eql --cl-var-- (quote 109)) 522) ((eql --cl-var-- (quote 77)) 523) ((eql --cl-var-- (quote 46)) 1000) ((eql --cl-var-- (quote 119)) 1001) ((eql --cl-var-- (quote 103)) 1002) ((eql --cl-var-- (quote 116)) 1003) ((eql --cl-var-- (quote 121)) 1004) ((eql --cl
-var-- (quote 89)) 1005))))) (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time ...))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (rea
d-string "Month and year: " nil nil ...) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)
) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done."))))
abo-abo()
(cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time (current-time)))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month an
d year: " nil nil (format-time-string "%B %Y" ...)) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom
-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done.")))
(let* ((span (quote month)) start-day year (month (let ((--cl-var-- (read-event))) (cond ((memql --cl-var-- (quote ...)) 1) ((memql --cl-var-- (quote ...)) 2) ((memql --cl-var-- (quote ...)) 3) ((memql --cl-var-- (quote ...)) 4) ((memql --cl-var-- (quote ...)) 5) ((memql --cl-var-- (quote ...)) 6) ((memql --cl-var-- (quote ...)) 7) ((memql --cl-var-- (quote ...)) 8) ((memql --cl-var-- (quote ...)) 9) ((memql --cl-var-- (quote ...)) 10) ((memql --cl-var-- (quote ...)) 11) ((memql --cl-var-- (quote ...)) 12) ((memql --cl-var-- (quote ...)) 500) ((memql --cl-var-- (quote ...)) 501) ((memql --cl-var-- (quote ...)) 502) ((memql --cl-var-- (quote ...)) 503) ((memql --cl-var-- (quote ...)) 504) ((memql --cl-var-- (quote ...)) 505) ((memql --cl-var-- (quote ...)) 506) ((memql --cl-var-- (quote .
..)) 507) ((eql --cl-var-- (quote 8388704)) 508) ((eql --cl-var-- (quote 8388734)) 509) ((eql --cl-var-- (quote 8388719)) 510) ((memql --cl-var-- (quote ...)) 511) ((memql --cl-var-- (quote ...)) 512) ((eql --cl-var-- (quote 8388721)) 513) ((eql --cl-var-- (quote 8388727)) 514) ((memql --cl-var-- (quote ...)) 515) ((memql --cl-var-- (quote ...)) 516) ((eql --cl-var-- (quote 8388715)) 517) ((memql --cl-var-- (quote ...)) 518) ((memql --cl-var-- (quote ...)) 519) ((memql --cl-var-- (quote ...)) 520) ((memql --cl-var-- (quote ...)) 521) ((eql --cl-var-- (quote 109)) 522) ((eql --cl-var-- (quote 77)) 523) ((eql --cl-var-- (quote 46)) 1000) ((eql --cl-var-- (quote 119)) 1001) ((eql --cl-var-- (quote 103)) 1002) ((eql --cl-var-- (quote 116)) 1003) ((eql --cl-var-- (quote 121)) 1004) ((eql --cl
-var-- (quote 89)) 1005))))) (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time ...))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (rea
d-string "Month and year: " nil nil ...) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)
) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done."))))
abo-abo()
(cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time (current-time)))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month an
d year: " nil nil (format-time-string "%B %Y" ...)) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom
-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done.")))
(let* ((span (quote month)) start-day year (month (let ((--cl-var-- (read-event))) (cond ((memql --cl-var-- (quote ...)) 1) ((memql --cl-var-- (quote ...)) 2) ((memql --cl-var-- (quote ...)) 3) ((memql --cl-var-- (quote ...)) 4) ((memql --cl-var-- (quote ...)) 5) ((memql --cl-var-- (quote ...)) 6) ((memql --cl-var-- (quote ...)) 7) ((memql --cl-var-- (quote ...)) 8) ((memql --cl-var-- (quote ...)) 9) ((memql --cl-var-- (quote ...)) 10) ((memql --cl-var-- (quote ...)) 11) ((memql --cl-var-- (quote ...)) 12) ((memql --cl-var-- (quote ...)) 500) ((memql --cl-var-- (quote ...)) 501) ((memql --cl-var-- (quote ...)) 502) ((memql --cl-var-- (quote ...)) 503) ((memql --cl-var-- (quote ...)) 504) ((memql --cl-var-- (quote ...)) 505) ((memql --cl-var-- (quote ...)) 506) ((memql --cl-var-- (quote .
..)) 507) ((eql --cl-var-- (quote 8388704)) 508) ((eql --cl-var-- (quote 8388734)) 509) ((eql --cl-var-- (quote 8388719)) 510) ((memql --cl-var-- (quote ...)) 511) ((memql --cl-var-- (quote ...)) 512) ((eql --cl-var-- (quote 8388721)) 513) ((eql --cl-var-- (quote 8388727)) 514) ((memql --cl-var-- (quote ...)) 515) ((memql --cl-var-- (quote ...)) 516) ((eql --cl-var-- (quote 8388715)) 517) ((memql --cl-var-- (quote ...)) 518) ((memql --cl-var-- (quote ...)) 519) ((memql --cl-var-- (quote ...)) 520) ((memql --cl-var-- (quote ...)) 521) ((eql --cl-var-- (quote 109)) 522) ((eql --cl-var-- (quote 77)) 523) ((eql --cl-var-- (quote 46)) 1000) ((eql --cl-var-- (quote 119)) 1001) ((eql --cl-var-- (quote 103)) 1002) ((eql --cl-var-- (quote 116)) 1003) ((eql --cl-var-- (quote 121)) 1004) ((eql --cl
-var-- (quote 89)) 1005))))) (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time ...))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (rea
d-string "Month and year: " nil nil ...) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)
) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done."))))
abo-abo()
(cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time (current-time)))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month an
d year: " nil nil (format-time-string "%B %Y" ...)) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom
-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done.")))
(let* ((span (quote month)) start-day year (month (let ((--cl-var-- (read-event))) (cond ((memql --cl-var-- (quote ...)) 1) ((memql --cl-var-- (quote ...)) 2) ((memql --cl-var-- (quote ...)) 3) ((memql --cl-var-- (quote ...)) 4) ((memql --cl-var-- (quote ...)) 5) ((memql --cl-var-- (quote ...)) 6) ((memql --cl-var-- (quote ...)) 7) ((memql --cl-var-- (quote ...)) 8) ((memql --cl-var-- (quote ...)) 9) ((memql --cl-var-- (quote ...)) 10) ((memql --cl-var-- (quote ...)) 11) ((memql --cl-var-- (quote ...)) 12) ((memql --cl-var-- (quote ...)) 500) ((memql --cl-var-- (quote ...)) 501) ((memql --cl-var-- (quote ...)) 502) ((memql --cl-var-- (quote ...)) 503) ((memql --cl-var-- (quote ...)) 504) ((memql --cl-var-- (quote ...)) 505) ((memql --cl-var-- (quote ...)) 506) ((memql --cl-var-- (quote .
..)) 507) ((eql --cl-var-- (quote 8388704)) 508) ((eql --cl-var-- (quote 8388734)) 509) ((eql --cl-var-- (quote 8388719)) 510) ((memql --cl-var-- (quote ...)) 511) ((memql --cl-var-- (quote ...)) 512) ((eql --cl-var-- (quote 8388721)) 513) ((eql --cl-var-- (quote 8388727)) 514) ((memql --cl-var-- (quote ...)) 515) ((memql --cl-var-- (quote ...)) 516) ((eql --cl-var-- (quote 8388715)) 517) ((memql --cl-var-- (quote ...)) 518) ((memql --cl-var-- (quote ...)) 519) ((memql --cl-var-- (quote ...)) 520) ((memql --cl-var-- (quote ...)) 521) ((eql --cl-var-- (quote 109)) 522) ((eql --cl-var-- (quote 77)) 523) ((eql --cl-var-- (quote 46)) 1000) ((eql --cl-var-- (quote 119)) 1001) ((eql --cl-var-- (quote 103)) 1002) ((eql --cl-var-- (quote 116)) 1003) ((eql --cl-var-- (quote 121)) 1004) ((eql --cl
-var-- (quote 89)) 1005))))) (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time ...))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (rea
d-string "Month and year: " nil nil ...) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)
) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done."))))
abo-abo()
(cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time (current-time)))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month an
d year: " nil nil (format-time-string "%B %Y" ...)) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom
-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done.")))
(let* ((span (quote month)) start-day year (month (let ((--cl-var-- (read-event))) (cond ((memql --cl-var-- (quote ...)) 1) ((memql --cl-var-- (quote ...)) 2) ((memql --cl-var-- (quote ...)) 3) ((memql --cl-var-- (quote ...)) 4) ((memql --cl-var-- (quote ...)) 5) ((memql --cl-var-- (quote ...)) 6) ((memql --cl-var-- (quote ...)) 7) ((memql --cl-var-- (quote ...)) 8) ((memql --cl-var-- (quote ...)) 9) ((memql --cl-var-- (quote ...)) 10) ((memql --cl-var-- (quote ...)) 11) ((memql --cl-var-- (quote ...)) 12) ((memql --cl-var-- (quote ...)) 500) ((memql --cl-var-- (quote ...)) 501) ((memql --cl-var-- (quote ...)) 502) ((memql --cl-var-- (quote ...)) 503) ((memql --cl-var-- (quote ...)) 504) ((memql --cl-var-- (quote ...)) 505) ((memql --cl-var-- (quote ...)) 506) ((memql --cl-var-- (quote .
..)) 507) ((eql --cl-var-- (quote 8388704)) 508) ((eql --cl-var-- (quote 8388734)) 509) ((eql --cl-var-- (quote 8388719)) 510) ((memql --cl-var-- (quote ...)) 511) ((memql --cl-var-- (quote ...)) 512) ((eql --cl-var-- (quote 8388721)) 513) ((eql --cl-var-- (quote 8388727)) 514) ((memql --cl-var-- (quote ...)) 515) ((memql --cl-var-- (quote ...)) 516) ((eql --cl-var-- (quote 8388715)) 517) ((memql --cl-var-- (quote ...)) 518) ((memql --cl-var-- (quote ...)) 519) ((memql --cl-var-- (quote ...)) 520) ((memql --cl-var-- (quote ...)) 521) ((eql --cl-var-- (quote 109)) 522) ((eql --cl-var-- (quote 77)) 523) ((eql --cl-var-- (quote 46)) 1000) ((eql --cl-var-- (quote 119)) 1001) ((eql --cl-var-- (quote 103)) 1002) ((eql --cl-var-- (quote 116)) 1003) ((eql --cl-var-- (quote 121)) 1004) ((eql --cl
-var-- (quote 89)) 1005))))) (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time ...))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (rea
d-string "Month and year: " nil nil ...) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)
) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done."))))
abo-abo()
(cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time (current-time)))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month an
d year: " nil nil (format-time-string "%B %Y" ...)) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom
-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done.")))
(let* ((span (quote month)) start-day year (month (let ((--cl-var-- (read-event))) (cond ((memql --cl-var-- (quote ...)) 1) ((memql --cl-var-- (quote ...)) 2) ((memql --cl-var-- (quote ...)) 3) ((memql --cl-var-- (quote ...)) 4) ((memql --cl-var-- (quote ...)) 5) ((memql --cl-var-- (quote ...)) 6) ((memql --cl-var-- (quote ...)) 7) ((memql --cl-var-- (quote ...)) 8) ((memql --cl-var-- (quote ...)) 9) ((memql --cl-var-- (quote ...)) 10) ((memql --cl-var-- (quote ...)) 11) ((memql --cl-var-- (quote ...)) 12) ((memql --cl-var-- (quote ...)) 500) ((memql --cl-var-- (quote ...)) 501) ((memql --cl-var-- (quote ...)) 502) ((memql --cl-var-- (quote ...)) 503) ((memql --cl-var-- (quote ...)) 504) ((memql --cl-var-- (quote ...)) 505) ((memql --cl-var-- (quote ...)) 506) ((memql --cl-var-- (quote .
..)) 507) ((eql --cl-var-- (quote 8388704)) 508) ((eql --cl-var-- (quote 8388734)) 509) ((eql --cl-var-- (quote 8388719)) 510) ((memql --cl-var-- (quote ...)) 511) ((memql --cl-var-- (quote ...)) 512) ((eql --cl-var-- (quote 8388721)) 513) ((eql --cl-var-- (quote 8388727)) 514) ((memql --cl-var-- (quote ...)) 515) ((memql --cl-var-- (quote ...)) 516) ((eql --cl-var-- (quote 8388715)) 517) ((memql --cl-var-- (quote ...)) 518) ((memql --cl-var-- (quote ...)) 519) ((memql --cl-var-- (quote ...)) 520) ((memql --cl-var-- (quote ...)) 521) ((eql --cl-var-- (quote 109)) 522) ((eql --cl-var-- (quote 77)) 523) ((eql --cl-var-- (quote 46)) 1000) ((eql --cl-var-- (quote 119)) 1001) ((eql --cl-var-- (quote 103)) 1002) ((eql --cl-var-- (quote 116)) 1003) ((eql --cl-var-- (quote 121)) 1004) ((eql --cl
-var-- (quote 89)) 1005))))) (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time ...))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (rea
d-string "Month and year: " nil nil ...) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)
) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done."))))
abo-abo()
(cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time (current-time)))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month an
d year: " nil nil (format-time-string "%B %Y" ...)) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom
-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done.")))
(let* ((span (quote month)) start-day year (month (let ((--cl-var-- (read-event))) (cond ((memql --cl-var-- (quote ...)) 1) ((memql --cl-var-- (quote ...)) 2) ((memql --cl-var-- (quote ...)) 3) ((memql --cl-var-- (quote ...)) 4) ((memql --cl-var-- (quote ...)) 5) ((memql --cl-var-- (quote ...)) 6) ((memql --cl-var-- (quote ...)) 7) ((memql --cl-var-- (quote ...)) 8) ((memql --cl-var-- (quote ...)) 9) ((memql --cl-var-- (quote ...)) 10) ((memql --cl-var-- (quote ...)) 11) ((memql --cl-var-- (quote ...)) 12) ((memql --cl-var-- (quote ...)) 500) ((memql --cl-var-- (quote ...)) 501) ((memql --cl-var-- (quote ...)) 502) ((memql --cl-var-- (quote ...)) 503) ((memql --cl-var-- (quote ...)) 504) ((memql --cl-var-- (quote ...)) 505) ((memql --cl-var-- (quote ...)) 506) ((memql --cl-var-- (quote .
..)) 507) ((eql --cl-var-- (quote 8388704)) 508) ((eql --cl-var-- (quote 8388734)) 509) ((eql --cl-var-- (quote 8388719)) 510) ((memql --cl-var-- (quote ...)) 511) ((memql --cl-var-- (quote ...)) 512) ((eql --cl-var-- (quote 8388721)) 513) ((eql --cl-var-- (quote 8388727)) 514) ((memql --cl-var-- (quote ...)) 515) ((memql --cl-var-- (quote ...)) 516) ((eql --cl-var-- (quote 8388715)) 517) ((memql --cl-var-- (quote ...)) 518) ((memql --cl-var-- (quote ...)) 519) ((memql --cl-var-- (quote ...)) 520) ((memql --cl-var-- (quote ...)) 521) ((eql --cl-var-- (quote 109)) 522) ((eql --cl-var-- (quote 77)) 523) ((eql --cl-var-- (quote 46)) 1000) ((eql --cl-var-- (quote 119)) 1001) ((eql --cl-var-- (quote 103)) 1002) ((eql --cl-var-- (quote 116)) 1003) ((eql --cl-var-- (quote 121)) 1004) ((eql --cl
-var-- (quote 89)) 1005))))) (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time ...))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (rea
d-string "Month and year: " nil nil ...) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)
) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done."))))
abo-abo()
(cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time (current-time)))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month an
d year: " nil nil (format-time-string "%B %Y" ...)) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom
-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done.")))
(let* ((span (quote month)) start-day year (month (let ((--cl-var-- (read-event))) (cond ((memql --cl-var-- (quote ...)) 1) ((memql --cl-var-- (quote ...)) 2) ((memql --cl-var-- (quote ...)) 3) ((memql --cl-var-- (quote ...)) 4) ((memql --cl-var-- (quote ...)) 5) ((memql --cl-var-- (quote ...)) 6) ((memql --cl-var-- (quote ...)) 7) ((memql --cl-var-- (quote ...)) 8) ((memql --cl-var-- (quote ...)) 9) ((memql --cl-var-- (quote ...)) 10) ((memql --cl-var-- (quote ...)) 11) ((memql --cl-var-- (quote ...)) 12) ((memql --cl-var-- (quote ...)) 500) ((memql --cl-var-- (quote ...)) 501) ((memql --cl-var-- (quote ...)) 502) ((memql --cl-var-- (quote ...)) 503) ((memql --cl-var-- (quote ...)) 504) ((memql --cl-var-- (quote ...)) 505) ((memql --cl-var-- (quote ...)) 506) ((memql --cl-var-- (quote .
..)) 507) ((eql --cl-var-- (quote 8388704)) 508) ((eql --cl-var-- (quote 8388734)) 509) ((eql --cl-var-- (quote 8388719)) 510) ((memql --cl-var-- (quote ...)) 511) ((memql --cl-var-- (quote ...)) 512) ((eql --cl-var-- (quote 8388721)) 513) ((eql --cl-var-- (quote 8388727)) 514) ((memql --cl-var-- (quote ...)) 515) ((memql --cl-var-- (quote ...)) 516) ((eql --cl-var-- (quote 8388715)) 517) ((memql --cl-var-- (quote ...)) 518) ((memql --cl-var-- (quote ...)) 519) ((memql --cl-var-- (quote ...)) 520) ((memql --cl-var-- (quote ...)) 521) ((eql --cl-var-- (quote 109)) 522) ((eql --cl-var-- (quote 77)) 523) ((eql --cl-var-- (quote 46)) 1000) ((eql --cl-var-- (quote 119)) 1001) ((eql --cl-var-- (quote 103)) 1002) ((eql --cl-var-- (quote 116)) 1003) ((eql --cl-var-- (quote 121)) 1004) ((eql --cl
-var-- (quote 89)) 1005))))) (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time ...))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (rea
d-string "Month and year: " nil nil ...) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)
) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done."))))
abo-abo()
(cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time (current-time)))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month an
d year: " nil nil (format-time-string "%B %Y" ...)) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom
-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done.")))
(let* ((span (quote month)) start-day year (month (let ((--cl-var-- (read-event))) (cond ((memql --cl-var-- (quote ...)) 1) ((memql --cl-var-- (quote ...)) 2) ((memql --cl-var-- (quote ...)) 3) ((memql --cl-var-- (quote ...)) 4) ((memql --cl-var-- (quote ...)) 5) ((memql --cl-var-- (quote ...)) 6) ((memql --cl-var-- (quote ...)) 7) ((memql --cl-var-- (quote ...)) 8) ((memql --cl-var-- (quote ...)) 9) ((memql --cl-var-- (quote ...)) 10) ((memql --cl-var-- (quote ...)) 11) ((memql --cl-var-- (quote ...)) 12) ((memql --cl-var-- (quote ...)) 500) ((memql --cl-var-- (quote ...)) 501) ((memql --cl-var-- (quote ...)) 502) ((memql --cl-var-- (quote ...)) 503) ((memql --cl-var-- (quote ...)) 504) ((memql --cl-var-- (quote ...)) 505) ((memql --cl-var-- (quote ...)) 506) ((memql --cl-var-- (quote .
..)) 507) ((eql --cl-var-- (quote 8388704)) 508) ((eql --cl-var-- (quote 8388734)) 509) ((eql --cl-var-- (quote 8388719)) 510) ((memql --cl-var-- (quote ...)) 511) ((memql --cl-var-- (quote ...)) 512) ((eql --cl-var-- (quote 8388721)) 513) ((eql --cl-var-- (quote 8388727)) 514) ((memql --cl-var-- (quote ...)) 515) ((memql --cl-var-- (quote ...)) 516) ((eql --cl-var-- (quote 8388715)) 517) ((memql --cl-var-- (quote ...)) 518) ((memql --cl-var-- (quote ...)) 519) ((memql --cl-var-- (quote ...)) 520) ((memql --cl-var-- (quote ...)) 521) ((eql --cl-var-- (quote 109)) 522) ((eql --cl-var-- (quote 77)) 523) ((eql --cl-var-- (quote 46)) 1000) ((eql --cl-var-- (quote 119)) 1001) ((eql --cl-var-- (quote 103)) 1002) ((eql --cl-var-- (quote 116)) 1003) ((eql --cl-var-- (quote 121)) 1004) ((eql --cl
-var-- (quote 89)) 1005))))) (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time ...))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (rea
d-string "Month and year: " nil nil ...) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)
) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done."))))
abo-abo()
(cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time (current-time)))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month an
d year: " nil nil (format-time-string "%B %Y" ...)) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom
-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done.")))
(let* ((span (quote month)) start-day year (month (let ((--cl-var-- (read-event))) (cond ((memql --cl-var-- (quote ...)) 1) ((memql --cl-var-- (quote ...)) 2) ((memql --cl-var-- (quote ...)) 3) ((memql --cl-var-- (quote ...)) 4) ((memql --cl-var-- (quote ...)) 5) ((memql --cl-var-- (quote ...)) 6) ((memql --cl-var-- (quote ...)) 7) ((memql --cl-var-- (quote ...)) 8) ((memql --cl-var-- (quote ...)) 9) ((memql --cl-var-- (quote ...)) 10) ((memql --cl-var-- (quote ...)) 11) ((memql --cl-var-- (quote ...)) 12) ((memql --cl-var-- (quote ...)) 500) ((memql --cl-var-- (quote ...)) 501) ((memql --cl-var-- (quote ...)) 502) ((memql --cl-var-- (quote ...)) 503) ((memql --cl-var-- (quote ...)) 504) ((memql --cl-var-- (quote ...)) 505) ((memql --cl-var-- (quote ...)) 506) ((memql --cl-var-- (quote .
..)) 507) ((eql --cl-var-- (quote 8388704)) 508) ((eql --cl-var-- (quote 8388734)) 509) ((eql --cl-var-- (quote 8388719)) 510) ((memql --cl-var-- (quote ...)) 511) ((memql --cl-var-- (quote ...)) 512) ((eql --cl-var-- (quote 8388721)) 513) ((eql --cl-var-- (quote 8388727)) 514) ((memql --cl-var-- (quote ...)) 515) ((memql --cl-var-- (quote ...)) 516) ((eql --cl-var-- (quote 8388715)) 517) ((memql --cl-var-- (quote ...)) 518) ((memql --cl-var-- (quote ...)) 519) ((memql --cl-var-- (quote ...)) 520) ((memql --cl-var-- (quote ...)) 521) ((eql --cl-var-- (quote 109)) 522) ((eql --cl-var-- (quote 77)) 523) ((eql --cl-var-- (quote 46)) 1000) ((eql --cl-var-- (quote 119)) 1001) ((eql --cl-var-- (quote 103)) 1002) ((eql --cl-var-- (quote 116)) 1003) ((eql --cl-var-- (quote 121)) 1004) ((eql --cl
-var-- (quote 89)) 1005))))) (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time ...))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (rea
d-string "Month and year: " nil nil ...) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)
) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done."))))
abo-abo()
(cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time (current-time)))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month an
d year: " nil nil (format-time-string "%B %Y" ...)) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom
-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done.")))
(let* ((span (quote month)) start-day year (month (let ((--cl-var-- (read-event))) (cond ((memql --cl-var-- (quote ...)) 1) ((memql --cl-var-- (quote ...)) 2) ((memql --cl-var-- (quote ...)) 3) ((memql --cl-var-- (quote ...)) 4) ((memql --cl-var-- (quote ...)) 5) ((memql --cl-var-- (quote ...)) 6) ((memql --cl-var-- (quote ...)) 7) ((memql --cl-var-- (quote ...)) 8) ((memql --cl-var-- (quote ...)) 9) ((memql --cl-var-- (quote ...)) 10) ((memql --cl-var-- (quote ...)) 11) ((memql --cl-var-- (quote ...)) 12) ((memql --cl-var-- (quote ...)) 500) ((memql --cl-var-- (quote ...)) 501) ((memql --cl-var-- (quote ...)) 502) ((memql --cl-var-- (quote ...)) 503) ((memql --cl-var-- (quote ...)) 504) ((memql --cl-var-- (quote ...)) 505) ((memql --cl-var-- (quote ...)) 506) ((memql --cl-var-- (quote .
..)) 507) ((eql --cl-var-- (quote 8388704)) 508) ((eql --cl-var-- (quote 8388734)) 509) ((eql --cl-var-- (quote 8388719)) 510) ((memql --cl-var-- (quote ...)) 511) ((memql --cl-var-- (quote ...)) 512) ((eql --cl-var-- (quote 8388721)) 513) ((eql --cl-var-- (quote 8388727)) 514) ((memql --cl-var-- (quote ...)) 515) ((memql --cl-var-- (quote ...)) 516) ((eql --cl-var-- (quote 8388715)) 517) ((memql --cl-var-- (quote ...)) 518) ((memql --cl-var-- (quote ...)) 519) ((memql --cl-var-- (quote ...)) 520) ((memql --cl-var-- (quote ...)) 521) ((eql --cl-var-- (quote 109)) 522) ((eql --cl-var-- (quote 77)) 523) ((eql --cl-var-- (quote 46)) 1000) ((eql --cl-var-- (quote 119)) 1001) ((eql --cl-var-- (quote 103)) 1002) ((eql --cl-var-- (quote 116)) 1003) ((eql --cl-var-- (quote 121)) 1004) ((eql --cl
-var-- (quote 89)) 1005))))) (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time ...))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (rea
d-string "Month and year: " nil nil ...) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)
) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done."))))
abo-abo()
(cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time (current-time)))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month an
d year: " nil nil (format-time-string "%B %Y" ...)) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom
-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done.")))
(let* ((span (quote month)) start-day year (month (let ((--cl-var-- (read-event))) (cond ((memql --cl-var-- (quote ...)) 1) ((memql --cl-var-- (quote ...)) 2) ((memql --cl-var-- (quote ...)) 3) ((memql --cl-var-- (quote ...)) 4) ((memql --cl-var-- (quote ...)) 5) ((memql --cl-var-- (quote ...)) 6) ((memql --cl-var-- (quote ...)) 7) ((memql --cl-var-- (quote ...)) 8) ((memql --cl-var-- (quote ...)) 9) ((memql --cl-var-- (quote ...)) 10) ((memql --cl-var-- (quote ...)) 11) ((memql --cl-var-- (quote ...)) 12) ((memql --cl-var-- (quote ...)) 500) ((memql --cl-var-- (quote ...)) 501) ((memql --cl-var-- (quote ...)) 502) ((memql --cl-var-- (quote ...)) 503) ((memql --cl-var-- (quote ...)) 504) ((memql --cl-var-- (quote ...)) 505) ((memql --cl-var-- (quote ...)) 506) ((memql --cl-var-- (quote .
..)) 507) ((eql --cl-var-- (quote 8388704)) 508) ((eql --cl-var-- (quote 8388734)) 509) ((eql --cl-var-- (quote 8388719)) 510) ((memql --cl-var-- (quote ...)) 511) ((memql --cl-var-- (quote ...)) 512) ((eql --cl-var-- (quote 8388721)) 513) ((eql --cl-var-- (quote 8388727)) 514) ((memql --cl-var-- (quote ...)) 515) ((memql --cl-var-- (quote ...)) 516) ((eql --cl-var-- (quote 8388715)) 517) ((memql --cl-var-- (quote ...)) 518) ((memql --cl-var-- (quote ...)) 519) ((memql --cl-var-- (quote ...)) 520) ((memql --cl-var-- (quote ...)) 521) ((eql --cl-var-- (quote 109)) 522) ((eql --cl-var-- (quote 77)) 523) ((eql --cl-var-- (quote 46)) 1000) ((eql --cl-var-- (quote 119)) 1001) ((eql --cl-var-- (quote 103)) 1002) ((eql --cl-var-- (quote 116)) 1003) ((eql --cl-var-- (quote 121)) 1004) ((eql --cl
-var-- (quote 89)) 1005))))) (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time ...))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (rea
d-string "Month and year: " nil nil ...) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)
) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done."))))
abo-abo()
(cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time (current-time)))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month an
d year: " nil nil (format-time-string "%B %Y" ...)) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom
-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done.")))
(let* ((span (quote month)) start-day year (month (let ((--cl-var-- (read-event))) (cond ((memql --cl-var-- (quote ...)) 1) ((memql --cl-var-- (quote ...)) 2) ((memql --cl-var-- (quote ...)) 3) ((memql --cl-var-- (quote ...)) 4) ((memql --cl-var-- (quote ...)) 5) ((memql --cl-var-- (quote ...)) 6) ((memql --cl-var-- (quote ...)) 7) ((memql --cl-var-- (quote ...)) 8) ((memql --cl-var-- (quote ...)) 9) ((memql --cl-var-- (quote ...)) 10) ((memql --cl-var-- (quote ...)) 11) ((memql --cl-var-- (quote ...)) 12) ((memql --cl-var-- (quote ...)) 500) ((memql --cl-var-- (quote ...)) 501) ((memql --cl-var-- (quote ...)) 502) ((memql --cl-var-- (quote ...)) 503) ((memql --cl-var-- (quote ...)) 504) ((memql --cl-var-- (quote ...)) 505) ((memql --cl-var-- (quote ...)) 506) ((memql --cl-var-- (quote .
..)) 507) ((eql --cl-var-- (quote 8388704)) 508) ((eql --cl-var-- (quote 8388734)) 509) ((eql --cl-var-- (quote 8388719)) 510) ((memql --cl-var-- (quote ...)) 511) ((memql --cl-var-- (quote ...)) 512) ((eql --cl-var-- (quote 8388721)) 513) ((eql --cl-var-- (quote 8388727)) 514) ((memql --cl-var-- (quote ...)) 515) ((memql --cl-var-- (quote ...)) 516) ((eql --cl-var-- (quote 8388715)) 517) ((memql --cl-var-- (quote ...)) 518) ((memql --cl-var-- (quote ...)) 519) ((memql --cl-var-- (quote ...)) 520) ((memql --cl-var-- (quote ...)) 521) ((eql --cl-var-- (quote 109)) 522) ((eql --cl-var-- (quote 77)) 523) ((eql --cl-var-- (quote 46)) 1000) ((eql --cl-var-- (quote 119)) 1001) ((eql --cl-var-- (quote 103)) 1002) ((eql --cl-var-- (quote 116)) 1003) ((eql --cl-var-- (quote 121)) 1004) ((eql --cl
-var-- (quote 89)) 1005))))) (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time ...))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (rea
d-string "Month and year: " nil nil ...) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)
) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done."))))
abo-abo()
(cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time (current-time)))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month an
d year: " nil nil (format-time-string "%B %Y" ...)) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom
-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done.")))
(let* ((span (quote month)) start-day year (month (let ((--cl-var-- (read-event))) (cond ((memql --cl-var-- (quote ...)) 1) ((memql --cl-var-- (quote ...)) 2) ((memql --cl-var-- (quote ...)) 3) ((memql --cl-var-- (quote ...)) 4) ((memql --cl-var-- (quote ...)) 5) ((memql --cl-var-- (quote ...)) 6) ((memql --cl-var-- (quote ...)) 7) ((memql --cl-var-- (quote ...)) 8) ((memql --cl-var-- (quote ...)) 9) ((memql --cl-var-- (quote ...)) 10) ((memql --cl-var-- (quote ...)) 11) ((memql --cl-var-- (quote ...)) 12) ((memql --cl-var-- (quote ...)) 500) ((memql --cl-var-- (quote ...)) 501) ((memql --cl-var-- (quote ...)) 502) ((memql --cl-var-- (quote ...)) 503) ((memql --cl-var-- (quote ...)) 504) ((memql --cl-var-- (quote ...)) 505) ((memql --cl-var-- (quote ...)) 506) ((memql --cl-var-- (quote .
..)) 507) ((eql --cl-var-- (quote 8388704)) 508) ((eql --cl-var-- (quote 8388734)) 509) ((eql --cl-var-- (quote 8388719)) 510) ((memql --cl-var-- (quote ...)) 511) ((memql --cl-var-- (quote ...)) 512) ((eql --cl-var-- (quote 8388721)) 513) ((eql --cl-var-- (quote 8388727)) 514) ((memql --cl-var-- (quote ...)) 515) ((memql --cl-var-- (quote ...)) 516) ((eql --cl-var-- (quote 8388715)) 517) ((memql --cl-var-- (quote ...)) 518) ((memql --cl-var-- (quote ...)) 519) ((memql --cl-var-- (quote ...)) 520) ((memql --cl-var-- (quote ...)) 521) ((eql --cl-var-- (quote 109)) 522) ((eql --cl-var-- (quote 77)) 523) ((eql --cl-var-- (quote 46)) 1000) ((eql --cl-var-- (quote 119)) 1001) ((eql --cl-var-- (quote 103)) 1002) ((eql --cl-var-- (quote 116)) 1003) ((eql --cl-var-- (quote 121)) 1004) ((eql --cl
-var-- (quote 89)) 1005))))) (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time ...))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (rea
d-string "Month and year: " nil nil ...) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)
) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done."))))
abo-abo()
(cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time (current-time)))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month an
d year: " nil nil (format-time-string "%B %Y" ...)) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom
-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done.")))
(let* ((span (quote month)) start-day year (month (let ((--cl-var-- (read-event))) (cond ((memql --cl-var-- (quote ...)) 1) ((memql --cl-var-- (quote ...)) 2) ((memql --cl-var-- (quote ...)) 3) ((memql --cl-var-- (quote ...)) 4) ((memql --cl-var-- (quote ...)) 5) ((memql --cl-var-- (quote ...)) 6) ((memql --cl-var-- (quote ...)) 7) ((memql --cl-var-- (quote ...)) 8) ((memql --cl-var-- (quote ...)) 9) ((memql --cl-var-- (quote ...)) 10) ((memql --cl-var-- (quote ...)) 11) ((memql --cl-var-- (quote ...)) 12) ((memql --cl-var-- (quote ...)) 500) ((memql --cl-var-- (quote ...)) 501) ((memql --cl-var-- (quote ...)) 502) ((memql --cl-var-- (quote ...)) 503) ((memql --cl-var-- (quote ...)) 504) ((memql --cl-var-- (quote ...)) 505) ((memql --cl-var-- (quote ...)) 506) ((memql --cl-var-- (quote .
..)) 507) ((eql --cl-var-- (quote 8388704)) 508) ((eql --cl-var-- (quote 8388734)) 509) ((eql --cl-var-- (quote 8388719)) 510) ((memql --cl-var-- (quote ...)) 511) ((memql --cl-var-- (quote ...)) 512) ((eql --cl-var-- (quote 8388721)) 513) ((eql --cl-var-- (quote 8388727)) 514) ((memql --cl-var-- (quote ...)) 515) ((memql --cl-var-- (quote ...)) 516) ((eql --cl-var-- (quote 8388715)) 517) ((memql --cl-var-- (quote ...)) 518) ((memql --cl-var-- (quote ...)) 519) ((memql --cl-var-- (quote ...)) 520) ((memql --cl-var-- (quote ...)) 521) ((eql --cl-var-- (quote 109)) 522) ((eql --cl-var-- (quote 77)) 523) ((eql --cl-var-- (quote 46)) 1000) ((eql --cl-var-- (quote 119)) 1001) ((eql --cl-var-- (quote 103)) 1002) ((eql --cl-var-- (quote 116)) 1003) ((eql --cl-var-- (quote 121)) 1004) ((eql --cl
-var-- (quote 89)) 1005))))) (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time ...))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (rea
d-string "Month and year: " nil nil ...) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)
) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done."))))
abo-abo()
(cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time (current-time)))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month an
d year: " nil nil (format-time-string "%B %Y" ...)) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom
-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done.")))
(let* ((span (quote month)) start-day year (month (let ((--cl-var-- (read-event))) (cond ((memql --cl-var-- (quote ...)) 1) ((memql --cl-var-- (quote ...)) 2) ((memql --cl-var-- (quote ...)) 3) ((memql --cl-var-- (quote ...)) 4) ((memql --cl-var-- (quote ...)) 5) ((memql --cl-var-- (quote ...)) 6) ((memql --cl-var-- (quote ...)) 7) ((memql --cl-var-- (quote ...)) 8) ((memql --cl-var-- (quote ...)) 9) ((memql --cl-var-- (quote ...)) 10) ((memql --cl-var-- (quote ...)) 11) ((memql --cl-var-- (quote ...)) 12) ((memql --cl-var-- (quote ...)) 500) ((memql --cl-var-- (quote ...)) 501) ((memql --cl-var-- (quote ...)) 502) ((memql --cl-var-- (quote ...)) 503) ((memql --cl-var-- (quote ...)) 504) ((memql --cl-var-- (quote ...)) 505) ((memql --cl-var-- (quote ...)) 506) ((memql --cl-var-- (quote .
..)) 507) ((eql --cl-var-- (quote 8388704)) 508) ((eql --cl-var-- (quote 8388734)) 509) ((eql --cl-var-- (quote 8388719)) 510) ((memql --cl-var-- (quote ...)) 511) ((memql --cl-var-- (quote ...)) 512) ((eql --cl-var-- (quote 8388721)) 513) ((eql --cl-var-- (quote 8388727)) 514) ((memql --cl-var-- (quote ...)) 515) ((memql --cl-var-- (quote ...)) 516) ((eql --cl-var-- (quote 8388715)) 517) ((memql --cl-var-- (quote ...)) 518) ((memql --cl-var-- (quote ...)) 519) ((memql --cl-var-- (quote ...)) 520) ((memql --cl-var-- (quote ...)) 521) ((eql --cl-var-- (quote 109)) 522) ((eql --cl-var-- (quote 77)) 523) ((eql --cl-var-- (quote 46)) 1000) ((eql --cl-var-- (quote 119)) 1001) ((eql --cl-var-- (quote 103)) 1002) ((eql --cl-var-- (quote 116)) 1003) ((eql --cl-var-- (quote 121)) 1004) ((eql --cl
-var-- (quote 89)) 1005))))) (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time ...))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (rea
d-string "Month and year: " nil nil ...) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)
) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done."))))
abo-abo()
(cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time (current-time)))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month an
d year: " nil nil (format-time-string "%B %Y" ...)) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom
-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done.")))
(let* ((span (quote month)) start-day year (month (let ((--cl-var-- (read-event))) (cond ((memql --cl-var-- (quote ...)) 1) ((memql --cl-var-- (quote ...)) 2) ((memql --cl-var-- (quote ...)) 3) ((memql --cl-var-- (quote ...)) 4) ((memql --cl-var-- (quote ...)) 5) ((memql --cl-var-- (quote ...)) 6) ((memql --cl-var-- (quote ...)) 7) ((memql --cl-var-- (quote ...)) 8) ((memql --cl-var-- (quote ...)) 9) ((memql --cl-var-- (quote ...)) 10) ((memql --cl-var-- (quote ...)) 11) ((memql --cl-var-- (quote ...)) 12) ((memql --cl-var-- (quote ...)) 500) ((memql --cl-var-- (quote ...)) 501) ((memql --cl-var-- (quote ...)) 502) ((memql --cl-var-- (quote ...)) 503) ((memql --cl-var-- (quote ...)) 504) ((memql --cl-var-- (quote ...)) 505) ((memql --cl-var-- (quote ...)) 506) ((memql --cl-var-- (quote .
..)) 507) ((eql --cl-var-- (quote 8388704)) 508) ((eql --cl-var-- (quote 8388734)) 509) ((eql --cl-var-- (quote 8388719)) 510) ((memql --cl-var-- (quote ...)) 511) ((memql --cl-var-- (quote ...)) 512) ((eql --cl-var-- (quote 8388721)) 513) ((eql --cl-var-- (quote 8388727)) 514) ((memql --cl-var-- (quote ...)) 515) ((memql --cl-var-- (quote ...)) 516) ((eql --cl-var-- (quote 8388715)) 517) ((memql --cl-var-- (quote ...)) 518) ((memql --cl-var-- (quote ...)) 519) ((memql --cl-var-- (quote ...)) 520) ((memql --cl-var-- (quote ...)) 521) ((eql --cl-var-- (quote 109)) 522) ((eql --cl-var-- (quote 77)) 523) ((eql --cl-var-- (quote 46)) 1000) ((eql --cl-var-- (quote 119)) 1001) ((eql --cl-var-- (quote 103)) 1002) ((eql --cl-var-- (quote 116)) 1003) ((eql --cl-var-- (quote 121)) 1004) ((eql --cl
-var-- (quote 89)) 1005))))) (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time ...))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (rea
d-string "Month and year: " nil nil ...) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)
) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done."))))
abo-abo()
(cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time (current-time)))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month an
d year: " nil nil (format-time-string "%B %Y" ...)) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom
-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done.")))
(let* ((span (quote month)) start-day year (month (let ((--cl-var-- (read-event))) (cond ((memql --cl-var-- (quote ...)) 1) ((memql --cl-var-- (quote ...)) 2) ((memql --cl-var-- (quote ...)) 3) ((memql --cl-var-- (quote ...)) 4) ((memql --cl-var-- (quote ...)) 5) ((memql --cl-var-- (quote ...)) 6) ((memql --cl-var-- (quote ...)) 7) ((memql --cl-var-- (quote ...)) 8) ((memql --cl-var-- (quote ...)) 9) ((memql --cl-var-- (quote ...)) 10) ((memql --cl-var-- (quote ...)) 11) ((memql --cl-var-- (quote ...)) 12) ((memql --cl-var-- (quote ...)) 500) ((memql --cl-var-- (quote ...)) 501) ((memql --cl-var-- (quote ...)) 502) ((memql --cl-var-- (quote ...)) 503) ((memql --cl-var-- (quote ...)) 504) ((memql --cl-var-- (quote ...)) 505) ((memql --cl-var-- (quote ...)) 506) ((memql --cl-var-- (quote .
..)) 507) ((eql --cl-var-- (quote 8388704)) 508) ((eql --cl-var-- (quote 8388734)) 509) ((eql --cl-var-- (quote 8388719)) 510) ((memql --cl-var-- (quote ...)) 511) ((memql --cl-var-- (quote ...)) 512) ((eql --cl-var-- (quote 8388721)) 513) ((eql --cl-var-- (quote 8388727)) 514) ((memql --cl-var-- (quote ...)) 515) ((memql --cl-var-- (quote ...)) 516) ((eql --cl-var-- (quote 8388715)) 517) ((memql --cl-var-- (quote ...)) 518) ((memql --cl-var-- (quote ...)) 519) ((memql --cl-var-- (quote ...)) 520) ((memql --cl-var-- (quote ...)) 521) ((eql --cl-var-- (quote 109)) 522) ((eql --cl-var-- (quote 77)) 523) ((eql --cl-var-- (quote 46)) 1000) ((eql --cl-var-- (quote 119)) 1001) ((eql --cl-var-- (quote 103)) 1002) ((eql --cl-var-- (quote 116)) 1003) ((eql --cl-var-- (quote 121)) 1004) ((eql --cl
-var-- (quote 89)) 1005))))) (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time ...))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (rea
d-string "Month and year: " nil nil ...) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)
) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done."))))
abo-abo()
(cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time (current-time)))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month an
d year: " nil nil (format-time-string "%B %Y" ...)) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom
-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done.")))
(let* ((span (quote month)) start-day year (month (let ((--cl-var-- (read-event))) (cond ((memql --cl-var-- (quote ...)) 1) ((memql --cl-var-- (quote ...)) 2) ((memql --cl-var-- (quote ...)) 3) ((memql --cl-var-- (quote ...)) 4) ((memql --cl-var-- (quote ...)) 5) ((memql --cl-var-- (quote ...)) 6) ((memql --cl-var-- (quote ...)) 7) ((memql --cl-var-- (quote ...)) 8) ((memql --cl-var-- (quote ...)) 9) ((memql --cl-var-- (quote ...)) 10) ((memql --cl-var-- (quote ...)) 11) ((memql --cl-var-- (quote ...)) 12) ((memql --cl-var-- (quote ...)) 500) ((memql --cl-var-- (quote ...)) 501) ((memql --cl-var-- (quote ...)) 502) ((memql --cl-var-- (quote ...)) 503) ((memql --cl-var-- (quote ...)) 504) ((memql --cl-var-- (quote ...)) 505) ((memql --cl-var-- (quote ...)) 506) ((memql --cl-var-- (quote .
..)) 507) ((eql --cl-var-- (quote 8388704)) 508) ((eql --cl-var-- (quote 8388734)) 509) ((eql --cl-var-- (quote 8388719)) 510) ((memql --cl-var-- (quote ...)) 511) ((memql --cl-var-- (quote ...)) 512) ((eql --cl-var-- (quote 8388721)) 513) ((eql --cl-var-- (quote 8388727)) 514) ((memql --cl-var-- (quote ...)) 515) ((memql --cl-var-- (quote ...)) 516) ((eql --cl-var-- (quote 8388715)) 517) ((memql --cl-var-- (quote ...)) 518) ((memql --cl-var-- (quote ...)) 519) ((memql --cl-var-- (quote ...)) 520) ((memql --cl-var-- (quote ...)) 521) ((eql --cl-var-- (quote 109)) 522) ((eql --cl-var-- (quote 77)) 523) ((eql --cl-var-- (quote 46)) 1000) ((eql --cl-var-- (quote 119)) 1001) ((eql --cl-var-- (quote 103)) 1002) ((eql --cl-var-- (quote 116)) 1003) ((eql --cl-var-- (quote 121)) 1004) ((eql --cl
-var-- (quote 89)) 1005))))) (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time ...))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (rea
d-string "Month and year: " nil nil ...) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)
) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done."))))
abo-abo()
(cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time (current-time)))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month an
d year: " nil nil (format-time-string "%B %Y" ...)) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom
-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done.")))
(let* ((span (quote month)) start-day year (month (let ((--cl-var-- (read-event))) (cond ((memql --cl-var-- (quote ...)) 1) ((memql --cl-var-- (quote ...)) 2) ((memql --cl-var-- (quote ...)) 3) ((memql --cl-var-- (quote ...)) 4) ((memql --cl-var-- (quote ...)) 5) ((memql --cl-var-- (quote ...)) 6) ((memql --cl-var-- (quote ...)) 7) ((memql --cl-var-- (quote ...)) 8) ((memql --cl-var-- (quote ...)) 9) ((memql --cl-var-- (quote ...)) 10) ((memql --cl-var-- (quote ...)) 11) ((memql --cl-var-- (quote ...)) 12) ((memql --cl-var-- (quote ...)) 500) ((memql --cl-var-- (quote ...)) 501) ((memql --cl-var-- (quote ...)) 502) ((memql --cl-var-- (quote ...)) 503) ((memql --cl-var-- (quote ...)) 504) ((memql --cl-var-- (quote ...)) 505) ((memql --cl-var-- (quote ...)) 506) ((memql --cl-var-- (quote .
..)) 507) ((eql --cl-var-- (quote 8388704)) 508) ((eql --cl-var-- (quote 8388734)) 509) ((eql --cl-var-- (quote 8388719)) 510) ((memql --cl-var-- (quote ...)) 511) ((memql --cl-var-- (quote ...)) 512) ((eql --cl-var-- (quote 8388721)) 513) ((eql --cl-var-- (quote 8388727)) 514) ((memql --cl-var-- (quote ...)) 515) ((memql --cl-var-- (quote ...)) 516) ((eql --cl-var-- (quote 8388715)) 517) ((memql --cl-var-- (quote ...)) 518) ((memql --cl-var-- (quote ...)) 519) ((memql --cl-var-- (quote ...)) 520) ((memql --cl-var-- (quote ...)) 521) ((eql --cl-var-- (quote 109)) 522) ((eql --cl-var-- (quote 77)) 523) ((eql --cl-var-- (quote 46)) 1000) ((eql --cl-var-- (quote 119)) 1001) ((eql --cl-var-- (quote 103)) 1002) ((eql --cl-var-- (quote 116)) 1003) ((eql --cl-var-- (quote 121)) 1004) ((eql --cl
-var-- (quote 89)) 1005))))) (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time ...))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (rea
d-string "Month and year: " nil nil ...) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)
) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done."))))
abo-abo()
(cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time (current-time)))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month an
d year: " nil nil (format-time-string "%B %Y" ...)) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom
-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done.")))
(let* ((span (quote month)) start-day year (month (let ((--cl-var-- (read-event))) (cond ((memql --cl-var-- (quote ...)) 1) ((memql --cl-var-- (quote ...)) 2) ((memql --cl-var-- (quote ...)) 3) ((memql --cl-var-- (quote ...)) 4) ((memql --cl-var-- (quote ...)) 5) ((memql --cl-var-- (quote ...)) 6) ((memql --cl-var-- (quote ...)) 7) ((memql --cl-var-- (quote ...)) 8) ((memql --cl-var-- (quote ...)) 9) ((memql --cl-var-- (quote ...)) 10) ((memql --cl-var-- (quote ...)) 11) ((memql --cl-var-- (quote ...)) 12) ((memql --cl-var-- (quote ...)) 500) ((memql --cl-var-- (quote ...)) 501) ((memql --cl-var-- (quote ...)) 502) ((memql --cl-var-- (quote ...)) 503) ((memql --cl-var-- (quote ...)) 504) ((memql --cl-var-- (quote ...)) 505) ((memql --cl-var-- (quote ...)) 506) ((memql --cl-var-- (quote .
..)) 507) ((eql --cl-var-- (quote 8388704)) 508) ((eql --cl-var-- (quote 8388734)) 509) ((eql --cl-var-- (quote 8388719)) 510) ((memql --cl-var-- (quote ...)) 511) ((memql --cl-var-- (quote ...)) 512) ((eql --cl-var-- (quote 8388721)) 513) ((eql --cl-var-- (quote 8388727)) 514) ((memql --cl-var-- (quote ...)) 515) ((memql --cl-var-- (quote ...)) 516) ((eql --cl-var-- (quote 8388715)) 517) ((memql --cl-var-- (quote ...)) 518) ((memql --cl-var-- (quote ...)) 519) ((memql --cl-var-- (quote ...)) 520) ((memql --cl-var-- (quote ...)) 521) ((eql --cl-var-- (quote 109)) 522) ((eql --cl-var-- (quote 77)) 523) ((eql --cl-var-- (quote 46)) 1000) ((eql --cl-var-- (quote 119)) 1001) ((eql --cl-var-- (quote 103)) 1002) ((eql --cl-var-- (quote 116)) 1003) ((eql --cl-var-- (quote 121)) 1004) ((eql --cl
-var-- (quote 89)) 1005))))) (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time ...))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (rea
d-string "Month and year: " nil nil ...) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)
) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done."))))
abo-abo()
(cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time (current-time)))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month an
d year: " nil nil (format-time-string "%B %Y" ...)) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom
-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done.")))
(let* ((span (quote month)) start-day year (month (let ((--cl-var-- (read-event))) (cond ((memql --cl-var-- (quote ...)) 1) ((memql --cl-var-- (quote ...)) 2) ((memql --cl-var-- (quote ...)) 3) ((memql --cl-var-- (quote ...)) 4) ((memql --cl-var-- (quote ...)) 5) ((memql --cl-var-- (quote ...)) 6) ((memql --cl-var-- (quote ...)) 7) ((memql --cl-var-- (quote ...)) 8) ((memql --cl-var-- (quote ...)) 9) ((memql --cl-var-- (quote ...)) 10) ((memql --cl-var-- (quote ...)) 11) ((memql --cl-var-- (quote ...)) 12) ((memql --cl-var-- (quote ...)) 500) ((memql --cl-var-- (quote ...)) 501) ((memql --cl-var-- (quote ...)) 502) ((memql --cl-var-- (quote ...)) 503) ((memql --cl-var-- (quote ...)) 504) ((memql --cl-var-- (quote ...)) 505) ((memql --cl-var-- (quote ...)) 506) ((memql --cl-var-- (quote .
..)) 507) ((eql --cl-var-- (quote 8388704)) 508) ((eql --cl-var-- (quote 8388734)) 509) ((eql --cl-var-- (quote 8388719)) 510) ((memql --cl-var-- (quote ...)) 511) ((memql --cl-var-- (quote ...)) 512) ((eql --cl-var-- (quote 8388721)) 513) ((eql --cl-var-- (quote 8388727)) 514) ((memql --cl-var-- (quote ...)) 515) ((memql --cl-var-- (quote ...)) 516) ((eql --cl-var-- (quote 8388715)) 517) ((memql --cl-var-- (quote ...)) 518) ((memql --cl-var-- (quote ...)) 519) ((memql --cl-var-- (quote ...)) 520) ((memql --cl-var-- (quote ...)) 521) ((eql --cl-var-- (quote 109)) 522) ((eql --cl-var-- (quote 77)) 523) ((eql --cl-var-- (quote 46)) 1000) ((eql --cl-var-- (quote 119)) 1001) ((eql --cl-var-- (quote 103)) 1002) ((eql --cl-var-- (quote 116)) 1003) ((eql --cl-var-- (quote 121)) 1004) ((eql --cl
-var-- (quote 89)) 1005))))) (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time ...))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (rea
d-string "Month and year: " nil nil ...) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)
) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done."))))
abo-abo()
(cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time (current-time)))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month an
d year: " nil nil (format-time-string "%B %Y" ...)) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom
-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done.")))
(let* ((span (quote month)) start-day year (month (let ((--cl-var-- (read-event))) (cond ((memql --cl-var-- (quote ...)) 1) ((memql --cl-var-- (quote ...)) 2) ((memql --cl-var-- (quote ...)) 3) ((memql --cl-var-- (quote ...)) 4) ((memql --cl-var-- (quote ...)) 5) ((memql --cl-var-- (quote ...)) 6) ((memql --cl-var-- (quote ...)) 7) ((memql --cl-var-- (quote ...)) 8) ((memql --cl-var-- (quote ...)) 9) ((memql --cl-var-- (quote ...)) 10) ((memql --cl-var-- (quote ...)) 11) ((memql --cl-var-- (quote ...)) 12) ((memql --cl-var-- (quote ...)) 500) ((memql --cl-var-- (quote ...)) 501) ((memql --cl-var-- (quote ...)) 502) ((memql --cl-var-- (quote ...)) 503) ((memql --cl-var-- (quote ...)) 504) ((memql --cl-var-- (quote ...)) 505) ((memql --cl-var-- (quote ...)) 506) ((memql --cl-var-- (quote .
..)) 507) ((eql --cl-var-- (quote 8388704)) 508) ((eql --cl-var-- (quote 8388734)) 509) ((eql --cl-var-- (quote 8388719)) 510) ((memql --cl-var-- (quote ...)) 511) ((memql --cl-var-- (quote ...)) 512) ((eql --cl-var-- (quote 8388721)) 513) ((eql --cl-var-- (quote 8388727)) 514) ((memql --cl-var-- (quote ...)) 515) ((memql --cl-var-- (quote ...)) 516) ((eql --cl-var-- (quote 8388715)) 517) ((memql --cl-var-- (quote ...)) 518) ((memql --cl-var-- (quote ...)) 519) ((memql --cl-var-- (quote ...)) 520) ((memql --cl-var-- (quote ...)) 521) ((eql --cl-var-- (quote 109)) 522) ((eql --cl-var-- (quote 77)) 523) ((eql --cl-var-- (quote 46)) 1000) ((eql --cl-var-- (quote 119)) 1001) ((eql --cl-var-- (quote 103)) 1002) ((eql --cl-var-- (quote 116)) 1003) ((eql --cl-var-- (quote 121)) 1004) ((eql --cl
-var-- (quote 89)) 1005))))) (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time ...))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (rea
d-string "Month and year: " nil nil ...) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)
) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done."))))
abo-abo()
(cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time (current-time)))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month an
d year: " nil nil (format-time-string "%B %Y" ...)) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom
-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done.")))
(let* ((span (quote month)) start-day year (month (let ((--cl-var-- (read-event))) (cond ((memql --cl-var-- (quote ...)) 1) ((memql --cl-var-- (quote ...)) 2) ((memql --cl-var-- (quote ...)) 3) ((memql --cl-var-- (quote ...)) 4) ((memql --cl-var-- (quote ...)) 5) ((memql --cl-var-- (quote ...)) 6) ((memql --cl-var-- (quote ...)) 7) ((memql --cl-var-- (quote ...)) 8) ((memql --cl-var-- (quote ...)) 9) ((memql --cl-var-- (quote ...)) 10) ((memql --cl-var-- (quote ...)) 11) ((memql --cl-var-- (quote ...)) 12) ((memql --cl-var-- (quote ...)) 500) ((memql --cl-var-- (quote ...)) 501) ((memql --cl-var-- (quote ...)) 502) ((memql --cl-var-- (quote ...)) 503) ((memql --cl-var-- (quote ...)) 504) ((memql --cl-var-- (quote ...)) 505) ((memql --cl-var-- (quote ...)) 506) ((memql --cl-var-- (quote .
..)) 507) ((eql --cl-var-- (quote 8388704)) 508) ((eql --cl-var-- (quote 8388734)) 509) ((eql --cl-var-- (quote 8388719)) 510) ((memql --cl-var-- (quote ...)) 511) ((memql --cl-var-- (quote ...)) 512) ((eql --cl-var-- (quote 8388721)) 513) ((eql --cl-var-- (quote 8388727)) 514) ((memql --cl-var-- (quote ...)) 515) ((memql --cl-var-- (quote ...)) 516) ((eql --cl-var-- (quote 8388715)) 517) ((memql --cl-var-- (quote ...)) 518) ((memql --cl-var-- (quote ...)) 519) ((memql --cl-var-- (quote ...)) 520) ((memql --cl-var-- (quote ...)) 521) ((eql --cl-var-- (quote 109)) 522) ((eql --cl-var-- (quote 77)) 523) ((eql --cl-var-- (quote 46)) 1000) ((eql --cl-var-- (quote 119)) 1001) ((eql --cl-var-- (quote 103)) 1002) ((eql --cl-var-- (quote 116)) 1003) ((eql --cl-var-- (quote 121)) 1004) ((eql --cl
-var-- (quote 89)) 1005))))) (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time ...))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (rea
d-string "Month and year: " nil nil ...) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)
) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done."))))
abo-abo()
(cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time (current-time)))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month an
d year: " nil nil (format-time-string "%B %Y" ...)) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom
-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done.")))
(let* ((span (quote month)) start-day year (month (let ((--cl-var-- (read-event))) (cond ((memql --cl-var-- (quote ...)) 1) ((memql --cl-var-- (quote ...)) 2) ((memql --cl-var-- (quote ...)) 3) ((memql --cl-var-- (quote ...)) 4) ((memql --cl-var-- (quote ...)) 5) ((memql --cl-var-- (quote ...)) 6) ((memql --cl-var-- (quote ...)) 7) ((memql --cl-var-- (quote ...)) 8) ((memql --cl-var-- (quote ...)) 9) ((memql --cl-var-- (quote ...)) 10) ((memql --cl-var-- (quote ...)) 11) ((memql --cl-var-- (quote ...)) 12) ((memql --cl-var-- (quote ...)) 500) ((memql --cl-var-- (quote ...)) 501) ((memql --cl-var-- (quote ...)) 502) ((memql --cl-var-- (quote ...)) 503) ((memql --cl-var-- (quote ...)) 504) ((memql --cl-var-- (quote ...)) 505) ((memql --cl-var-- (quote ...)) 506) ((memql --cl-var-- (quote .
..)) 507) ((eql --cl-var-- (quote 8388704)) 508) ((eql --cl-var-- (quote 8388734)) 509) ((eql --cl-var-- (quote 8388719)) 510) ((memql --cl-var-- (quote ...)) 511) ((memql --cl-var-- (quote ...)) 512) ((eql --cl-var-- (quote 8388721)) 513) ((eql --cl-var-- (quote 8388727)) 514) ((memql --cl-var-- (quote ...)) 515) ((memql --cl-var-- (quote ...)) 516) ((eql --cl-var-- (quote 8388715)) 517) ((memql --cl-var-- (quote ...)) 518) ((memql --cl-var-- (quote ...)) 519) ((memql --cl-var-- (quote ...)) 520) ((memql --cl-var-- (quote ...)) 521) ((eql --cl-var-- (quote 109)) 522) ((eql --cl-var-- (quote 77)) 523) ((eql --cl-var-- (quote 46)) 1000) ((eql --cl-var-- (quote 119)) 1001) ((eql --cl-var-- (quote 103)) 1002) ((eql --cl-var-- (quote 116)) 1003) ((eql --cl-var-- (quote 121)) 1004) ((eql --cl
-var-- (quote 89)) 1005))))) (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time ...))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (rea
d-string "Month and year: " nil nil ...) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)
) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done."))))
abo-abo()
(cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time (current-time)))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month an
d year: " nil nil (format-time-string "%B %Y" ...)) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom
-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done.")))
(let* ((span (quote month)) start-day year (month (let ((--cl-var-- (read-event))) (cond ((memql --cl-var-- (quote ...)) 1) ((memql --cl-var-- (quote ...)) 2) ((memql --cl-var-- (quote ...)) 3) ((memql --cl-var-- (quote ...)) 4) ((memql --cl-var-- (quote ...)) 5) ((memql --cl-var-- (quote ...)) 6) ((memql --cl-var-- (quote ...)) 7) ((memql --cl-var-- (quote ...)) 8) ((memql --cl-var-- (quote ...)) 9) ((memql --cl-var-- (quote ...)) 10) ((memql --cl-var-- (quote ...)) 11) ((memql --cl-var-- (quote ...)) 12) ((memql --cl-var-- (quote ...)) 500) ((memql --cl-var-- (quote ...)) 501) ((memql --cl-var-- (quote ...)) 502) ((memql --cl-var-- (quote ...)) 503) ((memql --cl-var-- (quote ...)) 504) ((memql --cl-var-- (quote ...)) 505) ((memql --cl-var-- (quote ...)) 506) ((memql --cl-var-- (quote .
..)) 507) ((eql --cl-var-- (quote 8388704)) 508) ((eql --cl-var-- (quote 8388734)) 509) ((eql --cl-var-- (quote 8388719)) 510) ((memql --cl-var-- (quote ...)) 511) ((memql --cl-var-- (quote ...)) 512) ((eql --cl-var-- (quote 8388721)) 513) ((eql --cl-var-- (quote 8388727)) 514) ((memql --cl-var-- (quote ...)) 515) ((memql --cl-var-- (quote ...)) 516) ((eql --cl-var-- (quote 8388715)) 517) ((memql --cl-var-- (quote ...)) 518) ((memql --cl-var-- (quote ...)) 519) ((memql --cl-var-- (quote ...)) 520) ((memql --cl-var-- (quote ...)) 521) ((eql --cl-var-- (quote 109)) 522) ((eql --cl-var-- (quote 77)) 523) ((eql --cl-var-- (quote 46)) 1000) ((eql --cl-var-- (quote 119)) 1001) ((eql --cl-var-- (quote 103)) 1002) ((eql --cl-var-- (quote 116)) 1003) ((eql --cl-var-- (quote 121)) 1004) ((eql --cl
-var-- (quote 89)) 1005))))) (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time ...))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (rea
d-string "Month and year: " nil nil ...) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)
) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done."))))
abo-abo()
(cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time (current-time)))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month an
d year: " nil nil (format-time-string "%B %Y" ...)) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom
-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done.")))
(let* ((span (quote month)) start-day year (month (let ((--cl-var-- (read-event))) (cond ((memql --cl-var-- (quote ...)) 1) ((memql --cl-var-- (quote ...)) 2) ((memql --cl-var-- (quote ...)) 3) ((memql --cl-var-- (quote ...)) 4) ((memql --cl-var-- (quote ...)) 5) ((memql --cl-var-- (quote ...)) 6) ((memql --cl-var-- (quote ...)) 7) ((memql --cl-var-- (quote ...)) 8) ((memql --cl-var-- (quote ...)) 9) ((memql --cl-var-- (quote ...)) 10) ((memql --cl-var-- (quote ...)) 11) ((memql --cl-var-- (quote ...)) 12) ((memql --cl-var-- (quote ...)) 500) ((memql --cl-var-- (quote ...)) 501) ((memql --cl-var-- (quote ...)) 502) ((memql --cl-var-- (quote ...)) 503) ((memql --cl-var-- (quote ...)) 504) ((memql --cl-var-- (quote ...)) 505) ((memql --cl-var-- (quote ...)) 506) ((memql --cl-var-- (quote .
..)) 507) ((eql --cl-var-- (quote 8388704)) 508) ((eql --cl-var-- (quote 8388734)) 509) ((eql --cl-var-- (quote 8388719)) 510) ((memql --cl-var-- (quote ...)) 511) ((memql --cl-var-- (quote ...)) 512) ((eql --cl-var-- (quote 8388721)) 513) ((eql --cl-var-- (quote 8388727)) 514) ((memql --cl-var-- (quote ...)) 515) ((memql --cl-var-- (quote ...)) 516) ((eql --cl-var-- (quote 8388715)) 517) ((memql --cl-var-- (quote ...)) 518) ((memql --cl-var-- (quote ...)) 519) ((memql --cl-var-- (quote ...)) 520) ((memql --cl-var-- (quote ...)) 521) ((eql --cl-var-- (quote 109)) 522) ((eql --cl-var-- (quote 77)) 523) ((eql --cl-var-- (quote 46)) 1000) ((eql --cl-var-- (quote 119)) 1001) ((eql --cl-var-- (quote 103)) 1002) ((eql --cl-var-- (quote 116)) 1003) ((eql --cl-var-- (quote 121)) 1004) ((eql --cl
-var-- (quote 89)) 1005))))) (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time ...))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (rea
d-string "Month and year: " nil nil ...) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)
) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done."))))
abo-abo()
(cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time (current-time)))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month an
d year: " nil nil (format-time-string "%B %Y" ...)) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom
-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done.")))
(let* ((span (quote month)) start-day year (month (let ((--cl-var-- (read-event))) (cond ((memql --cl-var-- (quote ...)) 1) ((memql --cl-var-- (quote ...)) 2) ((memql --cl-var-- (quote ...)) 3) ((memql --cl-var-- (quote ...)) 4) ((memql --cl-var-- (quote ...)) 5) ((memql --cl-var-- (quote ...)) 6) ((memql --cl-var-- (quote ...)) 7) ((memql --cl-var-- (quote ...)) 8) ((memql --cl-var-- (quote ...)) 9) ((memql --cl-var-- (quote ...)) 10) ((memql --cl-var-- (quote ...)) 11) ((memql --cl-var-- (quote ...)) 12) ((memql --cl-var-- (quote ...)) 500) ((memql --cl-var-- (quote ...)) 501) ((memql --cl-var-- (quote ...)) 502) ((memql --cl-var-- (quote ...)) 503) ((memql --cl-var-- (quote ...)) 504) ((memql --cl-var-- (quote ...)) 505) ((memql --cl-var-- (quote ...)) 506) ((memql --cl-var-- (quote .
..)) 507) ((eql --cl-var-- (quote 8388704)) 508) ((eql --cl-var-- (quote 8388734)) 509) ((eql --cl-var-- (quote 8388719)) 510) ((memql --cl-var-- (quote ...)) 511) ((memql --cl-var-- (quote ...)) 512) ((eql --cl-var-- (quote 8388721)) 513) ((eql --cl-var-- (quote 8388727)) 514) ((memql --cl-var-- (quote ...)) 515) ((memql --cl-var-- (quote ...)) 516) ((eql --cl-var-- (quote 8388715)) 517) ((memql --cl-var-- (quote ...)) 518) ((memql --cl-var-- (quote ...)) 519) ((memql --cl-var-- (quote ...)) 520) ((memql --cl-var-- (quote ...)) 521) ((eql --cl-var-- (quote 109)) 522) ((eql --cl-var-- (quote 77)) 523) ((eql --cl-var-- (quote 46)) 1000) ((eql --cl-var-- (quote 119)) 1001) ((eql --cl-var-- (quote 103)) 1002) ((eql --cl-var-- (quote 116)) 1003) ((eql --cl-var-- (quote 121)) 1004) ((eql --cl
-var-- (quote 89)) 1005))))) (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time ...))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (rea
d-string "Month and year: " nil nil ...) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)
) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done."))))
abo-abo()
(cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time (current-time)))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month an
d year: " nil nil (format-time-string "%B %Y" ...)) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom
-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done.")))
(let* ((span (quote month)) start-day year (month (let ((--cl-var-- (read-event))) (cond ((memql --cl-var-- (quote ...)) 1) ((memql --cl-var-- (quote ...)) 2) ((memql --cl-var-- (quote ...)) 3) ((memql --cl-var-- (quote ...)) 4) ((memql --cl-var-- (quote ...)) 5) ((memql --cl-var-- (quote ...)) 6) ((memql --cl-var-- (quote ...)) 7) ((memql --cl-var-- (quote ...)) 8) ((memql --cl-var-- (quote ...)) 9) ((memql --cl-var-- (quote ...)) 10) ((memql --cl-var-- (quote ...)) 11) ((memql --cl-var-- (quote ...)) 12) ((memql --cl-var-- (quote ...)) 500) ((memql --cl-var-- (quote ...)) 501) ((memql --cl-var-- (quote ...)) 502) ((memql --cl-var-- (quote ...)) 503) ((memql --cl-var-- (quote ...)) 504) ((memql --cl-var-- (quote ...)) 505) ((memql --cl-var-- (quote ...)) 506) ((memql --cl-var-- (quote .
..)) 507) ((eql --cl-var-- (quote 8388704)) 508) ((eql --cl-var-- (quote 8388734)) 509) ((eql --cl-var-- (quote 8388719)) 510) ((memql --cl-var-- (quote ...)) 511) ((memql --cl-var-- (quote ...)) 512) ((eql --cl-var-- (quote 8388721)) 513) ((eql --cl-var-- (quote 8388727)) 514) ((memql --cl-var-- (quote ...)) 515) ((memql --cl-var-- (quote ...)) 516) ((eql --cl-var-- (quote 8388715)) 517) ((memql --cl-var-- (quote ...)) 518) ((memql --cl-var-- (quote ...)) 519) ((memql --cl-var-- (quote ...)) 520) ((memql --cl-var-- (quote ...)) 521) ((eql --cl-var-- (quote 109)) 522) ((eql --cl-var-- (quote 77)) 523) ((eql --cl-var-- (quote 46)) 1000) ((eql --cl-var-- (quote 119)) 1001) ((eql --cl-var-- (quote 103)) 1002) ((eql --cl-var-- (quote 116)) 1003) ((eql --cl-var-- (quote 121)) 1004) ((eql --cl
-var-- (quote 89)) 1005))))) (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time ...))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (rea
d-string "Month and year: " nil nil ...) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)
) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done."))))
abo-abo()
(cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time (current-time)))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month an
d year: " nil nil (format-time-string "%B %Y" ...)) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom
-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done.")))
(let* ((span (quote month)) start-day year (month (let ((--cl-var-- (read-event))) (cond ((memql --cl-var-- (quote ...)) 1) ((memql --cl-var-- (quote ...)) 2) ((memql --cl-var-- (quote ...)) 3) ((memql --cl-var-- (quote ...)) 4) ((memql --cl-var-- (quote ...)) 5) ((memql --cl-var-- (quote ...)) 6) ((memql --cl-var-- (quote ...)) 7) ((memql --cl-var-- (quote ...)) 8) ((memql --cl-var-- (quote ...)) 9) ((memql --cl-var-- (quote ...)) 10) ((memql --cl-var-- (quote ...)) 11) ((memql --cl-var-- (quote ...)) 12) ((memql --cl-var-- (quote ...)) 500) ((memql --cl-var-- (quote ...)) 501) ((memql --cl-var-- (quote ...)) 502) ((memql --cl-var-- (quote ...)) 503) ((memql --cl-var-- (quote ...)) 504) ((memql --cl-var-- (quote ...)) 505) ((memql --cl-var-- (quote ...)) 506) ((memql --cl-var-- (quote .
..)) 507) ((eql --cl-var-- (quote 8388704)) 508) ((eql --cl-var-- (quote 8388734)) 509) ((eql --cl-var-- (quote 8388719)) 510) ((memql --cl-var-- (quote ...)) 511) ((memql --cl-var-- (quote ...)) 512) ((eql --cl-var-- (quote 8388721)) 513) ((eql --cl-var-- (quote 8388727)) 514) ((memql --cl-var-- (quote ...)) 515) ((memql --cl-var-- (quote ...)) 516) ((eql --cl-var-- (quote 8388715)) 517) ((memql --cl-var-- (quote ...)) 518) ((memql --cl-var-- (quote ...)) 519) ((memql --cl-var-- (quote ...)) 520) ((memql --cl-var-- (quote ...)) 521) ((eql --cl-var-- (quote 109)) 522) ((eql --cl-var-- (quote 77)) 523) ((eql --cl-var-- (quote 46)) 1000) ((eql --cl-var-- (quote 119)) 1001) ((eql --cl-var-- (quote 103)) 1002) ((eql --cl-var-- (quote 116)) 1003) ((eql --cl-var-- (quote 121)) 1004) ((eql --cl
-var-- (quote 89)) 1005))))) (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time ...))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (rea
d-string "Month and year: " nil nil ...) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)
) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done."))))
abo-abo()
(cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time (current-time)))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month an
d year: " nil nil (format-time-string "%B %Y" ...)) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom
-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done.")))
(let* ((span (quote month)) start-day year (month (let ((--cl-var-- (read-event))) (cond ((memql --cl-var-- (quote ...)) 1) ((memql --cl-var-- (quote ...)) 2) ((memql --cl-var-- (quote ...)) 3) ((memql --cl-var-- (quote ...)) 4) ((memql --cl-var-- (quote ...)) 5) ((memql --cl-var-- (quote ...)) 6) ((memql --cl-var-- (quote ...)) 7) ((memql --cl-var-- (quote ...)) 8) ((memql --cl-var-- (quote ...)) 9) ((memql --cl-var-- (quote ...)) 10) ((memql --cl-var-- (quote ...)) 11) ((memql --cl-var-- (quote ...)) 12) ((memql --cl-var-- (quote ...)) 500) ((memql --cl-var-- (quote ...)) 501) ((memql --cl-var-- (quote ...)) 502) ((memql --cl-var-- (quote ...)) 503) ((memql --cl-var-- (quote ...)) 504) ((memql --cl-var-- (quote ...)) 505) ((memql --cl-var-- (quote ...)) 506) ((memql --cl-var-- (quote .
..)) 507) ((eql --cl-var-- (quote 8388704)) 508) ((eql --cl-var-- (quote 8388734)) 509) ((eql --cl-var-- (quote 8388719)) 510) ((memql --cl-var-- (quote ...)) 511) ((memql --cl-var-- (quote ...)) 512) ((eql --cl-var-- (quote 8388721)) 513) ((eql --cl-var-- (quote 8388727)) 514) ((memql --cl-var-- (quote ...)) 515) ((memql --cl-var-- (quote ...)) 516) ((eql --cl-var-- (quote 8388715)) 517) ((memql --cl-var-- (quote ...)) 518) ((memql --cl-var-- (quote ...)) 519) ((memql --cl-var-- (quote ...)) 520) ((memql --cl-var-- (quote ...)) 521) ((eql --cl-var-- (quote 109)) 522) ((eql --cl-var-- (quote 77)) 523) ((eql --cl-var-- (quote 46)) 1000) ((eql --cl-var-- (quote 119)) 1001) ((eql --cl-var-- (quote 103)) 1002) ((eql --cl-var-- (quote 116)) 1003) ((eql --cl-var-- (quote 121)) 1004) ((eql --cl
-var-- (quote 89)) 1005))))) (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time ...))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (rea
d-string "Month and year: " nil nil ...) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)
) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done."))))
abo-abo()
(cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time (current-time)))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month an
d year: " nil nil (format-time-string "%B %Y" ...)) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom
-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done.")))
(let* ((span (quote month)) start-day year (month (let ((--cl-var-- (read-event))) (cond ((memql --cl-var-- (quote ...)) 1) ((memql --cl-var-- (quote ...)) 2) ((memql --cl-var-- (quote ...)) 3) ((memql --cl-var-- (quote ...)) 4) ((memql --cl-var-- (quote ...)) 5) ((memql --cl-var-- (quote ...)) 6) ((memql --cl-var-- (quote ...)) 7) ((memql --cl-var-- (quote ...)) 8) ((memql --cl-var-- (quote ...)) 9) ((memql --cl-var-- (quote ...)) 10) ((memql --cl-var-- (quote ...)) 11) ((memql --cl-var-- (quote ...)) 12) ((memql --cl-var-- (quote ...)) 500) ((memql --cl-var-- (quote ...)) 501) ((memql --cl-var-- (quote ...)) 502) ((memql --cl-var-- (quote ...)) 503) ((memql --cl-var-- (quote ...)) 504) ((memql --cl-var-- (quote ...)) 505) ((memql --cl-var-- (quote ...)) 506) ((memql --cl-var-- (quote .
..)) 507) ((eql --cl-var-- (quote 8388704)) 508) ((eql --cl-var-- (quote 8388734)) 509) ((eql --cl-var-- (quote 8388719)) 510) ((memql --cl-var-- (quote ...)) 511) ((memql --cl-var-- (quote ...)) 512) ((eql --cl-var-- (quote 8388721)) 513) ((eql --cl-var-- (quote 8388727)) 514) ((memql --cl-var-- (quote ...)) 515) ((memql --cl-var-- (quote ...)) 516) ((eql --cl-var-- (quote 8388715)) 517) ((memql --cl-var-- (quote ...)) 518) ((memql --cl-var-- (quote ...)) 519) ((memql --cl-var-- (quote ...)) 520) ((memql --cl-var-- (quote ...)) 521) ((eql --cl-var-- (quote 109)) 522) ((eql --cl-var-- (quote 77)) 523) ((eql --cl-var-- (quote 46)) 1000) ((eql --cl-var-- (quote 119)) 1001) ((eql --cl-var-- (quote 103)) 1002) ((eql --cl-var-- (quote 116)) 1003) ((eql --cl-var-- (quote 121)) 1004) ((eql --cl
-var-- (quote 89)) 1005))))) (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time ...))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (rea
d-string "Month and year: " nil nil ...) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)
) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done."))))
abo-abo()
(cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time (current-time)))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month an
d year: " nil nil (format-time-string "%B %Y" ...)) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom
-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done.")))
(let* ((span (quote month)) start-day year (month (let ((--cl-var-- (read-event))) (cond ((memql --cl-var-- (quote ...)) 1) ((memql --cl-var-- (quote ...)) 2) ((memql --cl-var-- (quote ...)) 3) ((memql --cl-var-- (quote ...)) 4) ((memql --cl-var-- (quote ...)) 5) ((memql --cl-var-- (quote ...)) 6) ((memql --cl-var-- (quote ...)) 7) ((memql --cl-var-- (quote ...)) 8) ((memql --cl-var-- (quote ...)) 9) ((memql --cl-var-- (quote ...)) 10) ((memql --cl-var-- (quote ...)) 11) ((memql --cl-var-- (quote ...)) 12) ((memql --cl-var-- (quote ...)) 500) ((memql --cl-var-- (quote ...)) 501) ((memql --cl-var-- (quote ...)) 502) ((memql --cl-var-- (quote ...)) 503) ((memql --cl-var-- (quote ...)) 504) ((memql --cl-var-- (quote ...)) 505) ((memql --cl-var-- (quote ...)) 506) ((memql --cl-var-- (quote .
..)) 507) ((eql --cl-var-- (quote 8388704)) 508) ((eql --cl-var-- (quote 8388734)) 509) ((eql --cl-var-- (quote 8388719)) 510) ((memql --cl-var-- (quote ...)) 511) ((memql --cl-var-- (quote ...)) 512) ((eql --cl-var-- (quote 8388721)) 513) ((eql --cl-var-- (quote 8388727)) 514) ((memql --cl-var-- (quote ...)) 515) ((memql --cl-var-- (quote ...)) 516) ((eql --cl-var-- (quote 8388715)) 517) ((memql --cl-var-- (quote ...)) 518) ((memql --cl-var-- (quote ...)) 519) ((memql --cl-var-- (quote ...)) 520) ((memql --cl-var-- (quote ...)) 521) ((eql --cl-var-- (quote 109)) 522) ((eql --cl-var-- (quote 77)) 523) ((eql --cl-var-- (quote 46)) 1000) ((eql --cl-var-- (quote 119)) 1001) ((eql --cl-var-- (quote 103)) 1002) ((eql --cl-var-- (quote 116)) 1003) ((eql --cl-var-- (quote 121)) 1004) ((eql --cl
-var-- (quote 89)) 1005))))) (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time ...))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (rea
d-string "Month and year: " nil nil ...) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)
) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done."))))
abo-abo()
(cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time (current-time)))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month an
d year: " nil nil (format-time-string "%B %Y" ...)) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom
-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done.")))
(let* ((span (quote month)) start-day year (month (let ((--cl-var-- (read-event))) (cond ((memql --cl-var-- (quote ...)) 1) ((memql --cl-var-- (quote ...)) 2) ((memql --cl-var-- (quote ...)) 3) ((memql --cl-var-- (quote ...)) 4) ((memql --cl-var-- (quote ...)) 5) ((memql --cl-var-- (quote ...)) 6) ((memql --cl-var-- (quote ...)) 7) ((memql --cl-var-- (quote ...)) 8) ((memql --cl-var-- (quote ...)) 9) ((memql --cl-var-- (quote ...)) 10) ((memql --cl-var-- (quote ...)) 11) ((memql --cl-var-- (quote ...)) 12) ((memql --cl-var-- (quote ...)) 500) ((memql --cl-var-- (quote ...)) 501) ((memql --cl-var-- (quote ...)) 502) ((memql --cl-var-- (quote ...)) 503) ((memql --cl-var-- (quote ...)) 504) ((memql --cl-var-- (quote ...)) 505) ((memql --cl-var-- (quote ...)) 506) ((memql --cl-var-- (quote .
..)) 507) ((eql --cl-var-- (quote 8388704)) 508) ((eql --cl-var-- (quote 8388734)) 509) ((eql --cl-var-- (quote 8388719)) 510) ((memql --cl-var-- (quote ...)) 511) ((memql --cl-var-- (quote ...)) 512) ((eql --cl-var-- (quote 8388721)) 513) ((eql --cl-var-- (quote 8388727)) 514) ((memql --cl-var-- (quote ...)) 515) ((memql --cl-var-- (quote ...)) 516) ((eql --cl-var-- (quote 8388715)) 517) ((memql --cl-var-- (quote ...)) 518) ((memql --cl-var-- (quote ...)) 519) ((memql --cl-var-- (quote ...)) 520) ((memql --cl-var-- (quote ...)) 521) ((eql --cl-var-- (quote 109)) 522) ((eql --cl-var-- (quote 77)) 523) ((eql --cl-var-- (quote 46)) 1000) ((eql --cl-var-- (quote 119)) 1001) ((eql --cl-var-- (quote 103)) 1002) ((eql --cl-var-- (quote 116)) 1003) ((eql --cl-var-- (quote 121)) 1004) ((eql --cl
-var-- (quote 89)) 1005))))) (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time ...))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (rea
d-string "Month and year: " nil nil ...) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)
) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done."))))
abo-abo()
(cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time (current-time)))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month an
d year: " nil nil (format-time-string "%B %Y" ...)) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom
-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done.")))
(let* ((span (quote month)) start-day year (month (let ((--cl-var-- (read-event))) (cond ((memql --cl-var-- (quote ...)) 1) ((memql --cl-var-- (quote ...)) 2) ((memql --cl-var-- (quote ...)) 3) ((memql --cl-var-- (quote ...)) 4) ((memql --cl-var-- (quote ...)) 5) ((memql --cl-var-- (quote ...)) 6) ((memql --cl-var-- (quote ...)) 7) ((memql --cl-var-- (quote ...)) 8) ((memql --cl-var-- (quote ...)) 9) ((memql --cl-var-- (quote ...)) 10) ((memql --cl-var-- (quote ...)) 11) ((memql --cl-var-- (quote ...)) 12) ((memql --cl-var-- (quote ...)) 500) ((memql --cl-var-- (quote ...)) 501) ((memql --cl-var-- (quote ...)) 502) ((memql --cl-var-- (quote ...)) 503) ((memql --cl-var-- (quote ...)) 504) ((memql --cl-var-- (quote ...)) 505) ((memql --cl-var-- (quote ...)) 506) ((memql --cl-var-- (quote .
..)) 507) ((eql --cl-var-- (quote 8388704)) 508) ((eql --cl-var-- (quote 8388734)) 509) ((eql --cl-var-- (quote 8388719)) 510) ((memql --cl-var-- (quote ...)) 511) ((memql --cl-var-- (quote ...)) 512) ((eql --cl-var-- (quote 8388721)) 513) ((eql --cl-var-- (quote 8388727)) 514) ((memql --cl-var-- (quote ...)) 515) ((memql --cl-var-- (quote ...)) 516) ((eql --cl-var-- (quote 8388715)) 517) ((memql --cl-var-- (quote ...)) 518) ((memql --cl-var-- (quote ...)) 519) ((memql --cl-var-- (quote ...)) 520) ((memql --cl-var-- (quote ...)) 521) ((eql --cl-var-- (quote 109)) 522) ((eql --cl-var-- (quote 77)) 523) ((eql --cl-var-- (quote 46)) 1000) ((eql --cl-var-- (quote 119)) 1001) ((eql --cl-var-- (quote 103)) 1002) ((eql --cl-var-- (quote 116)) 1003) ((eql --cl-var-- (quote 121)) 1004) ((eql --cl
-var-- (quote 89)) 1005))))) (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time ...))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (rea
d-string "Month and year: " nil nil ...) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)
) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done."))))
abo-abo()
(cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time (current-time)))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month an
d year: " nil nil (format-time-string "%B %Y" ...)) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom
-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done.")))
(let* ((span (quote month)) start-day year (month (let ((--cl-var-- (read-event))) (cond ((memql --cl-var-- (quote ...)) 1) ((memql --cl-var-- (quote ...)) 2) ((memql --cl-var-- (quote ...)) 3) ((memql --cl-var-- (quote ...)) 4) ((memql --cl-var-- (quote ...)) 5) ((memql --cl-var-- (quote ...)) 6) ((memql --cl-var-- (quote ...)) 7) ((memql --cl-var-- (quote ...)) 8) ((memql --cl-var-- (quote ...)) 9) ((memql --cl-var-- (quote ...)) 10) ((memql --cl-var-- (quote ...)) 11) ((memql --cl-var-- (quote ...)) 12) ((memql --cl-var-- (quote ...)) 500) ((memql --cl-var-- (quote ...)) 501) ((memql --cl-var-- (quote ...)) 502) ((memql --cl-var-- (quote ...)) 503) ((memql --cl-var-- (quote ...)) 504) ((memql --cl-var-- (quote ...)) 505) ((memql --cl-var-- (quote ...)) 506) ((memql --cl-var-- (quote .
..)) 507) ((eql --cl-var-- (quote 8388704)) 508) ((eql --cl-var-- (quote 8388734)) 509) ((eql --cl-var-- (quote 8388719)) 510) ((memql --cl-var-- (quote ...)) 511) ((memql --cl-var-- (quote ...)) 512) ((eql --cl-var-- (quote 8388721)) 513) ((eql --cl-var-- (quote 8388727)) 514) ((memql --cl-var-- (quote ...)) 515) ((memql --cl-var-- (quote ...)) 516) ((eql --cl-var-- (quote 8388715)) 517) ((memql --cl-var-- (quote ...)) 518) ((memql --cl-var-- (quote ...)) 519) ((memql --cl-var-- (quote ...)) 520) ((memql --cl-var-- (quote ...)) 521) ((eql --cl-var-- (quote 109)) 522) ((eql --cl-var-- (quote 77)) 523) ((eql --cl-var-- (quote 46)) 1000) ((eql --cl-var-- (quote 119)) 1001) ((eql --cl-var-- (quote 103)) 1002) ((eql --cl-var-- (quote 116)) 1003) ((eql --cl-var-- (quote 121)) 1004) ((eql --cl
-var-- (quote 89)) 1005))))) (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time ...))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (rea
d-string "Month and year: " nil nil ...) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)
) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done."))))
abo-abo()
(cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time (current-time)))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month an
d year: " nil nil (format-time-string "%B %Y" ...)) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom
-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done.")))
(let* ((span (quote month)) start-day year (month (let ((--cl-var-- (read-event))) (cond ((memql --cl-var-- (quote ...)) 1) ((memql --cl-var-- (quote ...)) 2) ((memql --cl-var-- (quote ...)) 3) ((memql --cl-var-- (quote ...)) 4) ((memql --cl-var-- (quote ...)) 5) ((memql --cl-var-- (quote ...)) 6) ((memql --cl-var-- (quote ...)) 7) ((memql --cl-var-- (quote ...)) 8) ((memql --cl-var-- (quote ...)) 9) ((memql --cl-var-- (quote ...)) 10) ((memql --cl-var-- (quote ...)) 11) ((memql --cl-var-- (quote ...)) 12) ((memql --cl-var-- (quote ...)) 500) ((memql --cl-var-- (quote ...)) 501) ((memql --cl-var-- (quote ...)) 502) ((memql --cl-var-- (quote ...)) 503) ((memql --cl-var-- (quote ...)) 504) ((memql --cl-var-- (quote ...)) 505) ((memql --cl-var-- (quote ...)) 506) ((memql --cl-var-- (quote .
..)) 507) ((eql --cl-var-- (quote 8388704)) 508) ((eql --cl-var-- (quote 8388734)) 509) ((eql --cl-var-- (quote 8388719)) 510) ((memql --cl-var-- (quote ...)) 511) ((memql --cl-var-- (quote ...)) 512) ((eql --cl-var-- (quote 8388721)) 513) ((eql --cl-var-- (quote 8388727)) 514) ((memql --cl-var-- (quote ...)) 515) ((memql --cl-var-- (quote ...)) 516) ((eql --cl-var-- (quote 8388715)) 517) ((memql --cl-var-- (quote ...)) 518) ((memql --cl-var-- (quote ...)) 519) ((memql --cl-var-- (quote ...)) 520) ((memql --cl-var-- (quote ...)) 521) ((eql --cl-var-- (quote 109)) 522) ((eql --cl-var-- (quote 77)) 523) ((eql --cl-var-- (quote 46)) 1000) ((eql --cl-var-- (quote 119)) 1001) ((eql --cl-var-- (quote 103)) 1002) ((eql --cl-var-- (quote 116)) 1003) ((eql --cl-var-- (quote 121)) 1004) ((eql --cl
-var-- (quote 89)) 1005))))) (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time ...))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (rea
d-string "Month and year: " nil nil ...) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)
) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done."))))
abo-abo()
(cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time (current-time)))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month an
d year: " nil nil (format-time-string "%B %Y" ...)) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom
-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done.")))
(let* ((span (quote month)) start-day year (month (let ((--cl-var-- (read-event))) (cond ((memql --cl-var-- (quote ...)) 1) ((memql --cl-var-- (quote ...)) 2) ((memql --cl-var-- (quote ...)) 3) ((memql --cl-var-- (quote ...)) 4) ((memql --cl-var-- (quote ...)) 5) ((memql --cl-var-- (quote ...)) 6) ((memql --cl-var-- (quote ...)) 7) ((memql --cl-var-- (quote ...)) 8) ((memql --cl-var-- (quote ...)) 9) ((memql --cl-var-- (quote ...)) 10) ((memql --cl-var-- (quote ...)) 11) ((memql --cl-var-- (quote ...)) 12) ((memql --cl-var-- (quote ...)) 500) ((memql --cl-var-- (quote ...)) 501) ((memql --cl-var-- (quote ...)) 502) ((memql --cl-var-- (quote ...)) 503) ((memql --cl-var-- (quote ...)) 504) ((memql --cl-var-- (quote ...)) 505) ((memql --cl-var-- (quote ...)) 506) ((memql --cl-var-- (quote .
..)) 507) ((eql --cl-var-- (quote 8388704)) 508) ((eql --cl-var-- (quote 8388734)) 509) ((eql --cl-var-- (quote 8388719)) 510) ((memql --cl-var-- (quote ...)) 511) ((memql --cl-var-- (quote ...)) 512) ((eql --cl-var-- (quote 8388721)) 513) ((eql --cl-var-- (quote 8388727)) 514) ((memql --cl-var-- (quote ...)) 515) ((memql --cl-var-- (quote ...)) 516) ((eql --cl-var-- (quote 8388715)) 517) ((memql --cl-var-- (quote ...)) 518) ((memql --cl-var-- (quote ...)) 519) ((memql --cl-var-- (quote ...)) 520) ((memql --cl-var-- (quote ...)) 521) ((eql --cl-var-- (quote 109)) 522) ((eql --cl-var-- (quote 77)) 523) ((eql --cl-var-- (quote 46)) 1000) ((eql --cl-var-- (quote 119)) 1001) ((eql --cl-var-- (quote 103)) 1002) ((eql --cl-var-- (quote 116)) 1003) ((eql --cl-var-- (quote 121)) 1004) ((eql --cl
-var-- (quote 89)) 1005))))) (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time ...))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (rea
d-string "Month and year: " nil nil ...) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)
) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done."))))
abo-abo()
(cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time (current-time)))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month an
d year: " nil nil (format-time-string "%B %Y" ...)) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom
-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done.")))
(let* ((span (quote month)) start-day year (month (let ((--cl-var-- (read-event))) (cond ((memql --cl-var-- (quote ...)) 1) ((memql --cl-var-- (quote ...)) 2) ((memql --cl-var-- (quote ...)) 3) ((memql --cl-var-- (quote ...)) 4) ((memql --cl-var-- (quote ...)) 5) ((memql --cl-var-- (quote ...)) 6) ((memql --cl-var-- (quote ...)) 7) ((memql --cl-var-- (quote ...)) 8) ((memql --cl-var-- (quote ...)) 9) ((memql --cl-var-- (quote ...)) 10) ((memql --cl-var-- (quote ...)) 11) ((memql --cl-var-- (quote ...)) 12) ((memql --cl-var-- (quote ...)) 500) ((memql --cl-var-- (quote ...)) 501) ((memql --cl-var-- (quote ...)) 502) ((memql --cl-var-- (quote ...)) 503) ((memql --cl-var-- (quote ...)) 504) ((memql --cl-var-- (quote ...)) 505) ((memql --cl-var-- (quote ...)) 506) ((memql --cl-var-- (quote .
..)) 507) ((eql --cl-var-- (quote 8388704)) 508) ((eql --cl-var-- (quote 8388734)) 509) ((eql --cl-var-- (quote 8388719)) 510) ((memql --cl-var-- (quote ...)) 511) ((memql --cl-var-- (quote ...)) 512) ((eql --cl-var-- (quote 8388721)) 513) ((eql --cl-var-- (quote 8388727)) 514) ((memql --cl-var-- (quote ...)) 515) ((memql --cl-var-- (quote ...)) 516) ((eql --cl-var-- (quote 8388715)) 517) ((memql --cl-var-- (quote ...)) 518) ((memql --cl-var-- (quote ...)) 519) ((memql --cl-var-- (quote ...)) 520) ((memql --cl-var-- (quote ...)) 521) ((eql --cl-var-- (quote 109)) 522) ((eql --cl-var-- (quote 77)) 523) ((eql --cl-var-- (quote 46)) 1000) ((eql --cl-var-- (quote 119)) 1001) ((eql --cl-var-- (quote 103)) 1002) ((eql --cl-var-- (quote 116)) 1003) ((eql --cl-var-- (quote 121)) 1004) ((eql --cl
-var-- (quote 89)) 1005))))) (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time ...))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (rea
d-string "Month and year: " nil nil ...) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)
) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done."))))
abo-abo()
(cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time (current-time)))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month an
d year: " nil nil (format-time-string "%B %Y" ...)) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom
-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done.")))
(let* ((span (quote month)) start-day year (month (let ((--cl-var-- (read-event))) (cond ((memql --cl-var-- (quote ...)) 1) ((memql --cl-var-- (quote ...)) 2) ((memql --cl-var-- (quote ...)) 3) ((memql --cl-var-- (quote ...)) 4) ((memql --cl-var-- (quote ...)) 5) ((memql --cl-var-- (quote ...)) 6) ((memql --cl-var-- (quote ...)) 7) ((memql --cl-var-- (quote ...)) 8) ((memql --cl-var-- (quote ...)) 9) ((memql --cl-var-- (quote ...)) 10) ((memql --cl-var-- (quote ...)) 11) ((memql --cl-var-- (quote ...)) 12) ((memql --cl-var-- (quote ...)) 500) ((memql --cl-var-- (quote ...)) 501) ((memql --cl-var-- (quote ...)) 502) ((memql --cl-var-- (quote ...)) 503) ((memql --cl-var-- (quote ...)) 504) ((memql --cl-var-- (quote ...)) 505) ((memql --cl-var-- (quote ...)) 506) ((memql --cl-var-- (quote .
..)) 507) ((eql --cl-var-- (quote 8388704)) 508) ((eql --cl-var-- (quote 8388734)) 509) ((eql --cl-var-- (quote 8388719)) 510) ((memql --cl-var-- (quote ...)) 511) ((memql --cl-var-- (quote ...)) 512) ((eql --cl-var-- (quote 8388721)) 513) ((eql --cl-var-- (quote 8388727)) 514) ((memql --cl-var-- (quote ...)) 515) ((memql --cl-var-- (quote ...)) 516) ((eql --cl-var-- (quote 8388715)) 517) ((memql --cl-var-- (quote ...)) 518) ((memql --cl-var-- (quote ...)) 519) ((memql --cl-var-- (quote ...)) 520) ((memql --cl-var-- (quote ...)) 521) ((eql --cl-var-- (quote 109)) 522) ((eql --cl-var-- (quote 77)) 523) ((eql --cl-var-- (quote 46)) 1000) ((eql --cl-var-- (quote 119)) 1001) ((eql --cl-var-- (quote 103)) 1002) ((eql --cl-var-- (quote 116)) 1003) ((eql --cl-var-- (quote 121)) 1004) ((eql --cl
-var-- (quote 89)) 1005))))) (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time ...))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (rea
d-string "Month and year: " nil nil ...) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)
) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done."))))
abo-abo()
(cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time (current-time)))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month an
d year: " nil nil (format-time-string "%B %Y" ...)) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom
-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done.")))
(let* ((span (quote month)) start-day year (month (let ((--cl-var-- (read-event))) (cond ((memql --cl-var-- (quote ...)) 1) ((memql --cl-var-- (quote ...)) 2) ((memql --cl-var-- (quote ...)) 3) ((memql --cl-var-- (quote ...)) 4) ((memql --cl-var-- (quote ...)) 5) ((memql --cl-var-- (quote ...)) 6) ((memql --cl-var-- (quote ...)) 7) ((memql --cl-var-- (quote ...)) 8) ((memql --cl-var-- (quote ...)) 9) ((memql --cl-var-- (quote ...)) 10) ((memql --cl-var-- (quote ...)) 11) ((memql --cl-var-- (quote ...)) 12) ((memql --cl-var-- (quote ...)) 500) ((memql --cl-var-- (quote ...)) 501) ((memql --cl-var-- (quote ...)) 502) ((memql --cl-var-- (quote ...)) 503) ((memql --cl-var-- (quote ...)) 504) ((memql --cl-var-- (quote ...)) 505) ((memql --cl-var-- (quote ...)) 506) ((memql --cl-var-- (quote .
..)) 507) ((eql --cl-var-- (quote 8388704)) 508) ((eql --cl-var-- (quote 8388734)) 509) ((eql --cl-var-- (quote 8388719)) 510) ((memql --cl-var-- (quote ...)) 511) ((memql --cl-var-- (quote ...)) 512) ((eql --cl-var-- (quote 8388721)) 513) ((eql --cl-var-- (quote 8388727)) 514) ((memql --cl-var-- (quote ...)) 515) ((memql --cl-var-- (quote ...)) 516) ((eql --cl-var-- (quote 8388715)) 517) ((memql --cl-var-- (quote ...)) 518) ((memql --cl-var-- (quote ...)) 519) ((memql --cl-var-- (quote ...)) 520) ((memql --cl-var-- (quote ...)) 521) ((eql --cl-var-- (quote 109)) 522) ((eql --cl-var-- (quote 77)) 523) ((eql --cl-var-- (quote 46)) 1000) ((eql --cl-var-- (quote 119)) 1001) ((eql --cl-var-- (quote 103)) 1002) ((eql --cl-var-- (quote 116)) 1003) ((eql --cl-var-- (quote 121)) 1004) ((eql --cl
-var-- (quote 89)) 1005))))) (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time ...))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (rea
d-string "Month and year: " nil nil ...) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)
) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done."))))
abo-abo()
(cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time (current-time)))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month an
d year: " nil nil (format-time-string "%B %Y" ...)) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom
-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done.")))
(let* ((span (quote month)) start-day year (month (let ((--cl-var-- (read-event))) (cond ((memql --cl-var-- (quote ...)) 1) ((memql --cl-var-- (quote ...)) 2) ((memql --cl-var-- (quote ...)) 3) ((memql --cl-var-- (quote ...)) 4) ((memql --cl-var-- (quote ...)) 5) ((memql --cl-var-- (quote ...)) 6) ((memql --cl-var-- (quote ...)) 7) ((memql --cl-var-- (quote ...)) 8) ((memql --cl-var-- (quote ...)) 9) ((memql --cl-var-- (quote ...)) 10) ((memql --cl-var-- (quote ...)) 11) ((memql --cl-var-- (quote ...)) 12) ((memql --cl-var-- (quote ...)) 500) ((memql --cl-var-- (quote ...)) 501) ((memql --cl-var-- (quote ...)) 502) ((memql --cl-var-- (quote ...)) 503) ((memql --cl-var-- (quote ...)) 504) ((memql --cl-var-- (quote ...)) 505) ((memql --cl-var-- (quote ...)) 506) ((memql --cl-var-- (quote .
..)) 507) ((eql --cl-var-- (quote 8388704)) 508) ((eql --cl-var-- (quote 8388734)) 509) ((eql --cl-var-- (quote 8388719)) 510) ((memql --cl-var-- (quote ...)) 511) ((memql --cl-var-- (quote ...)) 512) ((eql --cl-var-- (quote 8388721)) 513) ((eql --cl-var-- (quote 8388727)) 514) ((memql --cl-var-- (quote ...)) 515) ((memql --cl-var-- (quote ...)) 516) ((eql --cl-var-- (quote 8388715)) 517) ((memql --cl-var-- (quote ...)) 518) ((memql --cl-var-- (quote ...)) 519) ((memql --cl-var-- (quote ...)) 520) ((memql --cl-var-- (quote ...)) 521) ((eql --cl-var-- (quote 109)) 522) ((eql --cl-var-- (quote 77)) 523) ((eql --cl-var-- (quote 46)) 1000) ((eql --cl-var-- (quote 119)) 1001) ((eql --cl-var-- (quote 103)) 1002) ((eql --cl-var-- (quote 116)) 1003) ((eql --cl-var-- (quote 121)) 1004) ((eql --cl
-var-- (quote 89)) 1005))))) (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time ...))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (rea
d-string "Month and year: " nil nil ...) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)
) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done."))))
abo-abo()
(cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time (current-time)))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month an
d year: " nil nil (format-time-string "%B %Y" ...)) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom
-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done.")))
(let* ((span (quote month)) start-day year (month (let ((--cl-var-- (read-event))) (cond ((memql --cl-var-- (quote ...)) 1) ((memql --cl-var-- (quote ...)) 2) ((memql --cl-var-- (quote ...)) 3) ((memql --cl-var-- (quote ...)) 4) ((memql --cl-var-- (quote ...)) 5) ((memql --cl-var-- (quote ...)) 6) ((memql --cl-var-- (quote ...)) 7) ((memql --cl-var-- (quote ...)) 8) ((memql --cl-var-- (quote ...)) 9) ((memql --cl-var-- (quote ...)) 10) ((memql --cl-var-- (quote ...)) 11) ((memql --cl-var-- (quote ...)) 12) ((memql --cl-var-- (quote ...)) 500) ((memql --cl-var-- (quote ...)) 501) ((memql --cl-var-- (quote ...)) 502) ((memql --cl-var-- (quote ...)) 503) ((memql --cl-var-- (quote ...)) 504) ((memql --cl-var-- (quote ...)) 505) ((memql --cl-var-- (quote ...)) 506) ((memql --cl-var-- (quote .
..)) 507) ((eql --cl-var-- (quote 8388704)) 508) ((eql --cl-var-- (quote 8388734)) 509) ((eql --cl-var-- (quote 8388719)) 510) ((memql --cl-var-- (quote ...)) 511) ((memql --cl-var-- (quote ...)) 512) ((eql --cl-var-- (quote 8388721)) 513) ((eql --cl-var-- (quote 8388727)) 514) ((memql --cl-var-- (quote ...)) 515) ((memql --cl-var-- (quote ...)) 516) ((eql --cl-var-- (quote 8388715)) 517) ((memql --cl-var-- (quote ...)) 518) ((memql --cl-var-- (quote ...)) 519) ((memql --cl-var-- (quote ...)) 520) ((memql --cl-var-- (quote ...)) 521) ((eql --cl-var-- (quote 109)) 522) ((eql --cl-var-- (quote 77)) 523) ((eql --cl-var-- (quote 46)) 1000) ((eql --cl-var-- (quote 119)) 1001) ((eql --cl-var-- (quote 103)) 1002) ((eql --cl-var-- (quote 116)) 1003) ((eql --cl-var-- (quote 121)) 1004) ((eql --cl
-var-- (quote 89)) 1005))))) (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time ...))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (rea
d-string "Month and year: " nil nil ...) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)
) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done."))))
abo-abo()
(cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time (current-time)))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month an
d year: " nil nil (format-time-string "%B %Y" ...)) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom
-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done.")))
(let* ((span (quote month)) start-day year (month (let ((--cl-var-- (read-event))) (cond ((memql --cl-var-- (quote ...)) 1) ((memql --cl-var-- (quote ...)) 2) ((memql --cl-var-- (quote ...)) 3) ((memql --cl-var-- (quote ...)) 4) ((memql --cl-var-- (quote ...)) 5) ((memql --cl-var-- (quote ...)) 6) ((memql --cl-var-- (quote ...)) 7) ((memql --cl-var-- (quote ...)) 8) ((memql --cl-var-- (quote ...)) 9) ((memql --cl-var-- (quote ...)) 10) ((memql --cl-var-- (quote ...)) 11) ((memql --cl-var-- (quote ...)) 12) ((memql --cl-var-- (quote ...)) 500) ((memql --cl-var-- (quote ...)) 501) ((memql --cl-var-- (quote ...)) 502) ((memql --cl-var-- (quote ...)) 503) ((memql --cl-var-- (quote ...)) 504) ((memql --cl-var-- (quote ...)) 505) ((memql --cl-var-- (quote ...)) 506) ((memql --cl-var-- (quote .
..)) 507) ((eql --cl-var-- (quote 8388704)) 508) ((eql --cl-var-- (quote 8388734)) 509) ((eql --cl-var-- (quote 8388719)) 510) ((memql --cl-var-- (quote ...)) 511) ((memql --cl-var-- (quote ...)) 512) ((eql --cl-var-- (quote 8388721)) 513) ((eql --cl-var-- (quote 8388727)) 514) ((memql --cl-var-- (quote ...)) 515) ((memql --cl-var-- (quote ...)) 516) ((eql --cl-var-- (quote 8388715)) 517) ((memql --cl-var-- (quote ...)) 518) ((memql --cl-var-- (quote ...)) 519) ((memql --cl-var-- (quote ...)) 520) ((memql --cl-var-- (quote ...)) 521) ((eql --cl-var-- (quote 109)) 522) ((eql --cl-var-- (quote 77)) 523) ((eql --cl-var-- (quote 46)) 1000) ((eql --cl-var-- (quote 119)) 1001) ((eql --cl-var-- (quote 103)) 1002) ((eql --cl-var-- (quote 116)) 1003) ((eql --cl-var-- (quote 121)) 1004) ((eql --cl
-var-- (quote 89)) 1005))))) (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time ...))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (rea
d-string "Month and year: " nil nil ...) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)
) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done."))))
abo-abo()
(cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time (current-time)))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month an
d year: " nil nil (format-time-string "%B %Y" ...)) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom
-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done.")))
(let* ((span (quote month)) start-day year (month (let ((--cl-var-- (read-event))) (cond ((memql --cl-var-- (quote ...)) 1) ((memql --cl-var-- (quote ...)) 2) ((memql --cl-var-- (quote ...)) 3) ((memql --cl-var-- (quote ...)) 4) ((memql --cl-var-- (quote ...)) 5) ((memql --cl-var-- (quote ...)) 6) ((memql --cl-var-- (quote ...)) 7) ((memql --cl-var-- (quote ...)) 8) ((memql --cl-var-- (quote ...)) 9) ((memql --cl-var-- (quote ...)) 10) ((memql --cl-var-- (quote ...)) 11) ((memql --cl-var-- (quote ...)) 12) ((memql --cl-var-- (quote ...)) 500) ((memql --cl-var-- (quote ...)) 501) ((memql --cl-var-- (quote ...)) 502) ((memql --cl-var-- (quote ...)) 503) ((memql --cl-var-- (quote ...)) 504) ((memql --cl-var-- (quote ...)) 505) ((memql --cl-var-- (quote ...)) 506) ((memql --cl-var-- (quote .
..)) 507) ((eql --cl-var-- (quote 8388704)) 508) ((eql --cl-var-- (quote 8388734)) 509) ((eql --cl-var-- (quote 8388719)) 510) ((memql --cl-var-- (quote ...)) 511) ((memql --cl-var-- (quote ...)) 512) ((eql --cl-var-- (quote 8388721)) 513) ((eql --cl-var-- (quote 8388727)) 514) ((memql --cl-var-- (quote ...)) 515) ((memql --cl-var-- (quote ...)) 516) ((eql --cl-var-- (quote 8388715)) 517) ((memql --cl-var-- (quote ...)) 518) ((memql --cl-var-- (quote ...)) 519) ((memql --cl-var-- (quote ...)) 520) ((memql --cl-var-- (quote ...)) 521) ((eql --cl-var-- (quote 109)) 522) ((eql --cl-var-- (quote 77)) 523) ((eql --cl-var-- (quote 46)) 1000) ((eql --cl-var-- (quote 119)) 1001) ((eql --cl-var-- (quote 103)) 1002) ((eql --cl-var-- (quote 116)) 1003) ((eql --cl-var-- (quote 121)) 1004) ((eql --cl
-var-- (quote 89)) 1005))))) (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time ...))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (rea
d-string "Month and year: " nil nil ...) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)
) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done."))))
abo-abo()
(cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time (current-time)))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month an
d year: " nil nil (format-time-string "%B %Y" ...)) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom
-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done.")))
(let* ((span (quote month)) start-day year (month (let ((--cl-var-- (read-event))) (cond ((memql --cl-var-- (quote ...)) 1) ((memql --cl-var-- (quote ...)) 2) ((memql --cl-var-- (quote ...)) 3) ((memql --cl-var-- (quote ...)) 4) ((memql --cl-var-- (quote ...)) 5) ((memql --cl-var-- (quote ...)) 6) ((memql --cl-var-- (quote ...)) 7) ((memql --cl-var-- (quote ...)) 8) ((memql --cl-var-- (quote ...)) 9) ((memql --cl-var-- (quote ...)) 10) ((memql --cl-var-- (quote ...)) 11) ((memql --cl-var-- (quote ...)) 12) ((memql --cl-var-- (quote ...)) 500) ((memql --cl-var-- (quote ...)) 501) ((memql --cl-var-- (quote ...)) 502) ((memql --cl-var-- (quote ...)) 503) ((memql --cl-var-- (quote ...)) 504) ((memql --cl-var-- (quote ...)) 505) ((memql --cl-var-- (quote ...)) 506) ((memql --cl-var-- (quote .
..)) 507) ((eql --cl-var-- (quote 8388704)) 508) ((eql --cl-var-- (quote 8388734)) 509) ((eql --cl-var-- (quote 8388719)) 510) ((memql --cl-var-- (quote ...)) 511) ((memql --cl-var-- (quote ...)) 512) ((eql --cl-var-- (quote 8388721)) 513) ((eql --cl-var-- (quote 8388727)) 514) ((memql --cl-var-- (quote ...)) 515) ((memql --cl-var-- (quote ...)) 516) ((eql --cl-var-- (quote 8388715)) 517) ((memql --cl-var-- (quote ...)) 518) ((memql --cl-var-- (quote ...)) 519) ((memql --cl-var-- (quote ...)) 520) ((memql --cl-var-- (quote ...)) 521) ((eql --cl-var-- (quote 109)) 522) ((eql --cl-var-- (quote 77)) 523) ((eql --cl-var-- (quote 46)) 1000) ((eql --cl-var-- (quote 119)) 1001) ((eql --cl-var-- (quote 103)) 1002) ((eql --cl-var-- (quote 116)) 1003) ((eql --cl-var-- (quote 121)) 1004) ((eql --cl
-var-- (quote 89)) 1005))))) (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time ...))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (rea
d-string "Month and year: " nil nil ...) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)
) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done."))))
abo-abo()
(cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time (current-time)))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month an
d year: " nil nil (format-time-string "%B %Y" ...)) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom
-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done.")))
(let* ((span (quote month)) start-day year (month (let ((--cl-var-- (read-event))) (cond ((memql --cl-var-- (quote ...)) 1) ((memql --cl-var-- (quote ...)) 2) ((memql --cl-var-- (quote ...)) 3) ((memql --cl-var-- (quote ...)) 4) ((memql --cl-var-- (quote ...)) 5) ((memql --cl-var-- (quote ...)) 6) ((memql --cl-var-- (quote ...)) 7) ((memql --cl-var-- (quote ...)) 8) ((memql --cl-var-- (quote ...)) 9) ((memql --cl-var-- (quote ...)) 10) ((memql --cl-var-- (quote ...)) 11) ((memql --cl-var-- (quote ...)) 12) ((memql --cl-var-- (quote ...)) 500) ((memql --cl-var-- (quote ...)) 501) ((memql --cl-var-- (quote ...)) 502) ((memql --cl-var-- (quote ...)) 503) ((memql --cl-var-- (quote ...)) 504) ((memql --cl-var-- (quote ...)) 505) ((memql --cl-var-- (quote ...)) 506) ((memql --cl-var-- (quote .
..)) 507) ((eql --cl-var-- (quote 8388704)) 508) ((eql --cl-var-- (quote 8388734)) 509) ((eql --cl-var-- (quote 8388719)) 510) ((memql --cl-var-- (quote ...)) 511) ((memql --cl-var-- (quote ...)) 512) ((eql --cl-var-- (quote 8388721)) 513) ((eql --cl-var-- (quote 8388727)) 514) ((memql --cl-var-- (quote ...)) 515) ((memql --cl-var-- (quote ...)) 516) ((eql --cl-var-- (quote 8388715)) 517) ((memql --cl-var-- (quote ...)) 518) ((memql --cl-var-- (quote ...)) 519) ((memql --cl-var-- (quote ...)) 520) ((memql --cl-var-- (quote ...)) 521) ((eql --cl-var-- (quote 109)) 522) ((eql --cl-var-- (quote 77)) 523) ((eql --cl-var-- (quote 46)) 1000) ((eql --cl-var-- (quote 119)) 1001) ((eql --cl-var-- (quote 103)) 1002) ((eql --cl-var-- (quote 116)) 1003) ((eql --cl-var-- (quote 121)) 1004) ((eql --cl
-var-- (quote 89)) 1005))))) (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time ...))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (rea
d-string "Month and year: " nil nil ...) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)
) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done."))))
abo-abo()
(cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time (current-time)))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month an
d year: " nil nil (format-time-string "%B %Y" ...)) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom
-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done.")))
(let* ((span (quote month)) start-day year (month (let ((--cl-var-- (read-event))) (cond ((memql --cl-var-- (quote ...)) 1) ((memql --cl-var-- (quote ...)) 2) ((memql --cl-var-- (quote ...)) 3) ((memql --cl-var-- (quote ...)) 4) ((memql --cl-var-- (quote ...)) 5) ((memql --cl-var-- (quote ...)) 6) ((memql --cl-var-- (quote ...)) 7) ((memql --cl-var-- (quote ...)) 8) ((memql --cl-var-- (quote ...)) 9) ((memql --cl-var-- (quote ...)) 10) ((memql --cl-var-- (quote ...)) 11) ((memql --cl-var-- (quote ...)) 12) ((memql --cl-var-- (quote ...)) 500) ((memql --cl-var-- (quote ...)) 501) ((memql --cl-var-- (quote ...)) 502) ((memql --cl-var-- (quote ...)) 503) ((memql --cl-var-- (quote ...)) 504) ((memql --cl-var-- (quote ...)) 505) ((memql --cl-var-- (quote ...)) 506) ((memql --cl-var-- (quote .
..)) 507) ((eql --cl-var-- (quote 8388704)) 508) ((eql --cl-var-- (quote 8388734)) 509) ((eql --cl-var-- (quote 8388719)) 510) ((memql --cl-var-- (quote ...)) 511) ((memql --cl-var-- (quote ...)) 512) ((eql --cl-var-- (quote 8388721)) 513) ((eql --cl-var-- (quote 8388727)) 514) ((memql --cl-var-- (quote ...)) 515) ((memql --cl-var-- (quote ...)) 516) ((eql --cl-var-- (quote 8388715)) 517) ((memql --cl-var-- (quote ...)) 518) ((memql --cl-var-- (quote ...)) 519) ((memql --cl-var-- (quote ...)) 520) ((memql --cl-var-- (quote ...)) 521) ((eql --cl-var-- (quote 109)) 522) ((eql --cl-var-- (quote 77)) 523) ((eql --cl-var-- (quote 46)) 1000) ((eql --cl-var-- (quote 119)) 1001) ((eql --cl-var-- (quote 103)) 1002) ((eql --cl-var-- (quote 116)) 1003) ((eql --cl-var-- (quote 121)) 1004) ((eql --cl
-var-- (quote 89)) 1005))))) (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time ...))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (rea
d-string "Month and year: " nil nil ...) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)
) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done."))))
abo-abo()
(cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time (current-time)))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month an
d year: " nil nil (format-time-string "%B %Y" ...)) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom
-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done.")))
(let* ((span (quote month)) start-day year (month (let ((--cl-var-- (read-event))) (cond ((memql --cl-var-- (quote ...)) 1) ((memql --cl-var-- (quote ...)) 2) ((memql --cl-var-- (quote ...)) 3) ((memql --cl-var-- (quote ...)) 4) ((memql --cl-var-- (quote ...)) 5) ((memql --cl-var-- (quote ...)) 6) ((memql --cl-var-- (quote ...)) 7) ((memql --cl-var-- (quote ...)) 8) ((memql --cl-var-- (quote ...)) 9) ((memql --cl-var-- (quote ...)) 10) ((memql --cl-var-- (quote ...)) 11) ((memql --cl-var-- (quote ...)) 12) ((memql --cl-var-- (quote ...)) 500) ((memql --cl-var-- (quote ...)) 501) ((memql --cl-var-- (quote ...)) 502) ((memql --cl-var-- (quote ...)) 503) ((memql --cl-var-- (quote ...)) 504) ((memql --cl-var-- (quote ...)) 505) ((memql --cl-var-- (quote ...)) 506) ((memql --cl-var-- (quote .
..)) 507) ((eql --cl-var-- (quote 8388704)) 508) ((eql --cl-var-- (quote 8388734)) 509) ((eql --cl-var-- (quote 8388719)) 510) ((memql --cl-var-- (quote ...)) 511) ((memql --cl-var-- (quote ...)) 512) ((eql --cl-var-- (quote 8388721)) 513) ((eql --cl-var-- (quote 8388727)) 514) ((memql --cl-var-- (quote ...)) 515) ((memql --cl-var-- (quote ...)) 516) ((eql --cl-var-- (quote 8388715)) 517) ((memql --cl-var-- (quote ...)) 518) ((memql --cl-var-- (quote ...)) 519) ((memql --cl-var-- (quote ...)) 520) ((memql --cl-var-- (quote ...)) 521) ((eql --cl-var-- (quote 109)) 522) ((eql --cl-var-- (quote 77)) 523) ((eql --cl-var-- (quote 46)) 1000) ((eql --cl-var-- (quote 119)) 1001) ((eql --cl-var-- (quote 103)) 1002) ((eql --cl-var-- (quote 116)) 1003) ((eql --cl-var-- (quote 121)) 1004) ((eql --cl
-var-- (quote 89)) 1005))))) (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time ...))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (rea
d-string "Month and year: " nil nil ...) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)
) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done."))))
abo-abo()
(cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time (current-time)))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month an
d year: " nil nil (format-time-string "%B %Y" ...)) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom
-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done.")))
(let* ((span (quote month)) start-day year (month (let ((--cl-var-- (read-event))) (cond ((memql --cl-var-- (quote ...)) 1) ((memql --cl-var-- (quote ...)) 2) ((memql --cl-var-- (quote ...)) 3) ((memql --cl-var-- (quote ...)) 4) ((memql --cl-var-- (quote ...)) 5) ((memql --cl-var-- (quote ...)) 6) ((memql --cl-var-- (quote ...)) 7) ((memql --cl-var-- (quote ...)) 8) ((memql --cl-var-- (quote ...)) 9) ((memql --cl-var-- (quote ...)) 10) ((memql --cl-var-- (quote ...)) 11) ((memql --cl-var-- (quote ...)) 12) ((memql --cl-var-- (quote ...)) 500) ((memql --cl-var-- (quote ...)) 501) ((memql --cl-var-- (quote ...)) 502) ((memql --cl-var-- (quote ...)) 503) ((memql --cl-var-- (quote ...)) 504) ((memql --cl-var-- (quote ...)) 505) ((memql --cl-var-- (quote ...)) 506) ((memql --cl-var-- (quote .
..)) 507) ((eql --cl-var-- (quote 8388704)) 508) ((eql --cl-var-- (quote 8388734)) 509) ((eql --cl-var-- (quote 8388719)) 510) ((memql --cl-var-- (quote ...)) 511) ((memql --cl-var-- (quote ...)) 512) ((eql --cl-var-- (quote 8388721)) 513) ((eql --cl-var-- (quote 8388727)) 514) ((memql --cl-var-- (quote ...)) 515) ((memql --cl-var-- (quote ...)) 516) ((eql --cl-var-- (quote 8388715)) 517) ((memql --cl-var-- (quote ...)) 518) ((memql --cl-var-- (quote ...)) 519) ((memql --cl-var-- (quote ...)) 520) ((memql --cl-var-- (quote ...)) 521) ((eql --cl-var-- (quote 109)) 522) ((eql --cl-var-- (quote 77)) 523) ((eql --cl-var-- (quote 46)) 1000) ((eql --cl-var-- (quote 119)) 1001) ((eql --cl-var-- (quote 103)) 1002) ((eql --cl-var-- (quote 116)) 1003) ((eql --cl-var-- (quote 121)) 1004) ((eql --cl
-var-- (quote 89)) 1005))))) (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time ...))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (rea
d-string "Month and year: " nil nil ...) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)
) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done."))))
abo-abo()
(cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time (current-time)))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month an
d year: " nil nil (format-time-string "%B %Y" ...)) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom
-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done.")))
(let* ((span (quote month)) start-day year (month (let ((--cl-var-- (read-event))) (cond ((memql --cl-var-- (quote ...)) 1) ((memql --cl-var-- (quote ...)) 2) ((memql --cl-var-- (quote ...)) 3) ((memql --cl-var-- (quote ...)) 4) ((memql --cl-var-- (quote ...)) 5) ((memql --cl-var-- (quote ...)) 6) ((memql --cl-var-- (quote ...)) 7) ((memql --cl-var-- (quote ...)) 8) ((memql --cl-var-- (quote ...)) 9) ((memql --cl-var-- (quote ...)) 10) ((memql --cl-var-- (quote ...)) 11) ((memql --cl-var-- (quote ...)) 12) ((memql --cl-var-- (quote ...)) 500) ((memql --cl-var-- (quote ...)) 501) ((memql --cl-var-- (quote ...)) 502) ((memql --cl-var-- (quote ...)) 503) ((memql --cl-var-- (quote ...)) 504) ((memql --cl-var-- (quote ...)) 505) ((memql --cl-var-- (quote ...)) 506) ((memql --cl-var-- (quote .
..)) 507) ((eql --cl-var-- (quote 8388704)) 508) ((eql --cl-var-- (quote 8388734)) 509) ((eql --cl-var-- (quote 8388719)) 510) ((memql --cl-var-- (quote ...)) 511) ((memql --cl-var-- (quote ...)) 512) ((eql --cl-var-- (quote 8388721)) 513) ((eql --cl-var-- (quote 8388727)) 514) ((memql --cl-var-- (quote ...)) 515) ((memql --cl-var-- (quote ...)) 516) ((eql --cl-var-- (quote 8388715)) 517) ((memql --cl-var-- (quote ...)) 518) ((memql --cl-var-- (quote ...)) 519) ((memql --cl-var-- (quote ...)) 520) ((memql --cl-var-- (quote ...)) 521) ((eql --cl-var-- (quote 109)) 522) ((eql --cl-var-- (quote 77)) 523) ((eql --cl-var-- (quote 46)) 1000) ((eql --cl-var-- (quote 119)) 1001) ((eql --cl-var-- (quote 103)) 1002) ((eql --cl-var-- (quote 116)) 1003) ((eql --cl-var-- (quote 121)) 1004) ((eql --cl
-var-- (quote 89)) 1005))))) (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time ...))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (rea
d-string "Month and year: " nil nil ...) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)
) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done."))))
abo-abo()
(cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time (current-time)))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month an
d year: " nil nil (format-time-string "%B %Y" ...)) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom
-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done.")))
(let* ((span (quote month)) start-day year (month (let ((--cl-var-- (read-event))) (cond ((memql --cl-var-- (quote ...)) 1) ((memql --cl-var-- (quote ...)) 2) ((memql --cl-var-- (quote ...)) 3) ((memql --cl-var-- (quote ...)) 4) ((memql --cl-var-- (quote ...)) 5) ((memql --cl-var-- (quote ...)) 6) ((memql --cl-var-- (quote ...)) 7) ((memql --cl-var-- (quote ...)) 8) ((memql --cl-var-- (quote ...)) 9) ((memql --cl-var-- (quote ...)) 10) ((memql --cl-var-- (quote ...)) 11) ((memql --cl-var-- (quote ...)) 12) ((memql --cl-var-- (quote ...)) 500) ((memql --cl-var-- (quote ...)) 501) ((memql --cl-var-- (quote ...)) 502) ((memql --cl-var-- (quote ...)) 503) ((memql --cl-var-- (quote ...)) 504) ((memql --cl-var-- (quote ...)) 505) ((memql --cl-var-- (quote ...)) 506) ((memql --cl-var-- (quote .
..)) 507) ((eql --cl-var-- (quote 8388704)) 508) ((eql --cl-var-- (quote 8388734)) 509) ((eql --cl-var-- (quote 8388719)) 510) ((memql --cl-var-- (quote ...)) 511) ((memql --cl-var-- (quote ...)) 512) ((eql --cl-var-- (quote 8388721)) 513) ((eql --cl-var-- (quote 8388727)) 514) ((memql --cl-var-- (quote ...)) 515) ((memql --cl-var-- (quote ...)) 516) ((eql --cl-var-- (quote 8388715)) 517) ((memql --cl-var-- (quote ...)) 518) ((memql --cl-var-- (quote ...)) 519) ((memql --cl-var-- (quote ...)) 520) ((memql --cl-var-- (quote ...)) 521) ((eql --cl-var-- (quote 109)) 522) ((eql --cl-var-- (quote 77)) 523) ((eql --cl-var-- (quote 46)) 1000) ((eql --cl-var-- (quote 119)) 1001) ((eql --cl-var-- (quote 103)) 1002) ((eql --cl-var-- (quote 116)) 1003) ((eql --cl-var-- (quote 121)) 1004) ((eql --cl
-var-- (quote 89)) 1005))))) (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time ...))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (rea
d-string "Month and year: " nil nil ...) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)
) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done."))))
abo-abo()
(cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time (current-time)))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month an
d year: " nil nil (format-time-string "%B %Y" ...)) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom
-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done.")))
(let* ((span (quote month)) start-day year (month (let ((--cl-var-- (read-event))) (cond ((memql --cl-var-- (quote ...)) 1) ((memql --cl-var-- (quote ...)) 2) ((memql --cl-var-- (quote ...)) 3) ((memql --cl-var-- (quote ...)) 4) ((memql --cl-var-- (quote ...)) 5) ((memql --cl-var-- (quote ...)) 6) ((memql --cl-var-- (quote ...)) 7) ((memql --cl-var-- (quote ...)) 8) ((memql --cl-var-- (quote ...)) 9) ((memql --cl-var-- (quote ...)) 10) ((memql --cl-var-- (quote ...)) 11) ((memql --cl-var-- (quote ...)) 12) ((memql --cl-var-- (quote ...)) 500) ((memql --cl-var-- (quote ...)) 501) ((memql --cl-var-- (quote ...)) 502) ((memql --cl-var-- (quote ...)) 503) ((memql --cl-var-- (quote ...)) 504) ((memql --cl-var-- (quote ...)) 505) ((memql --cl-var-- (quote ...)) 506) ((memql --cl-var-- (quote .
..)) 507) ((eql --cl-var-- (quote 8388704)) 508) ((eql --cl-var-- (quote 8388734)) 509) ((eql --cl-var-- (quote 8388719)) 510) ((memql --cl-var-- (quote ...)) 511) ((memql --cl-var-- (quote ...)) 512) ((eql --cl-var-- (quote 8388721)) 513) ((eql --cl-var-- (quote 8388727)) 514) ((memql --cl-var-- (quote ...)) 515) ((memql --cl-var-- (quote ...)) 516) ((eql --cl-var-- (quote 8388715)) 517) ((memql --cl-var-- (quote ...)) 518) ((memql --cl-var-- (quote ...)) 519) ((memql --cl-var-- (quote ...)) 520) ((memql --cl-var-- (quote ...)) 521) ((eql --cl-var-- (quote 109)) 522) ((eql --cl-var-- (quote 77)) 523) ((eql --cl-var-- (quote 46)) 1000) ((eql --cl-var-- (quote 119)) 1001) ((eql --cl-var-- (quote 103)) 1002) ((eql --cl-var-- (quote 116)) 1003) ((eql --cl-var-- (quote 121)) 1004) ((eql --cl
-var-- (quote 89)) 1005))))) (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time ...))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (rea
d-string "Month and year: " nil nil ...) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)
) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done."))))
abo-abo()
(cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time (current-time)))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month an
d year: " nil nil (format-time-string "%B %Y" ...)) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom
-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done.")))
(let* ((span (quote month)) start-day year (month (let ((--cl-var-- (read-event))) (cond ((memql --cl-var-- (quote ...)) 1) ((memql --cl-var-- (quote ...)) 2) ((memql --cl-var-- (quote ...)) 3) ((memql --cl-var-- (quote ...)) 4) ((memql --cl-var-- (quote ...)) 5) ((memql --cl-var-- (quote ...)) 6) ((memql --cl-var-- (quote ...)) 7) ((memql --cl-var-- (quote ...)) 8) ((memql --cl-var-- (quote ...)) 9) ((memql --cl-var-- (quote ...)) 10) ((memql --cl-var-- (quote ...)) 11) ((memql --cl-var-- (quote ...)) 12) ((memql --cl-var-- (quote ...)) 500) ((memql --cl-var-- (quote ...)) 501) ((memql --cl-var-- (quote ...)) 502) ((memql --cl-var-- (quote ...)) 503) ((memql --cl-var-- (quote ...)) 504) ((memql --cl-var-- (quote ...)) 505) ((memql --cl-var-- (quote ...)) 506) ((memql --cl-var-- (quote .
..)) 507) ((eql --cl-var-- (quote 8388704)) 508) ((eql --cl-var-- (quote 8388734)) 509) ((eql --cl-var-- (quote 8388719)) 510) ((memql --cl-var-- (quote ...)) 511) ((memql --cl-var-- (quote ...)) 512) ((eql --cl-var-- (quote 8388721)) 513) ((eql --cl-var-- (quote 8388727)) 514) ((memql --cl-var-- (quote ...)) 515) ((memql --cl-var-- (quote ...)) 516) ((eql --cl-var-- (quote 8388715)) 517) ((memql --cl-var-- (quote ...)) 518) ((memql --cl-var-- (quote ...)) 519) ((memql --cl-var-- (quote ...)) 520) ((memql --cl-var-- (quote ...)) 521) ((eql --cl-var-- (quote 109)) 522) ((eql --cl-var-- (quote 77)) 523) ((eql --cl-var-- (quote 46)) 1000) ((eql --cl-var-- (quote 119)) 1001) ((eql --cl-var-- (quote 103)) 1002) ((eql --cl-var-- (quote 116)) 1003) ((eql --cl-var-- (quote 121)) 1004) ((eql --cl
-var-- (quote 89)) 1005))))) (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time ...))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (rea
d-string "Month and year: " nil nil ...) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)
) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done."))))
abo-abo()
(cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time (current-time)))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month an
d year: " nil nil (format-time-string "%B %Y" ...)) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom
-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done.")))
(let* ((span (quote month)) start-day year (month (let ((--cl-var-- (read-event))) (cond ((memql --cl-var-- (quote ...)) 1) ((memql --cl-var-- (quote ...)) 2) ((memql --cl-var-- (quote ...)) 3) ((memql --cl-var-- (quote ...)) 4) ((memql --cl-var-- (quote ...)) 5) ((memql --cl-var-- (quote ...)) 6) ((memql --cl-var-- (quote ...)) 7) ((memql --cl-var-- (quote ...)) 8) ((memql --cl-var-- (quote ...)) 9) ((memql --cl-var-- (quote ...)) 10) ((memql --cl-var-- (quote ...)) 11) ((memql --cl-var-- (quote ...)) 12) ((memql --cl-var-- (quote ...)) 500) ((memql --cl-var-- (quote ...)) 501) ((memql --cl-var-- (quote ...)) 502) ((memql --cl-var-- (quote ...)) 503) ((memql --cl-var-- (quote ...)) 504) ((memql --cl-var-- (quote ...)) 505) ((memql --cl-var-- (quote ...)) 506) ((memql --cl-var-- (quote .
..)) 507) ((eql --cl-var-- (quote 8388704)) 508) ((eql --cl-var-- (quote 8388734)) 509) ((eql --cl-var-- (quote 8388719)) 510) ((memql --cl-var-- (quote ...)) 511) ((memql --cl-var-- (quote ...)) 512) ((eql --cl-var-- (quote 8388721)) 513) ((eql --cl-var-- (quote 8388727)) 514) ((memql --cl-var-- (quote ...)) 515) ((memql --cl-var-- (quote ...)) 516) ((eql --cl-var-- (quote 8388715)) 517) ((memql --cl-var-- (quote ...)) 518) ((memql --cl-var-- (quote ...)) 519) ((memql --cl-var-- (quote ...)) 520) ((memql --cl-var-- (quote ...)) 521) ((eql --cl-var-- (quote 109)) 522) ((eql --cl-var-- (quote 77)) 523) ((eql --cl-var-- (quote 46)) 1000) ((eql --cl-var-- (quote 119)) 1001) ((eql --cl-var-- (quote 103)) 1002) ((eql --cl-var-- (quote 116)) 1003) ((eql --cl-var-- (quote 121)) 1004) ((eql --cl
-var-- (quote 89)) 1005))))) (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time ...))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (rea
d-string "Month and year: " nil nil ...) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)
) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done."))))
abo-abo()
(cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time (current-time)))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month an
d year: " nil nil (format-time-string "%B %Y" ...)) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom
-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done.")))
(let* ((span (quote month)) start-day year (month (let ((--cl-var-- (read-event))) (cond ((memql --cl-var-- (quote ...)) 1) ((memql --cl-var-- (quote ...)) 2) ((memql --cl-var-- (quote ...)) 3) ((memql --cl-var-- (quote ...)) 4) ((memql --cl-var-- (quote ...)) 5) ((memql --cl-var-- (quote ...)) 6) ((memql --cl-var-- (quote ...)) 7) ((memql --cl-var-- (quote ...)) 8) ((memql --cl-var-- (quote ...)) 9) ((memql --cl-var-- (quote ...)) 10) ((memql --cl-var-- (quote ...)) 11) ((memql --cl-var-- (quote ...)) 12) ((memql --cl-var-- (quote ...)) 500) ((memql --cl-var-- (quote ...)) 501) ((memql --cl-var-- (quote ...)) 502) ((memql --cl-var-- (quote ...)) 503) ((memql --cl-var-- (quote ...)) 504) ((memql --cl-var-- (quote ...)) 505) ((memql --cl-var-- (quote ...)) 506) ((memql --cl-var-- (quote .
..)) 507) ((eql --cl-var-- (quote 8388704)) 508) ((eql --cl-var-- (quote 8388734)) 509) ((eql --cl-var-- (quote 8388719)) 510) ((memql --cl-var-- (quote ...)) 511) ((memql --cl-var-- (quote ...)) 512) ((eql --cl-var-- (quote 8388721)) 513) ((eql --cl-var-- (quote 8388727)) 514) ((memql --cl-var-- (quote ...)) 515) ((memql --cl-var-- (quote ...)) 516) ((eql --cl-var-- (quote 8388715)) 517) ((memql --cl-var-- (quote ...)) 518) ((memql --cl-var-- (quote ...)) 519) ((memql --cl-var-- (quote ...)) 520) ((memql --cl-var-- (quote ...)) 521) ((eql --cl-var-- (quote 109)) 522) ((eql --cl-var-- (quote 77)) 523) ((eql --cl-var-- (quote 46)) 1000) ((eql --cl-var-- (quote 119)) 1001) ((eql --cl-var-- (quote 103)) 1002) ((eql --cl-var-- (quote 116)) 1003) ((eql --cl-var-- (quote 121)) 1004) ((eql --cl
-var-- (quote 89)) 1005))))) (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time ...))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (rea
d-string "Month and year: " nil nil ...) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)
) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done."))))
abo-abo()
(cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time (current-time)))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month an
d year: " nil nil (format-time-string "%B %Y" ...)) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom
-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done.")))
(let* ((span (quote month)) start-day year (month (let ((--cl-var-- (read-event))) (cond ((memql --cl-var-- (quote ...)) 1) ((memql --cl-var-- (quote ...)) 2) ((memql --cl-var-- (quote ...)) 3) ((memql --cl-var-- (quote ...)) 4) ((memql --cl-var-- (quote ...)) 5) ((memql --cl-var-- (quote ...)) 6) ((memql --cl-var-- (quote ...)) 7) ((memql --cl-var-- (quote ...)) 8) ((memql --cl-var-- (quote ...)) 9) ((memql --cl-var-- (quote ...)) 10) ((memql --cl-var-- (quote ...)) 11) ((memql --cl-var-- (quote ...)) 12) ((memql --cl-var-- (quote ...)) 500) ((memql --cl-var-- (quote ...)) 501) ((memql --cl-var-- (quote ...)) 502) ((memql --cl-var-- (quote ...)) 503) ((memql --cl-var-- (quote ...)) 504) ((memql --cl-var-- (quote ...)) 505) ((memql --cl-var-- (quote ...)) 506) ((memql --cl-var-- (quote .
..)) 507) ((eql --cl-var-- (quote 8388704)) 508) ((eql --cl-var-- (quote 8388734)) 509) ((eql --cl-var-- (quote 8388719)) 510) ((memql --cl-var-- (quote ...)) 511) ((memql --cl-var-- (quote ...)) 512) ((eql --cl-var-- (quote 8388721)) 513) ((eql --cl-var-- (quote 8388727)) 514) ((memql --cl-var-- (quote ...)) 515) ((memql --cl-var-- (quote ...)) 516) ((eql --cl-var-- (quote 8388715)) 517) ((memql --cl-var-- (quote ...)) 518) ((memql --cl-var-- (quote ...)) 519) ((memql --cl-var-- (quote ...)) 520) ((memql --cl-var-- (quote ...)) 521) ((eql --cl-var-- (quote 109)) 522) ((eql --cl-var-- (quote 77)) 523) ((eql --cl-var-- (quote 46)) 1000) ((eql --cl-var-- (quote 119)) 1001) ((eql --cl-var-- (quote 103)) 1002) ((eql --cl-var-- (quote 116)) 1003) ((eql --cl-var-- (quote 121)) 1004) ((eql --cl
-var-- (quote 89)) 1005))))) (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time ...))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (rea
d-string "Month and year: " nil nil ...) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)
) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done."))))
abo-abo()
(cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time (current-time)))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month an
d year: " nil nil (format-time-string "%B %Y" ...)) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom
-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done.")))
(let* ((span (quote month)) start-day year (month (let ((--cl-var-- (read-event))) (cond ((memql --cl-var-- (quote ...)) 1) ((memql --cl-var-- (quote ...)) 2) ((memql --cl-var-- (quote ...)) 3) ((memql --cl-var-- (quote ...)) 4) ((memql --cl-var-- (quote ...)) 5) ((memql --cl-var-- (quote ...)) 6) ((memql --cl-var-- (quote ...)) 7) ((memql --cl-var-- (quote ...)) 8) ((memql --cl-var-- (quote ...)) 9) ((memql --cl-var-- (quote ...)) 10) ((memql --cl-var-- (quote ...)) 11) ((memql --cl-var-- (quote ...)) 12) ((memql --cl-var-- (quote ...)) 500) ((memql --cl-var-- (quote ...)) 501) ((memql --cl-var-- (quote ...)) 502) ((memql --cl-var-- (quote ...)) 503) ((memql --cl-var-- (quote ...)) 504) ((memql --cl-var-- (quote ...)) 505) ((memql --cl-var-- (quote ...)) 506) ((memql --cl-var-- (quote .
..)) 507) ((eql --cl-var-- (quote 8388704)) 508) ((eql --cl-var-- (quote 8388734)) 509) ((eql --cl-var-- (quote 8388719)) 510) ((memql --cl-var-- (quote ...)) 511) ((memql --cl-var-- (quote ...)) 512) ((eql --cl-var-- (quote 8388721)) 513) ((eql --cl-var-- (quote 8388727)) 514) ((memql --cl-var-- (quote ...)) 515) ((memql --cl-var-- (quote ...)) 516) ((eql --cl-var-- (quote 8388715)) 517) ((memql --cl-var-- (quote ...)) 518) ((memql --cl-var-- (quote ...)) 519) ((memql --cl-var-- (quote ...)) 520) ((memql --cl-var-- (quote ...)) 521) ((eql --cl-var-- (quote 109)) 522) ((eql --cl-var-- (quote 77)) 523) ((eql --cl-var-- (quote 46)) 1000) ((eql --cl-var-- (quote 119)) 1001) ((eql --cl-var-- (quote 103)) 1002) ((eql --cl-var-- (quote 116)) 1003) ((eql --cl-var-- (quote 121)) 1004) ((eql --cl
-var-- (quote 89)) 1005))))) (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time ...))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (rea
d-string "Month and year: " nil nil ...) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)
) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done."))))
abo-abo()
(cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time (current-time)))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month an
d year: " nil nil (format-time-string "%B %Y" ...)) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom
-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done.")))
(let* ((span (quote month)) start-day year (month (let ((--cl-var-- (read-event))) (cond ((memql --cl-var-- (quote ...)) 1) ((memql --cl-var-- (quote ...)) 2) ((memql --cl-var-- (quote ...)) 3) ((memql --cl-var-- (quote ...)) 4) ((memql --cl-var-- (quote ...)) 5) ((memql --cl-var-- (quote ...)) 6) ((memql --cl-var-- (quote ...)) 7) ((memql --cl-var-- (quote ...)) 8) ((memql --cl-var-- (quote ...)) 9) ((memql --cl-var-- (quote ...)) 10) ((memql --cl-var-- (quote ...)) 11) ((memql --cl-var-- (quote ...)) 12) ((memql --cl-var-- (quote ...)) 500) ((memql --cl-var-- (quote ...)) 501) ((memql --cl-var-- (quote ...)) 502) ((memql --cl-var-- (quote ...)) 503) ((memql --cl-var-- (quote ...)) 504) ((memql --cl-var-- (quote ...)) 505) ((memql --cl-var-- (quote ...)) 506) ((memql --cl-var-- (quote .
..)) 507) ((eql --cl-var-- (quote 8388704)) 508) ((eql --cl-var-- (quote 8388734)) 509) ((eql --cl-var-- (quote 8388719)) 510) ((memql --cl-var-- (quote ...)) 511) ((memql --cl-var-- (quote ...)) 512) ((eql --cl-var-- (quote 8388721)) 513) ((eql --cl-var-- (quote 8388727)) 514) ((memql --cl-var-- (quote ...)) 515) ((memql --cl-var-- (quote ...)) 516) ((eql --cl-var-- (quote 8388715)) 517) ((memql --cl-var-- (quote ...)) 518) ((memql --cl-var-- (quote ...)) 519) ((memql --cl-var-- (quote ...)) 520) ((memql --cl-var-- (quote ...)) 521) ((eql --cl-var-- (quote 109)) 522) ((eql --cl-var-- (quote 77)) 523) ((eql --cl-var-- (quote 46)) 1000) ((eql --cl-var-- (quote 119)) 1001) ((eql --cl-var-- (quote 103)) 1002) ((eql --cl-var-- (quote 116)) 1003) ((eql --cl-var-- (quote 121)) 1004) ((eql --cl
-var-- (quote 89)) 1005))))) (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time ...))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (rea
d-string "Month and year: " nil nil ...) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)
) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done."))))
abo-abo()
(cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time (current-time)))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month an
d year: " nil nil (format-time-string "%B %Y" ...)) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom
-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done.")))
(let* ((span (quote month)) start-day year (month (let ((--cl-var-- (read-event))) (cond ((memql --cl-var-- (quote ...)) 1) ((memql --cl-var-- (quote ...)) 2) ((memql --cl-var-- (quote ...)) 3) ((memql --cl-var-- (quote ...)) 4) ((memql --cl-var-- (quote ...)) 5) ((memql --cl-var-- (quote ...)) 6) ((memql --cl-var-- (quote ...)) 7) ((memql --cl-var-- (quote ...)) 8) ((memql --cl-var-- (quote ...)) 9) ((memql --cl-var-- (quote ...)) 10) ((memql --cl-var-- (quote ...)) 11) ((memql --cl-var-- (quote ...)) 12) ((memql --cl-var-- (quote ...)) 500) ((memql --cl-var-- (quote ...)) 501) ((memql --cl-var-- (quote ...)) 502) ((memql --cl-var-- (quote ...)) 503) ((memql --cl-var-- (quote ...)) 504) ((memql --cl-var-- (quote ...)) 505) ((memql --cl-var-- (quote ...)) 506) ((memql --cl-var-- (quote .
..)) 507) ((eql --cl-var-- (quote 8388704)) 508) ((eql --cl-var-- (quote 8388734)) 509) ((eql --cl-var-- (quote 8388719)) 510) ((memql --cl-var-- (quote ...)) 511) ((memql --cl-var-- (quote ...)) 512) ((eql --cl-var-- (quote 8388721)) 513) ((eql --cl-var-- (quote 8388727)) 514) ((memql --cl-var-- (quote ...)) 515) ((memql --cl-var-- (quote ...)) 516) ((eql --cl-var-- (quote 8388715)) 517) ((memql --cl-var-- (quote ...)) 518) ((memql --cl-var-- (quote ...)) 519) ((memql --cl-var-- (quote ...)) 520) ((memql --cl-var-- (quote ...)) 521) ((eql --cl-var-- (quote 109)) 522) ((eql --cl-var-- (quote 77)) 523) ((eql --cl-var-- (quote 46)) 1000) ((eql --cl-var-- (quote 119)) 1001) ((eql --cl-var-- (quote 103)) 1002) ((eql --cl-var-- (quote 116)) 1003) ((eql --cl-var-- (quote 121)) 1004) ((eql --cl
-var-- (quote 89)) 1005))))) (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time ...))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (rea
d-string "Month and year: " nil nil ...) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)
) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done."))))
abo-abo()
(cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time (current-time)))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month an
d year: " nil nil (format-time-string "%B %Y" ...)) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom
-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done.")))
(let* ((span (quote month)) start-day year (month (let ((--cl-var-- (read-event))) (cond ((memql --cl-var-- (quote ...)) 1) ((memql --cl-var-- (quote ...)) 2) ((memql --cl-var-- (quote ...)) 3) ((memql --cl-var-- (quote ...)) 4) ((memql --cl-var-- (quote ...)) 5) ((memql --cl-var-- (quote ...)) 6) ((memql --cl-var-- (quote ...)) 7) ((memql --cl-var-- (quote ...)) 8) ((memql --cl-var-- (quote ...)) 9) ((memql --cl-var-- (quote ...)) 10) ((memql --cl-var-- (quote ...)) 11) ((memql --cl-var-- (quote ...)) 12) ((memql --cl-var-- (quote ...)) 500) ((memql --cl-var-- (quote ...)) 501) ((memql --cl-var-- (quote ...)) 502) ((memql --cl-var-- (quote ...)) 503) ((memql --cl-var-- (quote ...)) 504) ((memql --cl-var-- (quote ...)) 505) ((memql --cl-var-- (quote ...)) 506) ((memql --cl-var-- (quote .
..)) 507) ((eql --cl-var-- (quote 8388704)) 508) ((eql --cl-var-- (quote 8388734)) 509) ((eql --cl-var-- (quote 8388719)) 510) ((memql --cl-var-- (quote ...)) 511) ((memql --cl-var-- (quote ...)) 512) ((eql --cl-var-- (quote 8388721)) 513) ((eql --cl-var-- (quote 8388727)) 514) ((memql --cl-var-- (quote ...)) 515) ((memql --cl-var-- (quote ...)) 516) ((eql --cl-var-- (quote 8388715)) 517) ((memql --cl-var-- (quote ...)) 518) ((memql --cl-var-- (quote ...)) 519) ((memql --cl-var-- (quote ...)) 520) ((memql --cl-var-- (quote ...)) 521) ((eql --cl-var-- (quote 109)) 522) ((eql --cl-var-- (quote 77)) 523) ((eql --cl-var-- (quote 46)) 1000) ((eql --cl-var-- (quote 119)) 1001) ((eql --cl-var-- (quote 103)) 1002) ((eql --cl-var-- (quote 116)) 1003) ((eql --cl-var-- (quote 121)) 1004) ((eql --cl
-var-- (quote 89)) 1005))))) (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time ...))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (rea
d-string "Month and year: " nil nil ...) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)
) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done."))))
abo-abo()
(cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time (current-time)))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month an
d year: " nil nil (format-time-string "%B %Y" ...)) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom
-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done.")))
(let* ((span (quote month)) start-day year (month (let ((--cl-var-- (read-event))) (cond ((memql --cl-var-- (quote ...)) 1) ((memql --cl-var-- (quote ...)) 2) ((memql --cl-var-- (quote ...)) 3) ((memql --cl-var-- (quote ...)) 4) ((memql --cl-var-- (quote ...)) 5) ((memql --cl-var-- (quote ...)) 6) ((memql --cl-var-- (quote ...)) 7) ((memql --cl-var-- (quote ...)) 8) ((memql --cl-var-- (quote ...)) 9) ((memql --cl-var-- (quote ...)) 10) ((memql --cl-var-- (quote ...)) 11) ((memql --cl-var-- (quote ...)) 12) ((memql --cl-var-- (quote ...)) 500) ((memql --cl-var-- (quote ...)) 501) ((memql --cl-var-- (quote ...)) 502) ((memql --cl-var-- (quote ...)) 503) ((memql --cl-var-- (quote ...)) 504) ((memql --cl-var-- (quote ...)) 505) ((memql --cl-var-- (quote ...)) 506) ((memql --cl-var-- (quote .
..)) 507) ((eql --cl-var-- (quote 8388704)) 508) ((eql --cl-var-- (quote 8388734)) 509) ((eql --cl-var-- (quote 8388719)) 510) ((memql --cl-var-- (quote ...)) 511) ((memql --cl-var-- (quote ...)) 512) ((eql --cl-var-- (quote 8388721)) 513) ((eql --cl-var-- (quote 8388727)) 514) ((memql --cl-var-- (quote ...)) 515) ((memql --cl-var-- (quote ...)) 516) ((eql --cl-var-- (quote 8388715)) 517) ((memql --cl-var-- (quote ...)) 518) ((memql --cl-var-- (quote ...)) 519) ((memql --cl-var-- (quote ...)) 520) ((memql --cl-var-- (quote ...)) 521) ((eql --cl-var-- (quote 109)) 522) ((eql --cl-var-- (quote 77)) 523) ((eql --cl-var-- (quote 46)) 1000) ((eql --cl-var-- (quote 119)) 1001) ((eql --cl-var-- (quote 103)) 1002) ((eql --cl-var-- (quote 116)) 1003) ((eql --cl-var-- (quote 121)) 1004) ((eql --cl
-var-- (quote 89)) 1005))))) (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time ...))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (rea
d-string "Month and year: " nil nil ...) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)
) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done."))))
abo-abo()
(cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time (current-time)))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month an
d year: " nil nil (format-time-string "%B %Y" ...)) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom
-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done.")))
(let* ((span (quote month)) start-day year (month (let ((--cl-var-- (read-event))) (cond ((memql --cl-var-- (quote ...)) 1) ((memql --cl-var-- (quote ...)) 2) ((memql --cl-var-- (quote ...)) 3) ((memql --cl-var-- (quote ...)) 4) ((memql --cl-var-- (quote ...)) 5) ((memql --cl-var-- (quote ...)) 6) ((memql --cl-var-- (quote ...)) 7) ((memql --cl-var-- (quote ...)) 8) ((memql --cl-var-- (quote ...)) 9) ((memql --cl-var-- (quote ...)) 10) ((memql --cl-var-- (quote ...)) 11) ((memql --cl-var-- (quote ...)) 12) ((memql --cl-var-- (quote ...)) 500) ((memql --cl-var-- (quote ...)) 501) ((memql --cl-var-- (quote ...)) 502) ((memql --cl-var-- (quote ...)) 503) ((memql --cl-var-- (quote ...)) 504) ((memql --cl-var-- (quote ...)) 505) ((memql --cl-var-- (quote ...)) 506) ((memql --cl-var-- (quote .
..)) 507) ((eql --cl-var-- (quote 8388704)) 508) ((eql --cl-var-- (quote 8388734)) 509) ((eql --cl-var-- (quote 8388719)) 510) ((memql --cl-var-- (quote ...)) 511) ((memql --cl-var-- (quote ...)) 512) ((eql --cl-var-- (quote 8388721)) 513) ((eql --cl-var-- (quote 8388727)) 514) ((memql --cl-var-- (quote ...)) 515) ((memql --cl-var-- (quote ...)) 516) ((eql --cl-var-- (quote 8388715)) 517) ((memql --cl-var-- (quote ...)) 518) ((memql --cl-var-- (quote ...)) 519) ((memql --cl-var-- (quote ...)) 520) ((memql --cl-var-- (quote ...)) 521) ((eql --cl-var-- (quote 109)) 522) ((eql --cl-var-- (quote 77)) 523) ((eql --cl-var-- (quote 46)) 1000) ((eql --cl-var-- (quote 119)) 1001) ((eql --cl-var-- (quote 103)) 1002) ((eql --cl-var-- (quote 116)) 1003) ((eql --cl-var-- (quote 121)) 1004) ((eql --cl
-var-- (quote 89)) 1005))))) (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time ...))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (rea
d-string "Month and year: " nil nil ...) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)
) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done."))))
abo-abo()
(cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time (current-time)))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month an
d year: " nil nil (format-time-string "%B %Y" ...)) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom
-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done.")))
(let* ((span (quote month)) start-day year (month (let ((--cl-var-- (read-event))) (cond ((memql --cl-var-- (quote ...)) 1) ((memql --cl-var-- (quote ...)) 2) ((memql --cl-var-- (quote ...)) 3) ((memql --cl-var-- (quote ...)) 4) ((memql --cl-var-- (quote ...)) 5) ((memql --cl-var-- (quote ...)) 6) ((memql --cl-var-- (quote ...)) 7) ((memql --cl-var-- (quote ...)) 8) ((memql --cl-var-- (quote ...)) 9) ((memql --cl-var-- (quote ...)) 10) ((memql --cl-var-- (quote ...)) 11) ((memql --cl-var-- (quote ...)) 12) ((memql --cl-var-- (quote ...)) 500) ((memql --cl-var-- (quote ...)) 501) ((memql --cl-var-- (quote ...)) 502) ((memql --cl-var-- (quote ...)) 503) ((memql --cl-var-- (quote ...)) 504) ((memql --cl-var-- (quote ...)) 505) ((memql --cl-var-- (quote ...)) 506) ((memql --cl-var-- (quote .
..)) 507) ((eql --cl-var-- (quote 8388704)) 508) ((eql --cl-var-- (quote 8388734)) 509) ((eql --cl-var-- (quote 8388719)) 510) ((memql --cl-var-- (quote ...)) 511) ((memql --cl-var-- (quote ...)) 512) ((eql --cl-var-- (quote 8388721)) 513) ((eql --cl-var-- (quote 8388727)) 514) ((memql --cl-var-- (quote ...)) 515) ((memql --cl-var-- (quote ...)) 516) ((eql --cl-var-- (quote 8388715)) 517) ((memql --cl-var-- (quote ...)) 518) ((memql --cl-var-- (quote ...)) 519) ((memql --cl-var-- (quote ...)) 520) ((memql --cl-var-- (quote ...)) 521) ((eql --cl-var-- (quote 109)) 522) ((eql --cl-var-- (quote 77)) 523) ((eql --cl-var-- (quote 46)) 1000) ((eql --cl-var-- (quote 119)) 1001) ((eql --cl-var-- (quote 103)) 1002) ((eql --cl-var-- (quote 116)) 1003) ((eql --cl-var-- (quote 121)) 1004) ((eql --cl
-var-- (quote 89)) 1005))))) (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time ...))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (rea
d-string "Month and year: " nil nil ...) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)
) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done."))))
abo-abo()
(cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time (current-time)))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month an
d year: " nil nil (format-time-string "%B %Y" ...)) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom
-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done.")))
(let* ((span (quote month)) start-day year (month (let ((--cl-var-- (read-event))) (cond ((memql --cl-var-- (quote ...)) 1) ((memql --cl-var-- (quote ...)) 2) ((memql --cl-var-- (quote ...)) 3) ((memql --cl-var-- (quote ...)) 4) ((memql --cl-var-- (quote ...)) 5) ((memql --cl-var-- (quote ...)) 6) ((memql --cl-var-- (quote ...)) 7) ((memql --cl-var-- (quote ...)) 8) ((memql --cl-var-- (quote ...)) 9) ((memql --cl-var-- (quote ...)) 10) ((memql --cl-var-- (quote ...)) 11) ((memql --cl-var-- (quote ...)) 12) ((memql --cl-var-- (quote ...)) 500) ((memql --cl-var-- (quote ...)) 501) ((memql --cl-var-- (quote ...)) 502) ((memql --cl-var-- (quote ...)) 503) ((memql --cl-var-- (quote ...)) 504) ((memql --cl-var-- (quote ...)) 505) ((memql --cl-var-- (quote ...)) 506) ((memql --cl-var-- (quote .
..)) 507) ((eql --cl-var-- (quote 8388704)) 508) ((eql --cl-var-- (quote 8388734)) 509) ((eql --cl-var-- (quote 8388719)) 510) ((memql --cl-var-- (quote ...)) 511) ((memql --cl-var-- (quote ...)) 512) ((eql --cl-var-- (quote 8388721)) 513) ((eql --cl-var-- (quote 8388727)) 514) ((memql --cl-var-- (quote ...)) 515) ((memql --cl-var-- (quote ...)) 516) ((eql --cl-var-- (quote 8388715)) 517) ((memql --cl-var-- (quote ...)) 518) ((memql --cl-var-- (quote ...)) 519) ((memql --cl-var-- (quote ...)) 520) ((memql --cl-var-- (quote ...)) 521) ((eql --cl-var-- (quote 109)) 522) ((eql --cl-var-- (quote 77)) 523) ((eql --cl-var-- (quote 46)) 1000) ((eql --cl-var-- (quote 119)) 1001) ((eql --cl-var-- (quote 103)) 1002) ((eql --cl-var-- (quote 116)) 1003) ((eql --cl-var-- (quote 121)) 1004) ((eql --cl
-var-- (quote 89)) 1005))))) (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time ...))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (rea
d-string "Month and year: " nil nil ...) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)
) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done."))))
abo-abo()
(cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time (current-time)))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month an
d year: " nil nil (format-time-string "%B %Y" ...)) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom
-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done.")))
(let* ((span (quote month)) start-day year (month (let ((--cl-var-- (read-event))) (cond ((memql --cl-var-- (quote ...)) 1) ((memql --cl-var-- (quote ...)) 2) ((memql --cl-var-- (quote ...)) 3) ((memql --cl-var-- (quote ...)) 4) ((memql --cl-var-- (quote ...)) 5) ((memql --cl-var-- (quote ...)) 6) ((memql --cl-var-- (quote ...)) 7) ((memql --cl-var-- (quote ...)) 8) ((memql --cl-var-- (quote ...)) 9) ((memql --cl-var-- (quote ...)) 10) ((memql --cl-var-- (quote ...)) 11) ((memql --cl-var-- (quote ...)) 12) ((memql --cl-var-- (quote ...)) 500) ((memql --cl-var-- (quote ...)) 501) ((memql --cl-var-- (quote ...)) 502) ((memql --cl-var-- (quote ...)) 503) ((memql --cl-var-- (quote ...)) 504) ((memql --cl-var-- (quote ...)) 505) ((memql --cl-var-- (quote ...)) 506) ((memql --cl-var-- (quote .
..)) 507) ((eql --cl-var-- (quote 8388704)) 508) ((eql --cl-var-- (quote 8388734)) 509) ((eql --cl-var-- (quote 8388719)) 510) ((memql --cl-var-- (quote ...)) 511) ((memql --cl-var-- (quote ...)) 512) ((eql --cl-var-- (quote 8388721)) 513) ((eql --cl-var-- (quote 8388727)) 514) ((memql --cl-var-- (quote ...)) 515) ((memql --cl-var-- (quote ...)) 516) ((eql --cl-var-- (quote 8388715)) 517) ((memql --cl-var-- (quote ...)) 518) ((memql --cl-var-- (quote ...)) 519) ((memql --cl-var-- (quote ...)) 520) ((memql --cl-var-- (quote ...)) 521) ((eql --cl-var-- (quote 109)) 522) ((eql --cl-var-- (quote 77)) 523) ((eql --cl-var-- (quote 46)) 1000) ((eql --cl-var-- (quote 119)) 1001) ((eql --cl-var-- (quote 103)) 1002) ((eql --cl-var-- (quote 116)) 1003) ((eql --cl-var-- (quote 121)) 1004) ((eql --cl
-var-- (quote 89)) 1005))))) (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time ...))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (rea
d-string "Month and year: " nil nil ...) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)
) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done."))))
abo-abo()
(cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time (current-time)))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month an
d year: " nil nil (format-time-string "%B %Y" ...)) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom
-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done.")))
(let* ((span (quote month)) start-day year (month (let ((--cl-var-- (read-event))) (cond ((memql --cl-var-- (quote ...)) 1) ((memql --cl-var-- (quote ...)) 2) ((memql --cl-var-- (quote ...)) 3) ((memql --cl-var-- (quote ...)) 4) ((memql --cl-var-- (quote ...)) 5) ((memql --cl-var-- (quote ...)) 6) ((memql --cl-var-- (quote ...)) 7) ((memql --cl-var-- (quote ...)) 8) ((memql --cl-var-- (quote ...)) 9) ((memql --cl-var-- (quote ...)) 10) ((memql --cl-var-- (quote ...)) 11) ((memql --cl-var-- (quote ...)) 12) ((memql --cl-var-- (quote ...)) 500) ((memql --cl-var-- (quote ...)) 501) ((memql --cl-var-- (quote ...)) 502) ((memql --cl-var-- (quote ...)) 503) ((memql --cl-var-- (quote ...)) 504) ((memql --cl-var-- (quote ...)) 505) ((memql --cl-var-- (quote ...)) 506) ((memql --cl-var-- (quote .
..)) 507) ((eql --cl-var-- (quote 8388704)) 508) ((eql --cl-var-- (quote 8388734)) 509) ((eql --cl-var-- (quote 8388719)) 510) ((memql --cl-var-- (quote ...)) 511) ((memql --cl-var-- (quote ...)) 512) ((eql --cl-var-- (quote 8388721)) 513) ((eql --cl-var-- (quote 8388727)) 514) ((memql --cl-var-- (quote ...)) 515) ((memql --cl-var-- (quote ...)) 516) ((eql --cl-var-- (quote 8388715)) 517) ((memql --cl-var-- (quote ...)) 518) ((memql --cl-var-- (quote ...)) 519) ((memql --cl-var-- (quote ...)) 520) ((memql --cl-var-- (quote ...)) 521) ((eql --cl-var-- (quote 109)) 522) ((eql --cl-var-- (quote 77)) 523) ((eql --cl-var-- (quote 46)) 1000) ((eql --cl-var-- (quote 119)) 1001) ((eql --cl-var-- (quote 103)) 1002) ((eql --cl-var-- (quote 116)) 1003) ((eql --cl-var-- (quote 121)) 1004) ((eql --cl
-var-- (quote 89)) 1005))))) (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time ...))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (rea
d-string "Month and year: " nil nil ...) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)
) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done."))))
abo-abo()
(cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time (current-time)))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month an
d year: " nil nil (format-time-string "%B %Y" ...)) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom
-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done.")))
(let* ((span (quote month)) start-day year (month (let ((--cl-var-- (read-event))) (cond ((memql --cl-var-- (quote ...)) 1) ((memql --cl-var-- (quote ...)) 2) ((memql --cl-var-- (quote ...)) 3) ((memql --cl-var-- (quote ...)) 4) ((memql --cl-var-- (quote ...)) 5) ((memql --cl-var-- (quote ...)) 6) ((memql --cl-var-- (quote ...)) 7) ((memql --cl-var-- (quote ...)) 8) ((memql --cl-var-- (quote ...)) 9) ((memql --cl-var-- (quote ...)) 10) ((memql --cl-var-- (quote ...)) 11) ((memql --cl-var-- (quote ...)) 12) ((memql --cl-var-- (quote ...)) 500) ((memql --cl-var-- (quote ...)) 501) ((memql --cl-var-- (quote ...)) 502) ((memql --cl-var-- (quote ...)) 503) ((memql --cl-var-- (quote ...)) 504) ((memql --cl-var-- (quote ...)) 505) ((memql --cl-var-- (quote ...)) 506) ((memql --cl-var-- (quote .
..)) 507) ((eql --cl-var-- (quote 8388704)) 508) ((eql --cl-var-- (quote 8388734)) 509) ((eql --cl-var-- (quote 8388719)) 510) ((memql --cl-var-- (quote ...)) 511) ((memql --cl-var-- (quote ...)) 512) ((eql --cl-var-- (quote 8388721)) 513) ((eql --cl-var-- (quote 8388727)) 514) ((memql --cl-var-- (quote ...)) 515) ((memql --cl-var-- (quote ...)) 516) ((eql --cl-var-- (quote 8388715)) 517) ((memql --cl-var-- (quote ...)) 518) ((memql --cl-var-- (quote ...)) 519) ((memql --cl-var-- (quote ...)) 520) ((memql --cl-var-- (quote ...)) 521) ((eql --cl-var-- (quote 109)) 522) ((eql --cl-var-- (quote 77)) 523) ((eql --cl-var-- (quote 46)) 1000) ((eql --cl-var-- (quote 119)) 1001) ((eql --cl-var-- (quote 103)) 1002) ((eql --cl-var-- (quote 116)) 1003) ((eql --cl-var-- (quote 121)) 1004) ((eql --cl
-var-- (quote 89)) 1005))))) (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time ...))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (rea
d-string "Month and year: " nil nil ...) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)
) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done."))))
abo-abo()
(cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time (current-time)))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month an
d year: " nil nil (format-time-string "%B %Y" ...)) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom
-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done.")))
(let* ((span (quote month)) start-day year (month (let ((--cl-var-- (read-event))) (cond ((memql --cl-var-- (quote ...)) 1) ((memql --cl-var-- (quote ...)) 2) ((memql --cl-var-- (quote ...)) 3) ((memql --cl-var-- (quote ...)) 4) ((memql --cl-var-- (quote ...)) 5) ((memql --cl-var-- (quote ...)) 6) ((memql --cl-var-- (quote ...)) 7) ((memql --cl-var-- (quote ...)) 8) ((memql --cl-var-- (quote ...)) 9) ((memql --cl-var-- (quote ...)) 10) ((memql --cl-var-- (quote ...)) 11) ((memql --cl-var-- (quote ...)) 12) ((memql --cl-var-- (quote ...)) 500) ((memql --cl-var-- (quote ...)) 501) ((memql --cl-var-- (quote ...)) 502) ((memql --cl-var-- (quote ...)) 503) ((memql --cl-var-- (quote ...)) 504) ((memql --cl-var-- (quote ...)) 505) ((memql --cl-var-- (quote ...)) 506) ((memql --cl-var-- (quote .
..)) 507) ((eql --cl-var-- (quote 8388704)) 508) ((eql --cl-var-- (quote 8388734)) 509) ((eql --cl-var-- (quote 8388719)) 510) ((memql --cl-var-- (quote ...)) 511) ((memql --cl-var-- (quote ...)) 512) ((eql --cl-var-- (quote 8388721)) 513) ((eql --cl-var-- (quote 8388727)) 514) ((memql --cl-var-- (quote ...)) 515) ((memql --cl-var-- (quote ...)) 516) ((eql --cl-var-- (quote 8388715)) 517) ((memql --cl-var-- (quote ...)) 518) ((memql --cl-var-- (quote ...)) 519) ((memql --cl-var-- (quote ...)) 520) ((memql --cl-var-- (quote ...)) 521) ((eql --cl-var-- (quote 109)) 522) ((eql --cl-var-- (quote 77)) 523) ((eql --cl-var-- (quote 46)) 1000) ((eql --cl-var-- (quote 119)) 1001) ((eql --cl-var-- (quote 103)) 1002) ((eql --cl-var-- (quote 116)) 1003) ((eql --cl-var-- (quote 121)) 1004) ((eql --cl
-var-- (quote 89)) 1005))))) (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time ...))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (rea
d-string "Month and year: " nil nil ...) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)
) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done."))))
abo-abo()
(cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time (current-time)))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month an
d year: " nil nil (format-time-string "%B %Y" ...)) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom
-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done.")))
(let* ((span (quote month)) start-day year (month (let ((--cl-var-- (read-event))) (cond ((memql --cl-var-- (quote ...)) 1) ((memql --cl-var-- (quote ...)) 2) ((memql --cl-var-- (quote ...)) 3) ((memql --cl-var-- (quote ...)) 4) ((memql --cl-var-- (quote ...)) 5) ((memql --cl-var-- (quote ...)) 6) ((memql --cl-var-- (quote ...)) 7) ((memql --cl-var-- (quote ...)) 8) ((memql --cl-var-- (quote ...)) 9) ((memql --cl-var-- (quote ...)) 10) ((memql --cl-var-- (quote ...)) 11) ((memql --cl-var-- (quote ...)) 12) ((memql --cl-var-- (quote ...)) 500) ((memql --cl-var-- (quote ...)) 501) ((memql --cl-var-- (quote ...)) 502) ((memql --cl-var-- (quote ...)) 503) ((memql --cl-var-- (quote ...)) 504) ((memql --cl-var-- (quote ...)) 505) ((memql --cl-var-- (quote ...)) 506) ((memql --cl-var-- (quote .
..)) 507) ((eql --cl-var-- (quote 8388704)) 508) ((eql --cl-var-- (quote 8388734)) 509) ((eql --cl-var-- (quote 8388719)) 510) ((memql --cl-var-- (quote ...)) 511) ((memql --cl-var-- (quote ...)) 512) ((eql --cl-var-- (quote 8388721)) 513) ((eql --cl-var-- (quote 8388727)) 514) ((memql --cl-var-- (quote ...)) 515) ((memql --cl-var-- (quote ...)) 516) ((eql --cl-var-- (quote 8388715)) 517) ((memql --cl-var-- (quote ...)) 518) ((memql --cl-var-- (quote ...)) 519) ((memql --cl-var-- (quote ...)) 520) ((memql --cl-var-- (quote ...)) 521) ((eql --cl-var-- (quote 109)) 522) ((eql --cl-var-- (quote 77)) 523) ((eql --cl-var-- (quote 46)) 1000) ((eql --cl-var-- (quote 119)) 1001) ((eql --cl-var-- (quote 103)) 1002) ((eql --cl-var-- (quote 116)) 1003) ((eql --cl-var-- (quote 121)) 1004) ((eql --cl
-var-- (quote 89)) 1005))))) (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time ...))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (rea
d-string "Month and year: " nil nil ...) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)
) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done."))))
abo-abo()
(cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time (current-time)))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month an
d year: " nil nil (format-time-string "%B %Y" ...)) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom
-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done.")))
(let* ((span (quote month)) start-day year (month (let ((--cl-var-- (read-event))) (cond ((memql --cl-var-- (quote ...)) 1) ((memql --cl-var-- (quote ...)) 2) ((memql --cl-var-- (quote ...)) 3) ((memql --cl-var-- (quote ...)) 4) ((memql --cl-var-- (quote ...)) 5) ((memql --cl-var-- (quote ...)) 6) ((memql --cl-var-- (quote ...)) 7) ((memql --cl-var-- (quote ...)) 8) ((memql --cl-var-- (quote ...)) 9) ((memql --cl-var-- (quote ...)) 10) ((memql --cl-var-- (quote ...)) 11) ((memql --cl-var-- (quote ...)) 12) ((memql --cl-var-- (quote ...)) 500) ((memql --cl-var-- (quote ...)) 501) ((memql --cl-var-- (quote ...)) 502) ((memql --cl-var-- (quote ...)) 503) ((memql --cl-var-- (quote ...)) 504) ((memql --cl-var-- (quote ...)) 505) ((memql --cl-var-- (quote ...)) 506) ((memql --cl-var-- (quote .
..)) 507) ((eql --cl-var-- (quote 8388704)) 508) ((eql --cl-var-- (quote 8388734)) 509) ((eql --cl-var-- (quote 8388719)) 510) ((memql --cl-var-- (quote ...)) 511) ((memql --cl-var-- (quote ...)) 512) ((eql --cl-var-- (quote 8388721)) 513) ((eql --cl-var-- (quote 8388727)) 514) ((memql --cl-var-- (quote ...)) 515) ((memql --cl-var-- (quote ...)) 516) ((eql --cl-var-- (quote 8388715)) 517) ((memql --cl-var-- (quote ...)) 518) ((memql --cl-var-- (quote ...)) 519) ((memql --cl-var-- (quote ...)) 520) ((memql --cl-var-- (quote ...)) 521) ((eql --cl-var-- (quote 109)) 522) ((eql --cl-var-- (quote 77)) 523) ((eql --cl-var-- (quote 46)) 1000) ((eql --cl-var-- (quote 119)) 1001) ((eql --cl-var-- (quote 103)) 1002) ((eql --cl-var-- (quote 116)) 1003) ((eql --cl-var-- (quote 121)) 1004) ((eql --cl
-var-- (quote 89)) 1005))))) (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time ...))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (rea
d-string "Month and year: " nil nil ...) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)
) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done."))))
abo-abo()
(cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time (current-time)))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month an
d year: " nil nil (format-time-string "%B %Y" ...)) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom
-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done.")))
(let* ((span (quote month)) start-day year (month (let ((--cl-var-- (read-event))) (cond ((memql --cl-var-- (quote ...)) 1) ((memql --cl-var-- (quote ...)) 2) ((memql --cl-var-- (quote ...)) 3) ((memql --cl-var-- (quote ...)) 4) ((memql --cl-var-- (quote ...)) 5) ((memql --cl-var-- (quote ...)) 6) ((memql --cl-var-- (quote ...)) 7) ((memql --cl-var-- (quote ...)) 8) ((memql --cl-var-- (quote ...)) 9) ((memql --cl-var-- (quote ...)) 10) ((memql --cl-var-- (quote ...)) 11) ((memql --cl-var-- (quote ...)) 12) ((memql --cl-var-- (quote ...)) 500) ((memql --cl-var-- (quote ...)) 501) ((memql --cl-var-- (quote ...)) 502) ((memql --cl-var-- (quote ...)) 503) ((memql --cl-var-- (quote ...)) 504) ((memql --cl-var-- (quote ...)) 505) ((memql --cl-var-- (quote ...)) 506) ((memql --cl-var-- (quote .
..)) 507) ((eql --cl-var-- (quote 8388704)) 508) ((eql --cl-var-- (quote 8388734)) 509) ((eql --cl-var-- (quote 8388719)) 510) ((memql --cl-var-- (quote ...)) 511) ((memql --cl-var-- (quote ...)) 512) ((eql --cl-var-- (quote 8388721)) 513) ((eql --cl-var-- (quote 8388727)) 514) ((memql --cl-var-- (quote ...)) 515) ((memql --cl-var-- (quote ...)) 516) ((eql --cl-var-- (quote 8388715)) 517) ((memql --cl-var-- (quote ...)) 518) ((memql --cl-var-- (quote ...)) 519) ((memql --cl-var-- (quote ...)) 520) ((memql --cl-var-- (quote ...)) 521) ((eql --cl-var-- (quote 109)) 522) ((eql --cl-var-- (quote 77)) 523) ((eql --cl-var-- (quote 46)) 1000) ((eql --cl-var-- (quote 119)) 1001) ((eql --cl-var-- (quote 103)) 1002) ((eql --cl-var-- (quote 116)) 1003) ((eql --cl-var-- (quote 121)) 1004) ((eql --cl
-var-- (quote 89)) 1005))))) (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time ...))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (rea
d-string "Month and year: " nil nil ...) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)
) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done."))))
abo-abo()
(cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time (current-time)))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month an
d year: " nil nil (format-time-string "%B %Y" ...)) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom
-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done.")))
(let* ((span (quote month)) start-day year (month (let ((--cl-var-- (read-event))) (cond ((memql --cl-var-- (quote ...)) 1) ((memql --cl-var-- (quote ...)) 2) ((memql --cl-var-- (quote ...)) 3) ((memql --cl-var-- (quote ...)) 4) ((memql --cl-var-- (quote ...)) 5) ((memql --cl-var-- (quote ...)) 6) ((memql --cl-var-- (quote ...)) 7) ((memql --cl-var-- (quote ...)) 8) ((memql --cl-var-- (quote ...)) 9) ((memql --cl-var-- (quote ...)) 10) ((memql --cl-var-- (quote ...)) 11) ((memql --cl-var-- (quote ...)) 12) ((memql --cl-var-- (quote ...)) 500) ((memql --cl-var-- (quote ...)) 501) ((memql --cl-var-- (quote ...)) 502) ((memql --cl-var-- (quote ...)) 503) ((memql --cl-var-- (quote ...)) 504) ((memql --cl-var-- (quote ...)) 505) ((memql --cl-var-- (quote ...)) 506) ((memql --cl-var-- (quote .
..)) 507) ((eql --cl-var-- (quote 8388704)) 508) ((eql --cl-var-- (quote 8388734)) 509) ((eql --cl-var-- (quote 8388719)) 510) ((memql --cl-var-- (quote ...)) 511) ((memql --cl-var-- (quote ...)) 512) ((eql --cl-var-- (quote 8388721)) 513) ((eql --cl-var-- (quote 8388727)) 514) ((memql --cl-var-- (quote ...)) 515) ((memql --cl-var-- (quote ...)) 516) ((eql --cl-var-- (quote 8388715)) 517) ((memql --cl-var-- (quote ...)) 518) ((memql --cl-var-- (quote ...)) 519) ((memql --cl-var-- (quote ...)) 520) ((memql --cl-var-- (quote ...)) 521) ((eql --cl-var-- (quote 109)) 522) ((eql --cl-var-- (quote 77)) 523) ((eql --cl-var-- (quote 46)) 1000) ((eql --cl-var-- (quote 119)) 1001) ((eql --cl-var-- (quote 103)) 1002) ((eql --cl-var-- (quote 116)) 1003) ((eql --cl-var-- (quote 121)) 1004) ((eql --cl
-var-- (quote 89)) 1005))))) (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time ...))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (rea
d-string "Month and year: " nil nil ...) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)
) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done."))))
abo-abo()
(cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time (current-time)))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month an
d year: " nil nil (format-time-string "%B %Y" ...)) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom
-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done.")))
(let* ((span (quote month)) start-day year (month (let ((--cl-var-- (read-event))) (cond ((memql --cl-var-- (quote ...)) 1) ((memql --cl-var-- (quote ...)) 2) ((memql --cl-var-- (quote ...)) 3) ((memql --cl-var-- (quote ...)) 4) ((memql --cl-var-- (quote ...)) 5) ((memql --cl-var-- (quote ...)) 6) ((memql --cl-var-- (quote ...)) 7) ((memql --cl-var-- (quote ...)) 8) ((memql --cl-var-- (quote ...)) 9) ((memql --cl-var-- (quote ...)) 10) ((memql --cl-var-- (quote ...)) 11) ((memql --cl-var-- (quote ...)) 12) ((memql --cl-var-- (quote ...)) 500) ((memql --cl-var-- (quote ...)) 501) ((memql --cl-var-- (quote ...)) 502) ((memql --cl-var-- (quote ...)) 503) ((memql --cl-var-- (quote ...)) 504) ((memql --cl-var-- (quote ...)) 505) ((memql --cl-var-- (quote ...)) 506) ((memql --cl-var-- (quote .
..)) 507) ((eql --cl-var-- (quote 8388704)) 508) ((eql --cl-var-- (quote 8388734)) 509) ((eql --cl-var-- (quote 8388719)) 510) ((memql --cl-var-- (quote ...)) 511) ((memql --cl-var-- (quote ...)) 512) ((eql --cl-var-- (quote 8388721)) 513) ((eql --cl-var-- (quote 8388727)) 514) ((memql --cl-var-- (quote ...)) 515) ((memql --cl-var-- (quote ...)) 516) ((eql --cl-var-- (quote 8388715)) 517) ((memql --cl-var-- (quote ...)) 518) ((memql --cl-var-- (quote ...)) 519) ((memql --cl-var-- (quote ...)) 520) ((memql --cl-var-- (quote ...)) 521) ((eql --cl-var-- (quote 109)) 522) ((eql --cl-var-- (quote 77)) 523) ((eql --cl-var-- (quote 46)) 1000) ((eql --cl-var-- (quote 119)) 1001) ((eql --cl-var-- (quote 103)) 1002) ((eql --cl-var-- (quote 116)) 1003) ((eql --cl-var-- (quote 121)) 1004) ((eql --cl
-var-- (quote 89)) 1005))))) (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time ...))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (rea
d-string "Month and year: " nil nil ...) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)
) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done."))))
abo-abo()
(cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time (current-time)))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month an
d year: " nil nil (format-time-string "%B %Y" ...)) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom
-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done.")))
(let* ((span (quote month)) start-day year (month (let ((--cl-var-- (read-event))) (cond ((memql --cl-var-- (quote ...)) 1) ((memql --cl-var-- (quote ...)) 2) ((memql --cl-var-- (quote ...)) 3) ((memql --cl-var-- (quote ...)) 4) ((memql --cl-var-- (quote ...)) 5) ((memql --cl-var-- (quote ...)) 6) ((memql --cl-var-- (quote ...)) 7) ((memql --cl-var-- (quote ...)) 8) ((memql --cl-var-- (quote ...)) 9) ((memql --cl-var-- (quote ...)) 10) ((memql --cl-var-- (quote ...)) 11) ((memql --cl-var-- (quote ...)) 12) ((memql --cl-var-- (quote ...)) 500) ((memql --cl-var-- (quote ...)) 501) ((memql --cl-var-- (quote ...)) 502) ((memql --cl-var-- (quote ...)) 503) ((memql --cl-var-- (quote ...)) 504) ((memql --cl-var-- (quote ...)) 505) ((memql --cl-var-- (quote ...)) 506) ((memql --cl-var-- (quote .
..)) 507) ((eql --cl-var-- (quote 8388704)) 508) ((eql --cl-var-- (quote 8388734)) 509) ((eql --cl-var-- (quote 8388719)) 510) ((memql --cl-var-- (quote ...)) 511) ((memql --cl-var-- (quote ...)) 512) ((eql --cl-var-- (quote 8388721)) 513) ((eql --cl-var-- (quote 8388727)) 514) ((memql --cl-var-- (quote ...)) 515) ((memql --cl-var-- (quote ...)) 516) ((eql --cl-var-- (quote 8388715)) 517) ((memql --cl-var-- (quote ...)) 518) ((memql --cl-var-- (quote ...)) 519) ((memql --cl-var-- (quote ...)) 520) ((memql --cl-var-- (quote ...)) 521) ((eql --cl-var-- (quote 109)) 522) ((eql --cl-var-- (quote 77)) 523) ((eql --cl-var-- (quote 46)) 1000) ((eql --cl-var-- (quote 119)) 1001) ((eql --cl-var-- (quote 103)) 1002) ((eql --cl-var-- (quote 116)) 1003) ((eql --cl-var-- (quote 121)) 1004) ((eql --cl
-var-- (quote 89)) 1005))))) (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time ...))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (rea
d-string "Month and year: " nil nil ...) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)
) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done."))))
abo-abo()
(cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time (current-time)))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month an
d year: " nil nil (format-time-string "%B %Y" ...)) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom
-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done.")))
(let* ((span (quote month)) start-day year (month (let ((--cl-var-- (read-event))) (cond ((memql --cl-var-- (quote ...)) 1) ((memql --cl-var-- (quote ...)) 2) ((memql --cl-var-- (quote ...)) 3) ((memql --cl-var-- (quote ...)) 4) ((memql --cl-var-- (quote ...)) 5) ((memql --cl-var-- (quote ...)) 6) ((memql --cl-var-- (quote ...)) 7) ((memql --cl-var-- (quote ...)) 8) ((memql --cl-var-- (quote ...)) 9) ((memql --cl-var-- (quote ...)) 10) ((memql --cl-var-- (quote ...)) 11) ((memql --cl-var-- (quote ...)) 12) ((memql --cl-var-- (quote ...)) 500) ((memql --cl-var-- (quote ...)) 501) ((memql --cl-var-- (quote ...)) 502) ((memql --cl-var-- (quote ...)) 503) ((memql --cl-var-- (quote ...)) 504) ((memql --cl-var-- (quote ...)) 505) ((memql --cl-var-- (quote ...)) 506) ((memql --cl-var-- (quote .
..)) 507) ((eql --cl-var-- (quote 8388704)) 508) ((eql --cl-var-- (quote 8388734)) 509) ((eql --cl-var-- (quote 8388719)) 510) ((memql --cl-var-- (quote ...)) 511) ((memql --cl-var-- (quote ...)) 512) ((eql --cl-var-- (quote 8388721)) 513) ((eql --cl-var-- (quote 8388727)) 514) ((memql --cl-var-- (quote ...)) 515) ((memql --cl-var-- (quote ...)) 516) ((eql --cl-var-- (quote 8388715)) 517) ((memql --cl-var-- (quote ...)) 518) ((memql --cl-var-- (quote ...)) 519) ((memql --cl-var-- (quote ...)) 520) ((memql --cl-var-- (quote ...)) 521) ((eql --cl-var-- (quote 109)) 522) ((eql --cl-var-- (quote 77)) 523) ((eql --cl-var-- (quote 46)) 1000) ((eql --cl-var-- (quote 119)) 1001) ((eql --cl-var-- (quote 103)) 1002) ((eql --cl-var-- (quote 116)) 1003) ((eql --cl-var-- (quote 121)) 1004) ((eql --cl
-var-- (quote 89)) 1005))))) (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time ...))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (rea
d-string "Month and year: " nil nil ...) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)
) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done."))))
abo-abo()
(cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time (current-time)))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month an
d year: " nil nil (format-time-string "%B %Y" ...)) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom
-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done.")))
(let* ((span (quote month)) start-day year (month (let ((--cl-var-- (read-event))) (cond ((memql --cl-var-- (quote ...)) 1) ((memql --cl-var-- (quote ...)) 2) ((memql --cl-var-- (quote ...)) 3) ((memql --cl-var-- (quote ...)) 4) ((memql --cl-var-- (quote ...)) 5) ((memql --cl-var-- (quote ...)) 6) ((memql --cl-var-- (quote ...)) 7) ((memql --cl-var-- (quote ...)) 8) ((memql --cl-var-- (quote ...)) 9) ((memql --cl-var-- (quote ...)) 10) ((memql --cl-var-- (quote ...)) 11) ((memql --cl-var-- (quote ...)) 12) ((memql --cl-var-- (quote ...)) 500) ((memql --cl-var-- (quote ...)) 501) ((memql --cl-var-- (quote ...)) 502) ((memql --cl-var-- (quote ...)) 503) ((memql --cl-var-- (quote ...)) 504) ((memql --cl-var-- (quote ...)) 505) ((memql --cl-var-- (quote ...)) 506) ((memql --cl-var-- (quote .
..)) 507) ((eql --cl-var-- (quote 8388704)) 508) ((eql --cl-var-- (quote 8388734)) 509) ((eql --cl-var-- (quote 8388719)) 510) ((memql --cl-var-- (quote ...)) 511) ((memql --cl-var-- (quote ...)) 512) ((eql --cl-var-- (quote 8388721)) 513) ((eql --cl-var-- (quote 8388727)) 514) ((memql --cl-var-- (quote ...)) 515) ((memql --cl-var-- (quote ...)) 516) ((eql --cl-var-- (quote 8388715)) 517) ((memql --cl-var-- (quote ...)) 518) ((memql --cl-var-- (quote ...)) 519) ((memql --cl-var-- (quote ...)) 520) ((memql --cl-var-- (quote ...)) 521) ((eql --cl-var-- (quote 109)) 522) ((eql --cl-var-- (quote 77)) 523) ((eql --cl-var-- (quote 46)) 1000) ((eql --cl-var-- (quote 119)) 1001) ((eql --cl-var-- (quote 103)) 1002) ((eql --cl-var-- (quote 116)) 1003) ((eql --cl-var-- (quote 121)) 1004) ((eql --cl
-var-- (quote 89)) 1005))))) (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time ...))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (rea
d-string "Month and year: " nil nil ...) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)
) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done."))))
abo-abo()
(cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time (current-time)))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month an
d year: " nil nil (format-time-string "%B %Y" ...)) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom
-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done.")))
(let* ((span (quote month)) start-day year (month (let ((--cl-var-- (read-event))) (cond ((memql --cl-var-- (quote ...)) 1) ((memql --cl-var-- (quote ...)) 2) ((memql --cl-var-- (quote ...)) 3) ((memql --cl-var-- (quote ...)) 4) ((memql --cl-var-- (quote ...)) 5) ((memql --cl-var-- (quote ...)) 6) ((memql --cl-var-- (quote ...)) 7) ((memql --cl-var-- (quote ...)) 8) ((memql --cl-var-- (quote ...)) 9) ((memql --cl-var-- (quote ...)) 10) ((memql --cl-var-- (quote ...)) 11) ((memql --cl-var-- (quote ...)) 12) ((memql --cl-var-- (quote ...)) 500) ((memql --cl-var-- (quote ...)) 501) ((memql --cl-var-- (quote ...)) 502) ((memql --cl-var-- (quote ...)) 503) ((memql --cl-var-- (quote ...)) 504) ((memql --cl-var-- (quote ...)) 505) ((memql --cl-var-- (quote ...)) 506) ((memql --cl-var-- (quote .
..)) 507) ((eql --cl-var-- (quote 8388704)) 508) ((eql --cl-var-- (quote 8388734)) 509) ((eql --cl-var-- (quote 8388719)) 510) ((memql --cl-var-- (quote ...)) 511) ((memql --cl-var-- (quote ...)) 512) ((eql --cl-var-- (quote 8388721)) 513) ((eql --cl-var-- (quote 8388727)) 514) ((memql --cl-var-- (quote ...)) 515) ((memql --cl-var-- (quote ...)) 516) ((eql --cl-var-- (quote 8388715)) 517) ((memql --cl-var-- (quote ...)) 518) ((memql --cl-var-- (quote ...)) 519) ((memql --cl-var-- (quote ...)) 520) ((memql --cl-var-- (quote ...)) 521) ((eql --cl-var-- (quote 109)) 522) ((eql --cl-var-- (quote 77)) 523) ((eql --cl-var-- (quote 46)) 1000) ((eql --cl-var-- (quote 119)) 1001) ((eql --cl-var-- (quote 103)) 1002) ((eql --cl-var-- (quote 116)) 1003) ((eql --cl-var-- (quote 121)) 1004) ((eql --cl
-var-- (quote 89)) 1005))))) (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time ...))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (rea
d-string "Month and year: " nil nil ...) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)
) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done."))))
abo-abo()
(cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time (current-time)))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month an
d year: " nil nil (format-time-string "%B %Y" ...)) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom
-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done.")))
(let* ((span (quote month)) start-day year (month (let ((--cl-var-- (read-event))) (cond ((memql --cl-var-- (quote ...)) 1) ((memql --cl-var-- (quote ...)) 2) ((memql --cl-var-- (quote ...)) 3) ((memql --cl-var-- (quote ...)) 4) ((memql --cl-var-- (quote ...)) 5) ((memql --cl-var-- (quote ...)) 6) ((memql --cl-var-- (quote ...)) 7) ((memql --cl-var-- (quote ...)) 8) ((memql --cl-var-- (quote ...)) 9) ((memql --cl-var-- (quote ...)) 10) ((memql --cl-var-- (quote ...)) 11) ((memql --cl-var-- (quote ...)) 12) ((memql --cl-var-- (quote ...)) 500) ((memql --cl-var-- (quote ...)) 501) ((memql --cl-var-- (quote ...)) 502) ((memql --cl-var-- (quote ...)) 503) ((memql --cl-var-- (quote ...)) 504) ((memql --cl-var-- (quote ...)) 505) ((memql --cl-var-- (quote ...)) 506) ((memql --cl-var-- (quote .
..)) 507) ((eql --cl-var-- (quote 8388704)) 508) ((eql --cl-var-- (quote 8388734)) 509) ((eql --cl-var-- (quote 8388719)) 510) ((memql --cl-var-- (quote ...)) 511) ((memql --cl-var-- (quote ...)) 512) ((eql --cl-var-- (quote 8388721)) 513) ((eql --cl-var-- (quote 8388727)) 514) ((memql --cl-var-- (quote ...)) 515) ((memql --cl-var-- (quote ...)) 516) ((eql --cl-var-- (quote 8388715)) 517) ((memql --cl-var-- (quote ...)) 518) ((memql --cl-var-- (quote ...)) 519) ((memql --cl-var-- (quote ...)) 520) ((memql --cl-var-- (quote ...)) 521) ((eql --cl-var-- (quote 109)) 522) ((eql --cl-var-- (quote 77)) 523) ((eql --cl-var-- (quote 46)) 1000) ((eql --cl-var-- (quote 119)) 1001) ((eql --cl-var-- (quote 103)) 1002) ((eql --cl-var-- (quote 116)) 1003) ((eql --cl-var-- (quote 121)) 1004) ((eql --cl
-var-- (quote 89)) 1005))))) (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time ...))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (rea
d-string "Month and year: " nil nil ...) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)
) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done."))))
abo-abo()
(cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time (current-time)))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month an
d year: " nil nil (format-time-string "%B %Y" ...)) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom
-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done.")))
(let* ((span (quote month)) start-day year (month (let ((--cl-var-- (read-event))) (cond ((memql --cl-var-- (quote ...)) 1) ((memql --cl-var-- (quote ...)) 2) ((memql --cl-var-- (quote ...)) 3) ((memql --cl-var-- (quote ...)) 4) ((memql --cl-var-- (quote ...)) 5) ((memql --cl-var-- (quote ...)) 6) ((memql --cl-var-- (quote ...)) 7) ((memql --cl-var-- (quote ...)) 8) ((memql --cl-var-- (quote ...)) 9) ((memql --cl-var-- (quote ...)) 10) ((memql --cl-var-- (quote ...)) 11) ((memql --cl-var-- (quote ...)) 12) ((memql --cl-var-- (quote ...)) 500) ((memql --cl-var-- (quote ...)) 501) ((memql --cl-var-- (quote ...)) 502) ((memql --cl-var-- (quote ...)) 503) ((memql --cl-var-- (quote ...)) 504) ((memql --cl-var-- (quote ...)) 505) ((memql --cl-var-- (quote ...)) 506) ((memql --cl-var-- (quote .
..)) 507) ((eql --cl-var-- (quote 8388704)) 508) ((eql --cl-var-- (quote 8388734)) 509) ((eql --cl-var-- (quote 8388719)) 510) ((memql --cl-var-- (quote ...)) 511) ((memql --cl-var-- (quote ...)) 512) ((eql --cl-var-- (quote 8388721)) 513) ((eql --cl-var-- (quote 8388727)) 514) ((memql --cl-var-- (quote ...)) 515) ((memql --cl-var-- (quote ...)) 516) ((eql --cl-var-- (quote 8388715)) 517) ((memql --cl-var-- (quote ...)) 518) ((memql --cl-var-- (quote ...)) 519) ((memql --cl-var-- (quote ...)) 520) ((memql --cl-var-- (quote ...)) 521) ((eql --cl-var-- (quote 109)) 522) ((eql --cl-var-- (quote 77)) 523) ((eql --cl-var-- (quote 46)) 1000) ((eql --cl-var-- (quote 119)) 1001) ((eql --cl-var-- (quote 103)) 1002) ((eql --cl-var-- (quote 116)) 1003) ((eql --cl-var-- (quote 121)) 1004) ((eql --cl
-var-- (quote 89)) 1005))))) (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time ...))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (rea
d-string "Month and year: " nil nil ...) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)
) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done."))))
abo-abo()
call-interactively(abo-abo nil nil)
command-execute(abo-abo)
^ permalink raw reply [flat|nested] 8+ messages in thread* bug#16324: 24.3.50; Crashing on OSX 10.6.8 (built --with-ns)
2014-01-03 17:57 ` Keith David Bershatsky
@ 2019-10-13 1:20 ` Lars Ingebrigtsen
0 siblings, 0 replies; 8+ messages in thread
From: Lars Ingebrigtsen @ 2019-10-13 1:20 UTC (permalink / raw)
To: Keith David Bershatsky; +Cc: 16324, Stefan Monnier
Keith David Bershatsky <esq@lawlist.com> writes:
> #0 0x00007fff89abe0b6 in __kill ()
> #1 0x00007fff89b5e9f6 in abort ()
> #2 0x00007fff89b4d62d in szone_error ()
> #3 0x00007fff89a7794f in small_malloc_from_free_list ()
> #4 0x00007fff89a741e1 in szone_malloc_should_clear ()
> #5 0x00007fff89a7398a in malloc_zone_malloc ()
> #6 0x00007fff89a71c88 in malloc ()
> #7 0x0000000100155edb in unexec_malloc (size=13344) at unexmacosx.c:1399
> #8 0x0000000100105018 in xrealloc (block=<value temporarily unavailable, due to optimizations>, size=13344) at alloc.c:715
> #9 0x0000000100002d7c in adjust_glyph_matrix (w=0x1163cb600, matrix=0x103814960, x=0, y=0, dim=<value temporarily unavailable, due to optimizations>) at dispnew.c:491
> #10 0x0000000100007173 in allocate_matrices_for_window_redisplay (w=0x1163cb600) at dispnew.c:1729
> #11 0x00000001000071d5 in allocate_matrices_for_window_redisplay (w=0x103014420) at dispnew.c:1714
> #12 0x000000010000783d in adjust_frame_glyphs_for_window_redisplay [inlined] () at /Users/HOME/Desktop/emacs-trunk-01-01-2014/src/dispnew.c:2032
This was five years ago, and unfortunately this wasn't handled at the
time. But it's unlikely that we'll be making more progress here at this
point, so I'm closing this bug report. Please reopen if you're still
seeing these crashes in modern versions of Emacs.
--
(domestic pets only, the antidote for overdose, milk.)
bloggy blog: http://lars.ingebrigtsen.no
^ permalink raw reply [flat|nested] 8+ messages in thread