Add emacs-server-import-environment.el

emacs-server-import-environment.el

@@ -0,0 +1,43 @@
+#!/usr/bin/env -S emacs -Q --script
+;;; -*- lexical-binding: t -*-
+
+(require 'cl-lib)
+(require 'server)
+
+(defun append-to-path (value)
+  "Split VALUE and append to PATH."
+  (let ((to-add (split-string value ":" t nil)))
+    (server-eval-at "server"
+                    `(dolist (file ',to-add)
+                       (add-to-list 'exec-path file)))))
+
+(dolist (var argv)
+  (let ((sep (cl-position ?= var :test #'eql)))
+    (cond
+     ((string-prefix-p "-" var)
+      ;; unset
+      (when (equal var "-PATH")
+        (message "Refusing to unset PATH")
+        (kill-emacs 1))
+      (server-eval-at "server"
+                      `(setenv ,(substring var 1) nil)))
+     (sep
+      (let ((name (substring var 0 sep))
+            (value (substring var (1+ sep))))
+        (if (equal name "PATH")
+            (append-to-path value)
+          ;; append to PATH, not set
+          ;; set to passed value
+          (server-eval-at "server"
+                          `(setenv ,name ,value)))))
+     (t
+      (if (equal var "PATH")
+          ;; copy form and append to path
+          (append-to-path (getenv var))
+        ;; copy from our evnironment
+        (server-eval-at "server"
+                        `(setenv ,var ,(getenv var))))))))
+
+;; Local Variables:
+;; flycheck-disabled-checkers: (emacs-lisp-checkdoc)
+;; End:

emacs-server-set-wayland-display.zsh

@@ -1,12 +0,0 @@
-#!/usr/bin/env zsh
-
-setopt rcquotes
-
-printf '%s' "${WAYLAND_DISPLAY}" |
-    /usr/bin/emacs --batch --insert=/dev/fd/0 \
-                   --eval \
-                   '(let ((wayland-display (buffer-string)))
-                      (require ''server)
-                      (server-eval-at
-                       "server"
-                       `(setenv "WAYLAND_DISPLAY" ,wayland-display)))'

swayidle-lock-screen

@@ -14,12 +14,21 @@ function has-rootful-xwayland-p {
     return 1
 }
 
+function safeeyes-running-p {
+    [[ "$(safeeyes --status)" = Next* ]]
+}
+
 function run {
     # ensure multiple instances do not run
     mkdir -p "${LOCKFILE:h}"
     exec 4<>"${LOCKFILE}"
     flock -n 4 || exit 0
     dunstctl set-paused true
+    let need_restore_safeeyes=0
+    if safeeyes-running-p; then
+        safeeyes --disable
+        need_restore_safeeyes=1
+    fi
     if [[ "${XDG_CURRENT_DESKTOP}" == 'river' ]] && has-rootful-xwayland-p; then
         swaylock ${empty_flag} --color '#000000'
     else
@@ -35,17 +44,16 @@ function run {
             swayidle -w -C /dev/null \
                      timeout 15 "${(q)ENABLE_DISPLAYS} -d ${ignored_args}" \
                      resume "${(q)ENABLE_DISPLAYS} {$ignored_args}" &
-                     # after-resume "${(q)RESET_SAFEEYES}" \
             swayidle_pid="${!}"
         else
             swayidle -w -C /dev/null \
                      timeout 15 "systemctl sleep" &
-                     # after-resume "${(q)RESET_SAFEEYES}" \
             swayidle_pid="${!}"
         fi
         swaylock ${empty_flag} ${img_flags}
         kill "${swayidle_pid}"
     fi
+    (( need_restore_safeeyes )) && safeeyes --enable
     dunstctl set-paused false
     fix_eww
     flock -u 4