Make scripts executable with conditions

make-executable.el

;; Make files that should be executable, executable
(defun jsm:make-buffer-file-executable-if-script-p ()
  "Limit the situations that I want scripts to be made executable"
  (interactive)
  (let ((parent-dir (file-name-base
                     (directory-file-name
                      (file-name-directory buffer-file-name)))))
    (if (cond ((eq major-mode 'sh-mode) t)
              ((and (eq major-mode 'python-mode)
                    (string= parent-dir "scripts")) t)
              (t nil))
        (executable-make-buffer-file-executable-if-script-p))))

(add-hook 'after-save-hook
          'jsm:make-buffer-file-executable-if-script-p)