Commit ca16494b authored by Currell Berry's avatar Currell Berry

some slight setup changes and a style tweak.

parent d0d35864
......@@ -17,7 +17,7 @@
;;(setf hunchentoot:*catch-errors-p* nil)
;; (define-easy-handler (easy-demop :uri "/search" :default-request-type :both)
;; (define-easy-handler (easy-demop :uri "/sitesearch" :default-request-type :both)
;; ((searchquery :request-type :post ))
;; ;;set numinputs and truthtableinput to correct values for post and get scenarios
;; (let* ((searchtext (if searchquery searchquery))
......@@ -28,7 +28,7 @@
;; ;(log-message* :INFO "doing post! output: ~a " output)
;; output))
(define-easy-handler (easy-demo :uri "/search"
(define-easy-handler (easy-demo :uri "/sitesearch"
:default-request-type :get)
((query :parameter-type 'string)
(start :parameter-type 'integer)
......@@ -39,10 +39,11 @@
(with-html-output-to-string (*standard-output* nil :prologue t :indent t)
(:head (:title "cl-surf web search")
(:link :href "styles.css" :type "text/css" :rel "stylesheet" nil))
(:link :href "/sitesearch/styles.css" :type "text/css" :rel "stylesheet" nil))
(:div :id "wrapper"
(:div :id "toparea"
(:div :style "top: -5px; position: relative; margin-left: auto; margin-right: auto; text-align: center" (:a :href "" "back to"))
(:h1 "cl-surf")
(:p (:form
:method :get
......@@ -64,13 +65,13 @@
(> (length query) 0))
(htm (:div :id "bottomcontrols"
(if (>= start 10)
(htm (:form :action "/search" :method "GET"
(htm (:form :action "/sitesearch" :method "GET"
(:input :type "submit" :class "navbutton" :value "Prev")
(:input :type "hidden" :name "query" :value query)
(:input :type "hidden" :name "start" :type "hidden" :value (- start 10))
(:input :type "hidden" :name "end" :type "hidden" :value start))))
(:form :action "/search" :method "GET"
(:form :action "/sitesearch" :method "GET"
(:input :type "submit" :class "navbutton" :value "Next")
(:input :type "hidden" :name "query" :value query)
(:input :type "hidden" :name "start" :type "hidden" :value end)
......@@ -82,4 +82,9 @@ body {
#positionticker {
margin-left: 10px;
\ No newline at end of file
li {
border-bottom: 1px solid #e9e9e9;
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment