Skip to content

Instantly share code, notes, and snippets.

View coproduto's full-sized avatar

Cast coproduto

View GitHub Profile
import Html as H exposing (Html)
import Html.Attributes as A
import Html.Events as Events
import Signal exposing (Signal, Address)
import StartApp.Simple as App
import List
options : List String
options =
# -*- mode: gitignore; -*-
# This file was mostly stitched together from a bunch of gitignore files
# found at https://github.com/github/gitignore and is customized for my
# OS X setup.
# Emacs stuff #
###############
*~
\#*\#
# -*- mode: gitignore; -*-
# This file was mostly stitched together from a bunch of gitignore files
# found at https://github.com/github/gitignore and is customized for my
# Linux setup.
# Emacs stuff #
###############
*~
\#*\#
if [ -d $HOME/.dotfiles ]; then
printf "Dotfiles directory already exists at $HOME/.dotfiles.\n\n"
printf "If you are sure you wish to restore dotfiles, delete the existing directory.\n\n"
exit 1
fi
git clone --bare https://github.com/pcstl/dotfiles.git $HOME/.dotfiles
unalias dotfile 2> /dev/null
dotfile() {
/usr/bin/git --git-dir=$HOME/.dotfiles/ --work-tree=$HOME $@

Keybase proof

I hereby claim:

  • I am pcstl on github.
  • I am pcstl (https://keybase.io/pcstl) on keybase.
  • I have a public key whose fingerprint is 2BB4 9736 2CB4 8AC3 8173 C879 14D9 5A25 D177 6DFC

To claim this, I am signing this object:

;;Utils------------------------------------------------------
(defun my/append-to-list (list-var elements)
"Append ELEMENTS to the end of LIST-VAR.
The return value is the new value of LIST-VAR."
(unless (consp elements)
(error "ELEMENTS must be a list"))
(let ((list (symbol-value list-var)))
(if list
(setcdr (last list) elements)
# -*- mode: gitignore; -*-
# Emacs #
#########
*~
\#*\#
/.emacs.desktop
/.emacs.desktop.lock
*.elc
auto-save-list
# ~/.bashrc: executed by bash(1) for non-login shells.
# see /usr/share/doc/bash/examples/startup-files (in the package bash-doc)
# for examples
# If not running interactively, don't do anything
case $- in
*i*) ;;
*) return;;
esac
;; Fira code
(set-default-font "Fira Code")
(let ((alist '((33 . ".\\(?:\\(?:==\\|!!\\)\\|[!=]\\)")
(35 . ".\\(?:###\\|##\\|_(\\|[#(?[_{]\\)")
(36 . ".\\(?:>\\)")
(37 . ".\\(?:\\(?:%%\\)\\|%\\)")
(38 . ".\\(?:\\(?:&&\\)\\|&\\)")
(42 . ".\\(?:\\(?:\\*\\*/\\)\\|\\(?:\\*[*/]\\)\\|[*/>]\\)")
(43 . ".\\(?:\\(?:\\+\\+\\)\\|[+>]\\)")
(45 . ".\\(?:\\(?:-[>-]\\|<<\\|>>\\)\\|[<>}~-]\\)")
function rangeFromZero(end) {
return [...Array(end).keys()];
}
function exclusiveRange(start, end) {
if (end === undefined) {
return rangeFromZero(start);
}
if (end > start) {
return rangeFromZero(end - start).map(x => x + start);