Papel San Francisco garantiza la continuidad de operaciones aprovechando Servicios de IBM

IBM y Red Hat, líder mundial de software de nube de código abierto, anunciaron un acuerdo en el que IBM adquirirá todas las acciones comunes emitidas y en circulación de Red Hat por USD$190.00 por acción en efectivo, lo que representa un valor total para la empresa de aproximadamente USD$34 mil millones.

IBM y la Asociación de Tenis de los Estados Unidos (USTA por sus siglas en inglés) anunciaron que IBM Watson participará en el campeonato US Open por primera vez por medio de una nueva característica de consejería cognitiva piloteada en las aplicaciones móviles oficiales del torneo, a fin de mejorar la experiencia de los aficionados presentes en el Billie Jean King National Tennis Center.

IBM's World Community Grid, a worldwide network of PC owners helping scientists solve humanitarian challenges, today announced several computing projects aimed at developing techniques to produce cleaner and safer water, an increasingly scarce commodity eluding at least 1.2 billion people worldwide.

IBM today announced the opening of a new data centre facility in Fortitude Valley, Brisbane, Queensland. The data centre will augment IBM’s existing recovery centre located nearby, to provide exceptional and unrivalled risk mitigation for client information and data.

IBM (NYSE: IBM) today announced that Queensland Sugar Limited (QSL), a global leader in raw sugar marketing that manages over 90 percent of Australia’s raw sugar exports, has selected IBM advanced storage systems to support rapidly growing data demands.

North Queensland capital Townsville is among the first cities globally to use a new United Nations&rsquo; Office for Disaster Risk Reduction (UNISDR) disaster resilience scorecard developed jointly by global fully integrated infrastructure firm AECOM and IBM.</p>

IBM today announced the signing of a new five-year infrastructure services agreement with The Westpac Group, which marks a key step in Westpac’s technology transformation program.

IBM (NYSE: IBM) today announced a business consulting and technology partnership with Yarra Valley Water to enhance the management and functionality of its assets and customer service to over 1.7 million people and 50,000 businesses throughout Melbourne now and in the future. Through this partnership Yarra Valley Water will gain access to critical insights to maximise asset performance and improve customer service outcomes across its operations.

anyabocharov:

Hello Everyone! I just want to quickly let you all know about a couple of improvements we've made to the Starfighter site. Starting last week, every comic page of Starfighter has had a link below it to its own comment section. We're using the Disqus comment system, which I imagine many of you are already familiar with. It's been working well so far and we hope you all like it! Even though it's only been up for short while, your response has been wonderful. Hamlet and I have both really enjoyed getting to hear all of your thoughts on the comic so far!

One other small change - you'll notice a new latest page link in the upper right hand corner of every page on the Starfigheter website. I wanted to make it easier for all of you Starfighter veterans to reach the new page each week. Hopefully you'll all find this more convenient!

Thank you all so much again for your enthusiasm in the new comments! Oh! And also, Hamlet's just finished the latest page. I'd say now would be a good time to give that new link a try! -Thisbe

U dvou zaměstnanců mladoboleslavské automobilky Škoda Auto byla zjištěna nákaza covid-19. Podle zjištění Práva to však nebude mít vliv na nedávno obnovený provoz závodu.

Na jednorázový příspěvek 500 korun denně budou mít nově nárok i malé společnosti s ručením omezeným postižené šířením koronaviru. „Čekáme na schválení Senátem a prezidentem, žádosti budou moci podávat zřejmě do týdne,“ uvedla ve čtvrtek ministryně financí Alena Schillerová.

Zaměstnanci Škody Auto od pondělí začnou pracovat na tři směny, a to v závodech v Mladé Boleslavi a Kvasinách. Ve Vrchlabí zatím zůstává dvousměnný provoz, oznámil vedoucí komunikace podniku Tomáš Kotera. Automobilka obnovila výrobu 27. dubna ve všech třech českých závodech, ale jen na dvě směny. Obnovení výroby doprovází více než 80 hygienických opatření.

Mezinárodní ratingová agentura Fitch Ratings snížila hodnocení úvěrové spolehlivosti Slovenska o jeden stupeň na úroveň A se stabilním výhledem. Důvodem jsou hlavně dopady koronaviru na slovenskou ekonomiku. Jde o první změnu ratingu země v době pandemie.

Studio Universal na znovuotevření kin nečeká. Premiéru animovaného hitu Trollové: Světové turné pustilo na placených digitálních kanálech. Strategie se vyplatila a hollywoodský gigant zvažuje, že by kinům v budoucnu odepřel jejich exkluzivní právo promítat filmy měsíce před uvedením na jiných platformách.

Will He Get A Second Term?

Donald Trump has proven himself to be the most corrupt, dishonest, and incompetent president in American history. 

But despite all of the lies, abuses of power, and damage to the country – I must warn you – there’s a very real possibility he could be reelected. This doesn’t have to be the case. 

Let me explain.

Although Trump has been impeached and is one of the most unpopular presidents in modern history, he still has devoted support among his core base. Nearly 90 percent of Republicans still approve of the job he’s doing, a rate that’s held constant throughout his presidency. According to one survey, a third of Trump supporters said there was nothing he could do to lose their support.

Trump still maintains substantial support in key swing states as well. Recent polls show him neck and neck with leading Democratic candidates in the key states of Michigan, Pennsylvania, Wisconsin, Florida, Arizona, and North Carolina. Remember, Hillary Clinton won the popular vote in 2016 by 3 million votes but still lost the election because of the power of these states in the Electoral College.

Big money donors are also forking over record sums of money to keep Trump in office. In the last quarter of 2019 alone, he raked in a staggering $46 million, far outpacing any of his Democratic opponents. He now has more than $100 million in the bank, not to mention the millions raised by pro-Trump Super PACs. The GOP’s biggest donors – some of whom didn’t support him in 2016, but received massive windfalls from Trump’s tax cut – are now paying him back.  

At the same time, voter suppression is on the rise. To suppress turnout by likely Democratic voters, Republican officials have doubled down on their efforts to keep low-income and minority voters from the polls. They are intimidating immigrant voters, purging voter rolls, closing polling places, and making it harder to register in the first place. 

Florida went so far as to institute a modern-day poll tax, requiring people with past felony convictions to pay off any fines or fees before exercising their right to vote. In 2016, over 20 percent of black voting-age Floridians weren’t able to vote due to past felony convictions, and now, hundreds of thousands could still be prevented from going to the polls this November in this key state.

We are also at risk of foreign powers trying to interfere in the election, as they did in 2016. Experts warn that many states still lack the necessary safeguards to protect against interference. The FBI, Department of Justice and National Security Agency have also raised concerns that Russia, China, and Iran might attempt misinformation campaigns. I can’t believe I even have to say this, but foreign governments should not have a say in our elections.

So why am I telling you all of this? I don’t mean to scare you. And the last thing I want to do is cause you to be hopeless, and give up. To the contrary, I want you to be more determined than ever. Despite all these attacks on democracy, we have what it takes to make Trump a one-term president. But only if we remain focused and united.

It may seem daunting. We’re up against a full-fledged attack on our democratic institutions. But there is a way forward: 

We can defeat Trump and his enablers by building a multiracial, multi-class coalition. And we do that by supporting a true progressive with a bold vision for an economy and democracy that works for all Americans. That way enough voters will be inspired to show up to the polls and stop Trump’s authoritarian machine for good.

This isn’t a pipe dream. We already beat the liar-in-chief by 2.8 million votes in 2016. And the 2018 elections had the highest turnout of any midterm election since 1914 – handing House Republicans their most resounding defeat in decades. People are outraged – and we must keep fighting.

If we come together, we will prevail.

V době koronavirové pandemie nás bombardují ze všech stran nejrůznější informace. Informační přetížení je tak značné, že v mnohých lidech vyvolává strach a stres. Jak tomu čelit, komu věřit a jaké informace ignorovat, se v komentáři zamýšlí psycholog Jan Urban.

Ze 60 na 80 procent denního vyměřovacího základu vzroste ošetřovné pro rodiče, kteří zůstali doma s potomky v souvislosti s uzavřením škol a školek kvůli koronavirové krizi. Senát novelu schválil v úterý 28. dubna 2020. Předlohu nyní dostane k podpisu prezident Miloš Zeman. Spočítejte si orientačně na kalkulačce iDNES.cz, kolik dostanete.

Zaměstnaní rodiče mají od dubna nově nárok na ošetřovné ve výši 80 procent denního vyměřovacího základu. Důvod zvýšení je jasný. Původních 60 procent většině rodin na pokrytí nákladů na provoz domácnosti nevystačilo. Potvrzuje to i případ paní Anny.

As any Common Lisp coder knows, a REPL is an incredibly useful tool. It can be used not just for development, but for running all sorts of tasks. Personally, I don't bother making my Lisp tools into executable scripts and just run them directly from SLIME. As such, any operation that requires leaving the REPL is quite inconvenient. For me, one such operation was viewing image files, for example in conjunction with my match-client:match tool. So lately I've been researching various methods to incorporate this functionality into the normal REPL workflow. Below, I present 3 methods that can be used to achieve this.

Open in external program

This one's easy. When you want to view a file, launch an external process with your favorite image viewer. On Windows a shell command consisting of the image filename would launch the associated application, on Linux it's necessary to provide the name of the image viewer.

(defvar *image-app* nil) ;; set it to '("eog") or something

(defun view-file-native (file)
  (let ((ns (uiop:native-namestring file)))
    (uiop:launch-program (if *image-app*
                             (append *image-app* (list ns))
                             (uiop:escape-shell-token ns)))))

Note that uiop:launch-program is used instead of uiop:run-program. The difference is that launch- is non-blocking - you can continue to work in your REPL while the image is displayed, whereas run- will not return until you close the image viewer.

Also note that when the first argument to run/launch-program is a string, it is not escaped, so I have to do it manually. And if the first argument is a list, it must be a program and a list of its arguments, so merely using (list ns) wouldn’t work on Windows.

Inline image in REPL

The disadvantage of the previous method is that the external program might steal focus, appear on top of your REPL and disrupt your workflow. And it's well known that Emacs can do everything, including viewing images, so why not use that?

In fact, SLIME has a plugin specifically for displaying images in REPL, slime-media. However it’s difficult to find any information on how to use it. Eventually I figured out that SWANK (SLIME’s CL backend) needs to send an event :write-image with appropriate arguments and slime-media's handler will display it right in the REPL. The easiest way is to just send the file path. The second argument is the resulting image's string value. If you copy-paste (sorry, "kill-yank") it in the repl, it would act just like if you typed this string.

(swank::send-to-emacs '(:write-image "/path/to/test.png" "test"))

You can even send raw image data using this method. I don't have anything on hand to generate raw image data so here's some code that reads from a file, converts it to a base64 string and sends it over SWANK.

(with-open-file (in "/path/to/test.png" :direction :input  :element-type '(unsigned-byte 8))
                (let* ((arr (make-array (file-length in) :element-type '(unsigned-byte 8)))
                       (b64 (progn (read-sequence arr in) (cl-base64:usb8-array-to-base64-string arr))))
                  (swank::send-to-emacs `(:write-image ((:data ,b64 :type swank-io-package::png)) "12345"))))

Note that the first argument to :write-image must be a list with a single element, which is itself a plist containing :data and :type keys. :data must be a base64-encoded raw image data. :type must be a symbol in swank-io-package. It’s not exactly convenient, so if you’re going to use this functionality a helper function/macro might be necessary.

Image in a SLIME popup buffer

Inline images are not always convenient. They can’t be resized, and will take up as much space as is necessary to display them. Meanwhile EMACS itself has a built-in image viewer (image-mode) which can fit images to width or height of a buffer. And SLIME has a concept of a “popup buffer” which is for example used by macroexpander (C-c C-m) to display the result of a macro expansion in a separate window.

Interestingly, slime-media.el defines an event :popup-buffer but it seems impossible to trigger it from SWANK. It is however a useful code reference for how to create the popup buffer in ELisp. This time we won’t bother with “events” and just straight up execute some ELisp code using swank::eval-in-emacs. However by default, this feature is disabled on Emacs-side, so you’ll have to set Emacs variable slime-enable-evaluate-in-emacs to t in order for this method to work.

Also Emacs must be compiled with ImageMagick for the resizing functionality to work.

Anyway, the code to view file in the popup buffer looks like this:

(defun view-file-slime (file &key (bufname "*image-viewer*"))
  (let ((ns (namestring file)))
    (swank::eval-in-emacs
     `(progn
        (slime-with-popup-buffer (,bufname :connection t :package t)
          (insert-image (create-image ,ns))
          (image-mode)
          (setf buffer-file-name ,ns)
          (not-modified)
          (image-toggle-display-image))
        ;; try to resize the image after the buffer is displayed
        (with-current-buffer ,bufname (image-toggle-display-image))))))
    ))

Arriving to this solution has required reading image-mode’s source code to understand what exactly makes image-mode behave just like if the image file was opened in Emacs via C-x C-f. First off, image-mode can be a major and a minor mode - and the minor mode is not nearly as useful. slime-with-popup-buffer has a :mode keyword argument but it would cause image-mode to be set before the image is inserted, and it will be a minor mode in this case! Therefore (image-mode) must be called after insert-image.

Next, the buffer must satisfy several conditions in order to get image data from the filename and not from the buffer itself. Technically it shouldn’t be necessary, but I couldn’t get auto resizing to work when data-p is true. So I set buffer-file-name to image’s filename and set not-modified flag on.

Next, image-toggle-display-image is called to possibly resize the image according to image-mode settings. It's called outside of slime-with-popup-buffer for the following reason: the buffer might not yet be visible and have any specific dimensions assigned to it, and therefore resizing will do nothing.

Here’s an example of how calling this function looks in Emacs.

The position of the popup buffer depends on whether the original Emacs window is wide enough or not. I think it looks better when it’s divided vertically. Use M-x image-transform-fit-to-height or M-x image-transform-fit-to-width to set up the auto-resizing method (it gets remembered for future images). Unfortunately there’s no way to fit both height and width, at least with vanilla Emacs. I prefer fit-to-width because in case the image is too tall, it is possible to scroll the image vertically with M-PgDn and M-PgUp from the other buffer. Unlike other image-mode buffers, this buffer supports a shortcut q to close itself, as well as various SLIME shortcuts, for example C-c C-z to return to the REPL.

That's it for now, hope you enjoyed this overview and if you happen to know a better way to display images in Emacs, I would be interested to hear about it.