Some fairly minimal changes

.config.d/05-tatoeba.el

@@ -0,0 +1,68 @@
+;;; 05-tatoeba.el --- Tatoeba utilities. -*- no-byte-compile: t; lexical-binding: t; -*-
+
+;;; Description:
+;; This file contains my utilities for the tatoeba website.
+
+;;; Code:
+
+(defun tatoeba--request-word-data (word)
+  "Gets raw senteces from the tatoeba api"
+  (request-response-data
+   (request
+     (format
+      "https://tatoeba.org/eng/api_v0/search?from=deu&has_audio=&list=&native=&original=&orphans=no&query=%s&sort=relevance&sort_reverse=&tags=&to=eng&trans_filter=limit&trans_has_audio=&trans_link=&trans_orphan=no&trans_to=&trans_unapproved=no&trans_user=&unapproved=no&user=&word_count_max=&word_count_min=2"
+      word)
+     :parser 'json-read
+     :sync t)))
+
+(defun tatoeba--get-eng-translations (translations)
+  "Converts the translations list into the (id . translation) form"
+  (let* ((translation-list (append
+                            (aref translations 0)
+                            (aref translations 1)
+                            '())))
+    (mapcar
+     (lambda (x)
+       (if (equal (cdr (assoc 'lang x))
+                  "eng")
+           (cons
+            (cdr (assoc 'id x))
+            (cdr (assoc 'text x)))))
+     translation-list)))
+
+(defun tatoeba--get-sentence-list (word)
+  "Requests sentences and transforms them into an easy to use form."
+  (let* ((raw-data (tatoeba--request-word-data
+                    word))
+         (results (cdadr raw-data)))
+    (mapcar
+     (lambda (x)
+       (list
+        (assoc 'id x)
+        (cons 'user (cdadr (assoc 'user x)))
+        (assoc 'text x)
+        (cons 'translations
+              (tatoeba--get-eng-translations
+               (cdr (assoc 'translations x))))))
+     results)))
+
+(defun tatoeba-get-capture-template ()
+  "Returns a template for the org-capture"
+  (let* ((word (read-string "Word: "))
+         (sentence-list (tatoeba--get-sentence-list
+                         word)))
+    (with-output-to-string
+      (princ
+       (format "\n** %s\n" word))
+      (dolist (sentence sentence-list)
+        (if (not (eq (cdadr
+                      (assoc 'translations sentence))
+                     nil))
+            (princ
+             (format
+              "*** %s\n%s\n\n"
+              (cdr (assoc 'text sentence))
+              (cdadr
+               (assoc 'translations sentence)))))))))
+
+;;; 05-tatoeba.el ends here