mirror of
https://github.com/stumpwm/stumpwm.git
synced 2026-09-10 07:26:20 -04:00
0eebb3fa52
("gravity"): new command
* stumpwm.sbcl: use keyword symbols
* primitives.lisp (+default-window-background-color+): new constant
(*normal-gravity*): new global
(*maxsize-gravity*): likewise
(*transient-gravity*): likewise
(window): add gravity slot
(screen): add win-bg-color slot
* input.lisp (input-find-completions): handle alist completion lists
(input-complete): likewise
* core.lisp (update-window-border): clear the parent window with
its background color
(update-window-gravity): new function
(set-normal-gravity): likewise
(set-maxsize-gravity): likewise
(set-transient-gravity): likewise
(gravity-for-window): likewise
(geometry-hints): work with window gravity
(maximize-window): bind extra geometry-hints ret values
(set-win-bg-color): new function
(get-win-bg-color-pixel): likewise
(get-gravity-coords): likewise
(update-colors-for-screen): update the window parent's background
color
(init-screen): init screen-win-bg-color
39 lines
1.3 KiB
Common Lisp
Executable file
39 lines
1.3 KiB
Common Lisp
Executable file
#!/usr/bin/env sbcl
|
|
|
|
;; Here's a script that runs stumpwm using sbcl. You can put it in
|
|
;; your path and run it as a regular program. Make sure you have a
|
|
;; symlink of stumpwm.asd in your ~/.sbcl/systems/ directory or
|
|
;; another directory in asdf:*central-registry* so asdf can find
|
|
;; stumpwm.
|
|
;;
|
|
;; You'll also need to put this in your ~/.sbclrc file so sbcl handles
|
|
;; as a script properly:
|
|
;;
|
|
;; ;;; If the first user-processable command-line argument is a filename,
|
|
;; ;;; disable the debugger, load the file handling shebang-line and quit.
|
|
;; (let ((script (and (second *posix-argv*)
|
|
;; (probe-file (second *posix-argv*)))))
|
|
;; (when script
|
|
;; ;; Handle shebang-line
|
|
;; (set-dispatch-macro-character #\# #\!
|
|
;; (lambda (stream char arg)
|
|
;; (declare (ignore char arg))
|
|
;; (read-line stream)))
|
|
;; ;; Disable debugger
|
|
;; (setf *invoke-debugger-hook*
|
|
;; (lambda (condition hook)
|
|
;; (declare (ignore hook))
|
|
;; ;; Uncomment to get backtraces on errors
|
|
;; ;; (sb-debug:backtrace 20)
|
|
;; (format *error-output* "Error: ~A~%" condition)
|
|
;; (quit)))
|
|
;; (load script)
|
|
;; (quit)))
|
|
;;
|
|
;; If you want stumpwm to load on a specific display use the DISPLAY
|
|
;; environment variable.
|
|
|
|
(require :asdf)
|
|
(require :stumpwm)
|
|
(stumpwm:stumpwm)
|