From fbbf2ae96aef5e3926fe670682b465b450edcbc4 Mon Sep 17 00:00:00 2001 From: Bert Burgemeister Date: Wed, 20 Jul 2016 14:57:39 +0200 Subject: [PATCH] Set WM_CLASS to sensible name and class --- fasttrack.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/fasttrack.lisp b/fasttrack.lisp index 89fff88..1b6f458 100644 --- a/fasttrack.lisp +++ b/fasttrack.lisp @@ -239,7 +239,7 @@ followed by a digit. " ,@(mapcar #'ensure-hyphen-before-digit *aggregate-view-columns*))) (defun start-pipeglade () - (let ((pipeglade-args "-i in.fifo -o out.fifo -u fasttrack.ui -b -l log.log")) + (let ((pipeglade-args "-i in.fifo -o out.fifo -u fasttrack.ui -b -l log.log --name fasttrack --class Phoros")) (loop for i in '("./pipeglade" "~/pipeglade/pipeglade" "pipeglade") until (probe-file i) -- 2.11.4.GIT