Comments (3)
fixed with 71b6e01
from org-sql.
Similar error persists on the latest version while pulling from db.
Debugger entered--Lisp error: (wrong-type-argument stringp nil)
string-match("^\\*" nil nil)
s-matches-p("^\\*" nil)
org-ml-from-string(section nil)
(cons (car it) (org-ml-from-string 'section (car (cdr it))))
(closure ((ol-out . "20b78819e69deb900a48867f01733bf3\36\34\35") (it-out . "20b78819e69deb900a48867f01733bf3\36\34\35") (rc . 0) (--dash-source-243-- . "20b78819e69deb900a48867f01733bf3\36\34\35") (input0 0 . "20b78819e69deb900a48867f01733bf3\36\34\35") (fp-out . "/tmp/huge.org\03620b78819e69deb900a48867f01733bf3\35") (it-out . "/tmp/huge.org\03620b78819e69deb900a48867f01733bf3\35") (rc . 0) (--dash-source-242-- . "/tmp/huge.org\03620b78819e69deb900a48867f01733bf3\35") (input0 0 . "/tmp/huge.org\03620b78819e69deb900a48867f01733bf3\35") (hl-out . "0\03620b78819e69deb900a48867f01733bf3\0361\36a\36\34\0361\36\34\36\34\0360\0360\036123\n\36\34\36\34\36\34\36\34\36\34\36\34\36\34\36\34\36\34\36\34\35") (it-out . "0\03620b78819e69deb900a48867f01733bf3\0361\36a\36\34\0361\36\34\36\34\0360\0360\036123\n\36\34\36\34\36\34\36\34\36\34\36\34\36\34\36\34\36\34\36\34\35") (rc . 0) (--dash-source-241-- . "0\03620b78819e69deb900a48867f01733bf3\0361\36a\36\34\0361\36\34\36\34\0360\0360\036123\n\36\34\36\34\36\34\36\34\36\34\36\34\36\34\36\34\36\34\36\34\35") (input0 0 . "0\03620b78819e69deb900a48867f01733bf3\0361\36a\36\34\0361\36\34\36\34\0360\0360\036123\n\36\34\36\34\36\34\36\34\36\34\36\34\36\34\36\34\36\34\36\34\35") (ol-deserializers (lambda (it) (unless (equal it "\34") (identity it))) (lambda (it) (unless (equal it "\34") (identity it)))) (hl-deserializers (lambda (it) (unless (equal it "\34") (-map (lambda (it) (unless (equal it "\34") (string-to-number it))) (s-split org-sql--unit-sep it)))) (lambda (it) (unless (equal it "\34") (identity it))) (lambda (it) (unless (equal it "\34") (string-to-number it))) (lambda (it) (unless (equal it "\34") (identity it))) (lambda (it) (unless (equal it "\34") (identity it))) (lambda (it) (unless (equal it "\34") (string-to-number it))) (lambda (it) (unless (equal it "\34") (string-to-number it))) (lambda (it) (unless (equal it "\34") (identity it))) (lambda (it) (unless (equal it "\34") (pcase it ("1" 1) ("0" 0)))) (lambda (it) (unless (equal it "\34") (pcase it ("1" 1) ("0" 0)))) (lambda (it) (unless (equal it "\34") (identity it))) (lambda (it) (unless (equal it "\34") (-map (lambda (it) (unless (equal it "\34") (identity it))) (s-split org-sql--unit-sep it)))) (lambda (it) (unless (equal it "\34") (-map (lambda (it) (unless (equal it "\34") (identity it))) (s-split org-sql--unit-sep it)))) (lambda (it) (unless (equal it "\34") (-map (lambda (it) (unless (equal it "\34") (identity it))) (s-split org-sql--unit-sep it)))) (lambda (it) (unless (equal it "\34") (identity it))) (lambda (it) (unless (equal it "\34") (identity it))) (lambda (it) (unless (equal it "\34") (identity it))) (lambda (it) (unless (equal it "\34") (-map (lambda (it) (unless (equal it "\34") (identity it))) (s-split org-sql--unit-sep it)))) (lambda (it) (unless (equal it "\34") (-map (lambda (it) (unless (equal it "\34") (string-to-number it))) (s-split org-sql--unit-sep it)))) (lambda (it) (unless (equal it "\34") (-map (lambda (it) (unless (equal it "\34") (string-to-number it))) (s-split org-sql--unit-sep it)))) (lambda (it) (unless (equal it "\34") (-map (lambda (it) (unless (equal it "\34") (identity it))) (s-split org-sql--unit-sep it))))) (ol-query . "SELECT outline_hash, outline_preamble from outlines") (fp-query . "SELECT file_path, outline_hash from file_metadata") (hl-query . "WITH RECURSIVE paths AS (SELECT hc.headline_id AS parent_id, CAST(h.headline_index AS TEXT) AS ipath FROM headline_closures hc JOIN headlines h ON h.headline_id = hc.parent_id WHERE hc.depth = 0 AND h.level = 1 UNION ALL SELECT hc.headline_id, p.ipath||'\37'||h.headline_index FROM headline_closures hc JOIN headlines h ON h.headline_id = hc.headline_id JOIN paths p ON p.parent_id = hc.parent_id WHERE hc.depth = 1),_logbooks AS (SELECT headline_id, GROUP_CONCAT(CASE WHEN note IS NULL THEN header ELSE header||'\\\\\n'||note END, '\37') AS entries FROM logbook_entries GROUP BY headline_id),_clocks AS (SELECT headline_id, GROUP_CONCAT(CAST(time_start AS TEXT), '\37') AS clock_starts, GROUP_CONCAT(CAST(time_end AS TEXT), '\37') AS clock_ends, GROUP_CONCAT(clock_note, '\37') AS clock_notes FROM clocks GROUP BY headline_id),_headline_tags AS (SELECT headline_id, GROUP_CONCAT(tag, '\37') AS tags FROM headline_tags GROUP BY headline_id),_scheduled AS (SELECT t.headline_id, t.raw_value FROM timestamps t JOIN planning_entries p ON p.timestamp_id = t.timestamp_id WHERE p.planning_type = 'scheduled'),_deadline AS (SELECT t.headline_id, t.raw_value FROM timestamps t JOIN planning_entries p ON p.timestamp_id = t.timestamp_id WHERE p.planning_type = 'deadline'),_closed AS (SELECT t.headline_id, t.raw_value FROM timestamps t JOIN planning_entries p ON p.timestamp_id = t.timestamp_id WHERE p.planning_type = 'closed'),_headline_properties AS (SELECT h.headline_id, GROUP_CONCAT(p.key_text, '\37') AS pkeys, GROUP_CONCAT(p.val_text, '\37') AS pvals FROM headline_properties h JOIN properties p ON p.property_id = h.property_id GROUP BY h.headline_id) SELECT p.ipath,h.outline_hash,h.headline_id,h.headline_text,h.keyword,h.level,h.effort,h.priority,h.is_archived,h.is_commented,h.content,t.tags,hp.pkeys,hp.pvals,sch.raw_value,dead.raw_value,cls.raw_value,lb.entries,c.clock_starts,c.clock_ends,c.clock_notes FROM paths p JOIN headlines h ON p.parent_id = h.headline_id LEFT JOIN _headline_properties hp ON hp.headline_id = h.headline_id LEFT JOIN _headline_tags t ON t.headline_id = h.headline_id LEFT JOIN _scheduled sch ON sch.headline_id = h.headline_id LEFT JOIN _deadline dead ON dead.headline_id = h.headline_id LEFT JOIN _closed cls ON cls.headline_id = h.headline_id LEFT JOIN _logbooks lb ON lb.headline_id = h.headline_id LEFT JOIN _clocks c ON c.headline_id = h.headline_id ORDER BY h.outline_hash, p.ipath;") (fmt . "%s") (--cl-compare-lists-- closure #23 (A B) (let ((input0 A) (input1 B)) (let* ((--dash-source-239-- input0) (a (car-safe (prog1 --dash-source-239-- (setq --dash-source-239-- (cdr --dash-source-239--))))) (as --dash-source-239--) (--dash-source-240-- input1) (b (car-safe (prog1 --dash-source-240-- (setq --dash-source-240-- (cdr --dash-source-240--))))) (bs --dash-source-240--)) (cond ((and (not a) (not b)) (error "If this happens, the list has duplicates")) ((null a) t) ((null b) nil) ((= a b) (funcall --cl-compare-lists-- as bs)) (t (< a b)))))) t) (it) (ignore it) (cons (car it) (org-ml-from-string 'section (car (cdr it)))))(("20b78819e69deb900a48867f01733bf3" nil))
mapcar((closure ((ol-out . "20b78819e69deb900a48867f01733bf3\36\34\35") (it-out . "20b78819e69deb900a48867f01733bf3\36\34\35") (rc . 0) (--dash-source-243-- . "20b78819e69deb900a48867f01733bf3\36\34\35") (input0 0 . "20b78819e69deb900a48867f01733bf3\36\34\35") (fp-out . "/tmp/huge.org\03620b78819e69deb900a48867f01733bf3\35") (it-out . "/tmp/huge.org\03620b78819e69deb900a48867f01733bf3\35") (rc . 0) (--dash-source-242-- . "/tmp/huge.org\03620b78819e69deb900a48867f01733bf3\35") (input0 0 . "/tmp/huge.org\03620b78819e69deb900a48867f01733bf3\35") (hl-out . "0\03620b78819e69deb900a48867f01733bf3\0361\36a\36\34\0361\36\34\36\34\0360\0360\036123\n\36\34\36\34\36\34\36\34\36\34\36\34\36\34\36\34\36\34\36\34\35") (it-out . "0\03620b78819e69deb900a48867f01733bf3\0361\36a\36\34\0361\36\34\36\34\0360\0360\036123\n\36\34\36\34\36\34\36\34\36\34\36\34\36\34\36\34\36\34\36\34\35") (rc . 0) (--dash-source-241-- . "0\03620b78819e69deb900a48867f01733bf3\0361\36a\36\34\0361\36\34\36\34\0360\0360\036123\n\36\34\36\34\36\34\36\34\36\34\36\34\36\34\36\34\36\34\36\34\35") (input0 0 . "0\03620b78819e69deb900a48867f01733bf3\0361\36a\36\34\0361\36\34\36\34\0360\0360\036123\n\36\34\36\34\36\34\36\34\36\34\36\34\36\34\36\34\36\34\36\34\35") (ol-deserializers (lambda (it) (unless (equal it "\34") (identity it))) (lambda (it) (unless (equal it "\34") (identity it)))) (hl-deserializers (lambda (it) (unless (equal it "\34") (-map (lambda (it) (unless (equal it "\34") (string-to-number it))) (s-split org-sql--unit-sep it)))) (lambda (it) (unless (equal it "\34") (identity it))) (lambda (it) (unless (equal it "\34") (string-to-number it))) (lambda (it) (unless (equal it "\34") (identity it))) (lambda (it) (unless (equal it "\34") (identity it))) (lambda (it) (unless (equal it "\34") (string-to-number it))) (lambda (it) (unless (equal it "\34") (string-to-number it))) (lambda (it) (unless (equal it "\34") (identity it))) (lambda (it) (unless (equal it "\34") (pcase it ("1" 1) ("0" 0)))) (lambda (it) (unless (equal it "\34") (pcase it ("1" 1) ("0" 0)))) (lambda (it) (unless (equal it "\34") (identity it))) (lambda (it) (unless (equal it "\34") (-map (lambda (it) (unless (equal it "\34") (identity it))) (s-split org-sql--unit-sep it)))) (lambda (it) (unless (equal it "\34") (-map (lambda (it) (unless (equal it "\34") (identity it))) (s-split org-sql--unit-sep it)))) (lambda (it) (unless (equal it "\34") (-map (lambda (it) (unless (equal it "\34") (identity it))) (s-split org-sql--unit-sep it)))) (lambda (it) (unless (equal it "\34") (identity it))) (lambda (it) (unless (equal it "\34") (identity it))) (lambda (it) (unless (equal it "\34") (identity it))) (lambda (it) (unless (equal it "\34") (-map (lambda (it) (unless (equal it "\34") (identity it))) (s-split org-sql--unit-sep it)))) (lambda (it) (unless (equal it "\34") (-map (lambda (it) (unless (equal it "\34") (string-to-number it))) (s-split org-sql--unit-sep it)))) (lambda (it) (unless (equal it "\34") (-map (lambda (it) (unless (equal it "\34") (string-to-number it))) (s-split org-sql--unit-sep it)))) (lambda (it) (unless (equal it "\34") (-map (lambda (it) (unless (equal it "\34") (identity it))) (s-split org-sql--unit-sep it))))) (ol-query . "SELECT outline_hash, outline_preamble from outlines") (fp-query . "SELECT file_path, outline_hash from file_metadata") (hl-query . "WITH RECURSIVE paths AS (SELECT hc.headline_id AS parent_id, CAST(h.headline_index AS TEXT) AS ipath FROM headline_closures hc JOIN headlines h ON h.headline_id = hc.parent_id WHERE hc.depth = 0 AND h.level = 1 UNION ALL SELECT hc.headline_id, p.ipath||'\37'||h.headline_index FROM headline_closures hc JOIN headlines h ON h.headline_id = hc.headline_id JOIN paths p ON p.parent_id = hc.parent_id WHERE hc.depth = 1),_logbooks AS (SELECT headline_id, GROUP_CONCAT(CASE WHEN note IS NULL THEN header ELSE header||'\\\\\n'||note END, '\37') AS entries FROM logbook_entries GROUP BY headline_id),_clocks AS (SELECT headline_id, GROUP_CONCAT(CAST(time_start AS TEXT), '\37') AS clock_starts, GROUP_CONCAT(CAST(time_end AS TEXT), '\37') AS clock_ends, GROUP_CONCAT(clock_note, '\37') AS clock_notes FROM clocks GROUP BY headline_id),_headline_tags AS (SELECT headline_id, GROUP_CONCAT(tag, '\37') AS tags FROM headline_tags GROUP BY headline_id),_scheduled AS (SELECT t.headline_id, t.raw_value FROM timestamps t JOIN planning_entries p ON p.timestamp_id = t.timestamp_id WHERE p.planning_type = 'scheduled'),_deadline AS (SELECT t.headline_id, t.raw_value FROM timestamps t JOIN planning_entries p ON p.timestamp_id = t.timestamp_id WHERE p.planning_type = 'deadline'),_closed AS (SELECT t.headline_id, t.raw_value FROM timestamps t JOIN planning_entries p ON p.timestamp_id = t.timestamp_id WHERE p.planning_type = 'closed'),_headline_properties AS (SELECT h.headline_id, GROUP_CONCAT(p.key_text, '\37') AS pkeys, GROUP_CONCAT(p.val_text, '\37') AS pvals FROM headline_properties h JOIN properties p ON p.property_id = h.property_id GROUP BY h.headline_id) SELECT p.ipath,h.outline_hash,h.headline_id,h.headline_text,h.keyword,h.level,h.effort,h.priority,h.is_archived,h.is_commented,h.content,t.tags,hp.pkeys,hp.pvals,sch.raw_value,dead.raw_value,cls.raw_value,lb.entries,c.clock_starts,c.clock_ends,c.clock_notes FROM paths p JOIN headlines h ON p.parent_id = h.headline_id LEFT JOIN _headline_properties hp ON hp.headline_id = h.headline_id LEFT JOIN _headline_tags t ON t.headline_id = h.headline_id LEFT JOIN _scheduled sch ON sch.headline_id = h.headline_id LEFT JOIN _deadline dead ON dead.headline_id = h.headline_id LEFT JOIN _closed cls ON cls.headline_id = h.headline_id LEFT JOIN _logbooks lb ON lb.headline_id = h.headline_id LEFT JOIN _clocks c ON c.headline_id = h.headline_id ORDER BY h.outline_hash, p.ipath;") (fmt . "%s") (--cl-compare-lists-- closure #24 (A B) (let ((input0 A) (input1 B)) (let* ((--dash-source-239-- input0) (a (car-safe (prog1 --dash-source-239-- (setq --dash-source-239-- (cdr --dash-source-239--))))) (as --dash-source-239--) (--dash-source-240-- input1) (b (car-safe (prog1 --dash-source-240-- (setq --dash-source-240-- (cdr --dash-source-240--))))) (bs --dash-source-240--)) (cond ((and (not a) (not b)) (error "If this happens, the list has duplicates")) ((null a) t) ((null b) nil) ((= a b) (funcall --cl-compare-lists-- as bs)) (t (< a b)))))) t) (it) (ignore it) (cons (car it) (org-ml-from-string 'section (car (cdr it))))) (("20b78819e69deb900a48867f01733bf3" nil)))
(let ((trees (mapcar #'(lambda (it) (ignore it) (cons (car it) (org-sql--aggregate-headlines 1 (-map #'org-sql--row-to-headline (-sort #'(lambda (it other) (funcall --cl-compare-lists-- (nth 0 it) (nth 0 other))) (cdr it)))))) (nreverse (-map #'(lambda (n) (cons (car n) (nreverse (cdr n)))) (let ((acc nil)) (let ((list (mapcar #'(lambda (it) (ignore it) (let ((result nil) (list1 hl-deserializers) (list2 it)) (while (and list1 list2) (let ((it (car list1)) (other (car list2))) (setq result (cons (funcall it other) result)) (setq list1 (cdr list1)) (setq list2 (cdr list2)))) (nreverse result))) (org-sql--parse-output-to-list org-sql-db-config hl-out))) (i 0) it it-index) (ignore it it-index) (while list (setq it (car-safe (prog1 list (setq list (cdr list)))) it-index i i (1+ i)) (setq acc (let* ((k (nth 1 it)) (grp (assoc k acc))) (if grp (setcdr grp (cons it (cdr grp))) (setq acc (cons (list k it) acc))) acc)))) acc))))) (preambles (mapcar #'(lambda (it) (ignore it) (cons (car it) (org-ml-from-string 'section (car (cdr it))))) (mapcar #'(lambda (it) (ignore it) (let ((result nil) (list1 ol-deserializers) (list2 it)) (while (and list1 list2) (let ((it (car list1)) (other (car list2))) (setq result (cons (funcall it other) result)) (setq list1 (cdr list1)) (setq list2 (cdr list2)))) (nreverse result))) (org-sql--parse-output-to-list org-sql-db-config ol-out))))) (mapcar #'(lambda (it) (ignore it) (let* ((--dash-source-244-- it) (fp (car-safe (prog1 --dash-source-244-- (setq --dash-source-244-- (cdr --dash-source-244--))))) (hash (car --dash-source-244--)) (headlines (cdr (let (needle) (let ((list trees) (i 0) elt it it-index) (ignore it it-index) (while (and list (setq elt (car-safe (prog1 list (setq list (cdr list)))) it elt it-index i) (or (not (equal (car it) hash)) (ignore (setq needle it)))) (setq it elt it-index i i (1+ i)))) needle))) (preamble (cdr (let (needle) (let ((list preambles) (i 0) elt it it-index) (ignore it it-index) (while (and list (setq elt (car-safe (prog1 list (setq list (cdr list)))) it elt it-index i) (or (not (equal (car it) hash)) (ignore (setq needle it)))) (setq it elt it-index i i (1+ i)))) needle)))) (cons fp (org-sql--build-org-data preamble headlines)))) (org-sql--parse-output-to-list org-sql-db-config fp-out)))
(let ((ol-out it-out)) (let ((trees (mapcar #'(lambda (it) (ignore it) (cons (car it) (org-sql--aggregate-headlines 1 (-map #'org-sql--row-to-headline (-sort #'(lambda (it other) (funcall --cl-compare-lists-- (nth 0 it) (nth 0 other))) (cdr it)))))) (nreverse (-map #'(lambda (n) (cons (car n) (nreverse (cdr n)))) (let ((acc nil)) (let ((list (mapcar #'(lambda (it) (ignore it) (let ((result nil) (list1 hl-deserializers) (list2 it)) (while (and list1 list2) (let ((it (car list1)) (other (car list2))) (setq result (cons (funcall it other) result)) (setq list1 (cdr list1)) (setq list2 (cdr list2)))) (nreverse result))) (org-sql--parse-output-to-list org-sql-db-config hl-out))) (i 0) it it-index) (ignore it it-index) (while list (setq it (car-safe (prog1 list (setq list (cdr list)))) it-index i i (1+ i)) (setq acc (let* ((k (nth 1 it)) (grp (assoc k acc))) (if grp (setcdr grp (cons it (cdr grp))) (setq acc (cons (list k it) acc))) acc)))) acc))))) (preambles (mapcar #'(lambda (it) (ignore it) (cons (car it) (org-ml-from-string 'section (car (cdr it))))) (mapcar #'(lambda (it) (ignore it) (let ((result nil) (list1 ol-deserializers) (list2 it)) (while (and list1 list2) (let ((it (car list1)) (other (car list2))) (setq result (cons (funcall it other) result)) (setq list1 (cdr list1)) (setq list2 (cdr list2)))) (nreverse result))) (org-sql--parse-output-to-list org-sql-db-config ol-out))))) (mapcar #'(lambda (it) (ignore it) (let* ((--dash-source-244-- it) (fp (car-safe (prog1 --dash-source-244-- (setq --dash-source-244-- (cdr --dash-source-244--))))) (hash (car --dash-source-244--)) (headlines (cdr (let (needle) (let ((list trees) (i 0) elt it it-index) (ignore it it-index) (while (and list (setq elt (car-safe (prog1 list (setq list (cdr list)))) it elt it-index i) (or (not (equal (car it) hash)) (ignore (setq needle it)))) (setq it elt it-index i i (1+ i)))) needle))) (preamble (cdr (let (needle) (let ((list preambles) (i 0) elt it it-index) (ignore it it-index) (while (and list (setq elt (car-safe (prog1 list (setq list (cdr list)))) it elt it-index i) (or (not (equal (car it) hash)) (ignore (setq needle it)))) (setq it elt it-index i i (1+ i)))) needle)))) (cons fp (org-sql--build-org-data preamble headlines)))) (org-sql--parse-output-to-list org-sql-db-config fp-out))))
(progn (let ((ol-out it-out)) (let ((trees (mapcar #'(lambda (it) (ignore it) (cons (car it) (org-sql--aggregate-headlines 1 (-map #'org-sql--row-to-headline (-sort #'(lambda (it other) (funcall --cl-compare-lists-- (nth 0 it) (nth 0 other))) (cdr it)))))) (nreverse (-map #'(lambda (n) (cons (car n) (nreverse (cdr n)))) (let ((acc nil)) (let ((list (mapcar #'(lambda (it) (ignore it) (let ((result nil) (list1 hl-deserializers) (list2 it)) (while (and list1 list2) (let ((it (car list1)) (other (car list2))) (setq result (cons (funcall it other) result)) (setq list1 (cdr list1)) (setq list2 (cdr list2)))) (nreverse result))) (org-sql--parse-output-to-list org-sql-db-config hl-out))) (i 0) it it-index) (ignore it it-index) (while list (setq it (car-safe (prog1 list (setq list (cdr list)))) it-index i i (1+ i)) (setq acc (let* ((k (nth 1 it)) (grp (assoc k acc))) (if grp (setcdr grp (cons it (cdr grp))) (setq acc (cons (list k it) acc))) acc)))) acc))))) (preambles (mapcar #'(lambda (it) (ignore it) (cons (car it) (org-ml-from-string 'section (car (cdr it))))) (mapcar #'(lambda (it) (ignore it) (let ((result nil) (list1 ol-deserializers) (list2 it)) (while (and list1 list2) (let ((it (car list1)) (other (car list2))) (setq result (cons (funcall it other) result)) (setq list1 (cdr list1)) (setq list2 (cdr list2)))) (nreverse result))) (org-sql--parse-output-to-list org-sql-db-config ol-out))))) (mapcar #'(lambda (it) (ignore it) (let* ((--dash-source-244-- it) (fp (car-safe (prog1 --dash-source-244-- (setq --dash-source-244-- (cdr --dash-source-244--))))) (hash (car --dash-source-244--)) (headlines (cdr (let (needle) (let ((list trees) (i 0) elt it it-index) (ignore it it-index) (while (and list (setq elt (car-safe (prog1 list (setq list (cdr list)))) it elt it-index i) (or (not (equal (car it) hash)) (ignore (setq needle it)))) (setq it elt it-index i i (1+ i)))) needle))) (preamble (cdr (let (needle) (let ((list preambles) (i 0) elt it it-index) (ignore it it-index) (while (and list (setq elt (car-safe (prog1 list (setq list (cdr list)))) it elt it-index i) (or (not (equal (car it) hash)) (ignore (setq needle it)))) (setq it elt it-index i i (1+ i)))) needle)))) (cons fp (org-sql--build-org-data preamble headlines)))) (org-sql--parse-output-to-list org-sql-db-config fp-out)))))
(if (= 0 rc) (progn (let ((ol-out it-out)) (let ((trees (mapcar #'(lambda (it) (ignore it) (cons (car it) (org-sql--aggregate-headlines 1 (-map #'org-sql--row-to-headline (-sort #'(lambda (it other) (funcall --cl-compare-lists-- (nth 0 it) (nth 0 other))) (cdr it)))))) (nreverse (-map #'(lambda (n) (cons (car n) (nreverse (cdr n)))) (let ((acc nil)) (let ((list (mapcar #'(lambda (it) (ignore it) (let ((result nil) (list1 hl-deserializers) (list2 it)) (while (and list1 list2) (let ((it (car list1)) (other (car list2))) (setq result (cons (funcall it other) result)) (setq list1 (cdr list1)) (setq list2 (cdr list2)))) (nreverse result))) (org-sql--parse-output-to-list org-sql-db-config hl-out))) (i 0) it it-index) (ignore it it-index) (while list (setq it (car-safe (prog1 list (setq list (cdr list)))) it-index i i (1+ i)) (setq acc (let* ((k (nth 1 it)) (grp (assoc k acc))) (if grp (setcdr grp (cons it (cdr grp))) (setq acc (cons (list k it) acc))) acc)))) acc))))) (preambles (mapcar #'(lambda (it) (ignore it) (cons (car it) (org-ml-from-string 'section (car (cdr it))))) (mapcar #'(lambda (it) (ignore it) (let ((result nil) (list1 ol-deserializers) (list2 it)) (while (and list1 list2) (let ((it (car list1)) (other (car list2))) (setq result (cons (funcall it other) result)) (setq list1 (cdr list1)) (setq list2 (cdr list2)))) (nreverse result))) (org-sql--parse-output-to-list org-sql-db-config ol-out))))) (mapcar #'(lambda (it) (ignore it) (let* ((--dash-source-244-- it) (fp (car-safe (prog1 --dash-source-244-- (setq --dash-source-244-- (cdr --dash-source-244--))))) (hash (car --dash-source-244--)) (headlines (cdr (let (needle) (let ((list trees) (i 0) elt it it-index) (ignore it it-index) (while (and list (setq elt (car-safe (prog1 list (setq list (cdr list)))) it elt it-index i) (or (not (equal (car it) hash)) (ignore (setq needle it)))) (setq it elt it-index i i (1+ i)))) needle))) (preamble (cdr (let (needle) (let ((list preambles) (i 0) elt it it-index) (ignore it it-index) (while (and list (setq elt (car-safe (prog1 list (setq list (cdr list)))) it elt it-index i) (or (not (equal (car it) hash)) (ignore (setq needle it)))) (setq it elt it-index i i (1+ i)))) needle)))) (cons fp (org-sql--build-org-data preamble headlines)))) (org-sql--parse-output-to-list org-sql-db-config fp-out))))) (error it-out))
(let* ((--dash-source-243-- input0) (rc (car-safe (prog1 --dash-source-243-- (setq --dash-source-243-- (cdr --dash-source-243--))))) (it-out --dash-source-243--)) (if (= 0 rc) (progn (let ((ol-out it-out)) (let ((trees (mapcar #'(lambda (it) (ignore it) (cons (car it) (org-sql--aggregate-headlines 1 (-map #'org-sql--row-to-headline (-sort #'(lambda (it other) (funcall --cl-compare-lists-- (nth 0 it) (nth 0 other))) (cdr it)))))) (nreverse (-map #'(lambda (n) (cons (car n) (nreverse (cdr n)))) (let ((acc nil)) (let ((list (mapcar #'(lambda (it) (ignore it) (let ((result nil) (list1 hl-deserializers) (list2 it)) (while (and list1 list2) (let ((it (car list1)) (other (car list2))) (setq result (cons (funcall it other) result)) (setq list1 (cdr list1)) (setq list2 (cdr list2)))) (nreverse result))) (org-sql--parse-output-to-list org-sql-db-config hl-out))) (i 0) it it-index) (ignore it it-index) (while list (setq it (car-safe (prog1 list (setq list (cdr list)))) it-index i i (1+ i)) (setq acc (let* ((k (nth 1 it)) (grp (assoc k acc))) (if grp (setcdr grp (cons it (cdr grp))) (setq acc (cons (list k it) acc))) acc)))) acc))))) (preambles (mapcar #'(lambda (it) (ignore it) (cons (car it) (org-ml-from-string 'section (car (cdr it))))) (mapcar #'(lambda (it) (ignore it) (let ((result nil) (list1 ol-deserializers) (list2 it)) (while (and list1 list2) (let ((it (car list1)) (other (car list2))) (setq result (cons (funcall it other) result)) (setq list1 (cdr list1)) (setq list2 (cdr list2)))) (nreverse result))) (org-sql--parse-output-to-list org-sql-db-config ol-out))))) (mapcar #'(lambda (it) (ignore it) (let* ((--dash-source-244-- it) (fp (car-safe (prog1 --dash-source-244-- (setq --dash-source-244-- (cdr --dash-source-244--))))) (hash (car --dash-source-244--)) (headlines (cdr (let (needle) (let ((list trees) (i 0) elt it it-index) (ignore it it-index) (while (and list (setq elt (car-safe (prog1 list (setq list (cdr list)))) it elt it-index i) (or (not (equal (car it) hash)) (ignore (setq needle it)))) (setq it elt it-index i i (1+ i)))) needle))) (preamble (cdr (let (needle) (let ((list preambles) (i 0) elt it it-index) (ignore it it-index) (while (and list (setq elt (car-safe (prog1 list (setq list (cdr list)))) it elt it-index i) (or (not (equal (car it) hash)) (ignore (setq needle it)))) (setq it elt it-index i i (1+ i)))) needle)))) (cons fp (org-sql--build-org-data preamble headlines)))) (org-sql--parse-output-to-list org-sql-db-config fp-out))))) (error it-out)))
(let ((input0 (org-sql-send-sql ol-query))) (let* ((--dash-source-243-- input0) (rc (car-safe (prog1 --dash-source-243-- (setq --dash-source-243-- (cdr --dash-source-243--))))) (it-out --dash-source-243--)) (if (= 0 rc) (progn (let ((ol-out it-out)) (let ((trees (mapcar #'(lambda (it) (ignore it) (cons (car it) (org-sql--aggregate-headlines 1 (-map #'org-sql--row-to-headline (-sort #'(lambda (it other) (funcall --cl-compare-lists-- (nth 0 it) (nth 0 other))) (cdr it)))))) (nreverse (-map #'(lambda (n) (cons (car n) (nreverse (cdr n)))) (let ((acc nil)) (let ((list (mapcar #'(lambda (it) (ignore it) (let ((result nil) (list1 hl-deserializers) (list2 it)) (while (and list1 list2) (let ((it (car list1)) (other (car list2))) (setq result (cons (funcall it other) result)) (setq list1 (cdr list1)) (setq list2 (cdr list2)))) (nreverse result))) (org-sql--parse-output-to-list org-sql-db-config hl-out))) (i 0) it it-index) (ignore it it-index) (while list (setq it (car-safe (prog1 list (setq list (cdr list)))) it-index i i (1+ i)) (setq acc (let* ((k (nth 1 it)) (grp (assoc k acc))) (if grp (setcdr grp (cons it (cdr grp))) (setq acc (cons (list k it) acc))) acc)))) acc))))) (preambles (mapcar #'(lambda (it) (ignore it) (cons (car it) (org-ml-from-string 'section (car (cdr it))))) (mapcar #'(lambda (it) (ignore it) (let ((result nil) (list1 ol-deserializers) (list2 it)) (while (and list1 list2) (let ((it (car list1)) (other (car list2))) (setq result (cons (funcall it other) result)) (setq list1 (cdr list1)) (setq list2 (cdr list2)))) (nreverse result))) (org-sql--parse-output-to-list org-sql-db-config ol-out))))) (mapcar #'(lambda (it) (ignore it) (let* ((--dash-source-244-- it) (fp (car-safe (prog1 --dash-source-244-- (setq --dash-source-244-- (cdr --dash-source-244--))))) (hash (car --dash-source-244--)) (headlines (cdr (let (needle) (let ((list trees) (i 0) elt it it-index) (ignore it it-index) (while (and list (setq elt (car-safe (prog1 list (setq list (cdr list)))) it elt it-index i) (or (not (equal (car it) hash)) (ignore (setq needle it)))) (setq it elt it-index i i (1+ i)))) needle))) (preamble (cdr (let (needle) (let ((list preambles) (i 0) elt it it-index) (ignore it it-index) (while (and list (setq elt (car-safe (prog1 list (setq list (cdr list)))) it elt it-index i) (or (not (equal (car it) hash)) (ignore (setq needle it)))) (setq it elt it-index i i (1+ i)))) needle)))) (cons fp (org-sql--build-org-data preamble headlines)))) (org-sql--parse-output-to-list org-sql-db-config fp-out))))) (error it-out))))
(let ((fp-out it-out)) (let ((input0 (org-sql-send-sql ol-query))) (let* ((--dash-source-243-- input0) (rc (car-safe (prog1 --dash-source-243-- (setq --dash-source-243-- (cdr --dash-source-243--))))) (it-out --dash-source-243--)) (if (= 0 rc) (progn (let ((ol-out it-out)) (let ((trees (mapcar #'(lambda (it) (ignore it) (cons (car it) (org-sql--aggregate-headlines 1 (-map #'org-sql--row-to-headline (-sort #'(lambda (it other) (funcall --cl-compare-lists-- (nth 0 it) (nth 0 other))) (cdr it)))))) (nreverse (-map #'(lambda (n) (cons (car n) (nreverse (cdr n)))) (let ((acc nil)) (let ((list (mapcar #'(lambda (it) (ignore it) (let ((result nil) (list1 hl-deserializers) (list2 it)) (while (and list1 list2) (let ((it (car list1)) (other (car list2))) (setq result (cons (funcall it other) result)) (setq list1 (cdr list1)) (setq list2 (cdr list2)))) (nreverse result))) (org-sql--parse-output-to-list org-sql-db-config hl-out))) (i 0) it it-index) (ignore it it-index) (while list (setq it (car-safe (prog1 list (setq list (cdr list)))) it-index i i (1+ i)) (setq acc (let* ((k (nth 1 it)) (grp (assoc k acc))) (if grp (setcdr grp (cons it (cdr grp))) (setq acc (cons (list k it) acc))) acc)))) acc))))) (preambles (mapcar #'(lambda (it) (ignore it) (cons (car it) (org-ml-from-string 'section (car (cdr it))))) (mapcar #'(lambda (it) (ignore it) (let ((result nil) (list1 ol-deserializers) (list2 it)) (while (and list1 list2) (let ((it (car list1)) (other (car list2))) (setq result (cons (funcall it other) result)) (setq list1 (cdr list1)) (setq list2 (cdr list2)))) (nreverse result))) (org-sql--parse-output-to-list org-sql-db-config ol-out))))) (mapcar #'(lambda (it) (ignore it) (let* ((--dash-source-244-- it) (fp (car-safe (prog1 --dash-source-244-- (setq --dash-source-244-- (cdr --dash-source-244--))))) (hash (car --dash-source-244--)) (headlines (cdr (let (needle) (let ((list trees) (i 0) elt it it-index) (ignore it it-index) (while (and list (setq elt (car-safe (prog1 list (setq list (cdr list)))) it elt it-index i) (or (not (equal (car it) hash)) (ignore (setq needle it)))) (setq it elt it-index i i (1+ i)))) needle))) (preamble (cdr (let (needle) (let ((list preambles) (i 0) elt it it-index) (ignore it it-index) (while (and list (setq elt (car-safe (prog1 list (setq list (cdr list)))) it elt it-index i) (or (not (equal (car it) hash)) (ignore (setq needle it)))) (setq it elt it-index i i (1+ i)))) needle)))) (cons fp (org-sql--build-org-data preamble headlines)))) (org-sql--parse-output-to-list org-sql-db-config fp-out))))) (error it-out)))))
(progn (let ((fp-out it-out)) (let ((input0 (org-sql-send-sql ol-query))) (let* ((--dash-source-243-- input0) (rc (car-safe (prog1 --dash-source-243-- (setq --dash-source-243-- (cdr --dash-source-243--))))) (it-out --dash-source-243--)) (if (= 0 rc) (progn (let ((ol-out it-out)) (let ((trees (mapcar #'(lambda (it) (ignore it) (cons (car it) (org-sql--aggregate-headlines 1 (-map #'org-sql--row-to-headline (-sort #'(lambda (it other) (funcall --cl-compare-lists-- (nth 0 it) (nth 0 other))) (cdr it)))))) (nreverse (-map #'(lambda (n) (cons (car n) (nreverse (cdr n)))) (let ((acc nil)) (let ((list (mapcar #'(lambda (it) (ignore it) (let ((result nil) (list1 hl-deserializers) (list2 it)) (while (and list1 list2) (let ((it (car list1)) (other (car list2))) (setq result (cons (funcall it other) result)) (setq list1 (cdr list1)) (setq list2 (cdr list2)))) (nreverse result))) (org-sql--parse-output-to-list org-sql-db-config hl-out))) (i 0) it it-index) (ignore it it-index) (while list (setq it (car-safe (prog1 list (setq list (cdr list)))) it-index i i (1+ i)) (setq acc (let* ((k (nth 1 it)) (grp (assoc k acc))) (if grp (setcdr grp (cons it (cdr grp))) (setq acc (cons (list k it) acc))) acc)))) acc))))) (preambles (mapcar #'(lambda (it) (ignore it) (cons (car it) (org-ml-from-string 'section (car (cdr it))))) (mapcar #'(lambda (it) (ignore it) (let ((result nil) (list1 ol-deserializers) (list2 it)) (while (and list1 list2) (let ((it (car list1)) (other (car list2))) (setq result (cons (funcall it other) result)) (setq list1 (cdr list1)) (setq list2 (cdr list2)))) (nreverse result))) (org-sql--parse-output-to-list org-sql-db-config ol-out))))) (mapcar #'(lambda (it) (ignore it) (let* ((--dash-source-244-- it) (fp (car-safe (prog1 --dash-source-244-- (setq --dash-source-244-- (cdr --dash-source-244--))))) (hash (car --dash-source-244--)) (headlines (cdr (let (needle) (let ((list trees) (i 0) elt it it-index) (ignore it it-index) (while (and list (setq elt (car-safe (prog1 list (setq list (cdr list)))) it elt it-index i) (or (not (equal (car it) hash)) (ignore (setq needle it)))) (setq it elt it-index i i (1+ i)))) needle))) (preamble (cdr (let (needle) (let ((list preambles) (i 0) elt it it-index) (ignore it it-index) (while (and list (setq elt (car-safe (prog1 list (setq list (cdr list)))) it elt it-index i) (or (not (equal (car it) hash)) (ignore (setq needle it)))) (setq it elt it-index i i (1+ i)))) needle)))) (cons fp (org-sql--build-org-data preamble headlines)))) (org-sql--parse-output-to-list org-sql-db-config fp-out))))) (error it-out))))))
(if (= 0 rc) (progn (let ((fp-out it-out)) (let ((input0 (org-sql-send-sql ol-query))) (let* ((--dash-source-243-- input0) (rc (car-safe (prog1 --dash-source-243-- (setq --dash-source-243-- (cdr --dash-source-243--))))) (it-out --dash-source-243--)) (if (= 0 rc) (progn (let ((ol-out it-out)) (let ((trees (mapcar #'(lambda (it) (ignore it) (cons (car it) (org-sql--aggregate-headlines 1 (-map #'org-sql--row-to-headline (-sort #'(lambda (it other) (funcall --cl-compare-lists-- (nth 0 it) (nth 0 other))) (cdr it)))))) (nreverse (-map #'(lambda (n) (cons (car n) (nreverse (cdr n)))) (let ((acc nil)) (let ((list (mapcar #'(lambda (it) (ignore it) (let ((result nil) (list1 hl-deserializers) (list2 it)) (while (and list1 list2) (let ((it (car list1)) (other (car list2))) (setq result (cons (funcall it other) result)) (setq list1 (cdr list1)) (setq list2 (cdr list2)))) (nreverse result))) (org-sql--parse-output-to-list org-sql-db-config hl-out))) (i 0) it it-index) (ignore it it-index) (while list (setq it (car-safe (prog1 list (setq list (cdr list)))) it-index i i (1+ i)) (setq acc (let* ((k (nth 1 it)) (grp (assoc k acc))) (if grp (setcdr grp (cons it (cdr grp))) (setq acc (cons (list k it) acc))) acc)))) acc))))) (preambles (mapcar #'(lambda (it) (ignore it) (cons (car it) (org-ml-from-string 'section (car (cdr it))))) (mapcar #'(lambda (it) (ignore it) (let ((result nil) (list1 ol-deserializers) (list2 it)) (while (and list1 list2) (let ((it (car list1)) (other (car list2))) (setq result (cons (funcall it other) result)) (setq list1 (cdr list1)) (setq list2 (cdr list2)))) (nreverse result))) (org-sql--parse-output-to-list org-sql-db-config ol-out))))) (mapcar #'(lambda (it) (ignore it) (let* ((--dash-source-244-- it) (fp (car-safe (prog1 --dash-source-244-- (setq --dash-source-244-- (cdr --dash-source-244--))))) (hash (car --dash-source-244--)) (headlines (cdr (let (needle) (let ((list trees) (i 0) elt it it-index) (ignore it it-index) (while (and list (setq elt (car-safe (prog1 list (setq list (cdr list)))) it elt it-index i) (or (not (equal (car it) hash)) (ignore (setq needle it)))) (setq it elt it-index i i (1+ i)))) needle))) (preamble (cdr (let (needle) (let ((list preambles) (i 0) elt it it-index) (ignore it it-index) (while (and list (setq elt (car-safe (prog1 list (setq list (cdr list)))) it elt it-index i) (or (not (equal (car it) hash)) (ignore (setq needle it)))) (setq it elt it-index i i (1+ i)))) needle)))) (cons fp (org-sql--build-org-data preamble headlines)))) (org-sql--parse-output-to-list org-sql-db-config fp-out))))) (error it-out)))))) (error it-out))
(let* ((--dash-source-242-- input0) (rc (car-safe (prog1 --dash-source-242-- (setq --dash-source-242-- (cdr --dash-source-242--))))) (it-out --dash-source-242--)) (if (= 0 rc) (progn (let ((fp-out it-out)) (let ((input0 (org-sql-send-sql ol-query))) (let* ((--dash-source-243-- input0) (rc (car-safe (prog1 --dash-source-243-- (setq --dash-source-243-- (cdr --dash-source-243--))))) (it-out --dash-source-243--)) (if (= 0 rc) (progn (let ((ol-out it-out)) (let ((trees (mapcar #'(lambda (it) (ignore it) (cons (car it) (org-sql--aggregate-headlines 1 (-map #'org-sql--row-to-headline (-sort #'(lambda (it other) (funcall --cl-compare-lists-- (nth 0 it) (nth 0 other))) (cdr it)))))) (nreverse (-map #'(lambda (n) (cons (car n) (nreverse (cdr n)))) (let ((acc nil)) (let ((list (mapcar #'(lambda (it) (ignore it) (let ((result nil) (list1 hl-deserializers) (list2 it)) (while (and list1 list2) (let ((it (car list1)) (other (car list2))) (setq result (cons (funcall it other) result)) (setq list1 (cdr list1)) (setq list2 (cdr list2)))) (nreverse result))) (org-sql--parse-output-to-list org-sql-db-config hl-out))) (i 0) it it-index) (ignore it it-index) (while list (setq it (car-safe (prog1 list (setq list (cdr list)))) it-index i i (1+ i)) (setq acc (let* ((k (nth 1 it)) (grp (assoc k acc))) (if grp (setcdr grp (cons it (cdr grp))) (setq acc (cons (list k it) acc))) acc)))) acc))))) (preambles (mapcar #'(lambda (it) (ignore it) (cons (car it) (org-ml-from-string 'section (car (cdr it))))) (mapcar #'(lambda (it) (ignore it) (let ((result nil) (list1 ol-deserializers) (list2 it)) (while (and list1 list2) (let ((it (car list1)) (other (car list2))) (setq result (cons (funcall it other) result)) (setq list1 (cdr list1)) (setq list2 (cdr list2)))) (nreverse result))) (org-sql--parse-output-to-list org-sql-db-config ol-out))))) (mapcar #'(lambda (it) (ignore it) (let* ((--dash-source-244-- it) (fp (car-safe (prog1 --dash-source-244-- (setq --dash-source-244-- (cdr --dash-source-244--))))) (hash (car --dash-source-244--)) (headlines (cdr (let (needle) (let ((list trees) (i 0) elt it it-index) (ignore it it-index) (while (and list (setq elt (car-safe (prog1 list (setq list (cdr list)))) it elt it-index i) (or (not (equal (car it) hash)) (ignore (setq needle it)))) (setq it elt it-index i i (1+ i)))) needle))) (preamble (cdr (let (needle) (let ((list preambles) (i 0) elt it it-index) (ignore it it-index) (while (and list (setq elt (car-safe (prog1 list (setq list (cdr list)))) it elt it-index i) (or (not (equal (car it) hash)) (ignore (setq needle it)))) (setq it elt it-index i i (1+ i)))) needle)))) (cons fp (org-sql--build-org-data preamble headlines)))) (org-sql--parse-output-to-list org-sql-db-config fp-out))))) (error it-out)))))) (error it-out)))
(let ((input0 (org-sql-send-sql fp-query))) (let* ((--dash-source-242-- input0) (rc (car-safe (prog1 --dash-source-242-- (setq --dash-source-242-- (cdr --dash-source-242--))))) (it-out --dash-source-242--)) (if (= 0 rc) (progn (let ((fp-out it-out)) (let ((input0 (org-sql-send-sql ol-query))) (let* ((--dash-source-243-- input0) (rc (car-safe (prog1 --dash-source-243-- (setq --dash-source-243-- (cdr --dash-source-243--))))) (it-out --dash-source-243--)) (if (= 0 rc) (progn (let ((ol-out it-out)) (let ((trees (mapcar #'(lambda (it) (ignore it) (cons (car it) (org-sql--aggregate-headlines 1 (-map #'org-sql--row-to-headline (-sort #'(lambda (it other) (funcall --cl-compare-lists-- (nth 0 it) (nth 0 other))) (cdr it)))))) (nreverse (-map #'(lambda (n) (cons (car n) (nreverse (cdr n)))) (let ((acc nil)) (let ((list (mapcar #'(lambda (it) (ignore it) (let ((result nil) (list1 hl-deserializers) (list2 it)) (while (and list1 list2) (let ((it (car list1)) (other (car list2))) (setq result (cons (funcall it other) result)) (setq list1 (cdr list1)) (setq list2 (cdr list2)))) (nreverse result))) (org-sql--parse-output-to-list org-sql-db-config hl-out))) (i 0) it it-index) (ignore it it-index) (while list (setq it (car-safe (prog1 list (setq list (cdr list)))) it-index i i (1+ i)) (setq acc (let* ((k (nth 1 it)) (grp (assoc k acc))) (if grp (setcdr grp (cons it (cdr grp))) (setq acc (cons (list k it) acc))) acc)))) acc))))) (preambles (mapcar #'(lambda (it) (ignore it) (cons (car it) (org-ml-from-string 'section (car (cdr it))))) (mapcar #'(lambda (it) (ignore it) (let ((result nil) (list1 ol-deserializers) (list2 it)) (while (and list1 list2) (let ((it (car list1)) (other (car list2))) (setq result (cons (funcall it other) result)) (setq list1 (cdr list1)) (setq list2 (cdr list2)))) (nreverse result))) (org-sql--parse-output-to-list org-sql-db-config ol-out))))) (mapcar #'(lambda (it) (ignore it) (let* ((--dash-source-244-- it) (fp (car-safe (prog1 --dash-source-244-- (setq --dash-source-244-- (cdr --dash-source-244--))))) (hash (car --dash-source-244--)) (headlines (cdr (let (needle) (let ((list trees) (i 0) elt it it-index) (ignore it it-index) (while (and list (setq elt (car-safe (prog1 list (setq list (cdr list)))) it elt it-index i) (or (not (equal (car it) hash)) (ignore (setq needle it)))) (setq it elt it-index i i (1+ i)))) needle))) (preamble (cdr (let (needle) (let ((list preambles) (i 0) elt it it-index) (ignore it it-index) (while (and list (setq elt (car-safe (prog1 list (setq list (cdr list)))) it elt it-index i) (or (not (equal (car it) hash)) (ignore (setq needle it)))) (setq it elt it-index i i (1+ i)))) needle)))) (cons fp (org-sql--build-org-data preamble headlines)))) (org-sql--parse-output-to-list org-sql-db-config fp-out))))) (error it-out)))))) (error it-out))))
(let ((hl-out it-out)) (let ((input0 (org-sql-send-sql fp-query))) (let* ((--dash-source-242-- input0) (rc (car-safe (prog1 --dash-source-242-- (setq --dash-source-242-- (cdr --dash-source-242--))))) (it-out --dash-source-242--)) (if (= 0 rc) (progn (let ((fp-out it-out)) (let ((input0 (org-sql-send-sql ol-query))) (let* ((--dash-source-243-- input0) (rc (car-safe (prog1 --dash-source-243-- (setq --dash-source-243-- (cdr --dash-source-243--))))) (it-out --dash-source-243--)) (if (= 0 rc) (progn (let ((ol-out it-out)) (let ((trees (mapcar #'(lambda (it) (ignore it) (cons (car it) (org-sql--aggregate-headlines 1 (-map #'org-sql--row-to-headline (-sort #'(lambda (it other) (funcall --cl-compare-lists-- (nth 0 it) (nth 0 other))) (cdr it)))))) (nreverse (-map #'(lambda (n) (cons (car n) (nreverse (cdr n)))) (let ((acc nil)) (let ((list (mapcar #'(lambda (it) (ignore it) (let ((result nil) (list1 hl-deserializers) (list2 it)) (while (and list1 list2) (let ((it (car list1)) (other (car list2))) (setq result (cons (funcall it other) result)) (setq list1 (cdr list1)) (setq list2 (cdr list2)))) (nreverse result))) (org-sql--parse-output-to-list org-sql-db-config hl-out))) (i 0) it it-index) (ignore it it-index) (while list (setq it (car-safe (prog1 list (setq list (cdr list)))) it-index i i (1+ i)) (setq acc (let* ((k (nth 1 it)) (grp (assoc k acc))) (if grp (setcdr grp (cons it (cdr grp))) (setq acc (cons (list k it) acc))) acc)))) acc))))) (preambles (mapcar #'(lambda (it) (ignore it) (cons (car it) (org-ml-from-string 'section (car (cdr it))))) (mapcar #'(lambda (it) (ignore it) (let ((result nil) (list1 ol-deserializers) (list2 it)) (while (and list1 list2) (let ((it (car list1)) (other (car list2))) (setq result (cons (funcall it other) result)) (setq list1 (cdr list1)) (setq list2 (cdr list2)))) (nreverse result))) (org-sql--parse-output-to-list org-sql-db-config ol-out))))) (mapcar #'(lambda (it) (ignore it) (let* ((--dash-source-244-- it) (fp (car-safe (prog1 --dash-source-244-- (setq --dash-source-244-- (cdr --dash-source-244--))))) (hash (car --dash-source-244--)) (headlines (cdr (let (needle) (let ((list trees) (i 0) elt it it-index) (ignore it it-index) (while (and list (setq elt (car-safe (prog1 list (setq list (cdr list)))) it elt it-index i) (or (not (equal (car it) hash)) (ignore (setq needle it)))) (setq it elt it-index i i (1+ i)))) needle))) (preamble (cdr (let (needle) (let ((list preambles) (i 0) elt it it-index) (ignore it it-index) (while (and list (setq elt (car-safe (prog1 list (setq list (cdr list)))) it elt it-index i) (or (not (equal (car it) hash)) (ignore (setq needle it)))) (setq it elt it-index i i (1+ i)))) needle)))) (cons fp (org-sql--build-org-data preamble headlines)))) (org-sql--parse-output-to-list org-sql-db-config fp-out))))) (error it-out)))))) (error it-out)))))
(progn (let ((hl-out it-out)) (let ((input0 (org-sql-send-sql fp-query))) (let* ((--dash-source-242-- input0) (rc (car-safe (prog1 --dash-source-242-- (setq --dash-source-242-- (cdr --dash-source-242--))))) (it-out --dash-source-242--)) (if (= 0 rc) (progn (let ((fp-out it-out)) (let ((input0 (org-sql-send-sql ol-query))) (let* ((--dash-source-243-- input0) (rc (car-safe (prog1 --dash-source-243-- (setq --dash-source-243-- (cdr --dash-source-243--))))) (it-out --dash-source-243--)) (if (= 0 rc) (progn (let ((ol-out it-out)) (let ((trees (mapcar #'(lambda (it) (ignore it) (cons (car it) (org-sql--aggregate-headlines 1 (-map #'org-sql--row-to-headline (-sort #'(lambda (it other) (funcall --cl-compare-lists-- (nth 0 it) (nth 0 other))) (cdr it)))))) (nreverse (-map #'(lambda (n) (cons (car n) (nreverse (cdr n)))) (let ((acc nil)) (let ((list (mapcar #'(lambda (it) (ignore it) (let ((result nil) (list1 hl-deserializers) (list2 it)) (while (and list1 list2) (let ((it (car list1)) (other (car list2))) (setq result (cons (funcall it other) result)) (setq list1 (cdr list1)) (setq list2 (cdr list2)))) (nreverse result))) (org-sql--parse-output-to-list org-sql-db-config hl-out))) (i 0) it it-index) (ignore it it-index) (while list (setq it (car-safe (prog1 list (setq list (cdr list)))) it-index i i (1+ i)) (setq acc (let* ((k (nth 1 it)) (grp (assoc k acc))) (if grp (setcdr grp (cons it (cdr grp))) (setq acc (cons (list k it) acc))) acc)))) acc))))) (preambles (mapcar #'(lambda (it) (ignore it) (cons (car it) (org-ml-from-string 'section (car (cdr it))))) (mapcar #'(lambda (it) (ignore it) (let ((result nil) (list1 ol-deserializers) (list2 it)) (while (and list1 list2) (let ((it (car list1)) (other (car list2))) (setq result (cons (funcall it other) result)) (setq list1 (cdr list1)) (setq list2 (cdr list2)))) (nreverse result))) (org-sql--parse-output-to-list org-sql-db-config ol-out))))) (mapcar #'(lambda (it) (ignore it) (let* ((--dash-source-244-- it) (fp (car-safe (prog1 --dash-source-244-- (setq --dash-source-244-- (cdr --dash-source-244--))))) (hash (car --dash-source-244--)) (headlines (cdr (let (needle) (let ((list trees) (i 0) elt it it-index) (ignore it it-index) (while (and list (setq elt (car-safe (prog1 list (setq list (cdr list)))) it elt it-index i) (or (not (equal (car it) hash)) (ignore (setq needle it)))) (setq it elt it-index i i (1+ i)))) needle))) (preamble (cdr (let (needle) (let ((list preambles) (i 0) elt it it-index) (ignore it it-index) (while (and list (setq elt (car-safe (prog1 list (setq list (cdr list)))) it elt it-index i) (or (not (equal (car it) hash)) (ignore (setq needle it)))) (setq it elt it-index i i (1+ i)))) needle)))) (cons fp (org-sql--build-org-data preamble headlines)))) (org-sql--parse-output-to-list org-sql-db-config fp-out))))) (error it-out)))))) (error it-out))))))
(if (= 0 rc) (progn (let ((hl-out it-out)) (let ((input0 (org-sql-send-sql fp-query))) (let* ((--dash-source-242-- input0) (rc (car-safe (prog1 --dash-source-242-- (setq --dash-source-242-- (cdr --dash-source-242--))))) (it-out --dash-source-242--)) (if (= 0 rc) (progn (let ((fp-out it-out)) (let ((input0 (org-sql-send-sql ol-query))) (let* ((--dash-source-243-- input0) (rc (car-safe (prog1 --dash-source-243-- (setq --dash-source-243-- (cdr --dash-source-243--))))) (it-out --dash-source-243--)) (if (= 0 rc) (progn (let ((ol-out it-out)) (let ((trees (mapcar #'(lambda (it) (ignore it) (cons (car it) (org-sql--aggregate-headlines 1 (-map #'org-sql--row-to-headline (-sort #'(lambda (it other) (funcall --cl-compare-lists-- (nth 0 it) (nth 0 other))) (cdr it)))))) (nreverse (-map #'(lambda (n) (cons (car n) (nreverse (cdr n)))) (let ((acc nil)) (let ((list (mapcar #'(lambda (it) (ignore it) (let ((result nil) (list1 hl-deserializers) (list2 it)) (while (and list1 list2) (let ((it (car list1)) (other (car list2))) (setq result (cons (funcall it other) result)) (setq list1 (cdr list1)) (setq list2 (cdr list2)))) (nreverse result))) (org-sql--parse-output-to-list org-sql-db-config hl-out))) (i 0) it it-index) (ignore it it-index) (while list (setq it (car-safe (prog1 list (setq list (cdr list)))) it-index i i (1+ i)) (setq acc (let* ((k (nth 1 it)) (grp (assoc k acc))) (if grp (setcdr grp (cons it (cdr grp))) (setq acc (cons (list k it) acc))) acc)))) acc))))) (preambles (mapcar #'(lambda (it) (ignore it) (cons (car it) (org-ml-from-string 'section (car (cdr it))))) (mapcar #'(lambda (it) (ignore it) (let ((result nil) (list1 ol-deserializers) (list2 it)) (while (and list1 list2) (let ((it (car list1)) (other (car list2))) (setq result (cons (funcall it other) result)) (setq list1 (cdr list1)) (setq list2 (cdr list2)))) (nreverse result))) (org-sql--parse-output-to-list org-sql-db-config ol-out))))) (mapcar #'(lambda (it) (ignore it) (let* ((--dash-source-244-- it) (fp (car-safe (prog1 --dash-source-244-- (setq --dash-source-244-- (cdr --dash-source-244--))))) (hash (car --dash-source-244--)) (headlines (cdr (let (needle) (let ((list trees) (i 0) elt it it-index) (ignore it it-index) (while (and list (setq elt (car-safe (prog1 list (setq list (cdr list)))) it elt it-index i) (or (not (equal (car it) hash)) (ignore (setq needle it)))) (setq it elt it-index i i (1+ i)))) needle))) (preamble (cdr (let (needle) (let ((list preambles) (i 0) elt it it-index) (ignore it it-index) (while (and list (setq elt (car-safe (prog1 list (setq list (cdr list)))) it elt it-index i) (or (not (equal (car it) hash)) (ignore (setq needle it)))) (setq it elt it-index i i (1+ i)))) needle)))) (cons fp (org-sql--build-org-data preamble headlines)))) (org-sql--parse-output-to-list org-sql-db-config fp-out))))) (error it-out)))))) (error it-out)))))) (error it-out))
(let* ((--dash-source-241-- input0) (rc (car-safe (prog1 --dash-source-241-- (setq --dash-source-241-- (cdr --dash-source-241--))))) (it-out --dash-source-241--)) (if (= 0 rc) (progn (let ((hl-out it-out)) (let ((input0 (org-sql-send-sql fp-query))) (let* ((--dash-source-242-- input0) (rc (car-safe (prog1 --dash-source-242-- (setq --dash-source-242-- (cdr --dash-source-242--))))) (it-out --dash-source-242--)) (if (= 0 rc) (progn (let ((fp-out it-out)) (let ((input0 (org-sql-send-sql ol-query))) (let* ((--dash-source-243-- input0) (rc (car-safe (prog1 --dash-source-243-- (setq --dash-source-243-- (cdr --dash-source-243--))))) (it-out --dash-source-243--)) (if (= 0 rc) (progn (let ((ol-out it-out)) (let ((trees (mapcar #'(lambda (it) (ignore it) (cons (car it) (org-sql--aggregate-headlines 1 (-map #'org-sql--row-to-headline (-sort #'(lambda (it other) (funcall --cl-compare-lists-- (nth 0 it) (nth 0 other))) (cdr it)))))) (nreverse (-map #'(lambda (n) (cons (car n) (nreverse (cdr n)))) (let ((acc nil)) (let ((list (mapcar #'(lambda (it) (ignore it) (let ((result nil) (list1 hl-deserializers) (list2 it)) (while (and list1 list2) (let ((it (car list1)) (other (car list2))) (setq result (cons (funcall it other) result)) (setq list1 (cdr list1)) (setq list2 (cdr list2)))) (nreverse result))) (org-sql--parse-output-to-list org-sql-db-config hl-out))) (i 0) it it-index) (ignore it it-index) (while list (setq it (car-safe (prog1 list (setq list (cdr list)))) it-index i i (1+ i)) (setq acc (let* ((k (nth 1 it)) (grp (assoc k acc))) (if grp (setcdr grp (cons it (cdr grp))) (setq acc (cons (list k it) acc))) acc)))) acc))))) (preambles (mapcar #'(lambda (it) (ignore it) (cons (car it) (org-ml-from-string 'section (car (cdr it))))) (mapcar #'(lambda (it) (ignore it) (let ((result nil) (list1 ol-deserializers) (list2 it)) (while (and list1 list2) (let ((it (car list1)) (other (car list2))) (setq result (cons (funcall it other) result)) (setq list1 (cdr list1)) (setq list2 (cdr list2)))) (nreverse result))) (org-sql--parse-output-to-list org-sql-db-config ol-out))))) (mapcar #'(lambda (it) (ignore it) (let* ((--dash-source-244-- it) (fp (car-safe (prog1 --dash-source-244-- (setq --dash-source-244-- (cdr --dash-source-244--))))) (hash (car --dash-source-244--)) (headlines (cdr (let (needle) (let ((list trees) (i 0) elt it it-index) (ignore it it-index) (while (and list (setq elt (car-safe (prog1 list (setq list (cdr list)))) it elt it-index i) (or (not (equal (car it) hash)) (ignore (setq needle it)))) (setq it elt it-index i i (1+ i)))) needle))) (preamble (cdr (let (needle) (let ((list preambles) (i 0) elt it it-index) (ignore it it-index) (while (and list (setq elt (car-safe (prog1 list (setq list (cdr list)))) it elt it-index i) (or (not (equal (car it) hash)) (ignore (setq needle it)))) (setq it elt it-index i i (1+ i)))) needle)))) (cons fp (org-sql--build-org-data preamble headlines)))) (org-sql--parse-output-to-list org-sql-db-config fp-out))))) (error it-out)))))) (error it-out)))))) (error it-out)))
(let ((input0 (org-sql-send-sql hl-query))) (let* ((--dash-source-241-- input0) (rc (car-safe (prog1 --dash-source-241-- (setq --dash-source-241-- (cdr --dash-source-241--))))) (it-out --dash-source-241--)) (if (= 0 rc) (progn (let ((hl-out it-out)) (let ((input0 (org-sql-send-sql fp-query))) (let* ((--dash-source-242-- input0) (rc (car-safe (prog1 --dash-source-242-- (setq --dash-source-242-- (cdr --dash-source-242--))))) (it-out --dash-source-242--)) (if (= 0 rc) (progn (let ((fp-out it-out)) (let ((input0 (org-sql-send-sql ol-query))) (let* ((--dash-source-243-- input0) (rc (car-safe (prog1 --dash-source-243-- (setq --dash-source-243-- (cdr --dash-source-243--))))) (it-out --dash-source-243--)) (if (= 0 rc) (progn (let ((ol-out it-out)) (let ((trees (mapcar #'(lambda (it) (ignore it) (cons (car it) (org-sql--aggregate-headlines 1 (-map #'org-sql--row-to-headline (-sort #'(lambda (it other) (funcall --cl-compare-lists-- (nth 0 it) (nth 0 other))) (cdr it)))))) (nreverse (-map #'(lambda (n) (cons (car n) (nreverse (cdr n)))) (let ((acc nil)) (let ((list (mapcar #'(lambda (it) (ignore it) (let ((result nil) (list1 hl-deserializers) (list2 it)) (while (and list1 list2) (let ((it (car list1)) (other (car list2))) (setq result (cons (funcall it other) result)) (setq list1 (cdr list1)) (setq list2 (cdr list2)))) (nreverse result))) (org-sql--parse-output-to-list org-sql-db-config hl-out))) (i 0) it it-index) (ignore it it-index) (while list (setq it (car-safe (prog1 list (setq list (cdr list)))) it-index i i (1+ i)) (setq acc (let* ((k (nth 1 it)) (grp (assoc k acc))) (if grp (setcdr grp (cons it (cdr grp))) (setq acc (cons (list k it) acc))) acc)))) acc))))) (preambles (mapcar #'(lambda (it) (ignore it) (cons (car it) (org-ml-from-string 'section (car (cdr it))))) (mapcar #'(lambda (it) (ignore it) (let ((result nil) (list1 ol-deserializers) (list2 it)) (while (and list1 list2) (let ((it (car list1)) (other (car list2))) (setq result (cons (funcall it other) result)) (setq list1 (cdr list1)) (setq list2 (cdr list2)))) (nreverse result))) (org-sql--parse-output-to-list org-sql-db-config ol-out))))) (mapcar #'(lambda (it) (ignore it) (let* ((--dash-source-244-- it) (fp (car-safe (prog1 --dash-source-244-- (setq --dash-source-244-- (cdr --dash-source-244--))))) (hash (car --dash-source-244--)) (headlines (cdr (let (needle) (let ((list trees) (i 0) elt it it-index) (ignore it it-index) (while (and list (setq elt (car-safe (prog1 list (setq list (cdr list)))) it elt it-index i) (or (not (equal (car it) hash)) (ignore (setq needle it)))) (setq it elt it-index i i (1+ i)))) needle))) (preamble (cdr (let (needle) (let ((list preambles) (i 0) elt it it-index) (ignore it it-index) (while (and list (setq elt (car-safe (prog1 list (setq list (cdr list)))) it elt it-index i) (or (not (equal (car it) hash)) (ignore (setq needle it)))) (setq it elt it-index i i (1+ i)))) needle)))) (cons fp (org-sql--build-org-data preamble headlines)))) (org-sql--parse-output-to-list org-sql-db-config fp-out))))) (error it-out)))))) (error it-out)))))) (error it-out))))
(let* ((fmt (let* ((temp (car org-sql-db-config))) (cond ((eql temp 'mysql) "SET sql_mode = NO_BACKSLASH_ESCAPES;%s") ((eql temp 'postgres) "%s") ((eql temp 'sqlite) "%s") ((eql temp 'sqlserver) "%s") (t (error "Invalid mode: %s" (car org-sql-db-config)))))) (hl-query (format fmt (org-sql--format-pull-query org-sql-db-config))) (fp-query (org-sql--format-pull-filepath-query org-sql-db-config)) (ol-query (org-sql--format-pull-preamble-query org-sql-db-config)) (hl-deserializers (org-sql--compile-deserializers org-sql-db-config)) (ol-deserializers (mapcar #'(lambda (it) (ignore it) (org-sql--compile-deserializer org-sql-db-config it)) (list 'varchar 'text)))) (let ((input0 (org-sql-send-sql hl-query))) (let* ((--dash-source-241-- input0) (rc (car-safe (prog1 --dash-source-241-- (setq --dash-source-241-- (cdr --dash-source-241--))))) (it-out --dash-source-241--)) (if (= 0 rc) (progn (let ((hl-out it-out)) (let ((input0 (org-sql-send-sql fp-query))) (let* ((--dash-source-242-- input0) (rc (car-safe (prog1 --dash-source-242-- (setq --dash-source-242-- (cdr --dash-source-242--))))) (it-out --dash-source-242--)) (if (= 0 rc) (progn (let ((fp-out it-out)) (let ((input0 (org-sql-send-sql ol-query))) (let* ((--dash-source-243-- input0) (rc (car-safe (prog1 --dash-source-243-- (setq --dash-source-243-- (cdr --dash-source-243--))))) (it-out --dash-source-243--)) (if (= 0 rc) (progn (let ((ol-out it-out)) (let ((trees (mapcar #'(lambda (it) (ignore it) (cons (car it) (org-sql--aggregate-headlines 1 (-map #'org-sql--row-to-headline (-sort #'(lambda (it other) (funcall --cl-compare-lists-- (nth 0 it) (nth 0 other))) (cdr it)))))) (nreverse (-map #'(lambda (n) (cons (car n) (nreverse (cdr n)))) (let ((acc nil)) (let ((list (mapcar #'(lambda (it) (ignore it) (let ((result nil) (list1 hl-deserializers) (list2 it)) (while (and list1 list2) (let ((it (car list1)) (other (car list2))) (setq result (cons (funcall it other) result)) (setq list1 (cdr list1)) (setq list2 (cdr list2)))) (nreverse result))) (org-sql--parse-output-to-list org-sql-db-config hl-out))) (i 0) it it-index) (ignore it it-index) (while list (setq it (car-safe (prog1 list (setq list (cdr list)))) it-index i i (1+ i)) (setq acc (let* ((k (nth 1 it)) (grp (assoc k acc))) (if grp (setcdr grp (cons it (cdr grp))) (setq acc (cons (list k it) acc))) acc)))) acc))))) (preambles (mapcar #'(lambda (it) (ignore it) (cons (car it) (org-ml-from-string 'section (car (cdr it))))) (mapcar #'(lambda (it) (ignore it) (let ((result nil) (list1 ol-deserializers) (list2 it)) (while (and list1 list2) (let ((it (car list1)) (other (car list2))) (setq result (cons (funcall it other) result)) (setq list1 (cdr list1)) (setq list2 (cdr list2)))) (nreverse result))) (org-sql--parse-output-to-list org-sql-db-config ol-out))))) (mapcar #'(lambda (it) (ignore it) (let* ((--dash-source-244-- it) (fp (car-safe (prog1 --dash-source-244-- (setq --dash-source-244-- (cdr --dash-source-244--))))) (hash (car --dash-source-244--)) (headlines (cdr (let (needle) (let ((list trees) (i 0) elt it it-index) (ignore it it-index) (while (and list (setq elt (car-safe (prog1 list (setq list (cdr list)))) it elt it-index i) (or (not (equal (car it) hash)) (ignore (setq needle it)))) (setq it elt it-index i i (1+ i)))) needle))) (preamble (cdr (let (needle) (let ((list preambles) (i 0) elt it it-index) (ignore it it-index) (while (and list (setq elt (car-safe (prog1 list (setq list (cdr list)))) it elt it-index i) (or (not (equal (car it) hash)) (ignore (setq needle it)))) (setq it elt it-index i i (1+ i)))) needle)))) (cons fp (org-sql--build-org-data preamble headlines)))) (org-sql--parse-output-to-list org-sql-db-config fp-out))))) (error it-out)))))) (error it-out)))))) (error it-out)))))
(let (--cl-compare-lists--) (setq --cl-compare-lists-- #'(lambda (A B) (let ((input0 A) (input1 B)) (let* ((--dash-source-239-- input0) (a (car-safe (prog1 --dash-source-239-- (setq --dash-source-239-- (cdr --dash-source-239--))))) (as --dash-source-239--) (--dash-source-240-- input1) (b (car-safe (prog1 --dash-source-240-- (setq --dash-source-240-- (cdr --dash-source-240--))))) (bs --dash-source-240--)) (cond ((and (not a) (not b)) (error "If this happens, the list has duplicates")) ((null a) t) ((null b) nil) ((= a b) (funcall --cl-compare-lists-- as bs)) (t (< a b))))))) (let* ((fmt (let* ((temp (car org-sql-db-config))) (cond ((eql temp 'mysql) "SET sql_mode = NO_BACKSLASH_ESCAPES;%s") ((eql temp 'postgres) "%s") ((eql temp 'sqlite) "%s") ((eql temp 'sqlserver) "%s") (t (error "Invalid mode: %s" (car org-sql-db-config)))))) (hl-query (format fmt (org-sql--format-pull-query org-sql-db-config))) (fp-query (org-sql--format-pull-filepath-query org-sql-db-config)) (ol-query (org-sql--format-pull-preamble-query org-sql-db-config)) (hl-deserializers (org-sql--compile-deserializers org-sql-db-config)) (ol-deserializers (mapcar #'(lambda (it) (ignore it) (org-sql--compile-deserializer org-sql-db-config it)) (list 'varchar 'text)))) (let ((input0 (org-sql-send-sql hl-query))) (let* ((--dash-source-241-- input0) (rc (car-safe (prog1 --dash-source-241-- (setq --dash-source-241-- (cdr --dash-source-241--))))) (it-out --dash-source-241--)) (if (= 0 rc) (progn (let ((hl-out it-out)) (let ((input0 (org-sql-send-sql fp-query))) (let* ((--dash-source-242-- input0) (rc (car-safe (prog1 --dash-source-242-- (setq --dash-source-242-- (cdr --dash-source-242--))))) (it-out --dash-source-242--)) (if (= 0 rc) (progn (let ((fp-out it-out)) (let ((input0 (org-sql-send-sql ol-query))) (let* ((--dash-source-243-- input0) (rc (car-safe (prog1 --dash-source-243-- (setq --dash-source-243-- (cdr --dash-source-243--))))) (it-out --dash-source-243--)) (if (= 0 rc) (progn (let ((ol-out it-out)) (let ((trees (mapcar #'(lambda (it) (ignore it) (cons (car it) (org-sql--aggregate-headlines 1 (-map #'org-sql--row-to-headline (-sort #'(lambda (it other) (funcall --cl-compare-lists-- (nth 0 it) (nth 0 other))) (cdr it)))))) (nreverse (-map #'(lambda (n) (cons (car n) (nreverse (cdr n)))) (let ((acc nil)) (let ((list (mapcar #'(lambda (it) (ignore it) (let ((result nil) (list1 hl-deserializers) (list2 it)) (while (and list1 list2) (let ((it (car list1)) (other (car list2))) (setq result (cons (funcall it other) result)) (setq list1 (cdr list1)) (setq list2 (cdr list2)))) (nreverse result))) (org-sql--parse-output-to-list org-sql-db-config hl-out))) (i 0) it it-index) (ignore it it-index) (while list (setq it (car-safe (prog1 list (setq list (cdr list)))) it-index i i (1+ i)) (setq acc (let* ((k (nth 1 it)) (grp (assoc k acc))) (if grp (setcdr grp (cons it (cdr grp))) (setq acc (cons (list k it) acc))) acc)))) acc))))) (preambles (mapcar #'(lambda (it) (ignore it) (cons (car it) (org-ml-from-string 'section (car (cdr it))))) (mapcar #'(lambda (it) (ignore it) (let ((result nil) (list1 ol-deserializers) (list2 it)) (while (and list1 list2) (let ((it (car list1)) (other (car list2))) (setq result (cons (funcall it other) result)) (setq list1 (cdr list1)) (setq list2 (cdr list2)))) (nreverse result))) (org-sql--parse-output-to-list org-sql-db-config ol-out))))) (mapcar #'(lambda (it) (ignore it) (let* ((--dash-source-244-- it) (fp (car-safe (prog1 --dash-source-244-- (setq --dash-source-244-- (cdr --dash-source-244--))))) (hash (car --dash-source-244--)) (headlines (cdr (let (needle) (let ((list trees) (i 0) elt it it-index) (ignore it it-index) (while (and list (setq elt (car-safe (prog1 list (setq list (cdr list)))) it elt it-index i) (or (not (equal (car it) hash)) (ignore (setq needle it)))) (setq it elt it-index i i (1+ i)))) needle))) (preamble (cdr (let (needle) (let ((list preambles) (i 0) elt it it-index) (ignore it it-index) (while (and list (setq elt (car-safe (prog1 list (setq list (cdr list)))) it elt it-index i) (or (not (equal (car it) hash)) (ignore (setq needle it)))) (setq it elt it-index i i (1+ i)))) needle)))) (cons fp (org-sql--build-org-data preamble headlines)))) (org-sql--parse-output-to-list org-sql-db-config fp-out))))) (error it-out)))))) (error it-out)))))) (error it-out))))))
org-sql-pull-from-db()
org-sql-user-pull()
(setq *X* (org-sql-user-pull))
eval((setq *X* (org-sql-user-pull)) nil)
elisp--eval-last-sexp(nil)
eval-last-sexp(nil)
eros-eval-last-sexp(nil)
funcall-interactively(eros-eval-last-sexp nil)
call-interactively(eros-eval-last-sexp nil nil)
command-execute(eros-eval-last-sexp)
from org-sql.
This works on my end (to be clear, this is version 3.0.3). How are you installing the package and what are the exact step-by-step commands you are running?
from org-sql.
Related Issues (18)
- Will this package provide a simple web interface? HOT 4
- No prompt found or ‘comint-prompt-regexp’ not set properly HOT 3
- Plans? HOT 4
- Updating taking long / config problem? HOT 6
- Documentation error - "org-sqlite-db-path" should be "org-sql-sqlite-path" HOT 1
- Doesn't work on my system - solved with help of sqlite3 ".log" and ".trace" commands HOT 10
- clocking is empty HOT 26
- Hard-coded path to sqlite3 - No such a file or directory, /usr/bin/sqlite3 HOT 4
- Symbol’s function definition is void: org-ml-headline-get-logbook HOT 2
- f-write used, but f not "require"d HOT 1
- Effort not showing up in headlines table HOT 2
- swapped calls of 'org-sql-user-push' and 'org-sql-user-pull'
- Error: in prepare, no such table HOT 2
- parse custom link types and add them to the links table HOT 1
- Add abbreviation column to the table links HOT 3
- postgres process not closed
- can't see a file's #+title nor #+category HOT 2
Recommend Projects
-
React
A declarative, efficient, and flexible JavaScript library for building user interfaces.
-
Vue.js
🖖 Vue.js is a progressive, incrementally-adoptable JavaScript framework for building UI on the web.
-
Typescript
TypeScript is a superset of JavaScript that compiles to clean JavaScript output.
-
TensorFlow
An Open Source Machine Learning Framework for Everyone
-
Django
The Web framework for perfectionists with deadlines.
-
Laravel
A PHP framework for web artisans
-
D3
Bring data to life with SVG, Canvas and HTML. 📊📈🎉
-
Recommend Topics
-
javascript
JavaScript (JS) is a lightweight interpreted programming language with first-class functions.
-
web
Some thing interesting about web. New door for the world.
-
server
A server is a program made to process requests and deliver data to clients.
-
Machine learning
Machine learning is a way of modeling and interpreting data that allows a piece of software to respond intelligently.
-
Visualization
Some thing interesting about visualization, use data art
-
Game
Some thing interesting about game, make everyone happy.
Recommend Org
-
Facebook
We are working to build community through open source technology. NB: members must have two-factor auth.
-
Microsoft
Open source projects and samples from Microsoft.
-
Google
Google ❤️ Open Source for everyone.
-
Alibaba
Alibaba Open Source for everyone
-
D3
Data-Driven Documents codes.
-
Tencent
China tencent open source team.
from org-sql.