;;; -*- Mode: LISP; Syntax: COMMON-LISP; Package: CL-USER; Base: 10 -*-
;;; $Header: src/commons.lisp $

(in-package :claw-site)

(defmacro js-goto (href)
  `(ps:ps* `(location.replace ,(format nil "~a/~a" *root-path* ,href))))