mirror of
https://github.com/penpot/penpot.git
synced 2025-01-24 15:39:50 -05:00
21 lines
669 B
Clojure
21 lines
669 B
Clojure
(ns hooks.export
|
|
(:require [clj-kondo.hooks-api :as api]))
|
|
|
|
(defn export
|
|
[{:keys [:node]}]
|
|
(let [[_ sname] (:children node)
|
|
result (api/list-node
|
|
[(api/token-node (symbol "def"))
|
|
(api/token-node (symbol (name (:value sname))))
|
|
sname])]
|
|
{:node result}))
|
|
|
|
(defn potok-reify
|
|
[{:keys [:node]}]
|
|
(let [[rnode rtype & other] (:children node)
|
|
result (api/list-node
|
|
(into [(api/token-node (symbol "deftype"))
|
|
(api/token-node (gensym (name (:k rtype))))
|
|
(api/vector-node [])]
|
|
other))]
|
|
{:node result}))
|