;;; -*- lexical-binding: t -*- ;; ;; -------------------------------------------------------------------------------- (require 'cl-lib) (cl-pushnew (file-name-concat ".") load-path :test #'string=) (cl-pushnew (file-name-concat ".." "ll") load-path :test #'string=) (require 'luki-lisp) ;; -------------------------------------------------------------------------------- (defun insert-mail (&optional delim) (interactive "P") (pcase-let ((`(,delim-beg ,delim-end) (if delim '("<" ">") '("" "")))) (insert (@f "%s%s%s" delim-beg user-mail-address delim-end)))) ;; (insert-mail) ; incal@dataswamp.org ;; (insert-mail 'delim) ; ;; -------------------------------------------------------------------------------- (defun insert-phone (&optional world) "WORLD format according to ITU-T E.123, https://www.itu.int/rec/T-REC-E.123-200102-I \nSweden phone number practices, https://dataswamp.org/~incal/phone/swedish-phone-numbers.txt" (interactive "P") (let ((form (if world "+46 %d%d %d%d%d %d%d %d%d" "0%d%d-%d%d%d %d%d %d%d"))) (insert (@f form 7 2 9 4 6 2 0 2 6)))) ;; (insert-phone) ; 072-946 20 26 ;; (insert-phone 'world) ; +46 72 946 20 26 ;; -------------------------------------------------------------------------------- (<- 'mail-insert)