mirror of
https://github.com/penpot/penpot.git
synced 2025-01-23 15:09:10 -05:00
11 lines
312 B
Clojure
11 lines
312 B
Clojure
(ns uxbox.ui.navigation
|
|
(:require [goog.events :as events]))
|
|
|
|
(defn link
|
|
"Given an href and a component, return a link component that will navigate
|
|
to the given URI withour reloading the page."
|
|
[href component]
|
|
[:a
|
|
{:href href
|
|
:on-click #(do (.preventDefault %) (set-uri! href))}
|
|
component])
|