chris/emacs
1
0
Fork 0
Code Issues Pull requests Actions Packages Projects Releases Wiki Activity

Some changes for wayland

Browse source
This commit is contained in:
Chris Cochrun 2021-08-16 06:15:10 -05:00
parent 178638f314
commit 043d6b41cb
2 changed files with 74 additions and 66 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

20
README.org
View file

@ -102,9 +102,11 @@ In order to have this config work on both my desktop with regular joe-schmoe mon
(defun chris/set-transparency () (defun chris/set-transparency ()
"Set the frame to be transparent on Wayland compositors" "Set the frame to be transparent on Wayland compositors"
(if (string= x-display-name "wayland-0") (if (string-search "wayland" x-display-name)
((set-frame-parameter (selected-frame) 'alpha '(90 . 90)) (set-frame-parameter (selected-frame) 'alpha '(100 . 100))
(add-to-list 'default-frame-alist '(alpha . (90 . 90)))))) (set-frame-parameter (selected-frame) 'undecorated t)
(add-to-list 'default-frame-alist '(undecorated . t))
(add-to-list 'default-frame-alist '(alpha . (100 . 100)))))
(if (daemonp) (if (daemonp)
(add-hook 'after-make-frame-functions (add-hook 'after-make-frame-functions
@ -112,8 +114,7 @@ In order to have this config work on both my desktop with regular joe-schmoe mon
(with-selected-frame frame (with-selected-frame frame
(chris/set-font-faces) (chris/set-font-faces)
(chris/set-transparency))) (chris/set-transparency)))
(chris/set-font-faces)) (chris/set-font-faces)))
(chris/set-transparency))
#+end_src #+end_src
Then let's make sure line-numbers are relative and on. And let's turn on visual-line-mode globally. Then let's make sure line-numbers are relative and on. And let's turn on visual-line-mode globally.
@ -634,7 +635,7 @@ Marginalia makes for some great decoration to our minibuffer completion items. W
:custom :custom
(company-dabbrev-other-buffers t) (company-dabbrev-other-buffers t)
(company-minimum-prefix-length 1) (company-minimum-prefix-length 1)
(company-idle-delay 0.2) (company-idle-delay 0.1)
:general :general
(general-def '(normal insert) company-active-map (general-def '(normal insert) company-active-map
"TAB" 'company-complete-selection "TAB" 'company-complete-selection
@ -787,7 +788,7 @@ LSP is useful...
(use-package lsp-ui (use-package lsp-ui
:hook (lsp-mode . lsp-ui-mode) :hook (lsp-mode . lsp-ui-mode)
:custom :custom
(lsp-ui-doc-position 'bottom)) (lsp-ui-doc-position 'top))
(use-package lsp-treemacs (use-package lsp-treemacs
:after lsp) :after lsp)
@ -905,7 +906,10 @@ I may get into flutter development over using felgo..... but i'm not happy about
(use-package lsp-dart) (use-package lsp-dart)
(use-package flutter (use-package flutter
:after dart) :after dart
:general
(chris/leader-keys dart-mode-map
"rf" 'flutter-run-or-hot-reload))
(use-package hover (use-package hover
:after dart) :after dart)
#+end_src #+end_src

24
init.el
View file

@ -38,9 +38,11 @@
(defun chris/set-transparency () (defun chris/set-transparency ()
"Set the frame to be transparent on Wayland compositors" "Set the frame to be transparent on Wayland compositors"
(if (string= x-display-name "wayland-0") (if (string-search "wayland" x-display-name)
((set-frame-parameter (selected-frame) 'alpha '(90 . 90)) (set-frame-parameter (selected-frame) 'alpha '(100 . 100))
(add-to-list 'default-frame-alist '(alpha . (90 . 90)))))) (set-frame-parameter (selected-frame) 'undecorated t)
(add-to-list 'default-frame-alist '(undecorated . t))
(add-to-list 'default-frame-alist '(alpha . (100 . 100)))))
(if (daemonp) (if (daemonp)
(add-hook 'after-make-frame-functions (add-hook 'after-make-frame-functions
@ -48,8 +50,7 @@
(with-selected-frame frame (with-selected-frame frame
(chris/set-font-faces) (chris/set-font-faces)
(chris/set-transparency))) (chris/set-transparency)))
(chris/set-font-faces)) (chris/set-font-faces)))
(chris/set-transparency))
(setq display-line-numbers-type 'relative) (setq display-line-numbers-type 'relative)
(global-display-line-numbers-mode +1) (global-display-line-numbers-mode +1)
@ -65,7 +66,7 @@
;; ...especially on linux ;; ...especially on linux
(setq x-gtk-use-system-tooltips nil) (setq x-gtk-use-system-tooltips nil)
;; Favor vertical splits over horizontal ones. Screens are usually wide. ;; Favor vertical splits over horizontal ones. Screens are usually wide.
(setq split-width-threshold 160 (setq split-width-threshold 160
split-height-threshold nil) split-height-threshold nil)
@ -99,7 +100,7 @@
(straight-use-package 'use-package) (straight-use-package 'use-package)
(setq use-package-verbose t) (setq use-package-verbose t)
(use-package command-log-mode (use-package command-log-mode
:commands command-log-mode) :commands command-log-mode)
(use-package all-the-icons) (use-package all-the-icons)
@ -367,7 +368,7 @@ vertically."
:custom :custom
(company-dabbrev-other-buffers t) (company-dabbrev-other-buffers t)
(company-minimum-prefix-length 1) (company-minimum-prefix-length 1)
(company-idle-delay 0.2) (company-idle-delay 0.1)
:general :general
(general-def '(normal insert) company-active-map (general-def '(normal insert) company-active-map
"TAB" 'company-complete-selection "TAB" 'company-complete-selection
@ -473,7 +474,7 @@ vertically."
(use-package lsp-ui (use-package lsp-ui
:hook (lsp-mode . lsp-ui-mode) :hook (lsp-mode . lsp-ui-mode)
:custom :custom
(lsp-ui-doc-position 'bottom)) (lsp-ui-doc-position 'top))
(use-package lsp-treemacs (use-package lsp-treemacs
:after lsp) :after lsp)
@ -542,7 +543,10 @@ vertically."
(use-package lsp-dart) (use-package lsp-dart)
(use-package flutter (use-package flutter
:after dart) :after dart
:general
(chris/leader-keys dart-mode-map
"rf" 'flutter-run-or-hot-reload))
(use-package hover (use-package hover
:after dart) :after dart)