Coverage report: /home/samppa/personal/opiskelu/ohtuprojekti/pulsu/trunk/javascript.lisp

Kind	Covered	All	%
expression	1	12	8.3
branch	0	0	nil

Key

Not instrumented

Conditionalized out

Executed

Not executed

Both branches taken

One branch taken

Neither branch taken

1

(eval-when (:compile-toplevel :load-toplevel :execute) (setf *attribute-quote-char* #\"))

2

3

(in-package :puls.ui)

4

5

(defun show-id (id)

6

(with-html-output (*http-stream*)

7

(:a :onclick (format nil "hidediv('~A');" id) :href "#" "X")))

8

9

(defhtml switch-input (attr-name)

10

(:td (:a :onclick (format nil "switch_input('~a');" attr-name)

11

(:img :class "switch_image" :src "static/switch_button.jpg" :alt "switch input")))

12

)

13

14

;; ht-ajax

15

16

(defparameter *ajax-handler-url* "/ajax")

17

18

(defparameter *ajax-processor*

19

(make-ajax-processor :type :prototype

20

:server-uri *ajax-handler-url*

21

:js-file-uris "/static/prototype-1.6.0.3.js"

22

:js-debug t))

23

24

(defparameter *ajax-dispatcher*

25

(hunchentoot:create-prefix-dispatcher *ajax-handler-url*

26

(get-handler *ajax-processor*)))

27

28

(pushnew *ajax-dispatcher* *dispatch-table*)

29

30

31

;;

32

33

(defun-ajax testfunc (number) (*ajax-processor* :method :get)

34

(format nil "~A" (+ 10 (parse-integer number))))

35

36

(defpage (testajax :uri "/testajax")

37

((i :init-form 1))

38

(:html

39

(:head

40

(:title "MOI"))

41

(:body

42

(str (generate-prologue *ajax-processor*))

43

(:span :id "moi" (str "___"))

44

      (:input :type "button" :onclick (format nil "javascript:ajax_testfunc_set_element('moi',~A)" i) :value "push"))))

45

46

;;