From ebade509bf64cb2eac5bf76a12b3e82b00a5a0d2 Mon Sep 17 00:00:00 2001
From: Dan Holmsand <holmsand@gmail.com>
Date: Mon, 20 Jan 2014 10:46:51 +0100
Subject: [PATCH] Add permalink support

---
 demo/reagentdemo/news.cljs | 4 ++--
 site/demo.css              | 5 +++++
 2 files changed, 7 insertions(+), 2 deletions(-)

diff --git a/demo/reagentdemo/news.cljs b/demo/reagentdemo/news.cljs
index 8f6527e..192b97a 100644
--- a/demo/reagentdemo/news.cljs
+++ b/demo/reagentdemo/news.cljs
@@ -2,7 +2,7 @@
   (:require [reagent.core :as reagent :refer [atom]]
             [reagent.debug :refer-macros [dbg println]]
             [reagentdemo.syntax :refer-macros [get-source]]
-            [reagentdemo.common :as common :refer [demo-component title]]
+            [reagentdemo.common :as common :refer [demo-component title link]]
             [todomvc :as todomvc]))
 
 (def funmap (-> "reagentdemo/news.cljs" get-source common/fun-map))
@@ -46,6 +46,6 @@
 (defn main []
   (let [head "This should become news"]
     [:div.reagent-demo
-     [:h1 head]
+     [:h1 [link {:href :undo-demo} head]]
      [title head]
      [undo-demo-cleanup]]))
diff --git a/site/demo.css b/site/demo.css
index 0b6285f..f80d21d 100644
--- a/site/demo.css
+++ b/site/demo.css
@@ -67,6 +67,11 @@ ul.nav > li.brand > a {
     line-height: 1.25em;
 }
 
+.reagent-demo > h1 > a {
+    color: inherit;
+    text-decoration: none;
+}
+
 @media (max-width: 768px) {
     body {
         width: auto;