From 01585d4e14cf0392c9b6888737425ae23ffbfbe5 Mon Sep 17 00:00:00 2001
From: xeruf <27jf@pm.me>
Date: Wed, 27 Sep 2023 15:37:44 +0200
Subject: [PATCH] config: configure haskell eglot for ihp

---
 .config/doom/config.el           | 114 +++++++++++++++++++------------
 .config/doom/init.el             |   2 +-
 .config/topgrade.d/topgrade.toml |   2 +-
 .local/bin/scripts/emacs-line    |   6 ++
 .zshenv                          |   1 +
 5 files changed, 79 insertions(+), 46 deletions(-)
 create mode 100755 .local/bin/scripts/emacs-line

diff --git a/.config/doom/config.el b/.config/doom/config.el
index d8e6427..69040bd 100644
--- a/.config/doom/config.el
+++ b/.config/doom/config.el
@@ -715,37 +715,37 @@ Version 2019-11-04 2021-02-16"
 ;;; Colors
 
 ; https://www.emacswiki.org/emacs/HexColour
-;;(require 'cl)
-;;(defun hexcolor-luminance (color)
-;;  "Calculate the luminance of a color string (e.g. \"#ffaa00\", \"blue\").
-;;This is 0.3 red + 0.59 green + 0.11 blue and always between 0 and 255."
-;;  (let* ((values (x-color-values color))
-;;         (r (car values))
-;;         (g (cadr values))
-;;         (b (caddr values)))
-;;    (floor (+ (* .3 r) (* .59 g) (* .11 b)) 256)))
-;;(defun hexcolor-add-to-font-lock ()
-;;  (interactive)
-;;  (font-lock-add-keywords nil
-;;   `((,(concat "#[0-9a-fA-F]\\{3\\}[0-9a-fA-F]\\{3\\}?\\|"
-;;               (regexp-opt (x-defined-colors) 'words))
-;;      (0 (let ((color (match-string-no-properties 0)))
-;;           (put-text-property
-;;            (match-beginning 0) (match-end 0)
-;;            'face `((:foreground ,(if (> 128.0 (hexcolor-luminance color))
-;;                                       "white" "black"))
-;;                    (:background ,color)))))))))
+(require 'cl)
+(defun hexcolor-luminance (color)
+  "Calculate the luminance of a color string (e.g. \"#ffaa00\", \"blue\").
+This is 0.3 red + 0.59 green + 0.11 blue and always between 0 and 255."
+  (let* ((values (x-color-values color))
+         (r (car values))
+         (g (cadr values))
+         (b (caddr values)))
+    (floor (+ (* .3 r) (* .59 g) (* .11 b)) 256)))
+(defun hexcolor-add-to-font-lock ()
+  (interactive)
+  (font-lock-add-keywords nil
+   `((,(concat "#[0-9a-fA-F]\\{3\\}[0-9a-fA-F]\\{3\\}?\\|"
+               (regexp-opt (x-defined-colors) 'words))
+      (0 (let ((color (match-string-no-properties 0)))
+           (put-text-property
+            (match-beginning 0) (match-end 0)
+            'face `((:foreground ,(if (> 128.0 (hexcolor-luminance color))
+                                       "white" "black"))
+                    (:background ,color)))))))))
 
-;;(defvar hexcolor-keywords
-;;  '(("#[abcdef[:digit:]]\\{6\\}"
-;;     (0 (put-text-property (match-beginning 0)
-;;                           (match-end 0)
-;;		    'face (list :background
-;;			        (match-string-no-properties 0)))))))
-;;(defun hexcolor-add-to-font-lock ()
-;;  (font-lock-add-keywords nil hexcolor-keywords))
+(defvar hexcolor-keywords
+  '(("#[abcdef[:digit:]]\\{6\\}"
+     (0 (put-text-property (match-beginning 0)
+                           (match-end 0)
+		    'face (list :background
+			        (match-string-no-properties 0)))))))
+(defun hexcolor-add-to-font-lock ()
+  (font-lock-add-keywords nil hexcolor-keywords))
 
-;;(add-hook 'web-mode-hook 'hexcolor-add-to-font-lock)
+(add-hook 'web-mode-hook 'hexcolor-add-to-font-lock)
 
 (after! eshell
   ; https://stackoverflow.com/questions/63469203/eshell-and-color-output
@@ -924,22 +924,22 @@ Version 2019-11-04 2021-02-16"
 
 ;;; File Editing Modes
 
-(setq initial-major-mode 'org-mode)
-(add-to-list 'auto-mode-alist '("/journal/" . org-mode))
-(add-to-list 'auto-mode-alist '("\\.jrnl\\'" . org-mode))
-
-(add-to-list 'auto-mode-alist '("\\.el##" . emacs-lisp-mode))
-(add-to-list 'auto-mode-alist `(,(getenv "CONFIG_SHELLS") . sh-mode))
-;(add-to-list 'auto-mode-alist `(,(getenv "CONFIG_ZSH") . sh-mode))
-(add-to-list 'auto-mode-alist `("\\.local/bin" . sh-mode))
-
-;(add-to-list 'auto-mode-alist '("\\.twee\\'" . twee-chapbook-mode))
-;(add-hook 'twee-chapbook-mode-hook 'twee-mode)
+;(setq initial-major-mode 'org-mode)
+;(add-to-list 'auto-mode-alist '("/journal/" . org-mode))
+;(add-to-list 'auto-mode-alist '("\\.jrnl\\'" . org-mode))
 ;
-;;(add-to-list 'auto-mode-alist `("\\.scss.erb\\'" . scss-mode))
-;(add-to-list 'auto-mode-alist '("\\.html\\'" . web-mode))
-
-(add-hook 'pdf-view-mode-hook 'auto-revert-mode)
+;(add-to-list 'auto-mode-alist '("\\.el##" . emacs-lisp-mode))
+;(add-to-list 'auto-mode-alist `(,(getenv "CONFIG_SHELLS") . sh-mode))
+;;(add-to-list 'auto-mode-alist `(,(getenv "CONFIG_ZSH") . sh-mode))
+;(add-to-list 'auto-mode-alist `("\\.local/bin" . sh-mode))
+;
+;;(add-to-list 'auto-mode-alist '("\\.twee\\'" . twee-chapbook-mode))
+;;(add-hook 'twee-chapbook-mode-hook 'twee-mode)
+;;
+;;;(add-to-list 'auto-mode-alist `("\\.scss.erb\\'" . scss-mode))
+;;(add-to-list 'auto-mode-alist '("\\.html\\'" . web-mode))
+;
+;(add-hook 'pdf-view-mode-hook 'auto-revert-mode)
 
 (use-package! web-mode
   :mode "\\.html\\'"
@@ -957,6 +957,26 @@ Version 2019-11-04 2021-02-16"
 (after! lsp-mode
   (setq lsp-disabled-clients '(typeprof-ls)))
 
+(use-package eglot
+  :config
+  (add-hook 'haskell-mode-hook #'eglot-ensure)
+  ;; Optionally add keybindings to some common functions:
+  :bind ((:map eglot-mode-map
+               ("C-c C-e r" . eglot-rename)
+               ("C-c C-e l" . flymake-show-buffer-diagnostics)
+               ("C-c C-e p" . flymake-show-project-diagnostics)
+               ("C-c C-e C" . eglot-show-workspace-configuration)
+               ("C-c C-e R" . eglot-reconnect)
+               ("C-c C-e S" . eglot-shutdown)
+               ("C-c C-e A" . eglot-shutdown-all)
+               ("C-c C-e a" . eglot-code-actions)
+               ("C-c C-e f" . eglot-format))))
+
+;; Optional: Show/pick completions on tab, sane max height:
+(setq tab-always-indent 'complete
+      completions-max-height 20
+      completion-auto-select 'second-tab)
+
 (use-package! adoc-mode ; Asciidoc, a md alternative
   :mode "\\.adoc\\'"
   )
@@ -1042,6 +1062,12 @@ Version 2019-11-04 2021-02-16"
 
 (setq eww-search-prefix "https://safe.duckduckgo.com/html/?q=")
 
+;; Customize word-wrap to break at commas
+;; https://emacs.stackexchange.com/questions/19027/how-to-wrap-line-at-some-characters-other-than-space/71342#71342
+(setq-default word-wrap t)
+(setq-default word-wrap-by-category t)
+(modify-category-entry ?, ?|)
+
 (use-package! activity-watch-mode
   :config
     (activity-watch--send-heartbeat (activity-watch--create-heartbeat (current-time))
diff --git a/.config/doom/init.el b/.config/doom/init.el
index 135d9c5..c17b40e 100644
--- a/.config/doom/init.el
+++ b/.config/doom/init.el
@@ -92,7 +92,7 @@
        (eval +overlay)   ; run code, run (also, repls)
        ;;gist            ; interacting with github gists
        lookup            ; navigate your code and its documentation
-       lsp
+       (lsp +eglot)
        magit             ; a git porcelain for Emacs
        make              ; run make tasks from Emacs
        pass              ; password manager for nerds
diff --git a/.config/topgrade.d/topgrade.toml b/.config/topgrade.d/topgrade.toml
index 8df4e2b..05f7e54 100644
--- a/.config/topgrade.d/topgrade.toml
+++ b/.config/topgrade.d/topgrade.toml
@@ -8,7 +8,7 @@ pre_sudo = true
 #assume_yes = ["emacs"]
 
 # Disable specific steps - same options as the command line flag
-disable = ["nix", "containers", "config_update", "node", "firmware"]
+disable = ["containers", "config_update", "node", "firmware"]
 
 # Ignore failures for these steps
 #ignore_failures = ["powershell"]
diff --git a/.local/bin/scripts/emacs-line b/.local/bin/scripts/emacs-line
new file mode 100755
index 0000000..793fe30
--- /dev/null
+++ b/.local/bin/scripts/emacs-line
@@ -0,0 +1,6 @@
+#!/bin/sh
+# https://ihp.digitallyinduced.com/Guide/editors.html#using-ihp-with-emacs
+path="${1%%:*}"
+col="${1##*:}"
+line="${1%:*}"; line="${line##*:}"
+emacsclient -n +"${line}:${col}" "${path}"
diff --git a/.zshenv b/.zshenv
index 09621e8..3c1c3b8 100644
--- a/.zshenv
+++ b/.zshenv
@@ -94,6 +94,7 @@ export EDITOR="$(
 	else echo $ALTERNATE_EDITOR
 	fi
 )"
+export IHP_EDITOR="$BIN/scripts/emacs-line"
 
 export LS_OPTIONS='--color=auto --human-readable --si --group-directories-first --file-type --dereference-command-line'
 export LESS="--raw-control-chars --ignore-case --LONG-PROMPT --jump-target=5 $(test $(less --version | head -1 | cut -f2 -d' ') -ge 590 && echo --incsearch)"