--- a/.emacs-my	Fri Jan 27 21:28:54 2017 +0200
+++ b/.emacs-my	Sat Jan 28 14:41:20 2017 +0200
@@ -1713,6 +1713,9 @@
 (define-key global-map "\C-vr"
   (lambda () (interactive) (org-capture nil "t")))
 
+(when (featurep 'company)
+  (add-hook 'org-mode-hook #'my/company-text-setup))
+
 (defun my/org-archive-location (path)
   "For given PATH make path to archive. Currently add undescore
 before file extention. If file name doesn't match