jsamsa

(defconst emacs-start-time (current-time))

(menu-bar-mode -1)
(tool-bar-mode -1)
(toggle-scroll-bar -1)
(set-default-font "Monaco-18")

(defvar my/backup-directory (concat user-emacs-directory "backups"))

(if (not (file-exists-p my/backup-directory))

jsamsa

self: super:
{
  emacs = (super.emacsPackagesNgFor self.emacsMacport).emacsWithPackages(epkgs:
  with epkgs; [
    use-package
    magit
    helm
    helm-ag
    helm-ag-r
    

jsamsa

(defconst emacs-start-time (current-time))

(menu-bar-mode -1)
(tool-bar-mode -1)
(toggle-scroll-bar -1)
(set-default-font "Monaco-18")

(defvar my/backup-directory (concat user-emacs-directory "backups"))

(if (not (file-exists-p my/backup-directory))

jsamsa

diff --git a/src/swank/util/class_browse.clj b/src/swank/util/class_browse.clj
index 449df6e..8d6cfbc 100644
--- a/src/swank/util/class_browse.clj
+++ b/src/swank/util/class_browse.clj
@@ -22,7 +22,8 @@
     :file  Path of the class file, relative to :loc"
   (:import [java.io File FilenameFilter]
            [java.util StringTokenizer]
-           [java.util.jar JarFile JarEntry]))
+           [java.util.jar JarFile JarEntry]

jsamsa

(ns webapp)

(defn root-view [req]  {:body "root"})
(defn alpha-view [req {foo :foo bar :bar}] {:body (str [ "alpha" foo bar])})
(defn beta-view [req]  {:body "beta"})

(def urls [[#"^/$"       root-view]
           [#"^/alpha/$" alpha-view {:foo "foo" :bar "bar"}]
           [#"^/beta/$"  beta-view]])