LIB/GTK: add move menuitem and implement creating new files

src/IO/Error.hs

@@ -63,6 +63,7 @@ data FmIOException = FileDoesNotExist String
                    | NotAFile String
                    | NotADir String
                    | DestinationInSource String String
+                   | FileDoesExist String
                    | DirDoesExist String
                    | IsSymlink String
   deriving (Show, Typeable)
@@ -87,6 +88,11 @@ throwNotAbsolute :: FilePath -> IO ()
 throwNotAbsolute fp = unless (isAbsolute fp) (throw $ PathNotAbsolute fp)
 
 
+throwFileDoesExist :: FilePath -> IO ()
+throwFileDoesExist fp =
+  whenM (doesFileExist fp) (throw $ FileDoesExist fp)
+
+
 throwDirDoesExist :: FilePath -> IO ()
 throwDirDoesExist fp =
   whenM (doesDirectoryExist fp) (throw $ DirDoesExist fp)

src/IO/File.hs

@@ -75,6 +75,19 @@ import System.Posix.Files
   , readSymbolicLink
   , fileAccess
   , getFileStatus
+  , groupReadMode
+  , groupWriteMode
+  , otherReadMode
+  , otherWriteMode
+  , ownerReadMode
+  , ownerWriteMode
+  , touchFile
+  , unionFileModes
+  )
+import System.Posix.IO
+  (
+    closeFd
+  , createFile
   )
 import System.Process
   (
@@ -374,3 +387,27 @@ executeFile :: AnchoredFile FileInfo  -- ^ program
 executeFile prog@(_ :/ RegFile {}) args
   = Just <$> spawnProcess (fullPath prog) args
 executeFile _ _      = return Nothing
+
+
+
+
+    ---------------------
+    --[ File Creation ]--
+    ---------------------
+
+
+createFile :: AnchoredFile FileInfo -> FileName -> IO ()
+createFile _ "."  = return ()
+createFile _ ".." = return ()
+createFile (SADir td) fn = do
+  let fullp = fullPath td </> fn
+  throwFileDoesExist fullp
+  let uf   = unionFileModes
+      mode =      ownerWriteMode
+             `uf` ownerReadMode
+             `uf` groupWriteMode
+             `uf` groupReadMode
+             `uf` otherWriteMode
+             `uf` otherReadMode
+  fd <- System.Posix.IO.createFile fullp mode
+  closeFd fd