Skip to content

Instantly share code, notes, and snippets.

#---- Generated by tint2conf 1260 ----
# See https://gitlab.com/o9000/tint2/wikis/Configure for
# full documentation of the configuration options.
#-------------------------------------
# Gradients
#-------------------------------------
# Backgrounds
# Background 1: Panel
rounded = 0
border_width = 0
@LaloHao
LaloHao / e.sh
Created April 5, 2017 03:50
Accesos para emacs
#!/bin/sh
emacsclient -c $@
export EDITOR=et
export ZSH=/usr/share/oh-my-zsh
source $ZSH/oh-my-zsh.sh
source /usr/share/zsh/share/antigen.zsh
antigen bundle git-prompt
antigen bundle command-not-found
antigen bundle zsh-users/zsh-syntax-highlighting
antigen bundle zsh-users/zsh-completions
antigen bundle zsh-users/zsh-history-substring-search
(defun make-board (size)
(make-array `(,size ,size ,size)))
(defvar *size* 8)
(defvar *score* (make-board *size*))
(defvar *matrix* (make-board *size*))
(defun dimension (size score matrix)
(dotimes (i size)
(dotimes (j size)
;;;; google-search.lisp
(in-package #:google-search)
(defun -search (term)
"Returns html for the given search `term'"
(let* ((query (list (cons "q" term))))
(drakma:http-request "http://www.google.com/search"
:parameters query)))
@LaloHao
LaloHao / ob-spice.el
Created September 25, 2016 07:44
Quick modification to ob-spice.el from Tiago Weber
(defun org-babel-execute:spice (body params)
"Execute BODY with specified PARAMS."
(let ((body (org-babel-expand-body:spice body params))
(vars (mapcar #'cdr (org-babel-get-header params :var)))
textfile
imagefile
raw
result)
(org-babel-eval "ngspice " body)
(mapc (lambda (pair)
@LaloHao
LaloHao / god-mode.lisp
Created July 23, 2016 03:14
A mode-line status for stumpwm analogous to emacs' god-mode using command-mode.
;;; god-mode.lisp
(defvar *god-mode-enabled* nil)
(defvar *god-mode-enabled-text* "God")
(defvar *god-mode-disabled-text* "Default")
(defun god-mode ()
"Enables or disables `god-mode' by updating variable `god-mode-enabled'."
(if *god-mode-enabled*
(setf *god-mode-enabled* nil)
(setf *god-mode-enabled* t)))
@LaloHao
LaloHao / lispkit-make-deps.sh
Created May 19, 2016 20:32
Command `make deps` on lispkit
% Total % Received % Xferd Average Speed Time Time Time Current
Dload Upload Total Spent Left Speed
100 57144 100 57144 0 0 77262 0 --:--:-- --:--:-- --:--:-- 77221
==== quicklisp quickstart 2015-01-28 loaded ====
To continue with installation, evaluate: (quicklisp-quickstart:install)
For installation options, evaluate: (quicklisp-quickstart:help)
@LaloHao
LaloHao / output.sh
Created May 19, 2016 20:26
Output from `make` command on lispkit repo
% Total % Received % Xferd Average Speed Time Time Time Current
Dload Upload Total Spent Left Speed
100 57144 100 57144 0 0 58633 0 --:--:-- --:--:-- --:--:-- 58609
==== quicklisp quickstart 2015-01-28 loaded ====
To continue with installation, evaluate: (quicklisp-quickstart:install)
For installation options, evaluate: (quicklisp-quickstart:help)
set $mode_search Search (g) google, (y) youtube, (d) D.O.I. paper
mode "$mode_search" {
bindsym g exec firefox "https://www.google.com.mx/?q=`xclip -o`", mode "default"
bindsym y exec firefox "https://www.youtube.com/results?search_query=`xclip -o`", mode "default"
bindsym d exec firefox "sci-hub.io/`xclip -o`", mode "default"
# back to normal: Enter or Escape
bindsym Return mode "default"
bindsym Escape mode "default"
}