           (format "[%s/%s (%s)" work-done-str effort-str org-clock-heading))
       (format "[%s : %s]" work-done-str org-clock-heading))))
 
-(defun org-line-element-context ()
-  "Return the symbol of the current block element, e.g. paragraph or list-item."
-  (let ((context (org-element-context)))
-    (while (member (car context) '(verbatim code bold italic underline))
-      (setq context (org-element-property :parent context)))
-    context))
-
-(defun org-really-in-item-p ()
-  "Similar to `org-in-item-p', however, this works around an
-issue where the point could actually be in some =code= words, but
-still be on an item element."
-  (save-excursion
-    (let ((location (org-element-property :contents-begin
-                                          (org-line-element-context))))
-      (when location
-        (goto-char location))
-      (org-in-item-p))))
-
 (defun sa/clock-in ()
   (sa/local-shell-command "touch /tmp/org-clock-flag")
   (sa/notify "ORG CLOCK-IN" (sa/task-clocked-time)))


  (org-add-link-type "tag" 'sa/follow-tag-link)

  ;; Font faces
  (custom-theme-set-faces
   'user
   '(variable-pitch ((t (:family "Literata" :height 1.2))))
   '(fixed-pitch ((t ( :family "Input" :slant normal :weight normal :height 1.0 :width normal)))))
  (let* ((headline `(:inherit default :weight normal :family "Literata")))

    (custom-theme-set-faces
     'user
     `(org-level-8 ((t (,@headline :height 1.0))))

(epa-file-enable)
(setq epa-file-cache-passphrase-for-symmetric-encryption t)
(setq doom-theme 'doom-one-light)


;; ;; Org mode setup.

