changelog.el

(defun copy-buffer ()
	"Copy buffer to clipboard"
	(clipboard-kill-ring-save (point-min) (point-max)))

(defun git-changelog ()
	(interactive)
	(shell-command "git --no-pager log --no-merges --pretty=format:'- %s' `git describe --abbrev=0 --tags`.." "*changelog*")
	(switch-to-buffer "*changelog*")
	(copy-buffer))

(define-key global-map "\C-cc" 'git-changelog)