emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Cleanup; and enable auto-completion

Browse source
This commit is contained in:
Henrik Lissner 2014-09-30 16:35:53 -04:00
parent 867b840266
commit 8f622e6bea
3 changed files with 5 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

4
init/init-ac.el
View file

@ -7,10 +7,10 @@
(progn (progn
(require 'auto-complete-config) (require 'auto-complete-config)
(setq ac-auto-start nil (setq ac-auto-start t
ac-auto-show-menu t ; Suggestions box must be invoked manually (see core-keymaps.el) ac-auto-show-menu t ; Suggestions box must be invoked manually (see core-keymaps.el)
ac-use-menu-map t ; Enable ac-menu-map map when menu is open ac-use-menu-map t ; Enable ac-menu-map map when menu is open
ac-use-quick-help nil ; Don't show tooltips unless invoked (see core-keymaps.el) ac-use-quick-help t ; Don't show tooltips unless invoked (see core-keymaps.el)
ac-use-fuzzy nil ac-use-fuzzy nil
ac-candidate-limit 25) ac-candidate-limit 25)
(setq ac-comphist-file (concat *tmp-dir "ac-comphist.dat")) (setq ac-comphist-file (concat *tmp-dir "ac-comphist.dat"))

6
init/init-text.el
View file

@ -5,13 +5,9 @@
("/README\\'" . markdown-mode)) ("/README\\'" . markdown-mode))
:pre-load :pre-load
(progn (progn
;; Implement strike-through formatting
(defvar markdown-regex-del "\\(^\\|[^\\]\\)\\(\\(~\\{2\\}\\)\\([^ \n \\]\\|[^ \n ]\\(?:.\\|\n[^\n]\\)*?[^\\ ]\\)\\(\\3\\)\\)") (defvar markdown-regex-del "\\(^\\|[^\\]\\)\\(\\(~\\{2\\}\\)\\([^ \n \\]\\|[^ \n ]\\(?:.\\|\n[^\n]\\)*?[^\\ ]\\)\\(\\3\\)\\)")
(defun markdown-insert-del () (defun markdown-insert-del ()
"Insert markup to make a region or word bold.
If there is an active region, make the region bold. If the point
is at a non-bold word, make the word bold. If the point is at a
bold word or phrase, remove the bold markup. Otherwise, simply
insert bold delimiters and place the cursor in between them."
(interactive) (interactive)
(let ((delim "~~")) (let ((delim "~~"))
(if (markdown-use-region-p) (if (markdown-use-region-p)

4
init/my-keymaps.el
View file

@ -165,7 +165,7 @@
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Real go-to-definition for elisp ;; Real go-to-definition for elisp
(nmap emacs-lisp-mode-map "gd" (mmap emacs-lisp-mode-map "gd"
(λ (let ((func (function-called-at-point))) (λ (let ((func (function-called-at-point)))
(if func (find-function func))))) (if func (find-function func)))))
@ -183,7 +183,7 @@
(kbd "<tab>") 'ac-complete (kbd "<tab>") 'ac-complete
(kbd "C-n") 'ac-next (kbd "C-n") 'ac-next
(kbd "C-p") 'ac-previous (kbd "C-p") 'ac-previous
(kbd "<F1>") 'ac-quick-help (kbd "S-C-SPC") 'ac-quick-help
(kbd "ESC") 'ac-stop (kbd "ESC") 'ac-stop
(kbd "RET") 'ac-complete)) (kbd "RET") 'ac-complete))