Opacity fixes and other aesthetic improvements

This commit is contained in:
Emmet 2023-08-27 08:43:50 -05:00
parent b2afc93c12
commit 5e0fabb257
7 changed files with 128 additions and 76 deletions

View file

@ -28,8 +28,8 @@
(remove-hook 'doom-init-ui-hook '+unicode-init-fonts-h) (remove-hook 'doom-init-ui-hook '+unicode-init-fonts-h)
;; Transparent background ;; Transparent background
(set-frame-parameter nil 'alpha-background 90) (set-frame-parameter nil 'alpha-background 65)
(add-to-list 'default-frame-alist '(alpha-background . 90)) (add-to-list 'default-frame-alist '(alpha-background . 65))
;; Icons in completion buffers ;; Icons in completion buffers
(add-hook 'marginalia-mode-hook #'all-the-icons-completion-marginalia-setup) (add-hook 'marginalia-mode-hook #'all-the-icons-completion-marginalia-setup)
@ -64,38 +64,63 @@
;; Disables custom.el ;; Disables custom.el
(setq custom-file null-device) (setq custom-file null-device)
;; Fancy splash image ;; Emacs dashboard
(setq fancy-splash-image "~/.emacs.d/dashboard-logo.png") (require 'all-the-icons)
(require 'dashboard)
(setq +doom-dashboard-menu-sections (setq initial-buffer-choice (lambda () (get-buffer-create "*dashboard*")))
'(("Open org roam overview" :icon (setq doom-fallback-buffer-name "*dashboard*")
(all-the-icons-octicon "globe" :face 'doom-dashboard-menu-title) (setq dashboard-banner-logo-title "Welcome to Nix Doom Emacs")
:face (setq dashboard-startup-banner 2)
(:inherit (setq dashboard-icon-type 'all-the-icons) ;; use `all-the-icons' package
(doom-dashboard-menu-title bold)) (setq dashboard-set-heading-icons t)
:action org-roam-default-overview) (setq dashboard-set-file-icons t)
("Roam to another db" :icon (setq dashboard-set-navigator t)
(all-the-icons-fileicon "org" :face 'doom-dashboard-menu-title) (setq dashboard-items '((projects . 3)))
:action org-roam-switch-db) (setq dashboard-center-content t)
("Open agenda" :icon (setq dashboard-footer-messages '("Here to do customizing, or actual work?"
(all-the-icons-octicon "calendar" :face 'doom-dashboard-menu-title) "M-x insert-inspiring-message"
:when "My software never has bugs. It just develops random features."
(fboundp 'org-agenda) "Give a man a program and you will frustrate him for a day.
:action org-agenda-list Teach him how to program and you will frustrate him for a lifetime."
:key "SPC o A a") "Dad, what are clouds made of? Linux servers, mostly."
("Open private configuration" :icon "There is no place like ~"
(all-the-icons-octicon "tools" :face 'doom-dashboard-menu-title) "~ sweet ~"
:when "sudo chown -R us ./allyourbase"
(file-directory-p doom-user-dir) "Ill tell you a DNS joke but it could take 24 hours for everyone to get it."
:action doom/open-private-config) "I'd tell you a UDP joke, but you might not get it."
("Open documentation" :icon "I'll tell you a TCP joke. Do you want to hear it?"))
(all-the-icons-octicon "book" :face 'doom-dashboard-menu-title) (setq dashboard-navigator-buttons
:action doom/help) `(;; line1
("Quit emacs" :icon (
(all-the-icons-faicon "level-down" :face 'doom-dashboard-menu-title) (,(all-the-icons-octicon "mark-github" :height 1.1 :v-adjust 0.0)
:action save-buffers-kill-terminal) "GitHub" "" (lambda (&rest _) (browse-url "ext+container:name=Tech&url=https://github.com/librephoenix")))
(,(all-the-icons-faicon "gitlab" :height 1.1 :v-adjust 0.0)
"GitLab" "" (lambda (&rest _) (browse-url "ext+container:name=Tech&url=https://gitlab.com/librephoenix")))
(,(all-the-icons-faicon "coffee" :height 1.1 :v-adjust 0.0)
"Gitea" "" (lambda (&rest _) (browse-url my-gitea-domain)))
) )
) ;; line 2
(
(,(all-the-icons-octicon "globe" :height 1.1 :v-adjust 0.0)
"Notes overview" "" (lambda (&rest _) (org-roam-default-overview)))
(,(all-the-icons-fileicon "org" :height 1.1 :v-adjust 0.0)
"Switch roam db" "" (lambda (&rest _) (org-roam-switch-db)))
(,(all-the-icons-octicon "calendar" :height 1.1 :v-adjust 0.0)
"Org roam agenda" "" (lambda (&rest _) (org-agenda-list)))
)
;; line 3
(
(,(all-the-icons-faicon "cogs" :height 1.1 :v-adjust 0.0)
"System config" "" (lambda (&rest _) (projectile-switch-project-by-name "~/.dotfiles" t)))
(,(all-the-icons-material "help" :height 1.1 :v-adjust 0.0)
"Doom documentation" "" (lambda (&rest _) (doom/help)))
)
))
(setq dashboard-footer-icon (all-the-icons-octicon "dashboard"
:height 1.1
:v-adjust -0.05
:face 'font-lock-keyword-face))
(dashboard-setup-startup-hook)
;; Requires for faster loading ;; Requires for faster loading
(require 'org-agenda) (require 'org-agenda)

View file

@ -77,9 +77,9 @@ Doom Emacs is traditionally installed by cloning the repository ([[https://githu
;; I also like evil mode visual movement ;; I also like evil mode visual movement
(map! :map evil-normal-state-map (map! :map evil-normal-state-map
:desc "Move to next visual line" :desc "Move to next visual line"
"j" 'evil-next-line "j" 'evil-next-visual-line
:desc "Move to previous visual line" :desc "Move to previous visual line"
"k" 'evil-previous-line) "k" 'evil-previous-visual-line)
;; Theme and font ;; Theme and font
(setq custom-theme-directory "~/.emacs.d/themes") (setq custom-theme-directory "~/.emacs.d/themes")
@ -89,8 +89,8 @@ Doom Emacs is traditionally installed by cloning the repository ([[https://githu
(remove-hook 'doom-init-ui-hook '+unicode-init-fonts-h) (remove-hook 'doom-init-ui-hook '+unicode-init-fonts-h)
;; Transparent background ;; Transparent background
(set-frame-parameter nil 'alpha-background 90) (set-frame-parameter nil 'alpha-background 65)
(add-to-list 'default-frame-alist '(alpha-background . 90)) (add-to-list 'default-frame-alist '(alpha-background . 65))
;; Icons in completion buffers ;; Icons in completion buffers
(add-hook 'marginalia-mode-hook #'all-the-icons-completion-marginalia-setup) (add-hook 'marginalia-mode-hook #'all-the-icons-completion-marginalia-setup)
@ -125,38 +125,63 @@ Doom Emacs is traditionally installed by cloning the repository ([[https://githu
;; Disables custom.el ;; Disables custom.el
(setq custom-file null-device) (setq custom-file null-device)
;; Fancy splash image ;; Emacs dashboard
(setq fancy-splash-image "~/.emacs.d/dashboard-logo.png") (require 'all-the-icons)
(require 'dashboard)
(setq +doom-dashboard-menu-sections (setq initial-buffer-choice (lambda () (get-buffer-create "*dashboard*")))
'(("Open org roam overview" :icon (setq doom-fallback-buffer-name "*dashboard*")
(all-the-icons-octicon "globe" :face 'doom-dashboard-menu-title) (setq dashboard-banner-logo-title "Welcome to Nix Doom Emacs")
:face (setq dashboard-startup-banner 2)
(:inherit (setq dashboard-icon-type 'all-the-icons) ;; use `all-the-icons' package
(doom-dashboard-menu-title bold)) (setq dashboard-set-heading-icons t)
:action org-roam-default-overview) (setq dashboard-set-file-icons t)
("Roam to another db" :icon (setq dashboard-set-navigator t)
(all-the-icons-fileicon "org" :face 'doom-dashboard-menu-title) (setq dashboard-items '((projects . 3)))
:action org-roam-switch-db) (setq dashboard-center-content t)
("Open agenda" :icon (setq dashboard-footer-messages '("Here to do customizing, or actual work?"
(all-the-icons-octicon "calendar" :face 'doom-dashboard-menu-title) "M-x insert-inspiring-message"
:when "My software never has bugs. It just develops random features."
(fboundp 'org-agenda) "Give a man a program and you will frustrate him for a day.
:action org-agenda-list Teach him how to program and you will frustrate him for a lifetime."
:key "SPC o A a") "Dad, what are clouds made of? Linux servers, mostly."
("Open private configuration" :icon "There is no place like ~"
(all-the-icons-octicon "tools" :face 'doom-dashboard-menu-title) "~ sweet ~"
:when "sudo chown -R us ./allyourbase"
(file-directory-p doom-user-dir) "Ill tell you a DNS joke but it could take 24 hours for everyone to get it."
:action doom/open-private-config) "I'd tell you a UDP joke, but you might not get it."
("Open documentation" :icon "I'll tell you a TCP joke. Do you want to hear it?"))
(all-the-icons-octicon "book" :face 'doom-dashboard-menu-title) (setq dashboard-navigator-buttons
:action doom/help) `(;; line1
("Quit emacs" :icon (
(all-the-icons-faicon "level-down" :face 'doom-dashboard-menu-title) (,(all-the-icons-octicon "mark-github" :height 1.1 :v-adjust 0.0)
:action save-buffers-kill-terminal) "GitHub" "" (lambda (&rest _) (browse-url "ext+container:name=Tech&url=https://github.com/librephoenix")))
(,(all-the-icons-faicon "gitlab" :height 1.1 :v-adjust 0.0)
"GitLab" "" (lambda (&rest _) (browse-url "ext+container:name=Tech&url=https://gitlab.com/librephoenix")))
(,(all-the-icons-faicon "coffee" :height 1.1 :v-adjust 0.0)
"Gitea" "" (lambda (&rest _) (browse-url my-gitea-domain)))
) )
) ;; line 2
(
(,(all-the-icons-octicon "globe" :height 1.1 :v-adjust 0.0)
"Notes overview" "" (lambda (&rest _) (org-roam-default-overview)))
(,(all-the-icons-fileicon "org" :height 1.1 :v-adjust 0.0)
"Switch roam db" "" (lambda (&rest _) (org-roam-switch-db)))
(,(all-the-icons-octicon "calendar" :height 1.1 :v-adjust 0.0)
"Org roam agenda" "" (lambda (&rest _) (org-agenda-list)))
)
;; line 3
(
(,(all-the-icons-faicon "cogs" :height 1.1 :v-adjust 0.0)
"System config" "" (lambda (&rest _) (projectile-switch-project-by-name "~/.dotfiles" t)))
(,(all-the-icons-material "help" :height 1.1 :v-adjust 0.0)
"Doom documentation" "" (lambda (&rest _) (doom/help)))
)
))
(setq dashboard-footer-icon (all-the-icons-octicon "dashboard"
:height 1.1
:v-adjust -0.05
:face 'font-lock-keyword-face))
(dashboard-setup-startup-hook)
;; Requires for faster loading ;; Requires for faster loading
(require 'org-agenda) (require 'org-agenda)
@ -1293,7 +1318,7 @@ This section is the [[./init.el][init.el]] section, which controls which Doom mo
:ui :ui
;;deft ; notational velocity for Emacs ;;deft ; notational velocity for Emacs
doom ; what makes DOOM look the way it does doom ; what makes DOOM look the way it does
doom-dashboard ; a nifty splash screen for Emacs ;;doom-dashboard ; a nifty splash screen for Emacs
doom-quit ; DOOM quit-message prompts when you quit Emacs doom-quit ; DOOM quit-message prompts when you quit Emacs
(emoji +unicode) ; 🙂 (emoji +unicode) ; 🙂
hl-todo ; highlight TODO/FIXME/NOTE/DEPRECATED/HACK/REVIEW hl-todo ; highlight TODO/FIXME/NOTE/DEPRECATED/HACK/REVIEW
@ -1474,6 +1499,7 @@ Any git package can be configured for a particular commit or branch:
- =(unpin! pinned-package another-pinned-package)= to get bleeding edge instead of Doom's stability - =(unpin! pinned-package another-pinned-package)= to get bleeding edge instead of Doom's stability
#+BEGIN_SRC emacs-lisp :tangle packages.el #+BEGIN_SRC emacs-lisp :tangle packages.el
(package! dashboard)
(package! direnv) (package! direnv)
(package! org-modern) (package! org-modern)
(package! org-super-agenda) (package! org-super-agenda)

View file

@ -13,7 +13,7 @@
:ui :ui
;;deft ; notational velocity for Emacs ;;deft ; notational velocity for Emacs
doom ; what makes DOOM look the way it does doom ; what makes DOOM look the way it does
doom-dashboard ; a nifty splash screen for Emacs ;;doom-dashboard ; a nifty splash screen for Emacs
doom-quit ; DOOM quit-message prompts when you quit Emacs doom-quit ; DOOM quit-message prompts when you quit Emacs
(emoji +unicode) ; 🙂 (emoji +unicode) ; 🙂
hl-todo ; highlight TODO/FIXME/NOTE/DEPRECATED/HACK/REVIEW hl-todo ; highlight TODO/FIXME/NOTE/DEPRECATED/HACK/REVIEW

View file

@ -1,3 +1,4 @@
(package! dashboard)
(package! direnv) (package! direnv)
(package! org-modern) (package! org-modern)
(package! org-super-agenda) (package! org-super-agenda)

View file

@ -6,6 +6,6 @@
]; ];
programs.alacritty.enable = true; programs.alacritty.enable = true;
programs.alacritty.settings = { programs.alacritty.settings = {
window.opacity = lib.mkForce 0.9; window.opacity = lib.mkForce 0.65;
}; };
} }

View file

@ -6,6 +6,6 @@
]; ];
programs.kitty.enable = true; programs.kitty.enable = true;
programs.kitty.settings = { programs.kitty.settings = {
background_opacity = lib.mkForce "0.9"; background_opacity = lib.mkForce "0.65";
}; };
} }

View file

@ -424,7 +424,7 @@
window#waybar { window#waybar {
background-color: #'' + config.lib.stylix.colors.base00 + ''; background-color: #'' + config.lib.stylix.colors.base00 + '';
opacity: 0.87; opacity: 0.94;
border-radius: 8px; border-radius: 8px;
color: #'' + config.lib.stylix.colors.base07 + ''; color: #'' + config.lib.stylix.colors.base07 + '';
transition-property: background-color; transition-property: background-color;
@ -433,7 +433,7 @@
window > box { window > box {
border-radius: 8px; border-radius: 8px;
opacity: 0.87; opacity: 0.94;
} }
window#waybar.hidden { window#waybar.hidden {