chore: Use elenv

Author: jcs090218

Eask

@@ -11,10 +11,11 @@
 
 (script "test" "echo \"Error: no test specified\" && exit 1")
 
-(source "gnu")
-(source "jcs-elpa")
-(source "melpa")
+(source 'gnu)
+(source 'jcs-elpa)
+(source 'melpa)
 
 (depends-on "emacs" "27.1")
+(depends-on "elenv")
 
 (setq network-security-level 'low)  ; see https://github.com/jcs090218/setup-emacs-windows/issues/156#issuecomment-932956432

jcs-frametitle.el

@@ -6,7 +6,7 @@
 ;; Maintainer: Shen, Jen-Chieh <[email protected]>
 ;; URL: https://github.com/jcs-emacs/jcs-frametitle
 ;; Version: 0.1.0
-;; Package-Requires: ((emacs "26.1"))
+;; Package-Requires: ((emacs "26.1") (elenv "0.1.0"))
 ;; Keywords: faces frame-title
 
 ;; This file is not part of GNU Emacs.
@@ -31,6 +31,8 @@
 
 ;;; Code:
 
+(require 'elenv)
+
 (defgroup jcs-frametitle nil
   "An frame title for jcs-emacs."
   :prefix "jcs-frametitle-"
@@ -89,10 +91,6 @@
 ;; (@* "Util" )
 ;;
 
-(defun jcs-frametitle-2str (obj)
-  "Convert OBJ to string."
-  (format "%s" obj))
-
 ;; TODO: Use function `string-pixel-width' after 29.1
 (defun jcs-frametitle--string-pixel-width (str)
   "Return the width of STR in pixels."
@@ -159,7 +157,7 @@
     (format " (%s) "
             (if-let* ((delta (- 0 default-text-scale--complement))
                       (delta (format (if (>= delta 0) "+%d" "%d") delta)))
-                (propertize (jcs-frametitle-2str delta)
+                (propertize (elenv-2str delta)
                             'mouse-face 'mode-line-highlight
                             'help-echo (format "Default text scale %s" delta))
               "0"))))