fiddlerwoaroof/dotfiles - Change PRE42LRLBF7CR3L7ERIPSQJJTDAQQ4UJ2H5KOHSVX7TL4STJXYNAC

feat: add prefixed coreutils

Created by Edward Langley on August 31, 2023

PRE42LRLBF7CR3L7ERIPSQJJTDAQQ4UJ2H5KOHSVX7TL4STJXYNAC

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 utils/ct-sexp.lisp at line 1 [5.100]
B:BD[5.100] → [5.101:134]
```
#!/home/edwlan/bin/sbcl --script
```
[5.100]
[5.134]
```
#!/Users/edwlan/sbcl-m1/bin/sbcl --script
```

Insertion in utils/ct-sexp.lisp at line 34 [5.100]

[6.582]

                  (princ "> ")
                  (princ (plump:text sibling))
                  (princ " ")
                  (princ ref)
                  (terpri)

Replacement in tools/zenburn.lisp at line 7 [7.84]

B:BD[7.214] → [8.84:136]

(ql:quickload '(:net.didierverna.clon :alexandria))

[7.214]

[7.254]

(ql:quickload '(:net.didierverna.clon :alexandria :dufy))

Insertion in tools/zenburn.lisp at line 84 [7.84]

[9.349]

[10.152]


(defun hsv-color (name &optional (s t))
  (let ((values (theme-color name)))
    (destructuring-bind (r g b) values
      (multiple-value-bind (h sa v) (dufy:rgb-to-hsv (/ r 255.0)
                                                     (/ g 255.0)
                                                     (/ b 255.0))
        (prog1 (format s
                       "~,3f ~,3f ~,3f"
                       (/ h 360.0) sa v)
          (unless (null s)
            (format s "~%")))))))

Replacement in tools/zenburn.lisp at line 128 [7.84]

B:BD[7.3528] → [7.3528:3573]

    (flag :short-name "h" :long-name "help")

[7.3528]

[9.543]

      (flag :short-name "h" :long-name "help")

Insertion in tools/zenburn.lisp at line 135 [7.84]

[7.3958]

[9.761]

    (enum :long-name "hsv"  :enum (mapcar 'car *color-alist*)
          :description "Show COLOR as a RGB hsv")

Insertion in tools/zenburn.lisp at line 151 [7.84]

[7.4684]

         (hsv (net.didierverna.clon:getopt :context context
                                           :long-name "hsv"))

Insertion in tools/zenburn.lisp at line 166 [7.84]

[9.916]

[7.5359]

          (hsv
           (hsv-color hsv t))

Insertion in sitecustomize3.py at line 1 [11.1]

[11.1]

__license__ = '''\
# Copyright (c) 2011 Edward Langley
# All rights reserved.
#
# Redistribution and use in source and binary forms, with or without
# modification, are permitted provided that the following conditions
# are met:
#
# Redistributions of source code must retain the above copyright notice,
# this list of conditions and the following disclaimer.
#
# Redistributions in binary form must reproduce the above copyright
# notice, this list of conditions and the following disclaimer in the
# documentation and/or other materials provided with the distribution.
#
# Neither the name of the project's author nor the names of its
# contributors may be used to endorse or promote products derived from
# this software without specific prior written permission.
#
# THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
# "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
# LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS
# FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT
# HOLDER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
# SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED
# TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR
# PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF
# LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING
# NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
# SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.'''
import re
import functools
import os.path
import inspect
def inst(x): return x()
@inst
class __Null(object): pass
def getTerminalSize():
    def ioctl_GWINSZ(fd):
        try:
            import fcntl, termios, struct, os
            cr = struct.unpack('hh', fcntl.ioctl(fd, termios.TIOCGWINSZ, '1234'))
        except:
            return None
        return cr
    cr = ioctl_GWINSZ(0) or ioctl_GWINSZ(1) or ioctl_GWINSZ(2)
    if not cr:
        try:
            fd = os.open(os.ctermid(), os.O_RDONLY)
            cr = ioctl_GWINSZ(fd)
            os.close(fd)
        except:
            pass
    if not cr:
        try:
            cr = (env['LINES'], env['COLUMNS'])
        except:
            cr = (25, 80)
    return int(cr[1]), int(cr[0])
def cmp(a,b): return (a > b) - (a < b)
def sort_(nms):
  return sorted(nms, key = functools.cmp_to_key(lambda x,y: cmp(x.lower().lstrip('_').rpartition('__')[2], y.lower().lstrip('_').rpartition('__')[2])))
def sort_decorator(func):
  @functools.wraps(func)
  def _inner(*a, **kw):
    result = func(*a, **kw)
    return sort_(result)
  return _inner
def pprint_decorator(func):
  @functools.wraps(func)
  def _inner(*args, **kwargs):
    result = func(*args, **kwargs)
    return pprint(result)
  return _inner
def dir_decorator(func):
    @functools.wraps(func)
    def _inner(nm=__Null, match=__Null):
            # print(get_interpframe())
            result = None
            if nm is __Null: result = get_interpframe().f_globals.keys()
            else:
                    result = func(nm)
                    if match is not __Null:
                            x = [x for x in result if x.startswith(match)]
                            if x: result = x
                            else:
                                    x = [x for x in result if x.endswith(match)]
                                    if x: result = x
                                    else:
                                            omatch = match
                                            if not hasattr(match, 'match'): match = re.compile(match)
                                            x = [x for x in result if match.match(x)]
                                            if x: result = x
                                            else:
                                                    raise ValueError('No symbols match %s' % omatch)
                            if x: result = x
            return result
    return _inner
def _pprint(nms):
    length = max(len(s) for s in nms)
    count = 0
    cc = 1
    while (cc*length) < ((getTerminalSize()[0])-2*cc):
        cc+=1
    cc -= 1
    if cc <= 0: cc = 1
    final_newline = False
    for v, c in enumerate(nms):
        final_newline = False
        print(c.strip().ljust(length),end='')
        if v % cc == cc-1:
            final_newline = True
            print()
    if not final_newline:
        print()
pprint = _pprint
try:
  __builtins__['pdir'] = pprint_decorator(sort_decorator(dir_decorator(dir)))
  __builtins__['fwprint'] = pprint
except:
  __builtins__.pdir = pprint_decorator(sort_decorator(dir_decorator(dir)))
  __builtins__.fwprint = pprint
try:
  import rlcompleter
  import readline
except ImportError:
  pass
readline.parse_and_bind ("tab complete")
import tempfile, subprocess
def get_interpframe(): return inspect.getouterframes(inspect.currentframe())[-1][0]
def e(name=None):
  def load_file():
    result = tempfile.NamedTemporaryFile(delete=False, dir=os.path.join(os.environ['HOME'], 'sandbox','unsorted'), prefix='pythonsnippets_', suffix='.py')
    print(__license__.encode(), '\n\n'.encode(), file=result)
    result.flush()
    return result
  if name is not None:
    def load_file():
      existed = True
      nm = os.path.join(os.environ['HOME'], 'sandbox', '%s.py' % name)
      mode = 'r+'
      if not os.path.exists(nm):
        mode = 'w'
        existed = False
      result = open(nm, mode)
      if not existed:
        print(__license__.encode(), '\n\n'.encode(), file=result)
        result.flush()
      return result
  f = load_file()
  print ('editing %s, press Enter to continue...' % f.name)
  try:
    try: subprocess.call(['vim', '+31', r'+start', f.name])
    except Exception as e: print (e)
    f.close()
    f = open(f.name)
    a = f.read()
    exec (a in get_interpframe().f_globals)
  finally:
    f.close()
def ls(name):
  load_file = lambda: open('/Users/edwlan/sandbox/unsorted/pythonsnippets_%s.py' % name)
  try:
    f = load_file()
  except IOError:
    load_file = lambda: open('/Users/edwlan/sandbox/%s.py' % name)
    f = load_file()
  raw_input('loading %s, press Enter to continue...' % f.name)
  try:
    exec (f.read() in get_interpframe().f_globals)
  finally:
    f.close()
try:
  __builtins__['e'] = e
  __builtins__['ls'] = ls
except:
  __builtins__.e = e
  __builtins__.ls = ls
#histfile = os.path.join(os.environ["HOME"], ".pyhist2.7")
#try: readline.read_history_file(histfile)
#except IOError: pass
try:
  import pip
  try:
    def ip(name):
      try: pip.main(['install', name])
      except SystemExit: pass
    __builtins__['ip'] = ip
  except:
    __builtins__.ip = ip
except ImportError:
  pass
#import atexit
#atexit.register(readline.write_history_file, histfile)

Insertion in sitecustomize2.py at line 64 [11.46]
[11.2388]
[11.2388]

Replacement in sitecustomize2.py at line 66 [11.46]

B:BD[11.2404] → [11.2404:2533]

	return sorted(nms, cmp = lambda x,y: cmp(x.lower().lstrip('_').rpartition('__')[2], y.lower().lstrip('_').rpartition('__')[2]))

[11.2404]

[11.2533]

	return sorted(nms, key = cmp_to_key(lambda x,y: cmp(x.lower().lstrip('_').rpartition('__')[2], y.lower().lstrip('_').rpartition('__')[2])))

Replacement in sitecustomize2.py at line 83 [11.46]

B:BD[11.2852] → [11.2852:3464]

	@functools.wraps(func)
	def _inner(nm=__Null, match=__Null):
		print get_interpframe()
		result = None
		if nm is __Null: result = get_interpframe().f_globals.keys()
		else:
			result = func(nm)
			if match is not __Null:
				x = [x for x in result if x.startswith(match)]
				if x: result = x
				else:
					x = [x for x in result if x.endswith(match)]
					if x: result = x
					else:
						omatch = match
						if not hasattr(match, 'match'): match = re.compile(match)
						x = [x for x in result if match.match(x)]
						if x: result = x
						else:
							raise ValueError('No symbols match %s' % omatch)

[11.2852]

[11.3464]

    @functools.wraps(func)
    def _inner(nm=__Null, match=__Null):
            print(get_interpframe())
            result = None
            if nm is __Null: result = get_interpframe().f_globals.keys()
            else:
                    result = func(nm)
                    if match is not __Null:
                            x = [x for x in result if x.startswith(match)]
                            if x: result = x
                            else:
                                    x = [x for x in result if x.endswith(match)]
                                    if x: result = x
                                    else:
                                            omatch = match
                                            if not hasattr(match, 'match'): match = re.compile(match)
                                            x = [x for x in result if match.match(x)]
                                            if x: result = x
                                            else:
                                                    raise ValueError('No symbols match %s' % omatch)
                            if x: result = x
            return result
    return _inner

Deletion in sitecustomize2.py at line 107 [11.46]
B:BD[11.3465] → [11.3465:3518]
```
				if x: result = x
		return result
	return _inner
```

Replacement in sitecustomize2.py at line 116 [11.46]

B:BD[11.3708] → [11.3708:3768]

		print c.strip().ljust(length),
		if v % cc == cc-1: print

[11.3708]

[11.3768]

		print(c.strip().ljust(length),end='')
		if v % cc == cc-1: print()

Insertion in sitecustomize.py at line 34 [11.5976]
[11.7539]
[11.7605]
```
import os.path
```

Replacement in sitecustomize.py at line 37 [11.5976]

B:BD[11.7649] → [11.7649:7714]

	try:
		from sitecustomize3 import *
	except ImportError:
		pass

[11.7649]

[11.7714]

        sys.path.append (os.path.dirname(__file__))
        from sitecustomize3 import *

Replacement in sitecustomize.py at line 40 [11.5976]
B:BD[11.7720] → [11.7720:7750]
```
	from sitecustomize2 import *
```
[11.7720]
```
        from sitecustomize2 import *
```
Replacement in scripts/prettydot at line 3 [12.119]
B:BD[12.140] → [12.140:179]
```
dot -Gbgcolor=$(zenburn --html bg+1) \
```
[12.140]
[12.179]
```
dot -Gbgcolor="$(zenburn --hsv bg+1)" \
```

Replacement in scripts/prettydot at line 5 [12.119]

B:BD[12.200] → [12.200:278]

    -Nfontcolor=$(zenburn --html fg) \
    -Ncolor=$(zenburn --html yellow) \

[12.200]

[12.278]

    -Gconcentrate=true \
    -Gsplines=ortho \
    -Nfontcolor="$(zenburn --hsv fg)" \

Replacement in scripts/prettydot at line 9 [12.119]
B:BD[12.296] → [12.296:331]
```
    -Ecolor=$(zenburn --html fg) \
```
[12.296]
[12.331]
```
    -Ecolor="$(zenburn --hsv fg)" \
```
Deletion in scripts/prettydot at line 11 [12.119]
B:BD[12.350] → [12.350:372]
```
    -Gsplines=ortho \
```
Replacement in sbcl/utils.lisp at line 243 [15.146]
B:BD[13.293] → [14.1403:1410]
```
#+(or)
```
[13.293]
[16.148]
```
;;#+(or)
```

Replacement in sbcl/utils.lisp at line 252 [15.146]

B:BD[16.450] → [16.450:484]

B:BD[16.484] → [14.1505:1761]

∅:D[14.1761] → [16.708:754]

B:BD[16.708] → [16.708:754]

B:BD[16.754] → [14.1762:1808]

∅:D[14.1808] → [16.754:915]

B:BD[16.754] → [16.754:915]

    (uiop:run-program (format nil
                              "gnuplot -e \"~:[~*~;set xrange [~{~f~^:~}];~]~:[~*~;set yrange [~{~f~^:~}];~]set terminal svg font 'Alegreya,14' enhanced  background '~a'; set border lw 3 lc rgb '~a'; plot '< cat -' lt rgb '~a' notitle ~:[~;with lines~]\""
                              xrange-p xrange
                              yrange-p yrange
                              background
                              line-color
                              frame-color
                              lines)

[16.450]

[16.915]

    (uiop:run-program (with-output-to-string (s)
                        (format (make-broadcast-stream s *error-output*)
                                "gnuplot -e \"~:[~*~;set xrange [~{~f~^:~}];~]~:[~*~;set yrange [~{~f~^:~}];~]set terminal svg font 'Alegreya,14' enhanced  background '~a'; set border lw 3 lc rgb '~a'; plot '< cat' lt rgb '~a' notitle ~:[~;with linespoint~]\""
                                xrange-p xrange
                                yrange-p yrange
                                background
                                line-color
                                frame-color
                                lines))

Insertion in sbcl/utils.lisp at line 263 [15.146]

[16.947]

                      :error-output *error-output*

Insertion in sbcl/utils.lisp at line 267 [15.146]

[16.1067]


#+(or)
(defun wi (fn)
  (swank::send-to-emacs (list :write-image fn " ")))
(export
 (defun dl (&optional (*default-pathname-defaults* *default-pathname-defaults*))
   (let ((files (funcall (data-lens:exclude (data-lens:on (data-lens:regex-match "^[.]")
                                                          'pathname-name))
                         (directory "*.asd"))))
     (values (mapcar 'load-asd files)
             files))))

Insertion in sbcl/sbclrc at line 4 [18.156]
[17.195]
[17.195]
```
#+(or)
```
Insertion in sbcl/sbclrc at line 6 [18.156]
[17.239]
[18.182]
```
#+(or)
(sb-ext:restrict-compiler-policy 'speed 0 1)
```
Deletion in sbcl/sbclrc at line 96 [18.156]
B:BD[19.2396] → [19.2396:2425]
```
        #-(and darwin arm64)
```

Replacement in sbcl/sbclrc at line 126 [18.156]

B:BD[18.3886] → [20.147:361]

;; (sb-ext:set-sbcl-source-location
;;   (merge-pathnames (make-pathname :directory '(:relative "sbcl-source")
;;                                   :defaults #1=(user-homedir-pathname))
;;                    #1#))

[18.3886]

[18.4096]

#+(or)
(sb-ext:set-sbcl-source-location
 (merge-pathnames (make-pathname :directory '(:relative "sbcl-source")
                                 :defaults #1=(user-homedir-pathname))
                  #1#))

Insertion in nix/personal-flake/home.nix at line 29 [21.337]
[21.977]
[21.977]
```
    pkgs.coreutils-prefixed
```
Replacement in iterm-preferences-m1/com.googlecode.iterm2.plist at line 1546 [22.215]
B:BD[22.20778] → [22.20778:20790]
```
			<false/>
```
[22.20778]
[22.20790]
```
			<integer>1</integer>
```
Insertion in emacs.d/packages/fwoar-json-navigator.el at line 97 [23.212]
[23.2597]
[23.2597]
```
    (message "%s" data)
```

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

[24.759]

[25.3630]


(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)))
(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)))))

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

[25.3631]

(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/lisp/fwoar-zenburn-theme.el at line 137 [27.167]

B:BD[26.482] → [26.482:526]

   `(variable-pitch ((t (:family "Lato"))))

[26.482]

[26.526]

   `(variable-pitch ((t (:family "Concourse 2" :height 160 :inherit default))))

Replacement in emacs.d/lisp/configurations/slime-conf.el at line 268 [29.171]

B:BD[28.3556] → [28.3556:3593]

                         slime-asdf)

[28.3556]

[28.3593]

                         slime-asdf
                         ;; slime-clime
                         )

Replacement in emacs.d/lisp/configurations/javascript-conf.el at line 54 [30.213]
B:BD[30.2413] → [30.2413:2421]
```
  (lsp)
```
[30.2413]
[30.2421]
```
  ;;(lsp)
```
Replacement in emacs.d/lisp/configurations/javascript-conf.el at line 111 [30.213]
B:BD[30.3339] → [30.3339:3372]
```
  (add-hook 'js2-mode-hook 'lsp)
```
[30.3339]
[30.3372]
```
  ;; (add-hook 'js2-mode-hook 'lsp)
```
Replacement in emacs.d/lisp/configurations/cider-conf.el at line 38 [31.2154]
B:BD[31.3283] → [31.3283:3309]
```
    (fwoar--find-system))
```
[31.3283]
[31.3309]
```
                             (fwoar--find-system))
```
Replacement in emacs.d/init.el at line 7 [33.136]
B:BD[32.7028] → [32.7028:7056]
∅:D[34.7053] → [35.272:273]
∅:D[32.7056] → [35.272:273]
B:BD[35.272] → [35.272:273]
```
 inhibit-startup-message t)
```
[32.7028]
[36.16748]
```
 inhibit-startup-message t
 native-comp-debug 3)
```

feat: add prefixed coreutils

Dependencies

In channels

Change contents

File deletion: dependencies, dependencies

Replacement in utils/ct-sexp.lisp at line 1 [5.100]

Insertion in utils/ct-sexp.lisp at line 34 [5.100]

Replacement in tools/zenburn.lisp at line 7 [7.84]

Insertion in tools/zenburn.lisp at line 84 [7.84]

Replacement in tools/zenburn.lisp at line 128 [7.84]

Insertion in tools/zenburn.lisp at line 135 [7.84]

Insertion in tools/zenburn.lisp at line 151 [7.84]

Insertion in tools/zenburn.lisp at line 166 [7.84]

Insertion in sitecustomize3.py at line 1 [11.1]

Insertion in sitecustomize2.py at line 64 [11.46]

Replacement in sitecustomize2.py at line 66 [11.46]

Replacement in sitecustomize2.py at line 83 [11.46]

Deletion in sitecustomize2.py at line 107 [11.46]

Replacement in sitecustomize2.py at line 116 [11.46]

Insertion in sitecustomize.py at line 34 [11.5976]

Replacement in sitecustomize.py at line 37 [11.5976]

Replacement in sitecustomize.py at line 40 [11.5976]

Replacement in scripts/prettydot at line 3 [12.119]

Replacement in scripts/prettydot at line 5 [12.119]

Replacement in scripts/prettydot at line 9 [12.119]

Deletion in scripts/prettydot at line 11 [12.119]

Replacement in sbcl/utils.lisp at line 243 [15.146]

Replacement in sbcl/utils.lisp at line 252 [15.146]

Insertion in sbcl/utils.lisp at line 263 [15.146]

Insertion in sbcl/utils.lisp at line 267 [15.146]

Insertion in sbcl/sbclrc at line 4 [18.156]

Insertion in sbcl/sbclrc at line 6 [18.156]

Deletion in sbcl/sbclrc at line 96 [18.156]

Replacement in sbcl/sbclrc at line 126 [18.156]

Insertion in nix/personal-flake/home.nix at line 29 [21.337]

Replacement in iterm-preferences-m1/com.googlecode.iterm2.plist at line 1546 [22.215]

Insertion in emacs.d/packages/fwoar-json-navigator.el at line 97 [23.212]

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

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

Replacement in emacs.d/lisp/fwoar-zenburn-theme.el at line 137 [27.167]

Replacement in emacs.d/lisp/configurations/slime-conf.el at line 268 [29.171]

Replacement in emacs.d/lisp/configurations/javascript-conf.el at line 54 [30.213]

Replacement in emacs.d/lisp/configurations/javascript-conf.el at line 111 [30.213]

Replacement in emacs.d/lisp/configurations/cider-conf.el at line 38 [31.2154]

Replacement in emacs.d/init.el at line 7 [33.136]