From 990e728d0d4725167c9d9110d815dd1efd2f73f2 Mon Sep 17 00:00:00 2001 From: Ravi R Kiran Date: Tue, 19 Apr 2022 06:52:59 -0500 Subject: Remove dependence on cl diff --git a/init.el b/init.el index b558716..5453cef 100644 --- a/init.el +++ b/init.el @@ -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)) -- cgit v0.10.1