From 2ff0b1593ae8d372b696ecb3640b0627b863a20f Mon Sep 17 00:00:00 2001 From: jao Date: Wed, 9 Feb 2022 05:34:46 +0000 Subject: sway bits --- init.org | 25 ++++++++++++++++++++----- 1 file changed, 20 insertions(+), 5 deletions(-) (limited to 'init.org') diff --git a/init.org b/init.org index 9333074..601942f 100644 --- a/init.org +++ b/init.org @@ -153,6 +153,10 @@ ,(car args) "* jao-exec - console *" (string-join (append (list ,@args) other-args) " ")))) + + (defun jao-exec-running-p (pr) + (not (string-blank-p (shell-command-to-string (concat "pidof " pr))))) + #+end_src *** App launcher #+begin_src emacs-lisp @@ -162,9 +166,6 @@ #+end_src *** Brightness control #+begin_src emacs-lisp - (when (eq 'pgtk window-system) - (defalias 'x-change-window-property #'ignore)) - (jao-def-exec jao-bright-set-up "brightnessctl" "-q" "s" "5%+") (jao-def-exec jao-bright-set-down "brightnessctl" "-q" "s" "5%-") @@ -523,11 +524,22 @@ (make-symbolic-link f "~/.wallpaper.sway" t)) (defun jao-sway-run-or-focus (cmd &optional ws) - (if (not (string-blank-p (shell-command-to-string (format "pidof %s" cmd)))) + (if (jao-exec-running-p "firefox") (jao-swaymsg (format "[app_id=%s] focus" cmd)) (jao-swaymsg (format "workspace %s" (or ws 2))) (start-process-shell-command cmd nil cmd))) + (defun jao-sway-run-or-focus-deezer () + (interactive) + (if (jao-exec-running-p "deezer-desktop") + (jao-swaymsg "[app_id=Deezer] scratchpad show") + (start-process-shell-command "deezer" nil "deezer &") + (jao-sway-run-or-focus-deezer))) + + (defun jao-sway-run-or-focus-firefox () + (interactive) + (jao-sway-run-or-focus "firefox")) + (defun jao-sway-enable () (setq jao-browse-doc-use-emacs-p t) (setq jao-minibuffer-right-margin "") @@ -536,9 +548,12 @@ (jao-set-transparency 85) (jao-themes-setup) (display-time-mode 1) + (global-set-key (kbd "s-f") #'jao-sway-run-or-focus-firefox) (message "Welcome to sway")) - (when jao-sway-enabled (add-hook 'after-init-hook #'jao-sway-enable)) + (when jao-sway-enabled + (defalias 'x-change-window-property #'ignore) + (add-hook 'after-init-hook #'jao-sway-enable)) #+end_src *** wallpaper -- cgit v1.2.3