Freelance dev working with HTML, databases and electronics. More posts: https://fosstodon.org/@jasalt https://pixelfed.social/jasalt Helsinki, Finland
![(defn get-users
"Phel adapter for php/get_users."
[m]
(php->phel (php/get_users (phel->php m))))
(defmacro php
"Calls PHP function with given arguments. Converts arguments to PHP
data structures using `phel->php` and conversely returned PHP data structure
back to Phel with `php->phel`.
TODO could do conversion ONLY when needed."
[php-function & args]
(let [php-function-symbol (symbol (str "php/" php-function))
converted-args (map (fn [arg] `(phel->php ,arg)) args)]
`(php->phel (,php-function-symbol ,@converted-args))))
(php get_users {:meta_key "legacy_user_id"
:meta_value 10
:meta_compare "="})
# -> [Printer cannot print this type: WP_User]](https://cdn.bsky.app/img/feed_thumbnail/plain/did:plc:kwlff5zm5qerdj7sifre55lj/bafkreibnipfaen2tyuhgsnhhdqazau33rh3xplxyjrri4et4xxu6c7cesu)
Freelance dev working with HTML, databases and electronics. More posts: https://fosstodon.org/@jasalt https://pixelfed.social/jasalt Helsinki, Finland