代码之家 › 专栏 › 技术社区 › HappyFace

我怎样才能更习惯地写这个clojure宏呢?

lisp-macros lisp macros clojure

HappyFace · 技术社区 · 7 年前

(defmacro get-color [color-name]
  `@(thi.ng.color.core/as-int32 (var-get (resolve (symbol "thi.ng.color.core"
                                            (str '~color-name))))))

我喜欢避免使用 (var-get (resolve (symbol ... (str '~parem)))) .有点像 thi.ng.color.core/(~color-name) .

(我在一个非常小的个人项目中使用这个宏,我不在乎为这个用例创建宏是否真的是一个糟糕的实践。尽管我喜欢知道为什么在更大的项目中会有问题。)

1 回复 | 直到 7 年前

Michiel Borkent 7 年前

(require 'thi.ng.color.core)

(defmacro get-color
  [color-name]
  (let [sym (symbol "thi.ng.color.core"
                    (str color-name))]
    `@(thi.ng.color.core/as-int32 ~sym)))

(comment
  (get-color "RED") ;;=> 4294901760
  (get-color RED) ;;=> 4294901760
  )

推荐文章

lightning_missile · 词法范围和共享对象

7 年前

Alexandru Popa · SBCL中奇怪的宏扩展错误

7 年前

Jacky · 编辑列表中的每个偶数索引元素

7 年前

HappyFace · lisp典型缩进约定背后的规则是什么?

7 年前

Nathan majicvr.com · 下载ARC Lisp Ubuntu 16.04 Xenial

7 年前

Stav Alfi · 返回一对-语法错误

7 年前

Jorge · 在公共Lisp中初始化计数器变量

7 年前

Andrew S. · 类访问器的宏

7 年前

Rorschach · cl循环破坏性修改cons单元

7 年前

Artemis · 如何变异变量方案

7 年前