newLISP code to fetch flickr interesting photos and display on screen via TK

frontera000 (bob bae) — Fri, 08 Sep 2006 01:42:47 GMT

// simple newLISP code to fetch interesting pictures from
// flickr and display on the monitor using TK



(set 'api "/services/rest")

(set 'apikey "YOUR-OWN-KEY-HERE")

(set 'host "http://flickr.com")

(set 'email "")

(set 'password "")



(define (doget method auth params)

  (setq url (append host api "/?api_key=" apikey "&method=" method))

  (if (list? params) 

   (setq url (append url "&" (urlencode params))))

  (if (not (nil? auth)) 

   (setq url (append url "&email=" email "&password=" password)))

  (setq xmldata (get-url url)))





(define (urlencode params)

  (setq urlstring "")

  (dolist (param1 params) 

   (if (not (= urlstring "")) 

    (setq urlstring (append urlstring "&"))) 

   (setq urlstring (append urlstring (nth 0 param1) "=" (nth 1 param1)))))



(define (xmlconvert data)

  (xml-type-tags nil nil nil nil)

  (setq sxmldata (xml-parse data (+ 1 2 4 8 16))))

  

(define (getphotos data)

  (if (ref 'photo sxmldata) 

   (setq photolist (slice (data (chop (ref 'photo data) 2)) 2 -1)) 

   (setq photolist '())))



(define (handlephotos sxmldata)

  (dolist (aphoto (getphotos sxmldata)) 

   (setq pr (first (rest aphoto))) 

   (print (format "http://static.flickr.com/%s/%s_%s_o.jpg" (lookup 

      'server pr) 

     (lookup 'id pr) 

     (lookup 'secret pr)))))



(define (fiv)

  (tk "package require Img")

  (tk "destroy .fivwin")

  (tk "toplevel  .fivwin")

  

  (tk "wm geometry .fivwin [winfo screenwidth .]x[winfo screenheight .]+0+0")

  

  ;; uncomment the following lines to make display "fullscreen"

  ;;(tk "bind .fivwin  {destroy .fivwin}")

  ;;(tk "bind .fivwin  {destroy .fivwin}")

  ;;(tk "bind .fivwin

DZone Snippets: pictures code

newLISP code to fetch flickr interesting photos and display on screen via TK