Add some settings from wsl.

Author: Borsodi, Rego

init.el

@@ -79,6 +79,12 @@
 ;; always load .el if newer than .elc
 (setq load-prefer-newer t)
 
+;; ----------------------------------------------------------------------------
+;; System specific initialization
+;; ----------------------------------------------------------------------------
+
+(require 'init-systems nil nil)
+
 ;; ----------------------------------------------------------------------------
 ;; Some "global" keymaps
 ;; ----------------------------------------------------------------------------

lisp/hosts/init-systems.el

@@ -0,0 +1,26 @@
+;;; init-systems.el --- System-specific configuration -*- lexical-binding: t -*-
+;;; Commentary:
+;; Check what system/OS is being run on and initialize system specific
+;; settings
+;;; Code:
+
+
+(defvar is-linux (eq system-type 'gnu/linux))
+(defvar is-windows (eq system-type 'windows-nt))
+(defvar is-wsl  (and
+                 (eq system-type 'gnu/linux)
+                 (file-exists-p "/proc/sys/fs/binfmt_misc/WSLInterop")))
+
+
+(when is-wsl
+  (progn
+    (setq browse-url-browser-function #'browse-url-generic)
+    (setq browse-url-generic-program "wslview")
+    (setq epa-pinentry-mode 'ask)
+    )
+  )
+
+
+(provide 'init-systems)
+
+;;; init-systems.el ends here

lisp/init-defaults.el

@@ -16,6 +16,11 @@
 (global-set-key (kbd "C-M-s") 'isearch-forward)
 (global-set-key (kbd "C-M-r") 'isearch-backward)
 
+(setq isearch-lazy-count t) ;; Show number of matches online
+;; keep highlights until new search, this is a bit disruptive sometimes, now turn it off
+;; (setq lazy-highlight-cleanup nil)
+
+
 (setq save-interprogram-paste-before-kill t
       mouse-yank-at-point t
       require-final-newline t

lisp/init-editing-utils.el

@@ -44,15 +44,14 @@
 ;; Indentation / parens
 ;; ----------------------------------------------------------------------------
 
-(when-home
-    (use-package aggressive-indent
-      :ensure t
-      :pin gnu
-      :diminish
-      :hook
-      ((css-mode . aggressive-indent-mode))
-      ((emacs-lisp-mode . aggressive-indent-mode))
-      ))
+(use-package aggressive-indent
+  :ensure t
+  :pin gnu
+  :diminish
+  :hook
+  ((css-mode . aggressive-indent-mode))
+  ((emacs-lisp-mode . aggressive-indent-mode))
+  )
 
 (use-package electric
   :ensure nil

lisp/languages/init-typescript.el

@@ -5,6 +5,8 @@
 (when-treesit
  (use-package typescript-ts-mode
    :ensure nil
+   :init
+   (add-to-list 'auto-mode-alist '("\\.ts\\'" . typescript-ts-mode))
    ))