From e14f777c33294daac87f7123f25ba3f96b9f2194 Mon Sep 17 00:00:00 2001 From: Stuart Terrett Date: Sat, 3 Nov 2018 23:14:42 -0400 Subject: [PATCH] Initial Commit --- .gitignore | 22 ++++++++++++ LICENSE | 7 ++++ README.md | 4 +++ Setup.hs | 2 ++ app/Main.hs | 6 ++++ escape-from-itunes.cabal | 44 +++++++++++++++++++++++ src/Data/String/Strip.hs | 6 ++++ stack.yaml | 67 +++++++++++++++++++++++++++++++++++ test/Data/String/StripSpec.hs | 19 ++++++++++ test/Spec.hs | 1 + 10 files changed, 178 insertions(+) create mode 100644 .gitignore create mode 100644 LICENSE create mode 100644 README.md create mode 100644 Setup.hs create mode 100644 app/Main.hs create mode 100644 escape-from-itunes.cabal create mode 100644 src/Data/String/Strip.hs create mode 100644 stack.yaml create mode 100644 test/Data/String/StripSpec.hs create mode 100644 test/Spec.hs diff --git a/.gitignore b/.gitignore new file mode 100644 index 0000000..82f3a88 --- /dev/null +++ b/.gitignore @@ -0,0 +1,22 @@ +dist +dist-* +cabal-dev +*.o +*.hi +*.chi +*.chs.h +*.dyn_o +*.dyn_hi +.hpc +.hsenv +.cabal-sandbox/ +cabal.sandbox.config +*.prof +*.aux +*.hp +*.eventlog +.stack-work/ +cabal.project.local +cabal.project.local~ +.HTF/ +.ghc.environment.* diff --git a/LICENSE b/LICENSE new file mode 100644 index 0000000..63e1f47 --- /dev/null +++ b/LICENSE @@ -0,0 +1,7 @@ +Copyright 2018 Stuart Terrett + +Permission is hereby granted, free of charge, to any person obtaining a copy of this software and associated documentation files (the "Software"), to deal in the Software without restriction, including without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to the following conditions: + +The above copyright notice and this permission notice shall be included in all copies or substantial portions of the Software. + +THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. diff --git a/README.md b/README.md new file mode 100644 index 0000000..d10178f --- /dev/null +++ b/README.md @@ -0,0 +1,4 @@ +# escape-from-itunes + +Copy an iTunes music library to a folder hiererchy defined by attributes on the +files' ID3 tags diff --git a/Setup.hs b/Setup.hs new file mode 100644 index 0000000..9a994af --- /dev/null +++ b/Setup.hs @@ -0,0 +1,2 @@ +import Distribution.Simple +main = defaultMain diff --git a/app/Main.hs b/app/Main.hs new file mode 100644 index 0000000..10421fb --- /dev/null +++ b/app/Main.hs @@ -0,0 +1,6 @@ +module Main where + +import Data.String.Strip + +main :: IO () +main = interact strip diff --git a/escape-from-itunes.cabal b/escape-from-itunes.cabal new file mode 100644 index 0000000..5886d44 --- /dev/null +++ b/escape-from-itunes.cabal @@ -0,0 +1,44 @@ +name: escape-from-itunes +version: 0.1.0.0 +synopsis: Copy iTunes Music Library to sane file hierarchy +description: Copy iTunes Music Library to sane file hierarchy +homepage: https://github.com/shterrett/escape-from-itunes#readme +license: MIT +license-file: LICENSE +author: Stuart Terrett +maintainer: shterrett@gmail.com +copyright: Copyright 2018 Stuart Terrett +category: terminal +build-type: Simple +extra-source-files: README.md +cabal-version: >=1.10 + +library + hs-source-dirs: src + exposed-modules: Data.String.Strip + build-depends: base >= 4.7 && < 5 + , idiii == 0.1.3.3 + default-language: Haskell2010 + +executable escape-from-itunes + hs-source-dirs: app + main-is: Main.hs + ghc-options: -threaded -rtsopts -with-rtsopts=-N + build-depends: base + , escape-from-itunes + default-language: Haskell2010 + +test-suite escape-from-itunes-test + type: exitcode-stdio-1.0 + hs-source-dirs: test + main-is: Spec.hs + build-depends: base + , escape-from-itunes + , hspec + , QuickCheck + ghc-options: -threaded -rtsopts -with-rtsopts=-N + default-language: Haskell2010 + +source-repository head + type: git + location: https://github.com/shterrett/escape-from-itunes diff --git a/src/Data/String/Strip.hs b/src/Data/String/Strip.hs new file mode 100644 index 0000000..a8d5273 --- /dev/null +++ b/src/Data/String/Strip.hs @@ -0,0 +1,6 @@ +module Data.String.Strip (strip) where + +import Data.Char + +strip :: String -> String +strip = dropWhile isSpace . reverse . dropWhile isSpace . reverse diff --git a/stack.yaml b/stack.yaml new file mode 100644 index 0000000..eb0da62 --- /dev/null +++ b/stack.yaml @@ -0,0 +1,67 @@ +# This file was automatically generated by 'stack init' +# +# Some commonly used options have been documented as comments in this file. +# For advanced use and comprehensive documentation of the format, please see: +# https://docs.haskellstack.org/en/stable/yaml_configuration/ + +# Resolver to choose a 'specific' stackage snapshot or a compiler version. +# A snapshot resolver dictates the compiler version and the set of packages +# to be used for project dependencies. For example: +# +# resolver: lts-3.5 +# resolver: nightly-2015-09-21 +# resolver: ghc-7.10.2 +# resolver: ghcjs-0.1.0_ghc-7.10.2 +# +# The location of a snapshot can be provided as a file or url. Stack assumes +# a snapshot provided as a file might change, whereas a url resource does not. +# +# resolver: ./custom-snapshot.yaml +# resolver: https://example.com/snapshots/2018-01-01.yaml +resolver: lts-12.16 + +# User packages to be built. +# Various formats can be used as shown in the example below. +# +# packages: +# - some-directory +# - https://example.com/foo/bar/baz-0.0.2.tar.gz +# - location: +# git: https://github.com/commercialhaskell/stack.git +# commit: e7b331f14bcffb8367cd58fbfc8b40ec7642100a +# - location: https://github.com/commercialhaskell/stack/commit/e7b331f14bcffb8367cd58fbfc8b40ec7642100a +# subdirs: +# - auto-update +# - wai +packages: +- . +# Dependency packages to be pulled from upstream that are not in the resolver +# using the same syntax as the packages field. +# (e.g., acme-missiles-0.3) +extra-deps: [ + idiii-0.1.3.3 +] + +# Override default flag values for local packages and extra-deps +# flags: {} + +# Extra package databases containing global packages +# extra-package-dbs: [] + +# Control whether we use the GHC we find on the path +# system-ghc: true +# +# Require a specific version of stack, using version ranges +# require-stack-version: -any # Default +# require-stack-version: ">=1.7" +# +# Override the architecture used by stack, especially useful on Windows +# arch: i386 +# arch: x86_64 +# +# Extra directories used by stack for building +# extra-include-dirs: [/path/to/dir] +# extra-lib-dirs: [/path/to/dir] +# +# Allow a newer minor version of GHC than the snapshot specifies +# compiler-check: newer-minor diff --git a/test/Data/String/StripSpec.hs b/test/Data/String/StripSpec.hs new file mode 100644 index 0000000..3ecb689 --- /dev/null +++ b/test/Data/String/StripSpec.hs @@ -0,0 +1,19 @@ +module Data.String.StripSpec (main, spec) where + +import Test.Hspec +import Test.QuickCheck + +import Data.String.Strip + +-- `main` is here so that this module can be run from GHCi on its own. It is +-- not needed for automatic spec discovery. +main :: IO () +main = hspec spec + +spec :: Spec +spec = do + describe "strip" $ do + it "removes leading and trailing whitespace" $ do + strip "\t foo bar\n" `shouldBe` "foo bar" + it "is idempotent" $ property $ + \str -> strip str === strip (strip str) diff --git a/test/Spec.hs b/test/Spec.hs new file mode 100644 index 0000000..a824f8c --- /dev/null +++ b/test/Spec.hs @@ -0,0 +1 @@ +{-# OPTIONS_GHC -F -pgmF hspec-discover #-}