[sawfish] removed frame-style-editable-p and all remaining sawfish-themer fragments
- From: Christopher Bratusek <chrisb src gnome org>
- To: svn-commits-list gnome org
- Cc:
- Subject: [sawfish] removed frame-style-editable-p and all remaining sawfish-themer fragments
- Date: Mon, 18 Jan 2010 18:35:44 +0000 (UTC)
commit 5aacfaca67784d34926ca6476e8a6743a5b87918
Author: Christopher Roy Bratusek <chris nanolx org>
Date: Mon Jan 18 19:35:15 2010 +0100
removed frame-style-editable-p and all remaining sawfish-themer fragments
ChangeLog | 3 +++
lisp/sawfish/wm/frames.jl | 31 +++----------------------------
2 files changed, 6 insertions(+), 28 deletions(-)
---
diff --git a/ChangeLog b/ChangeLog
index 9557c81..f8e70d4 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,6 +1,9 @@
2010-01-18 Christopher Bratusek <zanghar freenet de>
* lisp/sawfish/wm/menus.jl: sawfish-themer is dead, so remove the corresponing entry from custom-menu
+ * lisp/sawfish/wm/frames.jl: sawfish-themer is dead, so remove frame-style-editable-p
+ and all remaining sawfish-themer fragments
+
2010-01-15 Christopher Bratusek <zanghar freenet de>
* lisp/sawfish/wm/autoload.jl
* lisp/sawfish/wm/commands/jump-or-exec.jl: added a modified version of jump-or-exec,
diff --git a/lisp/sawfish/wm/frames.jl b/lisp/sawfish/wm/frames.jl
index 8f0e558..a19fc35 100644
--- a/lisp/sawfish/wm/frames.jl
+++ b/lisp/sawfish/wm/frames.jl
@@ -33,8 +33,6 @@
set-frame-style
apply-frame-style
apply-frame-style-and-save
- mark-frame-style-editable
- frame-style-editable-p
window-type
set-window-type
push-window-type
@@ -205,9 +203,6 @@ by the current theme, then FALLBACK-TYPE is used instead.")
;; files they were loaded from; used to check if the theme needs reloading
(define frame-style-files nil)
- ;; List of styles that can be edited using sawfish-themer
- (define editable-frame-styles nil)
-
(define frame-type-mappers '()
"List of functions that map (WINDOW FRAME-TYPE) ->
FRAME-TYPE. Used when deciding which frame type to ask a theme to
@@ -224,8 +219,6 @@ generate.")
(defvar themes-are-gaolled t
"When non-nil themes are assumed to be malicious.")
- (defvar sawfish-themer-program "sawfish-themer")
-
;;; defcustom's for some built-in variables
(defcustom default-font nil
@@ -392,23 +385,6 @@ generate.")
(when (apply-frame-style style)
(save-current-frame-style)))
-;;; editable frame styles
-
- (define (mark-frame-style-editable style)
- (unless (memq style editable-frame-styles)
- (setq editable-frame-styles (cons style editable-frame-styles))))
-
- (define (frame-style-editable-p style) (memq style editable-frame-styles))
-
- (define-command 'edit-frame-style
- (lambda (style)
- (if (not (memq style editable-frame-styles))
- (error "Frame style isn't editable")
- (let ((dir (find-frame-style style)))
- (when dir
- (system (format nil "%s %s &" sawfish-themer-program dir))))))
- #:spec (lambda () (list default-frame-style)))
-
;;; kludge different window decors by modifying the assumed window type
(define (window-type w)
@@ -692,10 +668,9 @@ generate.")
(gaol-add add-frame-style reframe-window rebuild-frames-with-style
reframe-windows-with-style reframe-all-windows window-type
def-frame-class define-frame-class after-setting-frame-option
- mark-frame-style-editable frame-part-get frame-part-put
- frame-part-window frame-part-x-window frame-part-position
- frame-part-dimensions frame-part-state map-frame-parts
- refresh-frame-part refresh-window rebuild-frame-part)
+ frame-part-get frame-part-put frame-part-window frame-part-x-window
+ frame-part-position frame-part-dimensions frame-part-state
+ map-frame-parts refresh-frame-part refresh-window rebuild-frame-part)
(add-hook 'add-window-hook reframe-window t)
(add-hook 'shape-notify-hook reframe-window t)
[
Date Prev][
Date Next] [
Thread Prev][
Thread Next]
[
Thread Index]
[
Date Index]
[
Author Index]