From 375cdb3d18905af9735f5b504918c4a14fe4daf7 Mon Sep 17 00:00:00 2001 From: Kashish Sharma Date: Mon, 10 Sep 2018 15:37:43 +0530 Subject: [PATCH] Add company, company-emoji --- contrapunctus/cp-geo.el | 11 +++++++---- init.el | 10 ++++++++++ 2 files changed, 17 insertions(+), 4 deletions(-) diff --git a/contrapunctus/cp-geo.el b/contrapunctus/cp-geo.el index d9c9b9b..eb17cf8 100644 --- a/contrapunctus/cp-geo.el +++ b/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)) diff --git a/init.el b/init.el index 8c3b0f7..6281c6e 100644 --- a/init.el +++ b/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")