Merge branch 'master'

settings/general-settings.el

@@ -163,18 +163,14 @@ already exists in the home directory."
 but it's REALLY SLOW when you have buffers that are visiting
 remote files.  And despite its documentation, it does NOT ignore
 those files, if you're using windows, and the file name begins
-with a drive letter and a colon.")
-        )
-    (setq global-auto-revert-non-file-buffers t)
-    )
-  )
+with a drive letter and a colon."))
+    (setq global-auto-revert-non-file-buffers t)))
 (setq revert-without-query '(".*"))
 
 (use-package uniquify
   :defer t
   :config
-  (setq uniquify-buffer-name-style 'forward)  ;; forward: bar/mumble/name insead of post-forward-angle-brackets: name<bar/mumble>
-  )
+  (setq uniquify-buffer-name-style 'forward))  ;; forward: bar/mumble/name insead of post-forward-angle-brackets: name<bar/mumble>
 
 ;; overwrite selected text
 (delete-selection-mode t)
@@ -228,6 +224,16 @@ with a drive letter and a colon.")
 ;; gravatars from magit use this to store their cache
 (setq url-configuration-directory (concat user-cache-directory "url/"))
 
+;; https://adam.kruszewski.name/2017/09/emacs-in-wsl-and-opening-links/
+;; For WSL open links in Windows web browser of choice
+(when running-on-windows-wsl
+  (let ((cmd-exe "/mnt/c/Windows/System32/cmd.exe")
+        (cmd-args '("/c" "start")))
+    (when (file-exists-p cmd-exe)
+      (setq browse-url-generic-program  cmd-exe
+            browse-url-generic-args     cmd-args
+            browse-url-browser-function 'browse-url-generic))))
+
 (setq bookmark-default-file (concat user-cache-directory "bookmarks"))
 
 (use-package transient

settings/gui-settings.el

@@ -449,7 +449,9 @@ See also `dashboard-insert-section'."
   :custom-face (focus-unfocused ((t :inherit shadow))))
 
 (use-package iscroll
-  :hook ((special-mode text-mode) . iscroll-mode))
+  :commands iscroll-mode
+  ;; :hook ((special-mode text-mode) . iscroll-mode)
+  )
 
 (use-package virtual-auto-fill
   :delight (virtual-auto-fill-mode "Ⓥｆ")

settings/my-settings.el

@@ -8,6 +8,10 @@
     (add-hook 'org-mode-hook 'my-org-link-color-hook)
     (add-hook 'org-ctrl-c-ctrl-c-hook 'my-org-table-cell-color-attr)))
 
+(use-package my-org-article
+  :load-path "lisp/my"
+  :after (org))
+
 (use-package my-org-letter
   :load-path "lisp/my"
   :after (org))

settings/org-settings.el

@@ -9,6 +9,8 @@
 ;; https://tex.stackexchange.com/questions/282448/why-does-emacs-or-auctex-turns-into
 
 ;;; Commentary:
+;; `org-export-default-language'
+;; `org-options-keywords'
 
 ;; * Overview of modes and commands
 ;; --------------------------------
@@ -240,8 +242,10 @@ Example defines
   :init
   (setq org-export-backends '(ascii html icalendar latex md odt reveal tufte))
   :config
+  (setq org-startup-folded nil)                    ;; nil = showall = #+STARTUP: showall
   (setq org-startup-with-inline-images t)          ;; #+STARTUP: inlineimages|noinlineimages, show inline images when loading a new Org file
   (setq org-image-actual-width '(600))             ;; image width displayed in org
+  (setq org-tag-persistent-alist '(("ignore" . "i") ("noexport" . "n")))
   ;; todo see also org-todo-keyword-faces and org-superstar-todo-bullet-alist
   (setq org-todo-keywords                          ;; (x!) record a time stamp, (x@) add a note (with time), (y/z) entering the state / leaving the state
         '((sequence "TODO(t)" "WAIT(w)" "|" "DONE(d)" "CANC(c)")))

settings/pre-settings.el

@@ -41,6 +41,14 @@
   (memq system-type '(windows-nt cygwin32 cygwin))
   "Non-nil if and only if we're running on Windows.
 Both Win32 and Cygwin count.")
+;; https://stackoverflow.com/questions/60922620/shell-script-to-check-if-running-in-windows-when-using-wsl
+(defvar running-on-windows-wsl
+  (string-equal
+   (replace-regexp-in-string
+    "[ \n]+$" ""
+    (shell-command-to-string
+     "uname -a | sed -n 's/.*\\( *Microsoft *\\).*/\\1/ip'"))
+   "Microsoft"))
 (setq user-emacs-directory "~/.config/emacs/")
 (defconst user-cache-directory
   (file-name-as-directory (concat user-emacs-directory ".cache"))