blob: bff817738cf4e1292875800f7cae63ab83c2f4f2 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
|
;;-- <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> --
|
