Expose OPML import in UI

There is importing from OPML functionality already in
the core, this together with some small changes in the
gpodder-ui-qml main.py exposes this functionality in
the UI.

qml/PodcastsPage.qml

@@ -60,6 +60,11 @@ Page {
                 onClicked: pgst.loadPage('Subscribe.qml');
             }
 
+            MenuItem {
+                text: 'Add from OPML'
+                onClicked: pgst.loadPage('SubscribeFromOPML.qml');
+            }
+
             MenuItem {
                 text: 'Discover new podcasts'
                 onClicked: pgst.loadPage('DirectorySelectionDialog.qml');

qml/SubscribeFromOPML.qml

@@ -0,0 +1,50 @@
+
+/**
+ *
+ * gPodder QML UI Reference Implementation
+ * Copyright (c) 2013, Thomas Perl <m@thp.io>
+ *
+ * Permission to use, copy, modify, and/or distribute this software for any
+ * purpose with or without fee is hereby granted, provided that the above
+ * copyright notice and this permission notice appear in all copies.
+ *
+ * THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES WITH
+ * REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF MERCHANTABILITY
+ * AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY SPECIAL, DIRECT,
+ * INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING FROM
+ * LOSS OF USE, DATA OR PROFITS, WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR
+ * OTHER TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR
+ * PERFORMANCE OF THIS SOFTWARE.
+ *
+ */
+
+import QtQuick 2.0
+import Sailfish.Silica 1.0
+
+Dialog {
+    id: subscribe
+    allowedOrientations: Orientation.All
+
+    canAccept: input.text != ''
+    onAccepted: py.call('main.import_', [input.text]);
+
+    Column {
+        anchors.fill: parent
+
+        DialogHeader {
+            title: 'Add subscription'
+            acceptText: 'Subscribe'
+        }
+
+        TextField {
+            id: input
+            width: parent.width
+            label: 'OPML URL'
+            placeholderText: label
+            focus: enabled
+            enabled: subscribe.status == PageStatus.Active
+            inputMethodHints: Qt.ImhUrlCharactersOnly | Qt.ImhNoPredictiveText | Qt.ImhNoAutoUppercase
+            EnterKey.onClicked: subscribe.accept()
+        }
+    }
+}