alcidesfp

(define-alias FileInputStream java.io.FileInputStream)
(define-alias MessageDigest java.security.MessageDigest)
(define-alias Integer java.lang.Integer)
(require 'srfi-13)
;;--------------------------------------------------------------------
(define (md5vector file-name ::java.lang.String)
  (let ((md (MessageDigest:getInstance "MD5"))
        (fis (FileInputStream file-name))
        (data-bytes ::byte[] ((primitive-array-new byte) 1024)))
    (do ((nread 0 (*:read fis data-bytes)))

alcidesfp

;;; UI Tweaks
;; nice scrolling
(setq scroll-margin 0
      scroll-conservatively 1000
      scroll-preserve-screen-position t)
;; enable y/n answers
(fset 'yes-or-no-p 'y-or-n-p)

;; more useful frame title, that show either a file or a
;; buffer name (if the buffer isn't visiting a file)