Japanese translation of message catalog for Sawfish Window-Manager
| Revision | 437d242a576abde1a575cd7c614bf4b8fedf1316 (tree) |
|---|---|
| Time | 2012-04-06 03:52:56 |
| Author | Christopher Roy Bratusek <nano@tuxf...> |
| Commiter | Christopher Roy Bratusek |
add basic LXDE int module
lisp/sawfish/wm/integration/lxde.jl (diff) lisp/sawfish/wm/integration/razor.jl (diff)| @@ -0,0 +1,73 @@ | ||
| 1 | +;; lxde.jl -- LXDE integration | |
| 2 | + | |
| 3 | +;; Copyright (C) 2012 Christopher Roy Bratusek <nano@tuxfamily.org> | |
| 4 | + | |
| 5 | +;; This file is part of sawfish. | |
| 6 | + | |
| 7 | +;; sawfish is free software; you can redistribute it and/or modify it | |
| 8 | +;; under the terms of the GNU General Public License as published by | |
| 9 | +;; the Free Software Foundation; either version 2, or (at your option) | |
| 10 | +;; any later version. | |
| 11 | + | |
| 12 | +;; sawfish is distributed in the hope that it will be useful, but | |
| 13 | +;; WITHOUT ANY WARRANTY; without even the implied warranty of | |
| 14 | +;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
| 15 | +;; GNU General Public License for more details. | |
| 16 | + | |
| 17 | +;; You should have received a copy of the GNU General Public License | |
| 18 | +;; along with sawfish; see the file COPYING. If not, write to | |
| 19 | +;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. | |
| 20 | + | |
| 21 | +(define-structure sawfish.wm.integration.lxde | |
| 22 | + | |
| 23 | + (export detect-lxde) | |
| 24 | + | |
| 25 | + (open rep | |
| 26 | + rep.system | |
| 27 | + sawfish.wm.menus | |
| 28 | + sawfish.wm.misc | |
| 29 | + sawfish.wm.custom | |
| 30 | + sawfish.wm.windows | |
| 31 | + sawfish.wm.commands | |
| 32 | + sawfish.wm.commands.launcher) | |
| 33 | + | |
| 34 | + (define-structure-alias razor-int sawfish.wm.integration.lxde) | |
| 35 | + | |
| 36 | + (define (init) | |
| 37 | + (let (menu) | |
| 38 | + (setq desktop-environment "lxde") | |
| 39 | + (setq want-poweroff-menu nil) | |
| 40 | + | |
| 41 | + ;; invoke the Razor-Qt terminal instead of xterm | |
| 42 | + ;; | |
| 43 | + ;; XXX Razor-Qt does not come with a default terminal-emulator | |
| 44 | + ;; XXX candidate for int: konsole | |
| 45 | + ;; | |
| 46 | + (unless (variable-customized-p 'xterm-program) | |
| 47 | + (setq xterm-program "lxterm")) | |
| 48 | + | |
| 49 | + ;; use the Razor-Qt help browser and url launcher | |
| 50 | + ;; | |
| 51 | + ;; XXX Razor-Qt does not come with a default browser | |
| 52 | + ;; XXX candidate for int: QupZilla | |
| 53 | + ;; | |
| 54 | + ;; (unless (variable-customized-p 'browser-program) | |
| 55 | + ;; (setq browser-program "razor-www-browser")) | |
| 56 | + | |
| 57 | + ;; add some LXDE menu-entries | |
| 58 | + (when (setq menu (assoc (_ "_Help") root-menu)) | |
| 59 | + (nconc menu `(() | |
| 60 | + (,(_ "LXDE _Website") (browser "http://www.lxde.org"))))) | |
| 61 | + | |
| 62 | + ;; add razor-logout and customize menu-entries | |
| 63 | + (when (setq menu (assoc (_ "Sessi_on") root-menu)) | |
| 64 | + (nconc menu `(() | |
| 65 | + (,(_ "_LXSession Logout") (system "lxsession-logout &"))))) | |
| 66 | + | |
| 67 | + ;; Returns nil if razor is not found. | |
| 68 | + ;; If detected, returns t, and do also razor support init. | |
| 69 | + (define (detect-razor) | |
| 70 | + (when (or (equal (getenv "XDG_CURRENT_DESKTKOP") "LXDE") | |
| 71 | + (equal (getenv "DESKTOP_SESSION") "LXDE")) | |
| 72 | + (init) | |
| 73 | + t))) |
| @@ -31,7 +31,7 @@ | ||
| 31 | 31 | sawfish.wm.commands |
| 32 | 32 | sawfish.wm.commands.launcher) |
| 33 | 33 | |
| 34 | - (define-structure-alias razor-int sawfish.wm.integration.mate) | |
| 34 | + (define-structure-alias razor-int sawfish.wm.integration.razor) | |
| 35 | 35 | |
| 36 | 36 | (define (init) |
| 37 | 37 | (let (menu) |
Fork
SawfishWM/sawfish