initial add

I've promoted these out of their original Makefile-oriented repos into
their own cabal package.

Author: elaforge

.gitignore

@@ -0,0 +1,15 @@
+tags
+/dist/
+/dist-newstyle/
+/cabal-dev/
+*.o
+*.hi
+*.chi
+*.chs.h
+.virtualenv
+.hsenv
+.cabal-sandbox/
+cabal.sandbox.config
+cabal.config
+*~
+*.swp

LICENSE

@@ -0,0 +1,31 @@
+Copyright Evan Laforge 2011
+
+All rights reserved.
+
+Redistribution and use in source and binary forms, with or without
+modification, are permitted provided that the following conditions are met:
+
+    * Redistributions of source code must retain the above copyright
+      notice, this list of conditions and the following disclaimer.
+
+    * Redistributions in binary form must reproduce the above
+      copyright notice, this list of conditions and the following
+      disclaimer in the documentation and/or other materials provided
+      with the distribution.
+
+    * Neither the name of Evan Laforge nor the names of other
+      contributors may be used to endorse or promote products derived
+      from this software without specific prior written permission.
+
+THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
+"AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
+LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR
+A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT
+OWNER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
+SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT
+LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
+DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
+THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
+(INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE
+OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
+

README.md

@@ -0,0 +1,8 @@
+Some small source code manipulation tools I use with vim.  They're external
+filters, though, so if you use acme instead of vim, they should work fine there
+too.
+
+- cmt - Comment and uncomment code.
+
+- string-literal - Toggle between raw text and list of lines or Haskell
+backslash string gap style.

src-util.cabal

@@ -0,0 +1,38 @@
+name: src-util
+version: 0.1
+cabal-version: >= 1.8
+build-type: Simple
+synopsis: source code editing utilities
+description:
+    Collection of small utilities to manipulate source code.
+
+category: Haskell, Development
+license: BSD3
+license-file: LICENSE
+author: Evan Laforge
+maintainer: Evan Laforge <qdunkan@gmail.com>
+stability: stable
+tested-with:
+    GHC ==7.8.4, GHC ==7.10.3, GHC == 8.0.2, GHC == 8.2.2, GHC == 8.4.1
+data-files: README.md
+
+homepage: https://github.com/elaforge/src-util
+source-repository head
+    type: git
+    location: git://github.com/elaforge/src-util.git
+
+executable string-literal
+    main-is: src/StringLiteral.hs
+    build-depends:
+        base >= 3 && < 5,
+        text
+    ghc-options:
+        -Wall -fno-warn-name-shadowing
+
+executable cmt
+    main-is: src/Cmt.hs
+    build-depends:
+        base >= 3 && < 5,
+        text
+    ghc-options:
+        -Wall -fno-warn-name-shadowing

src/Cmt.hs

@@ -0,0 +1,104 @@
+{-# LANGUAGE OverloadedStrings #-}
+import qualified Data.Char as Char
+import qualified Data.List as List
+import Data.Monoid ((<>))
+import qualified Data.Text as Text
+import Data.Text (Text)
+import qualified Data.Text.IO as Text.IO
+
+import qualified System.Environment
+import qualified System.Exit
+
+
+type Cmt = Text
+
+usage :: String
+usage = "usage: cmt cmt_char"
+
+main :: IO ()
+main = do
+    args <- System.Environment.getArgs
+    case args of
+        [cmt] -> do
+            Text.IO.interact (ignoreBlankLines (cmtOrUncmt (Text.pack cmt)))
+        _ -> do
+            putStrLn usage
+            System.Exit.exitFailure
+
+ignoreBlankLines :: ([Text] -> [Text]) -> Text -> Text
+ignoreBlankLines f text = Text.unlines $ leading ++ f within ++ trailing
+    where
+    rawLines = Text.lines text
+    (leading, mid) = span blankLine rawLines
+    (within, trailing) = spanEnd blankLine mid
+
+cmtOrUncmt :: Cmt -> [Text] -> [Text]
+cmtOrUncmt cmt lines
+    | shouldCmt cmt lines = cmtLines cmt lines
+    | otherwise = uncmtLines cmt lines
+
+shouldCmt :: Cmt -> [Text] -> Bool
+shouldCmt cmt = not . all (\line -> isCmted cmt line || blankLine line)
+
+isCmted :: Cmt -> Text -> Bool
+isCmted cmt line = cmt `Text.isPrefixOf` Text.dropWhile Char.isSpace line
+
+cmtLines :: Cmt -> [Text] -> [Text]
+cmtLines cmt lines = map (lineCmt cmt (indentOf lines)) lines
+
+indentOf :: [Text] -> Text
+indentOf = maybe "" id . minimumOn Text.length
+    . map (Text.takeWhile Char.isSpace) . filter (not . blankLine)
+
+lineCmt :: Cmt -> Text -> Text -> Text
+lineCmt cmt indent line
+    | Text.null post = indent <> cmt
+    | otherwise = indent <> cmt <> " " <> post
+    where
+    -- I don't use pre because the line may be blank.
+    (_, post) = Text.splitAt (Text.length indent) line
+
+uncmtLines :: Cmt -> [Text] -> [Text]
+uncmtLines cmt = map (uncmtLine cmt)
+
+uncmtLine :: Cmt -> Text -> Text
+uncmtLine cmt line = let s = pre <> post in if blankLine s then "" else s
+    where
+    (pre, withCmt) = Text.breakOn cmt line
+    post = dropSpace (Text.drop (Text.length cmt) withCmt)
+    dropSpace t = if " " `Text.isPrefixOf` t then Text.drop 1 t else t
+
+blankLine :: Text -> Bool
+blankLine = Text.all Char.isSpace
+
+-- * util
+
+spanEnd :: (a -> Bool) -> [a] -> ([a], [a])
+spanEnd f xs = (reverse post, reverse pre)
+    where (pre, post) = span f (reverse xs)
+
+minimumOn :: (Ord k) => (a -> k) -> [a] -> Maybe a
+minimumOn _ [] = Nothing
+minimumOn key xs = Just (List.foldl1' f xs)
+    where f low x = if key x < key low then x else low
+
+
+-- * tests
+
+{-
+test_cmtOrUncmt = do
+    print $ ignoreBlankLines (const ["yohoho"]) " \n\n  hi\n \n \n\n"
+
+t0 = lineCmt "--" "  " "  hello"
+t1 = lineCmt "--" "  " "    "
+t2 = indentOf ["  ho", " hi"]
+
+tlines :: [Text]
+tlines = ["  ho", "", "  hi"]
+
+tcmt :: Text
+tcmt = "--"
+
+t3 = cmtOrUncmt "--" tlines
+t4 = cmtOrUncmt "--" ["  --hi", "-- there"]
+-}