--- a/CypressAbstractReaderWriter.st	Mon Sep 17 22:08:34 2012 +0000
+++ b/CypressAbstractReaderWriter.st	Tue Sep 18 10:40:17 2012 +0000
@@ -35,6 +35,81 @@
     "Modified: / 17-09-2012 / 17:20:16 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
+!CypressAbstractReaderWriter methodsFor:'defaults-filenames'!
+
+defaultFileNameForClassExtensionsNamed:classname 
+    ^ ((classname copyReplaceAll:$: with:$_) , '.' 
+        , self defaultFileSuffixForExtensions).
+
+    "Created: / 17-09-2012 / 18:27:51 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+defaultFileNameForClassNamed:cclass 
+    ^ ((cclass name copyReplaceAll:$: with:$_) , '.' 
+        , self defaultFileSuffixForClass).
+
+    "Created: / 17-09-2012 / 18:11:39 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+defaultFileNameForClassPackageNamed:aCypressPackage 
+    ^ ((aCypressPackage name copy)
+        replaceAll:$: with:$_;
+        replaceAll:$/ with:$_;
+        yourself) , '.' 
+        , self defaultFileSuffixForPackage
+
+    "Created: / 17-09-2012 / 17:32:49 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+defaultFileNameForComment
+    ^ repository properties at:'commentFile' ifAbsent:[ 'README.md' ]
+
+    "Created: / 17-09-2012 / 18:07:25 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+defaultFileNameForMethodNamed:selector 
+
+    ^ (Dictionary new)
+        at:$/ put:'__quo__';
+        "/Add more"    
+        at: selector
+            ifAbsent:[ ((selector copyReplaceAll:$: with:$.) , '.st') ]
+
+    "Created: / 17-09-2012 / 18:22:07 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+defaultFileNameForProperties
+    ^ 'properties.ston'
+
+    "Created: / 17-09-2012 / 17:38:39 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+! !
+
+!CypressAbstractReaderWriter methodsFor:'defaults-suffixes'!
+
+defaultFileSuffixForClass
+    ^ 'class'
+
+    "Created: / 17-09-2012 / 18:09:33 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+defaultFileSuffixForExtensions
+    ^ 'extension'
+
+    "Created: / 17-09-2012 / 18:09:51 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+defaultFileSuffixForMethod
+    ^ 'st'
+
+    "Created: / 18-09-2012 / 10:02:43 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+defaultFileSuffixForPackage
+    ^ 'package'
+
+    "Created: / 17-09-2012 / 18:09:39 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+! !
+
 !CypressAbstractReaderWriter class methodsFor:'documentation'!
 
 version_SVN