kototama

;; see https://github.com/TatriX/cl-selenium-webdriver

(defpackage scrapov
  (:use :cl :cl-selenium ))

(in-package :scrapov)

(defparameter *code* "
package main
import \"fmt\"

kototama

diff --git a/src/cmd.c b/src/cmd.c
index d7303ec..44bc0b5 100644
--- a/src/cmd.c
+++ b/src/cmd.c
@@ -3927,7 +3927,8 @@ void
 reset_commands(initial)
 boolean initial;
 {
-    static const char sdir[] = "hykulnjb><",
+  static const char sdir [] = "nluyi.eh><",

kototama

(ns seven.core
  (:use clojure.math.combinatorics))

(defn rpn-eval
  [e]
  (loop [[arg1 arg2 op & nxt] e]
    (if (nil? arg2)
      arg1
      (let [result (try (eval (list op arg1 arg2))
                        (catch Exception e nil))]

kototama

(defun clojure-correct-ns
  ()
  "Returns the namespace name that the file should have."
 (let* ((nsname ())
        (dirs (reverse (split-string (buffer-file-name) "/")))
        (aftersrc nil))
   (dolist (dir dirs)
     (when (not aftersrc)
       (if (or (string= dir "src") (string= dir "test"))
           (setq aftersrc t)

kototama

(defun earmuffy (&optional arg)
  (interactive "P")
  (let* ((variable (thing-at-point 'sexp))
         (bounds (bounds-of-thing-at-point 'sexp))
         (current-point (point))
         (earmuffed-variable (concat "*" variable "*")))
    (save-excursion)
    (kill-region (car bounds) (cdr bounds))
    (if arg
        ;; unearmuffy