;;; -*- 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) ; <incal@dataswamp.org>

;; --------------------------------------------------------------------------------

(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)