suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

no longer using replacements for \tt underscore, tilde, at-sign, dots,

Browse Source 
and curly braces, since the current cmtt font seems to support these
characters better than it once did.
  csug/scheme.sty
  release_notes/scheme.sty

original commit: f6c57b55cfbe34b269a606bd96983d62191a9aa1
This commit is contained in:
dyb 2017-10-12 23:48:32 -04:00
parent 820c74012c
commit f102c718c6
2 changed files with 12 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
csug/scheme.sty
View File

@ -54,14 +54,14 @@
\newskip\schemeindent
\schemeindent=0pt
{\obeyspaces\global\let =\ }
\def\schtilde{\raisebox{-.5ex}{\hbox to .5em{\hss\schemelarger\rm\char`\~\hss}}}
\def\schdot{\hbox to .5em{\hfil\schemelarger\bf.\hfil}}
\def\schtilde{\raisebox{-.5ex}{\hbox{\char`\~}}}
\def\schdot{.}
\def\schcarat{\char`\^}
\def\schbackslash{\char`\\}
\def\schatsign{\hbox to .5em{\hss\schemesmaller\rm\char`\@\hss}}
\def\schunderscore{\hbox to .5em{\hss\schemelarger\_\hss}}
\def\schlbrace{$\{$}
\def\schrbrace{$\}$}
\def\schatsign{\char`\@}
\def\schunderscore{\char`\_}
\def\schlbrace{\char`\{}
\def\schrbrace{\char`\}}
\def\scheme#1{\mbox{\tt\frenchspacing\spaceskip=\ttglue#1}}
\def\schemeblankline{\par\penalty-100\vskip .7\baselineskip}

12
release_notes/scheme.sty
View File

@ -12,14 +12,14 @@
\newskip\schemeindent
\schemeindent=0pt
{\obeyspaces\global\let =\ }
\def\schtilde{\raisebox{-.5ex}{\hbox to .5em{\hss\large\rm\char`\~\hss}}}
\def\schdot{\hbox to .5em{\hfil\large\bf.\hfil}}
\def\schtilde{\raisebox{-.5ex}{\hbox{\char`\~}}}
\def\schdot{.}
\def\schcarat{\char`\^}
\def\schbackslash{\char`\\}
\def\schatsign{\hbox to .5em{\hss\footnotesize\rm\char`\@\hss}}
\def\schunderscore{\hbox to .5em{\hss\large\_\hss}}
\def\schlbrace{$\{$}
\def\schrbrace{$\}$}
\def\schatsign{\char`\@}
\def\schunderscore{\char`\_}
\def\schlbrace{\char`\{}
\def\schrbrace{\char`\}}
\def\scheme#1{\mbox{\ttfamily\ninefivett\frenchspacing\spaceskip=\ttglue#1}}
\def\schemeblankline{\par\beforeschemedisplay}