Advertisement
Guest User

Untitled

a guest
Sep 29th, 2017
89
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Lisp 0.31 KB | None | 0 0
  1. (defmacro HTML-inline (&body contents)
  2.     `(with-html-output-to-string
  3.         (*standard-output* nil :indent t)
  4.     ,@contents))
  5.  
  6. (defun scripts/ (&rest scripts)
  7.     (dolist (script scripts)
  8.         (HTML-inline (:script :type "text/javascript" :src script))))
  9.  
  10. ;; Then at the end of body:
  11. (scripts/ "joom.js" "jquery.min.js")
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement