load some stuff only in graphical mode
This commit is contained in:
parent
087e438558
commit
bb64dc4e74
1 changed files with 31 additions and 17 deletions
28
init.el
28
init.el
|
@ -65,12 +65,6 @@
|
||||||
;; X is dead
|
;; X is dead
|
||||||
(setq inhibit-x-resources t)
|
(setq inhibit-x-resources t)
|
||||||
|
|
||||||
;; use modern pdf-tools
|
|
||||||
(if (window-system)
|
|
||||||
(progn
|
|
||||||
(straight-use-package 'pdf-tools)
|
|
||||||
(pdf-loader-install)))
|
|
||||||
|
|
||||||
(straight-use-package 'nyan-mode)
|
(straight-use-package 'nyan-mode)
|
||||||
(nyan-mode 1)
|
(nyan-mode 1)
|
||||||
|
|
||||||
|
@ -101,7 +95,11 @@
|
||||||
(add-hook 'prog-mode-hook #'my-whitespace-hook)
|
(add-hook 'prog-mode-hook #'my-whitespace-hook)
|
||||||
(add-hook 'text-mode-hook #'my-whitespace-hook)
|
(add-hook 'text-mode-hook #'my-whitespace-hook)
|
||||||
|
|
||||||
(use-package modus-themes
|
(defun oxa/graphical-setup ()
|
||||||
|
"Setup bits for non-terminal frames."
|
||||||
|
(if (window-system)
|
||||||
|
(progn
|
||||||
|
(use-package modus-themes
|
||||||
:straight t
|
:straight t
|
||||||
:init
|
:init
|
||||||
(setq modus-themes-italic-constructs t
|
(setq modus-themes-italic-constructs t
|
||||||
|
@ -113,6 +111,22 @@
|
||||||
(modus-themes-load-operandi)
|
(modus-themes-load-operandi)
|
||||||
:bind (:map oxamap ("\\" . modus-themes-toggle)))
|
:bind (:map oxamap ("\\" . modus-themes-toggle)))
|
||||||
|
|
||||||
|
;; use modern pdf-tools
|
||||||
|
(straight-use-package 'pdf-tools)
|
||||||
|
(pdf-loader-install)
|
||||||
|
;; theme pdf automagically
|
||||||
|
(add-hook 'pdf-tools-enabled-hook 'pdf-view-themed-minor-mode))))
|
||||||
|
|
||||||
|
(defun oxa/frame-functions (frame)
|
||||||
|
(with-selected-frame frame
|
||||||
|
(oxa/graphical-setup)))
|
||||||
|
|
||||||
|
;; for stand-alone emacs
|
||||||
|
(oxa/graphical-setup)
|
||||||
|
;; for emacsclient
|
||||||
|
(add-hook 'after-make-frame-functions #'oxa/frame-functions)
|
||||||
|
|
||||||
|
|
||||||
;; let's delete a tab as a whole...
|
;; let's delete a tab as a whole...
|
||||||
(setq backward-delete-char-untabify-method 'nil)
|
(setq backward-delete-char-untabify-method 'nil)
|
||||||
|
|
||||||
|
|
Loading…
Add table
Add a link
Reference in a new issue