Initial commit

README.md

@@ -0,0 +1,32 @@
+# Naquadah theme for sawfish
+
+This is an adaptation of Julien Danjou's
+[Naquadah](http://git.naquadah.org/?p=naquadah-theme.git;a=summary)
+theme.
+
+## Usage
+
+In order to use this theme, put it into one of the directories in
+your `theme-load-path` in its own folder. For example:
+
+    ~/.sawfish/themes/naquadah
+
+And then, in your `~/.sawfish/rc` file you set it as the default frame
+style:
+
+    (setq default-frame-style 'naquadah)
+
+Or you use any other method of your choosing, such as the customize
+interface.
+
+## Features
+
+  - Very lightweight, doesn't use any images.
+  - Shows the title bar at the bottom of the windows.
+  - Very small and simple, easy to see what's going on.
+
+## Possible caveats
+
+  - Very simplistic, doesn't have minimize, maximize or menu buttons
+    in the title bar, just the title and a close button.
+  - Shows the title bar at the bottom of the windows.

theme.jl

@@ -0,0 +1,56 @@
+(define naquadah:backgrounds '("#2e3436" "#0c191c"))
+(define naquadah:rbackgrounds (reverse naquadah:backgrounds))
+(define naquadah:foregrounds '("#555753" "#eeeeec"))
+
+(define naquadah:transient-frame
+  `(;; title border
+    ((background . ,naquadah:rbackgrounds)
+     (left-edge . -1)
+     (right-edge . -1)
+     (bottom-edge . -20)
+     (height . 20))
+
+    ;; close button
+    ((background . ,naquadah:backgrounds)
+     (foreground . ,naquadah:foregrounds)
+     (right-edge . 0)
+     (bottom-edge . -19)
+     (width . 17)
+     (height . 18)
+     (text . "x")
+     (x-justify . center)
+     (y-justify . center)
+     (class . close-button))
+
+    ;; title
+    ((background . ,naquadah:backgrounds)
+     (foreground . "#f57900")
+     (left-edge . 0)
+     (right-edge . 16)
+     (bottom-edge . -19)
+     (height . 18)
+     (text . ,window-name)
+     (y-justify . center)
+     (x-justify . 6)
+     (class . title))))
+
+;; frame layout
+(define naquadah:frame
+  `(;; border
+    ((background . ,naquadah:backgrounds)
+     (left-edge . -1)
+     (right-edge . -1)
+     (top-edge . -1)
+     (bottom-edge . 0)
+     (below-client . t)
+     (class . left-border))
+
+    ,@naquadah:transient-frame))
+
+(add-frame-style 'naquadah
+                 (lambda (w type)
+                   (case type
+                     ((default) naquadah:frame)
+                     ((transient) naquadah:frame)
+                     ((shaped) naquadah:transient-frame)
+                     ((shaped-transient) naquadah:transient-frame))))