diff --git a/settings/general-settings.el b/settings/general-settings.el
new file mode 100644
index 00000000..5cbf8939
--- /dev/null
+++ b/settings/general-settings.el
@@ -0,0 +1,675 @@
+;; general-settings.el --- General settings  -*- lexical-binding: t -*-
+
+;;; Commentary:
+
+;; Requirements:
+
+;;; Code:
+
+;; Change "yes or no" to "y or n"
+(fset 'yes-or-no-p 'y-or-n-p)
+
+;; default-frame-alist not empty
+(mapc (lambda (item)
+        (add-to-list 'default-frame-alist item)
+        )
+      '(
+        (fullscreen . maximized)
+        (tool-bar-position . left)
+        ;;(horizontal-scroll-bars . t)  ;; see gui-settings
+        )
+      )
+
+;; transparency
+;;(set-frame-parameter (selected-frame) 'alpha '(<active> . <inactive>))
+;;(set-frame-parameter (selected-frame) 'alpha <both>)
+(set-frame-parameter (selected-frame) 'alpha '(90 . 90))
+(add-to-list 'default-frame-alist '(alpha . (90 . 90)))
+
+;; recentf stuff
+(use-package recentf
+  :config
+  (setq
+   recentf-save-file (locate-user-emacs-file ".cache/recentf" "recentf")
+   recentf-max-saved-items 1000
+   recentf-max-menu-items 30
+   recentf-auto-cleanup 'never   ;; disable before we start recentf! Set to never bc otherwise it tries to read also tramp (remote) files
+   )
+  (add-to-list 'recentf-exclude
+               (recentf-expand-file-name user-cache-directory))
+  ;;(global-set-key "\C-x\ \C-r" 'recentf-open-files)  ;; see completion-settings ivy counsel
+  ;;(run-at-time nil (* 10 60) 'recentf-save-list)
+  (run-with-idle-timer (* 10 60) t 'recentf-save-list)
+  (recentf-mode)
+  )
+
+;; by default backup files are saved in the current directory, ending with ~
+;; instead stashes them all in
+(let ((backup-dir (concat user-cache-directory "backups"))
+      (auto-saves-dir (concat user-cache-directory "auto-saves/")))
+  (dolist (dir (list backup-dir auto-saves-dir))
+    (when (not (file-directory-p dir))
+      (make-directory dir t)))
+  (setq backup-directory-alist `(("." . ,backup-dir)))
+  (setq backup-by-copying t)
+  (setq auto-save-file-name-transforms `((".*" ,auto-saves-dir t)))
+  (setq auto-save-list-file-prefix (concat auto-saves-dir ".saves-"))
+  (setq tramp-backup-directory-alist `((".*" . ,backup-dir)))
+  (setq tramp-auto-save-directory auto-saves-dir)
+  )
+(setq-default delete-by-moving-to-trash t)  ;; Delete files to trash
+
+(if (fboundp 'save-place-mode)
+    (save-place-mode)
+  (setq save-place t)
+  )
+;; Save point position between sessions
+(setq save-place-file (concat user-cache-directory "places"))
+
+;; minibuffer history, e.g. M-x with amex
+(setq savehist-file (concat user-cache-directory "history"))
+(savehist-mode)
+
+;;; desktop
+(require 'desktop)
+;; save session
+;;(desktop-save-mode 1)
+(setq desktop-dirname user-cache-directory)
+(setq history-length 500)  ;; Since all lists will be truncated when saved, it is important to have a high default history length
+(add-to-list 'desktop-path user-cache-directory)
+(defun desktop-settings-setup ()
+  "Some settings setup for 'desktop-save-mode'."
+  (interactive)
+    
+  ;; At this point the desktop.el hook in after-init-hook was
+  ;; executed, so (desktop-read) is avoided.
+  (when (not (eq (emacs-pid) (desktop-owner))) ; Check that emacs did not load a desktop yet
+    ;; Here we activate the desktop mode
+    (desktop-save-mode 1)
+
+    ;; Since all lists will be truncated when saved, it is important to have a high default history length
+    (setq history-length 250)
+
+    ;; Set the location to save/load default desktop
+    (setq desktop-dirname user-cache-directory)
+    (add-to-list 'desktop-path user-cache-directory)
+
+    ;; The default desktop is saved always
+    (setq desktop-save t)
+
+    ;; The default desktop is loaded anyway if it is locked
+    (setq desktop-load-locked-desktop t)
+
+    ;; Make sure that even if emacs or OS crashed, emacs
+    ;; still have last opened files.
+    (add-hook 'find-file-hook
+     (lambda ()
+       (run-with-timer 5 nil
+          (lambda ()
+            ;; Reset desktop modification time so the user is not bothered
+            (setq desktop-file-modtime (nth 5 (file-attributes (desktop-full-file-name))))
+            (desktop-save user-emacs-directory)))))
+
+    ;; Read default desktop
+    (if (file-exists-p (concat desktop-dirname desktop-base-file-name))
+        (desktop-read desktop-dirname))
+
+    ;; Add a hook when emacs is closed to we reset the desktop
+    ;; modification time (in this way the user does not get a warning
+    ;; message about desktop modifications)
+    (add-hook 'kill-emacs-hook
+              (lambda ()
+                ;; Reset desktop modification time so the user is not bothered
+                (setq desktop-file-modtime (nth 5 (file-attributes (desktop-full-file-name))))))
+    )
+  )
+;; (add-hook 'after-init-hook
+;;           'desktop-settings-setup
+;;           (lambda ()
+;;             ;; No splash screen
+;;             (setq inhibit-startup-screen t)
+
+;;             ;; If the *scratch* buffer is the current one, then create a new
+;;             ;; empty untitled buffer to hide *scratch*
+;;             (if (string= (buffer-name) "*scratch*")
+;;                 (new-empty-buffer))
+;;             )
+;;           t) ;; append this hook to the tail
+
+
+;; auto revert buffer
+(when (fboundp 'global-auto-revert-mode)
+  ;; All the "reverting buffer foo" messages are _really_ distracting.
+  (setq auto-revert-verbose nil)
+  (global-auto-revert-mode 1)
+  ;; just as the docs warn, this can really make Emacs sluggish.
+  (if running-on-windows
+      (if (fboundp 'lwarn)
+          (lwarn
+           'global-auto-revert-mode
+           :warning
+           "`global-auto-revert-mode' is turned on.  It's nifty,
+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)
+    )
+  )
+(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>
+  )
+
+;; overwrite selected text
+(delete-selection-mode t)
+
+;; always use spaces, not tabs, when indenting
+(setq-default indent-tabs-mode nil)
+;; width for tabs
+(setq-default tab-width 2)
+
+;; ignore case when searching
+(setq case-fold-search t)
+
+;; require final newlines in files when they are saved
+(setq require-final-newline t)
+
+;; don't show the startup screen
+(setq inhibit-startup-screen t)
+
+;; each line of text gets one line on the screen (i.e., text will run
+;; off the right instead of wrapping around onto a new line)
+(setq-default truncate-lines t)
+;; truncate lines even in partial-width windows
+;;(setq truncate-partial-width-windows t)
+
+;; display line numbers to the right of the window
+;; (global-linum-mode t)  ;; deactivated because the DocView showing pdf files becomes extremly slow when global-linum-mode is on.
+
+;; show the current line and column numbers in the stats bar as well
+(line-number-mode t)
+(column-number-mode t)
+
+;; highlight parentheses when the cursor is next to them
+(use-package paren
+  :defer 0.1
+  :config
+  (show-paren-mode t)
+  )
+
+;; emacs warning:
+;;   ad-handle-definition: `text-scale-increase' got redefined
+;; these warnings are generated when functions are redefined with defadvice.
+(setq ad-redefinition-action 'accept)
+
+;; gravatars from magit use this to store their cache
+(setq url-configuration-directory (concat user-cache-directory "url/"))
+
+(setq bookmark-default-file (concat user-cache-directory "bookmarks"))
+
+(use-package comint  ;; parent mode of many shell modes
+  :bind (:map comint-mode-map
+              ("<up>" . comint-previous-input)
+              ("<down>" . comint-next-input)))
+
+(use-package transient
+  :load-path (lambda() (concat user-emacs-directory "lisp/transient"))
+  :defer t
+  :config
+  (setq transient-levels-file (concat user-cache-directory "transient/levels.el"))
+  (setq transient-values-file (concat user-cache-directory "transient/values.el"))
+  (setq transient-history-file (concat user-cache-directory "transient/history.el"))
+)
+
+;;
+;; keyboard
+;;
+;; https://github.com/syl20bnr/spacemacs/blob/c7a103a772d808101d7635ec10f292ab9202d9ee/layers/%2Bdistributions/spacemacs-base/keybindings.el
+;; Make <escape> quit as much as possible
+(define-key minibuffer-local-map (kbd "<escape>") 'keyboard-escape-quit)
+(define-key minibuffer-local-ns-map (kbd "<escape>") 'keyboard-escape-quit)
+(define-key minibuffer-local-completion-map (kbd "<escape>") 'keyboard-escape-quit)
+(define-key minibuffer-local-must-match-map (kbd "<escape>") 'keyboard-escape-quit)
+(define-key minibuffer-local-isearch-map (kbd "<escape>") 'keyboard-escape-quit)
+;;
+(global-set-key (kbd "C-r") 'query-replace-regexp)  ;; isearch-backward
+(global-set-key (kbd "C-x C-b") 'ibuffer)           ;; list-buffers
+;; applications
+(global-set-key (kbd "M-m !") 'shell-command)
+(global-set-key (kbd "M-m a c") 'calc-dispatch)
+(global-set-key (kbd "M-m a P") 'proced)
+;; buffers
+(global-set-key (kbd "M-m b d") 'kill-this-buffer)
+(global-set-key (kbd "M-m b e") 'erase-buffer)
+(global-set-key (kbd "M-m b C-d") 'kill-matching-buffers)
+(global-set-key (kbd "M-m b n") 'next-buffer)
+(global-set-key (kbd "M-m b p") 'previous-buffer)
+(global-set-key (kbd "M-m b R") 'revert-buffer)
+(global-set-key (kbd "M-m b w") 'read-only-mode)
+;; compile/comments
+(global-set-key (kbd "M-m c C") 'compile)
+(global-set-key (kbd "M-m c k") 'kill-compilation)
+(global-set-key (kbd "M-m c r") 'recompile)
+;; (with-eval-after-load 'compile
+;;   (define-key compilation-mode-map "r" 'recompile)
+;;   (define-key compilation-mode-map "g" nil)
+;;   )
+;; errors
+(global-set-key (kbd "M-m e n") 'next-error)
+(global-set-key (kbd "M-m e p") 'previous-error)
+;; files
+(global-set-key (kbd "M-m f c") 'copy-file)
+(global-set-key (kbd "M-m f D") 'delete-file)
+(global-set-key (kbd "M-m f g") 'rgrep)
+(global-set-key (kbd "M-m f l") 'find-file-literally)
+(global-set-key (kbd "M-m f R") 'rename-file)
+(global-set-key (kbd "M-m f s") 'save-buffer)
+(global-set-key (kbd "M-m f v d") 'add-dir-local-variable)
+(global-set-key (kbd "M-m f v f") 'add-file-local-variable)
+(global-set-key (kbd "M-m f v p") 'add-file-local-variable-prop-line)
+;; help
+(global-set-key (kbd "M-m h d b") 'describe-bindings)
+(global-set-key (kbd "M-m h d c") 'describe-char)
+(global-set-key (kbd "M-m h d C") 'describe-coding-system)
+(global-set-key (kbd "M-m h d C-c") 'describe-copying)
+(global-set-key (kbd "M-m h d M-c") 'describe-categories)
+(global-set-key (kbd "M-m h d f") 'describe-function)
+(global-set-key (kbd "M-m h d F") 'describe-face)
+(global-set-key (kbd "M-m h d C-f") 'describe-font)
+(global-set-key (kbd "M-m h d M-f") 'describe-fontset)
+(global-set-key (kbd "M-m h d k") 'describe-key)
+(global-set-key (kbd "M-m h d K") 'describe-keymap)
+(global-set-key (kbd "M-m h d m") 'describe-mode)
+(global-set-key (kbd "M-m h d M") 'describe-minor-mode)
+(global-set-key (kbd "M-m h d o") 'describe-symbol)
+(global-set-key (kbd "M-m h d p") 'describe-package)
+(global-set-key (kbd "M-m h d s") 'describe-syntax)
+(global-set-key (kbd "M-m h d t") 'describe-theme)
+(global-set-key (kbd "M-m h d v") 'describe-variable)
+(global-set-key (kbd "M-m h n") 'view-emacs-news)
+;; format
+(global-set-key (kbd "M-m j o") 'open-line)
+(global-set-key (kbd "M-m j =") 'indent-region)
+(global-set-key (kbd "M-m j S") 'split-line)
+;; navigation/jumping
+(global-set-key (kbd "M-m j f") 'find-function)
+(global-set-key (kbd "M-m j v") 'find-variable)
+;; narrow & widen
+(global-set-key (kbd "M-m n r") 'narrow-to-region)
+(global-set-key (kbd "M-m n p") 'narrow-to-page)
+(global-set-key (kbd "M-m n f") 'narrow-to-defun)
+(global-set-key (kbd "M-m n w") 'widen)
+;; quit
+(global-set-key (kbd "M-m q s") 'save-buffers-kill-emacs)
+(global-set-key (kbd "M-m q Q") 'kill-emacs)
+;; toggles
+(global-set-key (kbd "M-m t F") 'auto-fill-mode)
+(global-set-key (kbd "M-m t h h") 'global-hl-line-mode)
+(global-set-key (kbd "M-m t h s") 'font-lock-mode)
+(global-set-key (kbd "M-m t l") 'toggle-truncate-lines)
+(global-set-key (kbd "M-m t L") 'visual-line-mode)
+(global-set-key (kbd "M-m t m t") 'display-time-mode)
+(global-set-key (kbd "M-m t W") 'ace-window-display-mode)
+(global-set-key (kbd "M-m T f") 'fringe-mode)
+(global-set-key (kbd "M-m T F") 'toggle-frame-fullscreen)
+(global-set-key (kbd "M-m T m") 'menu-bar-mode)
+(global-set-key (kbd "M-m T M") 'toggle-frame-maximized)
+(global-set-key (kbd "M-m T S") 'semantic-stickyfunc-mode)
+(global-set-key (kbd "M-m T C-S") 'global-semantic-stickyfunc-mode)
+(global-set-key (kbd "M-m T t") 'tool-bar-mode)
+;; window
+(global-set-key (kbd "M-m w d") 'delete-window)
+(global-set-key (kbd "M-m w D") 'ace-delete-window)
+(global-set-key (kbd "M-m w f") 'follow-mode)
+(global-set-key (kbd "M-m w F") 'make-frame)
+(global-set-key (kbd "M-m w h") 'windmove-left)
+(global-set-key (kbd "M-m w j") 'windmove-down)
+(global-set-key (kbd "M-m w k") 'windmove-up)
+(global-set-key (kbd "M-m w l") 'windmove-right)
+(global-set-key (kbd "M-m w m") 'maximize-window)
+(global-set-key (kbd "M-m w M") 'ace-swap-window)
+(global-set-key (kbd "M-m w n") 'next-window)
+(global-set-key (kbd "M-m w o") 'other-frame)
+(global-set-key (kbd "M-m w p") 'previous-window)
+(global-set-key (kbd "M-m w s") 'split-window-below)
+(with-eval-after-load 'winner-mode
+  (global-set-key (kbd "M-m w u") 'winner-undo)
+  (global-set-key (kbd "M-m w U") 'winner-redo)
+  )
+(global-set-key (kbd "M-m w v") 'split-window-right)
+(global-set-key (kbd "M-m w w") 'other-window)
+(global-set-key (kbd "M-m w W") 'ace-window)  ;; same as ace-selct-window
+(global-set-key (kbd "M-m w -") 'split-window-below)
+(global-set-key (kbd "M-m w /") 'split-window-right)
+(global-set-key (kbd "M-m w =") 'balance-windows)
+(global-set-key (kbd "M-m w <left>") 'windmove-left)
+(global-set-key (kbd "M-m w <down>") 'windmove-down)
+(global-set-key (kbd "M-m w <up>") 'windmove-up)
+(global-set-key (kbd "M-m w <right>") 'windmove-right)
+(global-set-key (kbd "M-m w TAB") 'other-window)
+;; text
+(global-set-key (kbd "M-m x a a") 'align)
+(global-set-key (kbd "M-m x a c") 'align-current)
+(global-set-key (kbd "M-m x c") 'count-words-region)
+(global-set-key (kbd "M-m x d w") 'delete-trailing-whitespace)
+(global-set-key (kbd "M-m x j c") 'set-justification-center)
+(global-set-key (kbd "M-m x j f") 'set-justification-full)
+(global-set-key (kbd "M-m x j l") 'set-justification-left)
+(global-set-key (kbd "M-m x j n") 'set-justification-none)
+(global-set-key (kbd "M-m x j r") 'set-justification-right)
+(global-set-key (kbd "M-m x l s") 'sort-lines)
+(global-set-key (kbd "M-m x t c") 'transpose-chars)
+(global-set-key (kbd "M-m x t l") 'transpose-lines)
+(global-set-key (kbd "M-m x t w") 'transpose-words)
+(global-set-key (kbd "M-m x u") 'downcase-region)
+(global-set-key (kbd "M-m x U") 'upcase-region)
+(global-set-key (kbd "M-m x TAB") 'indent-rigidly)
+;; Bind commands to move around windows
+(global-set-key [(C-M-left)] 'windmove-left)
+(global-set-key [(C-M-right)] 'windmove-right)
+(global-set-key [(C-M-up)] 'windmove-up)
+(global-set-key [(C-M-down)] 'windmove-down)
+(defun toggle-window-split ()
+  "Toggle between horizontal and vertical split with two windows."
+  (interactive)
+  (if (> (length (window-list)) 2)
+      (error "Can't toggle with more than 2 windows!")
+    (let ((func (if (window-full-height-p)
+                    #'split-window-vertically
+                  #'split-window-horizontally)))
+      (delete-other-windows)
+      (funcall func)
+      (save-selected-window
+        (other-window 1)
+        (switch-to-buffer (other-buffer))))))
+(global-set-key (kbd "C-x |") 'toggle-window-split)
+;; move current line up and down
+(defun move-line-up()
+  "Move up the current line."
+  (interactive)
+  (transpose-lines 1)
+  (forward-line -2)
+  (indent-according-to-mode))
+(defun move-line-down()
+  "Move down the current line."
+  (interactive)
+  (forward-line 1)
+  (transpose-lines 1)
+  (forward-line -1)
+  (indent-according-to-mode))
+(global-set-key [(M-up)] 'move-line-up)
+(global-set-key [(M-down)] 'move-line-down)
+
+;;
+;; mouse
+;;
+;; Enable mouse support, https://stackoverflow.com/questions/5710334/how-can-i-get-mouse-selection-to-work-in-emacs-and-iterm2-on-mac
+(unless (display-graphic-p)
+  (require 'mouse)
+  (xterm-mouse-mode t)
+  (global-set-key [mouse-4] (lambda () (interactive) (scroll-down 1)))
+  (global-set-key [mouse-5] (lambda () (interactive) (scroll-up 1)))
+  (defun track-mouse (e))
+  (setq mouse-sel-mode t)
+  )
+(setq mouse-wheel-progressive-speed nil)
+;; Turn on horizontal scrolling with mouse wheel
+(global-set-key (kbd "<mouse-6>") (lambda () (interactive) (scroll-right 1)))
+(global-set-key (kbd "<mouse-7>") (lambda () (interactive) (scroll-left 1)))
+(global-set-key (kbd "<mouse-8>") (lambda () (interactive) (previous-buffer)))
+(global-set-key (kbd "<mouse-9>") (lambda () (interactive) (next-buffer)))
+;; for scroll-all-mode add mouse wheel support
+;; https://www.emacswiki.org/emacs/ScrollAllMode
+(defun my-mwheel-scroll-all-function (func &optional arg)
+  (if (and scroll-all-mode arg)
+      (save-selected-window
+        (walk-windows
+         (lambda (win)
+           (select-window win)
+           (condition-case nil
+               (funcall func arg)
+             (error nil)))))
+    (funcall func arg)))
+(defun my-mwheel-scroll-all-scroll-up (&optional arg)
+  (my-mwheel-scroll-all-function 'scroll-up arg))
+(defun my-mwheel-scroll-all-scroll-down (&optional arg)
+  (my-mwheel-scroll-all-function 'scroll-down arg))
+(setq mwheel-scroll-up-function 'my-mwheel-scroll-all-scroll-up)
+(setq mwheel-scroll-down-function 'my-mwheel-scroll-all-scroll-down)
+
+;;; Scrolling.
+;; https://www.reddit.com/r/emacs/comments/8sw3r0/finally_scrolling_over_large_images_with_pixel/
+;; Good speed and allow scrolling through large images (pixel-scroll).
+;; Note: Scroll lags when point must be moved but increasing the number
+;;       of lines that point moves in pixel-scroll.el ruins large image
+;;       scrolling. So unfortunately I think we'll just have to live with
+;;       this.
+;;(pixel-scroll-mode)  ;; default off
+(setq pixel-dead-time 0) ; Never go back to the old scrolling behaviour.
+(setq pixel-resolution-fine-flag t) ; Scroll by number of pixels instead of lines (t = frame-char-height pixels).
+(setq mouse-wheel-scroll-amount '(1)) ; Distance in pixel-resolution to scroll each mouse wheel event.
+(setq mouse-wheel-progressive-speed nil) ; Progressive speed is too fast for me.
+
+
+;;
+;; Menu
+;;
+;; Creating a major menu pane in the menu bar in the “File” menu before the “Save” entry.
+;; Easy-Menu
+;; https://www.gnu.org/software/emacs/manual/html_node/elisp/Easy-Menu.html
+;; https://stackoverflow.com/questions/26638015/elisp-easy-menu-positioning#29396939
+;; add menus to the global menu bar: map nil
+(use-package easymenu
+  :config
+  (easy-menu-add-item nil '("File") ["Kill Emacs" kill-emacs  :help "Run function `kill-emacs'"] "Quit")
+  
+  (easy-menu-define my-menu nil "My Menu"
+    '("My"))
+  (easy-menu-define my-major-menu nil "My Major Menu"
+    '("Major Modes"
+      ["Unknown"      (progn ()) :style radio :selected major-mode :active nil
+       :label (concat "Current: " (prin1-to-string major-mode))]
+      ["Deft"         (progn (deft)) :style radio :selected (eq major-mode 'deft-mode) :help "deft"]
+      ["Eshell [🅢ｅ]" (progn (eshell-mode)) :style radio :selected (eq major-mode 'eshell-mode) :help "eshell-mode"]
+      ["Magit"        (progn (magit)) :style radio :selected (eq major-mode 'magit-status-mode) :help "magit"]
+      ["Notmuch [🅝]" (progn (notmuch)) :style radio :selected (eq major-mode 'notmuch-mode) :help "notmuch"]
+      ["mu4e [Ⓜ]"    (progn (mu4e)) :style radio :selected (eq major-mode 'mu4e-mode) :help "mu4e"]
+      ["Org Brain"    (progn (call-interactively 'org-brain-visualize)) :style radio :selected (eq major-mode 'org-brain-visualize-mode) :help "org-brain-visualize"]
+      ["Org Drill"    (progn (org-drill)) :style radio :selected (eq major-mode 'org-drill-mode) :help "org-drill"]
+      ["Powershell"   (progn (powershell)) :style radio :selected (eq major-mode 'powershell-mode) :help "powershell"]
+      ["Shell"        (progn (shell)) :style radio :selected (eq major-mode 'shell-mode) :help "shell"]
+      ["Treemacs"     (progn (treemacs)) :style radio :selected (eq major-mode 'treemacs-mode) :help "treemacs"]
+      ))
+  (easy-menu-define my-lang-menu nil "My Lang Menu"
+    '("Language Modes"
+      ["Unknown" (progn ())
+       :style radio :selected major-mode :active nil
+       :label (concat "Current: " (prin1-to-string major-mode))]
+      ["Batch script" (progn (bat-mode))
+       :style radio :selected (eq major-mode 'bat-mode) :help "bat-mode"]
+      ["C" (progn (c-mode))
+       :style radio :selected (eq major-mode 'c-mode) :help "c-mode"]
+      ["C++" (progn (c++-mode))
+       :style radio :selected (eq major-mode 'c++-mode) :help "c++-mode"]
+      ["CSS [🅒SS]" (progn (css-mode))
+       :style radio :selected (eq major-mode 'css-mode) :help "css-mode"]
+      ["Emacs-Lisp [🅛ｅ]" (progn (emacs-lisp-mode))
+       :style radio :selected (eq major-mode 'emacs-lisp-mode) :help "emacs-lisp-mode"]
+      ["Gnuplot" (progn (gnuplot-mode))
+       :style radio :selected (eq major-mode 'gnuplot-mode) :help "gnuplot-mode"]
+      ["HTML" (progn (html-mode))
+       :style radio :selected (eq major-mode 'html-mode) :help "html-mode"]
+      ["Java" (progn (java-mode))
+       :style radio :selected (eq major-mode 'java-mode) :help "java-mode"]
+      ;; js2-mode better than js-mode
+      ["Javascript" (progn (js2-mode))
+       :style radio :selected (eq major-mode 'js2-mode) :help "js2-mode"]
+      ["LaTeX [🅛ａ]" (progn (latex-mode))
+       :style radio :selected (eq major-mode 'latex-mode) :help "latex-mode"]
+      ["Ledger [🅛ｄ]" (progn (ledger-mode))
+       :style radio :selected (eq major-mode 'ledger-mode) :help "ledger-mode"]
+      ["Lisp Interaction [🅛ｉ]" (progn (lisp-interaction-mode))
+       :style radio :selected (eq major-mode 'lisp-interaction-mode) :help "lisp-interaction-mode"]
+      ["Markdown" (progn (markdown-mode))
+       :style radio :selected (eq major-mode 'markdown-mode) :help "markdown-mode"]
+      ["Octave" (progn (octave-mode))
+       :style radio :selected (eq major-mode 'octave-mode) :help "octave-mode"]
+      ["Org [🅞]" (progn (org-mode))
+       :style radio :selected (eq major-mode 'org-mode) :help "org-mode"]
+      ;; cperl-mode offers much more features than perl-mode.
+      ["Perl" (progn (cperl-mode))
+       :style radio :selected (eq major-mode 'cperl-mode) :help "cperl-mode"]
+      ["PHP" (progn (php-mode))
+       :style radio :selected (eq major-mode 'php-mode) :help "php-mode"]
+      ["PlantUML" (progn (plantuml-mode))
+       :style radio :selected (eq major-mode 'plantuml-mode) :help "plantuml-mode"]
+      ["Powershell script" (progn (powershell-mode))
+       :style radio :selected (eq major-mode 'powershell-mode) :help "powershell-mode"]
+      ["Python [🅟]" (progn (python-mode))
+       :style radio :selected (eq major-mode 'python-mode) :help "python-mode"]
+      ["Python-Web (Poly)" (progn (poly-python-web-mode-map))
+       :style radio :selected (eq major-mode 'poly-python-web-mode-map) :help "poly-python-web-mode-map"]
+      ["R (ESS)" (progn (ess-r-mode))
+       :style radio :selected (eq major-mode 'ess-r-mode) :help "ess-r-mode"]
+      ["reStructuredText (ReST)" (progn (rst-mode))
+       :style radio :selected (eq major-mode 'rst-mode) :help "rst-mode"]
+      ["Ruby" (progn (ruby-mode))
+       :style radio :selected (eq major-mode 'ruby-mode) :help "ruby-mode"]
+      ;; shell-mode is to run shell inside Emacs, sh-mode for shell script editing, shell-script-mode is an alias for sh-mode.
+      ["Shell script" (progn (sh-mode))
+       :style radio :selected (eq major-mode 'sh-mode) :help "sh-mode"]
+      ["SQL" (progn (sql-mode))
+       :style radio :selected (eq major-mode 'sql-mode) :help "sql-mode"]
+      ["Tcl" (progn (tcl-mode))
+       :style radio :selected (eq major-mode 'tcl-mode) :help "tcl-mode"]
+      ["XML (nxml-mode)" (progn (nxml-mode))
+       :style radio :selected (eq major-mode 'nxml-mode) :help "nxml-mode"]
+      ["XML (xml-mode)" (progn (xml-mode))
+       :style radio :selected (eq major-mode 'xml-mode) :help "xml-mode"]
+      ))
+  (easy-menu-define my-minor-menu nil "My Minor Menu"
+    '("Minor Modes"
+      ["Ace Window Display" ace-window-display-mode
+       :style toggle :selected ace-window-display-mode :help "ace-window-display-mode"]
+      ["Company [Ⓒ]" company-mode
+       :style toggle :selected company-mode :help "company-mode"]
+      ["Compilation Shell [Ⓒｓ]" compilation-shell-minor-mode
+       :style toggle :selected compilation-shell-minor-mode :help "compilation-shell-minor-mode"]
+      ["Diff Highlighting" diff-hl-mode
+       :style toggle :selected diff-hl-mode :help "diff-hl-mode"]
+      ["Display Fill Column Indicator" display-fill-column-indicator-mode
+       :style toggle :selected display-fill-column-indicator-mode :help "display-fill-column-indicator-mode"]
+      ["Eldoc [Ⓔ]" eldoc-mode
+       :style toggle :selected eldoc-mode :help "eldoc-mode"]
+      ["Emojify" emojify-mode
+       :style toggle :selected emojify-mode :help "emojify-mode"]
+      ["Flycheck [𝓕]" flycheck-mode
+       :style toggle :selected flycheck-mode :help "flycheck-mode"]  ;; flymake supports less languages
+      ["Flyspell" flyspell-mode
+       :style toggle :selected flyspell-mode :help "flyspell-mode"]  ;; uses ispell
+      ["HideShow" hs-minor-mode
+       :style toggle :selected hs-minor-mode :help "hs-minor-mode"]
+      ["Horizontal Scroll Bar" horizontal-scroll-bar-mode
+       :style toggle :selected horizontal-scroll-bar-mode :help "horizontal-scroll-bar-mode"]
+  ;;    ["Ido" ido-mode
+  ;;     :style toggle :selected ido-mode :help "ido-mode"]
+      ["Ivy [Ⓘ]" ivy-mode
+       :style toggle :selected ivy-mode :help "ivy-mode"]
+      ["Line Numbers" linum-mode
+       :style toggle :selected linum-mode :help "linum-mode"]
+      ("Line Wrapping"
+       ["Auto Fill Function [↵]" auto-fill-mode
+        :style toggle :selected auto-fill-function :help "auto-fill-mode"]
+       ["Truncate Long Lines" toggle-truncate-lines   ;; menu-bar--toggle-truncate-long-lines
+        :style toggle :selected (or truncate-lines
+                                    (truncated-partial-width-window-p))
+        :help "toggle-truncate-lines"]
+       ["Virtual Auto Fill [Ⓥｆ]" virtual-auto-fill-mode
+        :style toggle :selected virtual-auto-fill-mode :help "virtual-auto-fill-mode"]
+       ["Visual Line (Word Wrap) [↩]" visual-line-mode
+        :style toggle :selected visual-line-mode :help "visual-line-mode"]
+       )
+      ("Org"
+       ["Org Fancy Priorities [Ⓟ]" org-fancy-priorities-mode
+        :style toggle :selected org-sticky-header-mode :help "org-sticky-header-mode"]
+       ["Org Num [＃]" org-num-mode
+        :style toggle :selected org-num-mode :help "org-num-mode"]
+       ["Org Sticky Header" org-sticky-header-mode
+        :style toggle :selected org-sticky-header-mode :help "org-sticky-header-mode"]
+       ["Org Superstar" org-superstar-mode
+        :style toggle :selected org-superstar-mode :help "org-superstar-mode"]
+       ["Org Table Sticky Header [Ⓣ]" org-table-sticky-header-mode
+        :style toggle :selected org-table-sticky-header-mode :help "org-table-sticky-header-mode"]
+       )
+      ["Pixel Scroll" pixel-scroll-mode
+       :style toggle :selected pixel-scroll-mode :help "pixel-scroll-mode"]
+      ["Rainbow" rainbow-mode
+       :style toggle :selected rainbow-mode :help "rainbow-mode"]
+      ["Scroll-All" scroll-all-mode
+       :style toggle :selected scroll-all-mode :help "scroll-all-mode"]
+      ["Sphinx Doc [Ⓢ]" sphinx-doc-mode
+       :style toggle :selected sphinx-doc-mode :help "sphinx-doc-mode"]
+      ["YASnippet [Ⓨ]" yas-minor-mode
+       :style toggle :selected yas-minor-mode :help "yas-minor-mode"]
+      ["Which Key [Ⓚ]" which-key-mode
+       :style toggle :selected which-key-mode :help "which-key-mode"]
+      ["Whitespace [␣]" whitespace-mode
+       :style toggle :selected whitespace-mode :help "whitespace-mode"]
+      ;; "--"  ;; separator
+      ;; ["--" 'ignore :visible (featurep 'bookmark+-lit)]  ;; conditional separator
+      ;; ["How Many..." how-many]
+      ))
+  ;; add menus explicitly (required by XEmacs), after easy-menu-define
+  (easy-menu-add my-major-menu nil)
+  (easy-menu-add my-lang-menu nil)
+  (easy-menu-add my-minor-menu nil)
+  
+  (easy-menu-add-item nil () my-menu              ;; add empty my menu to menu-bar
+                      ;; "Edit"                   ;; before Edit
+                      )
+  (easy-menu-add-item nil '("My") my-major-menu)  ;; add submenu to my menu
+  (easy-menu-add-item nil '("My") my-lang-menu)
+  (easy-menu-add-item nil '("My") my-minor-menu)
+  
+  (easy-menu-add-item nil '("My") '("--"))
+  (easy-menu-define my-view-menu nil "My Views Menu"
+    '("Views"
+      ["ELisp"  my-view-elisp  :help "my-view-elisp"]
+      ["Python" my-view-python :help "my-view-python"]
+      ["Org PDF" my-view-org-pdf :help "my-view-org-pdf"]
+      ))
+  (easy-menu-add my-view-menu nil)
+  (easy-menu-add-item nil '("My") my-view-menu)
+
+  (easy-menu-add-item nil '("My") '("--"))
+  (with-eval-after-load 'org
+    (easy-menu-define my-org-export-menu nil "My Org Export Menu"
+      '("Org Export" :visible (eq major-mode 'org-mode)
+        ["HTML"              my-org-export-html       :help "my-org-export-html"]
+        ["HTML async"        my-org-export-html-async :help "my-org-export-html-async"]
+        ["PDF (LaTeX)"       my-org-export-pdf        :help "my-org-export-pdf"]
+        ["PDF (LaTeX) async" my-org-export-pdf-async  :help "my-org-export-pdf-async"]
+        ))
+    (easy-menu-add my-org-export-menu nil)
+    (easy-menu-add-item nil '("My") my-org-export-menu)
+    (easy-menu-add-item nil '("My") '["Org Link Description Update" my-org-link-description-update :visible (eq major-mode 'org-mode)])
+    )
+
+  (with-eval-after-load 'notmuch
+    (easy-menu-add-item nil '("My") '["Notmuch Execute Offlineimap" my-mail-exec-offlineimap
+                                      :visible (or (eq major-mode 'notmuch-hello-mode)
+                                                   (eq major-mode 'notmuch-message-mode)
+                                                   (eq major-mode 'notmuch-search-mode)
+                                                   (eq major-mode 'notmuch-show-mode)
+                                                   (eq major-mode 'notmuch-tree-mode))
+                                      :help "my-mail-exec-offlineimap"])
+    )
+  )
+
+(provide 'general-settings)
+;;; general-settings.el ends here
diff --git a/settings/gui-settings.el b/settings/gui-settings.el
new file mode 100644
index 00000000..416694bb
--- /dev/null
+++ b/settings/gui-settings.el
@@ -0,0 +1,366 @@
+;;; gui-settings --- Summary
+
+;;; Commentary:
+
+;;; Requirements:
+;; restart-emacs https://melpa.org/#/restart-emacs
+;; dashboard https://melpa.org/#/dashboard
+;;   page-break-lines https://melpa.org/#/page-break-lines
+;;   all-the-icons https://melpa.org/#/all-the-icons
+;;     memoize https://melpa.org/#/memoize
+;; indent-guide https://melpa.org/#/indent-guide
+;; not highlight-indent-guides
+;; rainbow-mode https://elpa.gnu.org/packages/rainbow-mode.html
+;; focus https://melpa.org/#/focus
+;; virtual-auto-fill https://melpa.org/#/virtual-auto-fill
+
+;;; Code:
+
+(use-package emacs
+  :delight
+  (auto-fill-function "↵")
+  (compilation-shell-minor-mode "Ⓒｓ")
+  (eldoc-mode "Ⓔ")  ;; Ⓔ e
+  (visual-line-mode "↩")  ;; " Wrap"
+  (whitespace-mode "␣")   ;; "␣ _ ws"
+  ;; major modes
+  (calendar-mode "🅒ａｌ")  ;; "Calendar" "📆"
+  (css-mode "🅒SS")  ;; "CSS"
+  (emacs-lisp-mode "🅛ｅ")  ;; "EL 🅛⒠"
+  (eshell-mode "🅢ｅ")  ;; "Esh 🅔⒮"
+  (fundamental-mode "🅕")  ;; "F "  ;; not working
+  (help-mode "🅗")  ;; "H "
+  (Info-mode "🅘")  ;; "I "  ;; not working
+  (latex-mode "🅛ａ")  ;; "LaTeX "
+  (lisp-interaction-mode "🅛ｉ")  ;; "LI 🅛⒤"
+  (messages-mode "🅜")  ;; "M "  ;; not working
+  (messages-buffer-mode "🅜")  ;; "M "  ;; not working
+  (inferior-python-mode "🅟ｉ")  ;; "IPy 🅟⒤"
+  :hook
+  (prog-mode . display-fill-column-indicator-mode)
+  (help-mode . visual-line-mode)
+  (messages-buffer-mode . visual-line-mode)
+  :config
+  (set-face-attribute 'fill-column-indicator nil :foreground "DarkSlateGray")  ;; inherit shadow
+
+  ;; `scroll-bar-mode' sets for all frames and all windows
+  ;; use `set-window-scroll-bars' for windows only
+  (scroll-bar-mode 0)  ;; 1st deactivate scrolling
+  (add-hook 'visual-line-mode-hook 'my-visual-line-mode-hook)
+  (defun my-visual-line-mode-hook ()
+    "no `horizontal-scroll-bar' if `visual-line-mode'"
+    (if visual-line-mode
+        (set-window-scroll-bars (frame-selected-window) nil t nil nil)
+      (set-window-scroll-bars (frame-selected-window) nil t nil 'bottom)
+      ))
+  (add-hook 'window-state-change-hook
+            (lambda () (my-window-state-change (window-buffer))))
+  (defun my-window-state-change (frame-or-window)
+    (let (window
+          (vertical-type nil)
+          (horizontal-type nil)
+          buffer
+          buffer-name)
+      (when (framep frame-or-window)
+        (setq window (frame-selected-window frame-or-window)))
+      (setq buffer (window-buffer window))
+      (setq buffer-name (buffer-name buffer))
+      ;; turn scrolling on
+      (when visual-line-mode
+        (setq vertical-type 'right)
+        (setq horizontal-type nil))
+      (when truncate-lines
+        (setq vertical-type 'right)
+        (setq horizontal-type 'bottom))
+      ;; turn off
+      (cond
+       ((or (minibufferp buffer)
+            (string-equal major-mode "doc-view-mode")
+            (string-equal buffer-name " *Org tags*"))
+        (setq vertical-type nil)
+        (setq horizontal-type nil))
+       ((string-prefix-p "*mu4e" buffer-name)
+        (setq vertical-type 'right)))
+      ;; (message "%s %s %s %s %s"
+      ;;          buffer-name
+      ;;          visual-line-mode
+      ;;          truncate-lines
+      ;;          vertical-type
+      ;;          horizontal-type)
+      (set-window-scroll-bars window nil vertical-type nil horizontal-type)
+      )
+    )
+  )
+
+(use-package doc-view
+  :defer t
+  :delight (doc-view-mode "🅓ｏｃ")  ;; "DocView"
+  :config
+  (setq doc-view-continuous t))
+
+(use-package restart-emacs)
+
+(use-package page-break-lines
+  :delight (page-break-lines-mode "Ⓟｂ")
+  :config
+  (global-page-break-lines-mode))
+
+(use-package memoize
+  :defer t)
+
+(use-package all-the-icons
+  :load-path (lambda() (concat user-emacs-directory "lisp/all-the-icons"))
+  :defer t
+  :config
+  (when (and (not (my-font-installed-p "all-the-icons"))
+             (window-system))
+    (all-the-icons-install-fonts t)
+    ;;(restart-emacs)  ;; infinity loop?
+    ))
+
+(use-package dashboard
+  :load-path (lambda() (concat user-emacs-directory "lisp/dashboard"))
+  :delight (dashboard-mode "🅓")
+  :config
+  (setq dashboard-startup-banner 'logo)
+  (setq dashboard-set-navigator t)
+  ;; (setq dashboard-navigator-buttons  ;; Format: "(icon title help action face prefix suffix)"
+  ;;       (list (list  ;; line1
+  ;;              ;; "☆" "Star" "Show stars" (lambda (&rest _) (show-stars)) warning "[" "]")
+  ;;              (list "?" "" "?/h" (lambda (&rest _) (describe-mode)) nil "<" ">")  ;;#'show-help
+  ;;              )))
+  (setq dashboard-navigator-buttons  ;; Format: "(icon title help action face prefix suffix)"
+        `(( ;; views
+           ("" "Custom Views:" "custom views" nil default "" "")
+           (,(all-the-icons-fileicon "elisp" :height 1.0 :v-adjust -0.1)
+            "ELisp" "my-view-elisp" (lambda (&rest _) (my-view-elisp)))
+           (,(all-the-icons-alltheicon "python" :height 1.0 :v-adjust 0.0)
+            "Python" "my-view-python" (lambda (&rest _) (my-view-python)))
+           )
+          ( ;; major modes
+           ("" "Major Modes:" "major modes" nil default "" "")
+           (""
+            "Deft" "deft" (lambda (&rest _) (deft)))
+           (""
+            "EShell" "eshell-mode" (lambda (&rest _) (eshell-mode)))
+           (""
+            "Magit" "magit" (lambda (&rest _) (magit)))
+           (,(all-the-icons-octicon "mail" :height 1.0 :v-adjust 0.0)
+            "Mu4e" "mu4e" (lambda (&rest _) (mu4e)))
+           (,(all-the-icons-octicon "mail" :height 1.0 :v-adjust 0.0)
+            "Notmuch" "notmuch" (lambda (&rest _) (notmuch)))
+           (""
+            "Org-Brain" "org-brain-visualize" (lambda (&rest _) (call-interactively 'org-brain-visualize)))
+           )
+          ( ;; major modes second line
+           (""
+            "Org-Drill" "org-drill" (lambda (&rest _) (org-drill)))
+           (""
+            "Powershell" "powershell" (lambda (&rest _) (powershell)))
+           (""
+            "Shell" "shell" (lambda (&rest _) (shell)))
+           (""
+            "Treemacs" "treemacs" (lambda (&rest _) (treemacs)))
+           )
+          ( ;; line1
+           ;; "☆" "Star" "Show stars" (lambda (&rest _) (show-stars)) warning "[" "]")
+           (,(all-the-icons-material "help_outline" :height 1.1 :v-adjust -0.15)  ;; all-the-icons-octicon "question"
+            "Help" "?/h" (lambda (&rest _) (describe-mode)) nil)  ;; #'show-help
+           (,(all-the-icons-material "refresh" :height 1.1 :v-adjust -0.15)   ;; all-the-icons-octicon "sync"
+            "Restart" "restart-emacs" (lambda (&rest _) (restart-emacs)) nil)
+           )))
+  (setq dashboard-items '((recents  . 5)
+                          (bookmarks . 5)
+                          ;;(projects . 5)
+                          ;;(agenda . 5)
+                          (registers . 5)))
+  
+  ;;custom widget
+  (defun my-widget-item (icon icon-face title title-face help action)
+    (let ((action (or action #'ignore)))
+      (widget-create 'item
+                     :tag (concat
+                           (propertize icon 'face `(:inherit
+                                                    ,(get-text-property 0 'face icon)
+                                                    :inherit
+                                                    ,icon-face))
+                           (propertize " " 'face 'variable-pitch)
+                           (propertize title 'face title-face))
+                     :help-echo help
+                     :action action
+                     :button-face `(:underline nil)
+                     :mouse-face 'highlight
+                     ;;:button-prefix (propertize "" 'face 'dashboard-navigator)
+                     ;;:button-suffix (propertize "" 'face 'dashboard-navigator)
+                     :format "%[%t%]")))
+  ;; (defun dashboard-insert-custom (list-size)
+  ;;   (dashboard-insert-shortcut "v" "Views" t)
+  ;;   (when (display-graphic-p)
+  ;;     (insert (all-the-icons-material "view_quilt" :height 1.6 :v-adjust -0.25
+  ;;                                     :face 'dashboard-heading))
+  ;;     (insert " "))
+  ;;   (insert (propertize "Custom views:" 'face 'dashboard-heading))
+  ;;   (insert " (v)")
+  ;;   (insert "  ")
+  ;;   (my-widget-item (all-the-icons-fileicon "elisp" :height 1.0 :v-adjust -0.1)
+  ;;                   'all-the-icons-purple "ELisp" 'default "my-view-elisp"
+  ;;                   (lambda (&rest _) (my-view-elisp)))
+  ;;   (insert " ")
+  ;;   (my-widget-item (all-the-icons-alltheicon "python" :height 1.0 :v-adjust 0.0)
+  ;;                   'all-the-icons-dblue "Python" 'default "my-view-python"
+  ;;                   (lambda (&rest _) (my-view-python)))
+  ;;   (insert " ")
+  ;;   (my-widget-item (all-the-icons-octicon "mail" :height 1.0 :v-adjust 0.0)
+  ;;                   'all-the-icons-dblue "Notmuch" 'default "notmuch"
+  ;;                   (lambda (&rest _) (notmuch)))
+  ;;   )
+  ;; (add-to-list 'dashboard-item-generators  '(custom . dashboard-insert-custom) t)
+  ;; see below add-to-list to dashboard-items
+
+  ;; `clean-buffer-list'
+  (defun my-buffer-name-list (&optional special internal)
+    "If SPECIAL non-nil then include special buffers.
+If INTERNAL non-nil then include internal buffers."
+    (let ((b-list (mapcar (function buffer-name) (buffer-list)))
+          new-list head)
+      (while b-list
+        (setq head (car b-list))
+        (when (or internal   ;; check if no space is in the fron
+                  (not (string= " " (substring head 0 1))))
+          (when (or special  ;; check if no star are in the front and back
+                    (and (not (string= "*" (substring head 0 1)))
+                         (not (string= "*" (subseq head -1)))))
+            (push head new-list)))
+        (setq b-list (cdr b-list)))
+      (nreverse new-list)))
+  (defun my-buffer-name-list-special ()
+    "List special buffers."
+    (let ((b-list (mapcar (function buffer-name) (buffer-list)))
+          new-list head)
+      (while b-list
+        (setq head (car b-list))
+        (when (and (string= "*" (substring head 0 1))
+                   (string= "*" (subseq head -1)))
+          (push head new-list))
+        (setq b-list (cdr b-list)))
+      (nreverse new-list)))
+  ;; overwrite with addition parameter to supress the logic to insert
+  ;; a pre-defined heading icon. This is used to include own icon.
+  (defun dashboard-insert-heading (heading &optional shortcut suppress-icon)
+    "Insert a widget HEADING in dashboard buffer, adding SHORTCUT if provided."
+    (when (and (display-graphic-p)
+               dashboard-set-heading-icons)
+      ;; Try loading `all-the-icons'
+      (unless (or (fboundp 'all-the-icons-octicon)
+                  (require 'all-the-icons nil 'noerror))
+        (error "Package `all-the-icons' isn't installed"))
+
+      (unless suppress-icon  ;; ADDED
+      (insert (cond
+               ((string-equal heading "Recent Files:")
+                (all-the-icons-octicon (cdr (assoc 'recents dashboard-heading-icons))
+                                       :height 1.2 :v-adjust 0.0 :face 'dashboard-heading))
+               ((string-equal heading "Bookmarks:")
+                (all-the-icons-octicon (cdr (assoc 'bookmarks dashboard-heading-icons))
+                                       :height 1.2 :v-adjust 0.0 :face 'dashboard-heading))
+               ((or (string-equal heading "Agenda for today:")
+                    (string-equal heading "Agenda for the coming week:"))
+                (all-the-icons-octicon (cdr (assoc 'agenda dashboard-heading-icons))
+                                       :height 1.2 :v-adjust 0.0 :face 'dashboard-heading))
+               ((string-equal heading "Registers:")
+                (all-the-icons-octicon (cdr (assoc 'registers dashboard-heading-icons))
+                                       :height 1.2 :v-adjust 0.0 :face 'dashboard-heading))
+               ((string-equal heading "Projects:")
+                (all-the-icons-octicon (cdr (assoc 'projects dashboard-heading-icons))
+                                       :height 1.2 :v-adjust 0.0 :face 'dashboard-heading))
+               (t " ")))
+      )  ;; ADDED
+      (insert " "))
+
+    (insert (propertize heading 'face 'dashboard-heading))
+    (if shortcut (insert (format " (%s)" shortcut))))
+  ;; overwrite to supress the logic to insert a pre-defined heading
+  ;; icon. This is used to include own icon.
+  (defmacro my-dashboard-insert-section (section-name list list-size shortcut action &rest widget-params)
+    "Add a section with SECTION-NAME and LIST of LIST-SIZE items to the dashboard.
+SHORTCUT is the keyboard shortcut used to access the section.
+ACTION is theaction taken when the user activates the widget button.
+WIDGET-PARAMS are passed to the \"widget-create\" function."
+    `(progn
+       (dashboard-insert-heading ,section-name
+                                 (if (and ,list dashboard-show-shortcuts) ,shortcut)
+                                 t)  ;; ADDED
+       (if ,list
+           (when (dashboard-insert-section-list
+                  ,section-name
+                  (dashboard-subseq ,list 0 ,list-size)
+                  ,action
+                  ,@widget-params)
+             (dashboard-insert-shortcut ,shortcut ,section-name))
+         (insert "\n    --- No items ---"))))
+  (defun dashboard-insert-buffers (list-size)
+    "Add the list of LIST-SIZE items from buffers list.
+
+See also `dashboard-insert-section'."
+    (when (display-graphic-p)
+      (insert (all-the-icons-octicon
+               "versions"
+               :height 1.2 :v-adjust 0.0 :face 'dashboard-heading)))
+    (my-dashboard-insert-section
+     "Special Buffers:"
+     ;;(my-buffer-name-list)
+     (my-buffer-name-list-special)
+     list-size
+     "b"
+     `(lambda (&rest ignore) (switch-to-buffer ,el))
+     (abbreviate-file-name el)))
+  (add-to-list 'dashboard-item-generators  '(buffers . dashboard-insert-buffers) t)
+  ;; see below add-to-list to dashboard-items
+  
+  
+  (add-to-list 'dashboard-items '(buffers . 5) t)
+  ;; (add-to-list 'dashboard-items '(custom) t)
+  
+  
+  ;; needs package ‘all-the-icons’
+  (setq dashboard-set-heading-icons t)
+  (setq dashboard-set-file-icons t)
+  (dashboard-setup-startup-hook))
+
+(use-package indent-guide
+  :delight (indent-guide-mode "Ⓘｇ")
+  :hook (prog-mode . indent-guide-mode)  ;; problem if used in notmuch
+  :config
+  (set-face-attribute 'indent-guide-face nil :foreground "DarkSlateGray")  ;; foreground #535353
+  ;;(setq indent-guide-char ":")
+  (setq indent-guide-char "\u2502")
+  (setq indent-guide-recursive t)  ;; NOT RECOMMENDED: To show not only one guide line but all guide lines recursively, set indent-guide-recursive non-nil.
+  )
+
+;; problem when using 'character in elisp it inserts the guide characters when inserting text before guide characters
+;; (use-package highlight-indent-guides
+;;   :delight (highlight-indent-guides-mode "Ⓘｇ")
+;;   :hook (prog-mode . highlight-indent-guides-mode)
+;;   :config
+;;   (setq highlight-indent-guides-method 'character)  ;; 'fill 'character 'bitmap
+;;   (setq highlight-indent-guides-character ?:)       ;; ?:
+;;   (setq highlight-indent-guides-auto-enabled nil)   ;; deactivate auto colors
+;;   (set-face-foreground 'highlight-indent-guides-character-face "gray30")
+;;   )
+
+(use-package rainbow-mode
+  :delight (rainbow-mode "Ⓡ")  ;; " Rbow"
+  :commands rainbow-mode)
+
+(use-package focus
+  :commands focus-mode
+  :custom-face (focus-unfocused ((t :inherit shadow))))
+
+(use-package virtual-auto-fill
+  :delight (virtual-auto-fill-mode "Ⓥｆ")
+  :commands virtual-auto-fill-mode
+  ;;:hook (help-mode . virtual-auto-fill-mode)
+  )
+
+(provide 'gui-settings)
+;;; gui-settings.el ends here
diff --git a/settings/which-key-settings.el b/settings/which-key-settings.el
new file mode 100644
index 00000000..b284678f
--- /dev/null
+++ b/settings/which-key-settings.el
@@ -0,0 +1,90 @@
+;;; which-key-settings.el --- which-key settings  -*- mode: emacs-lisp; lexical-binding: t -*-
+
+;;; Commentary:
+;; https://melpa.org/#/which-key
+;; https://github.com/justbur/emacs-which-key
+
+;;; Code:
+;; variables which needs to be set before loading which-key-mode
+;; https://github.com/justbur/emacs-which-key#manual-activation
+;;(setq which-key-show-early-on-C-h t)  ;; Allow C-h to trigger which-key before it is done automatically
+(use-package which-key
+  :delight (which-key-mode "Ⓚ")  ;; Ⓚ K
+  :init
+  (setq which-key-idle-delay 1.0)
+  (setq which-key-idle-secondary-delay 0.05)
+  ;;(setq which-key-unicode-correction 3)
+  
+  (when (daemonp)
+    ;; problem if using unicodes and emacsclient, the last line of which-key side-frame is cropped.
+    (setq which-key-dont-use-unicode t)
+    )
+  :config
+  (which-key-mode)
+  (unless (daemonp)
+    ;; problem if using unicodes and emacsclient, the last line of which-key side-frame is cropped.
+    (add-to-list 'which-key-replacement-alist '(("TAB" . nil) . ("↹" . nil)))
+    (add-to-list 'which-key-replacement-alist '(("RET" . nil) . ("⏎" . nil)))
+    (add-to-list 'which-key-replacement-alist '(("DEL" . nil) . ("⇤" . nil)))
+    (add-to-list 'which-key-replacement-alist '(("SPC" . nil) . ("␣" . nil)))
+    (add-to-list 'which-key-replacement-alist '(("<up>" . nil) . ("↑" . nil)))
+    (add-to-list 'which-key-replacement-alist '(("<down>" . nil) . ("↓" . nil)))
+    ;;(add-to-list 'which-key-replacement-alist '(("<left>" . nil) . ("←" . nil)))  ; already in
+    ;;(add-to-list 'which-key-replacement-alist '(("<right>" . nil) . ("→" . nil)))  ; already in
+    (setq which-key-special-keys '("SPC" "TAB" "RET" "ESC" "DEL"))  ;; automatically truncated to one character
+    )
+
+  ;; https://www.gnu.org/software/emacs/manual/html_node/elisp/Creating-Keymaps.html#Creating-Keymaps
+  (setq meta-m-map (make-sparse-keymap))
+  (define-prefix-command 'meta-m-map)       ;; define new prefix
+  (global-set-key (kbd "M-m") 'meta-m-map)  ;; set new prefix to M-m
+  ;;(global-set-key (kbd "M-m SPC") 'counsel-M-x)  ;; TODO
+  (global-set-key (kbd "M-m h k") 'which-key-show-top-level)
+  (global-set-key (kbd "M-m t K") 'which-key-mode)
+
+  ;; define prefix names
+  ;; formaly which-key-declare-prefixes
+  ;; blob/c7a103a772d808101d7635ec10f292ab9202d9ee/layers/%2Bdistributions/spacemacs-base/packages.el
+  (which-key-add-key-based-replacements
+    "M-m" '("root" . "My root")
+    "M-m a" "applications"
+    "M-m b" "buffers"
+    "M-m c" "compile/comments"
+    "M-m e" "errors"
+    "M-m f" "files"
+    "M-m f v" "variables"
+    "M-m h" "help"
+    "M-m h d" "describe"
+    "M-m j" "jump/join/split"
+    "M-m m" '("major-mode-cmd" . "Major mode commands")
+    "M-m M-m" "M-x"
+    "M-m n" "narrow/numbers"
+    "M-m q" "quit"
+    "M-m s" "misc."
+    "M-m s m" "multiple-cursors"
+    "M-m s m s" "specials"
+    "M-m t" "toggles"
+    "M-m t h" "highlight"
+    "M-m t m" "modeline"
+    "M-m T" "UI toggles/themes"
+    "M-m w" "windows"
+    "M-m x" "text"
+    "M-m x a" "align"
+    "M-m x d" "delete"
+    "M-m x j" "justification"
+    "M-m x l" "lines"
+    "M-m x t" "transpose"
+    )
+  (which-key-add-major-mode-key-based-replacements 'python-mode
+    "M-m m c" "execute"
+    "M-m m d" "debug"
+    "M-m m s" "REPL"  ;; REPL read-eval-print-loop / interactive toplevel / language shell
+    )
+
+  ;;(set-face-foreground 'font-lock-keyword-face  "Purple")
+  ;;(set-face-attribute 'which-key-group-description-face nil :inherit nil)
+  ;;(set-face-attribute 'which-key-group-description-face nil :inherit font-lock-keyword-face)
+  )
+
+(provide 'which-key-settings)
+;;; which-key-settings.el ends here