[sawfish] removed frame-style-editable-p and all remaining sawfish-themer fragments

[Christopher Bratusek <chrisb src gnome org>]

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)