cabo

# IPv6 address regular expression done right
# [email protected] 2010-02-11

# from a NANOG thread:
# (corrected version of) http://gist.github.com/294476
# Use the tests in that gist if you actually want to change this
ORIGINAL_IPV6_REGEX = /^\s*((([0-9A-Fa-f]{1,4}:){7}([0-9A-Fa-f]{1,4}|:))|(([0-9A-Fa-f]{1,4}:){6}(:[0-9A-Fa-f]{1,4}|((25[0-5]|2[0-4]\d|1\d\d|[1-9]?\d)(\.(25[0-5]|2[0-4]\d|1\d\d|[1-9]?\d)){3})|:))|(([0-9A-Fa-f]{1,4}:){5}(((:[0-9A-Fa-f]{1,4}){1,2})|:((25[0-5]|2[0-4]\d|1\d\d|[1-9]?\d)(\.(25[0-5]|2[0-4]\d|1\d\d|[1-9]?\d)){3})|:))|(([0-9A-Fa-f]{1,4}:){4}(((:[0-9A-Fa-f]{1,4}){1,3})|((:[0-9A-Fa-f]{1,4})?:((25[0-5]|2[0-4]\d|1\d\d|[1-9]?\d)(\.(25[0-5]|2[0-4]\d|1\d\d|[1-9]?\d)){3}))|:))|(([0-9A-Fa-f]{1,4}:){3}(((:[0-9A-Fa-f]{1,4}){1,4})|((:[0-9A-Fa-f]{1,4}){0,2}:((25[0-5]|2[0-4]\d|1\d\d|[1-9]?\d)(\.(25[0-5]|2[0-4]\d|1\d\d|[1-9]?\d)){3}))|:))|(([0-9A-Fa-f]{1,4}:){2}(((:[0-9A-Fa-f]{1,4}){1,5})|((:[0-9A-Fa-f]{1,4}){0,3}:((25[0-5]|2[0-4]\d|1\d\d|[1-9]?\d)(\.(25[0-5]|2[0-4]\d|1\d\d|[1-9]?\d)){3}))|:))|(([0-9A-Fa-f

cabo

(set-language-info-alist
 "German8" '((tutorial . "TUTORIAL.de")
	    (charset unicode)
	    (coding-system utf-8 iso-latin-1 iso-latin-9)
	    (coding-priority utf-8 iso-latin-1)
	    (nonascii-translation . iso-8859-1)
	    (input-method . "german-postfix")
	    (unibyte-display . iso-latin-1)
	    (sample-text . "\
German (Deutsch Nord)	Guten Tag

cabo

#!/opt/local/bin/ruby1.9
require 'digest/md5'
require 'shellwords'
# argument processing -- goes through Dir[], so can use '**/*' etc.
ARGV[0] ||= '.'
filenames = ARGV.map do |dirn|
  Dir[if File.directory?(dirn)
        "#{dirn}/*"
      else
        dirn

cabo

#!/opt/local/bin/ruby1.9
require 'zip/zipfilesystem'
require 'nokogiri'

MS_S = "http://schemas.openxmlformats.org/"
MS_W = MS_S + "wordprocessingml/2006/main"
MS_W_OD = MS_S + "officeDocument/2006/relationships/officeDocument"

ARGV.each do |fn|
  Zip::ZipFile.open(fn) do |zf|

cabo

# convert a filename into an array suitable for sorting
def filename_to_sortable(fn)
  # convert numeric parts of the string given into actual numbers.
  # Keep a string (third element) to disambiguate
  fn.scan(/(\D*)(\d*)/).map{ |alpha, numeric| [alpha, numeric.to_i, numeric]}
end

# sort filenames in a "natural" way, keeping numeric parts ascending numerically
def sort_filenames(a)
  a.sort_by{ |fn| filename_to_sortable(fn) }

cabo

#!/opt/local/bin/ruby1.9
require 'rubygems'
require 'nokogiri'
require 'open-uri'

txt = open("http://www.studentenwerk.bremen.de/files/main_info/essen/plaene/uniessen.php").read
txt.gsub!(/<</, "&laquo;")
txt.gsub!(/>>>/, ">&raquo;")
txt.gsub!(/>>/, "&raquo;")
doc = Nokogiri::HTML(txt)

cabo

; Upon drag-and-drop to a frame (OSX window): Find the file in the frame,
;   with shift: insert filename(s), space-separated;
;   with control: insert filename(s) as lines, repeating the beginning of the line;
;   with meta: insert file contents
; note that the emacs window must be activated (CMD-TAB) for the modifiers to register
(define-key global-map [M-ns-drag-file] 'ns-insert-file)
(define-key global-map [S-ns-drag-file] 'ns-insert-filename)
(define-key global-map [C-ns-drag-file] 'ns-insert-filename-as-lines)
(define-key global-map [ns-drag-file] 'ns-find-file-in-frame)

cabo

#!/opt/local/bin/ruby1.9
require 'nokogiri'
doc = Nokogiri::XML(ARGF).css("node").each do |node|
  if t = node["TEXT"]
    puts "#{"*" * node.ancestors("node").size}* #{t}"
  end
end

cabo

(defun hs-hide-all-comments ()
  "Hide all top level blocks, if they are comments, displaying only first line.
Move point to the beginning of the line, and run the normal hook
`hs-hide-hook'.  See documentation for `run-hooks'."
  (interactive)
  (hs-life-goes-on
   (save-excursion
     (unless hs-allow-nesting
       (hs-discard-overlays (point-min) (point-max)))
     (goto-char (point-min))

cabo

function ej() {
    for i
    do
        echo ejecting /Volumes/"$i"...
        hdiutil eject /Volumes/"$i"
    done
}
function _ej() {
    local cur="${COMP_WORDS[COMP_CWORD]}"
    local v=$(cd /Volumes/; find -x  .  -type d -depth 1 | sed s/..//)