А что делает Super+<n>?

без шуток, ты о чем? =)

                     
(progn
(defun get-icon (buf)
  (if (string= (substring (symbol-name (with-current-buffer buf major-mode)) 0 6)
               "jabber")
      "im-jabber"
    "emacs"))

(mapconcat (quote (lambda (s) (format "%s, %s" s (get-icon s))))
            (remove-if (quote (lambda (name) (string= (substring name 0 1) " ")))
                       (mapcar (quote buffer-name) (buffer-list)))
                       "\n")
)

например так

Попытался починить множественное открытие программы. Делает так: берёт на самом старте список всех окон, и если среди них присутствует окошко с классом «xwinmosaic», то не запускается. Проверьте.

c screenshot чад кутежа на twinview

А попробуй вот теперь, я попытался это починить (на нетбуке, конечно, сложно, но вдруг?)

Можно через файл pid проверять, можно через семафоры. Есть вариант, чтобы приложение проверяло наличие своего окна, запрашивая X-сервер через XGetSelectionOwner(), кто владеет специально заведенным тобой уникальным атомом (хотя уникальность - это всегда большой вопрос). Если таким атомом какое-то окно владеет, то можно дальше не запускаться. Так как программка только для X Window System, то можно рассматривать последний вариант.

Еще можно глянуть в libunique.

Существует какой-то вариант с DBus, но я бы не стал еще сюда DBus приколачивать. :)

Охтэ, нажал Super+<n>, а у меня Emacs поднялся и автоматом remember-mode включил! :)

Еще, кстати, вариант, но только я не знаю точно, как будет работать. Это XGrabKeyboard как только окно фокус ввода получило. А как только теряет, то закрываться автоматом. То есть чтобы никто больше события клавиатуры не получал.

Поведение с XGrabKeyboard не было реализовано, потому что хочется иметь возможность сделать вдруг M-tab, на другой воркспейс переключиться, или, там, например, плеер на паузу хоткеем поставить.
Сейчас, в принципе, мозаика при потере фокуса закрывается, но для скриншота был добавлен ещё один костыль, который мозаику не закрывал, пока пользователь какую-либо клавишу не нажал. Сделано это было по той причине, что awesome в режиме screenshot по какой-то неведомой причине передёргивал фокус окна при запуске, и оно сразу же закрывалось. А так как win вы не отжимали, окно события KeyPressEvent не получало, вот и плодились инстанции. Теперь должно работать нормально, если я ещё каких-нибудь багов не наделал. :)

Я понял, просто иначе этот скрипт разрастается до неудобоваримых размеров. Решил просто оставить как есть и думаю написать небольшую инструкцию как собственно эти get-icon и get-color в емаксе определять.

Перейти-или-открыть к n-ной закрепленной программе. Фишка всяких OS X и новомодных юнити (лично я запилил патч для fluxbox, сочетающий этот подход и традиционный, как-нибудь обнародую на ЛОРе).

Ага, вроде перестал. :) Потестирую.

Ну и да, Ваш К.О. спешит заметить, что профит в безошибочном переключении между n часто используемых программ не глядя. А как с этим обстоит в случае с подходом, предлагаемым топикстартером?

Хорошая программа получилась, спасибо. Правда с дефолтным конфигом awesome она не очень корректно работает — необходимо добавить в rc.lua

c:raise()

client.add_signal("focus", function(c) 

И добавьте пожалуйста в емаксоподобный набор комбинаций «C-g» - как Esc, для закрытия.

не ну с fluxbox конечно молодец, но в stumpwm C-n «is not bound» так что эту мозайку никто не отменял

А как с этим обстоит в случае с подходом, предлагаемым топикстартером?

А тут суть не столько в скоростном переключении, сколько в обозрении, где что вообще находится. Из упомянутых юнити и макоси ведь Expo с введением винсемёрочного win+n не выкинули? Ну и поиск помогает ускориться.

Мне, скажем, пригождается, чтобы быстро посмотреть — сколько там в джаббере сообщений понаписали, не переключаясь туда-сюда. :)

К тому же, программа предоставляет более-менее универсальный интерфейс, так что её можно задействовать не только для переключения окошек, но и для кучи других задач — что здесь в комментариях уже и продемонстрировали.

Не стоит забывать, наконец, что оно не требует даже вмешательства в код WM — чем не плюс? :)

«C-g» - как Esc, для закрытия.

А сделать действительно как Esc (сперва скрывается поиск, если активен, а потом уж закрывается) или чтобы сразу закрывало?

P.S. Емаксовая часть вообще неслабо так уже разрастается. :)

Ты только смотри, а то к утру кто-нибудь из нас уже лишп прикрутит.

Да что-то с каждым фичреквестом желание это сделать возрастает. Но я пока держусь.

В общем, сделал, чтобы C-g действовал, как и Esc сейчас, если не понравится — скажите.

Спасибо. Для awesome может пригодится следующий скрипт:

#! /bin/bash                                            
xwinmosaic && echo 'client.focus:raise()' | awesome-client

просто иначе этот скрипт разрастается до неудобоваримых размеров. Решил просто оставить как есть и думаю написать небольшую инструкцию как собственно эти get-icon и get-color в емаксе определять.

если «оставить как есть» - оставил бы изначальный скрипт :), с get-color оно разрастается не сильнее, чем с твоими добавлениями

Перейти-или-открыть к n-ной закрепленной программе.

n бывают разные, а вот класс и имя окна нет

Мы там немного переделали, теперь цвет бокса для переключения буферов берётся по хешу major-mode этого буфера. Как с классом окна в иксах в общем.

n бывают разные

читаем еще раз:

закрепленной

Да, а кроме расцветки по режиму, оно теперь ещё по этому режиму и искать может заодно.

Что-то на wmfs у меня не заработало. Ни на float, ни в других вариациях. Просто форма. Если на клавиатуре что-то нажимаешь - отображается внизу в окошке, а так - просто растянутая форма, без каких-либо ярлыков/подписей. Параметры не помогли.

Покажите, пожалуйста, вывод команды 'wmctrl -l'.

по последним измениям

1) вынос емаксового кода в отдельный файл слегка усложняет первоначальную настройку - в первых версиях dmenu-шного скрипта я тоже так делал, потом отказался

2) если уж выносишь - выноси всё, из шелла достаточно дергать что-то вроде

emacsclient --eval '(xmosaic-list-buffers)'

ещё

(save-excursion
                 (set-buffer buffer-name)
                 major-mode)
чуть длиннее чем
(with-current-buffer buf major-mode)

во избежание копирования условий в cond, get-color-name и get-icon-name можно объединить и возвращать консом

во избежание копирования условий в cond, get-color-name и get-icon-name можно объединить и возвращать консом

да и вообще, лучше вынести все эти условия в alist

как-нибудь так, например

(setq xwinmosaic-buffers-alist
             '(("jabber" "im-jabber" "#666666")
               ("haskell" "text-x-haskell")))

(defun get-mode-icon-color (mode)
    (let ((icon-color (assoc mode xwinmosaic-modes-alist)))
         (when icon-color (cdr icon-color))))

Весело. Сейчас установил wmfs, запустил — действительно. Однако xwinmosaic_run и переключалки емакса работают. Значит, фильтр окон на каком-то этапе сбоит. Спасибо за багрепорт, буду разбираться.

Вам спасибо! Считаю, очень нужное и полезное дело делаете!

Причину нашёл: wmfs не выставляет окошкам свойство _NET_WM_DESKTOP (номер рабочего стола), а у меня на этот случай фильтр как раз срабатывает (потому что мало ли что там может быть). Я, конечно, фильтр подправлю, но главное, чтобы теперь у кого-нибудь другого что-нибудь не отвалилось. :)

В гите я это исправил, но неплохо было бы написать багрепорт разработчикам wmfs, чтобы они стандарты соблюдали.

Офигенно. Продолжайте в том же духе.

UPD: Зато wmfs выставляет свойство _WMFS_TAG. Нехорошо как-то получается.

Да, все работает, класс, спасибо! Сейчас попробую багрепорт им написать.

на скриншоте гадость

Ну не нравится — не используй, никто же не заставляет.

Ктулху так и не подвинул

А я как-то даже этим и не заморачивался. Стоит себе и стоит, что его двигать. :) Но насколько вспомнил, он как бы по центру картинки находится, если рассматривать ктулху вместе с его тенью.

главный принцип опенсорса — если чего-то нужного тебе нет, просто сделай это сам, верно?

О, это было когда-то. Сейчас если что-то идет «не так», начинается перебор дистров, где это работает из коробки. После чего дистр признается лучшим в мире, до следующего «неразрешимого» косяка :)

в общем, как-то так оно вроде лучше смотрится

(require 'cl)

(defvar xwm-modes-alist   
      '(("jabber" "im-jabber" "#666666")
        ("haskell" "text-x-haskell")
        ("python" "text-x-python")
        ("sh" "application-x-shellscript")
        ("c-mode" "text-x-csrc")
        ("" "emacs")))


(defun get-buffer-mode-str (buffer-name)
  (format "%s" 
          (with-current-buffer buffer-name major-mode)))

(defun get-mode-icon-color (name)
  (cdar (remove-if-not (lambda (ic) 
                         (string-match (car ic) (get-buffer-mode-str name)))
                       xwm-modes-alist)))

(defun valid-buffer-names () 
  (remove-if '(lambda (name) (string= (substring name 0 1) " "))
             (mapcar 'buffer-name (buffer-list))))

(defun xwm-buffers ()
  (mapconcat  '(lambda (s) 
                 (let ((ic-list (get-mode-icon-color s)))
                   (format ", %s,%s,%s,%s"
                           (or (second ic-list) "")
                           (first ic-list)
                           s
                           (get-buffer-mode-str s))))
            (valid-buffer-names)
            "\n"))

Только пространство имен функций лучше сделать xwm- или xwinmosaic- у всех, потому что у этих слишком общеупотребительные названия.

да, согласен

Может, тебе доступ к запушиванию кода дать, чтоб поправил сразу, где надо? :)

я подумаю над данным предложением :)

В общем, добавил.