mir/emacs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Revert to unicode scroll bar (from GUI default)

Browse Source
This commit is contained in:
MitchMarq42 2022-07-16 17:57:38 -08:00
parent 0d6ec87577
commit 5e656cf5b4
2 changed files with 14 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lisp/mitch-defuns.el
View File

@ -62,7 +62,7 @@ the init file when we're on a graphical display.
This prevents errors in termux and speeds up init This prevents errors in termux and speeds up init
when editing from the console." when editing from the console."
;; hide gui scrollbars and menubar etc ;; hide gui scrollbars and menubar etc
(scroll-bar-mode t) (scroll-bar-mode -1) ;; use `yascroll' instead
(setq scroll-bar-adjust-thumb-portion nil) (setq scroll-bar-adjust-thumb-portion nil)
(tool-bar-mode 0) (tool-bar-mode 0)
(menu-bar-mode 0) (menu-bar-mode 0)

23
lisp/mitch-packages.el
View File

@ -245,16 +245,16 @@
(menu-bar-mode -1) (menu-bar-mode -1)
(load-theme 'mitch t)) (load-theme 'mitch t))
;; (use-package yascroll (use-package yascroll
;; :diminish :diminish
;; :defer 1 :defer 1
;; :if (not (display-graphic-p)) ;; :if (not (display-graphic-p))
;; :custom (yascroll:delay-to-hide nil) :custom (yascroll:delay-to-hide nil)
;; :custom-face :custom-face
;; (yascroll:thumb-text-area ((t (:background "ForestGreen")))) (yascroll:thumb-text-area ((t (:background "ForestGreen"))))
;; (yascroll:thumb-fringe (yascroll:thumb-fringe
;; ((t (:background "ForestGreen" :foreground "ForestGreen")))) ((t (:background "ForestGreen" :foreground "ForestGreen"))))
;; :config (global-yascroll-bar-mode 1)) :config (global-yascroll-bar-mode 1))
;; parentheses settingses ;; parentheses settingses
(use-package paredit (use-package paredit
@ -644,5 +644,8 @@
:custom (inferior-lisp-program "sbcl") :custom (inferior-lisp-program "sbcl")
:init (load (expand-file-name "~/quicklisp/slime-helper.el"))) :init (load (expand-file-name "~/quicklisp/slime-helper.el")))
(use-package nyan-mode
:init (nyan-mode))
(provide 'mitch-packages) (provide 'mitch-packages)
;;; mitch-packages.el ends here ;;; mitch-packages.el ends here