html

(defun transliterate-cyr-to-lat-russian (text)
  ; Taken from http://cl-cookbook.sourceforge.net/strings.html
  (defun replace-all (string part replacement &key (test #'char=))
    "Returns a new string in which all the occurences of the part 
     is replaced with replacement."
    (with-output-to-string (out)
      (loop with part-length = (length part)
            for old-pos = 0 then (+ pos part-length)
            for pos = (search part string
                              :start2 old-pos

html

(ql:quickload :ironclad)
(ql:quickload :cl-ppcre)
(ql:quickload :arnesi)
(ql:quickload :cl-prevalence)
(ql:quickload :closure-html)
(ql:quickload :cxml)
(ql:quickload :split-sequence)

(defun nl2br (text)
  (cl-ppcre:regex-replace-all #\newline text "<br/>"))

html

// Stolen from jquery-ui and customized
(function($){
  $.fn.disableSelection = function(){
    return this.bind( ( $.support.selectstart ? "selectstart" : "mousedown" ) +
      ".disableSelection", function( event ) {
      event.preventDefault();
      });
  };

  $.fn.enableSelection = function(){

html

(defvar *cache-dir* '(:relative "cache"))
(defvar *cache-enabled-p* nil)


(defvar *drakma-request-max-tries* nil) ;
(defvar *character-for-wrong-utf-8-chars* #\@)
; V5
(defun drakma-request (&rest args)
  "Gets url contents using drakma:http-request. 
   Tries several times to do it on error. 

html

(defvar *countries* (list "Bangladesh" "Belgium" "Burkina Faso" "Bulgaria" "Bosnia and Herzegovina" "Brunei" "Bolivia" "Japan" "Burundi" "Benin" "Bhutan" "Jamaica" "Botswana" "Brazil" "The Bahamas" "Belarus" "Belize" "Russia" "Rwanda" "Republic of Serbia" "Lithuania" "Luxembourg" "Liberia" "Romania" "Guinea Bissau" "Guatemala" "Greece" "Equatorial Guinea" "Guyana" "Georgia" "United Kingdom" "Gabon" "Guinea" "Gambia" "Greenland" "Kuwait" "Ghana" "Oman" "Somaliland" "Western Sahara" "Kosovo" "Northern Cyprus" "Jordan" "Croatia" "Haiti" "Hungary" "Honduras" "Puerto Rico" "West Bank" "Portugal" "Paraguay" "Panama" "Papua New Guinea" "Peru" "Pakistan" "Philippines" "Poland" "Zambia" "Estonia" "Egypt" "South Africa" "Ecuador" "Albania" "Angola" "Kazakhstan" "Ethiopia" "Zimbabwe" "Spain" "Eritrea" "Montenegro" "Moldova" "Madagascar" "Morocco" "Uzbekistan" "Myanmar" "Mali" "Mongolia" "Macedonia" "Malawi" "Mauritania" "Uganda" "Malaysia" "Mexico" "Vanuatu" "France" "Finland" "Fiji" "Falkland Islands" "Nicaragua" "Neth

html

/*
Copyright (C) 2013 by Marijn Haverbeke <marijnh@gmail.com> and others

Permission is hereby granted, free of charge, to any person obtaining a copy
of this software and associated documentation files (the "Software"), to deal
in the Software without restriction, including without limitation the rights
to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
copies of the Software, and to permit persons to whom the Software is
furnished to do so, subject to the following conditions:

html

#| 
Version: 0.0.3

Example of using yaclml after this code evaluating

CL-USER> (<a :href "asdf" "jkl")
<a href="asdf"
  >jkl</a
>; No value
CL-USER> (<some-undefined-tag :some-parameter "asdf" "jkl")

html

(defwidget bootstrap-navigation (navigation)
  ())

(defun render-bootstrap-navbar-menu-wt (&rest args &key menu-id menu-header menu-content menu-empty-p menu-empty-message menu-ordered-list-p)
  (with-html-to-string
    (:div :class "navbar" 
     :id menu-id
     (:div :class "navbar-inner"
      (when menu-header
        (htm (:h1 (str menu-header))))

html

function install-app(){
   DIR_NAME="`echo "$1" | grep -o "\([^/]\+\?\)\.git" | sed -e s/.git//`"
   echo "Cloning repository"
   git clone "$1" && cd $DIR_NAME;
   git submodule update --init
}

install-app $*

html

function create-weblocks-app-repository(){
    NAME="$1"
    mkdir "$NAME";
    cd "$NAME";
    git init
    git submodule add git://github.com/html/quicklisp-app-skeleton.git .quicklisp-install
    cp .quicklisp-install/.quicklisp-version .
    echo  "(progn (ql:quickload :weblocks) (funcall (intern \"MAKE-APP\" \"WOP\") '$NAME \".\"))" | sbcl --load ".quicklisp-install/require-quicklisp"
    mv $NAME/* .
    rm -rf "$NAME"