Make hotkeys assignable to any item, use item id

src/NewInt.hs

@@ -16,6 +16,7 @@ newtype NewInt a = NInt { _unNInt :: Int}
     deriving newtype (Eq,Ord,Show,Num,Read,Integral,Real,Enum)
 
 newtype NewIntMap a b = NIntMap { _unNIntMap :: IM.IntMap b}
+    deriving newtype (Monoid,Semigroup)
     deriving (Eq,Ord,Show,Read)
 
 makeLenses ''NewInt