diff --git a/init.el b/init.el index 17f5eb3..f860cd2 100644 --- a/init.el +++ b/init.el @@ -54,6 +54,7 @@ (load "file-manip") (load "window-manip") (load "xdg-paths") +(load "utils") ;; Define aliases (defalias 'yes-or-no-p 'y-or-n-p) @@ -318,12 +319,6 @@ (list sml/pre-id-separator) mode-line-rest)))) -(defun nil-orlist-of-strings-p (var) - "Return t if VAR is either nil or a list holding only strings." - (or (null var) - (not (null (delq nil - (mapcar (lambda (x) (and (stringp x) x)) var)))))) - (use-package company :config (setq company-idle-delay nil diff --git a/lisp/utils.el b/lisp/utils.el new file mode 100644 index 0000000..fbf804d --- /dev/null +++ b/lisp/utils.el @@ -0,0 +1,14 @@ +;;; utils --- Summary + +;;; Commentary: + +;;; Code: + +(defun nil-or-list-of-strings-p (var) + "Return t if VAR is either nil or a list holding only strings." + (or (null var) + (not (null (delq nil + (mapcar (lambda (x) (and (stringp x) x)) var)))))) + +(provide 'utils) +;;; utils.el ends here