home

My NixOS systems configurations.
Log | Files | Refs | LICENSE

init-func.el (517B)

      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