[Solved] Gnome-Shell and separating programs in the program switcher

Question

Hi,
I would like to treat different instances of Emacs as different programs in Super-Tab program switcher in Gnome-Shell (I run mail and music in different instances).
In the overview they show as different programs via .desktop files.  But with Super-Tab they always collapse into one program (always with the normal Emacs icon).
Any tips on how to tell gnome that different instances of some program is are to be considered different applications?
Here's an example of a desktop file that I use to start a "specialized" Emacs instance.
#!/usr/bin/env xdg-open
[Desktop Entry]
Version=1.0
Name=EMMS
GenericName=Music Player
GenericName[es]=Reproductor de música
Comment=The Emacs Multimedia System.
Exec=emacsclient -s emms -ca '' --eval "(progn (setq x-resource-class \"EMMS\") (emms-smart-browse) )" -F '((title . "EMMS") (icon-type . "/home/rasmus/.local/share/icons/emms.png"))'
Icon=emms
Terminal=false
Type=Application
StartupNotify=true
Categories=AudioVideo;Player;Audio;
Last edited by Pank (2015-05-28 14:35:58)

Answer 1

Thanks.  Now, I'm calling (p-wm_class "EMMS") from my emms.desktop file now.  There's also text under the icon now.  Thanks a lot
Here's the defun:
(defun p-wm_class (&optional new-class)
"Return the WM_CLASS for the current window name.
If NEW-CLASS is a string or list of strings, set a new WM_CLASS.
If NEW-CLASS is non-nil remove Emacs from WM_CLASS and
WM_CLASS has more than one value."
(let ((old-class
(with-temp-buffer
(save-excursion
(call-process-shell-command
(format "xprop -name %s -f WM_CLASS 8s"
x-resource-class)
nil t))
(when (search-forward "WM_CLASS" nil t)
(search-forward "=" (line-end-position))
(split-string-and-unquote
(buffer-substring (point)
(line-end-position))
"[ \t,]"))))
;; anyway don't know how to set more than one value...
(new-class-string (cond ((and (listp new-class)
(cl-every 'stringp new-class))
(mapconcat 'identity
new-class ", "))
((stringp new-class)
new-class))))
(or
(cond ((stringp new-class)
(call-process-shell-command
(format "xprop -name %s -f WM_CLASS 8s -set WM_CLASS \"%s\""
x-resource-class
new-class))
new-class)
((and new-class (member-ignore-case "Emacs" old-class))
(call-process-shell-command
(format "xprop -name %s -f WM_CLASS 8s -set WM_CLASS \"%s\""
x-resource-class
(car (delete "emacs" (delete "Emacs" old-class)))))
(car (delete "emacs" (delete "Emacs" old-class)))))
old-class)))