--htdig_noindex-->
PDP-10 Archive: emactzclock.emacs from mit_emacsq70_teco_( *h) 20_title>
<link rel="stylesheet" TYPE="text/css" HREF="/css/pre.css" TITLE="Default">
</head><body>
<!-- SiteSearch Google -->
<form method="get" action="httpsa_/www.google.cowcustom" target="_top">
<table border="."."." bgcolor="#ffffff">
<tr><td nowrap="nowrap" valign="top" align="left" height="( >y) ">
<a href="https:]www.google.com.".">
<img src="https:]www.google.com/logos/Logo_25wht.gif" border="0" alt="Google" align="middle">_img>_a>
</td>
<td nowrap="nowrap">
<input type="hidden" name="domains" value="pdp-10.trailing-edge.com"></input>
<label for="sbi" style="display: none">Enter your search terms_label>
<inpu4 type="text" name="q" size=0001" maxlength="255" value="" id="sbi"></input>
<label for="sbb" style="display: none">Submi4 search form</label>
<input type="submit" name="sa" value="Search" id="sbb"></input>
_td></tr>
<tr>
<td> _td>
<td nowrap="nowrap">
<table>
<tr>
<td>
<inpu4 type="radio" name="sitesearch" value="" checked id="ss."."."></input>
<label for="ss."."." title="Search the Web"><fon4 size="-1" color="#000000">Web</font>_label>_td>
<td>
<inpu4 type="radio" name="sitesearch" value="pdp-10.trailing-edge.com" id="ss1"></input>
<label for="ss1" title="Search pdp-10.trailing-edge.com"><font size="-1" color="#00000.".".">pdp-10.trailing-edge.com</font>_label>_td>
_tr>
_table>
<inpu4 type="hidden" name="client" value="pub-0( g) 099936( R) 0500009"></input>
<input type="hidden" name="forid" value="1">_input>
<inpu4 type="hidden" name="ie" value="ISO-8859-1"></input>
<input type="hidden" name="oe" value="ISO-8859-1">_input>
<inpu4 type="hidden" name="cof" value="GALT:#00AS00;GL:1;DIV:00036699;VLC:66000099;AH:center;BGC:FFFFFF;LBGC00036699;ALC:0000FF;LC:0000FF;TES00000;GFNTES000FF;GIMPES000FF;FORID:1"></input>
<input type="hidden" name="hl" value="en">_input>
</td>_tr></table>
_form>
-- SiteSearch Google -->
<hr>
<strong><a href="httpa_/www.trailing-edge.com.".">Trailing-Edge_A>
-
<a href="httpa_/pdp-10.trailing-edge.cow">PDP-10 Archives</a>
-
<a href="http:]pdp-10.trailing-edge.com/mit_emacsq70_teco_( *h) 20/index.html">mit_emacsq70_teco_( *h) 20_A>
-
emacs/clock.emacs_strong>
<hr>
There are no other files named clock.emacs in the archive.<hr><!-q\htdig_noindex--><pre* -*- TECO -*-S M g * [toed.xkl.com]DXX:<EMACS>CLOCK.EMACS.1, 10-Apr-95 5 170:, Edit b9 ALDERSON!
!* Reconstructed from sourceless library. Commented as well as possibleS M
!~Filename~:! !Time macros for EMACS!
CLOCK
_PRE><pre>
!& Setup CLOCK Library:!S M S Setu0 for showing time in mode line.
Runs Q$CLOCK Setu0 Hook. if there one.
Updates displa9 ever9 minute, bu4 yo5 can change this by doing
<seconds>MM & Start Realtime Modeline Clock.!
0FO..QCLOCK_Setup_Hook[1
Fc"G'
"#M.M&_Set_My_Mode_LinefsModeMacro
m(m.m&_Start_Realtime_Modeline_Clock)'
_PRE><pre>
!& Get Current Time:! !S Returns Time as a string of exactly 7 chars.!
[0m3 1 3 p[4 fs date :fs fd convert # S M * Conver4 curren4 date to string!
( *h) ,14:D S M * Ge4 minutes portioD 9,11:o V S M * Ge4 hours portioD F( O) 00"e !* On the hour? (Minutes = 00?)! F000000"e:i*Midnite ' S M * Yes, special hour 00 or ( *h) F0000( *h) "e:i*Noon___ ''
000/12"e !* Two-digit hour?!
:i4am' !* Assume forenoon...! "#(000-12):\o V !* Convert from 24hr to ( *h) hr clock!
fq3-1"e:1 7 p3' !* If only 1 hour digit, pad leading space!
:i4pm' !* Afternoon...! F0000_0"e:1 7 p( *h) ' !* If before 1am or 1pm, say 12<mumble>F A X "#F000000"e:1 7 p( *h) ''
0:1 5 p-48"e !* If the leading character still = E 0:F000_' S M * make i4 a spacV I :i*000N 4 S M * and return our string.!
_PRE><pre>
!& Start Realtime Modeline Clock:!S M S Ge4 the realtime clock interrupts going.
Optional numeric argument specifies seconds between update. Defaul4 is 60.!
F F -1"n
000 * 0) FS Clk Int' "#
30 * (F) FS Clk Int' 0 M.V Modeline_Full_Update_Time
M.M &_Insert_Correct_Time_in_Mode_Line fs CLK Macro
0
</pre><pre>g &< s p a n c l a s s = " n a k e d _ s i g n " > ; < / s p a n > < s p a n c l a s s = " n a k e d _ a u r a l " > ( l) < / s p a n > Insert Correct Time In Mode Line:!S M S Updates modeline display of time.!
1,M.M&_Periodic_Action"n !* Perform any defined periodic action!
M(M.M&_Periodic_Action)'
qModeline_Full_Update_Time"e S M * Toggle!
1uModeline_Full_Update_Time
0 '
"# 0uModeline_Full_Update_Time'
f[ ins len qEditor_Name[0
f~..J 0 -1 -FQ0 "N oSet' FQ..J - (FQ0+8) "l oSet'
:i0 ..J
M(M.M&_Get_Current_Time)[1
FQEditor_Name +1 :FD 1 F=0 ..J "e 0 '
q0u..J FR
0
!Set!
m(fs mode macro)fr
0
</pre><pre>g &< s p a n c l a s s = " n a k e d _ s i g n " > ; < / s p a n > < s p a n c l a s s = " n a k e d _ a u r a l " > ( l) < / s p a n > Se4 My Mode Line:!S M S Se4 the ..J Mode to displa9 options and curren4 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.!
-(FS QP PTR *( N) ) FS MODE CH !* Arrange to call FS Mode Macro. if!
!* control returns to outer stacX I I
QEditor_Name[0 !* Save editor name and curren4 mode namV I QModem
"N :I1 cUMode S M * Ge4 ne7 major mode name, if anx 0FO..K1_Mode_Hook3 1 !* Look up mode hook!
2 1 "NM2'' !* If there is one, run it!
0[.1 q..J[.2
<fq( ё) @< s p a n c l a s s = " n a k e d _ s i g n " > ; < / s p a n > < s p a n c l a s s = " n a k e d _ a u r a l " > ( l) < / s p a n > 0:g.2 - [ :@; %.1 1,fq.2 :g( ё) u( ё) > F~.2 0 -1 -FQ0 "N 0 '
F[BBind G0 I_
g(m(m.m&_get_current_time)*)I_
0FO..QEditor_Type3 1 Q2"N { I_'
I( G1
QSubmodeU2 FQ2"G
I[( $) ]'
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 + 0 U2
FQ2"? ? {'
I)__
QBuffer_NameU2
QBuffer_FilenamesU1
c"N Q1 F[ D FILE F) (FS D FN1 :F6) ( $) "E 0 2 5 '' Q2"N e 2:__'
FQ1"? ? FS OS TECO"N S M * If not on IT1 D 3 Fc R FS HS NAME :F6 U2
FS OS TECO -1"E !* If *really* TENEX!
FQ2 F~ 2"E FQ 2D'' "# 4 F) DSK:"E 4D !* If Tops( (g) E FQ2 + 2 F) <( $) >"E FQ2 + 2 D'''
ZJ FS D VERS"E ( (g) D''
I_ QInhibit_Write"L I(RO)_''
ZJ Q.1<< s p a n c l a s s = " n a k e d _ s i g n " > ; < / s p a n > < s p a n c l a s s = " n a k e d _ a u r a l " > ( l) < / s p a n > I]_ >< s p a n c l a s s = " n a k e d _ s i g n " > ; < / s p a n > < s p a n c l a s s = " n a k e d _ a u r a l " > ( l) < / s p a n > J Q.1, [I
HX..J
0
_PRE><scrip4 defer src="httpsa_/static.cloudflareinsights.com/beacon.min.js/vcd15cbe7772f491 1 p99c6a5babf( g) u2417176876015" integrity="sha5( *h) -ZpsOmlRQV6yDS7TI0dKBHq9Md29nnaEIPlkf84rnaERnq6zvWvPUqȹft8M1a2 3 8oN72PdrCzSjY4U6VaAw1EQ==" data-cf-beacon='{"version":( N) ( e) 4. .0","token":"f9d00000fdfdbee4b6381400000984a2a355aa"+"+"r"+"+"server_timing":{"name":{"cfCacheStatus":true+"+"cfEdge":true+"+"cfExtPri":true+"+"cfL4":true+"+"cfOrigin":true+"+"cfSpeedBrain":trueV "location_startswith":null}}' crossorigin="anonymous">_script>
_body></html>< / d i v > < d i v c l a s s = " n a k e d _ c t r l " >
< f o r m a c t i o n = " / i n d e x . c g i / l a r g e r - t e x t " m e t h o d = " g e t " n a m e = " g a t e " >
< p > < a h r e f = " h t t p : / / a l t s t y l e . a l f a s a d o . n e t " > A l t S t y l e < / a > k00c0f0 YcU00_0000 < a h r e f = " h t t p : / / p d p - 1 0 . t r a i l i n g - e d g e . c o m / m i t _ e m a c s _ 1 7 0 _ t e c o _ 1 2 2 0 / 0 1 / e m a c s / c l o c k . e m a c s . h t m l " > ( - & g t ; 00000) < / a >
/ < l a b e l > 0000: < i n p u t t y p e = " t e x t " n a m e = " n a k e d _ p o s t _ u r l " v a l u e = " h t t p : / / p d p - 1 0 . t r a i l i n g - e d g e . c o m / m i t _ e m a c s _ 1 7 0 _ t e c o _ 1 2 2 0 / 0 1 / e m a c s / c l o c k . e m a c s . h t m l " s i z e = " 2 2 " / > < / l a b e l > < l a b e l > 000: < s e l e c t n a m e = " n a k e d _ p o s t _ m o d e " >
< o p t i o n v a l u e = " d e f a u l t " > 00000< / o p t i o n >
< o p t i o n v a l u e = " s p e e c h " > X0000< / o p t i o n >
< o p t i o n v a l u e = " r u b y " > 00NM0< / o p t i o n >
< o p t i o n v a l u e = " c o n t r a s t " > MrS< / o p t i o n >
< o p t i o n v a l u e = " l a r g e r - t e x t " s e l e c t e d = " s e l e c t e d " > eW[b'Y< / o p t i o n >
< o p t i o n v a l u e = " m o b i l e " > 0000< / o p t i o n >
< / s e l e c t >
< i n p u t t y p e = " s u b m i t " v a l u e = " h:y" / >
< / p >
< / f o r m >
< / d i v >