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

adding nyxt tricks

Browse source
This commit is contained in:
Chris Cochrun 2021-09-25 07:00:55 -05:00
parent 03525d6c78
commit ede21c8cd9
2 changed files with 93 additions and 59 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

25
README.org
View file

@ -105,8 +105,8 @@ In order to have this config work on both my desktop with regular joe-schmoe mon
"Set the frame to be transparent on Wayland compositors"
(if (string-search "wayland" x-display-name)
'((set-frame-parameter (selected-frame) 'alpha '(100 . 100))
(set-frame-parameter (selected-frame) 'undecorated t)
(add-to-list 'default-frame-alist '(undecorated . t))
(set-frame-parameter (selected-frame) 'undecorated nil)
(add-to-list 'default-frame-alist '(undecorated . nil))
(add-to-list 'default-frame-alist '(alpha . (100 . 100)))
(add-to-list 'initial-frame-alist '(alpha . (100 . 100)))
(add-to-list 'initial-frame-alist '(undecorated . t)))))
@ -1611,7 +1611,8 @@ If on a:
:query "mime:image/*"
:key 112)))
(setq mu4e-mu-binary "/usr/bin/mu")
(setq mu4e-mu-binary "/usr/bin/mu"
mu4e-view-prefer-html nil)
(setq mu4e-use-fancy-chars t
mu4e-headers-draft-mark '("D" . "")
mu4e-headers-flagged-mark '("F" . "")
@ -1640,8 +1641,17 @@ If on a:
(toggle-truncate-lines +1)
(display-line-numbers-mode -1))
(defun chris/setup-mu4e-view ()
(display-line-numbers-mode -1)
(setq visual-fill-column-center-text t)
(setq visual-fill-column-width 100)
(visual-fill-column-mode +1))
(remove-hook 'mu4e-main-mode-hook '(display-line-numbers-mode -1))
(add-hook 'mu4e-headers-mode-hook #'chris/setup-mu4e-headers)
(add-hook 'mu4e-view-mode-hook #'chris/setup-mu4e-view)
(mu4e t)
:general
@ -1869,7 +1879,14 @@ Let's add our own eshell prompt. and set the password cache to a significantly h
Using sly makes a lot better common-lisp interaction within emacs.
#+begin_src emacs-lisp
(use-package sly
:mode ("\\.lisp\\'" . sly-mode))
:mode
("\\.lisp\\'" . sly-mode)
("\\.lisp\\'" . lisp-mode)
:config
(defun chris/start-nyxt-repl ()
"Start the repl and sly connection for nyxt"
(interactive)
(sly-connect "localhost" 4006)))
#+end_src
** PDF-Tools

29
init.el
View file

@ -40,8 +40,8 @@
"Set the frame to be transparent on Wayland compositors"
(if (string-search "wayland" x-display-name)
'((set-frame-parameter (selected-frame) 'alpha '(100 . 100))
(set-frame-parameter (selected-frame) 'undecorated t)
(add-to-list 'default-frame-alist '(undecorated . t))
(set-frame-parameter (selected-frame) 'undecorated nil)
(add-to-list 'default-frame-alist '(undecorated . nil))
(add-to-list 'default-frame-alist '(alpha . (100 . 100)))
(add-to-list 'initial-frame-alist '(alpha . (100 . 100)))
(add-to-list 'initial-frame-alist '(undecorated . t)))))
@ -69,7 +69,7 @@
;; ...especially on linux
(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
split-height-threshold nil)
@ -103,7 +103,7 @@
(straight-use-package 'use-package)
(setq use-package-verbose t)
(use-package command-log-mode
(use-package command-log-mode
:commands command-log-mode)
(use-package all-the-icons)
@ -1175,7 +1175,8 @@ If on a:
:query "mime:image/*"
:key 112)))
(setq mu4e-mu-binary "/usr/bin/mu")
(setq mu4e-mu-binary "/usr/bin/mu"
mu4e-view-prefer-html nil)
(setq mu4e-use-fancy-chars t
mu4e-headers-draft-mark '("D" . "")
mu4e-headers-flagged-mark '("F" . "")
@ -1204,8 +1205,17 @@ If on a:
(toggle-truncate-lines +1)
(display-line-numbers-mode -1))
(defun chris/setup-mu4e-view ()
(display-line-numbers-mode -1)
(setq visual-fill-column-center-text t)
(setq visual-fill-column-width 100)
(visual-fill-column-mode +1))
(remove-hook 'mu4e-main-mode-hook '(display-line-numbers-mode -1))
(add-hook 'mu4e-headers-mode-hook #'chris/setup-mu4e-headers)
(add-hook 'mu4e-view-mode-hook #'chris/setup-mu4e-view)
(mu4e t)
:general
@ -1402,7 +1412,14 @@ If on a:
"C-d" 'kill-buffer-and-window))
(use-package sly
:mode ("\\.lisp\\'" . sly-mode))
:mode
("\\.lisp\\'" . sly-mode)
("\\.lisp\\'" . lisp-mode)
:config
(defun chris/start-nyxt-repl ()
"Start the repl and sly connection for nyxt"
(interactive)
(sly-connect "localhost" 4006)))
(use-package pdf-tools
:straight (:host github