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

(require 'cl-lib)
(require 'url-parse)

(defun machine ()
  (interactive)
  (let ((name (or (file-remote-p default-directory 'host)
                  emacs-build-system) ))
    (prog1
        name
      (message "machine: %s" name) )))

(defun valid-url (url)
  (let ((data (url-generic-parse-url url)))
    (when (cl-struct-slot-value 'url 'type data)
      t) ))

;; (valid-url "https://dataswamp.org/~incal/") ; t
;; (valid-url "dataswamp.org/~incal/")         ; nil

(provide 'remote)