( [0+8+FQ(+4)[1 0FO10F"G+Q1' +FQ()+4U1 FQ1"L0' ,Q1:M(Q1+4(]1]0)) X'5Y 4 E 1S yi Ky # v (~/ & Enable MODLIN AutoSave& Get Current Time& Insert Correct Time In Mode Line& Kill KMPTIME Library& Setup KMPTIME Library& Start Realtime Modeline Clock~DIRECTORY~~DOC~ & Enable MODLIN AutoSave~DOC~ & Get Current Time~DOC~ & Insert Correct Time In Mode Line~DOC~ & Kill KMPTIME Library~DOC~ & Setup KMPTIME Library~DOC~ & Start Realtime Modeline Clock~DOC~ ~Filename~~Filename~~INVERT~0fo..QOld FS Clk Macro"e fsclkmacrom.vOld FS Clk Macro' 13*5fsqvectorf([5)M.VMonths :i*Janu:5(1) :i*Febu:5(2) :i*Maru:5(3) :i*Apru:5(4) :i*Mayu:5(5) :i*Junu:5(6) :i*Julu:5(7) :i*Augu:5(8) :i*Sepu:5(9) :i*Octu:5(10) :i*Novu:5(11) :i*Decu:5(12)qOld FS Clk Macrofsclkmacro 0fsclkint [0[1[2[3[4[5[6 :i5 0fo..QTime Onlyu6 fsdate+1"e q6"n:i*No Time' "#:i*No Time & No Date'' fsdate:fsfdconvertu1 q6"noSkipDate' 3,5:g1u2 0,2:g1u3 6,8:g1u4 Q:Months(3)u3 0:g2-48"e 0:F2 ' :i5 2 3 4 !SkipDate! 12,14:g1u2 9,11:g1u3 0fo..QTime Zone Adjustmentf"n+3u3 q3"l q3+24u3 q6"e1,fq5:g5u5:i5<5!>!'' q3-23"g q3-24u3 q6"e1,fq5:g5u5!5'' q3:\u3fq3-1"e:i303''w F=200"e F=300"e:i*Midnite5' F=312"e:i*12 Noon5'' 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:245ff&1"n'"#60'*30fsClkInt m.vModeline Safe Macro 0m.vModeline Full Update Time M.M& Insert Correct Time in Mode LinefsCLKMacro 00m.vAutoSaveFlag [0[1 :i*fo..QMM & Periodic Actionu0 @:i1|%AutoSaveFlag-9"g0uAutoSaveFlagwm(m.m& Real-time Interrupt)'| :i*01m.vMM & Periodic Action 1,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+18)"loSet' qModeline Safe Macrof"n[0 q0-(]0wfsmodemacro)"noSet'' :i0..J M(M.M& Get Current Time)[1 FQEditor Name+1:F01 F=0..J"e0' q0u..J FR 0 !Set! fsmodemacrof"n[0m0fr]0' 0KMPTIMETimely macros for EMACS S Setup for using our winning macros& Clean up on exit S Gets string form of time Time in 7 chars + + Date in 9 chars If qTime Only is nonzero, the just return time in 7 chars.S Get the realtime clock interrupts going Postcomma arg is the number of seconds to wait between updates (Default 60). Precomma arg is time will only f^E the mode line when that macro is in fsmodemacro& Set up to run AutoSave every 5 clock updates S Updates modline display of time& Setup KMPTIME Library & Kill KMPTIME Library & Get Current Time & Start Realtime Modeline Clock & Enable MODLIN AutoSave & Insert Correct Time In Mode Line +8+fq(+4)[20[3 <%3,-q2f2u3q3&1@;q3"l0'> f[BBindq3-1*5,q3*5g2q:..o(0)+q2