Emacs and fix bug in apply

2 files changed, 4 insertions, 2 deletions

diff --git a/apply/state.py b/apply/state.py
index 12440a6..2e9205c 100644
--- a/apply/state.py
+++ b/apply/state.py
@@ -58,6 +58,8 @@ class FileState(Enum):
             dest = Path(os.readlink(str(path)))
             if Path.cwd() in dest.parents:
                 return FileState.create_owned(dest)
+            else:
+                return FileState.Used
 
         if not path.exists():
             return FileState.Unused
diff --git a/emacs/.emacs b/emacs/.emacs
index df93c8f..c15ff3d 100644
--- a/emacs/.emacs
+++ b/emacs/.emacs
@@ -1,13 +1,13 @@
 (require 'package)
 (add-to-list 'package-archives
-             '("melpa" . "https://melpa.org/packages"))
+             '("melpa" . "https://melpa.org/packages/"))
 (package-initialize)
 ; (package-refresh-contents)
 
 (mapcar (lambda (p)
        (unless (package-installed-p p)
 	 (package-install p))
-       ) (list 'magit 'undo-tree 'evil 'haskell-mode 'bbdb 'company))
+       ) (list 'magit 'undo-tree 'haskell-mode 'evil 'bbdb 'company))
 
 (setq evil-want-C-u-scroll t)
 (require 'evil)