Emacs + Cider (Clojure) + Auto-Complete: 如何获取docstring?

6
我正在尝试正确配置emacs以编写我的Clojure代码。我基于这篇好的博客文章进行了Emacs配置:good blog post,但是我更改了一些设置,例如他使用的主题等。我一直在检查如何获取Auto-Complete(Eldoc?不确定)来显示Clojure函数和自己代码中的文档字符串。
我想看到像截图中那样的文档: eldoc 然而,我无法让“黄色”文档框出现。我不确定这是由于我的.emacs文件中的配置错误还是需要使用的命令或其他原因...
这是我的.emacs文件:
(add-to-list 'custom-theme-load-path "~/.emacs.d/lib/noctilux-theme")

(require 'package):
  (add-to-list 'package-archives
    '("marmalade" . "http://marmalade-repo.org/packages/")
    '("melpa" . "http://melpa.milkbox.net/packages/"))

;; Initialize all the ELPA packages (what is installed using the packages commands)    
(package-initialize)  

;; Set bigger fonts
(set-default-font "Courier New-13")  

;; Setup to have a french keyboard layout working   
(require 'iso-transl)  

;; Show parenthesis mode
(show-paren-mode 1)  

;; rainbow delimiters
(global-rainbow-delimiters-mode)

;; paredit
(add-hook 'clojure-mode-hook 'paredit-mode)
(add-hook 'nrepl-mode-hook 'paredit-mode)
(global-set-key [f7] 'paredit-mode)

;; theme
(load-theme 'noctilux t)

;; clojure-mode
(global-set-key [f9] 'cider-jack-in)
(add-hook 'clojure-mode-hook 'turn-on-eldoc-mode)

;; nrepl
(add-hook 'nrepl-interaction-mode-hook 'nrepl-turn-on-eldoc-mode)
(setq nrepl-popup-stacktraces nil)
(add-to-list 'same-window-buffer-names "*nrepl*")
(add-hook 'nrepl-mode-hook 'paredit-mode)

;; Auto complete
(require 'auto-complete-config)
;(add-to-list 'ac-dictionary-directories "~/.emacs.d/ac-dict")
(setq ac-delay 0.0)
;(setq ac-use-quick-help t)
(setq ac-quick-help-delay 0.0)
;(setq ac-use-fuzzy 1)
;(setq ac-auto-start 1)
;(setq ac-auto-show-menu 1)
(ac-config-default)

;; ac-nrepl
(require 'ac-nrepl)
(add-hook 'nrepl-mode-hook 'ac-nrepl-setup)
(add-hook 'nrepl-interaction-mode-hook 'ac-nrepl-setup)
(eval-after-load "auto-complete" '(add-to-list 'ac-modes 'nrepl-mode))


(defun set-auto-complete-as-completion-at-point-function ()
  (setq completion-at-point-functions '(auto-complete)))
(add-hook 'auto-complete-mode-hook 'set-auto-complete-as-completion-at-point-function)

(add-hook 'cider-repl-mode-hook 'set-auto-complete-as-completion-at-point-function)
(add-hook 'cider-mode-hook 'set-auto-complete-as-completion-at-point-function)


;; scroll one line at a time (less "jumpy" than defaults)

(setq mouse-wheel-scroll-amount '(1 ((shift) . 1))) ;; one line at a time

(setq mouse-wheel-progressive-speed nil) ;; don't accelerate scrolling

(setq mouse-wheel-follow-mouse 't) ;; scroll window under mouse

(setq scroll-step 1) ;; keyboard scroll one line at a time

根据@syohex的评论更新

这是我在我的CLJ缓冲区中看到的:

CLJ buffer popup

在NREPL中,我看到的是一个“v”,而不是一个“d”(顺便问一下,这些字母代表什么?)。正如我在评论中所说,在NREPL中,我确实看到黄色框出现,然后弹出窗口出现,然后文档黄色框消失。在CLJ代码缓冲区中,黄色框从未打开。

最终更新

经过更多测试,一切都按预期工作。当弹出窗口首次显示时,黄色框会消失。但是,当我开始选择不同的选项时,它会重新出现在正确的位置。

此外,它开始在CLJ缓冲区中工作,我看到的是字母“v”,而不是上面截图中的“d”。也许我忘记启动NREPL了,需要重新测试。

无论如何,一切都按预期工作。


有些晚了,但既然我在这里并且也想知道同样的问题: “顺便问一下,这些字母代表什么意思?” 这里是在源代码中定义的 - birdspider
作为对未来旅行者的提示,CIDER现在建议使用“company”进行自动完成。 - Josh.F
4个回答

3

实际上,这个配置和前面的 ac-nrepl 已经被弃用了,请参考新的包 ac-cider

(require 'ac-cider)
(add-hook 'cider-mode-hook 'ac-flyspell-workaround)
(add-hook 'cider-mode-hook 'ac-cider-setup)
(add-hook 'cider-repl-mode-hook 'ac-cider-setup)
(eval-after-load "auto-complete"
    '(add-to-list 'ac-modes 'cider-mode))

3

nrepl-mode-hooknrepl-interaction-mode-hooknrepl-mode已经过时。你应该分别使用cider-mode-hookcider-repl-mode-hookcider-mode代替它们。

同时,你应该将ac-quick-help-delay设置为大于0的值(例如0.5)。以下是补丁:

--- nconf-orig.el   2014-05-21 16:51:40.056185465 +0900
+++ conf-new.el 2014-05-21 16:53:11.936182181 +0900
@@ -43,7 +43,7 @@
 ;(add-to-list 'ac-dictionary-directories "~/.emacs.d/ac-dict")
 (setq ac-delay 0.0)
 ;(setq ac-use-quick-help t)
-(setq ac-quick-help-delay 0.0)
+(setq ac-quick-help-delay 0.5)
 ;(setq ac-use-fuzzy 1)
 ;(setq ac-auto-start 1)
 ;(setq ac-auto-show-menu 1)
@@ -51,9 +51,10 @@

 ;; ac-nrepl
 (require 'ac-nrepl)
-(add-hook 'nrepl-mode-hook 'ac-nrepl-setup)
-(add-hook 'nrepl-interaction-mode-hook 'ac-nrepl-setup)
-(eval-after-load "auto-complete" '(add-to-list 'ac-modes 'nrepl-mode))
+(add-hook 'cider-mode-hook 'ac-nrepl-setup)
+(add-hook 'cider-repl-mode-hook 'ac-nrepl-setup)
+(add-to-list 'ac-modes 'cider-mode)
+(add-to-list 'ac-modes 'cider-repl-mode)


 (defun set-auto-complete-as-completion-at-point-function ()

感谢@syohex! 这是一个明显的改进,但仍然不完美。 从REPL中,我现在看到黄色框,但行为是:黄色框首先出现,然后当自动完成弹出时,带有文档的黄色框消失了。 我不确定为什么。 此外,我希望在编辑其他缓冲区中的CJL文件时具有相同的行为(请参见上面我的帖子的更新) - Neoasimov
经过更多的测试,一切都按预期工作。当弹出窗口首次显示时,黄色框会消失。但是,当我开始选择不同的选项时,它会重新出现在正确的位置。此外,它已经在CLJ缓冲区中开始工作,我看到屏幕截图中的字母“v”而不是“d”。也许我忘记启动NREPL,需要重新测试。无论如何,一切都按预期工作。谢谢! - Neoasimov

0

我正在2020年查看此内容,ac-cider已被弃用,但您可以使用company-mode代替。

使用M-x package-install company进行安装,并遵循cider文档将其配置为cider-repl-modecider-mode


0
黄色框先出现,然后当自动完成弹出菜单出现时,带有文档的黄色框消失。
这种行为是由于(setq ac-quick-help-delay 0.5),因为0.5秒太快了。
将0.5更改为一个更大的数字(在我的计算机上工作的最小值为0.9,但这可能取决于您的计算机性能),或者删除(setq ac-quick-help-delay 0.5)。由于这将使用默认值:约2.5秒,它可以解决问题。

网页内容由stack overflow 提供, 点击上面的
可以查看英文原文,
原文链接