commit c92ee8daf51a5eed6f3c4ece81dda5d979af74f7 Spenser Truex <spensertruexonline@gmail.com> 2019-06-23 00:37:56 -0700 Made bindings let-like (no pair notation).
README.org | 25 ++++++++++++++----------- eforth.el | 25 ++++++++++++++----------- 2 files changed, 28 insertions(+), 22 deletions(-)
diff --git a/README.org b/README.org index 2d2f750..9b98b88 100644 --- a/README.org +++ b/README.org @@ -2,7 +2,10 @@ #+AUTHOR: Spenser Truex #+EMAIL: web@spensertruex.com **** Version 0.0.1 -Docs available as: [[https://spensertruex.com/eforth][HTML]] | [[https://github.com/equwal/eforth/blob/master/README.org][PDF]] | [[https://github.com/equwal/eforth/blob/master/eforth.el][Plain Text]] + +Docs available as: [[https://spensertruex.com/eforth][HTML]] | [[https://github.com/equwal/eforth/blob/master/README.org][ORG-mode]] | [[https://github.com/equwal/eforth/blob/master/eforth.el][Plain Text]] + +Code on [[https://githu.com/equwal/eforth][github]] This is an implementation of an elisp-based FORTH. This means that elisp is used to write the function definitions. In fact, no FORTH function @@ -14,16 +17,16 @@ Domain Specific Language the programmer defines. (require 'eforth) (defun 8pan () (interactive) - (eforth '((n . (lambda () (switch-to-buffer nil))) - (d . split-window-below) - (r . split-window-right) - (wr . windmove-right) - (wl . windmove-left) - (wd . windmove-down) - (wu . windmove-up) - (del . delete-other-windows) - (cf . make-frame-command) - (nf . other-frame)) + (eforth '((n (lambda () (switch-to-buffer nil))) + (d split-window-below) + (r split-window-right) + (wr windmove-right) + (wl windmove-left) + (wd windmove-down) + (wu windmove-up) + (del delete-other-windows) + (cf make-frame-command) + (nf other-frame)) (cf del r r wr wr r d wr d wl wl d wl d wr n wr n wr n wl wl wl wd n wr n wr n wr n wl wl wl wu nf))) diff --git a/eforth.el b/eforth.el index 2c70c29..08fc64a 100644 --- a/eforth.el +++ b/eforth.el @@ -15,7 +15,9 @@ ;;; Commentary: ;; Version 0.0.1 ;; -;; Docs available as: HTML | PDF | Plain Text +;; Docs available as: HTML | ORG-mode | Plain Text +;; +;; Code on github ;; ;; This is an implementation of an elisp-based FORTH. This means that elisp ;; is used to write the function definitions. In fact, no FORTH function @@ -26,16 +28,16 @@ ;; (require 'eforth) ;; (defun 8pan () ;; (interactive) -;; (eforth '((n . (lambda () (switch-to-buffer nil))) -;; (d . split-window-below) -;; (r . split-window-right) -;; (wr . windmove-right) -;; (wl . windmove-left) -;; (wd . windmove-down) -;; (wu . windmove-up) -;; (del . delete-other-windows) -;; (cf . make-frame-command) -;; (nf . other-frame)) +;; (eforth '((n (lambda () (switch-to-buffer nil))) +;; (d split-window-below) +;; (r split-window-right) +;; (wr windmove-right) +;; (wl windmove-left) +;; (wd windmove-down) +;; (wu windmove-up) +;; (del delete-other-windows) +;; (cf make-frame-command) +;; (nf other-frame)) ;; (cf del r r wr wr r d wr d wl wl d wl d wr n ;; wr n wr n wl wl wl wd n wr n wr n wr n wl ;; wl wl wu nf))) @@ -127,6 +129,7 @@ ;; Please make sure your contributions are melpa-friendly, and documented ;; in the README. You can use pandoc-mode to transform the README.org into ;; plaintext `;;; Commentary:`. +;; ;;; Code: (require 'cl-lib)