Initial commit: Klammertext source distribution
Curated source subset assembled by klammertext-dev's doc/make_dist.sh: the Klammermachine (mac), the Standard Klammer Set (sks), the commands (com), editor plugins and install guides (doc), a test subset (tst), and lib/bin placeholders. Builds with 'make -C com'. Co-Authored-By: Claude Opus 4.8 (1M context) <noreply@anthropic.com>
This commit is contained in:
113
sks/block/block.k
Normal file
113
sks/block/block.k
Normal file
@@ -0,0 +1,113 @@
|
||||
@@sp.k : Non-breaking space character @@
|
||||
@@sp.html :: &^#160; @@
|
||||
@@sp.tex :: ~ @@
|
||||
|
||||
@@footnote.k s : Footnote (TBD) @@
|
||||
@@footnote :: [*s*] @@
|
||||
|
||||
@@indent.k s :w.int 3 :linebreak.bool false : Indented block @@
|
||||
@@indent :: @eval block.Indent(K) eval@ @@
|
||||
|
||||
@@quote.k s :w.int 1 :source : Quotation block @@
|
||||
|
||||
@@quote.html ::
|
||||
<div class="quote">
|
||||
*s*
|
||||
</div>
|
||||
@@
|
||||
|
||||
@@quote.tex ::
|
||||
ANDY: QUOTE: *s*
|
||||
#[
|
||||
\hspace*{@{justify.length_mul("|margin|", 1, 'latex')}@}
|
||||
\begin{minipage}{\textwidth- @{justify.length_mul("|margin|", 2, 'latex')}@ }
|
||||
\raggedright
|
||||
|text|
|
||||
@? """|source|""" |?
|
||||
\vspace*{6pt}
|
||||
{\begin{spacing}{1.1}\footnotesize\raggedleft |source| \end{spacing}}
|
||||
?@
|
||||
\end{minipage}
|
||||
]#
|
||||
@@
|
||||
|
||||
@@quote.txt ::
|
||||
@eval block.block_indent(K) eval@
|
||||
@@
|
||||
|
||||
@@note.k s :label Note :color 1.0,1.0,0.9 :bordercolor 0.2,0.2,0.2 :level.int 0 :width
|
||||
: Rectangular block for a special note @@
|
||||
|
||||
@@note :: @eval block.Note(K) eval@ @@
|
||||
|
||||
@@center.k s : Center text @@
|
||||
|
||||
@@center.tex ::
|
||||
\begin{center}
|
||||
*s*
|
||||
\end{center}
|
||||
@@
|
||||
|
||||
@@center.html ::
|
||||
<div class="center">
|
||||
*s*
|
||||
</div>
|
||||
@@
|
||||
|
||||
@@right.k s : Right-justified text @@
|
||||
|
||||
@@right.html ::
|
||||
<b>TBD</b> *s*
|
||||
@@
|
||||
|
||||
@@right.tex ::
|
||||
\begin{flushright}
|
||||
*s*
|
||||
\end{flushright}
|
||||
@@
|
||||
|
||||
@@nl.k : Newline character @@
|
||||
@@nl.html :: <br> @@
|
||||
@@nl.tex :: \newline @@
|
||||
@@nl.txt :: \n @@
|
||||
|
||||
@@tnl.k : Table newline (deprecated; check) @@
|
||||
@@tnl.html :: <br> @@
|
||||
@@tnl.tex :: \\\\ @@
|
||||
@@tnl.txt :: \n @@
|
||||
|
||||
@@newpage.k : Start new page @@
|
||||
@@newpage.html :: @@
|
||||
@@newpage.tex :: \newpage @@
|
||||
@@newpage.txt :: @@
|
||||
|
||||
@@extendpage.k linecount : Extenad current page @@
|
||||
@@extendpage.html :: @@
|
||||
@@extendpage.tex :: \enlargethispage{*linecount*\baselineskip} @@
|
||||
@@extendpage.txt :: @@
|
||||
|
||||
@@vspace.k length : Vertical space @@
|
||||
@@vspace.tex :: \vspace*{*length*} @@
|
||||
|
||||
@@qa.k question | answer : Question and answer formatting @@
|
||||
@@qa ::
|
||||
@b Q: @ *question*
|
||||
|
||||
@b A: @ *answer*
|
||||
@@
|
||||
|
||||
@@@argtype coords | x and y coordinates :pattern 'float'\s+'float' @@@
|
||||
|
||||
@@block.k : to.coords | content :width.float .5 :point.coords 0.0 0.0
|
||||
: Absolute positioning of text block @@
|
||||
|
||||
@@block :: @eval block.Block(K) eval@ @@
|
||||
|
||||
@@lines.k s : Maintain line breaks @@
|
||||
@@lines :: @eval block.Lines(K) eval@ @@
|
||||
|
||||
@@twocolumns.tex s :
|
||||
\begin{multicols}{2}
|
||||
*s*
|
||||
\end{multicols}
|
||||
@@
|
||||
Reference in New Issue
Block a user