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

adding emms shuffle and wayland environment stuff

Browse source
This commit is contained in:
Chris Cochrun 2024-12-10 09:29:59 -06:00
parent 735e36d16a
commit f1d0f9d77b
2 changed files with 22 additions and 12 deletions
Download patch file Download diff file Expand all files Collapse all files

25
init.el
View file

@ -224,11 +224,7 @@
(when (boundp 'native-comp-eln-load-path)
(add-to-list 'native-comp-eln-load-path (expand-file-name "native-lisp/" store-path)))))
(let ((desktop (getenv "XDG_CURRENT_DESKTOP")))
(setenv "WAYLAND_DISPLAY" (if (or (string= desktop "COSMIC")
(string= desktop "Hyprland"))
"wayland-1"
"wayland-0")))
(setenv "WAYLAND_DISPLAY" "wayland-1")
(executable-find "ssh")
(setq ispell-program-name "hunspell"
@ -3507,7 +3503,7 @@ targets."
"-o sides=two-sided-long-edge"
""))))
(message "printing %s copies." copies)
(async-shell-command (format "lpr %s %s" (string-join pdf-misc-print-program-args " ") (buffer-file-name)))))
(async-shell-command (format "lpr %s '%s'" (string-join pdf-misc-print-program-args " ") (buffer-file-name)))))
(custom-set-variables '(pdf-misc-print-program-executable "lpr")
'(pdf-misc-print-program-args (quote ("-o media=Letter" "-o fit-to-page" "-o sides=two-sided-long-edge"))))
@ -3951,6 +3947,7 @@ interfere with the default `bongo-playlist-buffer'."
"mr" 'emms-toggle-repeat-track
"mn" 'emms-next
"mb" 'emms-previous
"ms" 'emms-shuffle
"m]" 'emms-seek-forward
"m[" 'emms-seek-backward)
(general-def 'normal emms-playlist-mode-map
@ -4144,3 +4141,19 @@ interfere with the default `bongo-playlist-buffer'."
gcmh-verbose nil))
(setq warning-suppress-types '((comp)))
(custom-set-variables
;; custom-set-variables was added by Custom.
;; If you edit it by hand, you could mess it up, so be careful.
;; Your init file should contain only one such instance.
;; If there is more than one, they won't work right.
'(pdf-misc-print-program-args
'("-o media=Letter" "-o fit-to-page" "-o sides=two-sided-long-edge"))
'(pdf-misc-print-program-executable "lpr")
'(safe-local-variable-values '((rustic-rustfmt-args . "--edition 2021"))))
(custom-set-faces
;; custom-set-faces was added by Custom.
;; If you edit it by hand, you could mess it up, so be careful.
;; Your init file should contain only one such instance.
;; If there is more than one, they won't work right.
'(markdown-code-face ((t (:inherit org-block))))
'(org-modern-tag ((t :background "#9aedfe" :foreground "#282a36"))))