From 508f0f72a81bcb5e1cb2a8e78817d116a68a22b2 Mon Sep 17 00:00:00 2001 From: Sakooooo <78461130+Sakooooo@users.noreply.github.com> Date: Sun, 24 Nov 2024 09:47:00 +0400 Subject: [PATCH] aaaaaaa --- config/emacs/emacs.org | 33 ++++++++++++++++++--------------- 1 file changed, 18 insertions(+), 15 deletions(-) diff --git a/config/emacs/emacs.org b/config/emacs/emacs.org index 20b21378..a0cd92f5 100644 --- a/config/emacs/emacs.org +++ b/config/emacs/emacs.org @@ -1087,24 +1087,27 @@ the feds are watching (setq elcord-quiet t) (setq elcord-display-elapsed nil) :config - (defun elcord--disable-elcord-if-no-frames (f) - (ignore f) - (when (let ((frames (delete f (visible-frame-list)))) - (or (null frames) - (elcord-mode -1))))) + (elcord-mode)) - (defun elcord--enable-on-frame-created (f) - (elcord-mode +1)) + (defun elcord--disable-elcord-if-no-frames (f) + (declare (ignore f)) + (when (let ((frames (delete f (visible-frame-list)))) + (or (null frames) + (and (null (cdr frames)) + (eq (car frames) terminal-frame)))) + (elcord-mode -1) + (add-hook 'after-make-frame-functions 'elcord--enable-on-frame-created))) - (add-hook 'after-make-frame-functions 'elcord--enable-on-frame-created) + (defun elcord--enable-on-frame-created (f) + (declare (ignore f)) + (elcord-mode +1)) - (defun sakomacs/elcord-mode-hook () - (if elcord-mode - (add-hook 'delete-frame-functions 'elcord--disable-elcord-if-no-frames) - (remove-hook 'delete-frame-functions 'elcord--disable-elcord-if-no-frames))) - (elcord-mode) - (add-hook 'elcord-mode-hook 'sakomacs/elcord-mode-hook) - ) + (defun sakomacs/elcord-mode-hook () + (if elcord-mode + (add-hook 'delete-frame-functions 'elcord--disable-elcord-if-no-frames) + (remove-hook 'delete-frame-functions 'elcord--disable-elcord-if-no-frames))) + + (add-hook 'elcord-mode-hook 'sakomacs/elcord-mode-hook) #+end_src ** Telegram does NOT WORK ON WINDOWS