Add company, company-emoji

contrapunctus/cp-geo.el

@@ -2,10 +2,13 @@
 
 (with-eval-after-load 'markdown-mode
   (defun markdown-follow-link-at-point ()
-    "Open the current non-wiki link.
-If the link is a complete URL, open in browser with `browse-url'.
-Otherwise, open with `find-file' after stripping anchor and/or query string.
-Translate filenames using `markdown-filename-translate-function'."
+    "Like `markdown-follow-link-at-point' (originally defined in
+ `markdown-mode.el') but modified to support geo: URIs.
+
+Open the current non-wiki link. If the link is a complete URL,
+open in browser with `browse-url'. Otherwise, open with
+`find-file' after stripping anchor and/or query string. Translate
+filenames using `markdown-filename-translate-function'."
     (interactive)
     (if (markdown-link-p)
         (let* ((url (markdown-link-url))

init.el

@@ -1,5 +1,6 @@
 ;; TODO - convert to use-package
 ;; TODO - drop cp/ prefix, use contrapunctus-, set up nameless package names
+;; TODO - trying setting up xref
 
 (eval-when-compile
   (add-to-list 'load-path "~/.emacs.d/elisp-git/use-package/")
@@ -315,6 +316,15 @@ and eval it."
     (add-to-list 'package-archives '("gnu" . (concat proto "://elpa.gnu.org/packages/")))))
 (package-initialize)
 
+(use-package company
+  :diminish company-mode
+  :commands global-company-mode
+  :init (global-company-mode))
+
+(use-package company-emoji
+  :if (featurep 'company)
+  :config (add-to-list 'company-backends 'company-emoji))
+
 ;; (load "cp-adb")
 (load "cp-editing")
 ;; (load "cp-evil")