CommandTool.BootCommands: "
←
IF (&watch ← ViewerOps.FindViewer[\"Watch\"]) #
NIL
THEN ViewerOps.SetOpenHeight[viewer: &watch, clientHeight: 120]
ELSE
NIL
Set the open height of the Watch Tool to something sensible.
←
IF &watch #
NIL
THEN ViewerOps.OpenIcon[icon: &watch, bottom:
FALSE]
ELSE
NIL
Get the Watch Tool open at the top of the column.
cd ///Commands/
We're gonna put some standard files in this standard place.
Bringover [Cedar]<CedarChest6.0>Top>Environment.df
Gets most of the standard stuff for ///Commands/; strictly speaking, this doesn't need to be done during a full-boot --- it only needs to be done "now and then". It's listed here so you don't forget. Once you've gotten sufficiently tired of doing it here, and won't ever forget to do it semi-regularly, you can delete it from here.
Run BootTool
A handy tool.
CommandToolProcedures
Universally registers some handy procedures with the interpreter: &stdin, &stdout, &stderr, &cmd, and &printRope.
DFTool
A screen interface to the DF software. Some love it, others ignore it.
cd
The following commands don't need to be done in ///Commands/, and so aren't.
Clock
Make a clock viewer.
PseudoServerAdd Fonts -r $ Cyan Luther.Alpine
PseudoServerAdd Cedar -r Cyan Cyan Luther.Alpine
PseudoServerAdd Summoner Indigo Indigo
PseudoServerAdd DATools -r Cyan Cyan Luther.Alpine
These commands set up the standard pseudo-servers in the currently correct way for Palo Alto people.
PseudoServerPrint
So you can later see what went wrong.
←
IF SystemVersion.machineType = dorado
THEN &cmd[\"SummonerEnableAutoIdle\"]
ELSE
NIL
This makes public doradoes offer their services as compute servers while idle.
STPServer start
This makes the machine a file server. Make sure the access control files are reasonable. See STPServerDoc.Tioga. A good STPServer.readAccess is "CSL^.pa, CedarUsers^.pa, EDL^.pa".
Openr FontCache.Tioga
This file contains a variety of characters. The idea is to get them into your font cache. Scroll through the file to make sure they all get displayed.
"
CommandTool.NewUser: "
AutoBackup off
Tell AutoBackup to take it easy while you're getting things set up. See the discussion under the AutoBackup entries.
← IF (&watch ← ViewerOps.FindViewer["Watch"]) # NIL THEN ViewerOps.SetOpenHeight[viewer: &watch, clientHeight: 120] ELSE NIL
Fix the Watch Tool again, in case we're suffering from a sub-optimal checkpoint.
← IF &watch # NIL THEN ViewerOps.OpenIcon[icon: &watch, bottom: FALSE] ELSE NIL
cd ///
Bringover [User]<
Yourname>6.0>
YournameRoot.DF
This is a useful trick. Make a DF-file for the stuff you want in the root, and BringOver it here. See [User]<Spreitzer>6.0>SpreitzerRoot.DF for an example. This is a good way to make sure you get the STPServer access control files right, and also to get the styles that everybody wants, but aren't considered "essential".
cd
Bringover [User]<
Yourname>6.0>
YournameHome.DF
An easy way to get what you want in your home directory. This may include: your telephone directory, if you're a Finch user; your Remember events file, if you're a Remember user; and your private wordlists, if you're a SpellingTool user.
cd Commands
Bringover [User]<
Yourname>6.0>
YournameHomeCmds.DF
Set up ///Users/Yourname.Yourregistry/Commands/. You probably won't need this at first.
cd ///Commands/
Bringover [User]<
Yourname>6.0>
YournameRootCmds.DF
More setup, if you need it. Not needed for vanilla usage.
AutoBackup on
Now that we've got the file system initialized, let AutoBackup track user changes.
Run EditorComforts
EditorComforts is a package of handy extensions to and revisions of the "standard" editor behavior (which is thus actually sub-standard). As it lacks a load file, you have to start it with a Run command.
Run GmtDebug
A handy package that makes the standard data structure for a time (BasicTime.GMT) print out of the interpreter in a user-friendly manner.
DeleteDFTools
There are some options that control the appearance of DF Tools. Unfortunately, existing DF tools do not change their appearance when the user profile changes. So you have to delete the existing tools and create a new one.
Alias ! Redo
There is a primitive Redo function available in command tools. This alias establishes a misleadingly familiar (to UNIX(TM) users) alternate name for it.
Alias GFR GetFromRelease
Alias GFRM (arg) GetFromRelease arg ← -md
GetFromRelease is a useful package, and I don't like typing that long name as often as I use it.
cd
← ViewerOps.MoveBoundary[512, ViewerSpecs.openBottomY]
This command sets the boundary between the two columns of viewers. Some people prefer it at 512, thus getting two equal-width columns. Other, less enlightened people, prefer it at 600, for stupid reasons.
FastMouse On
Turn on the FastMouse package. Using it, you can have your cursor move across the screen more quickly (and unevenly, if you use it wrong) than otherwise.
Statistics off
Some cretins boot and/or checkpoint with an obscure feature of the command tool enabled: the printing of statistics about the execution of each command. Here we make sure this annoyance is disabled.
STPServer start
Make sure this machine is willing to be a file server. This is polite and useful.
Install GetDWIM
GetDWIM is a handy package that makes the "Get" button in Tioga viewers smarter. `Install' is the proper way to start a package (but not a command) that is civilized enough to have a load file.
Install KeyboardTioga
KeyboardTioga revises and extends Tioga with some keystrokes for moving the cursor. It is an attempt to relieve the necessity to have three hands to use the Cedar user interface.
Install WorkingDirectory
WorkingDirectory makes some nice improvements in the handling of directories.
Install Remember
Get the reminder system started.
Install CommandToolProcedures
See above.
DoTiogaOps SaveSelectionA LeaveInitCap SubstituteInSel TypeName "code" StyleName "Cedar" PropName "Comment" RestoreSelectionA
Changes some settings in the Edit Tool to more commonly useful values.
← ViewerOps.SetOpenHeight[viewer: ViewerOps.FindViewer["EditTool"], clientHeight: 195]
Set the open height of the Edit Tool to something sensible.
PseudoServerAdd Fonts -r $ Cyan Luther.Alpine
PseudoServerAdd Cedar -r Cyan Cyan Luther.Alpine
PseudoServerAdd Summoner Indigo Indigo
PseudoServerAdd DATools -r Cyan Cyan Luther.Alpine
PseudoServerPrint
This again.
SummonerClientOn
Allow the compute server to serve you.
DoRollbackStuff
The hook for the RollbackAndAnything package.
"
CommandTool.PerLogin: "
cd
SetSearchRules ///Users/
Yourname.Yourregistry/Commands/ ///Commands/
This is where you specify what the command tool search rules should be.
ClearMenu
Reset the command tool menu, so you can set it up right.
ExecHacks
Provides the handy "DoIt" and "Redo" buttons.
CreateButton SetBreak SetBreak $SelectedViewerName$ $ViewerPosition$
CreateButton CD CD $CurrentSelection$
CreateButton Open Open $FileNameSelection$
CreateButton OpenR OpenR $FileNameSelection$
Some other popular buttons.
Cookie
For the fun of it.
"