[已解决] 请 amd64 用户帮忙测试 dev-python/ropemacs & app-emacs/company

ProgramFan

用 emacs 编写 python 代码的同学一定不会对 rope/ropemacs/ropemode 陌生。 ropemacs 是一个用 python 编写的 emacs 的 python 解析库，是目前 emacs 中实现 python 代码补全的最好的方式。通过 company-mode + ropemacs，emacs 可以有非常漂亮的 python 补全。

portage 中已经有 app-emacs/company-mode，但由于没有 ropemacs/ropemode 的 ebuild，安装了 company-mode 并不能正确实现 python 补全。因此最近写了 dev-python/ropemacs & dev-python/ropemode 的 ebuild 并提交到了 Gentoo Bugzilla。在两位开发者的热心帮助下，这两个 ebuild 已经被接收到官方 portage 树中，得瑟一下，哈哈

由于我自己的 Gentoo 是 x86，无法测试 amd64，因此目前两个 ebuild 无法添加 amd64 支持，请使用 amd64 的同学帮忙测试下在 amd64 下能否正常安装并使用，方法如下：

1. 添加 amd64 关键字

1. 
   
2. echo "dev-python/ropemode ~amd64" >> /etc/portage/packages.keywords
   
3. echo "dev-python/ropemacs ~amd64" >> /etc/portage/packages.keywords
   

复制代码

2. 安装 ropemacs & company-mode

1. 
   
2. echo "app-emacs/company-mode ropemacs" >> /etc/portage/packages.use
   
3. emerge -av company-mode ropemacs
   

复制代码

3. 在 emacs 中，打开一个 python 文件，并通过 M-x company-mode 打开 company-minor-mode，试试补全一个文件中定义的函数看是否正常。
4. 如果3通过，去 bugs.gentoo.org 提交一个 bug，要求为 dev-python/ropemacs & dev-python/ropemode 添加 amd64 关键字，也可以在这里发贴，如果验证正常我可以去 bugzilla 提交 bug。

ps：下面是两位开发者手把手地指导修改 ebuild，由此可见 Gentoo 社区之一斑。
http://bugs.gentoo.org/show_bug.cgi?id=338553
http://bugs.gentoo.org/show_bug.cgi?id=338556

zhou3345

我一直用autocomplete和yasnippet，怎么和楼主的工具整合？

dwan

我测试了一下，有点问题

deepwhite

我这里 ropemacs 工作很正常， 但是我没有用 company-mode， 用的是 auto-complete.

3L 的出了问题应该是由于 company-mode 的后端引起的。 不是 ropemacs 的问题。

http://www.linuxsir.cn/bbs/attac ... =1&d=1286237554

deepwhite

Post by zhou3345;2114279
我一直用autocomplete和yasnippet，怎么和楼主的工具整合？

呵呵，我来说下我的吧，我用 autocomplete 来将 ropemacs 和 pymacs 作为 autocomplete 的后端，挺好用，配置如下：

1. 
   
2.  ;; *************************** Python Settings ****************************
   
3. 
   
4. ;;;; Python Settings
   
5. (require 'auto-complete)
   
6. ;(require 'pysmell)
   
7. (require 'python)
   
8. 
   
9. (autoload 'python-mode "python-mode" "Python Mode." t)
   
10. (autoload 'jython-mode "python-mode" "Python editing mode." t)
    
11. (autoload 'py-shell "python-mode" "Start  interpreter in another window." t)
    
12. (autoload 'pymacs-apply "pymacs")
    
13. (autoload 'pymacs-call "pymacs")
    
14. (autoload 'pymacs-eval "pymacs" nil t)
    
15. (autoload 'pymacs-exec "pymacs" nil t)
    
16. (autoload 'pymacs-load "pymacs" nil t)
    
17. (pymacs-load "ropemacs" "rope-")
    
18. 
    
19. (add-to-list 'auto-mode-alist '("\\.py$" . python-mode))
    
20. (add-to-list 'interpreter-mode-alist '("python" . python-mode))
    
21. 
    
22. (setq auto-mode-alist
    
23.       (cons '("\\.py$" . python-mode) auto-mode-alist))
    
24. (setq interpreter-mode-alist
    
25.       (cons '("python" . python-mode)
    
26.             interpreter-mode-alist))
    
27. (setq ropemacs-enable-autoimport t)
    
28. 
    
29. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
    
30. ;;; Auto-completion
    
31. ;;;  Integrates:
    
32. ;;;   1) Rope
    
33. ;;;   2) Yasnippet
    
34. ;;;   all with AutoComplete.el
    
35. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
    
36. (defun prefix-list-elements (list prefix)
    
37.   (let (value)
    
38.     (nreverse
    
39.      (dolist (element list value)
    
40.        (setq value (cons (format "%s%s" prefix element) value))))))
    
41. 
    
42. (defvar ac-source-rope
    
43.   '((candidates
    
44.      . (lambda ()
    
45.          (prefix-list-elements (rope-completions) ac-target))))
    
46.   "Source for Rope")
    
47. 
    
48. (defun ac-python-find ()
    
49.   "Python `ac-find-function'."
    
50.   (require 'thingatpt)
    
51.   (let ((symbol (car-safe (bounds-of-thing-at-point 'symbol))))
    
52.     (if (null symbol)
    
53.         (if (string= "." (buffer-substring (- (point) 1) (point)))
    
54.             (point)
    
55.           nil)
    
56.       symbol)))
    
57. 
    
58. (defun ac-python-candidate ()
    
59.   "Python `ac-candidates-function'"
    
60.   (let (candidates)
    
61.     (dolist (source ac-sources)
    
62.       (if (symbolp source)
    
63.           (setq source (symbol-value source)))
    
64.       (let* ((ac-limit (or (cdr-safe (assq 'limit source)) ac-limit))
    
65.              (requires (cdr-safe (assq 'requires source)))
    
66.              cand)
    
67.         (if (or (null requires)
    
68.                 (>= (length ac-target) requires))
    
69.             (setq cand
    
70.                   (delq nil
    
71.                         (mapcar (lambda (candidate)
    
72.                                   (propertize candidate 'source source))
    
73.                                 (funcall (cdr (assq 'candidates source)))))))
    
74.         (if (and (> ac-limit 1)
    
75.                  (> (length cand) ac-limit))
    
76.             (setcdr (nthcdr (1- ac-limit) cand) nil))
    
77.         (setq candidates (append candidates cand))))
    
78.     (delete-dups candidates)))
    
79. 
    
80. (add-hook 'python-mode-hook
    
81.           (lambda ()
    
82.             (set (make-local-variable 'ac-sources)
    
83.                  (append ac-sources '(ac-source-rope) '(ac-source-yasnippet)))
    
84.             (rope-open-project "~/.emacs.d/database/python/")
    
85.             (local-set-key "\C-css" 'cscope-find-this-symbol)
    
86.             (local-set-key "\C-csd" 'cscope-find-global-definition)
    
87.             (local-set-key "\C-csg" 'cscope-find-global-definition)
    
88.             (local-set-key "\C-csG" 'cscope-find-global-definition-no-prompting)
    
89.             (local-set-key "\C-csc" 'cscope-find-functions-calling-this-function)
    
90.             (local-set-key "\C-csC" 'cscope-find-called-functions)
    
91.             (local-set-key "\C-cst" 'cscope-find-this-text-string)
    
92.             (local-set-key "\C-cse" 'cscope-find-egrep-pattern)
    
93.             (local-set-key "\C-csf" 'cscope-find-this-file)
    
94.             (local-set-key "\C-csi" 'cscope-find-files-including-file)
    
95.             (local-set-key "\C-csb" 'cscope-display-buffer)
    
96.             (local-set-key "\C-csB" 'cscope-display-buffer-toggle)
    
97.             (local-set-key "\C-csn" 'cscope-next-symbol)
    
98.             (local-set-key "\C-csN" 'cscope-next-file)
    
99.             (local-set-key "\C-csp" 'cscope-prev-symbol)
    
100.             (local-set-key "\C-csP" 'cscope-prev-file)
     
101.             (local-set-key "\C-csu" 'cscope-pop-mark)
     
102.             (local-set-key "\C-csa" 'cscope-set-initial-directory)
     
103.             (local-set-key "\C-csA" 'cscope-unset-initial-directory)
     
104.             (local-set-key "\C-csL" 'cscope-create-list-of-files-to-index)
     
105.             (local-set-key "\C-csI" 'cscope-index-files)
     
106.             (local-set-key "\C-csE" 'cscope-edit-list-of-files-to-index)
     
107.             (local-set-key "\C-csW" 'cscope-tell-user-about-directory)
     
108.             (local-set-key "\C-csS" 'cscope-tell-user-about-directory)
     
109.             (local-set-key "\C-csT" 'cscope-tell-user-about-directory)
     
110.             (local-set-key "\C-csD" 'cscope-dired-directory)
     
111.             ))
     

复制代码

上面的贴图中有一个效果图，个人感觉用的很顺手。

zhou3345

@deepwhite 多谢。

ProgramFan

Post by dwan;2114286
我测试了一下，有点问题

你的问题是 company-mode 试图加载 pysmell 后端，但你没有安装 pysmell。但正常情况下 company-mode 会尝试加载 pysmell 和 ropemacs，而且优先 ropemacs。

从你的图中看，ropemacs 已经正常加载了，你的补全能用吗？

ProgramFan

已在 Portage 中解决，见 https://bugs.gentoo.org/show_bug.cgi?id=338550

zhou3345

请问deepwhite，用你的配置，ropemacs怎么也加载不起来，而用网上的一个配置，http://www.enigmacurry.com/2009/ ... ompletion-in-emacs/  ropemacs可以加载，但一个补全提示也没有，也没有错误信息，不知咋回事。

//不好意思，.emacs 里一些加载顺序弄错了，已成功使用自动完成功能，谢谢楼主与deepwhite贡献的方案。