Use company-dabbrev-code in prog-modes & company-dabbrev everywhere else

modules/completion/company/autoload.el

@@ -16,6 +16,16 @@
              (= company-candidates-length 1))
     (company-complete-common)))
 
+;;;###autoload
+(defun +company/dabbrev ()
+  "Invokes `company-dabbrev-code' in prog-mode buffers and `company-dabbrev'
+everywhere else."
+  (interactive)
+  (call-interactively
+   (if (derived-mode-p 'prog-mode)
+       #'company-dabbrev-code
+     #'company-dabbrev)))
+
 ;;;###autoload
 (defun +company/whole-lines (command &optional arg &rest ignored)
   "`company-mode' completion backend that completes whole-lines, akin to vim's
@@ -49,5 +59,5 @@ C-x C-l."
   (interactive)
   (require 'company-dabbrev)
   (let ((company-selection-wrap-around t))
-    (call-interactively #'company-dabbrev-code)
+    (call-interactively #'+company/dabbrev)
     (company-select-previous-or-abort)))

modules/config/default/+bindings.el

@@ -376,7 +376,7 @@
         :i "s"     #'company-ispell
         :i "C-s"   #'company-yasnippet
         :i "C-o"   #'company-capf
-        :i "C-n"   #'company-dabbrev-code
+        :i "C-n"   #'+company/dabbrev
         :i "C-p"   #'+company/dabbrev-code-previous)
       (:after company
         (:map company-active-map