From 0ef44927115e53e9fa3dad14c72993812c9c51e4 Mon Sep 17 00:00:00 2001
From: Jim Myhrberg <contact@jimeh.me>
Date: Fri, 10 Feb 2012 17:46:01 +0000
Subject: [PATCH] added a working align-to-equals helper function and
 keybindings

---
 helpers.el     | 7 ++++---
 keybindings.el | 4 ++++
 2 files changed, 8 insertions(+), 3 deletions(-)

diff --git a/helpers.el b/helpers.el
index b9e8eba..0384a72 100644
--- a/helpers.el
+++ b/helpers.el
@@ -42,9 +42,10 @@
 ;; Align Equal Signs
 ;;
 
-;; (defun align-equal-signs()
-;;   (interactive)
-;;   (align-regexp "="))
+(defun align-to-equals (begin end)
+  "Align region to equal signs"
+  (interactive "r")
+  (align-regexp begin end "\\(\\s-*\\)=" 1 1 ))
 
 
 ;;
diff --git a/keybindings.el b/keybindings.el
index 4607064..3f7f859 100644
--- a/keybindings.el
+++ b/keybindings.el
@@ -59,6 +59,10 @@
 ;; Duplicate line (via helpers.el)
 (global-set-key (kbd "C-x C-d") 'duplicate-line)
 
+;; Align to equal signs
+(global-set-key (kbd "C-x a =") 'align-to-equals)
+(global-set-key (kbd "M-s-‘") 'align-to-equals)
+
 ;; Goto line
 (global-set-key (kbd "C-c C-l") 'goto-line)