fix indentation

no semantic changes here
This commit is contained in:
Rudi Grinberg 2017-08-15 11:48:07 -04:00
parent b46cf690a7
commit 14c2282449
1 changed files with 46 additions and 46 deletions

View File

@ -27,7 +27,7 @@
;; +-----------------------------------------------------------------+ ;; +-----------------------------------------------------------------+
(defconst utop-license "BSD3" (defconst utop-license "BSD3"
"Copyright (c) 2011, Jeremie Dimino <jeremie@dimino.org> "Copyright (c) 2011, Jeremie Dimino <jeremie@dimino.org>
All rights reserved. All rights reserved.
Redistribution and use in source and binary forms, with or without Redistribution and use in source and binary forms, with or without
modification, are permitted provided that the following conditions are met: modification, are permitted provided that the following conditions are met:
@ -285,34 +285,34 @@ modes you need to set these variables:
(make-local-variable 'tabulated-list-printer) (make-local-variable 'tabulated-list-printer)
(set (make-local-variable 'revert-buffer-function) 'tabulated-list-revert) (set (make-local-variable 'revert-buffer-function) 'tabulated-list-revert)
(defun tabulated-list-init-header () (defun tabulated-list-init-header ()
(save-excursion (save-excursion
(let ((inhibit-read-only t)) (let ((inhibit-read-only t))
(mapc (mapc
(lambda (entry) (lambda (entry)
(let* ((name (nth 0 entry)) (let* ((name (nth 0 entry))
(size (length name)) (size (length name))
(padding (- (nth 1 entry) size))) (padding (- (nth 1 entry) size)))
(insert name) (insert name)
(insert-char ?\s padding) (insert-char ?\s padding)
)) tabulated-list-format) )) tabulated-list-format)
(insert "\n")))) (insert "\n"))))
(defun tabulated-list-print (dummy) (defun tabulated-list-print (dummy)
(save-excursion (save-excursion
(let ((inhibit-read-only t)) (let ((inhibit-read-only t))
(mapc (lambda (entry) (mapc (lambda (entry)
(goto-char (point-max)) (goto-char (point-max))
(apply tabulated-list-printer entry)) (apply tabulated-list-printer entry))
tabulated-list-entries)) tabulated-list-entries))
t)) t))
(defun tabulated-list-revert (ignore-auto noconfirm) (defun tabulated-list-revert (ignore-auto noconfirm)
(let ((inhibit-read-only t)) (let ((inhibit-read-only t))
(delete-region (point-min) (point-max)) (delete-region (point-min) (point-max))
(tabulated-list-init-header) (tabulated-list-init-header)
(tabulated-list-print t)))) (tabulated-list-print t))))
) )
;; +-----------------------------------------------------------------+ ;; +-----------------------------------------------------------------+
;; | Utils | ;; | Utils |
@ -426,7 +426,7 @@ it is started."
(left-word 1) (left-word 1)
(setq iterating (not (save-excursion (setq iterating (not (save-excursion
(search-forward-regexp "[ \t\r\n].*" start-pos t))))))) (search-forward-regexp "[ \t\r\n].*" start-pos t)))))))
end-pos))) end-pos)))
(defun utop-ident-at-point () (defun utop-ident-at-point ()
"Identifier at point" "Identifier at point"
@ -434,14 +434,14 @@ it is started."
(end-pos (utop-ident-looking nil))) (end-pos (utop-ident-looking nil)))
(buffer-substring-no-properties start-pos end-pos))) (buffer-substring-no-properties start-pos end-pos)))
; Currently not working - the communication is asynchronous so how to ;; Currently not working - the communication is asynchronous so how to
; make sure without implementing another state that the type ;; make sure without implementing another state that the type
; information has been already printed? ;; information has been already printed?
(defun utop-type-at-point () (defun utop-type-at-point ()
"Find type of an identifier at point from uTop" "Find type of an identifier at point from uTop"
(utop-eval-string (utop-ident-at-point)) (utop-eval-string (utop-ident-at-point)))
; (utop-last-type) ;; (utop-last-type)
)
;; +-----------------------------------------------------------------+ ;; +-----------------------------------------------------------------+
;; | Edition control | ;; | Edition control |
@ -651,16 +651,16 @@ it is started."
(progn (progn
(cond (cond
((eq utop-state 'copy) ((eq utop-state 'copy)
(kill-new utop-pending-entry)) (kill-new utop-pending-entry))
(t (t
(goto-char utop-prompt-max) (goto-char utop-prompt-max)
;; Delete current input ;; Delete current input
(delete-region utop-prompt-max (point-max)) (delete-region utop-prompt-max (point-max))
;; Insert entry ;; Insert entry
(insert utop-pending-entry))) (insert utop-pending-entry)))
;; Resume edition ;; Resume edition
(utop-set-state 'edit))) (utop-set-state 'edit)))
;; We are at a bound of history ;; We are at a bound of history
((string= command "history-bound") ((string= command "history-bound")
;; Just resume edition ;; Just resume edition
(utop-set-state 'edit)) (utop-set-state 'edit))
@ -988,7 +988,7 @@ defaults to 0."
;; Get the list of packages ;; Get the list of packages
(let* ((packages (utop-ocamlfind-list-packages)) (let* ((packages (utop-ocamlfind-list-packages))
(max-name-length 0)) (max-name-length 0))
;; Find the longest package name ;; Find the longest package name
(mapc (mapc
(lambda (package) (lambda (package)
(setq max-name-length (setq max-name-length
@ -1035,7 +1035,7 @@ defaults to 0."
(utop-list-packages-mode) (utop-list-packages-mode)
(utop-list-packages--refresh) (utop-list-packages--refresh)
(tabulated-list-print t) (tabulated-list-print t)
(display-buffer buffer))) (display-buffer buffer)))
(defun utop-query-load-package-list () (defun utop-query-load-package-list ()
"Load packages defined in utop-package-list buffer local variable." "Load packages defined in utop-package-list buffer local variable."
@ -1235,7 +1235,7 @@ Special keys for utop:
(setq utop-command cmd) (setq utop-command cmd)
;; Put it in utop mode ;; Put it in utop mode
(with-current-buffer buf (utop-mode))))) (with-current-buffer buf (utop-mode)))))
buf)) buf))
(provide 'utop-minor-mode) (provide 'utop-minor-mode)
(provide 'utop) (provide 'utop)