(W [0+8+FQ(+4)[1 0FO10F"G+Q1 'W+FQ()+4U1 FQ1"L0' ,Q1:M(Q1+4(]1]0)) s;FJW-  #gu b x v  #^hRY g m& Setup CLOCK Libraryy0FO..QCLOCK Setup Hook[1 FQ1"GM1' "#M.M& Set My Mode LinefsModeMacro m(m.m& Start Realtime Modeline Clock)' & Get Current Timez[0[1[2[3[4 fsdate:fsfdconvertu1 12,14:g1u2 9,11:g1u3 F=200"e F=300"e:i*Midnite' F=312"e:i*Noon '' 3/12"e :i4am' "#(3-12):\u3 fq3-1"e:i3 3' :i4pm' F=3 0"e:i312' "#F=300"e:i312'' 0:g3-48"e 0:F3 ' :i*3:24'#& Start Realtime Modeline Clock FF-1"n (30*60)FSClkInt' "# 30*(F)FSClkInt' 0M.VModeline Full Update Time M.M& Insert Correct Time in Mode LinefsCLKMacro 0&& Insert Correct Time In Mode Linej1,M.M& Periodic Action"n M(M.M& Periodic Action)' qModeline Full Update Time"e 1uModeline Full Update Time 0' "# 0uModeline Full Update Time' f[inslen qEditor Name[0 f~..J0-1-FQ0"NoSet' FQ..J-(FQ0+8)"loSet' :i0..J M(M.M& Get Current Time)[1 FQEditor Name+1:F01 F=0..J"e0' q0u..J FR 0 !Set! m(fsmodemacro)fr 0& Set My Mode Line-(FSQPPTR*2)FSMODECH QEditor Name[0 QMode[1 "N:I1Q1UMode 0FO..Q1 Mode Hook[2 Q2"NM2'' 0[.1q..J[.2 F~.20-1-FQ0"N0' F[BBindG0I  g(m(m.m& get current time)*)I  0FO..QEditor Type[2 Q2"NG2I ' I(G1 QSubmodeU2FQ2"G I[2]' QAuto Fill Mode"N I Fill' QAuto Save Mode"N I Save' "#QAuto Save Default"N I Save(off)'' FS^RREPLACE"NI Ovwrt' FSTYISINK"NI Def' MSet Mode Line Hook+0U2 FQ2"GG2' I)  QBuffer NameU2 QBuffer FilenamesU1 Q1"NQ1F[DFILE F~(FSDFN1:F6)2"E0U2'' Q2"NI2: ' FQ1"GG1 FSOSTECO"N FQ1RFSHSNAME:F6U2 FSOSTECO-1"E FQ2F~2"EFQ2D'' "#4F~DSK:"E4D FQ2+2F~<2>"EFQ2+2D''' ZJFSDVERS"E-2D'' I QInhibit Write"LI(RO) '' ZJQ.1JQ.1,[I HX..J 0~Filename~ CLOCK~DOC~ ~Filename~Time macros for EMACS ~DOC~ & Setup CLOCK LibraryCS Setup for showing time in mode line. Runs Q$CLOCK Setup Hook$ if there one. Updates display every minute, but you can change this by doing MM & Start Realtime Modeline Clock. ~DOC~ & Get Current Time4S Returns Time as a string of exactly 7 chars. )~DOC~ & Start Realtime Modeline Clock}S Get the realtime clock interrupts going. Optional numeric argument specifies seconds between update. Default is 60. ,~DOC~ & Insert Correct Time In Mode Line)S Updates modeline display of time. ~DOC~ & Set My Mode LineS Set the ..J Mode to display options and current time. When setting the major mode, call this with a nonzero argument and the major mode name as a string argument. It will change the mode and run the Mode Hook variable, if there is one. ~DIRECTORY~& Setup CLOCK Library & Get Current Time & Start Realtime Modeline Clock & Insert Correct Time In Mode Line & Set My Mode Line  ~INVERT~[1Q1