pestctrl/emacs-config
1
0
Fork 0
mirror of https://github.com/pestctrl/emacs-config.git synced 2026-02-16 16:24:18 +00:00
Code Issues Projects Releases Packages Wiki Activity

Don't load my ugly hack if @cpitclaudel's patch is present

Browse source
This commit is contained in:
Benson Chu 2020-05-15 22:16:38 -05:00
parent bd87473b86
commit 2a181b47eb
2 changed files with 42 additions and 38 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

49
config-min.org
View file

@ -49,35 +49,36 @@
;; This is a new-frame hack. Don't copy faces for floating windows
(require 'face-copier)
(def-face-copier1 my/frame-dont-copy-faces (sym)
(let ((name (symbol-name sym)))
(string-match-p "^doom-.*" name))
mode-line
mode-line-inactive
variable-pitch
diredp-file-suffix
font-lock-type-face
vterm-color-default)
(unless (eq 'hash-table (type-of face-new-frame-defaults))
(def-face-copier1 my/frame-dont-copy-faces (sym)
(let ((name (symbol-name sym)))
(string-match-p "^doom-.*" name))
mode-line
mode-line-inactive
variable-pitch
diredp-file-suffix
font-lock-type-face
vterm-color-default)
(defun my/exwm-floating--advise-make-frame (orig id)
(override1-face my/frame-dont-copy-faces
(funcall orig id)))
(defun my/exwm-floating--advise-make-frame (orig id)
(override1-face my/frame-dont-copy-faces
(funcall orig id)))
(advice-add #'exwm-floating--set-floating
:around
#'my/exwm-floating--advise-make-frame)
(advice-add #'exwm-floating--set-floating
:around
#'my/exwm-floating--advise-make-frame)
(def-face-copier x-show-tip-faces (sym)
nil
tooltip)
(def-face-copier x-show-tip-faces (sym)
nil
tooltip)
(defun dont-copy-faces-for-x-show-tip (orig &rest args)
(override1-face x-show-tip-faces
(apply orig args)))
(defun dont-copy-faces-for-x-show-tip (orig &rest args)
(override1-face x-show-tip-faces
(apply orig args)))
(advice-add #'x-show-tip
:around
#'dont-copy-faces-for-x-show-tip)
(advice-add #'x-show-tip
:around
#'dont-copy-faces-for-x-show-tip))
;; Actually launch programs
(require 'exwm-launch-program)

31
config-org.org
View file

@ -592,21 +592,24 @@
#+end_src
* org-noter
#+begin_src emacs-lisp
(use-package org-noter)
(when (featurep 'exwm)
(use-package org-noter
:config
(unless (eq 'hash-table (type-of face-new-frame-defaults))
(def-face-copier x-show-tip-faces (sym)
nil
tooltip)
(defun dont-copy-faces-for-x-show-tip (orig &rest args)
(override1-face x-show-tip-faces
(apply orig args)))
(advice-add #'x-show-tip
:around
#'dont-copy-faces-for-x-show-tip)))
(use-package exwm
:config
(setq org-noter-always-create-frame nil))
(def-face-copier x-show-tip-faces (sym)
nil
tooltip)
(defun dont-copy-faces-for-x-show-tip (orig &rest args)
(override1-face x-show-tip-faces
(apply orig args)))
(advice-add #'x-show-tip
:around
#'dont-copy-faces-for-x-show-tip)
#+end_src
* turn into tickle
#+begin_src emacs-lisp