Skip to content

Commit 41b0a2b

Browse files
authored
Merge pull request #30 from ryukinix/improve-web-styling
Improve web app styling
2 parents b109dc0 + 1ea54be commit 41b0a2b

File tree

2 files changed

+17
-11
lines changed

2 files changed

+17
-11
lines changed

Makefile

+5
Original file line numberDiff line numberDiff line change
@@ -1,6 +1,7 @@
11
SBCL_CMD := sbcl --noinform --disable-debugger --load
22
OBJECTS := lisp-inference
33
DOCKER_IMG = lisp-inference
4+
PUBLIC_IMG = ryukinix/$(DOCKER_IMG)
45

56
all: $(OBJECTS)
67

@@ -25,4 +26,8 @@ docker-run:
2526
docker-check:
2627
docker run --rm -t --entrypoint=ros $(DOCKER_IMG) run -s lisp-inference/test -l run-test.lisp
2728

29+
docker-publish:
30+
docker tag $(DOCKER_IMG) $(PUBLIC_IMG)
31+
docker push $(PUBLIC_IMG)
32+
2833
.PHONY: check

web/webapp.lisp

+12-11
Original file line numberDiff line numberDiff line change
@@ -22,7 +22,7 @@
2222
(defvar *proposition* "P => Q" "Default proposition")
2323
(defvar *port* (find-port:find-port))
2424
(defvar *notes*
25-
'("My lexer doesn't work very well for parenthesis."
25+
'("My lexer doesn't work very well with parenthesis."
2626
"Please, don't be evil. Use less than 10 variables."
2727
"Yes, [+] it's a XOR. Mathematically: p ⊕ q."
2828
"(=> ->) and (<=> <->) are aliases."))
@@ -71,16 +71,17 @@
7171

7272
(defmethod render ((table table))
7373
(with-html
74-
(:h1 "Lisp Inference Truth Table System")
75-
(with-html-form (:POST (lambda (&key prop &allow-other-keys)
76-
(update-table table prop)))
77-
(:input :type "text"
78-
:name "prop"
79-
:placeholder (prop table))
80-
(:input :type "submit"
81-
:value "Eval"))
82-
(:pre (truth table))
83-
(:pre (format nil "Operators: ~a" inference:*valid-operators*))
74+
(:h1 :align "center" "Lisp Inference Truth Table System")
75+
(:div :align "center"
76+
(with-html-form (:POST (lambda (&key prop &allow-other-keys)
77+
(update-table table prop)))
78+
(:input :type "text"
79+
:name "prop"
80+
:placeholder (prop table))
81+
(:input :type "submit"
82+
:value "Eval"))
83+
(:pre :style "font-size: 25px" (truth table))
84+
(:pre (format nil "Operators: ~a" inference:*valid-operators*)))
8485
(:p "Some notes: "
8586
(:ul
8687
(loop for note in *notes*

0 commit comments

Comments
 (0)