rename relish to flesh

2024-02-06 22:39:08 +00:00 · 2024-02-06 22:39:08 +00:00 · 9b447eb5b7
commit 9b447eb5b7
parent 415b1181fa
58 changed files with 252 additions and 245 deletions
--- a/snippets/avas-laptop-prompt.rls
+++ b/snippets/avas-laptop-prompt.rls
@ -1,7 +1,7 @@
-#!/bin/relish
+#!/bin/flesh

-;; relish: versatile lisp shell
-;; Copyright (C) 2021 Aidan Hahn
+;; Flesh: Flexible Shell
+;; Copyright (C) 2021 Ava Affine
 ;;
 ;; This program is free software: you can redistribute it and/or modify
 ;; it under the terms of the GNU General Public License as published by
@ -19,7 +19,7 @@
 ;; AVA'S LAPTOP PROMPT
 ;; This file contains a shell prompt configuration that outputs current dir
 ;; username, and percentages for all batteries on the system.
-;; -> requires CFG_RELISH_POSIX=true and userlib.
+;; -> requires CFG_FLESH_POSIX=true and userlib.

 (def _batteries 'paths to batteries powering system'
  (lambda ()
@ -53,7 +53,7 @@
          (set (q bat-iter) (pop rem))))
    display)))

-(def CFG_RELISH_R_PROMPT 'display battery info'
+(def CFG_FLESH_R_PROMPT 'display battery info'
  ()
  (display-batteries))

@ -92,7 +92,7 @@
      ")")
    ''))

-(def CFG_RELISH_L_PROMPT 'display user and dir (git info in future)'
+(def CFG_FLESH_L_PROMPT 'display user and dir (git info in future)'
 ()
 (concat
   "[" USER "]" "\t"
--- a/snippets/basic_minimal_configuration.f
+++ b/snippets/basic_minimal_configuration.f
@ -0,0 +1,12 @@
+;; comment out to load USERLIB
+;; (call (concat HOME "/.flesh/userlib.f"))
+
+;; if you have userlib
+;; (set CFG_FLESH_POSIX "1")
+;; else
+(def CFG_FLESH_POSIX
+     (get-doc (q CFG_FLESH_POSIX))
+     "1")
+
+(echo "Welcome back to Flesh.")
+(echo "Enjoy your computing.")
--- a/snippets/basic_minimal_configuration.rls
+++ b/snippets/basic_minimal_configuration.rls
@ -1,12 +0,0 @@
-;; comment out to load USERLIB
-;; (call (concat HOME "/.relish/userlib.rls"))
-
-;; if you have userlib
-;; (set CFG_RELISH_POSIX "1")
-;; else
-(def CFG_RELISH_POSIX
-     (get-doc (q CFG_RELISH_POSIX))
-     "1")
-
-(echo "Welcome back to relish.")
-(echo "Enjoy your computing.")
--- a/snippets/genbind.rls
+++ b/snippets/genbind.rls
@ -1,7 +1,7 @@
-#!/bin/relish
+#!/bin/flesh

-;; relish: versatile lisp shell
-;; Copyright (C) 2021 Aidan Hahn
+;; Flesh: Flexible Shell
+;; Copyright (C) 2021 Ava Affine
 ;;
 ;; This program is free software: you can redistribute it and/or modify
 ;; it under the terms of the GNU General Public License as published by
@ -54,4 +54,4 @@ Or, a more advanced use:
                         (cons set (cons q (q arg-iter)) (cons pop (cons cdr (q arg-iter)))))
                       (cons echo '+ ' (cons cdr (cons pop (q func-call))))
                       (cons eval (q func-call))))))
-     (eval lam)))
+     (eval lam)))
--- a/snippets/interactive-devel.rls
+++ b/snippets/interactive-devel.rls
@ -1,7 +1,7 @@
-#!/bin/relish
+#!/bin/flesh

-;; relish: versatile lisp shell
-;; Copyright (C) 2021 Aidan Hahn
+;; Flesh: Flexible Shell
+;; Copyright (C) 2021 Ava Affine
 ;;
 ;; This program is free software: you can redistribute it and/or modify
 ;; it under the terms of the GNU General Public License as published by
--- a/snippets/legacy/eval_draft2.rs
+++ b/snippets/legacy/eval_draft2.rs
@ -1,5 +1,5 @@
 /* relish: versatile lisp shell
- * Copyright (C) 2021 Aidan Hahn
+ * Copyright (C) 2021 Ava Affine
 *
 * This program is free software: you can redistribute it and/or modify
 * it under the terms of the GNU General Public License as published by
--- a/snippets/legacy/initial_rough_spaghetti_implementation/append.rs
+++ b/snippets/legacy/initial_rough_spaghetti_implementation/append.rs
@ -1,5 +1,5 @@
 /* relish: versatile lisp shell
- * Copyright (C) 2021 Aidan Hahn
+ * Copyright (C) 2021 Ava Affine
 *
 * This program is free software: you can redistribute it and/or modify
 * it under the terms of the GNU General Public License as published by
--- a/snippets/legacy/initial_rough_spaghetti_implementation/bin/main.rs
+++ b/snippets/legacy/initial_rough_spaghetti_implementation/bin/main.rs
@ -1,5 +1,5 @@
 /* relish: versatile lisp shell
- * Copyright (C) 2021 Aidan Hahn
+ * Copyright (C) 2021 Ava Affine
 *
 * This program is free software: you can redistribute it and/or modify
 * it under the terms of the GNU General Public License as published by
--- a/snippets/legacy/initial_rough_spaghetti_implementation/config.rs
+++ b/snippets/legacy/initial_rough_spaghetti_implementation/config.rs
@ -1,5 +1,5 @@
 /* relish: versatile lisp shell
- * Copyright (C) 2021 Aidan Hahn
+ * Copyright (C) 2021 Ava Affine
 *
 * This program is free software: you can redistribute it and/or modify
 * it under the terms of the GNU General Public License as published by
--- a/snippets/legacy/initial_rough_spaghetti_implementation/control.rs
+++ b/snippets/legacy/initial_rough_spaghetti_implementation/control.rs
@ -1,5 +1,5 @@
 /* relish: versatile lisp shell
- * Copyright (C) 2021 Aidan Hahn
+ * Copyright (C) 2021 Ava Affine
 *
 * This program is free software: you can redistribute it and/or modify
 * it under the terms of the GNU General Public License as published by
--- a/snippets/legacy/initial_rough_spaghetti_implementation/eval.rs
+++ b/snippets/legacy/initial_rough_spaghetti_implementation/eval.rs
@ -1,5 +1,5 @@
 /* relish: versatile lisp shell
- * Copyright (C) 2021 Aidan Hahn
+ * Copyright (C) 2021 Ava Affine
 *
 * This program is free software: you can redistribute it and/or modify
 * it under the terms of the GNU General Public License as published by
--- a/snippets/legacy/initial_rough_spaghetti_implementation/func.rs
+++ b/snippets/legacy/initial_rough_spaghetti_implementation/func.rs
@ -1,5 +1,5 @@
 /* relish: versatile lisp shell
- * Copyright (C) 2021 Aidan Hahn
+ * Copyright (C) 2021 Ava Affine
 *
 * This program is free software: you can redistribute it and/or modify
 * it under the terms of the GNU General Public License as published by
--- a/snippets/legacy/initial_rough_spaghetti_implementation/lex.rs
+++ b/snippets/legacy/initial_rough_spaghetti_implementation/lex.rs
@ -1,5 +1,5 @@
 /* relish: highly versatile lisp interpreter
- * Copyright (C) 2021 Aidan Hahn
+ * Copyright (C) 2021 Ava Affine
 *
 * This program is free software: you can redistribute it and/or modify
 * it under the terms of the GNU General Public License as published by
--- a/snippets/legacy/initial_rough_spaghetti_implementation/lib.rs
+++ b/snippets/legacy/initial_rough_spaghetti_implementation/lib.rs
@ -1,5 +1,5 @@
 /* relish: highly versatile lisp interpreter
- * Copyright (C) 2021 Aidan Hahn
+ * Copyright (C) 2021 Ava Affine
 *
 * This program is free software: you can redistribute it and/or modify
 * it under the terms of the GNU General Public License as published by
--- a/snippets/legacy/initial_rough_spaghetti_implementation/segment.rs
+++ b/snippets/legacy/initial_rough_spaghetti_implementation/segment.rs
@ -1,5 +1,5 @@
 /* relish: versatile lisp shell
- * Copyright (C) 2021 Aidan Hahn
+ * Copyright (C) 2021 Ava Affine
 *
 * This program is free software: you can redistribute it and/or modify
 * it under the terms of the GNU General Public License as published by
--- a/snippets/legacy/initial_rough_spaghetti_implementation/stl.rs
+++ b/snippets/legacy/initial_rough_spaghetti_implementation/stl.rs
@ -1,5 +1,5 @@
 /* relish: versatile lisp shell
- * Copyright (C) 2021 Aidan Hahn
+ * Copyright (C) 2021 Ava Affine
 *
 * This program is free software: you can redistribute it and/or modify
 * it under the terms of the GNU General Public License as published by
--- a/snippets/legacy/initial_rough_spaghetti_implementation/str.rs
+++ b/snippets/legacy/initial_rough_spaghetti_implementation/str.rs
@ -1,5 +1,5 @@
 /* relish: versatile lisp shell
- * Copyright (C) 2021 Aidan Hahn
+ * Copyright (C) 2021 Ava Affine
 *
 * This program is free software: you can redistribute it and/or modify
 * it under the terms of the GNU General Public License as published by
--- a/snippets/legacy/initial_rough_spaghetti_implementation/vars.rs
+++ b/snippets/legacy/initial_rough_spaghetti_implementation/vars.rs
@ -1,5 +1,5 @@
 /* relish: versatile lisp shell
- * Copyright (C) 2021 Aidan Hahn
+ * Copyright (C) 2021 Ava Affine
 *
 * This program is free software: you can redistribute it and/or modify
 * it under the terms of the GNU General Public License as published by
--- a/snippets/legacy/seperate_tables/func.rs
+++ b/snippets/legacy/seperate_tables/func.rs
@ -1,5 +1,5 @@
 /* relish: versatile lisp shell
- * Copyright (C) 2021 Aidan Hahn
+ * Copyright (C) 2021 Ava Affine
 *
 * This program is free software: you can redistribute it and/or modify
 * it under the terms of the GNU General Public License as published by
--- a/snippets/legacy/seperate_tables/vars.rs
+++ b/snippets/legacy/seperate_tables/vars.rs
@ -1,5 +1,5 @@
 /* relish: versatile lisp shell
- * Copyright (C) 2021 Aidan Hahn
+ * Copyright (C) 2021 Ava Affine
 *
 * This program is free software: you can redistribute it and/or modify
 * it under the terms of the GNU General Public License as published by
--- a/snippets/mood-prompt.f
+++ b/snippets/mood-prompt.f
@ -0,0 +1,15 @@
+#!/bin/flesh
+
+(def __mood 'current mood' ':3')
+
+(def CFG_FLESH_L_PROMPT 'mood left prompt'
+() (concat "(" __mood ")" ))
+
+(def CFG_FLESH_R_PROMPT 'mood right prompt'
+() 'call set-mood to change prompt')
+
+(def CFG_FLESH_PROMPT_DELIMITER 'mood prompt delim'
+() '>')
+
+(def set-mood 'set the little ascii face in your prompt'
+(mood) (set (q __mood) mood))
--- a/snippets/mood-prompt.rls
+++ b/snippets/mood-prompt.rls
@ -1,15 +0,0 @@
-#!/bin/relish
-
-(def __mood 'current mood' ':3')
-
-(def CFG_RELISH_L_PROMPT 'mood left prompt'
-() (concat "(" __mood ")" ))
-
-(def CFG_RELISH_R_PROMPT 'mood right prompt'
-() 'call set-mood to change prompt')
-
-(def CFG_RELISH_PROMPT_DELIMITER 'mood prompt delim'
-() '>')
-
-(def set-mood 'set the little ascii face in your prompt'
-(mood) (set (q __mood) mood))
--- a/snippets/prepend.rls
+++ b/snippets/prepend.rls
@ -1,7 +1,7 @@
-#!/bin/relish
+#!/bin/flesh

 (def prepend
 'takes a list and appends an element to the back of it.
 returns prepended list'
  (elem list)
-  (reverse (append (reverse list) elem)))
+  (reverse (append (reverse list) elem)))
--- a/snippets/relish-mode.el
+++ b/snippets/relish-mode.el
@ -1,7 +1,7 @@
-;;; relish-mode.el --- sample major mode for editing Relish. -*- coding: utf-8; lexical-binding: t; -*-
+;;; flesh-mode.el --- Flesh -*- coding: utf-8; lexical-binding: t; -*-

-;; Copyright © 2017, by Ava Hahn
-;; Author: Ava Hahn (ava@sunnypup.io)
+;; Copyright © 2023, by Ava Affine
+;; Author: Ava Affine (ava@sunnypup.io)
 ;; Version: 1
 ;; Keywords: languages

@ -12,7 +12,7 @@

 ;;; Code:

-(setq relish-keywords
+(setq flesh-keywords
      (let* (
             (r-control-flow '("if" "let" "circuit" "while" "assert" "exit"))
             (r-declaration  '("lambda" "q" "quote" "def" "get-doc" "set-doc" "set?"))
@ -53,7 +53,7 @@
          (,r-userlib-regexp      . 'font-lock-function-name-face)
          )))

-(setq relish-mode-syntax-table
+(setq flesh-mode-syntax-table
      (let ((table (make-syntax-table)))
        ;; string delims
        (modify-syntax-entry ?'  "\"" table)
@ -68,12 +68,12 @@

 (define-derived-mode relish-mode
  text-mode
-  "Major mode for editing Relish"
-  :syntax-table relish-mode-syntax-table
-  (setq font-lock-defaults '((relish-keywords))))
+  "Flesh"
+  :syntax-table flesh-mode-syntax-table
+  (setq font-lock-defaults '((flesh-keywords))))

-(add-to-list 'auto-mode-alist '("\\.rls\\'" . relish-mode))
-(add-to-list 'auto-mode-alist '(".relishrc" . relish-mode))
+(add-to-list 'auto-mode-alist '("\\.f\\'" . relish-mode))
+(add-to-list 'auto-mode-alist '(".fleshrc" . relish-mode))
 (provide 'relish-mode)

-;;; relish-mode.el ends here
+;;; flesh-mode.el ends here
--- a/snippets/userlib-tests.rls
+++ b/snippets/userlib-tests.rls
@ -1,7 +1,7 @@
-#!/bin/relish
+#!/bin/flesh

-;; relish: versatile lisp shell
-;; Copyright (C) 2021 Aidan Hahn
+;; Flesh: Flexible Shell
+;; Copyright (C) 2021 Ava Affine
 ;;
 ;; This program is free software: you can redistribute it and/or modify
 ;; it under the terms of the GNU General Public License as published by
--- a/snippets/userlib.rls
+++ b/snippets/userlib.rls
@ -1,7 +1,7 @@
-#!/bin/relish
+#!/bin/flesh

-;; relish: versatile lisp shell
-;; Copyright (C) 2021 Aidan Hahn
+;; Flesh: Flexible Shell
+;; Copyright (C) 2021 Ava Affine
 ;;
 ;; This program is free software: you can redistribute it and/or modify
 ;; it under the terms of the GNU General Public License as published by
@ -53,7 +53,7 @@
  refactor your program: put iterators, counters, procedurally generated code,
  and all other mutable state into a let loop.

-  A cozy script in relish is one where each root level form (or eval at repl)
+  A cozy script in flesh is one where each root level form (or eval at repl)
  is self contained, and does not permanently modify any other one.

  See the userlib tests for an easy to follow example of this.'