~skin/dotfiles

1874046dd13f25b74a91c887652cc79eb89918ce — Daniel Jay Haskin a month ago 65d0994
But better
1 files changed, 18 insertions(+), 13 deletions(-)

M dot-roswell/init.lisp
M dot-roswell/init.lisp => dot-roswell/init.lisp +18 -13
@@ 7,33 7,36 @@
#+(and windows (not ocicl))
(when (probe-file #P"C:/Users/bhw/AppData/Local/ocicl/ocicl-runtime.lisp")
  (load #P"C:/Users/bhw/AppData/Local/ocicl/ocicl-runtime.lisp"))
;; Any systems you install in C:/Users/bhw/AppData/Local/ocicl/
;; will be available globally unless you comment out this line:
;;; Any systems you install in C:/Users/bhw/AppData/Local/ocicl/
;;; will be available globally unless you comment out this line:
#+windows
(asdf:initialize-source-registry '(:source-registry :ignore-inherited-configuration (:tree #P"C:/Users/bhw/AppData/Local/ocicl/")))


;;; https://github.com/ocicl/ocicl.git
#-(or windows ocicl)
(when (probe-file #P"/home/skin/.local/share/ocicl/ocicl-runtime.lisp")
  (load #P"/home/skin/.local/share/ocicl/ocicl-runtime.lisp"))
;; Any systems you install in C:/Users/bhw/AppData/Local/ocicl/
;; will be available globally unless you comment out this line:
;;; Any systems you install in C:/Users/bhw/AppData/Local/ocicl/
;;; will be available globally unless you comment out this line:
#-windows
(asdf:initialize-source-registry '(:source-registry :ignore-inherited-configuration (:tree #P"/home/skin/local/share/ocicl/")))


;;; The following lines added by ql:add-to-init-file:
;;#-quicklisp
;;(let ((quicklisp-init (merge-pathnames "quicklisp/setup.lisp"
;;                                       (user-homedir-pathname))))
;;  (when (probe-file quicklisp-init)
;;    (load quicklisp-init)))
;;
;;;#-quicklisp
;;;(let ((quicklisp-init (merge-pathnames "quicklisp/setup.lisp"
;;;                                       (user-homedir-pathname))))
;;;  (when (probe-file quicklisp-init)
;;;    (load quicklisp-init)))
;;;

(defun nvim (fname)
  (multiple-value-bind
    (out err code)
    (uiop:run-program (list "nvim-qt" fname))

    (uiop:run-program (list "nvim" fname)
                      :output :interactive
                      :input :interactive)
    (declare (ignore out)
             (ignore err))
    (eql code 0)))


@@ 55,4 58,6 @@
  (export 'C:*CC*)
  (export 'C:*USER-CC-FLAGS*)
  (in-package #:cl-user)
  )
\ No newline at end of file
  )

(pushnew (uiop:getcwd) asdf:*central-registry*)
\ No newline at end of file