git-brunch 1.4.2.0 → 1.4.4.0
raw patch · 3 files changed
+12/−16 lines, 3 files
Files
- README.md +1/−0
- app/GitBrunch.hs +7/−12
- git-brunch.cabal +4/−4
README.md view
@@ -97,6 +97,7 @@ ## Release - Bump version in `package.yaml` and `default.nix`+- `stack build` - Create a commit `v0.0.0` - Create a tag `v0.0.0` - Push commit and push tag
app/GitBrunch.hs view
@@ -1,5 +1,4 @@ {-# LANGUAGE LambdaCase #-}-{-# LANGUAGE RankNTypes #-} module GitBrunch ( main )@@ -111,8 +110,8 @@ appDraw :: State -> [Widget Name] appDraw state = drawDialog state- : [ C.vCenter $ padAll 1 $ vBox- (maxWidth 200 <$> [branchLists, filterEdit, padding, instructions])+ : [ C.vCenter $ padAll 1 $ maxWidth 200 $ vBox+ [branchLists, filterEdit, padding, instructions] ] where padding = str " "@@ -137,15 +136,10 @@ drawFilter :: State -> Widget Name drawFilter state =- withBorderStyle BS.unicodeBold- $ B.border- $ padLeft (Pad 1)- $ vLimit 1- $ label- <+> editor+ withBorderStyle BS.unicodeBold $ B.border $ vLimit 1 $ label <+> editor where editor = E.renderEditor (str . unlines) True (state ^. filterL)- label = str "Filter: "+ label = str " Filter: " drawDialog :: State -> Widget n drawDialog state = case _dialog state of@@ -171,9 +165,10 @@ drawTitle = attr . str . map toUpper . show . L.listName drawListElement :: Bool -> Branch -> Widget Name-drawListElement _ branch =- padLeft (Pad 1) $ padRight Max $ highlight branch $ str $ show branch+drawListElement isListFocussed branch =+ maxPadding $ highlight branch $ str $ " " <> show branch where+ maxPadding = if isListFocussed then padRight Max else id highlight (BranchCurrent _) = withAttr attrBranchCurrent highlight b | Git.isCommonBranch b = withAttr attrBranchCommon highlight _ = id
git-brunch.cabal view
@@ -4,10 +4,10 @@ -- -- see: https://github.com/sol/hpack ----- hash: a6badf00f36b9a989355a39bf5abb910c22c370ff5e0e3725145be8fb2a953ca+-- hash: 643cd917a331afd2c5c769ae081cd6f382eec74c30471e6b5b3ac9315c3df792 name: git-brunch-version: 1.4.2.0+version: 1.4.4.0 synopsis: git checkout command-line tool description: Please see the README on GitHub at <https://github.com/andys8/git-brunch> category: Git@@ -50,11 +50,11 @@ , vector , vty if flag(static)- ghc-options: -static -threaded -rtsopts -with-rtsopts=-N -Wall+ ghc-options: -static -threaded -rtsopts -with-rtsopts=-N -Wall -O2 cc-options: -static ld-options: -static -pthread else- ghc-options: -threaded -rtsopts -with-rtsopts=-N -Wall+ ghc-options: -threaded -rtsopts -with-rtsopts=-N -Wall -O2 default-language: Haskell2010 test-suite git-brunch-test