Lisp sucks.
I mean, look at this shit:
code:
(defun factorial (n)
(if (<= n 1)
1
(* n (factorial (- n 1)))))
WTF is that?
It's
ugly and all mixed up and shit.
They tried to teach us Lisp at uni - I was all excited at first, because it was an AI class and they were going to show us all clever wonderful stuff, but it was
boring and
shit and TOO MANY BLOODY PARENTHESES!
The thought of using Lisp for website...
:&
Bloody hell, this is just...
:? :? :?
It's even doing the actual HTML as Lisp!
This is nuts.
code:
(defmethod render ((app view-app))
(who
(:html
(:head
(:title "SymbolicWeb: slider-test")
(str (js-sw-headers app))
;; Include the extra scripts and CSS needed for the slider.
(:script :type "text/javascript" :src (catstr *javascript-path* "ui/ui.core.js"))
(:script :type "text/javascript" :src (catstr *javascript-path* "ui/ui.slider.js"))
(:style :type "text/css" "body { font-family: sans-serif; }")
(:link :rel "stylesheet" :type "text/css" :href (catstr *css-path* "flora/flora.css"))
(:link :rel "stylesheet" :type "text/css" :href (catstr *css-path* "flora/flora.slider.css")))
(:body
(str (sw-heading :title (string-downcase (princ-to-string (type-of app)))))
(:h1 "View Application")
(:p "Try viewing the same slider in multiple browser windows/tabs; notice that they are kept in sync in real time."
"These could also be kept in sync in a cross-session fashion; for an example of this see counter.lisp.")
(:p (:a :href "#view=first-slider" :style "background-color: orange;"
"Look at first slider") :br
(:a :href "#view=second-slider" :style "background-color: lightblue;"
"Look at second slider") :br
(:a :href "#view=third-slider" :style "background-color: lightgreen;"
"Look at third slider"))
(:div :id "sw-root")
(:noscript "JavaScript needs to be enabled.")))))
You need help if you think that'd help Daz live again - just the sight of it sends me into despair!
EUCK!