gistfile1.el

;;
;; Custom Defuns ---------------------------------------------------------------
;;

(defun fxn-find-init-file ()
  (interactive)
  (find-file "~/.emacs.d/init.el"))
(global-set-key (kbd "C-c i") 'fxn-find-init-file)

(defun fxn-kill-whole-line ()
  (interactive)
  (move-beginning-of-line nil)
  (kill-line)
  (kill-line))
(global-set-key (kbd "C-c k") 'fxn-kill-whole-line)

(defun fxn-dashes ()
  (interactive)
  (let ((n (- fill-column (current-column))))
    (if (< 0 n)
	(insert-char ?- n))))
(global-set-key (kbd "C-c d") 'fxn-dashes)