18 lines
576 B
EmacsLisp
18 lines
576 B
EmacsLisp
(require 'subr-x)
|
|
|
|
(defun f-join (&rest args)
|
|
(string-join args "/"))
|
|
|
|
(defvar atrip-sources nil)
|
|
(defun atrip-print-sources ()
|
|
(princ (string-join atrip-sources " ")))
|
|
|
|
(defmacro atrip-def (name body) `(progn (defun ,name () ,body)
|
|
(push (,name) atrip-sources)))
|
|
|
|
;; atrip variables for the org-mode file
|
|
(atrip-def atrip-include-f "include/atrip")
|
|
(atrip-def atrip-slice-h (f-join (atrip-include-f) "Slice.hpp"))
|
|
(atrip-def atrip-utils-h (f-join (atrip-include-f) "Utils.hpp"))
|
|
(atrip-def atrip-main-h "include/atrip.hpp")
|