added irssirc, muttrc, screenrc

xmonad: xmonad.hs, xinitrc

5 files changed, 361 insertions, 7 deletions

diff --git a/configs/irssirc b/configs/irssirc
new file mode 100755
index 0000000..b2fda5c
--- /dev/null
+++ b/configs/irssirc
@@ -0,0 +1,263 @@
+servers = (
+  { address = "eu.irc6.net"; chatnet = "IRCnet"; port = "6667"; },
+  { address = "open.ircnet.net"; chatnet = "IRCnet"; port = "6667"; },
+  { address = "irc.efnet.org"; chatnet = "EFNet"; port = "6667"; },
+  { 
+    address = "irc.undernet.org";
+    chatnet = "Undernet";
+    port = "6667";
+  },
+  { address = "irc.dal.net"; chatnet = "DALnet"; port = "6667"; },
+  { 
+    address = "irc.quakenet.org";
+    chatnet = "QuakeNet";
+    port = "6667";
+  },
+  { address = "irc.oftc.net"; chatnet = "OFTC"; port = "6667"; },
+  {
+    address = "irc.gamesurge.net";
+    chatnet = "GameSurge";
+    port = "6667";
+  },
+  { address = "irc.webchat.org"; chatnet = "WebChat"; port = "6667"; },
+  { address = "irc.rizon.net"; chatnet = "Rizon"; port = "6667"; },
+  { address = "irc.link-net.org"; chatnet = "LinkNet"; port = "6667"; },
+  { address = "silc.silcnet.org"; chatnet = "SILC"; port = "706"; }
+);
+
+chatnets = {
+  IRCnet = {
+    type = "IRC";
+    max_kicks = "4";
+    max_msgs = "5";
+    max_whois = "4";
+    max_query_chans = "5";
+  };
+  EFNet = { 
+    type = "IRC";
+    max_kicks = "4";
+    max_msgs = "3";
+    max_whois = "1";
+  };
+  Undernet = {
+    type = "IRC";
+    max_kicks = "1";
+    max_msgs = "3";
+    max_whois = "30";
+  };
+  DALnet = {
+    type = "IRC";
+    max_kicks = "4";
+    max_msgs = "3";
+    max_whois = "30";
+  };
+  QuakeNet = {
+    type = "IRC";
+    max_kicks = "1";
+    max_msgs = "3";
+    max_whois = "30";
+  };
+  OFTC = { 
+    type = "IRC";
+    max_kicks = "1";
+    max_msgs = "3";
+    max_whois = "30";
+  };
+  GameSurge = {
+    type = "IRC";
+    max_kicks = "1";
+    max_msgs = "3";
+    max_whois = "30";
+  };
+  WebChat = {
+    type = "IRC";
+    max_kicks = "1";
+    max_msgs = "3";
+    max_whois = "30";
+  };
+  Rizon = { 
+    type = "IRC";
+    max_kicks = "1";
+    max_msgs = "3";
+    max_whois = "30";
+  };
+  LinkNet = {
+    type = "IRC";
+    max_kicks = "1";
+    max_msgs = "3";
+    max_whois = "30";
+  };
+  SILC = { type = "SILC"; };
+};
+
+channels = (
+  { name = "#irssi"; chatnet = "ircnet"; autojoin = "No"; },
+  { name = "silc"; chatnet = "silc"; autojoin = "No"; }
+);
+
+aliases = {
+  J = "join";
+  WJOIN = "join -window";
+  WQUERY = "query -window";
+  LEAVE = "part";
+  BYE = "quit";
+  EXIT = "quit";
+  SIGNOFF = "quit";
+  DESCRIBE = "action";
+  DATE = "time";
+  HOST = "userhost";
+  LAST = "lastlog";
+  SAY = "msg *";
+  WI = "whois";
+  WII = "whois $0 $0";
+  WW = "whowas";
+  W = "who";
+  N = "names";
+  M = "msg";
+  T = "topic";
+  C = "clear";
+  CL = "clear";
+  K = "kick";
+  KB = "kickban";
+  KN = "knockout";
+  BANS = "ban";
+  B = "ban";
+  MUB = "unban *";
+  UB = "unban";
+  IG = "ignore";
+  UNIG = "unignore";
+  SB = "scrollback";
+  UMODE = "mode $N";
+  WC = "window close";
+  WN = "window new hide";
+  SV = "say Irssi $J ($V) - http://irssi.org/";
+  GOTO = "sb goto";
+  CHAT = "dcc chat";
+  RUN = "SCRIPT LOAD";
+  CALC = "exec - if command -v bc >/dev/null 2>&1\\; then printf '%s=' '$*'\\; echo '$*' | bc -l\\; else echo bc was not found\\; fi";
+  SBAR = "STATUSBAR";
+  INVITELIST = "mode $C +I";
+  Q = "QUERY";
+  "MANUAL-WINDOWS" = "set use_status_window off;set autocreate_windows off;set autocreate_query_level none;set autoclose_windows off;set reuse_unused_windows on;save";
+  EXEMPTLIST = "mode $C +e";
+  ATAG = "WINDOW SERVER";
+  UNSET = "set -clear";
+  RESET = "set -default";
+};
+
+statusbar = {
+  # formats:
+  # when using {templates}, the template is shown only if it's argument isn't
+  # empty unless no argument is given. for example {sb} is printed always,
+  # but {sb $T} is printed only if $T isn't empty.
+
+  items = {
+    # start/end text in statusbars
+    barstart = "{sbstart}";
+    barend = "{sbend}";
+
+    topicbarstart = "{topicsbstart}";
+    topicbarend = "{topicsbend}";
+
+    # treated "normally", you could change the time/user name to whatever
+    time = "{sb $Z}";
+    user = "{sb {sbnickmode $cumode}$N{sbmode $usermode}{sbaway $A}}";
+
+    # treated specially .. window is printed with non-empty windows,
+    # window_empty is printed with empty windows
+    window = "{sb $winref:$tag/$itemname{sbmode $M}}";
+    window_empty = "{sb $winref{sbservertag $tag}}";
+    prompt = "{prompt $[.15]itemname}";
+    prompt_empty = "{prompt $winname}";
+    topic = " $topic";
+    topic_empty = " Irssi v$J - http://www.irssi.org";
+
+    # all of these treated specially, they're only displayed when needed
+    lag = "{sb Lag: $0-}";
+    act = "{sb Act: $0-}";
+    more = "-- more --";
+  };
+
+  # there's two type of statusbars. root statusbars are either at the top
+  # of the screen or at the bottom of the screen. window statusbars are at
+  # the top/bottom of each split window in screen.
+  default = {
+    # the "default statusbar" to be displayed at the bottom of the window.
+    # contains all the normal items.
+    window = {
+      disabled = "no";
+
+      # window, root
+      type = "window";
+      # top, bottom
+      placement = "bottom";
+      # number
+      position = "1";
+      # active, inactive, always
+      visible = "active";
+
+      # list of items in statusbar in the display order
+      items = {
+        barstart = { priority = "100"; };
+        time = { };
+        user = { };
+        window = { };
+        window_empty = { };
+        lag = { priority = "-1"; };
+        act = { priority = "10"; };
+        more = { priority = "-1"; alignment = "right"; };
+        barend = { priority = "100"; alignment = "right"; };
+      };
+    };
+
+    # statusbar to use in inactive split windows
+    window_inact = {
+      type = "window";
+      placement = "bottom";
+      position = "1";
+      visible = "inactive";
+      items = {
+        barstart = { priority = "100"; };
+        window = { };
+        window_empty = { };
+        more = { priority = "-1"; alignment = "right"; };
+        barend = { priority = "100"; alignment = "right"; };
+      };
+    };
+
+    # we treat input line as yet another statusbar :) It's possible to
+    # add other items before or after the input line item.
+    prompt = {
+      type = "root";
+      placement = "bottom";
+      # we want to be at the bottom always
+      position = "100";
+      visible = "always";
+      items = {
+        prompt = { priority = "-1"; };
+        prompt_empty = { priority = "-1"; };
+        # treated specially, this is the real input line.
+        input = { priority = "10"; };
+      };
+    };
+
+    # topicbar
+    topic = {
+      type = "root";
+      placement = "top";
+      position = "1";
+      visible = "always";
+      items = {
+        topicbarstart = { priority = "100"; };
+        topic = { };
+        topic_empty = { };
+        topicbarend = { priority = "100"; alignment = "right"; };
+      };
+    };
+  };
+};
+
+settings = {
+  core = { real_name = "dev0"; user_name = "dev0"; nick = "classless"; };
+  "fe-text" = { actlist_sort = "refnum"; };
+};
diff --git a/configs/muttrc b/configs/muttrc
new file mode 100755
index 0000000..31ff1be
--- /dev/null
+++ b/configs/muttrc
@@ -0,0 +1,25 @@
+set from=matzeton@googlemail.com
+set hostname=googlemail.com
+set folder="imaps://matzeton@imap.googlemail.com/"
+set postponed="=[Google Mail]/Entwürfe"
+set record="=[Google Mail]/Gesendet"
+set spoolfile="=INBOX"
+set trash = "=[Google Mail]/Trash"
+
+set smtp_url = "smtp://matzeton@smtp.gmail.com:587"
+unset smtp_pass
+set realname = "dev0/classless"
+
+set mbox="!"
+set mail_check=90
+set imap_idle
+set imap_check_subscribed
+unset imap_passive
+unset imap_peek
+set sidebar_visible="yes"
+set sidebar_width=25
+bind index,pager \CP sidebar-prev
+bind index,pager \CN sidebar-next
+bind index,pager \CO sidebar-open
+color sidebar_new yellow default
+
diff --git a/configs/screenrc b/configs/screenrc
new file mode 100755
index 0000000..d6004b6
--- /dev/null
+++ b/configs/screenrc
@@ -0,0 +1,59 @@
+startup_message off
+termcapinfo xterm*|Eterm|mlterm|rxvt 'hs:ts=\E]0;:fs=\007:ds=\E]0;screen\007'
+termcapinfo rxvt-unicode ti@:te@     #enable SHIFT-PGUP / SHIFT-PGDOWN scroll
+termcapinfo xterm ti@:te@
+termcapinfo xterm-color ti@:te@
+termcapinfo wy* CS=\E[?1h:CE=\E[?1l:vi=\E[?25l:ve=\E[?25h:VR=\E[?5h:VN=\E[?5l:cb=\E[1K:CD=\E[1J
+terminfo rxvt-unicode ti@:te@:
+term screen-256color
+defutf8 on
+defscrollback 1024
+nonblock on
+vbell off
+msgwait 10
+multiuser on
+writelock on
+defwritelock on
+
+sessionname default
+screen    -t irc           1 irssi
+screen    -t mail          2 mutt
+screen    -t bash1         3 bash
+screen    -t bash2         4 bash
+select 3
+
+bindkey -k k5 prev	# F5  to prev WND
+bindkey -k k6 next	# F6  to next WND
+bindkey -k k7 detach	# F7  to detach screen session from this terminal
+bindkey -k k8 kill	# F8  to kill current screen window.
+bindkey "^[[1;5C" next	# META-LEFT to next WND
+bindkey "^[[1;5D" prev	# METa-RIGHT
+bindkey -k k9 screen	# F9  to create a new screen
+bindkey -k k; title	# F10 to rename current screen window
+bindkey -k F2 quit	# F12 to quit
+
+backtick 1 2 2 /bin/sh -c 'cat /proc/loadavg | cut -d " " -f 1'
+backtick 2 999 999 hostname
+backtick 3 999 999 /bin/sh -c 'uptime | cut -d " " -f 4'
+backtick 4 5 5 /bin/sh -c 'users | wc -w'
+
+caption always
+caption string "[F5]PREV [F6]NEXT [F7]DETACH [F8]KILL [F9]NEW [F10]RENAME [F12]QUIT %{= kG}%-=%2`%{-} | %3`%{-} day(s) | %4`%{-} user(s)"
+
+hardstatus on
+hardstatus alwayslastline
+hardstatus string '%{= kG}%-Lw%{= kW}%50> [%n %t]%{= kG}%+Lw%< %{= kG}%-=%D %m/%d/%y | %C:%s %A | idle: %1`%{-}'
+
+#hardstatus string "%w"
+#hardstatus string "%{.kW}%-w%{.W}%n %t%{-}%{=b kw}%?%+w%?"            #B&W
+#hardstatus string "%{.kW}%-w%{.W}%n %t%{-}%{=b kw}%?%+w%? %=%c %d/%m/%Y" #B&W & date&time
+#hardstatus string '%{= R}[%{w}%H%{R}][%{w}%=%?%-Lw%?%{R}%n*%f%t%?(%u)%? %{w}%?%+Lw%?%?%=%{R}][%{w}%m/%d %{W}%C%A%{R}]'
+#hardstatus string "%{.kW}%-w%{.W}%n %t%{-}%+w %=%C %a "
+#hardstatus string "%{=b kw} %?%-Lw%?%{=br kw}[%n %t]%{=b kw}%?%+Lw%? %="
+#hardstatus alwayslastline '%{bk}[ %{W}%H %{b}][ %{w}%l%{b} ]   %{b}[%{w} %D %d.%m %c:%s%{b} ]'
+#hardstatus alwayslastline '%{bk}[%{W}%H%{b}] %{w} %l %= %n*%t%{-b r}%{w}%+w %= %{w}%d %D %{w}%c'
+#hardstatus alwayslastline '%{wk}[ %{g}][%= %{wk}%?%-Lw%?%{=b kR}(%{W}%n*%f %t%?(%u)%?%{=b kR})%{= kw}%?%+Lw%?%?%= %{g}][%{Y}%l%{g}]%{=b C}[ %m/%d %c ]%{W}'
+sorendition kw
+hardcopydir ~/.screen
+
+
diff --git a/configs/xinitrc b/configs/xinitrc
index d36476a..f4616f2 100644
--- a/configs/xinitrc
+++ b/configs/xinitrc
@@ -1,5 +1,7 @@
 #!/bin/sh
 
+PATH=${PATH}:~/.cabal/bin
+
 unclutter -idle 1 -root &       # hide cursor when unused
 
 # Turn CapsLock into Control
@@ -11,8 +13,4 @@ trayer --edge bottom --align left --SetDockType true --SetPartialStrut false --e
 # starting gpg daemon
 gpg-agent --daemon --use-standard-socket
 
-konsole &
-kmail &
-firefox &
-
 exec ck-launch-session dbus-launch xmonad
diff --git a/configs/xmonad.hs b/configs/xmonad.hs
index 76955f2..0fe0e65 100644
--- a/configs/xmonad.hs
+++ b/configs/xmonad.hs
@@ -12,6 +12,7 @@ import XMonad.Hooks.SetWMName
 import XMonad.Layout.NoBorders
 import XMonad.Layout.Spiral
 import XMonad.Layout.Tabbed
+import XMonad.Actions.SpawnOn
 import XMonad.Util.Run(spawnPipe)
 import XMonad.Util.EZConfig(additionalKeys)
 import qualified XMonad.StackSet as W
@@ -30,6 +31,7 @@ myTerminal = "/usr/bin/konsole"
 -- Workspaces
 -- The default number of workspaces (virtual screens) and their names.
 --
+myWorkspaces :: [WorkspaceId]
 myWorkspaces = ["1:term","2:web","3:code","4:vm","5:media"] ++ map show [6..9]
  
 
@@ -119,7 +121,6 @@ myKeys conf@(XConfig {XMonad.modMask = modMask}) = M.fromList $
   ----------------------------------------------------------------------
   -- Custom key bindings
   --
-
   -- Start a terminal. Terminal to start is specified by myTerminal variable.
   [ ((modMask .|. shiftMask, xK_Return),
      spawn $ XMonad.terminal conf)
@@ -311,7 +312,16 @@ myMouseBindings (XConfig {XMonad.modMask = modMask}) = M.fromList $
 -- per-workspace layout choices.
 --
 -- By default, do nothing.
-myStartupHook = return ()
+--myStartupHook = return ()
+spawnToWorkspace :: String -> String -> X ()
+spawnToWorkspace program workspace = do
+                spawn program     
+                windows $ W.greedyView workspace
+myStartupHook :: X ()
+myStartupHook = do
+                setWMName "LG3D"
+                spawnToWorkspace "konsole" "1:web"
+                spawnToWorkspace "konsole" "2:term"
  
 
 ------------------------------------------------------------------------
@@ -326,7 +336,6 @@ main = do
           , ppCurrent = xmobarColor xmobarCurrentWorkspaceColor ""
           , ppSep = " "}
       , manageHook = manageDocks <+> myManageHook
-      , startupHook = setWMName "LG3D"
   }