PDP-10 Archive: emacs/personal.elib from mit_emacs_170_teco

Trailing-Edge - PDP-10 Archives - mit_emacs_170_teco_1220 - emacs/personal.elib

There are no other files named personal.elib in the archive.

xW
[0+8+FQ(+4)[1
0FO10F"G+Q1'
+FQ()+4U1
FQ1"L0'
,Q1:M(Q1+4(]1]0))
   !H
[*
h5
v=

:H`VE`jCuBc,Eo#2 @ MK hY!&e"zm,0z((n)3"+

1_;YB-5& Setup PERSONAL Library& Sort With Date KeySet Clock Interval^R Add Memo^R Finished Project^R Help Given^R Memo^R Note Project^R Personal Help^R Started Project^R Telephone Call^R Telephone Number~DIRECTORY~"~DOC~ & Setup PERSONAL Library~DOC~ & Sort With Date Key~DOC~ Set Clock Interval~DOC~ ^R Add Memo~DOC~ ^R Finished Project~DOC~ ^R Help Given~DOC~ ^R Memo~DOC~ ^R Note Project~DOC~ ^R Personal Help~DOC~ ^R Started Project~DOC~ ^R Telephone Call~DOC~ ^R Telephone Number~DOC~ ~FILENAME~~FILENAME~

~INVERT~&FSHSNAME[A
0FO..QPersonal Telephone Directory File[B
FQB"L:I*ATEL.X.0(
)M.CPersonal Telephone Directory File* File containing personal telephone index'
0FO..QCompany Telephone Directory FileUB
FQB"L:I*SYS:COMPANY.DIR.0(
)M.CCompany Telephone Directory File* File containing telephone index for the company'
2FO..QCompany Directory Occur(
)M.CCompany Directory Occur* Number of Lines to print for a match in the directory
0FO..QTelephone Call FileUB
FQB"L:I*ATelephone.Calls.0(
)M.CTelephone Call File* Telephone Call Summary file'
0FO..QProjects FileUB
FQB"L:I*APROJECTS-ONGOING.TXT.0(
)M.CProjects File* File where ongoing projects are recorded'
0FO..QHelp Given FileuB
FQB"L:I*AHELP-GIVEN.TXT.0(
)M.CHelp Given File* File containing miscellaneous services'
0FO..QMemo FileuB
FQB"L:I*AMEMO-FILE.TXT.0(
)M.CMemo File* File containing assorted memos'
0FO..QPersonal help FileuB
FQB"L:I*APERSONAL-HELP.TXT.0(
)M.CPersonal Help File* Personal HELP file'
-1FO..QMemo Watch(
)M.CMemo Watch* Flag indicating auto Memo output (-1,0,1).
<0 = New Memos, 0 = No checking, >0 = All Messages
5FO..QMemo Alert(
)M.CMemo Alert* Number of Minutes before due time to ring bell.
20FO..QMemo Begin(
)M.CMemo Begin* Start displaying Memo <val> Minutes before due time
10FO..QMemo Quit(
)M.CMemo Quit* Quit displaying Memo <val> Minutes after due time
F[BBIND
G..FWJ
:S^R Memo"E
@I|@M(M.M^R Memo)
|
HFX..FQ..FU.F'
f]bbind
0FO..QPERSONAL Setup HookF([0)"N:M0']0
M.M^R Telephone Number,776.@FS^RCMAC
M.M^R Started Project,642.@FS^RCMAC
M.M^R Finished Project,647.@FS^RCMAC
M.M^R Telephone Call,446.@FS^RCMAC
M.M^R Help Given,646.@FS^RCMAC
M.M^R Personal Help,653.@FS^RCMAC
M.M^R Memo,452.@FS^RCMAC
M.M^R Add Memo,652.@FS^RCMAC
J:FSFDCONVERT$1l
*3600FSCLKINTERVAL
F[DfileW[Buffer Filenames
E[E\FNE^E]
fshsname[Z
:I*ZMEMO.FILE.0FO..QMemo FileUZ
1,FDate and Time: [A
FQA"E'
F[BBIND
GAFKC
WFSFDconvertF(UA):"G
:I*CIllegal Date and/or Time Entry.  Aborting Line(
)fsechodisp0fsechoactive'
HK0,QAfsfdconvert
1,FMessage: [B
fqB"G
:L32IGB13i10i
j<:S	;-d32I>
J<:S  ;-D-1:C;>'
J:S"E'
0,ZM(M.MAppend to File)Z
	F[DfileW[Buffer Filenames
E[E\FNE^E]
fshsname[Z
:I*ZPROJECTS.TXT.0FO..QProjects FileUZ
1,FProject: [A
FF[C
[B:IBFinished
QC"N:IBInterrupted'
F[bbind
I
Project: A
B on 
M(M.MInsert Date)
:L46I13I10I
0,ZM(M.MAppend to File)Z
DF[DfileW[Buffer Filenames
E[E\FNE^E]
0[..F
fshsname[Z
:I*ZHELP.GIVEN.0FO..QHelp Given FileUZ
QZUBuffer Filenames
1,FHelp given to: [A
FQA:"G'
1,FType of help given: [B
0[00[1:I*[2[D
FF"N'"#15'U0
Q0"G
Q0/60U1
Q0-(Q1*60)U0
'
"#Q0U10U0'
Q1F"G:\U2
:I22 Hour
Q1-1"G:I22s'
:I22 
'
Q0F"G:\U1
:I221 Minute
Q0-1"G:I22s'
:I22 
'
FQ2"G0,FQ2-1:G2U2
:I22.'
F[bbind
QModeUD
0FO..QMM COMPILE"N[MM COMPILE'
M(M.MText Mode)
9:I*[Fill Prefix
70[Fill Column
1[Auto Fill Mode
IHelp requested by:  A13I10I
FQB"GIType of help given:  B13I10I'
IEntry Date:  
M(M.MInsert Date)W:L13I10I13i10i
IProblem:
		
.(13I10I13I10I
ISolution:
	

Time Taken:  2
)J

1:<M(M.MD Mode)>W
J12i13i10i
zj13i10I
0,ZM(M.MAppend To File)Z
O:F"G1[W'
"#0FO..QMemo WatchF"N[W'"#''
F[DfileW[Buffer Filenames
E[E\FNE^E]
F[bbind
[A[B[C[D0[E0[F[G[H[I[T
fshsname[Z
:I*ZMEMO.FILE.0FO..QMemo FileUZ
FFUA
1:<ERZ>"N
QW"G
:I*CNo Memo File FoundFSechodisp
0fsechoactive''
@Y
M(M.M& Sort With Date Key)
20FO..QMemo Begin*182UB
10FO..QMemo Quit*182UC
5FO..QMemo Alert*182UH
J<.-z;W
0l0udWFSFDCONVERTUdW1:C;
WFSDATEUT
WQD-QT-QB"'L&(WQD+QC-QT"'G)"L
%FW
400300000000.,QD:FSfdconvertUIW
:XG
:IGI G
qa"E
QD-QT-QH"'L&(QD-QT"'G)"L
!<<!W:IG>>G'
"#W:IG  G''
"#W:IG  G'
QF-1-((QF-1)/3*3)"Gqf-1"N:IGAG'
30'
"#qf-1"N75'
:IGCG'
0LQGFSEchodisp0fsechoactive
QA"N1M(M.M& Yes or No)"L1K1UE'"#1l''
"#1l''
"#1l'
>
QF"EQW"G
:I*CNo MemosFSEchodisp
0fsechoactive''
QE"N
1:<EDZ>
0,ZM(M.MWrite Region)Z'
wF[dfile
E[E\FNE^E]
1,FEvery occurrence of: [A
FQA:"G0'
0[0[10[YQ1F"N-1"'NUY'Q1:"Gq1-1U1'
fshsname[B
(:I*BPERSONAL-HELP.TXT.0)FO..QPersonal Help FileUB
:I*[C
F[BBIND
1:<ERB>"N
'
"#@Y
J<.-z;:SA;
0lWQ1F(:"G1L'
)@XC%0W
QY"L:ICC---
'
Q1:"L1l'>
'
:I*Cfsechodisp
FQC"G
:IC

C
Done.
FTC'
"#@FTNo Match.0fsechoactive'
0~F[DfileW[Buffer Filenames
E[E\FNE^E]
0[..F
fshsname[Z
:I*ZProjects.TXT.0FO..QProjects FileUZ
QZUBuffer Filenames
1,FProject: [A
FF[C
[B:IBStarted
QC"N:IBContinued'
F[bbind
IProject: A
B on 
M(M.MInsert Date)
:L46I13I10I
QC"E
13i10i
I	Description:

QMode[D
0FO..QMM COMPILE"N[MM COMPILE'
M(M.MText Mode)
9:I*[Fill Prefix
70[Fill Column
1[Auto Fill Mode
2,9i13i10i-2C

1:<M(M.MD Mode)>W'
J12i13i10i
zj13i10I
0,ZM(M.MAppend To File)Z
BF[DfileW[Buffer Filenames
E[E\FNE^E]
0[..F
FSHSNAME[Z
:I*ZTELEPHONE.CALLS.0FO..QTelephone Call FileUZ
QZUBuffer Filenames
1,FName: [A
FQA:"G'
1,FTelephone: [C
1,FTopic: [B
0[00[1:I*[2[D
FF"N'"#15'U0
Q0"G
Q0/60U1
Q0-(Q1*60)U0
'
"#Q0U10U0'
Q1F"G:\U2
:I22 Hour
Q1-1"G:I22s'
:I22 
'
Q0F"G:\U1
:I221 Minute
Q0-1"G:I22s'
:I22 
'
FQ2"G0,FQ2-1:G2U2
:I22.'
F[bbind
QModeUD
0FO..QMM COMPILE"N[MM COMPILE'
M(M.MText Mode)
9:I*[Fill Prefix
70[Fill Column
1[Auto Fill Mode
IName:  A13I10I
FQC"GITelephone Number:  C13I10I'
FQB"GITopic:  B13I10I'

IEntry Date:  
M(M.MInsert Date)W:L13I10I13i10i
INotes:
		
.(13i10i13i10i
ITime Taken:  2
)J

1:<M(M.MD Mode)>W
J12i13i10i
zj13i10I
0,ZM(M.MAppend To File)Z
CF[dfile
E[E\FNE^E]
1,FName: [A
FQA:"G0'
0[0
fshsname[B
(:I*BTEL.X.0)FO..QPersonal Telephone Directory FileUB
(:I*HLP:COMPANY.TEL.0)FO..QCompany Telephone Directory File[D
2FO..QCompany Telephone Occur[E
:I*[C
F[BBIND
1:<ERB@Y>"E
J<.-z;:SA;
0lW@XC%0W
1l>
Q0"N:ICC

''
1:<erD@Y>"E
J<.-z;:SA;
0lWqE@XC
1l>'
:I*Cfsechodisp
FQC"G
:IC

C
Done.
FTC'
"#@FTNo Match.0fsechoactive'
0)F[DfileW[Buffer Filenames
0f[dversion
E[E\FNE^E]
0[..F
fshsname[Z
:I*ZProjects.TXT.0FO..QProjects FileUZ
QZUBuffer Filenames
1,FProject: [A
1,FTime Taken: [B
F[bbind
IProject: A
Entry Date: 
M(M.MInsert Date)
:L46I13I10I
13i10i
I	Description:

QMode[D
0FO..QMM COMPILE"N[MM COMPILE'
M(M.MText Mode)
9:I*[Fill Prefix
70[Fill Column
1[Auto Fill Mode
2,9i13i10i-2C
.(zj13i10i
ITime Taken:  
FQB"GGBI.'
13i10i)J

1:<M(M.MD Mode)>W
J12i13i10i
zj13i10I
0,ZM(M.MAppend To File)Z

PERSONAL Macros to run personal items-S Makes certain library wide definitions..S Sorts the buffer according to date by line basis.
The date and time fields at the beginning of each line form the sort
keys. These fields are written in any format suitable for the
system date and time. Please refer to the description of ^R Memo
for more detail on that subject.`C Sets the clock interval for the Secretary Macro.
The input argument should be in minutes.6^R Adds a memo to the currently defined memo file.|Writes a finished prompt to the Projects File.
Given an argument it will state the project was interrupted instead.)^R Appends another entry to Q$Help Given File$.
The numeric argument is taken as minutes if it is positive or integral
hours if negative with the default being 15 minutes. This value is
assumed to be the time taken. Two string arguments are requested and
these are: The name of the person the help was given to, and the type
of help given. The user is then placed in a ^R sublevel to edit the
rest of the fields.;
C Checks for pending memos.
Any argument sets acknowledge mode where each pertinent memo is
flagged with a (Y or N) for deletion. Two variables control the
typeout and checking of memos. They are:

Q$Memo Begin$ = 20
The memo will be displayed if the current time is
within this many minutes of the memo time.
Q$Memo Quit$ = 10
The memo will no longer be displayed if the current
time is greater than the memo time by this many
minutes.
Q$Memo Watch$ = 1
Flag indicating the type of memo checking or messages
to be output.
<0, Output a memo message only if one exists. That is,
do not output any error messages.
=0, Omit all memo checking.
>0, Output any messages.
Q$Memo Alert$ =5
Number of minutes before due time of message to alert
the user with a bell and a pointer to the message.

The memos are stored in the variable Q$Memo_File$, which can be
changed by MM Edit Options. The format of the file should be as
follows:
For each line the date and time and the message should be
used. The date and time field must be in one of the system date and
time formats. For example, each line of the file should contain:

dd-mmm-yy#hh:mm:ss#Message to be output mmm=Jan, Feb, etc
or dd/mm/yy#hh:mm:ss#Message to be output mm=01,02, etc

with # symbolizing a space
,^R Displays everyline containing string
It looks at the file stored in Q$Personal_Help_File$. A numeric
argument shows that many lines after and including the string^R Insert start of project info into the file.
Given an argument it states that the project was continued instead of
started.2^R Appends another entry to Q$Telephone Call File$.
The numeric argument is taken as minutes if it is positive or integral
hours if negative with the default being 15 minutes. This value is
assumed to be the time taken. Three string arguments are requested and
these are: The name of the person, his telephone number, and the topic
of conversation. The user is then placed in a ^R sublevel to edit the
rest of the fields.H^R Retrieves a telephone number. The macro
takes a look at the file Company Telephone Directory File, and the
file in the variable Personal Telephone Directory File is not defined,
for any names containing the string argument and displays the contents
on that line. An argument specifies the number of lines to display)^R Insert project info into the file.a& Setup PERSONAL Library
& Sort With Date Key
Set Clock Interval
^R Add Memo
^R Finished Project
^R Help Given
^R Memo
^R Personal Help
^R Started Project
^R Telephone Call
^R Telephone Number
^R Note Project
T+8+fq(+4)[20[3
<%3,-q2f2u3q3&1@;q3"l0'>
f[BBindq3-1*5,q3*5g2q:..o(0)+q2