!* -*- TECO -*- Library created and maintained by KMP@MC !
g ~Filename~:!S M Fanc9 Mode Line handlei i i
MODLIN
Ã_PRE>
!& Setup MODLIN Library:! !& Put winning mode line in effect!
1,m(m.m &_Get_Library_Pointer)KMPTIME"e
m(m.m Load_Library)TIME'
m.m&_Fancy_Mode_Line fs Mode Macro
m.m&_Fancy_Mode_Line M.V MM_&_Set_Mode_Line
fsOSTeco"e m.m&_Check_for_Correct_Superior fs ^R Display'
m.m&_Fancy_Mode_Line(
),m(m.m&_Start_Realtime_Modeline_Clock)
1fsmodech
0fo..QInvert_Filenamesm.vInvert_Filenames
Ã_PRE>
!& Kill MODLIN Library:!S M &< 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 > Ge4 rid of this mode linV I
1,m(m.m&_Get_Library_Pointer)EMACSm.m&_Set_Mode_Linef((
)m.v MM_&_Set_Mode_Line
)fs Mode Macro
fsOSTeco"e 0 fs ^R Display'
1fsmodech
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 > Check for Correc4 Superior:!S M S Update Job Superior in Mode Line
For use with LISPT if superior is changing. Checks to see if superior
has changed, and calls MM& Set Mode Line if it has. This should be put
in FS^R Display in order to win. Takes a minimal amount of overhead to
check when superior has no4 changed. If job is a LISPT, runs
qLISPT Autoload Hook if nonzero. !
fsOSTeco"n 0 ' !* Return if not ITS.!
S M * Should never run off ITS anyway.S M
[0[1
fsxjname-(f6MAILT)"e 0 ' !* Ignore MAILT SuperiorS M ( ) FO..QLast_Correct_Superior# !* Get las4 superior info in Q1 !
fs%oplspu0 S M * Pu4 FS %OPLSP in Q0 !
q0+q1"n !* If superior has changed. !
q1-2"e 2M.VLast_Correct_Superior' !* Make a ne7 variableS M "#( N) uLast_Correct_Superior' !* Or use the old one !
1 fs mode change S M * Se4 up to change the mode lineS M 0-q0uLast_Correct_Superior' !* Save ne7 superiorS M
0
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 > Fanc9 Mode Line:! !S Set the ..J Mode to display options.
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.!
-(fsqpptr( g) )fsmodech S M * Setu0 for re-call if qpdl is popped.S M
S M * !
[0m3 1 3 ¹p[4 [.1[.2[Ô0¢0¹0È0ë0[.4 !* Bind scratch qregs S M
S M * !
!* Because we are called a4 interrup4 !
!* level, we should bind all kinds of !
!* things to be sure no4 to screw S M
S M * interrupted code... !
!* S M f[inslen S M * Bind length of las4 inserted frob S M f[sstring !* Bind defaul4 search string !
!* S M qEditor_Nameu0 S M * q0 = Editor Name S M qMode# S M * = Major Mode S M qBuffer_Indexo V !* q2 2 = Buffer Index S M 0u.1 !* q.1 = A counter (init to 0) S M fsreadonlyu.2 S M * q.2 = ReadOnliness of buffer S M :i*uÔ0¢0¹0È0ë0 S M * q.2 2 = Macro to run upon return S M fsvz+b u.4 S M * q.2 2 2 = nonzero if buffer narrow S M fnmÔ0¢0¹0È0ë0 !* Set u0 to macro qÔ0¢0¹0È0ë0 !
!* S M "n S M * If an arg given, ... !
:iE q1uMode S M * Get string arg of new major mode S M 0fo..Q 1_Mode_Hooku2 !* Ge4 mode hook, if any, in |· S M q2"n '' S M * If a hook was found, macro it S M
S M * !
f[BBind S M * Bind the buffer for fast insert !
f[DFile S M * Bind default filenames !
!* S M g..J j !* Get old mode line in buffer S M :s[ w .-1u.1 !* Search for a non-[ to count ^R levels!
q.1j fq0f f~ 0-fq0-1"n 0 ' S M * Exit if non-standard modeline insideS M
S M * (Standard= begins with Editor Name)S M
S M * !
hk !* kill text from buffer !
!* S M g0 i_ S M * Insert Editor Name + space in bufferS M
S M * !
g(M(M.M &_Get_Current_Time)) !* Get ahold of the time !
!* S M fsOSTeco"n S M * Pu4 in load ave, but on T(w)enex onlx fs load av[0 S M * S M i_ g0' !* Dro0 in load av !
!* !
i_[ S M * Insert a a lef4 bracket S M
S M * !
fsOSTeco"e !* For ITS only.. !
fs%OPLSP"n !* If we are an inferior, S M fsxjname-(f6MAILT)"n !* If no4 a MAILT !
0fo..Q LISPT_AutoLoad_Hookf"nu.3' iLISP:_' !* then inser4 LISP: into modeline !
"# S M * Else we are a MAILT S M iMAIL:_''' !* so say so !
S M * Else (no4 inferior) S M
S M * Then DDT: is the thing to use !
!* bu4 no one wants to see it... !
!* S M g1 S M * Insert the major mode S M
S M * !
qSubmodeDÅ !* Get Submode, if any, in q2. S M f|·"g iÆ 2 ' !* and insert i4 as a subscript S M
S M * !
qAuto_Fill_Mode"n i_Fill' !* If in Auto Fill Mode, say so S M
S M * !
q:.B(q3+10)"n i_Save' S M * If buffer is in autosave mode !
"# qAuto_Save_Default"n !* Or if i4 is unusual to have i4 off !
i_NoSave'' !* mention i4 is off !
!* S M qVisit_File_Save_Old[0 !* Bind value !
q."."."l i_SaveOld' !* Mention if writeback forced S M
"# q0"e i_NoSaveOld'' !* Or if inhibited !
]0 !* No mention means it will query !
!* S M q:.B(h P a +12)f"n[0 S M * If readonliness exists, S M i _ReadOnlyFile !* mention it S M q0"l iëXBuf ' !* and what i4 spans S M ]0' !* and close this off !
"# q( Ñ‘) "n i_ReadOnlyBuf'' !* Or maybe Teco readonliness involved !
!* S M fs ^R Replace"n i_OverWrite' S M * Mention overwrite mode !
!* S M fs Tyi Sink"n i_Def' !* Mention KBDMAC def mode !
!* S M Q.4"N I_Narrow' S M * Mention narrow buffer bounds S M
S M * !
MSet_Mode_Line_Hook+0 DÅ S M * |·: Result of user insertion hook S M fq2"g ' !* If stuff was returned, inser4 it !
!* S M 0fo..Q Editor_TypeDÅ S M * |·: Editor Type, if any S M fq2"n i_<( $ÆÈ) >' "# i_- ' S M * Inser4 <type> or a dash !
!* S M qBuffer_Filenames# S M * : Buffer Filenames !
qBuffer_NameDÅ !* q2: Buffer Name S M
S M * !
"N et 1 S M * Se4 file default to buffer filenamesS M fsdfileu1 S M * Get formatted form of q1 in q1 !
f~(fsdfn1:f6)( $ÆÈ) "e !* If f is the same as buffer name !
0u2'' !* Zero ou4 buffer name S M
S M * !
|·"n i´2' S M * Insert space + buffer name if an9 S M "# 0a- +"+"+"e ( (g) d'' S M * Else look for hyphen and flush i4 S M
S M * !
i]_ S M * In any case, inser4 the righ4 brackev
S M * !
fq1"g Ç f r S M * If a filename exists, insert it !
0u2 2 2 .fsvb !* Remember this point !
fs osteco"n !* If no4 on an ITS, ... !
.(S M <! s> z-.u4 )j !* Remember f point !
fshsname:f6DÅ !* Back u0 and ge4 HSNAME in |· !
fsosteco-1"e !* If on a 20X, ... !
fq2 f~( $ÆÈ) "e fq2d'' S M * Leave the PS:<hsname>< 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 > out. S M
"# 4 f~DSK:"e 4d !* If on a 10X, maybe delete DSK: !
f|·( kp) f~< 2>"e S M * and if tha4 worked, hsname S M f|·( kp) d''' !* if possible also !
zj fs dvers"e ( (g) d q4( (g) u4''S M * And if version 0, leave i4 out.S M "# !* Else, on ITS... !
.( s:_ z-.u2 2 2 )j S M * Remember fn1 point S M fsmachine:f6DÅ !* Pu4 machine name in |· S M :s;"l !* Find end of dir name S M
1a- _"e d' !* Flush space after dir name !
3 f~( $ÆÈ) :"e 4d' S M * Delete machine name if local S M :s:"l !* Find end of dev name !
1a- _"e d'''' S M * Flush space after dev name S M qInvert_Filenames"n S M * If user requested it, ... !
z-q4j g( :fx* ( j ) ) i_' !* Change filename order S M 0fsvb !* Widen buffer bounds !
zj S M * Jump to the end, !
fsdversion"'e+( !* Include actual file version number !
fsdversion( kp) "'e)"l S M * !
i_= q:.b(q3+9)[0 S M * Se4 up for including true version S M
q0"g q0\' S M * Insert true version if worthwhile S M
"# -d q0+1"e i# ' S M * Or a # if something wierd !
"# i~ g0 '' S M * Or ~filename if a non-numeric name S M
]0'' S M * Po0 qregs !
!* S M 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_^R] >< 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 !* Put back on indicators of ^R level. !
!* S M zj i_ !* Kill all back into ..J S M
S M * !
hf"..j"n hx..j' S M * Se4 ..j unless no difference.If sameB
S M * keep old one since Teco can then S M
S M * avoid redisplaying the mode line. S M
S M * !
0 !* Return, saying no region go4 changed !
Ã_PRE>Ã_script>
Ã_body>< / 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 > k0ˆ0c0f0 YÛcU0Œ0_0Ú0ü0¸0 < 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 / m o d l i n . e m a c s . h t m l " > ( - & g t ; ª0ê0¸0Ê0ë0) < / a >
/ < l a b e l > ¢0É0ì0¹0: < 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 / m o d l i n . 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 > â0ü0É0: < 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 " > Ç0Õ0©0ë0È0< / o p t i o n >
< o p t i o n v a l u e = " s p e e c h " > ó—ðXÖ0é0¦0¶0< / o p t i o n >
< o p t i o n v a l u e = " r u b y " > ë0Ó0ØNM0< / 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 " > M‘r‚ÍSâŽ< / 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 " > â0Ð0¤0ë0< / 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 >