1 files changed, 42 insertions, 0 deletions
diff --git a/lib/session.tes b/lib/session.tes
new file mode 100644
index 0000000..d038db5
--- /dev/null
+++ b/lib/session.tes
@@ -0,0 +1,42 @@
+! Macros for saving and loading buffer sessions !
+
+! Path of the session profile.
+  Change this to save/load a custom profile !
+EQ[session.path] IQ[$HOME]/.teco_session 1EB
+
+@[session.save]{
+  Q*U.[curbuf]
+  EJ<
+    %.bEB ESGETFIRSTVISIBLELINEU.[fvline] ESGETXOFFSETU.[xoff] .U.[dot]
+    EQ.[session]
+    @I{EBQ* \.[fvline]ESSETFIRSTVISIBLELINE \.[xoff]ESSETXOFFSET \.[dot]:J^M}
+    EQ* Z"= -1U.u '
+  >
+  EQ.[session]
+  Q.u"F @I{EB -EF^M} '
+  @I{\.[curbuf]EB^M}
+
+  EBQ[session.path]
+  HK G.[session] EW EF
+}
+
+@[session.load]{
+  EJ<-EF>
+  EQ.x ENQ[session.path]
+  Z"=
+    1EB
+  |
+    :EMQ[session.path]
+  '
+}
+
+! Call this to set up the session path unique to
+  the current Git repository (if there is one) !
+@[session.git]{
+  ! if there is no Git repository, session.path is left as it is !
+  :EG[session.path]git rev-parse --show-toplevel"S
+    Q*U.#cb
+    EQ[session.path] ZJ -D I/.teco_session
+    Q.#cbEB
+  '
+}