sako/nixos
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

aaaaaaa

Browse source
This commit is contained in:
Sakooooo 2024-11-24 09:47:00 +04:00
parent 4e4d3dfb5d
commit 508f0f72a8
Signed by: sako
GPG key ID: FE52FD65B76E4751
1 changed files with 18 additions and 15 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

33
config/emacs/emacs.org
View file

@ -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