joekarma

(defpackage :printing-from-hunchentoot
  (:use :cl))

(in-package :printing-from-hunchentoot)

(defparameter *my-acceptor* (make-instance 'hunchentoot:acceptor :port 8080))

(defparameter *out* *standard-output*)

(hunchentoot:start *my-acceptor*)

joekarma

(eval-when (:compile-toplevel :load-toplevel)
  (ql:quickload :restas))

(restas:define-module :my-site
  (:use :cl))

(in-package :my-site)

(restas:define-route hello ("/hello")
  "Hello!")

joekarma

(defun read-n-characters (n &optional (stream *standard-input*))
  (let ((seq (make-string n)))
    (read-sequence seq stream)
    seq))

joekarma

(ql:quickload '(:drakma :closure-html :cxml :stp-query))

(defun get-before-and-after-pictures (page-number)
  "Fetches relative urls for before and after pictures from a thread on Mark's Daily Apple."
  (mapcar (alexandria:rcurry #'$:attr "src")
          ($:query "blockquote.postcontent > img"
                   (chtml:parse
                    (drakma:http-request (format nil "http://www.marksdailyapple.com/forum/thread6138-~D.html" page-number))
                    (cxml-stp:make-builder)))))

joekarma

(ql:quickload '(:drakma :closure-html :cxml :css-selectors))

(let ((page (chtml:parse
             (drakma:http-request "http://www.google.com")
             (cxml-dom:make-dom-builder))))
  (css:query "div input" page))

;;
;; Fails with the following error message:
;;

joekarma

function handleMessage(message) {
  try { /* master handler */
    try { /* sub handler */
      try { /* sub sub handler */
        if (understandsMessage(message, "sub-sub-handler")) {
          handleMessage(message, "sub-sub-handler");
        } else { 
          throw "can't understand";
        }
      } catch (e) { throw e; }

joekarma

;;; Monkey patch for the monkey lib
(defun monkeylib-html::emit-html-to-string (html)
  (with-output-to-string (s)
    (let ((monkeylib-text-output:*text-output* s))
      (monkeylib-html:emit-html html))))

(export 'monkeylib-html::emit-html-to-string
        (find-package :monkeylib-html))

joekarma

;; Discovered via http://www.adampetersen.se/articles/fizzbuzz.htm
;; “Write a program that prints the numbers from 1 to 100. But for
;; multiples of three print “Fizz” instead of the number and for the
;; multiples of five print “Buzz”. For numbers which are multiples of
;; both three and five print “FizzBuzz”.”

(defun multiple-p (n multiple)
  (zerop (mod n multiple)))

(defun fizzbuzz ()

joekarma

(defun functions-in-package (&optional (package-name (package-name *package*)))
  "Return a list of functions available in a given package."
  (let ((symbols nil))
    (do-symbols (symbol package-name)
      (when (fboundp symbol)
        (push symbol symbols)))
    symbols))

(defun functions-defined-in-package (&optional (package-name (package-name *package*)))
  "Return a list of functions that are defined in a given package."

joekarma

(ql:quickload '(:quickproject
                :external-program))

(push
 (lambda (pathname &rest args)
   (setf (current-directory) (fad:pathname-as-directory pathname))
   (rename-file "README.txt" "README.markdown")
   (external-program:run "git"
                         (list "init" "."))
   (external-program:run "git"