Accidentally didn't include ports@ in the To: line. Re-sending.

On Wed, 02 Oct 2024 07:12:31 -0400
David Anthony <dma@silentsystems.org> wrote:

> Thank you for the suggestions, misc. 
> 
> xset -dpms did not seem to work
> xset s noblank seems to partially work. Instead of my screen going
> black - it now goes white-greyish
> 
> Nonetheless the screen is now covered and whichever applications I was
> using are no longer visible due to the screen being blanked out Does
> anyone have further suggestions?
>  


Let me just copy-paste the macro I wrote in common lisp for my StumpWM
Config. I think you are looking for a couple things:

Try these:

$ xset s noblank (disables screen blanking)
$ xset s off (disables automatic screen turnoff)
$ xset -dpms (disables automatic screen power saving)

This is the toggle macro system I hacked together in common lisp. IDK
how much lisp you know, so might be useful for reference for CWM? IDK
ymmv.

(defun make-toggle-function (command-pair &optional (inverse nil))
  "Returns a function that toggles between executing the first and
second command in COMMAND-PAIR. If INVERSE is true, the initial state
is considered 'on'. The command is executed in a separate thread."
  (let ((state inverse))  ; Initially 'on' if inverse is true,
otherwise 'off' (lambda ()
      (setf state (not state))
      (let ((command (if state (first command-pair) (second
command-pair)))) (bt:make-thread
         (lambda ()
           (run-shell-command-safely command))
         :name (format nil "Toggle-Thread-~A" command))
        state))))

(defmacro define-toggle-command (name commands inverse description)
  "Defines a StumpWM command that toggles a set of commands and
displays the current state." (let ((commands-var (gensym "COMMANDS-")))
    `(progn
       (defparameter ,commands-var ',commands)
       (let ((toggle-functions (mapcar (lambda (pair)
(make-toggle-function pair ,inverse)) ,commands-var)))
         (defcommand ,name () ()
           ,description
           (let ((new-states (mapcar #'funcall toggle-functions)))
             (message ,(format nil "~a mode: ~~a" (string-capitalize
(symbol-name name))) (if (some #'identity new-states) "Enabled"
"Disabled"))))))))

;;;
;; The commands
;;;

;; toggles
(define-toggle-command toggle-powersave
    (("xset s on" "xset s off")
     ("xset s blank" "xset s noblank")
     ("xset +dpms" "xset -dpms"))
    t
    "Toggle power-saving mode and display the current state.")


Peace-

-- 
-iz (they/them)

> i like to say mundane things, 
> there are too many uninteresting things 
> that go unnoticed.

izder456 (dot) neocities (dot) org