plugins/carddav: add page to create new contact

4 files changed, 98 insertions, 1 deletions

diff --git a/plugins/carddav/plugin.go b/plugins/carddav/plugin.go
index 947a754..5afdde2 100644
--- a/plugins/carddav/plugin.go
+++ b/plugins/carddav/plugin.go
@@ -4,6 +4,7 @@ import (
 	"fmt"
 	"net/http"
 	"net/url"
+	"strings"
 
 	"git.sr.ht/~emersion/koushin"
 	koushinbase "git.sr.ht/~emersion/koushin/plugins/base"
@@ -107,6 +108,12 @@ func newPlugin(srv *koushin.Server) (koushin.Plugin, error) {
 
 	registerRoutes(p)
 
+	p.TemplateFuncs(map[string]interface{}{
+		"join": func(l []string, sep string) string {
+			return strings.Join(l, sep)
+		},
+	})
+
 	p.Inject("compose.html", func(ctx *koushin.Context, _data koushin.RenderData) error {
 		data := _data.(*koushinbase.ComposeRenderData)
 
diff --git a/plugins/carddav/public/address-book.html b/plugins/carddav/public/address-book.html
index f521564..3c31017 100644
--- a/plugins/carddav/public/address-book.html
+++ b/plugins/carddav/public/address-book.html
@@ -3,7 +3,7 @@
 <h1>koushin</h1>
 
 <p>
-  <a href="/">Back</a>
+  <a href="/">Back</a> · <a href="/contacts/create">Create new contact</a>
 </p>
 
 <h2>Contacts: {{.AddressBook.Name}}</h2>
diff --git a/plugins/carddav/public/update-address-object.html b/plugins/carddav/public/update-address-object.html
new file mode 100644
index 0000000..b0ab20f
--- /dev/null
+++ b/plugins/carddav/public/update-address-object.html
@@ -0,0 +1,23 @@
+{{template "head.html"}}
+
+<h1>koushin</h1>
+
+<p>
+  <a href="/contacts">Back</a>
+</p>
+
+<h2>Edit contact</h2>
+
+<form method="post">
+  <label for="fn">Name:</label>
+  <input type="text" name="fn" id="fn" value="{{.Card.PreferredValue "FN"}}">
+  <br>
+
+  <label for="emails">E-mails:</label>
+  <input type="email" name="emails" id="emails" multiple value="{{join (.Card.Values "EMAIL") ", "}}">
+  <br>
+
+  <input type="submit" value="Save">
+</form>
+
+{{template "foot.html"}}
diff --git a/plugins/carddav/routes.go b/plugins/carddav/routes.go
index 45a6237..e05f32d 100644
--- a/plugins/carddav/routes.go
+++ b/plugins/carddav/routes.go
@@ -3,10 +3,13 @@ package koushincarddav
 import (
 	"fmt"
 	"net/http"
+	"path"
+	"strings"
 
 	"git.sr.ht/~emersion/koushin"
 	"github.com/emersion/go-vcard"
 	"github.com/emersion/go-webdav/carddav"
+	"github.com/google/uuid"
 )
 
 type AddressBookRenderData struct {
@@ -21,6 +24,12 @@ type AddressObjectRenderData struct {
 	AddressObject *carddav.AddressObject
 }
 
+type UpdateAddressObjectRenderData struct {
+	koushin.BaseRenderData
+	AddressObject *carddav.AddressObject // nil if creating a new contact
+	Card vcard.Card
+}
+
 func registerRoutes(p *plugin) {
 	p.GET("/contacts", func(ctx *koushin.Context) error {
 		queryText := ctx.QueryParam("query")
@@ -107,4 +116,62 @@ func registerRoutes(p *plugin) {
 			AddressObject:  addr,
 		})
 	})
+
+	createContact := func(ctx *koushin.Context) error {
+		card := make(vcard.Card)
+
+		if ctx.Request().Method == "POST" {
+			fn := ctx.FormValue("fn")
+			emails := strings.Split(ctx.FormValue("emails"), ",")
+
+			// Some CardDAV servers (e.g. Google) don't support vCard 4.0
+			// TODO: get supported formats from server, use highest version
+			if _, ok := card[vcard.FieldVersion]; !ok {
+				card.SetValue(vcard.FieldVersion, "3.0")
+			}
+
+			if field := card.Preferred(vcard.FieldFormattedName); field != nil {
+				field.Value = fn
+			} else {
+				card.Add(vcard.FieldFormattedName, &vcard.Field{Value: fn})
+			}
+
+			// TODO: Google wants a "N" field, fails with a 400 otherwise
+
+			// TODO: params are lost here
+			var emailFields []*vcard.Field
+			for _, email := range emails {
+				emailFields = append(emailFields, &vcard.Field{
+					Value: strings.TrimSpace(email),
+				})
+			}
+			card[vcard.FieldEmail] = emailFields
+
+			id := uuid.New()
+			if _, ok := card[vcard.FieldUID]; !ok {
+				card.SetValue(vcard.FieldUID, id.URN())
+			}
+
+			c, addressBook, err := p.clientWithAddressBook(ctx.Session)
+			if err != nil {
+				return err
+			}
+
+			p := path.Join(addressBook.Path, id.String() + ".vcf")
+			_, err = c.PutAddressObject(p, card)
+			if err != nil {
+				return fmt.Errorf("failed to put address object: %v", err)
+			}
+			// TODO: check if the returned AddressObject's path matches, if not
+			// fetch the new UID (the server may mutate it)
+
+			return ctx.Redirect(http.StatusFound, "/contacts/" + card.Value(vcard.FieldUID))
+		}
+
+		return ctx.Render(http.StatusOK, "update-address-object.html", &UpdateAddressObjectRenderData{
+			BaseRenderData: *koushin.NewBaseRenderData(ctx),
+		})
+	}
+	p.GET("/contacts/create", createContact)
+	p.POST("/contacts/create", createContact)
 }