Added victor mono, maximize frame insteaf fullscreen frame, themes

1 files changed, 53 insertions, 33 deletions

diff --git a/init-el.org b/init-el.org
index 21d8a47..1bc34ba 100644
--- a/init-el.org
+++ b/init-el.org
@@ -383,8 +383,21 @@ New in emacs 28, native compilation can be enabled:
 <<ui-windows-and-perspectives>>
 <<ui-themes>>
 <<ui-org-mode-tweaks>>
+<<ui-fonts>>
 #+end_src
 
+** Fonts
+#+name: ui-fonts
+#+begin_src elisp :noweb no-export
+  (add-to-list 'default-frame-alist
+               '(font . "Victor Mono-10"))
+
+
+#+end_src
+
+#+RESULTS: ui-fonts
+: ((font . Victor Mono-10) (vertical-scroll-bars))
+
 ** UI Chrome
 
  I like for my emacs to have as little UI chrome as possible, and to
@@ -394,24 +407,25 @@ New in emacs 28, native compilation can be enabled:
 
  #+name: ui-chrome-config
  #+begin_src elisp :results none
- ;; UI Chrome
-
- (blink-cursor-mode 0)
- (setq-default cursor-type 'box)
- (menu-bar-mode 0)
- (tool-bar-mode 0)
- (scroll-bar-mode -1)
- (toggle-frame-fullscreen)
-
-
- (defun transparency (value)
-   "Sets the transparency of the frame window. 0=transparent/100=opaque"
-   (interactive (let* ((prompt (concat "Transparency Value 0 - 100 opaque ["
-                                       (prin1-to-string (frame-parameter (selected-frame) 'alpha))
-                                       "]:"))
-                       (input (read-number prompt)))
-                  (list input)))
-   (set-frame-parameter (selected-frame) 'alpha value))
+  ;; UI Chrome
+
+  (blink-cursor-mode 0)
+  (setq-default cursor-type 'box)
+  (menu-bar-mode 0)
+  (tool-bar-mode 0)
+  (scroll-bar-mode -1)
+ (toggle-frame-maximized)
+ ; (toggle-frame-fullscreen)
+
+
+  (defun transparency (value)
+    "Sets the transparency of the frame window. 0=transparent/100=opaque"
+    (interactive (let* ((prompt (concat "Transparency Value 0 - 100 opaque ["
+                                        (prin1-to-string (frame-parameter (selected-frame) 'alpha))
+                                        "]:"))
+                        (input (read-number prompt)))
+                   (list input)))
+    (set-frame-parameter (selected-frame) 'alpha value))
 
  #+end_src
 
@@ -584,19 +598,20 @@ New in emacs 28, native compilation can be enabled:
 ;(load "~/.emacs.d/shanty-themes.el")
 
 (setq my-installed-themes
-      '(dracula-theme
-        kaolin-themes
-        modus-themes
+      '(zerodark-theme
+        zenburn-theme
+        starlit-theme
+        yoshi-theme
+        spacegray-theme
+        solo-jazz-theme 
+        stimmung-themes
+        uwu-theme
         shanty-themes))
 
 (dolist (package my-installed-themes)
   (when (not (package-installed-p package)) 
     (package-install package)))
 
-;; starting theme 
-;;(load-theme 'modus-vivendi t)
-
-;(load-theme 'lab-dark t)
 #+end_src
 
 *** Theme Switcher 
@@ -605,17 +620,22 @@ New in emacs 28, native compilation can be enabled:
 #+begin_src elisp :results none
 
 (setq *my-themes*
-      '(modus-operandi
-        shanty-themes-light
-        kaolin-valley-light
-        kaolin-breeze
-        kaolin-temple
-        kaolin-shiva 
-        dracula
+      '(stimmung-themes-light
+        solo-jazz
+        modus-operandi
+        leuven
+        dichromacy
+        zenburn
+        spacegray
+        zerodark
+        sweet
         shanty-themes-dark
+        uwu
+        starlit
+        yoshi
         modus-vivendi))
 
-(load-theme 'modus-vivendi t)
+(load-theme 'dichromacy t)
 
 (defun my-theme-string ()
   (if (car custom-enabled-themes)