clean up
This commit is contained in:
@@ -87,9 +87,7 @@
|
||||
;; truncate-lines
|
||||
;; vertical-type
|
||||
;; horizontal-type)
|
||||
(set-window-scroll-bars window nil vertical-type nil horizontal-type)
|
||||
)
|
||||
)
|
||||
(set-window-scroll-bars window nil vertical-type nil horizontal-type)))
|
||||
)
|
||||
|
||||
(use-package tab-bar
|
||||
@@ -194,7 +192,7 @@
|
||||
:defer t)
|
||||
|
||||
(use-package all-the-icons
|
||||
:load-path (lambda() (concat user-emacs-directory "lisp/all-the-icons"))
|
||||
:load-path "lisp/all-the-icons"
|
||||
:defer t
|
||||
:config
|
||||
(when (and (not (my-font-installed-p "all-the-icons"))
|
||||
@@ -204,7 +202,7 @@
|
||||
))
|
||||
|
||||
(use-package dashboard
|
||||
:load-path (lambda() (concat user-emacs-directory "lisp/dashboard"))
|
||||
:load-path "lisp/dashboard"
|
||||
:delight (dashboard-mode "🅓")
|
||||
:config
|
||||
(setq dashboard-startup-banner 'logo)
|
||||
@@ -409,11 +407,9 @@ See also `dashboard-insert-section'."
|
||||
(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)
|
||||
@@ -457,7 +453,7 @@ See also `dashboard-insert-section'."
|
||||
;; 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."
|
||||
"Gets the current frame's geometry and save it to `my-frame-geometry-file'."
|
||||
(let ((frameg-font (frame-parameter (selected-frame) 'font))
|
||||
(frameg-left (frame-parameter (selected-frame) 'left))
|
||||
(frameg-top (frame-parameter (selected-frame) 'top))
|
||||
@@ -481,7 +477,7 @@ See also `dashboard-insert-section'."
|
||||
(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."
|
||||
"Load `my-frame-geometry-file' 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))))
|
||||
|
||||
Reference in New Issue
Block a user