   (set-mark (car bounds))
   (goto-char (cdr bounds)))
 
+(defun select-string-under-cursor ()
+  (interactive)
+  (setq bounds (bounds-of-thing-at-point 'string))
+  (set-mark (car bounds))
+  (goto-char (cdr bounds)))
+
 (global-set-key (kbd "C-d") 'select-symbol-under-cursor)
 (global-set-key (kbd "C-S-d") 'select-sentence-under-cursor)
+(global-set-key (kbd "C-S-s") 'select-string-under-cursor)
 
 ; Lua
 (package-install 'lua-mode)

(require 'thingatpt)
(require 'thingatpt+)

(defun select-symbol-under-cursor ()
  (interactive)
  (setq bounds (bounds-of-thing-at-point 'symbol))

 '(diff-hl-change ((t (:background "wheat"))))
 '(diff-hl-delete ((t (:background "RosyBrown1"))))
 '(diff-hl-insert ((t (:background "DarkSeaGreen2"))))
 '(show-paren-match ((t (:background "wheat" :foreground "red" :weight normal))))
 '(show-paren-mismatch ((t (:foreground "#555" :weight bold))))
 '(window-divider ((t (:foreground "gray18"))))
 '(window-divider-first-pixel ((t nil)))
