mirror of
https://github.com/penpot/penpot.git
synced 2025-01-26 00:19:07 -05:00
12 lines
312 B
Text
12 lines
312 B
Text
|
(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])
|