Google
 
Trailing-Edge - PDP-10 Archives - mit_emacs_170_teco_1220 - emacs/clock.elib-original
Click emacs/clock.elib-original to see without markup as text/plain
There are no other files named clock.elib-original in the archive.
(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		#^hRYgm& 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
(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
<fq.2@;0:g.2-[:@;%.1
1,fq.2:g.2u.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.1<I] >JQ.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
<seconds>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 <modename> 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~[1<Q1-1U1Q1FP;>Q1