Add function for star ratings

1 files changed, 7 insertions, 0 deletions

diff --git a/emacs/init.el b/emacs/init.el
index 6cdbe97..ff1e7a6 100644
--- a/emacs/init.el
+++ b/emacs/init.el
@@ -610,6 +610,13 @@ With prefix argument TIME, also add the current time."
 
 (global-set-key (kbd "<f5>") 'noa/insert-date-time)
 
+;; Insert a star rating into the buffer.  Currently doesn't check bounds.
+(defun noa/star-rating (rating)
+  "Insert a star rating (★★★☆☆) into the buffer at point as RATING out of five stars."
+  (interactive "nRating: ")
+  (insert-char ?★ rating)
+  (insert-char ?☆ (- 5 rating)))
+
 (defun snarf-song (url)
   (interactive "sYoutube url:")
   (async-shell-command