Skip to content

Instantly share code, notes, and snippets.

@binshengliu

binshengliu/custom.el

Forked from kristianhellquist/custom.el
Created April 12, 2013 14:37
Show Gist options

  • Select an option

    Learn more about clone URLs
  • Save binshengliu/5372467 to your computer and use it in GitHub Desktop.

Select an option

Learn more about clone URLs
Save binshengliu/5372467 to your computer and use it in GitHub Desktop.
Download ZIP

Revisions

  1. @kristianhellquist kristianhellquist created this gist Jul 10, 2012.
    9 changes: 9 additions & 0 deletions custom.el
    View file
    Original file line number Diff line number Diff line change
    @@ -0,0 +1,9 @@
    (defun copy-current-line-position-to-clipboard ()
    "Copy current line in file to clipboard as '</path/to/file>:<line-number>'"
    (interactive)
    (let ((path-with-line-number
    (concat (buffer-file-name) ":" (number-to-string (line-number-at-pos)))))
    (x-select-text path-with-line-number)
    (message (concat path-with-line-number " copied to clipboard"))))

    (define-key global-map (kbd "M-l") 'copy-current-line-position-to-clipboard)