fiddlerwoaroof/dotfiles - Change LQOM7R4AZ3RWO2IJYDBZSKIMCWEAWIBGK7TUXOUWLB5GEEC4EJRQC

fix(emacs): address warnings in my packages

Created by Edward Langley on April 19, 2025

LQOM7R4AZ3RWO2IJYDBZSKIMCWEAWIBGK7TUXOUWLB5GEEC4EJRQC

Dependencies

In channels

main

Change contents

File deletion: dependencies, dependencies
BFD:BFD[3.1] → [4.129:152]
BFD:BFD[3.1] → [4.129:152]
BFD:BFD[4.152] → [4.128:128]
Replacement in emacs.d/packages/fwoar-yank-buffer.el at line 6 [5.207]
B:BD[5.363] → [5.363:381]
```
;; Version: 0.0.1
```
[5.363]
[5.381]
```
;; Version: 0.0.2
```
Insertion in emacs.d/packages/fwoar-yank-buffer.el at line 9 [5.207]
[5.431]
[5.431]
```
;; Package-Requires: (emacs)
```
Replacement in emacs.d/packages/fwoar-json-navigator.el at line 6 [6.212]
B:BD[6.395] → [6.395:413]
```
;; Version: 0.0.1
```
[6.395]
[6.413]
```
;; Version: 0.0.2
```

Replacement in emacs.d/packages/fwoar-json-navigator.el at line 9 [6.212]

B:BD[6.466] → [7.217:273]

;; Package-Requires: (json-mode fwoar-functional-utils)

[6.466]

;; Package-Requires: (json-mode fwoar-functional-utils s cl-lib)

Replacement in emacs.d/packages/fwoar-json-navigator.el at line 40 [6.212]

B:BD[8.456] → [8.456:552]

    (comment
     (buffer (generate-new-buffer
              (format "*API result: %s*" url))))

[8.456]

[8.552]

    ;;(comment
    ;; (buffer (generate-new-buffer
    ;;          (format "*API result: %s*" url))))

Replacement in emacs.d/packages/fwoar-json-navigator.el at line 46 [6.212]
B:BD[8.678] → [9.2285:2333]
```
        (rename-buffer (subseq buffer-name 1)))
```
[8.678]
[8.731]
```
        (rename-buffer (cl-subseq buffer-name 1)))
```
Replacement in emacs.d/packages/fwoar-json-navigator.el at line 61 [6.212]
∅:D[7.452] → [6.1450:1462]
∅:D[10.581] → [6.1450:1462]
B:BD[6.1450] → [6.1450:1462]
```
  (values))
```
[10.581]
[6.1462]
```
  (cl-values))
```

Replacement in emacs.d/packages/fwoar-json-navigator.el at line 65 [6.212]

B:BD[6.1528] → [6.1528:1585]

B:BD[6.1585] → [10.630:692]

∅:D[10.692] → [6.1647:1669]

B:BD[6.1647] → [6.1647:1669]

    (vector (map 'vector
                 (lambda (next)
                   (fwoar:json-nav--pierce-vectors fun next))
                 it))

[6.1528]

[6.1669]

    (vector (cl-map 'vector
                    (lambda (next)
                      (fwoar:json-nav--pierce-vectors fun next))
                    it))

Replacement in emacs.d/packages/fwoar-json-navigator.el at line 100 [6.212]

B:BD[6.2674] → [10.1114:1274]

∅:D[10.1274] → [6.2834:3271]

B:BD[6.2834] → [6.2834:3271]

            (vector (remove-duplicates (sort (fwoar:json-nav--with-collector (c)
                                               (fwoar:json-nav--pierce-vectors
                                                (lambda (next)
                                                  (when next
                                                    (map nil #'c
                                                         (hash-table-keys next))))
                                                data))
                                             'string<)
                                       :test 'equal)))

[6.2674]

[6.3271]

            (vector (cl-remove-duplicates (sort (fwoar:json-nav--with-collector (c)
                                                  (fwoar:json-nav--pierce-vectors
                                                   (lambda (next)
                                                     (when next
                                                       (cl-map nil #'c
                                                               (hash-table-keys next))))
                                                   data))
                                                'string<)
                                          :test 'equal)))

Replacement in emacs.d/packages/fwoar-json-navigator.el at line 125 [6.212]

∅:D[8.1158] → [6.3823:3851]

∅:D[10.1625] → [6.3823:3851]

B:BD[6.3823] → [6.3823:3851]

B:BD[6.3851] → [10.1626:1701]

∅:D[10.1701] → [6.3926:4043]

B:BD[6.3926] → [6.3926:4043]

      (setf (buffer-string)
            (json-serialize (fwoar:json-nav--get-path fwoar:json-nav--data
                                                      (reverse path))
                            :null-object nil))

[10.1625]

[6.4043]

      (erase-buffer)
      (insert (json-serialize (fwoar:json-nav--get-path fwoar:json-nav--data
                                                        (reverse path))
                              :null-object nil))

Replacement in emacs.d/packages/fwoar-helm-project.el at line 6 [11.216]
B:BD[11.382] → [11.382:400]
```
;; Version: 0.0.1
```
[11.382]
[11.400]
```
;; Version: 0.0.2
```
Insertion in emacs.d/packages/fwoar-helm-project.el at line 35 [11.216]
[11.1329]
[11.1329]
```
(declare-function helm-projectile nil ())
```
Insertion in emacs.d/packages/fwoar-helm-project.el at line 42 [11.216]
[11.1535]
[11.1535]
```
(declare)
```

Replacement in emacs.d/packages/fwoar-helm-project.el at line 102 [11.216]

B:BD[12.11365] → [12.11365:11625]

(defun fwoar::spotlight-validate-or-make-dummy-process (input)
  (cond
   ((< (length input) helm-rg-input-min-search-chars)
    (helm-rg--make-dummy-process
     input
     (format "must be at least %d characters" helm-rg-input-min-search-chars)))
   (t t)))

[12.11365]

[12.11625]

;; (defun fwoar::spotlight-validate-or-make-dummy-process (input)
;;   (cond
;;    ((< (length input) helm-rg-input-min-search-chars)
;;     (helm-rg--make-dummy-process
;;      input
;;      (format "must be at least %d characters" helm-rg-input-min-search-chars)))
;;    (t t)))

Replacement in emacs.d/packages/fwoar-helm-project.el at line 110 [11.216]

B:BD[12.11626] → [12.11626:12429]

(defun fwoar::spotlight-search (s)
  (s-split "\n" (shell-command-to-string
                 (format "mdfind %s"
                         (shell-quote-argument s)))))
(defun fwoar::spotlight-search ()
  "Invoke ripgrep in `helm-rg--current-dir' with `helm-pattern'.
Make a dummy process if the input is empty with a clear message to the user."
  (let* ((input helm-pattern))
    (pcase-exhaustive (fwoar::spotlight-validate-or-make-dummy-process input)
      ((and (pred processp) x)
       (setq helm-rg--last-argv nil)
       x)
      (`t
       (let* ((rg-regexp (helm-rg--helm-pattern-to-ripgrep-regexp input))
              (argv (helm-rg--construct-argv rg-regexp))
              (real-proc (helm-rg--make-process-from-argv argv)))
         (setq helm-rg--last-argv argv)
         real-proc)))))

[12.11626]

[11.3630]

;; (defun fwoar::spotlight-search (s)
;;   (s-split "\n" (shell-command-to-string
;;                  (format "mdfind %s"
;;                          (shell-quote-argument s)))))

Replacement in emacs.d/packages/fwoar-helm-project.el at line 115 [11.216]

B:BD[11.3631] → [12.12430:12792]

(defvar *fwoar::spotlight-source*
  (helm-build-async-source
      "find files with spotlight"
    :candidates-process 'fwoar::spotlight-search
    :action (helm-make-actions
             "Open" #'find-file)
    ))
(defun fwoar:spotlight-search ()
  (interactive)
  (helm (list )
        :input ":write-image"
        :prompt "Spotlight expression: "
        ))

[11.3631]

[12.12792]

;; (defun fwoar::spotlight-search ()
;;   "Invoke ripgrep in `helm-rg--current-dir' with `helm-pattern'.
;; Make a dummy process if the input is empty with a clear message to the user."
;;   (let* ((input helm-pattern))
;;     (pcase-exhaustive (fwoar::spotlight-validate-or-make-dummy-process input)
;;       ((and (pred processp) x)
;;        (setq helm-rg--last-argv nil)
;;        x)
;;       (`t
;;        (let* ((rg-regexp (helm-rg--helm-pattern-to-ripgrep-regexp input))
;;               (argv (helm-rg--construct-argv rg-regexp))
;;               (real-proc (helm-rg--make-process-from-argv argv)))
;;          (setq helm-rg--last-argv argv)
;;          real-proc)))))
;;
;; (defvar *fwoar::spotlight-source*
;;   (helm-build-async-source
;;       "find files with spotlight"
;;     :candidates-process 'fwoar::spotlight-search
;;     :action (helm-make-actions
;;              "Open" #'find-file)
;;     ))
;; (defun fwoar:spotlight-search ()
;;   (interactive)
;;   (helm (list )
;;         :input ":write-image"
;;         :prompt "Spotlight expression: "
;;         ))

Replacement in emacs.d/packages/fwoar-functional-utils.el at line 6 [13.202]
B:BD[13.387] → [13.387:405]
```
;; Version: 0.0.1
```
[13.387]
[13.405]
```
;; Version: 0.0.2
```
Insertion in emacs.d/packages/fwoar-functional-utils.el at line 9 [13.202]
[13.458]
[13.458]
```
;; Package-Requires: (cl-lib)
```
Replacement in emacs.d/packages/fwoar-functional-utils.el at line 30 [13.202]
B:BD[13.1172] → [13.1172:1203]
```
(eval-when (compile load eval)
```
[13.1172]
[10.2227]
```
(cl-eval-when (compile load eval)
```

Replacement in emacs.d/packages/fwoar-functional-utils.el at line 55 [13.202]

∅:D[14.3636] → [10.2474:2548]

B:BD[13.1808] → [10.2474:2548]

∅:D[10.2548] → [15.411:476]

B:BD[13.1882] → [15.411:476]

∅:D[15.476] → [13.1943:2617]

B:BD[13.1943] → [13.1943:2617]

  `(flet ,(loop for (name raw-args namespaced) in fwoar:*namespaced-funs*
                for rest-arg = (cl-find-if (data-lens:just-after
                                            (lambda (it)
                                              (member it '(&rest &body))))
                                           raw-args)
                for args = (cl-remove-if (lambda (it)
                                           (or (eql it rest-arg)
                                               (and (symbolp it)
                                                    (= ?&
                                                       (elt
                                                        (symbol-name it)
                                                        0)))))
                                         raw-args)

[14.3636]

[13.2617]

  `(flet ,(cl-loop for (name raw-args namespaced) in fwoar:*namespaced-funs*
                   for rest-arg = (cl-find-if (data-lens:just-after
                                               (lambda (it)
                                                 (member it '(&rest &body))))
                                              raw-args)
                   for args = (cl-remove-if (lambda (it)
                                              (or (eql it rest-arg)
                                                  (and (symbolp it)
                                                       (= ?&
                                                          (elt
                                                           (symbol-name it)
                                                           0)))))
                                            raw-args)

Replacement in emacs.d/packages/fwoar-functional-utils.el at line 69 [13.202]

B:BD[13.2618] → [13.2618:3207]

                collect `(,name ,raw-args
                                (,@(if rest-arg
                                       `(apply ',namespaced)
                                     (list namespaced))
                                 ,@(mapcar (lambda (it)
                                             (if (listp it)
                                                 (car it)
                                               it))
                                           args)
                                 ,@(when rest-arg
                                     (list rest-arg)))))

[13.2618]

[13.3207]

                   collect `(,name ,raw-args
                                   (,@(if rest-arg
                                          `(apply ',namespaced)
                                        (list namespaced))
                                    ,@(mapcar (lambda (it)
                                                (if (listp it)
                                                    (car it)
                                                  it))
                                              args)
                                    ,@(when rest-arg
                                        (list rest-arg)))))

Replacement in emacs.d/packages/fwoar-functional-utils.el at line 109 [13.202]

B:BD[15.808] → [15.808:892]

  (map (type-of list)
       (lambda (it)
         (apply f it args))
       list))

[15.808]

[13.3829]

  (cl-map (type-of list)
          (lambda (it)
            (apply f it args))
          list))

Replacement in emacs.d/packages/fwoar-functional-utils.el at line 167 [13.202]
B:BD[13.4255] → [13.4255:4286]
```
           (typecase (car map)
```
[13.4255]
[13.4286]
```
           (cl-typecase (car map)
```

Replacement in emacs.d/packages/fwoar-functional-utils.el at line 171 [13.202]

B:BD[16.310] → [17.1053:1103]

                         (return (car value))))))

[16.310]

[17.1103]

                         (cl-return (car value))))))

Replacement in emacs.d/packages/fwoar-functional-utils.el at line 183 [13.202]
∅:D[10.3450] → [17.1351:1388]
B:BD[17.1351] → [17.1351:1388]
```
             finally (return cur))))
```
[10.3450]
[13.4578]
```
             finally (cl-return cur))))
```

Replacement in emacs.d/packages/fwoar-functional-utils.el at line 185 [13.202]

B:BD[13.4579] → [13.4579:4588]

B:BD[13.4588] → [10.3451:3490]

∅:D[10.3490] → [13.4627:4691]

B:BD[13.4627] → [13.4627:4691]

(comment
 (fwoar:def-ns-fun regex-match (regex)
   (lambda (data)
     (cl-ppcre:scan-to-strings regex data))))

[13.4579]

[13.4691]

;; (comment
;;  (fwoar:def-ns-fun regex-match (regex)
;;    (lambda (data)
;;      (cl-ppcre:scan-to-strings regex data))))

Replacement in emacs.d/packages/fwoar-functional-utils.el at line 210 [13.202]
B:BD[14.3726] → [14.3726:3760]
```
    (cl-stable-sort (copy-seq it)
```
[14.3726]
[14.3760]
```
    (cl-stable-sort (cl-copy-seq it)
```

Replacement in emacs.d/packages/fwoar-functional-utils.el at line 217 [13.202]

B:BD[13.5095] → [13.5095:5217]

    (list* (apply fun1 args)
           (mapcar (lambda (f)
                     (apply f args))
                   r))))

[13.5095]

[13.5217]

    (cl-list* (apply fun1 args)
              (mapcar (lambda (f)
                        (apply f args))
                      r))))

Replacement in emacs.d/packages/fwoar-functional-utils.el at line 225 [13.202]

B:BD[14.3913] → [14.3913:4007]

              (loop for f in (list* fun1 fun2 r)
                    collect (funcall f it)))

[14.3913]

[14.4007]

              (cl-loop for f in (cl-list* fun1 fun2 r)
                       collect (funcall f it)))

fix(emacs): address warnings in my packages

Dependencies

In channels

Change contents

File deletion: dependencies, dependencies

Replacement in emacs.d/packages/fwoar-yank-buffer.el at line 6 [5.207]

Insertion in emacs.d/packages/fwoar-yank-buffer.el at line 9 [5.207]

Replacement in emacs.d/packages/fwoar-json-navigator.el at line 6 [6.212]

Replacement in emacs.d/packages/fwoar-json-navigator.el at line 9 [6.212]

Replacement in emacs.d/packages/fwoar-json-navigator.el at line 40 [6.212]

Replacement in emacs.d/packages/fwoar-json-navigator.el at line 46 [6.212]

Replacement in emacs.d/packages/fwoar-json-navigator.el at line 61 [6.212]

Replacement in emacs.d/packages/fwoar-json-navigator.el at line 65 [6.212]

Replacement in emacs.d/packages/fwoar-json-navigator.el at line 100 [6.212]

Replacement in emacs.d/packages/fwoar-json-navigator.el at line 125 [6.212]

Replacement in emacs.d/packages/fwoar-helm-project.el at line 6 [11.216]

Insertion in emacs.d/packages/fwoar-helm-project.el at line 35 [11.216]

Insertion in emacs.d/packages/fwoar-helm-project.el at line 42 [11.216]

Replacement in emacs.d/packages/fwoar-helm-project.el at line 102 [11.216]

Replacement in emacs.d/packages/fwoar-helm-project.el at line 110 [11.216]

Replacement in emacs.d/packages/fwoar-helm-project.el at line 115 [11.216]

Replacement in emacs.d/packages/fwoar-functional-utils.el at line 6 [13.202]

Insertion in emacs.d/packages/fwoar-functional-utils.el at line 9 [13.202]

Replacement in emacs.d/packages/fwoar-functional-utils.el at line 30 [13.202]