Re: Enclosing text in a box

[Emanuel Berg]

Eli Zaretskii wrote:

>> Asking users to handle such conditions would be too hard [...]
>
> [...] this is Emacs Lisp programming

You better believe it - it's like at the very epicentrum
of things!

Only the very, very best can do it, and sometimes seven days
a week.

(defun sign (label &optional no-insert)
  (interactive "sLabel: \nP")
  (let*((vertical   "|")
        (horizontal  ?-)
        (corner     "+")
        (mid (format "%s %s %s" vertical label vertical))
        (len (length mid))
        (top (format "%s%s%s" corner (make-string (- len 2) horizontal) corner))
        (sgn (format "%s\n%s\n%s\n" top mid top)) )
    (if no-insert
        sgn
      (insert sgn) )))

;; +---------------------+
;; | This is not a bluff |
;; +---------------------+

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