vbuaraujo

(use-modules (srfi srfi-1))

(define valid-tlds '(".com" ".org" ".net")) ;; ...

(define (valid-email? email)
  (any (lambda (tld) (string-suffix? tld email)) valid-tlds))

vbuaraujo

(define-syntax >>
  (syntax-rules ()
    [(>> val1 (fun args ...))
     (fun val1 args ...)]
    [(>> val1 val2 rest ...)
     (>> (>> val1 val2) rest ...)]))

;; Examples.

(format #t "~s\n"

vbuaraujo

(define-module (elmord extended-if)
  #:export (if*))

(define-syntax if*
  (syntax-rules (else elif)
    ;; Subsume the standard 'if'.
    [(if* condition form1) (if condition form1)]
    [(if* condition form1 form2) (if condition form1 form2)]
    ;; If more forms present, use extra syntax.
    [(if* condition forms ...)

vbuaraujo

/* AGENT_SHEET */
@-moz-document url-prefix(http://), url-prefix(https://), url-prefix(file://),
               url-prefix(about:sessionrestore), url-prefix(about:newtab)
{
	* {
		color: #C0C0C0 !important; /*white !important;*/
		background: black !important;
		font-family: Fixed, monospace !important;
		font-size: 18px !important; /* force everything to use the same size */
  	/*font-size: 14px !important;  force everything to use the same size */

vbuaraujo

(import (scheme base)
        (scheme write))

(define *update-methods* (list '*update-methods*))

(define-record-type <method> (make-method predicate action) method?
  (predicate method-predicate)
  (action method-action))

(define (make-generic name)

vbuaraujo

;;;; init-exwm.el                                 -*- lexical-binding: t; -*-

(require 'exwm)
;; (require 'exwm-config)

;; Commented out because I'm using stalonetray instead of the EXWM tray.
;; (require 'exwm-systemtray)
;; (exwm-systemtray-enable)
;; (exwm-config-default)

vbuaraujo

#!/usr/bin/python
# Pass on desktop notifications to Emacs.
# Based on https://askubuntu.com/questions/89279/listening-to-incoming-libnotify-notifications-using-dbus/451402#451402

import glib
import dbus
from dbus.mainloop.glib import DBusGMainLoop
from subprocess import call

# [dbus.String(u'theapp'), dbus.UInt32(0L), dbus.String(u'icon'), dbus.String(u'summary'), dbus.String(u'body'), dbus.Array([], signature=dbus.Signature('s')), dbus.Dictionary({dbus.String(u'category'): dbus.String(u'category', variant_level=1), dbus.String(u'urgency'): dbus.Byte(0, variant_level=1)}, signature=dbus.Signature('sv')), dbus.Int32(-1)]

vbuaraujo

;;;; Search.

;; Automatically wrapping I-search.
;; https://stackoverflow.com/questions/285660/automatically-wrapping-i-search
;; TODO: Still not perfect: does not distinguish overwrapped I-search anymore.
(defadvice isearch-search (after isearch-no-fail activate)
  (unless isearch-success
    ;; Avoid recursive loop
    (ad-disable-advice 'isearch-search 'after 'isearch-no-fail)
    (ad-activate 'isearch-search) ;; ad-activate to reflect the above change

vbuaraujo

#!/bin/bash

main() {
    if [[ $INSIDE_NETCAT ]]; then
        serve_request
    else
        export INSIDE_NETCAT=1
        while :; do
            netcat -q 0 -v -l -p 9000 -c "$0"
        done

vbuaraujo

(define-syntax switch
  (syntax-rules (default)
    [(switch expr clauses ...)
     (let ([result expr])
       (%handle-switch-clauses result clauses ...))]))

(define-syntax %handle-switch-clauses
  (syntax-rules (default)
    [(_ result) 'Nada™]
    [(_ result (default forms ...)) (begin forms ...)]