[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
bug#16324: 24.3.50; Crashing on OSX 10.6.8 (built --with-ns)
|
From: |
Keith David Bershatsky |
|
Subject: |
bug#16324: 24.3.50; Crashing on OSX 10.6.8 (built --with-ns) |
|
Date: |
Fri, 03 Jan 2014 09:57:34 -0800 |
|
User-agent: |
/ () / () APEL/10.8 Emacs/24.3.50 (x86_64-apple-darwin10.8.0) MULE/6.0 (HANACHIRUSATO) |
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-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 ... ...
... 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 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)))) (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-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 ...)))
(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-entries 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 span 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 and 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 (read-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 and 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 (read-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 and 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 (read-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 and 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 (read-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 and 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 (read-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 and 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 (read-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 and 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 (read-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 and 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 (read-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 and 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 (read-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 and 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 (read-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 and 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 (read-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 and 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 (read-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 and 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 (read-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 and 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 (read-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 and 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 (read-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 and 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 (read-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 and 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 (read-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 and 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 (read-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 and 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 (read-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 and 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 (read-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 and 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 (read-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 and 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 (read-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 and 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 (read-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 and 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 (read-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 and 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 (read-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 and 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 (read-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 and 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 (read-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 and 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 (read-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 and 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 (read-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 and 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 (read-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 and 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 (read-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 and 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 (read-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 and 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 (read-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 and 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 (read-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 and 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 (read-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 and 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 (read-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 and 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 (read-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 and 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 (read-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 and 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 (read-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 and 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 (read-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 and 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 (read-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 and 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 (read-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 and 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 (read-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 and 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 (read-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 and 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 (read-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 and 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 (read-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 and 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 (read-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 and 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 (read-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 and 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 (read-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 and 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 (read-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 and 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 (read-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 and 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 (read-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 and 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 (read-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 and 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 (read-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 and 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 (read-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 and 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 (read-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 and 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 (read-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 and 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 (read-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 and 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 (read-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 and 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 (read-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 and 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 (read-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 and 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 (read-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 and 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 (read-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 and 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 (read-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 and 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 (read-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 and 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 (read-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 and 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 (read-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 and 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 (read-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 and 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 (read-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 and 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 (read-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 and 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 (read-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 and 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 (read-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 and 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 (read-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 and 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 (read-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 and 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 (read-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 and 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 (read-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 and 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 (read-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 and 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 (read-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 and 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 (read-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 and 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 (read-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 and 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 (read-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 and 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 (read-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 and 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 (read-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 and 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 (read-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 and 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 (read-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 and 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 (read-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 and 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 (read-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 and 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 (read-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 and 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 (read-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 and 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 (read-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 and 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 (read-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 and 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 (read-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 and 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 (read-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 and 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 (read-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 and 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 (read-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 and 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 (read-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 and 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 (read-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 and 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 (read-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 and 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 (read-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 and 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 (read-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 and 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 (read-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 and 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 (read-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 and 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 (read-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 and 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 (read-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 and 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 (read-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 and 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 (read-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 and 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 (read-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 and 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 (read-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 and 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 (read-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 and 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 (read-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 and 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 (read-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 and 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 (read-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 and 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 (read-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 and 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 (read-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 and 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 (read-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 and 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 (read-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 and 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 (read-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 and 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 (read-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 and 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 (read-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 and 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 (read-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 and 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 (read-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 and 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 (read-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 and 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 (read-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 and 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 (read-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 and 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 (read-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)