如何在 emacs 中使用公司模式、讽刺后端和讽刺标头

Question

我期望的是，当我输入 #incl 并按 Tab 键时，它会为我完成 #include。

但是我目前需要做的是：我先按 Tab，它会弹出一个包含可能单词的列表。我继续打字，直到一个独特的选择，它为我完成。但是我觉得这种风格很不方便。

这是我现在的 elisp 设置。我不擅长口齿不清。请帮我检查是否有问题。

(eval-after-load 'company
  '(add-to-list 'company-backends 'company-irony))
(eval-after-load 'company
  '(add-to-list
'company-backends '(company-irony-c-headers company-irony)))
(require 'company)
(require 'cc-mode)
(add-hook 'after-init-hook 'global-company-mode)
(setq company-backends (delete 'company-semantic company-backends))
(define-key c-mode-map  [(tab)] 'company-complete)
(define-key c++-mode-map  [(tab)] 'company-complete) 

Answer 1

我最初也很难让它工作。我自己对 Lisp 不是很好。

首先，我认为您需要一个额外的模式才能使#include 文件正常工作。我想你有 company-irony-c-headers 文件。

Company-c-headers

Company-irony-c-headers

我认为 company-irony-c-headers 应该更好地与 company-irony 配合使用。但我无法让它工作。我下载了 company-c-headers 并且它起作用了。

关键部分是正确配置这些模式。

我将在这里分享我自己的配置文件，它适用于我的 Mac OS 10.9。

我将所有配置文件都存储在 ~/.emacs.d/config/ 下

对于 company、irony、company-irony 和 company-c-header 模式，我将它们全部配置在一个大的 .el 文件中。你可以把它放在你的 .emacs 文件中，无论如何它应该可以工作。

这是我的文件：

;; Define the modes/packages you need
(require 'company)
(require 'irony)
(require 'company-c-headers)
;; Enable company mode globally 
(add-hook 'after-init-hook 'global-company-mode)

;; Here I define a function so it can be called anytime I want to load it
(defun irony-comp-setup-basic()
;; A function to add path to company-c-headers
  (defun company-c-headers-includes ()
;; You just need to modified the path inside the quote to your header files path
    (add-to-list 'company-c-headers-path-system "$ROOTSYS/include")
    )
;; Now call this function so it add your path to company-c-header-path-system
  (company-c-headers-includes)
  ;; Irony-mode configuration
  (add-hook 'c++-mode-hook 'irony-mode)
  (add-hook 'c-mode-hook 'irony-mode)
  (add-hook 'objc-mode-hook 'irony-mode)

  ;; replace the `completion-at-point' and `complete-symbol' bindings in
  ;; irony-mode's buffers by irony-mode's function
  (defun my-irony-mode-hook ()
    (define-key irony-mode-map [remap completion-at-point]
      'irony-completion-at-point-async)
    (define-key irony-mode-map [remap complete-symbol]
      'irony-completion-at-point-async))
  (add-hook 'irony-mode-hook 'my-irony-mode-hook)
;; This customize some backends to the company-backends I took it from my friend's code
  (custom-set-variables
   '(company-backends (quote (company-irony company-elisp company-bbdb company-nxml company-css company-eclim company-semantic company-\
clang company-xcode company-ropemacs company-cmake company-capf (company-dabbrev-code company-gtags company-etags company-keywords) com\
pany-oddmuse company-files company-dabbrev))))

  (custom-set-faces
   )

;; This add your company-c-headers to company-backends
  (add-to-list 'company-backends 'company-c-headers)

;; Default config for company-irony mode
  (eval-after-load 'company
    '(add-to-list
      'company-backends 'company-irony))

;; For irony mode I think
  (add-hook 'irony-mode-hook 'company-irony-setup-begin-commands)
)
;; Now call this function to active it
(irony-comp-setup-basic)

让我知道它是否有效。