Elisp 在 progn 上使用 apply 以获取函数列表

Question

我是一个新的 emacs 用户。 并尝试编写一些 Elisp 来更好地学习这个软件。 虽然我遇到了一些问题。

我想在progn上使用apply按progn运行函数列表。 但我得到如下错误。 我很困惑，需要一些帮助来告诉我如何在 Elisp 中实现这一点，谢谢。

(progn
  (+ 1 1)
  (+ 2 2)
  )
;; => 4

(apply #'progn ((+ 1 1) (+ 2 2)))
;; => Invalid function: (+ 1 1)

(apply #'progn ('(+ 1 1) '(+ 2 2)))
;; => Invalid function: '(+ 1 1)

(apply #'progn '((+ 1 1) (+ 2 2)))
;; => Invalid function: #<subr progn>

我像上面一样玩玩具，因为我从 vim 来到 emacs。 所以我安装了邪恶和邪恶的号码。 并想要返回 vim 编号 inc 和 dec 绑定 Ca、Cx。 所以我写了一个宏来避免样板。

(defmacro set-evil-number-keymap (key-set func &rest modes)
  `(apply 'progn
         ,(-map
          (lambda (mode)
            `(define-key ,(intern (concat "evil-" mode "-state-map")) (kbd ,key-set)
              ',(intern
                 (concat "evil-numbers/" func))))
          ,modes)))

(set-evil-number-keymap "C-a" "inc-at-pt" "normal" "insert")
(set-evil-number-keymap "C-x" "dec-at-pt" "normal" "insert")

我的期望是下面的东西。 虽然它只是没有运行。

(progn 
(define-key evil-normal-state-map (kbd "C-a") ’evil-numbers/inc-at-pt) (define-key evil-visual-state-map (kbd "C-a") ’evil-numbers/inc-at-pt))

(progn 
(define-key evil-normal-state-map (kbd "C-x") ’evil-numbers/dec-at-pt) (define-key evil-visual-state-map (kbd "C-x") ’evil-numbers/dec-at-pt))

Answer 1

我是emacs的新用户。 并尝试编写一些Elisp以便更好地学习该软件。 虽然我遇到一些问题。

我想使用对progn apply按progn运行功能列表。 但是我得到如下错误。 我只是感到困惑，需要一些帮助来告诉我如何在Elisp中实现这一目标，谢谢。

(progn
  (+ 1 1)
  (+ 2 2)
  )
;; => 4

(apply #'progn ((+ 1 1) (+ 2 2)))
;; => Invalid function: (+ 1 1)

(apply #'progn ('(+ 1 1) '(+ 2 2)))
;; => Invalid function: '(+ 1 1)

(apply #'progn '((+ 1 1) (+ 2 2)))
;; => Invalid function: #<subr progn>

我玩游戏如上，因为我从vim来到emacs。 于是我安装了邪恶号和邪恶号。 并想要返回vim编号inc和dec绑定Ca，Cx。 所以我写了一个宏作为打击以避免样板。

(defmacro set-evil-number-keymap (key-set func &rest modes)
  `(apply 'progn
         ,(-map
          (lambda (mode)
            `(define-key ,(intern (concat "evil-" mode "-state-map")) (kbd ,key-set)
              ',(intern
                 (concat "evil-numbers/" func))))
          ,modes)))

(set-evil-number-keymap "C-a" "inc-at-pt" "normal" "insert")
(set-evil-number-keymap "C-x" "dec-at-pt" "normal" "insert")

我的期望是以下。 虽然它只是无法运行。

(progn 
(define-key evil-normal-state-map (kbd "C-a") ’evil-numbers/inc-at-pt) (define-key evil-visual-state-map (kbd "C-a") ’evil-numbers/inc-at-pt))

(progn 
(define-key evil-normal-state-map (kbd "C-x") ’evil-numbers/dec-at-pt) (define-key evil-visual-state-map (kbd "C-x") ’evil-numbers/dec-at-pt))

Answer 2

我是emacs的新用户。 并尝试编写一些Elisp以便更好地学习该软件。 虽然我遇到一些问题。

我想使用对progn apply按progn运行功能列表。 但是我得到如下错误。 我只是感到困惑，需要一些帮助来告诉我如何在Elisp中实现这一目标，谢谢。

(progn
  (+ 1 1)
  (+ 2 2)
  )
;; => 4

(apply #'progn ((+ 1 1) (+ 2 2)))
;; => Invalid function: (+ 1 1)

(apply #'progn ('(+ 1 1) '(+ 2 2)))
;; => Invalid function: '(+ 1 1)

(apply #'progn '((+ 1 1) (+ 2 2)))
;; => Invalid function: #<subr progn>

我玩游戏如上，因为我从vim来到emacs。 于是我安装了邪恶号和邪恶号。 并想要返回vim编号inc和dec绑定Ca，Cx。 所以我写了一个宏作为打击以避免样板。

(defmacro set-evil-number-keymap (key-set func &rest modes)
  `(apply 'progn
         ,(-map
          (lambda (mode)
            `(define-key ,(intern (concat "evil-" mode "-state-map")) (kbd ,key-set)
              ',(intern
                 (concat "evil-numbers/" func))))
          ,modes)))

(set-evil-number-keymap "C-a" "inc-at-pt" "normal" "insert")
(set-evil-number-keymap "C-x" "dec-at-pt" "normal" "insert")

我的期望是以下。 虽然它只是无法运行。

(progn 
(define-key evil-normal-state-map (kbd "C-a") ’evil-numbers/inc-at-pt) (define-key evil-visual-state-map (kbd "C-a") ’evil-numbers/inc-at-pt))

(progn 
(define-key evil-normal-state-map (kbd "C-x") ’evil-numbers/dec-at-pt) (define-key evil-visual-state-map (kbd "C-x") ’evil-numbers/dec-at-pt))

Answer 3

我是emacs的新用户。 并尝试编写一些Elisp以便更好地学习该软件。 虽然我遇到一些问题。

我想使用对progn apply按progn运行功能列表。 但是我得到如下错误。 我只是感到困惑，需要一些帮助来告诉我如何在Elisp中实现这一目标，谢谢。

(progn
  (+ 1 1)
  (+ 2 2)
  )
;; => 4

(apply #'progn ((+ 1 1) (+ 2 2)))
;; => Invalid function: (+ 1 1)

(apply #'progn ('(+ 1 1) '(+ 2 2)))
;; => Invalid function: '(+ 1 1)

(apply #'progn '((+ 1 1) (+ 2 2)))
;; => Invalid function: #<subr progn>

我玩游戏如上，因为我从vim来到emacs。 于是我安装了邪恶号和邪恶号。 并想要返回vim编号inc和dec绑定Ca，Cx。 所以我写了一个宏作为打击以避免样板。

(defmacro set-evil-number-keymap (key-set func &rest modes)
  `(apply 'progn
         ,(-map
          (lambda (mode)
            `(define-key ,(intern (concat "evil-" mode "-state-map")) (kbd ,key-set)
              ',(intern
                 (concat "evil-numbers/" func))))
          ,modes)))

(set-evil-number-keymap "C-a" "inc-at-pt" "normal" "insert")
(set-evil-number-keymap "C-x" "dec-at-pt" "normal" "insert")

我的期望是以下。 虽然它只是无法运行。

(progn 
(define-key evil-normal-state-map (kbd "C-a") ’evil-numbers/inc-at-pt) (define-key evil-visual-state-map (kbd "C-a") ’evil-numbers/inc-at-pt))

(progn 
(define-key evil-normal-state-map (kbd "C-x") ’evil-numbers/dec-at-pt) (define-key evil-visual-state-map (kbd "C-x") ’evil-numbers/dec-at-pt))

Answer 4

您遇到了一些 XY 问题，但对您的名义问题有效的是

(eval (cons 'progn
            '((print (+ 1 1))
              (print (+ 2 2)))))

eval通常被认为是初学者程序员的误解，但在这种情况下，由于 Rorschach 解释的原因，您不能使用apply 。 Elisp 实际上在这里遵循 Common Lisp 规范，它说apply

符号作为宏或特殊形式的名称是非法的

因此，在一般情况下，你必须使用eval直接在你的组装程序cons -ing一个progn给你“指令列表”。