            (browse-url (concat "file:///" (expand-file-name file)))) "\\.html?$")))
 
 (require 'org-drill)
+(defun ange-ftp-set-passive ()
+  "Function to send a PASV command to hosts not named in the variable
+  `ange-ft-hosts-no-pasv'. Intended to be called from the hook variable
+  `ange-ftp-process-startup-hook'."	; rephrased significantly // era
+  (if (not (member host ange-ftp-hosts-no-pasv))
+      (ange-ftp-raw-send-cmd proc "passive")))
+(add-hook 'ange-ftp-process-startup-hook 'ange-ftp-set-passive)
+
+
+(setq org-agenda-custom-commands
+      '(("h" "Daily habits"
+         ((agenda ""))
+         ((org-agenda-show-log t)
+          (org-agenda-ndays 7)
+          (org-agenda-log-mode-items '(state))
+          (org-agenda-skip-function '(org-agenda-skip-entry-if 'notregexp ":smoking:"))))
+        ;; other commands here
+        ))
+(add-to-list 'org-modules 'org-habit)
+(require 'org-habit)
 (provide '.emacs)

  :ensure t
  :init)

(use-package mode-icons
  :ensure t
  :defer t

 (setq org2blog/wp-buffer-format-function 'my-format-function)


(setq org-todo-keywords
      (quote ((sequence "TODO(t)" "NEXT(n)" "|" "DONE(d)")
              (sequence "WAITING(w@/!)" "HOLD(h@/!)" "|" "CANCELLED(c@/!)" "PHONE" "MEETING"))))


(setq org-todo-keyword-faces
      (quote (("TODO" :foreground "red" :weight bold)
              ("NEXT" :foreground "blue" :weight bold)
              ("DONE" :foreground "forest green" :weight bold)
              ("WAITING" :foreground "orange" :weight bold)
              ("HOLD" :foreground "magenta" :weight bold)
              ("CANCELLED" :foreground "forest green" :weight bold)
              ("MEETING" :foreground "forest green" :weight bold)
              ("PHONE" :foreground "forest green" :weight bold))))
(setq org-directory "~/workspace/workspace/")
(setq org-default-notes-file (concat org-directory "notes.org"))
(global-set-key (kbd "C-c c") 'org-capture)
