View ledger-equity:budget-equal-sum-of-envelops.sh
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
ledger balance --depth 1 ^Equity:Budget ^Budget \ | |
| tail -n 1 \ | |
| grep --quiet "^ *0 *$" |
View screencasting.el
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
;;; screencasting.el --- Tooling for screencasting -*- lexical-binding: t; -*- | |
;; Copyright (C) 2019 Damien Cassou | |
;; Author: Damien Cassou <damien@cassou.me> | |
;; Keywords: | |
;; This program is free software; you can redistribute it and/or modify | |
;; it under the terms of the GNU General Public License as published by | |
;; the Free Software Foundation, either version 3 of the License, or |
View auto-encrypt-mail.el
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
(defun my/can-encrypt-message-p () | |
"Return non-nil if current message can be encrypted. | |
I.e., the keyring has a public key for each recipient." | |
(let ((recipients (seq-map #'cadr ; only take email address, not recipient name | |
(seq-mapcat (lambda (header) | |
(let ((header-value (message-fetch-field header))) | |
(and | |
header-value | |
(mail-extract-address-components header-value t)))) | |
'("To" "CC" "BCC")))) |
View magit-jira.el
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
(defvar ftgp-jira-summary-url | |
"https://foretagsplatsen.atlassian.net/rest/api/2/issue/%s?fields=summary" | |
"Format string to get the summary of a ticket.") | |
(defcustom ftgp-atlassian-pass-entry "ftgp/foretagsplatsen.atlassian.net" | |
"Password-store entry where to find FTGP Atlassian credentials. | |
Must contain both the password and username such that | |
`auth-pass-get' will find them." | |
:group 'ftgp | |
:type 'string) |
View configuration.nix
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
{ | |
systemd.user.services.emacs = { | |
description = "Emacs: the extensible, self-documenting text editor"; | |
serviceConfig = { | |
Type = "forking"; | |
# ExecStart = "${bigEmacs}/bin/emacs --daemon"; | |
# Running Emacs this way ensures environment variable are accessible: | |
ExecStart = "${pkgs.bash}/bin/bash -c 'source ${config.system.build.setEnvironment}; exec ${bigEmacs}/bin/emacs --daemon'"; | |
ExecStop = "${bigEmacs}/bin/emacsclient --eval (kill-emacs)"; |
View travis.sh
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
#!/usr/bin/env sh | |
# This script will setup Evm (Emacs Version Manager) and Cask on | |
# Travis to use for Emacs Lisp testing. | |
# | |
# In .travis.yml, add this: | |
# | |
# - curl -fsSkL https://gist.github.com/DamienCassou/f7d324c72cad63de484d/raw > travis.sh && source ./travis.sh | |
# | |
# Emacs 24.5 is installed in the above script because Cask requires |
View nixos bash functions
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
function nixos-cleanup-safe () { | |
df -h / | |
nix-collect-garbage | |
df -h / | |
sudo nix-store --optimise | |
df -h / | |
} | |
function nixos-garbage-add-root () { | |
sudo ln -s $1 /nix/var/nix/gcroots/ |
View configuration.nix
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
{ config, pkgs, ... }: | |
let | |
hostname = "luz3"; | |
in { | |
imports = | |
[ # Include the results of the hardware scan. | |
./hardware-configuration.nix | |
# I use VirtualBox to connect to Windows and Linux guests |
View gist:1762e4d904a2d0cb6e9d
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
lsebot@forge-scm1:/home/groups/pharobooks/htdocs/PharoByExampleTwo-Eng$ ls -ld . | |
drwxrwsr-x 8 nobody_pharobooks pharobooks 12288 juil. 28 11:37 . | |
lsebot@forge-scm1:/home/groups/pharobooks/htdocs/PharoByExampleTwo-Eng$ ls -l . | |
total 24 | |
drwxrwsr-x 2 nobody_pharobooks pharobooks 4096 janv. 3 2014 2014-01-03_14:08:01 | |
drwxrwsr-x 2 nobody_pharobooks pharobooks 4096 janv. 3 2014 2014-01-03_14:47:42 | |
drwxrwsr-x 2 nobody_pharobooks pharobooks 4096 janv. 20 2014 2014-01-20_09:28:41 | |
drwxrwsr-x 2 nobody_pharobooks pharobooks 4096 janv. 20 2014 2014-01-20_10:29:42 | |
drwxrwsr-x 2 nobody_pharobooks pharobooks 4096 févr. 1 17:08 2014-02-01_16:08:28 | |
drwxrwsr-x 2 lsebot pharobooks 4096 juil. 28 11:10 2014-07-28_09:10:18 |
View cpython_leaks.cocci
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
@r exists@ | |
local idexpression x; | |
expression e; | |
position p1,p2; | |
@@ | |
x = PyDescr_NewMethod@p1(...) | |
... when != Py_INCREF(x) | |
when != Py_XINCREF(x) | |
when != Py_DECREF(x) |
NewerOlder