all: intial code import

ContactBook.package/Contact.class/README.md

@@ -0,0 +1,17 @@
+I represent a contact.
+
+I know about my name and email.
+
+Collaborators:
+- Veit Heller <veit@veitheller.de
+
+Public API and Key Messages
+
+- there are accessors for both fullname and email.
+- you can create new instances using the newNamed:email: message.
+
+Internal Representation and Key Implementation Points.
+
+    Instance Variables
+	email: a String
+	fullname: a String

ContactBook.package/Contact.class/class/newNamed.email..st

@@ -0,0 +1,6 @@
+instance creation
+newNamed: aNameString email: anEmailString
+	^ self new
+		fullname: aNameString;
+		email: anEmailString;
+		yourself

ContactBook.package/Contact.class/instance/email..st

@@ -0,0 +1,3 @@
+accessing
+email: aString 
+	email := aString

ContactBook.package/Contact.class/instance/email.st

@@ -0,0 +1,3 @@
+accessing
+email
+	^ email

ContactBook.package/Contact.class/instance/fullname..st

@@ -0,0 +1,3 @@
+accessing
+fullname: aString 
+	fullname := aString trimBoth

ContactBook.package/Contact.class/instance/fullname.st

@@ -0,0 +1,3 @@
+accessing
+fullname
+	^ fullname

ContactBook.package/Contact.class/instance/gravatarUrl.st

@@ -0,0 +1,3 @@
+accessing
+gravatarUrl
+	^ 'http://www.gravatar.com/avatar/', (MD5 hashMessage: email trimBoth asLowercase) hex, '.jpg'

ContactBook.package/Contact.class/instance/printOn..st

@@ -0,0 +1,7 @@
+printing
+printOn: aStream
+	aStream
+		nextPutAll: self fullname;
+		nextPutAll: ' <';
+		nextPutAll: self email;
+		nextPutAll: '>'

ContactBook.package/Contact.class/properties.json

@@ -0,0 +1,15 @@
+{
+	"category" : "ContactBook",
+	"classinstvars" : [
+		 ],
+	"classvars" : [
+		 ],
+	"commentStamp" : "VeitHeller 5/12/2018 14:05",
+	"instvars" : [
+		"fullname",
+		"email" ],
+	"name" : "Contact",
+	"pools" : [
+		 ],
+	"super" : "Object",
+	"type" : "normal" }