Skip to content

Instantly share code, notes, and snippets.

View gnusosa's full-sized avatar

Carlos Sosa gnusosa

View GitHub Profile
(defvar gnus-user-format-function-g-prev "" "")
(defun empty-common-prefix (left right)
"Given `left' '(\"foo\" \"bar\" \"fie\") and `right' '(\"foo\"
\"bar\" \"fum\"), return '(\" \" \" \" \"fum\")."
(if (and (cdr right) ; always keep the last part of right
(equal (car left) (car right)))
(cons (make-string (length (car left)) ? )
(empty-common-prefix (cdr left) (cdr right)))
right))
(defun gnus-user-format-function-g (arg)
(defun new ()
(let ((path
(read-directory-name "Path: " nil "")))
(princ path)))
@gnusosa
gnusosa / gnus-gmane-link.el
Created October 21, 2014 00:20
gnus-gmane-gwene-link
(defun gnus-gmane-link ()
"Grabs the article name and generates a url found in Gmane.
If successful, sends it to the local web browser."
(interactive)
(let ((url
(with-current-buffer gnus-article-buffer
(let ((msgids (split-string (aref gnus-current-headers 8) "[ :]")))
(cond ((and (equal (substring (second msgids) 0 6)
"gwene.")
(goto-char (point-max))
import Data.Digits
import Data.Maybe
data Isbn = Isbn { isbn10 :: Maybe Isbn10
, isbn13 :: Maybe Isbn13 }
deriving (Eq, Show)
data Isbn10 = Isbn10 Int deriving (Eq, Show)
data Isbn13 = Isbn13 Int deriving (Eq, Show)
package com.example.unionfind;
/**
* Created by gnusosa on 2/5/15.
*/
public class QuickFindUF {
private int[] id;
public QuickFindUF(int N)
# These settings were set by the catalyst build script that automatically
# built this stage.
# Please consult /usr/share/portage/config/make.conf.example for a more
# detailed example.
CFLAGS="-march=corei7 -O2 -pipe"
CXXFLAGS="${CFLAGS}"
# WARNING: Changing your CHOST is not something that should be done lightly.
# Please consult http://www.gentoo.org/doc/en/change-chost.xml before changing.
CHOST="x86_64-pc-linux-gnu"
# These are the USE flags that were used in addition to what is provided by the
ssh 1Li4OGIjwgS6GzdsPPzSvba9Z@sf.tmate.io -vvv
OpenSSH_6.7p1 Debian-3, OpenSSL 1.0.1k 8 Jan 2015
debug1: Reading configuration data /home/gnusosa/.ssh/config
debug1: Reading configuration data /etc/ssh/ssh_config
debug1: /etc/ssh/ssh_config line 19: Applying options for *
debug2: ssh_connect: needpriv 0
debug1: Connecting to sf.tmate.io [192.241.193.106] port 22.
debug1: Connection established.
debug1: key_load_public: No such file or directory
debug1: identity file /home/gnusosa/.ssh/id_rsa type -1
== 20130612005642 TranslateCustomFieldAttributes: migrating ===================
-- table_exists?(:custom_field_attribute_translations)
-> 0.0005s
-- index_exists?("custom_field_attribute_translations", ["custom_field_attribute_id"])
-> 0.0003s
-- add_index("custom_field_attribute_translations", ["custom_field_attribute_id"], {:name=>"index_custom_field_attribute_translations_on_cfa_id"})
rake aborted!
StandardError: An error has occurred, all later migrations canceled:
Index name 'index_custom_field_attribute_translations_on_cfa_id' on table 'custom_field_attribute_translations' already exists/home/gnusosa/.rbenv/versions/2.1.3/gemsets/coupa/gems/activerecord-4.0.12/lib/active_record/connection_adapters/abstract/schema_statements.rb:819:in `add_index_options'
@gnusosa
gnusosa / erc-subword-fix-emacs-HEAD.patch
Created August 27, 2015 17:56
Erc blows out in Emacs 25.0.50 with the change to subword-mode. See https://debbugs.gnu.org/db/17/17558.html
From 3017aba1093c8f57d3a3b7193692d62a56b68d3b Mon Sep 17 00:00:00 2001
From: Dima Kogan <dima@HIDDEN>
Date: Tue, 30 Dec 2014 23:29:21 -0800
Subject: [PATCH] ERC no longer gets confused by subword-mode
In commit 6ddc44225e743e2b2a0d5c192f50aefd7a4a915b subword-mode was
integrated into the syntax table instead of simply remapping the
interactive motion bindings as was done previously. This had the
unintended effect of changing the behavior of lisp programs that touch
words. In the case of ERC, it completely broke it: emacs now throws an