view lisp/forms-pass.el @ 61560:a54fc673c31c

(org-agenda-date-prompt): Renamed from `org-agenda-date-today'. (org-evaluate-time-range): Insert at point instead of directly after time range. (org-first-headline-recenter, org-subtree-end-visible-p) (org-optimize-window-after-visibility-change): New functions (org-agenda-post-command-hook): Don't allow point at end of line, to make sure it always hits the text properties. (org-agenda-next-date-line, org-agenda-previous-date-line): New commands. (org-set-regexps-and-options): Category may contain white space. (org-agenda-get-deadlines, org-agenda-get-scheduled): Improved marker positions. (org-agenda-new-marker): Argument POS made optional. (org-agenda-get-timestamps): Deadlines which are done are listed in org-done-face now. (org-agenda-get-todos, org-agenda-get-timestamps) (org-agenda-get-deadlines, org-agenda-get-scheduled): set `undone-face' and `done-face' properties. (org-last-todo-state-is-todo): New variable. (org-todo): Set `org-last-todo-state-is-todo'. (org-agenda-todo): Change face according to `org-last-todo-state-is-todo'. And change other lines refering to the same entry. (org-calendar-goto-agenda): New command. (org-calendar-to-agenda-key): New option. (org-startup-folded): New allowed value `content'. (org-set-regexps-and-options): Accept new value `content' for `org-startup-folded'. (org-get-current-options): Handle new value `content' for `org-startup-folded'. (org-insert-todo-heading): New command. (org-mode): Insert first line "*-* mode: org-mode -*-" when called interactively in empty file and option `org-insert-mode-line-in-empty-file' has been set. (org-agenda-todo,org-agenda-priority): Modified to use `org-agenda-change-all-lines'. (org-warning-face): Changed color on dark background

;;; forms-pass.el --- passwd file demo for forms-mode -*- no-byte-compile: t -*-

;; This file is part of GNU Emacs.

;;; Commentary:

;; This demo visits your passwd file.

;;; Code:

;; use yp if present
(or (file-exists-p (setq forms-file "/var/yp/src/passwd"))
    (setq forms-file "/etc/passwd"))

(setq forms-read-only t)		; to make sure
(setq forms-field-sep ":")
(setq forms-number-of-fields 7)

(setq forms-format-list
      (list
       "====== Visiting " forms-file " ======\n\n"
       "User : "	1
       "   Uid: "	3
       "   Gid: "	4
       "\n\n"
       "Name : "	5
       "\n\n"
       "Home : "	6
       "\n\n"
       "Shell: "	7
       "\n"))

;;; arch-tag: 74801012-1a2d-4173-b9e4-fcfa241e2305
;;; forms-pass.el ends here