gempesaw

#! /usr/bin/perl

use strict;
use warnings;

use Selenium::Remote::Driver;

my $driver = new Selenium::Remote::Driver();

$driver->get("http://www.google.com");

gempesaw

;; https://plus.google.com/u/0/105641731374531810537/posts/YDz3n6BWmea

(defun my-stitch-two-files-alongside (left-file right-file)
  "Patch two files together side by side"
  (interactive "fRequest file: \nfResponse file: ")
  (pop-to-buffer (generate-new-buffer "merged-req-rsp-files"))
  (let ((left-strings (file-string-list left-file))
        (right-strings (file-string-list right-file)))
    (while left-strings
      (insert (car left-strings) " -> " (car right-strings))

gempesaw

(require 'dash)

(defun reset-ssh-connections ()
  (interactive)
  (let ((tramp-buffers
         (-filter (lambda (item)
                    (string-match "tramp" (buffer-name item)))
                  (buffer-list))))
    (while tramp-buffers
      (kill-buffer (car tramp-buffers))

gempesaw

;; Display ido results vertically, rather than horizontally
(setq ido-decorations '("\n-> " "" "\n   " "\n   ..."
                        "[" "]" " [No match]" " [Matched]"
                        " [Not readable]" " [Too big]" " [Confirm]"))
(defun ido-disable-line-trucation () 
  (set (make-local-variable 'truncate-lines) nil))
(add-hook 'ido-minibuffer-setup-hook 'ido-disable-line-trucation)

gempesaw

(setq ssh-config-path "~/.ssh/config")

(defun get-file-as-string (filePath)
  "Return FILEPATH's file content."
  (with-temp-buffer
    (insert-file-contents filePath)
    (split-string
     (buffer-string) "\n" t)))

(defun get-remote-names ()

gempesaw

import junit.framework.TestCase;
import org.openqa.selenium.*;
import org.openqa.selenium.remote.*;
import java.net.URL;
import java.util.concurrent.TimeUnit;

public class TestingSe2Sauce extends TestCase {
    private WebDriver driver;

    public void setUp() throws Exception {