flake.lock: Update

Flake lock file updates:

• Updated input 'emacs-overlay':
    'github:nix-community/emacs-overlay/758aa1deb09d8d2dce7bd3a016434e8fcedfab89' (2024-08-21)
  → 'github:nix-community/emacs-overlay/d945c2ba0421e0c1b239b5882f2c0725fe8cfba1' (2024-08-25)
• Updated input 'emacs-overlay/nixpkgs':
    'github:NixOS/nixpkgs/8a3354191c0d7144db9756a74755672387b702ba' (2024-08-18)
  → 'github:NixOS/nixpkgs/c374d94f1536013ca8e92341b540eba4c22f9c62' (2024-08-21)
• Updated input 'emacs-overlay/nixpkgs-stable':
    'github:NixOS/nixpkgs/f1bad50880bae73ff2d82fafc22010b4fc097a9c' (2024-08-19)
  → 'github:NixOS/nixpkgs/797f7dc49e0bc7fab4b57c021cdf68f595e47841' (2024-08-22)
• Updated input 'extra-package-haskell-ts-mode':
    'git+https://codeberg.org/pranshu/haskell-ts-mode.git?ref=refs/heads/main&rev=5d3bd04e43066164feaa864953d30e53e0e137e3' (2024-08-25)
  → 'git+https://codeberg.org/pranshu/haskell-ts-mode.git?ref=refs/heads/main&rev=d9afd84e46b41c9912539face04ec7bb2a16ba78' (2024-08-25)

flake.lock

@@ -7,11 +7,11 @@
         "nixpkgs-stable": "nixpkgs-stable"
       },
       "locked": {
-        "lastModified": 1724490633,
+        "lastModified": 1724577031,
-        "narHash": "sha256-Ok9pSW0ge++fbNDu6pac9tJaTSIfxaTyjl8Xvl2tCf4=",
+        "narHash": "sha256-C3ufe7meLX9zNEOawPKdIpfmFQ+D5d2oqQ3iQMFdva4=",
         "owner": "nix-community",
         "repo": "emacs-overlay",
-        "rev": "0780b82798307b08982e766e039f7a1680fadfe8",
+        "rev": "d945c2ba0421e0c1b239b5882f2c0725fe8cfba1",
         "type": "github"
       },
       "original": {
@@ -36,6 +36,22 @@
         "type": "github"
       }
     },
+    "extra-package-haskell-ts-mode": {
+      "flake": false,
+      "locked": {
+        "lastModified": 1724579033,
+        "narHash": "sha256-cwkJY5kLgcTuTMy2/5t/CkEnN1x7aj6BaSX1wYg7Vw8=",
+        "ref": "refs/heads/main",
+        "rev": "d9afd84e46b41c9912539face04ec7bb2a16ba78",
+        "revCount": 47,
+        "type": "git",
+        "url": "https://codeberg.org/pranshu/haskell-ts-mode.git"
+      },
+      "original": {
+        "type": "git",
+        "url": "https://codeberg.org/pranshu/haskell-ts-mode.git"
+      }
+    },
     "extra-package-indent-bars": {
       "flake": false,
       "locked": {
@@ -207,6 +223,7 @@
       "inputs": {
         "emacs-overlay": "emacs-overlay",
         "extra-package-copilot": "extra-package-copilot",
+        "extra-package-haskell-ts-mode": "extra-package-haskell-ts-mode",
         "extra-package-indent-bars": "extra-package-indent-bars",
         "extra-package-notmuch-notify": "extra-package-notmuch-notify",
         "flake-parts": "flake-parts",

flake.nix

@@ -18,6 +18,10 @@
       url = "github:zerolfx/copilot.el";
       flake = false;
     };
+    extra-package-haskell-ts-mode = {
+      url = "git+https://codeberg.org/pranshu/haskell-ts-mode.git";
+      flake = false;
+    };
   };
 
   outputs = inputs @ {flake-parts, ...}:

init.el

@@ -581,49 +581,9 @@
     (eshell 'N)
     (add-hook 'kill-buffer-hook 'delete-frame nil 't)) ;; destroy frame on exit
 
-  (defun ccr/eshell-history ()
-    "Interactive search eshell history."
-    (interactive)
-    (require 'em-hist)
-    (save-excursion
-      (eshell-bol)
-      (let* ((start-pos (point))
-    	     (end-pos (line-end-position))
-    	     (input (buffer-substring-no-properties start-pos end-pos)))
-	(message input)
-        (let* (
-	       (history-shell (split-string (shell-command-to-string "history") "\n"))
-	       (history-eshell (delete-dups (when (> (ring-size eshell-history-ring) 0)
-    					      (ring-elements eshell-history-ring))))
-	       (history (append history-shell history-eshell))
-	       ;; (history-highlighted (mapcar #'(lambda (cmd)
-	       ;; 					(with-temp-buffer
-	       ;; 					  (text-mode)
-	       ;; 					  (insert cmd)
-	       ;; 					  (forward-line 0)
-	       ;; 					  ;; FIXME it breaks trying to highlight commands like `cd /ssh:host:~'
-	       ;; 					  ;; (eshell-syntax-highlighting--parse-and-highlight 'command (point-max))
-	       ;; 					  (add-face-text-property (point-min) (point-max) '(:background nil))
-	       ;; 					  (buffer-string)))
-	       ;; 				    history))
-	       (command (completing-read
-			 "Command: "
-			 history
-			 nil
-			 nil
-			 input
-			 )))
-    	  (kill-region start-pos end-pos)
-	  (insert command)
-    	  )))
-    (end-of-line))
-
-  (defun ccr/wrap-eshell-write-history (orig-fun &optional filename &rest _)
-    (apply orig-fun `(,filename 't)))
-
   ;; Wrapping this in order to merge histories from different shells
-  (advice-add 'eshell-write-history
+  ;; (advice-add 'eshell-write-history
-	      :around #'ccr/wrap-eshell-write-history)
+  ;; 	      :around #'ccr/wrap-eshell-write-history)
 
   (add-to-list 'eshell-modules-list 'eshell-tramp) ;; to use sudo in eshell
   ;; (add-to-list 'eshell-modules-list 'eshell-smart) ;; plan 9 style
@@ -644,11 +604,14 @@
   :hook (eshell-mode . (lambda () (setq-local scroll-margin 0)))
   :bind (("C-c o e" . project-eshell)
 	 :map eshell-mode-map
-	 ("C-r" . ccr/eshell-history))) ;; i.e. just C-r in semi-char-mode
+	 ("C-r" . eshell-atuin-history))) ;; i.e. just C-r in semi-char-mode
 
-(use-package esh-autosuggest
+(use-package eshell-command-not-found
-  ;; :hook (eshell-mode . esh-autosuggest-mode) # FIXME otherwise emacs stucks
+  :custom ((eshell-command-not-found-command "command-not-found"))
-  )
+  :hook ((eshell-mode . eshell-command-not-found-mode)))
+
+(use-package eshell-atuin
+  :hook ((eshell-mode . eshell-atuin-mode)))
 
 (use-package fish-completion-mode
   :hook ((eshell-mode . fish-completion-mode)))

packages/packages.nix

@@ -53,10 +53,12 @@ pkgs: epkgs: let
       eshell-syntax-highlighting
       fish-completion # fish completion for eshell
       eshell-prompt-extras
-      esh-autosuggest
+      eshell-atuin
+      eshell-command-not-found
       clipetty
       sideline
-      sideline-flymake
+      consult-eglot
+      # sideline-flymake
       rainbow-delimiters
       vertico
       marginalia