Customise dashboard

Add hydra for controlling emms
This commit is contained in:
Evie Litherland-Smith 2023-10-27 08:57:48 +01:00
parent 5c959f8bf5
commit ef73c2e417
3 changed files with 62 additions and 3 deletions

View file

@ -3,6 +3,17 @@
emms-source-file-default-directory "~/Music"
emms-lyrics-dir "~/Music/lyrics")
(when (require 'emms-setup nil :noerror) (emms-all))
(when (require 'emms-setup nil :noerror)
(emms-all)
(when (require 'hydra nil :noerror)
(defhydra emms (global-map "C-c e")
"emms"
("b" emms-smart-browse)
("d" emms-show)
("s" emms-start)
("S" emms-stop)
("n" emms-next)
("p" emms-previous)
("P" emms-pause))))
(provide 'custom-media-config)

View file

@ -7,9 +7,52 @@
;;; Code:
(defconst crafted-startup-ascii-logo
'(" .000000. " ;; Make sure 1st line is as wide as widest
" .0. .0."
" .00. .00."
" .000cl. .lc000."
".0 0."
"0. .o0000o. .0"
" 00 .0' '0. 00"
" 00 .0 0. 00"
" HHHHH HHHHHHHHHHHH HHHHH"
"HHHH HHH HHHHHHHHHHHHHH HHHH"
" HHHHHH HHHHHHHHH HHHHHHHH"
" HHH HHHH HHHHHHHHH HHHH"
" HHH HHHHHH"
" HHHHH HH"))
(setq use-dialog-box nil
display-line-numbers 'relative
fill-column 80)
fill-column 80
dashboard-set-heading-icons t
dashboard-set-file-icons t
dashboard-set-navigator t
dashboard-set-init-info t
dashboard-startup-banner 'ascii
dashboard-projects-backend 'project-el
dashboard-projects-switch-function 'project-switch-project
dashboard-projects-show-base t
dashboard-items '((recents . 5)
(bookmarks . 5)
(projects . 5)
(agenda . 5)
(registers . 5))
dashboard-banner-ascii (concat " .000000. \n"
" .0. .0. \n"
" .00. .00. \n"
" .000cl. .lc000. \n"
".0 0.\n"
"0. .o0000o. .0\n"
" 00 .0' '0. 00 \n"
" 00 .0 0. 00 \n"
" HHHHH HHHHHHHHHHHH HHHHH \n"
"HHHH HHH HHHHHHHHHHHHHH HHHH\n"
" HHHHHH HHHHHHHHH HHHHHHHH \n"
" HHH HHHH HHHHHHHHH HHHH \n"
" HHH HHHHHH \n"
" HHHHH HH \n"))
(tool-bar-mode -1)
(scroll-bar-mode -1)
@ -19,6 +62,11 @@
(add-to-list 'default-frame-alist '(alpha-background . 80))
(when (require 'doom-themes nil :noerror) (load-theme 'doom-tokyo-night t))
;; Dashboard
(when (require 'dashboard nil :noerror)
(setq initial-buffer-choice (lambda () (get-buffer-create "*dashboard*")))
(dashboard-setup-startup-hook))
;; Extra minor-modes
(when (require 'which-key nil :noerror) (which-key-mode +1))
(when (require 'page-break nil :noerror) (global-page-break-lines-mode +1))

View file

@ -7,7 +7,7 @@
settings = {
server = {
http_addr = "127.0.0.1";
http_port = 3100;
http_port = 3000;
domain = "grafana.xenia.me.uk";
};
};