1;;; init-func.el --- -*- lexical-binding: t -*-
 2;;
 3
 4;;;###autoload
 5(defun vde/el-load-dir (dir)
 6  "Load el files from the given folder `DIR'."
 7  (let ((files (directory-files dir nil "\.el$")))
 8    (while files
 9      (load-file (concat dir (pop files))))))
10
11;;;###autoload
12(defun vde/short-hostname ()
13  "Return hostname in short (aka wakasu.local -> wakasu)."
14  (string-match "[0-9A-Za-z-]+" system-name)
15  (substring system-name (match-beginning 0) (match-end 0)))
16
17
18(provide 'init-func)
19;;; init-func.el ends here