diff options
| -rw-r--r-- | init.el | 4 | ||||
| -rw-r--r-- | lisp/ravi-init-cpp.el | 4 |
2 files changed, 5 insertions, 3 deletions
@@ -30,11 +30,11 @@ (set-face-background 'default "black") (set-face-foreground 'default "white") (add-to-list 'default-frame-alist '(background-mode . dark)) -(require 'cl) +(require 'seq) (when window-system (defun font-candidate (&rest fonts) "Return existing font which first match." - (find-if (lambda (f) (find-font (font-spec :name f))) fonts)) + (seq-find (lambda (f) (find-font (font-spec :name f))) fonts)) (let ((fontval (font-candidate "Source Code Pro"))) (when fontval (set-face-attribute 'default nil :font fontval :height 110))) (when (find-font (font-spec :name "Symbola")) diff --git a/lisp/ravi-init-cpp.el b/lisp/ravi-init-cpp.el index 4f3327d..4c3e97f 100644 --- a/lisp/ravi-init-cpp.el +++ b/lisp/ravi-init-cpp.el @@ -24,9 +24,11 @@ ;;; Code: +(require 'cl-lib) + ; Generate a random string (of letters and numbers) of a given length (defun ravi-random-ucn-string (len) - (coerce (loop for i below len for x = (random 36) collect + (coerce (cl-loop for i below len for x = (random 36) collect (+ x (cond ((< x 10) 48) ((< x 36) (- 65 10)) |