Subject: bug#16324: 24.3.50; Crashing on OSX 10.6.8 (built --with-ns)

From: Keith David Bershatsky <[email-masked]>
Date: Fri, 03 Jan 2014 09:57:34 -0800

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)