getvolume in C, barbq

Main.hs

@@ -88,8 +88,7 @@ tilingShell =
 
 -- scripts taken from ubersicht status widget via chunkwm sample ubersicht
 volumeShell :: Text
-volumeShell =
-  [r| /Users/bkase/barbq2/getvolume/.build/release/getvolume |]
+volumeShell = "barbq-getvolume"
 
 externalIpShell :: Text
 externalIpShell = "curl -s icanhazip.com | tr -d '\n' || true"

barbq2.cabal → barbq.cabal

@@ -1,8 +1,8 @@
 cabal-version:       >=1.10
--- Initial package description 'barbq2.cabal' generated by 'cabal init'.
+-- Initial package description 'barbq.cabal' generated by 'cabal init'.
 -- For further documentation, see http://haskell.org/cabal/users-guide/
 
-name:                barbq2
+name:                barbq
 version:             0.1.0.0
 -- synopsis:
 -- description:
@@ -16,7 +16,7 @@ version:             0.1.0.0
 build-type:          Simple
 extra-source-files:  CHANGELOG.md
 
-executable barbq2
+executable barbq
   main-is:             Main.hs
   ghc-options: -O2 -flate-specialise -fspecialise-aggressively -threaded -Wall -Wcompat -Wincomplete-record-updates -Wincomplete-uni-patterns -Wredundant-constraints -Wno-name-shadowing
   other-modules: Barbq.Types Barbq.UI.Framework Barbq.UI.Runtime Barbq.UI.Components

default.nix

@@ -1,36 +1,33 @@
 { compiler ? "ghc865", pkgs ? import <nixpkgs> {} }:
 
 let
-
+  getvolume = pkgs.callPackage ./getvolume/default.nix { };
   packageSet = pkgs.haskell.packages.${compiler};
   haskellPackages =
     packageSet.override {
               overrides = (self: super:
                 {
                   ghc = super.ghc // { withPackages = super.ghc.withHoogle; };
                   ghcWithPackages = self.ghc.withPackages;
-
-                  polysemy = self.polysemy_1_2_1_0;
-
                   async-timer = pkgs.haskell.lib.dontCheck super.async-timer;
-
-                  polysemy-plugin = pkgs.haskell.lib.dontCheck (super.polysemy-plugin.override { polysemy = self.polysemy_1_2_1_0; });
                 }
               );
             };
-  drv = haskellPackages.callCabal2nix "barbq2" ./. {};
+            raw = haskellPackages.callCabal2nix "barbq" ./. {};
+            drv = pkgs.symlinkJoin {
+              name = "barbq";
+              paths = [ raw getvolume  ];
+            };
 
 in
   {
     barbq = drv;
     barbq-shell = haskellPackages.shellFor {
-      packages = p: [drv];
+      packages = p: [raw];
       shellHook = ''
         export HIE_HOOGLE_DATABASE="$(cat $(which hoogle) | sed -n -e 's|.*--database \(.*\.hoo\).*|\1|p')"
-
-        pushd getvolume && swift build -c release && popd
       '';
-      buildInputs = with pkgs; [ cabal-install hlint ghcid ] ++ (if pkgs.stdenv.isDarwin then [] else [ swift ]) ;
+      buildInputs = with pkgs; [ cabal-install hlint ghcid getvolume ] ;
     };
   }
 

getvolume/default.nix

@@ -0,0 +1,14 @@
+{pkgs ? import <nixpkgs> {} }:
+pkgs.stdenv.mkDerivation rec {
+  name = "barbq-getvolume";
+  version = "0.2";
+  src = ./.;
+  buildPhase = ''
+    clang main.c -framework CoreAudio -framework AudioToolbox
+  '';
+  installPhase = ''
+    mkdir -p $out/bin
+    mv a.out $out/bin/barbq-getvolume
+  '';
+  buildInputs = [ pkgs.darwin.apple_sdk.frameworks.CoreAudio pkgs.darwin.apple_sdk.frameworks.AudioToolbox ];
+}

getvolume/main.c

@@ -0,0 +1,72 @@
+#include <AudioToolbox/AudioToolbox.h>
+#include <stdio.h>
+#include <math.h>
+
+AudioDeviceID getCurrentlySelectedDeviceID() {
+    UInt32 propertySize;
+    AudioDeviceID deviceID = kAudioDeviceUnknown;
+
+    AudioObjectPropertyAddress pa;
+    pa.mScope = kAudioObjectPropertyScopeGlobal;
+    pa.mElement = kAudioObjectPropertyElementMaster;
+    pa.mSelector = kAudioHardwarePropertyDefaultOutputDevice;
+
+    // get the default output device
+    propertySize = sizeof(deviceID);
+
+    OSStatus err = AudioObjectGetPropertyData(kAudioObjectSystemObject, &pa, 0, NULL, &propertySize, &deviceID);
+    if (err != noErr) {
+      fprintf(stderr, "Failed to get default deviceid\n");
+    }
+    return deviceID;
+}
+
+UInt32 isMuted(AudioDeviceID deviceID) {
+  UInt32 propertySize;
+
+  AudioObjectPropertyAddress pa;
+  pa.mSelector = kAudioDevicePropertyMute;
+  pa.mScope = kAudioObjectPropertyScopeOutput;
+  pa.mElement = kAudioObjectPropertyElementMaster;
+
+  UInt32 isMuted = 0;
+  propertySize = sizeof(isMuted);
+
+  OSStatus err = AudioObjectGetPropertyData(deviceID, &pa, 0, NULL, &propertySize, &isMuted);
+  if (err != noErr) {
+      fprintf(stderr, "Failed to get mute data\n");
+  }
+
+  return isMuted;
+}
+
+void getDeviceVolume(AudioDeviceID deviceID, float *volume) {
+    UInt32 propertySize = sizeof(float);
+
+    AudioObjectPropertyAddress pa;
+    pa.mSelector = kAudioHardwareServiceDeviceProperty_VirtualMasterVolume;
+    pa.mScope = kAudioDevicePropertyScopeOutput;
+    pa.mElement = kAudioObjectPropertyElementMaster;
+
+    OSStatus err = AudioObjectGetPropertyData(
+      deviceID,
+      &pa,
+      0,
+      NULL,
+      &propertySize,
+      volume);
+    if (err != noErr) {
+      fprintf(stderr, "Failed to get volume data\n");
+      return;
+    }
+}
+
+int main() {
+  AudioDeviceID deviceID = getCurrentlySelectedDeviceID();
+  UInt32 mute = isMuted(deviceID);
+  float volume = 100.0;
+  getDeviceVolume(deviceID, &volume);
+  printf("%d,%d\n", (int)round(volume*100.0), mute);
+  return 0;
+}
+

hie.yaml

@@ -1,8 +1,8 @@
 cradle:
   cabal:
-    component: "exe:barbq2"
+    component: "exe:barbq"
 
 dependencies:
-  - barbq2.cabal
+  - barbq.cabal
   - shell.nix
   - default.nix