;; general-settings.el --- General settings  -*- lexical-binding: t -*-

;;; Commentary:

;; Requirements:

;;; Code:

;; transparency
(defun transparency-p ()
  "Toggle transparency of the frame."
  (let ((alpha (frame-parameter nil 'alpha)))
    (if (eq
         (if (numberp alpha)
             alpha
           (cdr alpha)) ; may also be nil
         100)
        nil     ;; currently aplha 100
      t)))  ;; currently aplha active
(defun toggle-transparency ()
  "Toggle transparency of the frame."
  (interactive)
    (if (transparency-p)
        (set-frame-parameter nil 'alpha '(100 . 100))
      (set-frame-parameter nil 'alpha '(95 . 95))))

;; source: http://steve.yegge.googlepages.com/my-dot-emacs-file
(defun my-rename-buffer-file (new-name)
  "Rename both current buffer and file it's visiting to NEW-NAME."
  (interactive "sNew name: ")
  (let ((name (buffer-name))
        (filename (buffer-file-name)))
    (if (not filename)
        (message "Buffer '%s' is not visiting a file!" name)
      (if (get-buffer new-name)
          (message "A buffer named '%s' already exists!" new-name)
        (progn
          (rename-file filename new-name 1)
          (rename-buffer new-name)
          (set-visited-file-name new-name)
          (set-buffer-modified-p nil))))))
(defun my-move-buffer-file (dir)
  "Move both current buffer and file it's visiting to DIR."
  (interactive "DNew directory: ")
  (let* ((name (buffer-name))
         (filename (buffer-file-name))
         (dir
          (if (string-match dir "\\(?:/\\|\\\\)$")
              (substring dir 0 -1) dir))
         (newname (concat dir "/" name)))
    (if (not filename)
        (message "Buffer '%s' is not visiting a file!" name)
      (progn
        (copy-file filename newname 1)
        (delete-file filename)
        (set-visited-file-name newname)
        (set-buffer-modified-p nil)
        t))))

(use-package ibuf-ext
  :after (ibuffer)
  :bind ((:map ibuffer-mode-map
               (("/ u" . ibuffer-filter-by-unsaved))))
  :config
  (define-ibuffer-filter unsaved
      "Toggle current view to buffers whose file is unsaved."
    (:description "file is unsaved")
    (with-current-buffer buf
      (and buffer-file-name (buffer-modified-p)))))

(use-package x-win
  :defer t
  :config
  ;; overwrite
  (defun emacs-session-filename (session-id)
    "Construct a filename to save the session in based on SESSION-ID.
Return a filename in `user-emacs-directory', unless the session file
already exists in the home directory."
    (let ((basename (concat "session." session-id)))
      (concat user-cache-directory basename))))

;;; desktop
(require 'desktop)
;; save session
;;(desktop-save-mode 1)
(setq desktop-dirname user-cache-directory)
(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))))))
    )
  )


;; overwrite selected text
(delete-selection-mode t)

;; ignore case when searching
(setq case-fold-search t)

(defun my-unfill-paragraph ()
  "Replace newline chars in current paragraph by single spaces.
This command does the inverse of `fill-paragraph'.

URL `http://ergoemacs.org/emacs/emacs_unfill-paragraph.html'
Version 2016-07-13"
  (interactive)
  (let ((fill-column most-positive-fixnum))
    (fill-paragraph)))

(defun my-unfill-region (start end)
  "Replace newline chars in region by single spaces.
This command does the inverse of `fill-region'.

URL `http://ergoemacs.org/emacs/emacs_unfill-paragraph.html'
Version 2016-07-13"
  (interactive "r")
  (let ((fill-column most-positive-fixnum))
    (fill-region start end)))

(use-package so-long
  :config
  ;;(add-to-list 'so-long-target-modes 'mhtml-mode t)
  (setq so-long-max-lines nil)  ;; by default only 5 non-blank lines are tested
  (setq so-long-threshold 500)
  (setq so-long-action 'so-long-minor-mode)  ;; so-long-mode
  (global-so-long-mode 1))

;; 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)

;; 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/"))

;; 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
  :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")))

;; A better *Help* buffer
(use-package helpful
  ;;:after counsel
  :bind
  (;; Note that the built-in `describe-function' includes both functions
   ;; and macros. `helpful-function' is functions only, so we provide
   ;; `helpful-callable' as a drop-in replacement to include `helpful-macro'.

   ;; ("C-h f" . helpful-callable)  ;; C-h f default describe-function
   ;; ("C-h v" . helpful-variable)  ;; C-h v default describe-variable
   ;; ("C-h k" . helpful-key)       ;; C-h k default describe-key

   ;; Lookup the current symbol at point. C-c C-d is a common keybinding
   ;; for this in lisp modes.
   ("C-c C-d" . helpful-at-point)

   ;; Look up *F*unctions (excludes macros).
   ;; By default, C-h F is bound to `Info-goto-emacs-command-node'. Helpful
   ;; already links to the manual, if a function is referenced there.
   ;; ("C-h F" . helpful-function)
   ;; Look up functions including macros (like `describe-function').
   ("C-h F" . helpful-callable)
   ;; ("C-h F" . counsel-describe-function)  ;; calls helpful-callable, see below

   ;; Look up *K*eys.
   ;; By default, C-h K is bound to `Info-goto-emacs-key-command-node'.
   ;; Helpful already links to the manual, if a key is referenced there.
   ("C-h K" . helpful-key)

   ;; Look up *V*ariable.
   ("C-h V" . helpful-variable)
   ;; ("C-h V" . counsel-describe-variable)  ;; calls helpful-vraiable, see below

   ;; Look up *C*ommands.
   ;; By default, C-h C is bound to describe `describe-coding-system'. I
   ;; don't find this very useful, but it's frequently useful to only
   ;; look at interactive functions.
   ("C-h C" . helpful-command))
  :config
  ;; (with-eval-after-load 'ivy
  ;;   ;; Ivy users can use Helpful with counsel commands:
  ;;   (setq counsel-describe-function-function #'helpful-callable)
  ;;   (setq counsel-describe-variable-function #'helpful-variable))
  )

;;
;; 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)
;;
(define-key global-map "\M-Q" 'my-unfill-paragraph)
;;
(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 l") 'find-library)
(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)
(global-set-key (kbd "M-m T p") 'toggle-transparency)
;; 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)

(use-package winner
  :config
  (winner-mode))

;;
;; 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)
  (require 'xt-mouse)
  (xterm-mouse-mode t)
  (global-set-key (kbd "<wheel-up>") 'scroll-down-line)
  (global-set-key (kbd "<wheel-down>") 'scroll-up-line)
  ;; still needed?
  ;; (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)
  )
(global-set-key (kbd "<mouse-8>") (lambda () (interactive) (previous-buffer)))
(global-set-key (kbd "<mouse-9>") (lambda () (interactive) (next-buffer)))
;;; Scrolling
;; (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.
(setq mouse-wheel-tilt-scroll t)          ; Turn on horizontal scrolling with mouse wheel
(setq mouse-wheel-flip-direction t)       ; Swap direction of `wheel-right' and `wheel-left'
;; 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)

;; 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.
(use-package pixel-scroll
  :defer t
  :config
  (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).
  ;;(pixel-scroll-mode)  ;; default off
  )

;;
;; 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
  :after (org)  ;; org export async needs org loaded before
  :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"
    (list "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
      ["Focus" focus-mode
       :style toggle :selected focus-mode :help "focus-mode"]
      ["HideShow" hs-minor-mode
       :style toggle :selected hs-minor-mode :help "hs-minor-mode"]
      ["Highlight Line" hl-line-mode
       :style toggle :selected hl-line-mode :help "hl-lien-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"]
       )
      ["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"]
      ["Semantic" semantic-mode
       :style toggle :selected semantic-mode :help "semantic-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"]
      ["Window Divider" window-divider-mode
       :style toggle :selected window-divider-mode :help "window-divider-mode"]
      ["Winner" winner-mode
       :style toggle :selected winner-mode :help "winner-mode"]
      ;; "--"  ;; separator
      ;; ["--" 'ignore :visible (featurep 'bookmark+-lit)]  ;; conditional separator
      ;; ["How Many..." how-many]
      ))
  
  (easy-menu-add-item nil () my-menu              ;; add empty my menu to menu-bar
                      ;; "Edit"                   ;; before Edit
                      )  
  (easy-menu-add-item nil '("My") '["Help" my-help :help "my-help"])
  (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"]
      ["Gnuplot" my-view-gnuplot :help "my-view-gnuplot"]
      ["Org PDF" my-view-org-pdf :help "my-view-org-pdf"]
      ["Python" my-view-python :help "my-view-python"]
      ["Shell" my-view-shell :help "my-view-shell"]
      ))
  (easy-menu-add-item nil '("My") my-view-menu)
  
  (easy-menu-add-item nil '("My") '["Transparency" toggle-transparency :style toggle :selected (transparency-p) :help "toggle-transparency"])

  (with-eval-after-load 'org            ;; org-mode, org-toggle-pretty-entities
    (easy-menu-define my-org-export-menu nil "My Org Export Menu"
      '("Org Export" :visible (eq major-mode 'org-mode)
        ["Article HTML"       my-org-article-html-export-to-html              :help "my-org-article-html-export-to-html"]
        ["Article HTML async" my-org-article-html-export-to-html-notify-async :help "my-org-article-html-export-to-html-notify-async"]
        ["Article PDF"        my-org-article-latex-export-to-pdf              :help "my-org-article-latex-export-to-pdf"]
        ["Article PDF async"  my-org-article-latex-export-to-pdf-notify-async :help "my-org-article-latex-export-to-pdf-notify-async"]
        ))
    (easy-menu-define my-org-minor-mode-menu nil "My Org Minor Mode Menu"
      '("Org Minor Mode / Toggles" :visible (eq major-mode 'org-mode)
        ["Org Appear" org-appear-mode
         :style toggle :selected org-appear-mode :help "org-appear-mode"]
        ["Org Fancy Priorities [Ⓟ]" org-fancy-priorities-mode
         :style toggle :selected org-fancy-priorities-mode :help "org-sticky-header-mode"]
        ["Org Indent" org-indent-mode
         :style toggle :selected org-indent-mode :help "org-indent-mode"]
        ["Org Latex Remove Logfiles" (setq org-latex-remove-logfiles (not org-latex-remove-logfiles))
         :style toggle :selected org-latex-remove-logfiles :help "org-latex-remove-logfiles"]
        ["Org Link Descriptive" org-toggle-link-display
         :style toggle :selected org-link-descriptive :help "org-toggle-link-display"]
        ["Org Num [＃]" org-num-mode
         :style toggle :selected org-num-mode :help "org-num-mode"]
        ["Org Pretty Entities \\xyz to UTF8 char" org-toggle-pretty-entities
         :style toggle :selected org-pretty-entities :help "org-toggle-pretty-entities"]
        ["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"]
        ))
    (easy-menu-add-item nil '("My") ["---" 'ignore :visible (eq major-mode 'org-mode)])
    (easy-menu-add-item nil '("My") my-org-export-menu)
    (easy-menu-add-item nil '("My") my-org-minor-mode-menu)
    (easy-menu-add-item nil '("My") '["Org Link Description Update" my-org-link-description-update :visible (eq major-mode 'org-mode) :help "my-org-link-description-update"])
    (easy-menu-add-item nil '("My") '["Org Article Help" my-org-article-help :visible (eq major-mode 'org-mode) :help "my-org-article-help"])
    )

  (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"])
    )
  )

(use-package calendar
  :defer t
  :config
  (setq calendar-week-start-day 1))

(provide 'general-settings)
;;; general-settings.el ends here