View update-emacs-ppa.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 bash | |
# Author: Damien Cassou | |
# | |
# This is the script I use to build Emacs packages for Ubuntu. These | |
# packages are uploaded to | |
# https://launchpad.net/~cassou/+archive/emacs/. Each package is | |
# either build from a Debian package or from | |
# http://emacs.naquadah.org/. |
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) |
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 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 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 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 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 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 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 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 |
OlderNewer