Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Remove outdated comment |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | master | trunk |
| Files: | files | file ages | folders |
| SHA3-256: |
e3c3ae36372fa93eade5ae1a647f78aa |
| User & Date: | atomicules 2019-08-12 15:34:56 |
Context
|
2019-08-12
| ||
| 15:34 | Remove outdated comment Leaf check-in: e3c3ae3637 user: atomicules tags: master, trunk | |
|
2019-08-09
| ||
| 17:13 | Remove some of the unnecessary prints and comments check-in: 1baafd9e95 user: atomicules tags: master, trunk | |
Changes
Changes to pwman2op.lisp.
5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 |
; Load quicklisp
(load "~/.sbclrc")
; Load libraries
; Had parsing errors with xmls so use cxml instead
(ql:quickload "cxml")
(ql:quickload "cl-ppcre")
; "Escape" certain characters. Will replace back on cli call
(defun escape-quotes
(text)
(cl-ppcre:regex-replace-all "\"" (cl-ppcre:regex-replace-all "'" text "\\u0027" :preserve-case t) "\\u0022" :preserve-case t))
; Just assume two template types
; Obtained from `op get template <category>`
(defun template-secure-note
|
| |
5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 |
; Load quicklisp (load "~/.sbclrc") ; Load libraries ; Had parsing errors with xmls so use cxml instead (ql:quickload "cxml") (ql:quickload "cl-ppcre") ; "Escape" certain characters. (defun escape-quotes (text) (cl-ppcre:regex-replace-all "\"" (cl-ppcre:regex-replace-all "'" text "\\u0027" :preserve-case t) "\\u0022" :preserve-case t)) ; Just assume two template types ; Obtained from `op get template <category>` (defun template-secure-note |