vbuaraujo

// ==UserScript==
// @name        unfix-all-the-toolbars
// @description Removes "position: fixed" style from elements, unfixing "toolbars" and the such.
// @namespace   http://inf.ufrgs.br/~vbuaraujo/
// @include     *
// @version     1
// @grant       none
// ==/UserScript==

vbuaraujo

// SmallLisp: a simple Lisp-like language shell implemented in C++.

#include <iostream>
#include <sstream>
#include <memory>
#include <map>
#include <list>
#include <cctype>
#include <exception>

vbuaraujo

;; scgi.scm - An example SCGI server in Guile.

;; SCGI (https://en.wikipedia.org/wiki/Simple_Common_Gateway_Interface) is a
;; protocol for web servers (such as Apache and NGINX) to communicate with
;; application servers. The idea is similar to CGI, but instead of the server
;; running a new process with your application for each request, the
;; application runs continuously as an SCGI server, and the web server passes
;; requests to it (via a TCP port, or a Unix domain socket, for example). For
;; each request, the application sends a response back to the web server,
;; which will then get served to the client.

vbuaraujo

#!/bin/bash
# vpnsetup.sh - Set up a L2TP VPN on Debian/Ubuntu systems.
# Written by Vítor De Araújo <https://elmord.org/>.

# Version 1.2, 2018-08-23.

# Location where the VPN control script will be installed.
VPNCTL_SCRIPT=/usr/local/bin/vpn

# Am I bash?

vbuaraujo

// ==UserScript==
// @name     Unfix all toolbars!
// @version  1
// @grant    none
// ==/UserScript==

function unfix(el) {
  if (["fixed", "sticky"].indexOf(window.getComputedStyle(el).position) >= 0) {
    if (el.offsetWidth >= document.documentElement.clientWidth) {
      console.log("Unfix element:", el);

vbuaraujo

(defun elmord-block-comment-auto-prefix ()
  (when (eq last-command-event ?\n)
    (let* ((last-comment-start
            (save-excursion (search-backward "/*" nil t)))
           (last-comment-end
            (save-excursion (search-backward "*/" last-comment-start t))))
      (when (and last-comment-start (not last-comment-end))
        (insert "* ")
        (indent-for-tab-command)))))

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

(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 ...)]

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

;;;; 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