Lines Matching +defs:type +defs:prefix +defs:key
45 ;; - Symmetric-key and key-pair topic encryption, plus symmetric passphrase
107 :prefix "allout-"
136 :type '(choice (const :tag "On" t)
194 :type 'allout-layout-type
196 ;;;_ : allout-layout-type
197 (define-widget 'allout-layout-type 'lazy
199 :type '(repeat
205 (allout-layout-type :tag "<Nested layout>"))))
211 :type 'boolean
248 :type 'boolean :group 'allout)
273 :type 'boolean :group 'allout)
275 ;;;_ = allout-header-prefix
276 (defcustom allout-header-prefix "."
282 header prefix, which mostly have the value of this var at their front.
285 :type 'string
287 (make-variable-buffer-local 'allout-header-prefix)
289 (put 'allout-header-prefix 'safe-local-variable 'stringp)
295 prefix, which is concluded by bullets that includes the value of this
302 :type 'string
318 :type 'string
366 :type 'string
377 comment-start string, if any, to lead the topic prefix string, so topic
395 the header-prefix, and an `_' underscore is tacked on the end, to
402 :type '(choice (const t) (const nil) string
412 "Specific allout-prefix leading strings per major modes.
433 :type 'boolean
441 "*Do fancy stuff with topic prefix bullets according to level, etc.
482 :type 'boolean
497 :type '(choice (const nil) string)
510 :type '(choice (const nil) string)
520 :type 'integer
532 :type 'boolean
539 :type 'boolean
544 :type 'string
549 :type 'string
554 :type 'string
559 :type 'string
565 :type 'sexp
570 :type 'string
575 :type 'string
586 :type '(choice (const nil) string)
595 :type 'boolean
609 :type '(choice (const always)
642 :type '(choice (const :tag "Yes" t)
665 :type 'boolean
670 ;;;_ = allout-command-prefix
671 (defcustom allout-command-prefix "\C-c "
672 "*Key sequence to be used as prefix for outline mode command key bindings.
676 :type 'string
683 "*List of `allout-mode' key / function bindings, for `allout-mode-map'.
685 String or vector key will be prefaced with `allout-command-prefix',
742 :type 'boolean
749 Ie, it is indented to be just past the header prefix. This is
752 :type 'boolean
771 :type '(choice (const nil) (const t) (const text) (const force))
791 :type 'boolean
869 "*Regular expression to match a heading line prefix for a particular depth.
878 topic prefix to be matched.")
882 "*Regular expression to match a heading line prefix for depth one.
887 topic prefix to be matched.")
900 (defvar allout-header-subtraction (1- (length allout-header-prefix))
901 "Allout-header prefix length to subtract when computing topic depth.")
920 (setq allout-header-prefix header-lead)
921 (setq allout-header-subtraction (1- (length allout-header-prefix)))
933 "String prefix for topic headers: ")))
939 "Determine appropriate `allout-header-prefix' and `allout-primary-bullet'.
944 `allout-header-prefix' (default)
983 (setq allout-header-prefix leader)
986 ;; actually, be - the special prefix:
988 allout-header-prefix)))
1043 (setq allout-header-subtraction (1- (length allout-header-prefix)))
1047 (regexp-quote allout-header-prefix)
1055 (regexp-quote allout-header-prefix)
1078 (allout-format-quote (regexp-quote allout-header-prefix))
1106 (regexp-quote allout-header-prefix)
1114 ;; bullet style if the prefix is multi-char.
1132 (pref (list allout-command-prefix)))
1136 (key-suff (list (car cell))))
1137 (apply 'define-key
1140 (append pref key-suff)
1141 key-suff))
1254 name (type-of name)))
1379 wrapped within allout's automatic fill-prefix setting.")
1448 for example, a line that happens to look like an allout-mode topic prefix.
1684 Below is a description of the key bindings, and then explanation of
1691 variable. We recommend customizing `allout-command-prefix' to use just
1692 `\\C-c' as the command prefix, if the allout bindings don't conflict with
1748 heading (ie, prefix sans text).
1776 symmetric and key-pair modes, passphrase timeout, passphrase
1777 consistency checking, user-provided hinting for symmetric key
1823 without changes to the allout core. Here are key ones:
1880 `allout-header-prefix' and then reinitializing `allout-mode'.
2101 (substitute-key-definition 'beginning-of-line
2104 (substitute-key-definition 'move-beginning-of-line
2107 (substitute-key-definition 'end-of-line
2110 (substitute-key-definition 'move-end-of-line
2210 ;;; evaluate heading prefix location set the variables
2211 ;;; `allout-recent-prefix-beginning' and `allout-recent-prefix-end'
2216 ;;;_ = allout-recent-prefix-beginning
2217 (defvar allout-recent-prefix-beginning 0
2218 "Buffer point of the start of the last topic prefix encountered.")
2219 (make-variable-buffer-local 'allout-recent-prefix-beginning)
2220 ;;;_ = allout-recent-prefix-end
2221 (defvar allout-recent-prefix-end 0
2222 "Buffer point of the end of the last topic prefix encountered.")
2223 (make-variable-buffer-local 'allout-recent-prefix-end)
2226 "Depth of the last topic prefix encountered.")
2232 ;;;_ > allout-prefix-data ()
2233 (defsubst allout-prefix-data ()
2234 "Register allout-prefix state data.
2237 (setq allout-recent-prefix-end (or (match-end 1) (match-end 2))
2238 allout-recent-prefix-beginning (or (match-beginning 1)
2240 allout-recent-depth (max 1 (- allout-recent-prefix-end
2241 allout-recent-prefix-beginning
2243 allout-recent-prefix-beginning)
2244 ;;;_ > nullify-allout-prefix-data ()
2245 (defsubst nullify-allout-prefix-data ()
2246 "Mark allout prefix data as being uninformative."
2247 (setq allout-recent-prefix-end (point)
2248 allout-recent-prefix-beginning (point)
2250 allout-recent-prefix-beginning)
2256 headings set the variables `allout-recent-prefix-beginning' and
2257 `allout-recent-prefix-end' if successful. This function uses those settings
2261 ;;;_ > allout-recent-prefix ()
2262 (defsubst allout-recent-prefix ()
2263 "Like `allout-recent-depth', but returns text of last encountered prefix.
2266 headings set the variables `allout-recent-prefix-beginning' and
2267 `allout-recent-prefix-end' if successful. This function uses those settings
2268 to return the current prefix."
2269 (buffer-substring-no-properties allout-recent-prefix-beginning
2270 allout-recent-prefix-end))
2273 "Like allout-recent-prefix, but returns bullet of last encountered prefix.
2276 headings set the variables `allout-recent-prefix-beginning' and
2277 `allout-recent-prefix-end' if successful. This function uses those settings
2279 '(buffer-substring-no-properties (1- allout-recent-prefix-end)
2280 allout-recent-prefix-end))
2309 ;; This is most clearly understood when considering standard-prefix-leader
2324 (allout-prefix-data)
2325 (goto-char allout-recent-prefix-beginning)
2344 Actually, returns prefix beginning point."
2348 (allout-prefix-data)
2353 ;;;_ > allout-e-o-prefix-p ()
2354 (defun allout-e-o-prefix-p ()
2355 "True if point is located where current topic prefix ends, heading begins."
2359 (= (point)(save-excursion (allout-end-of-prefix)(point)))))
2370 (if (and (allout-goto-prefix)
2374 ;; Oops, no prefix, nullify it:
2375 (nullify-allout-prefix-data)
2386 (- allout-recent-prefix-end
2387 allout-recent-prefix-beginning
2390 ;;;_ > allout-get-current-prefix ()
2391 (defun allout-get-current-prefix ()
2392 "Topic prefix of the current topic."
2394 (if (allout-goto-prefix)
2395 (allout-recent-prefix))))
2400 (and (allout-goto-prefix)
2408 (buffer-substring-no-properties (- allout-recent-prefix-end 1)
2409 allout-recent-prefix-end))
2413 ;;;_ > allout-get-prefix-bullet (prefix)
2414 (defun allout-get-prefix-bullet (prefix)
2415 "Return the bullet of the header prefix string PREFIX."
2418 (if (string-match allout-regexp prefix)
2419 (substring prefix (1- (match-end 2)) (match-end 2))))
2542 (allout-prefix-data)
2547 (goto-char allout-recent-prefix-beginning)))
2553 (if (not (allout-goto-prefix-doublechecked)) (allout-next-heading)))
2565 ;; allout-goto-prefix-doublechecked calls us, so we can't use it here.
2566 (allout-goto-prefix)
2569 (goto-char (allout-prefix-data))
2623 prefix. Charts for offspring consists of a list containing,
2655 (setq chart (cons allout-recent-prefix-beginning chart))
2709 (when (allout-goto-prefix-doublechecked)
2774 ;;;_ > allout-goto-prefix ()
2775 (defun allout-goto-prefix ()
2782 Returns the point at the beginning of the prefix, or nil if none."
2789 (setq done (allout-prefix-data))
2793 (allout-prefix-data))
2797 ;;;_ > allout-goto-prefix-doublechecked ()
2798 (defun allout-goto-prefix-doublechecked ()
2801 Like `allout-goto-prefix', but shallow topics (according to
2805 (if (allout-goto-prefix)
2811 ;;;_ > allout-end-of-prefix ()
2812 (defun allout-end-of-prefix (&optional ignore-decorations)
2818 (if (not (allout-goto-prefix-doublechecked))
2820 (goto-char allout-recent-prefix-end)
2833 (1- allout-recent-prefix-end)))
2838 If interactive, we position at the end of the prefix.
2845 (if (allout-goto-prefix-doublechecked)
2848 (allout-end-of-prefix)
2854 ;;;_ > allout-pre-next-prefix ()
2855 (defun allout-pre-next-prefix ()
2861 (goto-char (1- allout-recent-prefix-beginning))))
2877 (allout-goto-prefix-doublechecked))
2911 (goto-char allout-recent-prefix-end)
2913 (allout-end-of-prefix)
2925 (allout-pre-next-prefix)
2940 (allout-end-of-prefix)
2963 (goto-char allout-recent-prefix-beginning)
2964 (if (interactive-p) (allout-end-of-prefix))
2992 (if (interactive-p) (allout-end-of-prefix))))
3020 (if (interactive-p) (allout-end-of-prefix))
3021 allout-recent-prefix-beginning)))
3038 (start-prefix-beginning allout-recent-prefix-beginning)
3063 (not (= start-prefix-beginning
3064 allout-recent-prefix-beginning)))
3065 allout-recent-prefix-beginning)
3129 (allout-goto-prefix))))))
3145 Presumes point is at the start of a topic prefix."
3164 (if (interactive-p) (allout-end-of-prefix)))))
3189 (allout-prefix-data)
3195 (setq got allout-recent-prefix-beginning)
3201 (cond (got ; Last move was to a prefix:
3202 (allout-end-of-prefix))
3205 (allout-end-of-prefix))
3216 (if (interactive-p) (allout-end-of-prefix))))
3239 (allout-end-of-prefix)
3251 (let ((current-prefix-arg (* -1 arg)))
3265 are mapped to the command of the corresponding control-key on the
3311 The upshot is that you can get easy, single (ie, unmodified) key
3324 (allout-hotspot-key-handler))))
3325 ;;;_ > allout-hotspot-key-handler ()
3326 (defun allout-hotspot-key-handler ()
3327 "Catchall handling of key bindings in hot-spots.
3330 they would qualify if prefixed with the allout-command-prefix, and sets
3335 (let* ((key-string (if (numberp last-command-char)
3337 (key-num (cond ((numberp last-command-char) last-command-char)
3338 ;; for XEmacs character type:
3345 (if (zerop key-num)
3350 (<= 33 key-num)
3352 (or (and (assoc key-string allout-keybindings-list)
3354 (cadr (assoc key-string allout-keybindings-list)))
3356 (key-binding (concat allout-command-prefix
3358 (if (and (<= 97 key-num) ; "a"
3359 (>= 122 key-num)) ; "z"
3360 (- key-num 96) key-num)))
3364 ;; accept-defaults nil, or else we'll get allout-item-icon-key-handler.
3365 (setq mapped-binding (key-binding (char-to-string key-num))))
3369 (lookup-key mapped-binding (vector (read-char)))))
3411 ;;;_ > allout-numbered-type-prefix (&optional prefix)
3412 (defun allout-numbered-type-prefix (&optional prefix)
3413 "True if current header prefix bullet is numbered bullet."
3416 (if prefix
3417 (allout-get-prefix-bullet prefix)
3419 ;;;_ > allout-encrypted-type-prefix (&optional prefix)
3420 (defun allout-encrypted-type-prefix (&optional prefix)
3421 "True if current header prefix bullet is for an encrypted entry (body)."
3424 (if prefix
3425 (allout-get-prefix-bullet prefix)
3439 ;;;_ > allout-make-topic-prefix (&optional prior-bullet
3440 (defun allout-make-topic-prefix (&optional prior-bullet
3451 "Generate a topic prefix suitable for optional arg DEPTH, or current depth.
3455 PRIOR-BULLET indicates the bullet of the prefix being changed, or
3467 Third arg DEPTH forces the topic prefix to that depth, regardless of
3479 NUMBER-CONTROL non-nil forces prefix to either numbered or
3485 the prefix of the topic is forced to be numbered. Non-nil
3488 that the index for the numbered prefix will be derived, by counting
3490 number is used as the index for the numbered prefix (allowing, eg,
3495 ;; highest, least lowest. Ie, more likely to be doing prefix
3497 ;; Current prefix is least dominant, but most likely to be commonly
3504 (header-lead allout-header-prefix)
3640 (if (> allout-recent-prefix-end 1)
3648 (if (allout-numbered-type-prefix)
3678 (not (allout-pre-next-prefix)))))))
3698 (allout-pre-next-prefix)
3761 (insert (concat (allout-make-topic-prefix opening-numbered t depth)
3816 (let ((fill-prefix (if allout-use-hanging-indents
3822 ;; length of topic prefix:
3823 (make-string (progn (allout-end-of-prefix)
3841 (allout-end-of-prefix)
3844 ;; We want the column where the header-prefix text started
3845 ;; *before* the prefix was changed, so we infer it relative
3881 (allout-end-of-prefix)
3882 (setq from allout-recent-prefix-beginning
3883 to allout-recent-prefix-end)
3897 (allout-goto-prefix-doublechecked)
3909 "Adjust bullet of current topic prefix.
3919 Second arg DEPTH forces the topic prefix to that depth, regardless
3922 Third arg NUMBER-CONTROL can force the prefix to or away from
3929 prefix of the topic is forced to be non-numbered. Null index and
3931 non-nil NUMBER-CONTROL) forces a numbered-prefix form. If non-nil
3933 prefix. Non-nil and non-number means that the index for the
3934 numbered prefix will be derived by allout-make-topic-prefix.
3945 (mb allout-recent-prefix-beginning)
3946 (me allout-recent-prefix-end)
3949 (new-prefix (allout-make-topic-prefix current-bullet
3959 (substring new-prefix (1- (length new-prefix)))))
3963 ;; New prefix probably different from old:
3968 ; numbered-bullet prefix:
3977 (put-text-property 0 (length new-prefix) 'allout-was-hidden t
3978 new-prefix))
3980 ; Put in new prefix:
3981 (allout-unprotected (insert new-prefix))
3997 (if (allout-numbered-type-prefix)
4182 "Assign numbered topic prefix to this topic and its siblings.
4235 (allout-goto-prefix-doublechecked)
4276 (let ((where (and (allout-depth) allout-recent-prefix-beginning)))
4464 1 the stuff being yanked starts with a valid outline header prefix, and
4466 topic prefix.
4488 (allout-e-o-prefix-p))
4490 (allout-prefix-data)))
4498 (prefix-len (if (not (match-end 1))
4502 (prefix-bullet (allout-recent-bullet))
4515 (allout-prefix-data))
4549 (if (string-match (regexp-quote prefix-bullet)
4559 (allout-end-of-prefix))
4560 ; Delete base subj prefix,
4565 prefix-len
4569 ; prefix digits and space:
4580 (if (allout-goto-prefix-doublechecked)
4600 If a topic is being yanked into a bare topic prefix, the depth of the
4601 yanked topic is adjusted to the depth of the topic prefix.
4604 2 the stuff being yanked starts with a valid outline header prefix, and
4606 topic prefix.
4633 Adapts level of popped topics to level of fresh prefix.
4635 Note - prefix changes to distinctive bullets will stick, if followed
4661 (let* ((text-start allout-recent-prefix-end)
4734 (allout-goto-prefix-doublechecked)
4736 (setq end (allout-pre-next-prefix))
4827 (orig-pref (allout-goto-prefix-doublechecked))
4929 (allout-goto-prefix-doublechecked)
5197 '(if (not (or (allout-goto-prefix-doublechecked)
5291 the prefix:
5293 list - Present prefix as numeric section.subsection..., starting with
5302 - a string representing the header-prefix, including trailing whitespace and
5313 strings prefix result depth new-depth out gone-out bullet beg
5319 (if (> (allout-goto-prefix-doublechecked) start)
5328 prefix (allout-recent-prefix)
5329 beg (progn (allout-end-of-prefix t) (point))) ; and beginning.
5374 (substring prefix -1))
5381 (list depth prefix strings))
5419 `flat' - Present prefix as numeric section.subsection..., starting with
5475 \`(depth prefix text)'
5477 or \`(depth prefix text bullet-plus)'
5479 If `bullet-plus' is specified, it is inserted just after the entire prefix."
5481 (let ((prefix (prog1
5488 (insert prefix)
5678 ;;;_ > allout-latexify-one-item (depth prefix bullet text)
5679 (defun allout-latexify-one-item (depth prefix bullet text)
5764 Optional FETCH-PASS universal argument provokes key-pair encryption with
5775 Both symmetric-key and key-pair encryption is implemented. Symmetric is
5787 default to symmetric encryption - you must deliberately (re)encrypt key-pair
5788 encrypted topics if you want them to continue to use the key-pair cipher.
5790 Level-one topics, with prefix consisting solely of an `*' asterisk, cannot be
5834 Optional FETCH-PASS universal argument provokes key-pair encryption with
5850 (allout-end-of-prefix t)
5858 (bullet-pos allout-recent-prefix-beginning)
5881 ;; Assess key parameters:
5882 (key-info (or
5883 ;; detect the type by which it is already encrypted
5885 (allout-encrypted-key-info subject-text))
5889 (for-key-type (car key-info))
5890 (for-key-identity (cadr key-info))
5918 for-key-type for-key-identity fetch-pass))
5949 ;;;_ > allout-encrypt-string (text decrypt allout-buffer key-type for-key
5952 (defun allout-encrypt-string (text decrypt allout-buffer key-type for-key
5986 (for-key (and (equal key-type 'keypair)
5987 (or for-key
5992 (target-prompt-id (if (equal key-type 'keypair)
5993 (if (= (length for-key) 1)
5994 (car for-key) for-key)
5997 key-type
5998 (if (equal key-type 'keypair)
6026 ;; We handle only symmetric-key passphrase caching.
6028 (not (equal key-type 'keypair)))
6029 (setq passphrase (allout-obtain-passphrase for-key
6032 key-type
6058 ((equal key-type 'symmetric)
6082 (pgg-encrypt for-key
6113 key-type for-key nil
6134 key-type for-key nil
6145 ((or verifying (not (equal key-type 'symmetric)))
6158 (allout-update-passphrase-mnemonic-aids for-key passphrase
6165 ;;;_ > allout-obtain-passphrase (for-key cache-id prompt-id key-type
6167 (defun allout-obtain-passphrase (for-key cache-id prompt-id key-type
6169 "Obtain passphrase for a key from the cache or else from the user.
6176 FOR-KEY is the key for which the passphrase is being obtained.
6178 CACHE-ID is the cache id of the key for the passphrase.
6191 (if (not (equal key-type 'symmetric))
6238 for-key nil 0 0 'verifying
6281 (allout-end-of-prefix t)
6287 ;;;_ > allout-encrypted-key-info (text)
6289 (defun allout-encrypted-key-info (text)
6290 "Return a pair of the key type and identity of a recipient's secret key.
6292 The key type is one of 'symmetric or 'keypair.
6304 (type (if (pgg-gpg-symmetric-key-p parsed-armor)
6307 secret-keys first-secret-key for-key-owner)
6308 (if (equal type 'keypair)
6310 first-secret-key (pgg-gpg-select-matching-key parsed-armor
6312 for-key-owner (and first-secret-key
6313 (pgg-gpg-lookup-key-owner
6314 first-secret-key))))
6315 (list type (pgg-gpg-key-id-from-key-owner for-key-owner))
6322 "Encrypt random message for later validation of symmetric key's passphrase."
6331 ;;;_ > allout-update-passphrase-mnemonic-aids (for-key passphrase
6333 (defun allout-update-passphrase-mnemonic-aids (for-key passphrase
6358 for-key passphrase outline-buffer)))
6397 ;;;_ > allout-verify-passphrase (key passphrase allout-buffer)
6398 (defun allout-verify-passphrase (key passphrase allout-buffer)
6408 key nil 0 0 'verifying passphrase)
6426 (regexp-quote allout-header-prefix)
6533 (if (allout-goto-prefix)
6544 Returns list `(beginning-point prefix-string suffix-string)'."
6546 (let (beg prefix suffix)
6559 (setq prefix (buffer-substring-no-properties
6564 (list beg prefix suffix))
6588 beg prefix suffix)
6591 prefix (cadr section-data)
6602 prefix (buffer-substring-no-properties (progn
6615 (if (search-forward (concat "\n" prefix varname ":") nil t)
6626 (insert (concat prefix varname ":")))
6658 (allout-goto-prefix-doublechecked)
6806 ;; insertion-type of the two markers.
6916 allout-header-prefix