From 5726e6be1662360f5ebaa4adfc40455a199c6665 Mon Sep 17 00:00:00 2001
From: David Convent <davconvent@bruxxel.org>
Date: Tue, 29 Jan 2013 16:04:34 +0100
Subject: [PATCH] Added field for thesaurus keywords. That field will be used
 content types schema (like in dms document)

---
 src/collective/dms/thesaurus/configure.zcml   |  1 +
 src/collective/dms/thesaurus/field.py         | 55 +++++++++++++++++++
 .../thesaurus/thesaurus-keywords-display.pt   | 20 +++++++
 3 files changed, 76 insertions(+)
 create mode 100644 src/collective/dms/thesaurus/field.py
 create mode 100644 src/collective/dms/thesaurus/thesaurus-keywords-display.pt

diff --git a/src/collective/dms/thesaurus/configure.zcml b/src/collective/dms/thesaurus/configure.zcml
index 7e12d0b..f6e8939 100644
--- a/src/collective/dms/thesaurus/configure.zcml
+++ b/src/collective/dms/thesaurus/configure.zcml
@@ -24,6 +24,7 @@
   <adapter factory=".relatedkeywords.RelatedThesaurusKeywordsFieldWidget" />
   <adapter factory=".broaderkeywords.BroaderThesaurusKeywordsFieldWidget" />
   <adapter factory=".equivalences.ThesaurusKeywordEquivalencesFieldWidget" />
+  <adapter factory=".field.ThesaurusKeywordsFieldWidget" />
 
   <adapter
     name="SearchableText"
diff --git a/src/collective/dms/thesaurus/field.py b/src/collective/dms/thesaurus/field.py
new file mode 100644
index 0000000..693fe73
--- /dev/null
+++ b/src/collective/dms/thesaurus/field.py
@@ -0,0 +1,55 @@
+from zope.interface import implements, implementer
+from zope.component import adapter
+
+from z3c.form.interfaces import IFormLayer, IFieldWidget
+from z3c.form.widget import FieldWidget
+from z3c.relationfield.interfaces import IRelationList
+from z3c.relationfield.schema import RelationChoice, RelationList
+
+from plone.formwidget.contenttree.widget import MultiContentTreeWidget
+from plone.formwidget.contenttree.utils import closest_content
+from plone.formwidget.contenttree import ObjPathSourceBinder
+
+from Products.Five.browser.pagetemplatefile import ViewPageTemplateFile
+
+class IThesaurusKeywords(IRelationList):
+    """"""
+
+class ThesaurusKeywordsWidget(MultiContentTreeWidget):
+    display_template = ViewPageTemplateFile('thesaurus-keywords-display.pt')
+
+    def __init__(self, request):
+        super(ThesaurusKeywordsWidget, self).__init__(request)
+
+    def terms(self):
+        return [ x for x in self.value ]
+
+
+@adapter(IThesaurusKeywords, IFormLayer)
+@implementer(IFieldWidget)
+def ThesaurusKeywordsFieldWidget(field, request):
+    return FieldWidget(field, ThesaurusKeywordsWidget(request))
+
+class ThesaurusPathSourceBinder(ObjPathSourceBinder):
+
+    def __call__(self, context):
+        selectable_filter = self.selectable_filter
+        selectable_filter.criteria['portal_type'] = ('dmskeyword',)
+        #thesaurus_path = {'query': '/'.join(context.getPhysicalPath()[:-1])}
+        #selectable_filter.criteria['path'] = thesaurus_path
+        return self.path_source(
+            closest_content(context),
+            selectable_filter=selectable_filter,
+            navigation_tree_query=self.navigation_tree_query)
+
+
+class ThesaurusKeywords(RelationList):
+    implements(IThesaurusKeywords)
+
+    def __init__(self, **kwargs):
+        RelationList.__init__(self,
+                        value_type=RelationChoice(
+                            title=u'',
+                            source=ThesaurusPathSourceBinder()),
+                        **kwargs)
+
diff --git a/src/collective/dms/thesaurus/thesaurus-keywords-display.pt b/src/collective/dms/thesaurus/thesaurus-keywords-display.pt
new file mode 100644
index 0000000..66fcffe
--- /dev/null
+++ b/src/collective/dms/thesaurus/thesaurus-keywords-display.pt
@@ -0,0 +1,20 @@
+<ul id="" class=""
+      tal:condition="view/terms"
+      tal:attributes="id view/id;
+                      class view/klass;
+                      style view/style;
+                      title view/title;
+                      lang view/lang;
+                      onclick view/onclick;
+                      ondblclick view/ondblclick;
+                      onmousedown view/onmousedown;
+                      onmouseup view/onmouseup;
+                      onmouseover view/onmouseover;
+                      onmousemove view/onmousemove;
+                      onmouseout view/onmouseout;
+                      onkeypress view/onkeypress;
+                      onkeydown view/onkeydown;
+                      onkeyup view/onkeyup"><li
+    tal:repeat="item view/terms"
+      ><span tal:replace="item/title" /></li></ul
+><em tal:condition="not:view/value">(nothing)</em>