init-utils.el

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Utility functions used across my init files.                              ;;
;;                                                                           ;;
;; Author: Pushpal Sidhu <psidhu.devel@gmail.com>                            ;;
;; Date: 20171128                                                            ;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(if (fboundp 'with-eval-after-load)
    (defalias 'after-load 'with-eval-after-load)
  (defmacro after-load (feature &rest body)
    "After FEATURE is loaded, evaluate BODY."
    (declare (indent defun))
    `(eval-after-load ,feature
       '(progn ,@body))))

;; Load Global Vars ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun util/lgv ()
  "Load global vars into file"

  (load (expand-file-name "global-vars.el" user-emacs-directory))
  (require 'global-vars)
)

(defun util/compile-directory (dir)
  "Compile files in directory DIR if req'd"
  (byte-recompile-directory (expand-file-name dir) 0)
  )

(defun util/load-elc-directory (dir)
  "Loads elc files in directory DIR"

  (let ((load-it (lambda (f)
                   (load-file f)))
                 )
    (mapc load-it (directory-files-recursively dir "\\.elc$"))))

(defun util/load-directory (dir)
  "Loads files in directory DIR"

  (let ((load-it (lambda (f)
                   (load-file f)))
                 )
    (mapc load-it (directory-files-recursively dir "\\.el$"))))

(defun util/mkdir (dir)
  "Checks whether directory DIR exists. If not, create it and
  it's parents"

  (if (not (file-exists-p dir))
      (make-directory dir t)
    )
  )

(defun util/touch (file)
  "Checks whether file FILE exists. If not, create it."

  (if (not (file-exists-p file))
      (write-region "" nil file)
    )
  )

(defun util/hook-ext-to-mode (ext md)
  "Hooks an extention (EXT) to a MODE"

  (progn
    (setq tmp (format "\\.%s\\'" ext))
    (add-to-list 'auto-mode-alist `(,tmp . ,md))
    )
  )

(defun util/add-multi-hook (hooks fn)
  "Adds multiple hooks to a single function"
  (mapc (lambda (hook)
	  (add-hook hook fn))
	hooks)
  )

(provide 'init-utils)