@@ -151,9 +151,9 @@

 (use-package fwoar-pastebin :ensure nil

   :custom

   (fwoar-pastebin-tramp-url (when (file-exists-p "~/.pastebin-name")

-                              (car (read-sexps-in-file "~/.pastebin-name"))))

+                              (car (fwoar:read-sexps-in-file "~/.pastebin-name"))))

   (fwoar-pastebin-web-url-pattern (when (file-exists-p "~/.pastebin-name")

-                                    (cadr (read-sexps-in-file "~/.pastebin-name")))))

+                                    (cadr (fwoar:read-sexps-in-file "~/.pastebin-name")))))

 (use-package fwoar-yank-buffer

   :init (require 'fwoar-yank-buffer)

@@ -345,8 +345,8 @@

   (define-key evil-insert-state-map (kbd "C-c j") 'skeleton-next-position)

   (define-key evil-insert-state-map (kbd "C-c k") 'skeleton-prev-position)

-  (evil-define-key 'normal 'global (kbd "<leader>g") 'helm-generate-lisp-skeleton)

-  (evil-define-key 'visual 'global (kbd "<leader>g") 'helm-generate-lisp-skeleton))

+  (evil-define-key 'normal 'global (kbd "<leader>g") 'fwoar:helm-generate-lisp-skeleton)

+  (evil-define-key 'visual 'global (kbd "<leader>g") 'fwoar:helm-generate-lisp-skeleton))

 (use-package htmlize

@@ -513,7 +513,7 @@

                 'ibuffer)

 (defvar url-pattern (when (file-exists-p "~/.pastebin-name")

-                      (car (read-sexps-in-file "~/.pastebin-name"))))

+                      (car (fwoar:read-sexps-in-file "~/.pastebin-name"))))

 (defun delete-mru-window ()

   (interactive)

@@ -1,7 +1,7 @@

 (defun safe-files ()

   (let ((fn (expand-file-name "~/.safe-files")))

     (when (file-exists-p fn)

-      (read-strings-in-file fn))))

+      (fwoar:read-strings-in-file fn))))

 (defun fwoar/mark-safe (fn)

   (interactive (list buffer-file-name))

@@ -86,15 +86,15 @@

   (when current-form

     (cl-destructuring-bind (discriminator . packages) current-form

       (cl-case discriminator

-        (:use (remove-if (op (or (eql :cl _)))

+        (:use (remove-if (fwoar:op (or (eql :cl _)))

                          (cdr current-form)))

         (defpackage (find-use-clause

                      (find-if (lambda (f)

                                 (and (listp f)

                                      (eql (car f) :use)))

                               '(defpackage :tracking-sim

-                                 (:use :cl :alexandria :serapeum)

-                                 (:export)))))))))

+                                           (:use :cl :alexandria :serapeum)

+                                           (:export)))))))))

 (defun load-package-uses ()

   (interactive)

@@ -5,8 +5,7 @@

 ;;; Code:

-

-(defun read-sexps-in-buffer (buffer)

+(defun fwoar:read-sexps-in-buffer (buffer)

   (with-temp-buffer

     (save-excursion

       (insert "(")

@@ -15,7 +14,7 @@

       (insert "\n)"))

     (read (current-buffer))))

-(defun read-sexps-in-file (fn)

+(defun fwoar:read-sexps-in-file (fn)

   (with-temp-buffer

     (save-excursion

       (insert "(")

@@ -24,7 +23,7 @@

       (insert "\n)"))

     (read (current-buffer))))

-(defun read-strings-in-file (fn)

+(defun fwoar:read-strings-in-file (fn)

   (with-temp-buffer

     (insert-file fn)

     (mark-whole-buffer)

@@ -32,31 +31,32 @@

     (goto-char (point-min))

     (remove "" (s-lines (buffer-string)))))

-(defun op--collect-args (body)

+(defun fwoar::op--collect-args (body)

   (cl-flet ((walker (body &optional args)

-                    (if (null body)

-                        args

-                      (if (symbolp body)

-                          (when (eql ?\_ (elt (symbol-name body) 0))

-                            (cons body args))

-                        (if (listp body)

-                            (append (op--collect-args (car body))

-                                    (op--collect-args (cdr body))

-                                    ))))))

+              (if (null body)

+                  args

+                (if (symbolp body)

+                    (when (eql ?\_ (elt (symbol-name body) 0))

+                      (cons body args))

+                  (if (listp body)

+                      (append (fwoar::op--collect-args (car body))

+                              (fwoar::op--collect-args (cdr body))

+                              ))))))

     (sort (walker body)

           (lambda (a b)

             (< (string-to-number (subseq (symbol-name a) 1))

                (string-to-number (subseq (symbol-name b) 1)))))))

-(defmacro op (&rest body)

-  `(lambda ,(op--collect-args body)

+(defmacro fwoar:op (&rest body)

+  `(lambda ,(fwoar::op--collect-args body)

      ,@body))

-(defun blank-line-p ()

+(defun fwoar:blank-line-p ()

   (= (current-indentation)

-     (- (line-end-position) (line-beginning-position))))

+     (- (line-end-position)

+        (line-beginning-position))))

-(defun helm-generate-lisp-skeleton ()

+(defun fwoar:helm-generate-lisp-skeleton ()

   (interactive)

   (let ((skeletons '(("defunction" . skel-defun)

                      ("defmacro" . skel-defmacro)