Source

xwem / lisp / xwem-appcollect.el

;;; xwem-appcollect.el --- 

;; Copyright (C) 2004 by Free Software Foundation, Inc.

;; Author: Zajcev Evgeny <zevlg@yandex.ru>
;; Created: Fri Oct 29 04:35:18 MSD 2004
;; Keywords: xwem
;; X-CVS: $Id$

;; This file is part of XWEM.

;; XWEM is free software; you can redistribute it and/or modify it
;; under the terms of the GNU General Public License as published by
;; the Free Software Foundation; either version 2, or (at your option)
;; any later version.

;; XWEM is distributed in the hope that it will be useful, but WITHOUT
;; ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
;; or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public
;; License for more details.

;; You should have received a copy of the GNU General Public License
;; along with XEmacs; see the file COPYING.  If not, write to the Free
;; Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
;; 02111-1307, USA.

;;; Synched up with: Not in FSF

;;; Commentary:

;; Helpfull util to create `xwem-applications-alist'.
;; Usage:
;; 
;;     (xwem-appcollect '("xterm" "mozilla"))

;;     (xwem-appcollect '("xterm" "mozilla") '(name class) 'or)

;;     (xwem-appcollect '("xterm" "mozilla") '(command) 'or)

;;; Code:

(require 'xwem-load)
(require 'xwem-manage)
(require 'xwem-launcher)

(define-xwem-method manage appcollect (cl)
  "Manage method when collecting info about applications."
  (declare (special xwem-app-collection))
  (declare (special xwem-app-collect-wait))

  (let ((app-name (xwem-cl-get-prop cl 'xwem-appcollect-app-name))
        (op (xwem-cl-get-prop cl 'xwem-appcollect-op))
        (params (xwem-cl-get-prop cl 'xwem-appcollect-params))
        mspec)

    (setq mspec (list op))
    (mapc (lambda (par)
            (cond ((eq par 'class)
                   (push `(and (class-inst ,(concat "^" (car (xwem-hints-wm-class (xwem-cl-hints cl))) "$"))
                               (class-name ,(concat "^" (cdr (xwem-hints-wm-class (xwem-cl-hints cl))) "$")))
                         mspec))
                  ((eq par 'name)
                   (push `(name ,(concat "^" (xwem-hints-wm-name (xwem-cl-hints cl)) "$"))
                         mspec))
                  ((eq par 'command)
                   (push `(command ,(concat "^" (xwem-hints-wm-command (xwem-cl-hints cl)) "$"))
                         mspec))))
          params)
    (setq mspec (nreverse mspec))
          
    (setq xwem-app-collection (put-alist app-name (list mspec) xwem-app-collection))
    (xwem-client-kill cl t)
    (setq xwem-app-collect-wait nil)))

;;;###xwem-autoload(autoload 'xwem-appcollect "xwem-appcollect" nil nil)
(defun xwem-appcollect (app-names &optional params operation)
  "Collect and return applications manage specs.
APP-NAMES is a list of applications to collect.

PARAMS is a list of elements where each element is one of:
  `class'   - Include class-inst/class-name into mspec.
  `name'    - Include app name into mspec.
  `command' - Include command into mspec."
  (let ((xwem-app-collection nil))
    (declare (special xwem-app-collection))

    (mapc (lambda (app)
            (let ((cmd (xwem-launcher-normalize-cmd app))
                  (xwem-app-collect-wait t))
              (declare (special xwem-app-collect-wait))
              (xwem-manda-add-expectance
               `(appcollect (xwem-appcollect-op ,(or operation 'and) xwem-appcollect-params ,(or params '(class))
                             xwem-appcollect-app-name ,app)
                            (eval t)) 120)
              (xwem-execute-program cmd)
              (while xwem-app-collect-wait
                (dispatch-event (next-event)))))
          app-names)
    
    (nreverse xwem-app-collection)))


(provide 'xwem-appcollect)

;;; xwem-appcollect.el ends here
Tip: Filter by directory path e.g. /media app.js to search for public/media/app.js.
Tip: Use camelCasing e.g. ProjME to search for ProjectModifiedEvent.java.
Tip: Filter by extension type e.g. /repo .js to search for all .js files in the /repo directory.
Tip: Separate your search with spaces e.g. /ssh pom.xml to search for src/ssh/pom.xml.
Tip: Use ↑ and ↓ arrow keys to navigate and return to view the file.
Tip: You can also navigate files with Ctrl+j (next) and Ctrl+k (previous) and view the file with Ctrl+o.
Tip: You can also navigate files with Alt+j (next) and Alt+k (previous) and view the file with Alt+o.