fiddlerwoaroof/dotfiles - Change KSVKV3NO4ZSU4L3YIKL3NHNNVQAK7CJSGRCPJ5LBYZ2UCZWP3ZSAC

chore(stumpwm): improve asdf output translations and browser finding

Created by Ed L on January 6, 2022

KSVKV3NO4ZSU4L3YIKL3NHNNVQAK7CJSGRCPJ5LBYZ2UCZWP3ZSAC

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 stumpwmrc at line 8 [7.17]
B:BD[5.6544] → [6.246:258]
```
;;#+devtime
```
[5.6544]
[8.143]
```
#+devtime
```
Insertion in stumpwmrc at line 16 [7.17]
[8.308]
[8.308]
```
 (require :sb-posix)
```

Insertion in stumpwmrc at line 22 [7.17]

[8.360]

    (sb-posix:setenv "PATH" (format nil "/snap/bin:~a" (sb-posix:getenv "PATH")) 1)

Replacement in stumpwm.d/build/commands.lisp at line 41 [8.1830]

B:BD[8.3047] → [8.3047:3112]

  (defparameter *browser-command* "/usr/bin/google-chrome-beta")

[8.3047]

[8.3112]

  (defparameter *browser-command*
    (namestring
     (merge-pathnames (make-pathname :directory '(:relative "bin")
                                     :name "firefox")
                      (user-homedir-pathname))))

Replacement in stumpwm.d/build/commands.lisp at line 53 [8.1830]

B:BD[8.3328] → [8.3328:3409]

     (declare (ignore r))
     (apply #'concatenate 'string (call-next-method)))

[8.3328]

[8.3409]

      (declare (ignore r))
      (apply #'concatenate 'string (call-next-method)))

Replacement in stumpwm.d/build/commands.lisp at line 57 [8.1830]

B:BD[8.3449] → [8.3449:3517]

     (declare (ignore r))
     (list "https://duckduckgo.com/?q="))

[8.3449]

[8.3517]

      (declare (ignore r))
      (list "https://duckduckgo.com/?q="))

Replacement in stumpwm.d/build/commands.lisp at line 60 [8.1830]

B:BD[8.3574] → [8.3574:3664]

     (list* (car strings) (loop for string in (cdr strings) nconcing (list "+" string))))

[8.3574]

[8.3664]

      (list* (car strings) (loop for string in (cdr strings) nconcing (list "+" string))))

Replacement in stumpwm.d/build/commands.lisp at line 63 [8.1830]

B:BD[8.3726] → [8.3726:3809]

     (list* "%21google" (loop for string in strings nconcing (list "+" string)))))

[8.3726]

[8.3809]

      (list* "%21google" (loop for string in strings nconcing (list "+" string)))))

Deletion in stumpwm.d/build/commands.lisp at line 88 [8.1830]

B:BD[8.4527] → [8.4527:4896]


  (defcommand google (provider search-string) ((:string "Search Provider? ") (:string "Search Google for: "))
    "Search google for a given string"
    (check-type search-string (or null string))
    (when search-string)
    (run-shell-command (cat *browser-command* " "
                            (get-search-url :google (substitute #\+ #\space search-string)))))

Replacement in stumpwm.d/build/commands.lisp at line 95 [8.1830]

B:BD[8.5241] → [8.5241:5397]

        (run-shell-command (cat *browser-command* " "
                                (get-search-url provider (substitute #\+ #\space search-string)))))))

[8.5241]

[8.5397]

        (run-shell-command (cat *browser-command* (get-search-url provider (substitute #\+ #\space search-string)))))))

Replacement in stumpwm.d/build/commands.lisp at line 101 [8.1830]

B:BD[8.5580] → [8.5580:5730]

      (run-shell-command (cat *browser-command* " "
                              (get-search-url :google (substitute #\+ #\space search-string))))))

[8.5580]

[8.5730]

      (run-shell-command (cat *browser-command* (get-search-url :google (substitute #\+ #\space search-string))))))

Replacement in stumpwm.d/build/commands.lisp at line 107 [8.1830]

B:BD[8.5918] → [8.5918:6064]

      (run-shell-command (cat *browser-command* " "
                              (get-search-url nil (substitute #\+ #\space search-string))))))

[8.5918]

[8.6064]

      (run-shell-command (cat *browser-command* (get-search-url nil (substitute #\+ #\space search-string))))))

Replacement in stumpwm.d/build/commands.lisp at line 117 [8.1830]

B:BD[8.6422] → [8.6422:6568]

    (run-shell-command #1=(cat *browser-command*
                               (format nil "https://atomampd.atlassian.net/browse/~a" number))))

[8.6422]

[8.6568]

    (run-shell-command #1=(format nil "'~a'"
                                  (cat *browser-command*
                                       (format nil "https://atomampd.atlassian.net/browse/~a" number)))))

Insertion in stumpwm.d/build/build.lisp at line 7 [8.7656]

[9.176]

[8.7771]

 (defun library-translation (input dd)
   (declare (ignore dd))
   (merge-pathnames
     (make-pathname :directory
                    (list* :relative
                           "lisp-dylibs"
                           (cdr
                             (pathname-directory
                               (parse-namestring
                                 input))))
                    :defaults input)
     (user-homedir-pathname)))
 (defun is-library ()
   (make-pathname :directory (list :absolute :wild-inferiors)
                  :name :wild
                  :type "so"
                  :version :wild))
 (asdf:initialize-output-translations
   `(:output-translations
      :inherit-configuration
      (,(is-library) (:function library-translation)))))
(eval-when (:compile-toplevel :load-toplevel :execute)