405 lines
17 KiB
EmacsLisp
405 lines
17 KiB
EmacsLisp
;;; 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
|
||
;; )))
|
||
(require 'all-the-icons)
|
||
(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)
|
||
)
|
||
|
||
;; Custom functions/hooks for persisting/loading frame geometry upon save/load
|
||
(setq my-frame-geometry-file (concat user-cache-directory "frame-geometry.el"))
|
||
(defun my-frame-geometry-save ()
|
||
"Gets the current frame's geometry and saves to ~/.emacs.frameg."
|
||
(let ((frameg-font (frame-parameter (selected-frame) 'font))
|
||
(frameg-left (frame-parameter (selected-frame) 'left))
|
||
(frameg-top (frame-parameter (selected-frame) 'top))
|
||
(frameg-width (frame-parameter (selected-frame) 'width))
|
||
(frameg-height (frame-parameter (selected-frame) 'height))
|
||
(frameg-file my-frame-geometry-file))
|
||
(with-temp-buffer
|
||
;; Turn off backup for this file
|
||
(make-local-variable 'make-backup-files)
|
||
(setq make-backup-files nil)
|
||
(insert
|
||
";;; This file stores the previous emacs frame's geometry.\n"
|
||
";;; Last generated " (current-time-string) ".\n"
|
||
"(setq initial-frame-alist\n"
|
||
;; " '((font . \"" frameg-font "\")\n"
|
||
" '("
|
||
(format " (top . %d)\n" (max frameg-top 0))
|
||
(format " (left . %d)\n" (max frameg-left 0))
|
||
(format " (width . %d)\n" (max frameg-width 0))
|
||
(format " (height . %d)))\n" (max frameg-height 0)))
|
||
(when (file-writable-p frameg-file)
|
||
(write-file frameg-file)))))
|
||
(defun my-frame-geometry-load ()
|
||
"Loads ~/.emacs.frameg which should load the previous frame's geometry."
|
||
(let ((frameg-file my-frame-geometry-file))
|
||
(when (file-readable-p frameg-file)
|
||
(load-file frameg-file))))
|
||
;; Special work to do ONLY when there is a window system being used
|
||
(if (display-graphic-p)
|
||
(progn
|
||
(add-hook 'after-init-hook 'my-frame-geometry-load)
|
||
(add-hook 'kill-emacs-hook 'my-frame-geometry-save)))
|
||
|
||
(provide 'gui-settings)
|
||
;;; gui-settings.el ends here
|