Merge branch 'main' of https://github.com/duckwork/.emacs.d

2 files changed, 10 insertions, 9 deletions

@@ -26,7 +26,8 @@
 (require 'acdw-frame)
 
 ;;; Frame settings
-(setq default-frame-alist               
+(setq initial-frame-alist '((fullscreen . maximized))
+      default-frame-alist               
       `((tool-bar-lines . 0)            
         (menu-bar-lines . 0)            
         (vertical-scroll-bars . nil)          
@@ -63,15 +64,14 @@ say, `tool-bar-mode' once to toggle the tool bar back on."
           (defun after-make-frame@setup (&rest args)
             (ignore args)
             (let ((fixed-pitch-faces
-                   '((:font "Fantasque Sans Mono" :height 110)
+                   '((:font "Fantasque Sans Mono" :height 115)
                      (:font "Go Mono" :height 110)
                      (:font "DejaVu Sans Mono" :height 110)
                      (:font "monospace" :height 100)))
                   (variable-pitch-faces
                    '((:font "Inter" :height 120)
                      (:font "Go" :height 120)
-                     (:font "sans-serif"
-                            :height 100))))
+                     (:font "sans-serif" :height 100))))
               (acdw/set-first-face-attribute 'default
                                              fixed-pitch-faces)
               (acdw/set-first-face-attribute 'fixed-pitch
@@ -393,11 +393,6 @@
            "l" #'downcase-dwim
            "s" #'spongebob-case-dwim))
   
-  (add-hook 'after-make-frame-functions
-            (defun after-make-frame@maximize (frame)
-              (unless (bound-and-true-p edit-server-frame-p)
-                (toggle-frame-maximized frame))))
-
   (column-number-mode +1))
 
 (setup encoding
@@ -1420,6 +1415,12 @@ specific to most general, they are these:
   ;; (t (apply fn url args))))
   )
 
+(setup (:straight-if emacs-everywhere
+                     (and (executable-find "xclip")
+                          (executable-find "xdotool")
+                          (executable-find "xprop")
+                          (executable-find "xwininfo"))))
+
 (setup (:straight (embark               ; gotta git that fresh fresh
                    :host github
                    :repo "oantolin/embark"))