For many of the tasks I have to do day to day, I have a default tool. If I want to edit some text I’ll use Emacs; if I want to write an application slowly that runs quickly I’ll use C++; if I want to write an application quickly that runs slowly I’ll use Perl. And if I have to look after a hundred different configuration files for a hundred different users I’ll write a web interface so they can maintain the files themselves.
Ultimately, with any web app I write, anything complex is entered through a <textarea>. However, I often think that a sufficiently restricted emacs would give the users a nicer experience. If it was for me, I would just add the necessary functionality to dired. However, for a non-IT person, the dired interface is not reasonable.
So, a little experiment – can I make something emacs-based that a non-IT person would be happy to use?
File Selector Design Outline
What I envisage is a file selector that remembers the files that a user has opened before (fairly standard selector functionality right?). When a file is selected it provides a simplified view of the configuration file to the user. When they select save, it will save the full complex configuration file in all its glory.
I can also enforce some policies such as every save will check-in to source code control. Then if my editor doesn’t work correctly or the user does something they didn’t want to do, I can retrieve an earlier, working version.
File Selector Implementation
I had better give the user some defaults to click on to start with. Fortunately the configuration files are stored in two main areas: /data/sales and /data/admin.
(require 'button) (require 'derived) (defconst file-editor-default-dirs (mapcar (lambda (e) (concat "/data" (symbol-name e))) '(sales admin)))
I don’t want to display any files or directories that the users should not be looking in so I exclude them with a regex.
(defvar file-editor-exclude-file-regex "^RCS\\|^#\\|\\.back$\\|~$")
Each line in the file selector will be a button which enters the directory or opens the file respectively. I’ve mentioned emacs buttons previously).
(define-button-type 'open-dir 'action 'file-editor-open-dir 'follow-link t 'help-echo "Open Directory") (define-button-type 'open-file 'action 'file-editor-open-file 'follow-link t 'help-echo "Open Configuration File")
The configuration files are based on xml. I want to redefine some of the keys, such as C-s for save and C-f for search so I derive a major mode from xml-mode.
(define-derived-mode file-editor-mode xml-mode "File Editor" "Major mode for editing configuration files. Special commands: \\{file-editor-mode-map}") (if file-editor-mode-map nil (setq file-editor-mode-map (make-sparse-keymap)) (define-key file-editor-mode-map (kbd "C-f") 'isearch-forward) (define-key file-editor-mode-map (kbd "C-o") 'file-editor-file-selector) (define-key file-editor-mode-map (kbd "C-s") 'file-editor-save-file))
The directory buttons and file buttons call file-editor-open-dir and file-editor-open-file respectively.
(defun file-editor-open-dir (button) (let ((parent (button-get button 'parent)) (dir (button-get button 'dir))) (file-editor-dir-list (format "%s%s" (if parent (concat parent "/") "") dir)))) (defun file-editor-open-file (button) (let ((parent (button-get button 'parent)) (file (button-get button 'file))) (find-file (concat parent "/" file)) (file-editor-mode) (longlines-mode 1)))
When the file selector is first opened, it displays some default directories. Later on I’ll extend this to display files that have been opened recently.
(defun file-editor-insert-opendir-button (parent dir) (insert-text-button (format "[%s]" dir) :type 'open-dir 'parent parent 'dir dir) (insert "\n")) (defun file-editor-default-dirs () (let ((buffer (get-buffer-create "*file-editor-dir-list*"))) (with-current-buffer buffer (progn (erase-buffer) (insert "*** Default File List ***\n\n") (dolist (dir file-editor-default-dirs) (file-editor-insert-opendir-button nil dir))))))
I keep the file selector buffer read-only and therefore need to set inhibit-read-only to t whenever I write to it. I can then get all the files and directories within the current directory using directory-files-and-attributes.
I skip all the files beginning with a period. A string is a type of array so I can just compare against the first character using aref. I suspect it is more efficient than using a regex (surely it must be?) but I haven’t measured.
I list all of the directories prior to the files.
(defun file-editor-dir-list (parent) (let ((buffer (get-buffer-create "*file-editor-dir-list*"))) (with-current-buffer buffer (let ((inhibit-read-only t) files dirs) (setq parent (expand-file-name parent)) (erase-buffer) (dolist (vec (directory-files-and-attributes parent)) (let ((filename (car vec)) (is-directory (cadr vec))) (unless (or (eq (aref filename 0) ?.) (string-match file-editor-exclude-file-regex filename)) (if is-directory (push filename dirs) (push filename files))))) (insert (format "Current Directory: %s\n\n" parent)) (file-editor-insert-opendir-button parent "..") (dolist (dir (reverse dirs)) (file-editor-insert-opendir-button parent dir)) (dolist (file (reverse files)) (insert-text-button file 'parent parent 'file file :type 'open-file) (insert "\n")) (toggle-read-only 1)))))
file-editor-file-selector opens either the default files/directories or the buffer which should contain the last visited location.
(defun file-editor-file-selector () (interactive) (let ((buffer (get-buffer "*file-editor-dir-list*"))) (if buffer (switch-to-buffer buffer) (file-editor-default-dirs)))) (file-editor-file-selector)
Okay that is probably enough for one post. Obviously I have a fair amount of functionality left to implement. What do you guys think? Am I crazy to even consider using emacs over <textarea>? Let me know in the comments.
