---
clients/emacs/bbj.el | 211 +++++++++++++++++++++++++++----------------
1 file changed, 132 insertions(+), 79 deletions(-)
diff --git a/clients/emacs/bbj.el b/clients/emacs/bbj.el
index 2602ffe..626682a 100644
--- a/clients/emacs/bbj.el
+++ b/clients/emacs/bbj.el
@@ -135,7 +135,7 @@ or can be ommitted to send no data."
(condition-case nil
(setq json (json-read))
(error
- (user-error "BBJ response error"))))
+ (user-error "Error de respuesta BBJ"))))
(case (setq error (alist-get 'error json)
edesc (alist-get 'description error)
@@ -191,37 +191,37 @@ You can restore anon status on demand by using `bbj-logout'"
(let ((bbj-noheaders t) check done)
(setq bbj-user
(bbj-sane-value
- "(BBJ Username)> "
+ "(Nombre de usuario BBJ)> "
"user_name"))
(cond
((bbj-request! 'user_is_registered 'target_user bbj-user)
(if (bbj-request! 'check_auth
'target_user bbj-user
'target_hash (bbj-sethash))
- (message "Logged in as %s!" bbj-user)
+ (message "¡Sesión iniciada como %s!" bbj-user)
(setq bbj-hash nil)
- (if (y-or-n-p (format "Invalid credentials for %s. Try again? " bbj-user))
+ (if (y-or-n-p (format "Credenciales inválidas para %s. ¿Intentar de nuevo? " bbj-user))
(bbj-login)
(setq bbj-user nil))))
- ((y-or-n-p (format "Register for BBJ as %s? " bbj-user))
+ ((y-or-n-p (format "¿Registrar en BBJ como %s? " bbj-user))
(while (not done)
(condition-case error-response
(let* ((init (bbj-sethash
- (format "(Select a password for %s)> " bbj-user)))
+ (format "(Selecciona una contraseña para %s)> " bbj-user)))
(conf (bbj-sethash
(if (equal init (secure-hash 'sha256 ""))
- "(Confirm empty password)> "
- "(Confirm it)> "))))
+ "(Confirma contraseña vacía)> "
+ "(Confírmala)> "))))
(unless (equal init conf)
- (error "Passwords do not match."))
+ (error "Las contraseñas no coinciden."))
(bbj-request 'user_register
'user_name bbj-user
'auth_hash bbj-hash)
- (message "Registered and logged in as %s!" bbj-user)
+ (message "¡Registrado y sesión iniciada como %s!" bbj-user)
(setq done t))
(error
- (unless (y-or-n-p (format "%s Try again? " (cadr error-response)))
+ (unless (y-or-n-p (format "%s ¿Intentar de nuevo? " (cadr error-response)))
(setq done t
bbj-user nil
bbj-hash nil)))))))))
@@ -231,7 +231,7 @@ You can restore anon status on demand by using `bbj-logout'"
"Sets the user data back to nil so you can use BBJ as an anon"
(interactive)
(unless nomessage
- (message "You're now set as an anon."))
+ (message "Ahora eres anónimo."))
(setq bbj-user "anonymous"
bbj-hash nil))
@@ -241,7 +241,7 @@ You can restore anon status on demand by using `bbj-logout'"
Sets it globally and also returns it."
(setq bbj-hash
(secure-hash 'sha256 (read-from-minibuffer
- (or prompt "(Password)> ")))))
+ (or prompt "(Contraseña)> ")))))
;;;; user navigation shit. a LOT of user navigation shit. ;;;;
@@ -345,7 +345,7 @@ just hunts for a specific text property."
(goto-char (point-min))
(when (not (setq p2
(bbj-next-pos (format ">>%s " id) nil 'head)))
- (message "post %s not found" id))
+ (message "post %s no encontrado" id))
(goto-char (or p2 p1))
(recenter t)))))
@@ -389,21 +389,21 @@ is sent using C-c C-c."
(interactive)
(let ((params (case bbj-buffer-type
(index
- `("Composing a new thread (C-c C-c to send)"
+ `("Escribiendo nuevo hilo (C-c C-c para enviar)"
(lambda ()
(let* ((message (bbj-consume-window (current-buffer)))
(request (bbj-request 'thread_create
'body message
- 'title ,(bbj-sane-value "(Title)> " "title"))))
+ 'title ,(bbj-sane-value "(Título)> " "title"))))
(bbj-browse-index)
- (message "thread submitted")))))
+ (message "hilo publicado")))))
(thread
- `("Replying to thread (C-c C-c to send)"
+ `("Respondiendo al hilo (C-c C-c para enviar)"
(lambda ()
(let* ((message (bbj-consume-window (current-buffer)))
(request (bbj-request 'thread_reply
'body message 'thread_id ,thread-id)))
- (message "reply submitted")
+ (message "respuesta publicada")
(bbj-enter-thread ,thread-id)
(goto-char (point-max))
(bbj-point-to-post 'prev)
@@ -415,7 +415,7 @@ is sent using C-c C-c."
(defun bbj-compose-in-window (title callback &rest cbargs)
"Create a new buffer, pop it, set TITLE as the header line, and
assign CALLBACK to C-c C-c."
- (let ((buffer (get-buffer-create "BBJ: Compose")))
+ (let ((buffer (get-buffer-create "BBJ: Escribir")))
(pop-to-buffer buffer)
(with-current-buffer buffer
(erase-buffer)
@@ -486,7 +486,7 @@ and renders the content in the current buffer."
(concat "~" (alist-get 'user_name userdata) " ")
'face 'font-lock-keyword-face))
(insert (if (eq bbj-buffer-type 'index)
- (propertize (format "@ %s\n%s replies; last active %s\n"
+ (propertize (format "@ %s\n%s respuestas; activo %s\n"
(bbj-timestring (alist-get 'created post))
(alist-get 'reply_count post)
(bbj-timestring (alist-get 'last_mod post)))
@@ -541,61 +541,114 @@ maimed until it worked on emacs 24."
"Displays the help text."
(interactive)
;; yes lets embed this shit in the source code haha epic
- (let ((help "hi this is help pleased to meet ye 8)
-
-Please note the keys described below apply to thread and index buffers,
-not this help page.
-
-n, j, down arrow, and spacebar all move down by a whole post.
-p, k, up arrow, and backspace go up, again by a whole post.
-
-for n/p/j/k, hold shift (or use caps lock if you're into that) to scroll up or
-down by one exactly one line. You can also use shift with the arrow keys, and
-space/backspace, but if you are using terminal emacs, your terminal emulator may
-not work properly with these combos.
-
-The normal emacs paging and cursor movement keys (besides arrows) are not
-affected, if you are already familiar with them. C-n goes down a line, C-p goes
-up, C-v pages down, M-v pages up. (reminder: M means alt here in Emacs lala
-land) The keyboard's dedicated paging keys will work too.
-
-Open a thread with enter, or the o key.
-
-The make-a-post keys are c and + (the plus key). If you are in the index, it
-will make a new thread and prompt you at the minibuffer for a title and some
-tags. If you dont want tags, just press enter again. If you're in a thread, this
-will begin composing a new reply.
-
-In the composure window, press control-c twice to fire it off to the server. If
-you would like to discard the post, you can kill or hide this buffer using the
-standard emacs keys. C-x 4 0 will kill the buffer and the window. C-x 0 will
-just hide the window. C-x k RET will kill the buffer but not the window.
-
-In addition to the composure keys, r is bound to insert a quote element for the
-post at point after popping a reply window. Post quotes look like >>32, that is,
-they are two angle brackets pointing at a number. They currently dont do
-anything special. Later versions of the client will support navigation features
-using them. r is not required to use these: you can also type them in yourself.
-
-Pressing e on a post will pop a new window to edit it, given that the post is
-yours and is not older than 24 hours. Currently this returns the html-rendered
-output of the markdown parser, which is quite clunky and i will fix that. But
-pressing C-c C-c will update it for everyone with the new data.
-
-g or f5 will reload whatever buffer you are in, thread or index. If you are in a
-thread, it will save whatever post your cursor is positioned at. Use this to
-check for new messages.
-
-q will get out of a thread and back to the index. If you're on the index, it
-will kill that too. If you've killed the index, you can get back using the
-command alt+x bbj-browse-index (tab completion is available)
-
-The command names to log in, and browse to the index are bbj-login and
-bbj-browse-index respectively.
-
-Thats about it for now.
+ (let ((help "hola esta es la ayuda un gustazo 8)
+
+Ten en cuenta que las teclas descritas abajo aplican a los buffers de hilo e
+índice, no esta página de ayuda.
+
+Las teclas n, j, flecha abajo y barra espaciadora se mueven abajo un post
+entero. p, k, flecha arriba y backspace se mueven arriba, igual, un post entero.
+
+Para n/p/j/k, mantén apretado shift (o usa bloq mayús si eres de esos) para
+moverte arriba o abajo exactamente una línea. También puedes usar shift con tus
+flechas, y espacio/backspace, pero si estás usando el Emacs de terminal, tu
+emulador puede no funcionar propiamente con estos combos.
+
+El empaginado normal de emacs y las teclas de movimiento del cursor (salvo las
+flechas) no se afectan, si ya estás familiarizado con ellas. C-n baja una
+línea, C-p sube, C-v baja una página, M-v sube. (recordatorio: M significa alt
+en Emacs la la land) Las teclas de empaginado dedicadas funcionarán también.
+
+Abre un hilo con enter, o con la tecla o.
+
+Las teclas para crear posts son c y + (la tecla más). Si estás en el índice,
+hará un nuevo hilo y te enviará al minibuffer para un título y algunas
+etiquetas. Si no quieres etiquetas, solo presiona enter de nuevo. Si estás en
+un hilo, empezarás a escribir una nueva respuesta.
+
+En la ventana de escritura, presiona C-c dos veces para enviárselo al server.
+Si quieres descartar el post, puedes matar o esconder este buffer usando las
+teclas estándar de Emacs. C-x 4 0 matará el buffer y la ventana. C-x 0
+solamente esconderá la ventana. C-x k RET matará el buffer pero no la ventana.
+
+Además de las teclas para escribir, r está enlazado a insertar un elemento de
+cita para el post apuntado después de mostrar la ventana de respuesta. Las
+citas de posts se ven como >>32, esto es, son dos flechas \" mayor que\"
+apuntando a un número.
+
+Presionar e en un post hará saltar una ventana para editarla, dado que el post
+es tuyo y no tiene una edad mayor a 24 horas. Actualmente esto regresa la
+salida renderizada en HTML del parser de Markdown, que es bastante tosco y lo
+arreglaré. Pero presionar C-c C-c lo actualizará para todos con la nueva data.
+
+g o f5 recargarán cualquier buffer en el que estés, sea hilo o índice, si estás
+en un hilo, guardará cualquier post que tenga apuntado tu cursor. Úsalo para
+chequear nuevos mensajes.
+
+q sirve para salir de un hilo y volver al índice. Si estás en el índice, lo
+matará también. Si has matado el índice, puedes volver usando M-x
+bbj-browse-index (se puede autocompletar con tab)
+
+Los comandos para iniciar sesión y navegar el índice son bbj-login y
+bbj-browse-index, respectivamente.
+
+Eso es todo por ahora.
"))
- (let ((buffer (get-buffer-create "BBJ: Help"))
+;hi this is help pleased to meet ye 8)
+;
+;Please note the keys described below apply to thread and index buffers,
+;not this help page.
+;
+;n, j, down arrow, and spacebar all move down by a whole post.
+;p, k, up arrow, and backspace go up, again by a whole post.
+;
+;for n/p/j/k, hold shift (or use caps lock if you're into that) to scroll up or
+;down by one exactly one line. You can also use shift with the arrow keys, and
+;space/backspace, but if you are using terminal emacs, your terminal emulator may
+;not work properly with these combos.
+
+;The normal emacs paging and cursor movement keys (besides arrows) are not
+;affected, if you are already familiar with them. C-n goes down a line, C-p goes
+;up, C-v pages down, M-v pages up. (reminder: M means alt here in Emacs lala
+;land) The keyboard's dedicated paging keys will work too.
+;
+;Open a thread with enter, or the o key.
+;
+;The make-a-post keys are c and + (the plus key). If you are in the index, it
+;will make a new thread and prompt you at the minibuffer for a title and some
+;tags. If you dont want tags, just press enter again. If you're in a thread, this
+;will begin composing a new reply.
+;
+;In the composure window, press control-c twice to fire it off to the server. If
+;you would like to discard the post, you can kill or hide this buffer using the
+;standard emacs keys. C-x 4 0 will kill the buffer and the window. C-x 0 will
+;just hide the window. C-x k RET will kill the buffer but not the window.
+;
+;In addition to the composure keys, r is bound to insert a quote element for the
+;post at point after popping a reply window. Post quotes look like >>32, that is,
+;they are two angle brackets pointing at a number. They currently dont do
+;anything special. Later versions of the client will support navigation features
+;using them. r is not required to use these: you can also type them in yourself.
+;
+;Pressing e on a post will pop a new window to edit it, given that the post is
+;yours and is not older than 24 hours. Currently this returns the html-rendered
+;output of the markdown parser, which is quite clunky and i will fix that. But
+;pressing C-c C-c will update it for everyone with the new data.
+;
+;g or f5 will reload whatever buffer you are in, thread or index. If you are in a
+;thread, it will save whatever post your cursor is positioned at. Use this to
+;check for new messages.
+;
+;q will get out of a thread and back to the index. If you're on the index, it
+;will kill that too. If you've killed the index, you can get back using the
+;command alt+x bbj-browse-index (tab completion is available)
+;
+;The command names to log in, and browse to the index are bbj-login and
+;bbj-browse-index respectively.
+;
+;Thats about it for now.
+
+ (let ((buffer (get-buffer-create "BBJ: Ayuda"))
(inhibit-read-only t))
(with-current-buffer buffer
(erase-buffer)
@@ -605,7 +658,7 @@ Thats about it for now.
(use-local-map (copy-keymap text-mode-map))
(local-set-key (kbd "q") 'kill-buffer-and-window)
(setq header-line-format
- "Press q or C-x 4 0 to get out. Arrows can scroll."
+ "Presiona q o C-x 4 0 para salir. Las flechas sirven para moverse."
buffer-read-only t))
(pop-to-buffer buffer)
(ignore-errors
@@ -650,7 +703,7 @@ Thats about it for now.
(bbj-enter-thread ,thread-id)
(bbj-seek-post ,post-id)))))
- (bbj-compose-in-window "Editing post (including html) (C-c C-c to send)" callback)
+ (bbj-compose-in-window "Editando post (incluyendo html) (C-c C-c para enviar)" callback)
(insert body)
(goto-char (point-min))))
@@ -658,7 +711,7 @@ Thats about it for now.
(defun bbj-browse-index ()
(interactive)
(let* ((inhibit-read-only t)
- (buffer (get-buffer-create "BBJ Index"))
+ (buffer (get-buffer-create "Índice BBJ"))
(response (bbj-request 'thread_index))
(count 0))
(with-current-buffer buffer
@@ -673,7 +726,7 @@ Thats about it for now.
(incf count))
(bbj-postprocess)
(setq header-line-format (format
- "%d posts. g to refresh. Control+h then spacebar for help."
+ "%d posts. g para refrescar. <C-h Espacio> para ayuda."
count)))
(switch-to-buffer buffer)
(setq buffer-read-only t)))