init commit

Author: afreakk

.gitignore

@@ -0,0 +1,2 @@
+.stack-work/
+*~

README.md

@@ -0,0 +1,12 @@
+# Xmonanza
+##### XMonad and Xmobar monorepo for sharing code between them, build with stack
+
+1. Edit `src/AConfig.hs` (atleast iconpath (check xmobar/Main.hs for icons used))
+1. `stack install`
+    `xmonad-afreak` and `xmobar-afreak` will then be created in `~/.local/bin` or `local-bin-path`
+    (`~/.local/bin` needs to be in `$PATH`)
+1. Copy custom buildscript for xmonad `cp scripts/build ~/.xmonad/` and edit script to correct paths
+1. Link from `xmonad-afreak` -> `xmonad` somewhere in `$PATH` e.g. `ln -s ~/.local/bin/xmonad-afreak ~/.local/bin/xmonad`
+    (not sure why, but `--restart` doesnt work properly if `xmonad` is not in `$PATH`)
+1. Append `xmonad` or `xmonad-afreak` to .xinitrc
+1. startx

Setup.hs

@@ -0,0 +1,2 @@
+import Distribution.Simple
+main = defaultMain

app/Main.hs

@@ -0,0 +1,6 @@
+module Main where
+
+import Lib
+
+main :: IO ()
+main = someFunc

package.yaml

@@ -0,0 +1,67 @@
+name:                xmonanza
+version:             0.1.0.0
+github:              "afreak/xmonanza"
+license:             BSD3
+author:              "Afreak"
+
+extra-source-files:
+- README.md
+
+# Metadata used when publishing your package
+# synopsis:            Short description of your package
+# category:            Web
+
+# To avoid duplicated efforts in documentation and dealing with the
+# complications of embedding Haddock markup inside cabal files, it is
+# common to point users to the README.md file.
+description:         Please see the README on GitHub at <https://github.com/afreakk/xmonanza#readme>
+
+dependencies:
+- base >= 4.7 && < 5
+
+library:
+  source-dirs: src
+  dependencies:
+    - directory
+
+executables:
+  xmonad-afreak:
+    main:                Main.hs
+    source-dirs:         xmonad
+    ghc-options:
+    - -threaded
+    - -rtsopts
+    - -with-rtsopts=-N
+    - -Wall
+    - -fwarn-tabs
+    - -O2
+    dependencies:
+    - containers
+    - xmonanza
+    - X11
+    - xmonad
+    - xmonad-contrib
+  xmobar-afreak:
+    main:                Main.hs
+    source-dirs:         xmobar
+    ghc-options:
+    - -threaded
+    - -rtsopts
+    - -with-rtsopts=-N
+    - -Wall
+    - -fwarn-tabs
+    - -O2
+    dependencies:
+    - xmobar
+    - xmonanza
+
+tests:
+  xmonanza-test:
+    main:                Spec.hs
+    source-dirs:         test
+    ghc-options:
+    - -threaded
+    - -rtsopts
+    - -with-rtsopts=-N
+    dependencies:
+    - xmonanza

scripts/build

@@ -0,0 +1,15 @@
+#!/bin/sh
+# The directory holding your source code and stack.yaml file:
+SRC_DIR=~/coding/xmonanza/
+# The name of the executable produced by stack.  This comes from the
+# executable section of your *.cabal or package.yaml file.
+EXE_NAME=xmonad-afreak
+# Unset STACK_YAML, to ensure that $SRC_DIR/stack.yaml is used.
+unset STACK_YAML
+#
+# Do the build.
+cd $SRC_DIR
+stack build
+
+# Create a hard link at the requested destination, replacing any existing one.
+ln -f -T $(stack exec -- which $EXE_NAME) $1

src/AConfig.hs

@@ -0,0 +1,25 @@
+module AConfig (getConfig, AConfig(..)) where
+
+data AConfig = AConfig
+  { cl_black :: String
+  , cl_grey :: String
+  , cl_red :: String
+  , cl_aqua :: String
+  , cl_lilly :: String
+  , cl_font :: String
+  , cl_iconRoot :: String
+  , cl_barHeight :: Int
+  } deriving (Show)
+
+getConfig :: AConfig
+getConfig = AConfig 
+  { cl_black = "#2D2D2D"
+  , cl_grey  = "#CCCCCC"
+  , cl_red   = "#F2777A"
+  , cl_aqua  = "#66CCCC"
+  , cl_lilly = "#CC99CC"
+  , cl_font  = "xft:Hack:size=14:Regular:antialias=true"
+  , cl_iconRoot="/home/afreak/icons"
+  , cl_barHeight=25
+  }
+

stack.yaml

@@ -0,0 +1,73 @@
+# This file was automatically generated by 'stack init'
+#
+# Some commonly used options have been documented as comments in this file.
+# For advanced use and comprehensive documentation of the format, please see:
+# https://docs.haskellstack.org/en/stable/yaml_configuration/
+
+# Resolver to choose a 'specific' stackage snapshot or a compiler version.
+# A snapshot resolver dictates the compiler version and the set of packages
+# to be used for project dependencies. For example:
+#
+# resolver: lts-3.5
+# resolver: nightly-2015-09-21
+# resolver: ghc-7.10.2
+#
+# The location of a snapshot can be provided as a file or url. Stack assumes
+# a snapshot provided as a file might change, whereas a url resource does not.
+#
+# resolver: ./custom-snapshot.yaml
+# resolver: https://example.com/snapshots/2018-01-01.yaml
+resolver: lts-16.1
+
+# User packages to be built.
+# Various formats can be used as shown in the example below.
+#
+# packages:
+# - some-directory
+# - https://example.com/foo/bar/baz-0.0.2.tar.gz
+#   subdirs:
+#   - auto-update
+#   - wai
+packages:
+- .
+# Dependency packages to be pulled from upstream that are not in the resolver.
+# These entries can reference officially published versions as well as
+# forks / in-progress versions pinned to a git hash. For example:
+#
+# extra-deps:
+# - acme-missiles-0.3
+# - git: https://github.com/commercialhaskell/stack.git
+#   commit: e7b331f14bcffb8367cd58fbfc8b40ec7642100a
+#
+# extra-deps: []
+extra-deps:
+- xmobar-0.34
+rebuild-ghc-options: true
+flags:
+  xmobar:
+    with_xft: true
+    with_alsa: true
+
+# Override default flag values for local packages and extra-deps
+# flags: {}
+
+# Extra package databases containing global packages
+# extra-package-dbs: []
+
+# Control whether we use the GHC we find on the path
+# system-ghc: true
+#
+# Require a specific version of stack, using version ranges
+# require-stack-version: -any # Default
+# require-stack-version: ">=2.3"
+#
+# Override the architecture used by stack, especially useful on Windows
+# arch: i386
+# arch: x86_64
+#
+# Extra directories used by stack for building
+# extra-include-dirs: [/path/to/dir]
+# extra-lib-dirs: [/path/to/dir]
+#
+# Allow a newer minor version of GHC than the snapshot specifies
+# compiler-check: newer-minor

stack.yaml.lock

@@ -0,0 +1,19 @@
+# This file was autogenerated by Stack.
+# You should not edit this file by hand.
+# For more information, please see the documentation at:
+#   https://docs.haskellstack.org/en/stable/lock_files
+
+packages:
+- completed:
+    hackage: xmobar-0.34@sha256:6022fc7678d668826eaa248acf8d8f3e1e3bb1a5f9469cbcbf341002ccb6e307,11617
+    pantry-tree:
+      size: 6270
+      sha256: 8a6f9dacffd9faf1c090a9d91d3f8e9f2e155ac797a9117fc03bb27e215fe68f
+  original:
+    hackage: xmobar-0.34
+snapshots:
+- completed:
+    size: 531237
+    url: https://raw.githubusercontent.com/commercialhaskell/stackage-snapshots/master/lts/16/1.yaml
+    sha256: 954b6b14b0c8130732cf4773f7ebb4efc9a44600d1a5265d142868bf93462bc6
+  original: lts-16.1

test/Spec.hs

@@ -0,0 +1,2 @@
+main :: IO ()
+main = putStrLn "Test suite not yet implemented"

xmobar/Main.hs

@@ -0,0 +1,48 @@
+import Xmobar
+import AConfig (getConfig, AConfig (..))
+
+config :: AConfig -> Config
+config cnf =
+  Config { verbose = False
+         , wmClass = "xmobar"
+         , wmName = "xmobar"
+         , border = NoBorder
+         , borderColor = "#BFBFBF"
+         , borderWidth = 1
+         , textOffsets = []
+         , font = cl_font cnf
+         , additionalFonts = []
+         , bgColor = cl_black cnf
+         , fgColor = cl_grey cnf
+         , alpha = 150
+         -- , position = Top
+         , position = TopSize L 100 (cl_barHeight cnf)
+         , textOffset = -1
+         , iconOffset = -1
+         , lowerOnStart = True
+         , pickBroadest = False
+         , persistent = False
+         , hideOnStart = False
+         , iconRoot = cl_iconRoot cnf
+         , allDesktops = True
+         , overrideRedirect = True
+         , commands = [ Run $ Network "enp0s31f6" ["-L","0","-H","32000", "-m", "3", "--normal",cl_aqua cnf,"--high",cl_red cnf, "-t", "<rx>KB|<tx>KB"] 50
+                      , Run $ MultiCpu [ "--low", cl_aqua cnf, "--normal",cl_aqua cnf,"--high",cl_red cnf, "-t", "<total>%"] 50
+                      , Run $ Memory ["-t","<usedratio>%", "-L", "0", "-H", "90", "--normal",cl_aqua cnf,"--high",cl_red cnf, "-m", "2"] 50
+                      , Run $ Date "%a %b %_d %H:%M" "date" 600
+                      , Run $ Alsa "default" "Master" ["-t", "<volume>%",  "--low", cl_aqua cnf, "--normal",cl_aqua cnf,"--high",cl_red cnf]
+                      , Run $ Com "nvidia-settings" ["-t","-q","[gpu:0]/GPUCoreTemp" ] "gputemp" 50
+                      , Run $ MultiCoreTemp [ "--low", cl_aqua cnf, "--normal",cl_aqua cnf,"--high",cl_red cnf, "-t", "<avg>°C"] 50
+                      , Run $ CatInt 0 "/sys/devices/platform/nct6775.2592/hwmon/hwmon3/fan2_input" [
+                        "-L", "0", "-H", "1082", "--normal",cl_aqua cnf,"--high",cl_red cnf] 50
+                      , Run $ StdinReader
+                      ]
+         , sepChar = "%"
+         , alignSep = "}{"
+         , template = "%StdinReader%}\
+                      \{<icon=volume.xpm/> %alsa:default:Master% | %enp0s31f6% | <icon=memory.xpm/> %memory% | <icon=cpu.xpm/> %multicpu% %multicoretemp% %cat0% | <icon=gpu.xpm/> %gputemp%°C | <fc=" ++ cl_lilly cnf ++ ">%date%</fc>"
+         }
+
+main :: IO ()
+main = xmobar $ config getConfig
+