henninb

Keybase proof

I hereby claim:

• I am bitexplorer on github.
• I am henninb (https://keybase.io/henninb) on keybase.
• I have a public key ASDZ8rGBtA3DWIb8NVySYr-lYNRD8MzdUrgrRaFQ52DvCAo

To claim this, I am signing this object:

henninb

--viewShift :: WorkspaceId -> Query (Endo (W.StackSet WorkspaceId l Window ScreenId sd))
--viewShift = doF . liftM2 (.) W.greedyView W.shift

keybinds :: XConfig Layout -> [((KeyMask, KeySym), NamedActions.NamedAction)]
keybinds conf = let
  subKeys str ks = NamedActions.subtitle str : mkNamedKeymap conf ks
  wsKeys  = map show ([1..9] ++ [0] :: [Int])
  zipM  m nm ks as f = zipWith (\k d -> (m ++ k, NamedActions.addName nm $ f d)) ks as
  zipM' m nm ks as f b = zipWith(\k d -> (m ++ k, NamedActions.addName nm $ f d b)) ks as
  in

henninb

import qualified XMonad.Util.NamedActions as NamedActions
import qualified Data.Map as M

keybinds :: XConfig Layout -> [((KeyMask, KeySym), NamedActions.NamedAction)]
keybinds conf = let
  subKeys str ks = NamedActions.subtitle str : mkNamedKeymap conf ks
  in
   subKeys "Scratchpads"
   [
   ("M-S-o", NamedActions.addName "submap" $ submap . M.fromList $

henninb

data class Transaction(
    @JsonProperty
    var transactionId: Long,

    @JsonProperty
    var guid: String,

    @JsonProperty
    var accountId: Long,

henninb

        Field TOTALS_DEBITS = dslContext.select(DSL.coalesce(DSL.sum(T_TRANSACTION.AMOUNT), 0.0).as("debits"))
                .from(T_TRANSACTION)
                .where(T_TRANSACTION.ACTIVE_STATUS.eq(true) & T_TRANSACTION.ACCOUNT_TYPE.eq("debit")).asField()

        Field TOTALS_CREDITS = dslContext.select(DSL.coalesce(DSL.sum(T_TRANSACTION.AMOUNT), 0.0).as("credits"))
                .from(T_TRANSACTION)
                .where(T_TRANSACTION.ACTIVE_STATUS.eq(true) & T_TRANSACTION.ACCOUNT_TYPE.eq("credit")).asField()


        return dslContext.select((TOTALS_DEBITS - TOTALS_CREDITS).as("totals"))