;;-- <helpers> --
(defun find-user-file (file-name)
    (expand-file-name file-name user-emacs-directory))

(defmacro in-remote-buffer (url &rest body)
    "evals in a buffer whose contents are raw retrieved from (url)"
    `(with-current-buffer (url-retrieve-synchronously 
                            ,url 'silent 'inhibit-cookies)
        ,body))

(defun eval-remote (url) 
    "essentially `curl (url) | sh` (ﾉ´ヮ`)ﾉ*"
    (in-remote-buffer url
        (eval-buffer)))
;;-- </helpers> --

;;-- <straight.el> -- 
;;(( what abt gay.el („• ֊ •„) hehe ))

;; bootstrap, installing if it doesn't yet exist.
(defvar *straight-version* 5)
(defvar *straight-bootstrap-file* 
    (find-user-file "straight/repos/straight.el/bootstrap.el"))
(defvar *straight-src* 
    "https://raw.githubusercontent.com/raxod502/straight.el/develop/install.el")
(defun bootstrap-straight (&optional version file src)
    "bootstrap straight (version), eval'ing (file) or falling back to (src)"
    (or version (setq version *straight-version*))
    (or file (setq file *straight-bootstrap-file*))
    (or src (setq src *stragith-src*))

    (if file-exists-p file)
        (load file nil 'nomessage)
        (eval-remote src))
(bootstrap-staight)

;; install it and use it by default!
(straight-use-package 'use-package)
(use-package straight
    :custom 
        (straight-use-package-by-default t))
;;-- </straight.el> --

;;-- <org_init> --
(use-package org 
    :straight (:type built-in))

(defvar *settings-org* "empressomacs.org")
(org-babel-load-file (find-user-file *settings-org*))
;;-- </org_init> --