haskell-pdf-presenter 0.2.4 → 0.2.5

raw patch · 4 files changed

+9/−5 lines, 4 files

Files

• CHANGELOG +3/−0
• HaskellPdfPresenter.glade +1/−1
• HaskellPdfPresenter.hs +3/−2
• haskell-pdf-presenter.cabal +2/−2

@@ -1,6 +1,9 @@ CHANGELOG for Haskell Pdf Presenter ======================================== +0.2.5+	* Fixed missing minus sign in negative times+ 0.2.4 	* Change keybinding for changing monitors from "S" to "M" 	* Fix positioning errors in the Glade GUI file

@@ -8,7 +8,7 @@     <property name="destroy_with_parent">True</property>     <property name="type_hint">dialog</property>     <property name="program_name">Haskell Pdf Presenter</property>-    <property name="version">Version 0.2.4</property>+    <property name="version">Version 0.2.5</property>     <property name="copyright" translatable="yes">Copyright 2012-2013, Michael D. Adams</property>     <property name="website">http://michaeldadams.org</property>     <property name="website_label" translatable="yes">http://michaeldadams.org</property>

@@ -69,7 +69,7 @@  , pageAdjustment :: Adjustment } -header = "Haskell Pdf Presenter, version 0.2.4, <http://michaeldadams.org/projects/haskell-pdf-presenter>\nUsage: hpdfp [OPTION...] file"+header = "Haskell Pdf Presenter, version 0.2.5, <http://michaeldadams.org/projects/haskell-pdf-presenter>\nUsage: hpdfp [OPTION...] file" options = [    Option "h?" ["help"] (NoArg (const $ putStr (usageInfo header options) >> exitSuccess)) "Display usage message"  , Option "s" ["slide"] (argOption initSlide "slide" maybeRead "INT") "Initial slide number (default 1)"@@ -876,7 +876,8 @@  -- Format time for display to user.  Format: H:MM:SS or -H:MM:SS formatTime :: Integer -> String-formatTime microseconds = printf "%d:%02d:%02d" hours (abs minutes) (abs seconds) where+formatTime microseconds = printf "%s%d:%02d:%02d" sign (abs hours) (abs minutes) (abs seconds) where+  sign = if microseconds < 0 then "-" else ""   ((((hours, minutes), seconds), _tenths), _) = id // 60 // 60 // 10 // (100*1000) $ microseconds   (//) f base val = (f q, r) where (q, r) = val `quotRem` base 

@@ -4,7 +4,7 @@ -- The package version. See the Haskell package versioning policy -- (http://www.haskell.org/haskellwiki/Package_versioning_policy) for -- standards guiding when and how versions should be incremented.-Version:             0.2.4+Version:             0.2.5  -- A short (one-line) description of the package. Synopsis:            Tool for presenting PDF-based presentations.@@ -76,4 +76,4 @@ Source-repository this   Type: mercurial   Location: http://michaeldadams.org/repos-pub/hg/haskell-pdf-presenter/-  Tag: v0.2.4+  Tag: v0.2.5