Zander671/truth-table
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Fix some typos

Browse Source
This commit is contained in:
Alexander Rosenberg
2024-09-06 14:58:47 -07:00
parent 0a73cf3295
commit 3fc927fee8
2 changed files with 30 additions and 17 deletions
Download Patch File Download Diff File Expand all files Collapse all files

31
typeset.lisp
View File

@ -109,7 +109,7 @@
else
collect char)))
(defun typeset-proposition (expr &optional
(defun typeset-proposition (expr &key
(lookup-table *operator-ascii-lookup-alist*)
var-name-transform
(parent-prec most-positive-fixnum))
@ -143,19 +143,25 @@ use (it controls when parentheses are applied.)"
(if (null args)
;; we have one argument
(format nil "~A~A~A~A" (car prefix-suffix) oper-ascii
(typeset-proposition first-arg lookup-table
var-name-transform our-prec)
(typeset-proposition first-arg
:lookup-table lookup-table
:var-name-transform var-name-transform
:parent-prec our-prec)
(cdr prefix-suffix))
;; we have many arguments
(loop for arg in args
collect oper-ascii into output
collect
(typeset-proposition arg lookup-table
var-name-transform our-prec)
(typeset-proposition arg
:lookup-table lookup-table
:var-name-transform var-name-transform
:parent-prec our-prec)
into output
finally
(push (typeset-proposition first-arg lookup-table
var-name-transform our-prec)
(push (typeset-proposition first-arg
:lookup-table lookup-table
:var-name-transform var-name-transform
:parent-prec our-prec)
output)
(return (format nil "~A~{~A~^ ~}~A" (car prefix-suffix)
output (cdr prefix-suffix))))))))))
@ -168,8 +174,8 @@ NOTE: though the overall order does not matter, the order must be the same
between each row."
(let ((typeset-exprs (mapcar (lambda (expr)
(typeset-proposition
expr *operator-latex-lookup-alist*
'latex-var-name-transform))
expr :lookup-table *operator-latex-lookup-alist*
:var-name-transform 'latex-var-name-transform))
(extract-truth-table-expressions table))))
(format nil "~
\\begin{tabular}{~{~*|c~}|}~
@ -200,8 +206,8 @@ NOTE: though the overall order does not matter, the order must be the same
between each row."
(let ((typeset-exprs (mapcar (lambda (expr)
(typeset-proposition
expr *operator-html-lookup-alist*
'html-var-name-transform))
expr :lookup-table *operator-html-lookup-alist*
:var-name-transform 'html-var-name-transform))
(extract-truth-table-expressions table))))
(format nil "~
<table~@[ class=~s~]~@[ id=~s~]~{ ~A~}>~
@ -274,7 +280,8 @@ length of each column."
NOTE: though the overall order does not matter, the order must be the same
between each row."
(let* ((typeset-exprs (mapcar (lambda (expr)
(typeset-proposition expr expr-lookup-table))
(typeset-proposition
expr :lookup-table expr-lookup-table))
(extract-truth-table-expressions table)))
(col-widths (mapcar (lambda (expr)
(+ (length expr) 2))