I hereby claim:
- I am xmaillard on github.
- I am xmaillard (https://keybase.io/xmaillard) on keybase.
- I have a public key whose fingerprint is FDB0 EE1F 33E5 8C22 5E3E 96E7 6900 CA9B 1E02 8EA5
To claim this, I am signing this object:
Xavier Maillard xmaillard
This file contains hidden or 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
| C-x C-k C-a ;; on cree un compteur | |
| C-x C-k C-f ;; pour utiliser un format particulier genre %02d | |
| C-x C-k C-i ;; on insere le compteur (+1) |
xmaillard
/ gist:dbcaf8df704660af6f9e
Created
June 30, 2014 07:41
— forked from justinhj/gist:eb2d354d06631076566f
This file contains hidden or 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
| ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | |
| ;; Terminal notifier | |
| ;; requires 'sudo gem install terminal-notifier' | |
| ;; stolen from erc-notifier | |
| (defvar terminal-notifier-command (executable-find "terminal-notifier") "The path to terminal-notifier.") | |
| ; (terminal-notifier-notify "Emacs notification" "Something amusing happened") | |
| (defun terminal-notifier-notify (title message) |
xmaillard
/ fastmail-sms.el
Created
July 1, 2014 21:44
— forked from unhammer/fastmail-sms.el
This file contains hidden or 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 bbdb-smsable-phones-label '("Mobil") ; TODO: make it a list? | |
| "The member of `bbdb-phone-label-list' that can receive sms-es.") | |
| (defun bbdb-send-sms (record) | |
| ;; TODO: no signature, how? gnus-posting-styles possible? | |
| (interactive (list (bbdb-current-record))) | |
| (let* ((phones (bbdb-record-phone record)) | |
| (cellphone (replace-regexp-in-string | |
| "[ -]" "" | |
| (catch 'found | |
| (mapc (lambda (p) |
xmaillard
/ twittering-connection-build-customize-option
Last active
August 29, 2015 14:12
twittering-connection-type-table as a defcustom entry
This file contains hidden or 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
| ;; First attempt: | |
| (defun twittering-connection-build-customize-option () | |
| (list 'repeat | |
| (list | |
| 'list :tag "Configure connection method" | |
| '(repeat | |
| :tag "Name" | |
| (choice | |
| (cons :tag "Check test method" |
xmaillard
/ gist:31a301c178e8d4944e18
Created
December 30, 2014 23:19
This is how defcustom can look like at worst !
This file contains hidden or 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
| ```emacslisp | |
| (defcustom twittering-edit-skeleton 'none | |
| "*A symbol specifying an effective skeleton. | |
| It must be one of a symbol in `twittering-edit-skeleton-alist'. | |
| When entering `twittering-edit-mode', the skeletons in the specified | |
| entry in `twittering-edit-skeleton-alist' are performed." | |
| :group 'twittering-mode | |
| :type (if (> (length (mapcar #'car twittering-edit-skeleton-alist)) 0) | |
| `(choice ,@(mapcar (lambda (s) `(const ,s)) | |
| (mapcar #'car twittering-edit-skeleton-alist))) |
This file contains hidden or 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
| (add-hook 'mu4e-compose-mode-hook | |
| (lambda () | |
| (let* ((em-v (prin1-to-string emacs-version t)) | |
| (ua (format "mu4e/%s Emacs/%s (%s)\n" mu4e-mu-version em-v (symbol-name system-type)))) | |
| (save-excursion | |
| (message-add-header (concat | |
| "X-GPG-Key-ID: 1E028EA5\n" | |
| "X-GPG-Key: http://keyserver.mine.nu/pks/lookup?op=get&search=0x1E028EA5\n" | |
| "X-GPG-Fingerprint: FDB0 EE1F 33E5 8C22 5E3E 96E7 6900 CA9B 1E02 8EA5\n" |
xmaillard
/ request API Rest
Last active
August 29, 2015 14:24
This file contains hidden or 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
| (request-response-data (request | |
| (concat dailymile-api-endpoint uri "." (assoc-default 'json dailymile-format)) | |
| :type method | |
| :parser (lambda () | |
| (let ( | |
| (json-object-type 'hash-table) | |
| (json-array-type 'list) | |
| (json-key-type 'symbol)) | |
| (json-read))) | |
| :params `(("oauth_token" . ,(oauth2-token-access-token |
xmaillard
/ keybase.md
Created
June 11, 2017 07:25
I hereby claim:
- I am xma01 on github.
- I am xmaillard (https://keybase.io/xmaillard) on keybase.
- I have a public key ASCRg8P8sGVH_ZaQoRNpFcvGKlziCN5rrMJD1ZLBOEH1Lgo
To claim this, I am signing this object:
xmaillard
/ .gitconfig.txt
Last active
August 10, 2017 21:34
This file contains hidden or 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
| [user] | |
| name = Xavier Maillard | |
| email = [email protected] | |
| [diff] | |
| submodule = log | |
| [alias] | |
| # the acronym stands for "subtree add" | |
| sba = "!f() { git subtree add --prefix $2 $1 master --squash; }; f" | |
| # the acronym stands for "subtree update" | |
| sbu = "!f() { git subtree pull --prefix $2 $1 master --squash; }; f" |