Skip to content

Instantly share code, notes, and snippets.

@leoliu
leoliu / gist:8466231
Last active January 3, 2016 12:59
ack.diff
diff --git a/ack.el b/ack.el
index 3b7e25dc..8eb1fa4d 100644
--- a/ack.el
+++ b/ack.el
@@ -282,7 +282,11 @@ (define-compilation-mode ack-mode "Ack"
nil '(((lambda (limit)
(let ((beg (marker-position ack--ansi-color-last-marker)))
(move-marker ack--ansi-color-last-marker limit)
- (ansi-color-apply-on-region beg ack--ansi-color-last-marker))
+ (ansi-color-apply-on-region beg ack--ansi-color-last-marker)
diff --git a/elisp/erl-service.el b/elisp/erl-service.el
index fa23aed1..73dcc58e 100644
--- a/elisp/erl-service.el
+++ b/elisp/erl-service.el
@@ -25,11 +25,9 @@ (defvar erl-nodename-history nil
"The historical list of node names that have been selected.")
(defun erl-target-node ()
- "Return the name of the default target node for commands.
-Force node selection if no such node has been choosen yet, or when
@leoliu
leoliu / gist:9508659
Created March 12, 2014 14:58
ggtags.diff
diff --git a/ggtags.el b/ggtags.el
index fa007a9f..1584f8b3 100644
--- a/ggtags.el
+++ b/ggtags.el
@@ -1128,6 +1128,7 @@ (defvar ggtags-navigation-map
(define-key map "\M-{" 'ggtags-navigation-previous-file)
(define-key map "\M->" 'ggtags-navigation-last-error)
(define-key map "\M-<" 'ggtags-navigation-first-error)
+ (define-key map "\C-hr" 'ggtags-navigation-rename-buffer)
(define-key map "\C-c\C-k"
diff --git a/controls/cf_serverd.cf b/controls/cf_serverd.cf
index 7a8c2201..e1490d42 100644
--- a/controls/cf_serverd.cf
+++ b/controls/cf_serverd.cf
@@ -50,7 +50,7 @@ body server control
cfruncommand => "$(def.cf_runagent_shell) -c \"$(sys.cf_agent) -f $(sys.update_policy_path)\" ; $(sys.cf_agent)";
!(windows|hpux|aix|solaris)::
- cfruncommand => "$(def.cf_runagent_shell) -c \"$(sys.cf_agent) -f $(sys.update_policy_path)\" ; $(sys.cf_agent)";
+ cfruncommand => "@(def.cf_runagent_shell) -c \"$(sys.cf_agent) -f $(sys.update_policy_path)\" ; $(sys.cf_agent)";
@leoliu
leoliu / pr.md
Created April 28, 2016 08:59 — forked from piscisaureus/pr.md
Checkout github pull requests locally

Locate the section for your github remote in the .git/config file. It looks like this:

[remote "origin"]
	fetch = +refs/heads/*:refs/remotes/origin/*
	url = [email protected]:joyent/node.git

Now add the line fetch = +refs/pull/*/head:refs/remotes/origin/pr/* to this section. Obviously, change the github url to match your project's URL. It ends up looking like this:

@leoliu
leoliu / pcase.el
Created December 24, 2016 01:56
The version of pcase.el that I used with Emacs 24.x
;;; pcase.el --- ML-style pattern-matching macro for Elisp -*- lexical-binding: t; coding: utf-8 -*-
;; Copyright (C) 2010-2015 Free Software Foundation, Inc.
;; Author: Stefan Monnier <[email protected]>
;; Keywords:
;; This file is part of GNU Emacs.
;; GNU Emacs is free software: you can redistribute it and/or modify
@leoliu
leoliu / gist:afb14ec7705790d11c446a5e789cafe1
Created January 1, 2019 10:55
swi-prolog homebrew build log
2019-01-01 18:43:42 +0800
echo 3 | ./prepare
sh: ./prepare: No such file or directory
HOMEBREW_VERSION: 1.8.6
ORIGIN: https://github.com/Homebrew/brew.git
HEAD: 858c5e1afb0eb00079a4f014e8fbedf9065d50e4
Last commit: 2 weeks ago