(in-package :stumpwm)
(defcommand scrot () ()                                                                                                                               
   (run-shell-command "scrot"))  

(define-key *top-map* (kbd "M-Home") "exec setxkbmap se")
(define-key *top-map* (kbd "M-End") "exec setxkbmap dvorak se")

(run-shell-command "xmodmap /home/simon/.xmodmaprc")

;; används genom (read-file "fil.homofil")
(defun read-file (file) (with-open-file (stream file) (read-line stream)))

;;(run-shell-command "mpd")
;;(run-shell-command "./home/simon/bin/ip.sh")
;;(run-shell-command "sh /home/simon/bin/home.sh")
;;(run-shell-command "compton -f")
;;(run-shell-command "osd_clock -H 900 -F %H:%M -f '-*-ohsnap.icons-bold-*-*-*-22-*-*-*-*-*-*-*' -c cyan -s 0 -t top -r center")
;;(defcommand xterm () ()
 ;; (run-shell-command "xterm"))

(defcommand torrentz () ()
            (run-shell-command "sh /home/simon/bin/torrentz"))

(defcommand deluge () ()
            (run-shell-command "deluge-gtk"))

(defcommand tmux () ()
            (run-shell-command "urxvtc -e tmux attach"))

(defcommand s () ()
            (run-commands "next-in-frame"))

(defcommand b () ()
            (run-commands "balance-frames"))

;; Färger o så 
(set-focus-color "SteelBlue")
(set-unfocus-color "gray13")  
(set-fg-color (colour :ypnosecy))
;;(set-bg-color (colour :ypnose))
(set-bg-color (colour :pnevma))
(set-border-color (colour :ypnosebl))
(set-msg-border-width 1)

;; döda notification-daemon, starta dunst
;;(run-shell-command "killall -9 /usr/libexec/notification-daemon")
;;(run-shell-command "killall -9 /usr/lib/xfce4/notifyd/xfce4-notifyd")

;;(run-shell-command "dunst")


;; Härifrån är det ett försök till andra färger.
;; Update colors
(setf *bright-colors* nil
      *colors* (mapcar #'colour '(:ypnosecy :ypnosebl :green :yellow :blue :ypnosecy
:cyan :base2 :base03 :orange))
		*mode-line-background-color* (colour :ypnose)
                *mode-line-foreground-color* (colour :ypnosebl)
                *mode-line-border-color* "gray17")
(mapcar #'update-color-map *screen-list*)

;;(set-focus-color (colour :base02))
;;(set-unfocus-color (colour :base03))
;;(set-border-color (colour :base03))
;;(set-bg-color (colour :pnevma))
;;(set-fg-color (colour :base02))

;;(setf *mode-line-background-color* "black"
;;      *mode-line-foreground-color* "gray50"
;;      *mode-line-border-color* "gray10"
;;      *mode-line-timeout* 1)

(defmacro make-web-jump (name url-prefix)
  `(defcommand ,name (search)
     ((:rest ,(concatenate 'string (symbol-name name) ": ")))
     (run-shell-command (format nil "~A/bin/luakit_newtab.sh '~A'"
                                (getenv "HOME")
                                (concat ,url-prefix (substitute #\+ #\Space search))))))

(make-web-jump imdb      "http://www.imdb.com/find?q=")
(make-web-jump google    "http://www.google.com/search?q=")
(make-web-jump wikipedia "http://en.wikipedia.org/wiki/Special:Search?fulltext=Search&search=")
(make-web-jump youtube   "http://youtube.com/results?search_query=")
(make-web-jump bbs       "http://bbs.archlinux.org/search.php?action=search&show_as=topics&sort_dir=DESC&keywords=")
(make-web-jump bbsa      "http://bbs.archlinux.org/search.php?action=search&show_as=topics&sort_dir=DESC&author=")
(make-web-jump awiki     "https://wiki.archlinux.org/index.php?title=Special%%3ASearch&search=")
(make-web-jump pkgs      "http://www.archlinux.org/packages/?q=")
(make-web-jump aur       "http://aur.archlinux.org/packages.php?K=")
(make-web-jump last.fm   "http://www.last.fm/search?q=")
(make-web-jump tpb       "http://thepiratebay.se/search/")

(define-key *top-map* (kbd "M-g") "google")
;;(define-key *top-map* (kbd "M-y") "youtube")
;;(define-key *top-map* (kbd "M-t") "tpb")
(define-key *top-map* (kbd "M-a") "bbs")
;;(define-key *top-map* (kbd "M-l") "last.fm")
(define-key *top-map* (kbd "M-b") "balance-frames")

;; could be done better ;)
(mode-line) 
(mode-line)
(message "Never stop taking crack!")