Re: how to speed up Lisp devel time

[Emanuel Berg <incal@dataswamp.org>]

Yuri Khan wrote:

> Asking for a more defaulting, more validating sequential
> 'read-*' is like asking Henry Ford for a faster horse.

Work on realizing the DRAW syntax has begun. (DRAW stands for
Dorks Run Away when they face a Warrior.)

The actual tool OTOH is called iihf, or "imbecille individuals
have fled".

But this is just a sneak peak, no Emacs devel on emacs-devel.

But again please post the "impossible" interfaces that cannot
be automated, but must be setup explicitly with Lisp, if that
is what you meant (?).

;;; -*- lexical-binding: t -*-
;;
;; this file:
;;   https://dataswamp.org/~incal/emacs-init/iihf.el

(require 'calc-ext)

;; [
;;   end  :d 73     :r 0<            :pa mxd od
;;   step :d end/10 :r 0<  :r 2-10 c
;;   i    :d 0      :r 0<=
;; ]

(defalias '^ #'expt)

(defun infx (str)
  (let* ((exp (math-read-expr str))
         (fun (car exp))
         (new (cons (intern (caar (cl-member fun math-expr-opers :key #'cadr :test #'equal)))
                    (cdr exp))))
    (apply (car new) (cdr new))))

;; (infx "2 < 3") ; t
;; (infx "2 + 3") ; 5
;; (infx "2 * 3") ; 6
;; (infx   "2^3") ; 8  (must have above alias for this)
;; (infx  "2**3") ; 8  (same)

(defun in-intv (n lo hi &optional mask)
  (unless mask
    (setq mask 3))
  (= 1 (calcFunc-in n (calcFunc-intv mask lo hi))))

;; mask: (< < 0) (<= < 1) (< <= 2) (<= <= 3)

;; (in-intv   2 2 10) ; t
;; (in-intv  10 2 10) ; t
;; (in-intv   0 2 10) ; nil
;; (in-intv 700 2 10) ; nil

(provide 'iihf)

-- 
underground experts united
https://dataswamp.org/~incal