From d0fe115925e1542d5948d82a3df1b8f6e989b29f Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?=C3=93scar=20N=C3=A1jera?= Date: Fri, 23 Apr 2021 15:57:30 +0200 Subject: fix doom configuration --- config/doom/config.el | 19 +++++++++++++++++-- 1 file changed, 17 insertions(+), 2 deletions(-) (limited to 'config/doom/config.el') diff --git a/config/doom/config.el b/config/doom/config.el index 90df404..93b4800 100644 --- a/config/doom/config.el +++ b/config/doom/config.el @@ -58,5 +58,20 @@ (setq haskell-process-args-cabal-repl '("--ghc-option=-ferror-spans" - "--ghc-options=-dynamic") - dante-repl-command-line '("cabal" "v2-repl" dante-target "--builddir=newdist/dante" "--ghc-options=-dynamic")) + "--ghc-option=-dynamic") + dante-repl-command-line '("cabal" "v2-repl" dante-target "--ghc-options=-dynamic")) + +(if (string-equal (user-login-name) "on") + (setenv "SSH_AUTH_SOCK" (concat "/run/user/1000/gnupg/S.gpg-agent.ssh")) + (setenv "SSH_AUTH_SOCK" (concat (getenv "XDG_RUNTIME_DIR")"/gnupg/S.gpg-agent.ssh"))) + + +;; https://tecosaur.github.io/emacs-config/#dictionary +(defadvice! +lookup/dictionary-definition-lexic (identifier &optional arg) + "Look up the definition of the word at point (or selection) using `lexic-search'." + :override #'+lookup/dictionary-definition + (interactive + (list (or (doom-thing-at-point-or-region 'word) + (read-string "Look up in dictionary: ")) + current-prefix-arg)) + (lexic-search identifier nil nil t)) -- cgit v1.2.3